Initial

7 files changed, 184 insertions, 0 deletions

diff --git a/src/Benchmarks/bigtable/erb.rb b/src/Benchmarks/bigtable/erb.rb
new file mode 100644
index 0000000..c3a675a
--- /dev/null
+++ b/src/Benchmarks/bigtable/erb.rb
@@ -0,0 +1,32 @@
+# BigTable benchmark implemented in ERB.
+#
+require 'erb'
+require 'benchmark'
+include ERB::Util
+
+table = (1 .. 1000).map do |_| (1 .. 10) end
+
+template = ERB.new <<-EOF
+<table>
+  <% table.each do |row| %>
+    <tr>
+      <% row.each do |value| %>
+        <td>
+            <%= value %>
+        </td>
+      <% end %>
+    </tr>
+  <% end %>
+</table>
+EOF
+
+number_runs = 100
+start_time = Time.now.to_f
+number_runs.times do
+    template.result(binding)
+end
+end_time = Time.now.to_f
+
+# start_time and end_time are both in seconds now
+ms = (end_time - start_time) * 1000 / number_runs
+puts "\"ERB\", #{ms}"
diff --git a/src/Benchmarks/bigtable/erubis.rb b/src/Benchmarks/bigtable/erubis.rb
new file mode 100644
index 0000000..9a1edf9
--- /dev/null
+++ b/src/Benchmarks/bigtable/erubis.rb
@@ -0,0 +1,31 @@
+# BigTable benchmark implemented in erubis
+#
+require 'erubis'
+require 'benchmark'
+
+table = (1 .. 1000).map do |_| (1 .. 10) end
+
+template = Erubis::Eruby.new <<-EOF
+<table>
+  <% table.each do |row| %>
+    <tr>
+      <% row.each do |value| %>
+        <td>
+            <%= value %>
+        </td>
+      <% end %>
+    </tr>
+  <% end %>
+</table>
+EOF
+
+number_runs = 100
+start_time = Time.now.to_f
+number_runs.times do
+    template.result(binding)
+end
+end_time = Time.now.to_f
+
+# start_time and end_time are both in seconds now
+ms = (end_time - start_time) * 1000 / number_runs
+puts "\"Erubis\", #{ms}"
diff --git a/src/Benchmarks/bigtable/hamlet.hs b/src/Benchmarks/bigtable/hamlet.hs
new file mode 100644
index 0000000..2778f2d
--- /dev/null
+++ b/src/Benchmarks/bigtable/hamlet.hs
@@ -0,0 +1,33 @@
+-- | BigTable benchmark implemented using Hamlet.
+--
+{-# LANGUAGE QuasiQuotes #-}
+module Main where
+
+import Criterion.Main
+import Text.Hamlet
+import Text.Hamlet.Monad
+import Numeric (showInt)
+import Data.Text (Text)
+import qualified Data.Text as T
+import Data.Maybe (fromJust)
+
+main = defaultMain
+    [ bench "bigTable" $ nf bigTable bigTableData
+    ]
+  where
+    rows :: Int
+    rows = 1000
+
+    bigTableData :: [[Int]]
+    bigTableData = replicate rows [1..10]
+    {-# NOINLINE bigTableData #-}
+
+bigTable rows = fromJust $ hamletToText undefined [$hamlet|
+%table
+    $forall rows row
+        %tr
+            $forall row cell
+                %td $showInt'.cell$
+|]
+  where
+    showInt' i = Encoded $ T.pack $ showInt i ""
diff --git a/src/Benchmarks/bigtable/html-minimalist.hs b/src/Benchmarks/bigtable/html-minimalist.hs
new file mode 100644
index 0000000..2a52751
--- /dev/null
+++ b/src/Benchmarks/bigtable/html-minimalist.hs
@@ -0,0 +1,20 @@
+-- | BigTable benchmark using the html-minimalist package from hackage.
+--
+import Text.HTML.Light hiding (map)
+import Criterion.Main
+
+bigTable :: [[Int]] -> String
+bigTable t =
+    renderXHTML xhtml_1_0_strict $ html [] $ return $ table [] $ map row t
+  where
+    row r = tr [] $ map (td [] . return . cdata . show) r
+
+main = defaultMain
+    [ bench "bigTable" $ nf bigTable myTable ]
+  where
+    rows :: Int
+    rows = 1000
+
+    myTable :: [[Int]]
+    myTable = replicate rows [1..10]
+    {-# NOINLINE myTable #-}
diff --git a/src/Benchmarks/bigtable/html.hs b/src/Benchmarks/bigtable/html.hs
new file mode 100644
index 0000000..57a62b3
--- /dev/null
+++ b/src/Benchmarks/bigtable/html.hs
@@ -0,0 +1,19 @@
+-- | BigTable benchmark using the HTML package from hackage.
+--
+import Text.Html
+import Criterion.Main
+
+bigTable :: [[Int]] -> String
+bigTable t = renderHtml $ table $ concatHtml $ map row t
+  where
+    row r = tr $ concatHtml $ map (td . stringToHtml . show) r
+
+main = defaultMain
+    [ bench "bigTable" $ nf bigTable myTable ]
+  where
+    rows :: Int
+    rows = 1000
+
+    myTable :: [[Int]]
+    myTable = replicate rows [1..10]
+    {-# NOINLINE myTable #-}
diff --git a/src/Benchmarks/bigtable/php.php b/src/Benchmarks/bigtable/php.php
new file mode 100644
index 0000000..f2e51a4
--- /dev/null
+++ b/src/Benchmarks/bigtable/php.php
@@ -0,0 +1,30 @@
+<?php
+$table = array_fill(0, 1000, array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10));
+
+function test_bigtable($table) {
+        ob_start();
+?>
+<table>
+<?php foreach($table as $row) { ?>
+<tr>
+<?php foreach($row as $value) { ?>
+<td><?php echo $value; ?></td>
+<?php } ?>
+</tr>
+<?php } ?>
+</table>
+<?php
+        return ob_get_clean();
+}
+
+$request_count = 1000;
+
+$start = microtime(true);
+for ($i = 0; $i < $request_count; $i++)
+{
+  test_bigtable($table);
+}
+$elapsed = microtime(true) - $start;
+$time_per_request = ($elapsed / $request_count) * 1000;
+echo "\"PHP\", $time_per_request\n";
+?>
diff --git a/src/Benchmarks/bigtable/xhtml.hs b/src/Benchmarks/bigtable/xhtml.hs
new file mode 100644
index 0000000..993994c
--- /dev/null
+++ b/src/Benchmarks/bigtable/xhtml.hs
@@ -0,0 +1,19 @@
+-- | BigTable benchmark using the XHTML package from hackage.
+--
+import Text.XHtml.Strict
+import Criterion.Main
+
+bigTable :: [[Int]] -> String
+bigTable t = renderHtml $ table $ concatHtml $ map row t
+  where
+    row r = tr $ concatHtml $ map (td . stringToHtml . show) r
+
+main = defaultMain
+    [ bench "bigTable" $ nf bigTable myTable ]
+  where
+    rows :: Int
+    rows = 1000
+
+    myTable :: [[Int]]
+    myTable = replicate rows [1..10]
+    {-# NOINLINE myTable #-}