Merge pull request #46 from fracek/techempower-bench

Techempower benchmarks #1 and #2

.gitmodules

@@ -22,3 +22,6 @@
 [submodule "submodules/concurrency"]
 	path = submodules/concurrency
 	url = https://github.com/dylan-foundry/concurrency.git
+[submodule "submodules/serialization"]
+	path = submodules/serialization
+	url = https://github.com/dylan-foundry/serialization.git

examples/techempower-benchmarks/json.dylan

@@ -0,0 +1,19 @@
+module: techempower-benchmarks
+synopsis: json serialization benchmark.
+author: Francesco Ceccon
+
+define class <json-page> (<resource>)
+  constant slot hello-string = "Hello, World!";
+  slot message :: <string-table>;
+end class;
+
+define method initialize (page :: <json-page>, #key)
+  page.message := table(<string-table>, "message" => "Hello, World!");
+end method;
+
+// set the correct content-type, then send "Hello, World!".
+define method respond (page :: <json-page>, #key)
+  set-header(current-response(), "Content-Type", "application/json");
+  output(write-object-to-json-string(page.message));
+end method respond;
+

examples/techempower-benchmarks/library.dylan

@@ -0,0 +1,21 @@
+module: dylan-user
+synopsis: TechEmpower plaintext benchmark
+author: Francesco Ceccon
+
+define library techempower-benchmarks
+  use common-dylan;
+  use http-common;
+  use http-server;
+  use serialization;
+  use collections;
+end;
+
+
+define module techempower-benchmarks
+  use common-dylan;
+  use http-common;
+  use http-server;
+  use json-serialization;
+  use table-extensions;
+end;
+

examples/techempower-benchmarks/main.dylan

@@ -0,0 +1,14 @@
+module: techempower-benchmarks
+
+define function map-resources (server :: <http-server>)
+  add-resource(server, "/json", make(<json-page>));
+  add-resource(server, "/plaintext", make(<plaintext-page>));
+end function map-resources;
+
+define function main ()
+  http-server-main(server: make(<http-server>,
+                                listeners: list("127.0.0.1:8000")),
+                   before-startup: map-resources);
+end function main;
+
+main();

examples/techempower-benchmarks/plaintext.dylan

@@ -0,0 +1,14 @@
+module: techempower-benchmarks
+synopsis: plaintext benchmark.
+author: Francesco Ceccon
+
+define class <plaintext-page> (<resource>)
+  constant slot hello-string = "Hello, World!";
+end class;
+
+// set the correct content-type, then send "Hello, World!".
+define method respond (page :: <plaintext-page>, #key)
+  set-header(current-response(), "Content-Type", "text/plain");
+  output(page.hello-string);
+end method respond;
+

examples/techempower-benchmarks/techempower-benchmarks.lid

@@ -0,0 +1,6 @@
+library: techempower-benchmarks
+target-type: executable
+files: library
+       plaintext
+       json
+       main

registry/generic/serialization

@@ -0,0 +1 @@
+abstract://dylan/submodules/serialization/serialization.lid

registry/generic/techempower-benchmarks

@@ -0,0 +1 @@
+abstract://dylan/examples/techempower-benchmarks/techempower-benchmarks.lid