Support 500 podcast episodes

Author: RoyalIcing

lib/components_guide/wasm/examples/podcast_feed/podcast_feed.ex

@@ -5,6 +5,8 @@ defmodule ComponentsGuide.Wasm.PodcastFeed do
   use ComponentsGuide.Wasm.PodcastFeed.XMLFormatter, as: XML
   require SilverOrb.Arena
 
+  Memory.pages(10)
+
   SilverOrb.BumpAllocator.export_alloc()
 
   global :export_mutable do
@@ -81,11 +83,31 @@ defmodule ComponentsGuide.Wasm.PodcastFeed do
 
   importw(Datasource, :datasource)
 
+  # SilverOrb.defarena(WriteBuffer, pages: 1)
+
   # SilverOrb.Arena.def(DatasourceArena, pages: 1)
   # Used by url attribute in <enclosure url="…">
-  SilverOrb.Arena.def(WriteBuffer, pages: 1)
+  # SilverOrb.Arena.def(WriteBuffer, pages: 1)
   # Attributes must have <&" escaped.
-  SilverOrb.Arena.def(EscapeXMLBuffer, pages: byte_size("&amp;"))
+  # SilverOrb.Arena.def EscapeXMLBuffer, pages: byte_size("&quot;") do
+  #   defw escape_xml(str: I32.String), char: I32 do
+  #     loop EachChar do
+  #       I32.match char do
+  #         ?& ->
+  #           EscapeXMLBuffer.append_string("&amp;")
+
+  #         ?" ->
+  #           EscapeXMLBuffer.append_string("&quot;")
+
+  #         ?< ->
+  #           EscapeXMLBuffer.append_string("&lt;")
+
+  #         _ ->
+  #           EscapeXMLBuffer.append_u8(char)
+  #       end
+  #     end
+  #   end
+  # end
 
   # There are a few ways to implement this:
   # 1. Pass every episode in as some sort of data structure. e.g.

test/components_guide/wasm/examples/podcast_feed_test.exs

@@ -4,9 +4,9 @@ defmodule ComponentsGuide.Wasm.PodcastFeed.Test do
   alias OrbWasmtime.{Instance, Wasm}
   alias ComponentsGuide.Wasm.PodcastFeed
 
-  defp wasm_imports do
+  defp wasm_imports(opts) do
     [
-      {:datasource, :get_episodes_count, fn -> 2 end},
+      {:datasource, :get_episodes_count, fn -> Keyword.get(opts, :episodes_count, 2) end},
       {:datasource, :write_episode_id,
        fn caller, id, write_at ->
          s = "#{id + 1}"
@@ -58,7 +58,7 @@ defmodule ComponentsGuide.Wasm.PodcastFeed.Test do
   test "podcast xml feed rendering" do
     # IO.puts(PodcastFeed.to_wat())
 
-    inst = Instance.run(PodcastFeed, wasm_imports())
+    inst = Instance.run(PodcastFeed, wasm_imports([]))
 
     # {title_offset, title_max_bytes} = Instance.call(inst, :get_title_memory_range)
     # title = "SOME TITLE" |> &[&1, ?\0] |> List.to_string()
@@ -103,7 +103,17 @@ defmodule ComponentsGuide.Wasm.PodcastFeed.Test do
     assert "Description for 2" = xml_text_content(item2, "//description[1]")
 
     # <enclosure url="${bunnyEpisodeURL(episodeID)}" length="${feedItem.mp3ByteCount}" type="audio/mpeg"/>
-    assert "Description for 2" = xml_xpath(item1, "//enclosure[1]")
+    # assert "Description for 2" = xml_xpath(item1, "//enclosure[1]")
+  end
+
+  test "500 episodes" do
+    inst = Instance.run(PodcastFeed, wasm_imports(episodes_count: 500))
+    text_xml_func = Instance.capture(inst, String, :text_xml, 0)
+    text_xml = text_xml_func.()
+
+    assert text_xml =~ ~S"""
+           <?xml version="1.0" encoding="UTF-8"?>
+           """
   end
 
   defp xml_parse(xml) do

test/components_guide/wasm/examples/podcast_feed_xml.wasm

@@ -544,7 +544,7 @@
     call 22
     call 19
     call 18)
-  (memory (;0;) 2)
+  (memory (;0;) 12)
   (global (;0;) (mut i32) (i32.const 65536))
   (global (;1;) (mut i32) (i32.const 0))
   (global (;2;) (mut i32) (i32.const 0))

test/components_guide/wasm/examples/podcast_feed_xml.wat

@@ -411,7 +411,7 @@
     call 8
     call 7
     call 6)
-  (memory (;0;) 2)
+  (memory (;0;) 12)
   (global (;0;) (mut i32) (i32.const 65536))
   (global (;1;) (mut i32) (i32.const 0))
   (global (;2;) (mut i32) (i32.const 0))