/
main.dylan
21 lines (19 loc) · 875 Bytes
/
main.dylan
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
module: visualization-middleware
Author: Hannes Mehnert
Synopsis: main function initializing the web server
Copyright: Dylan Hackers 2014
License: See LICENSE.txt in this distribution for details.
Warranty: Distributed WITHOUT WARRANTY OF ANY KIND
define function main ()
let server = make(<http-server>,
listeners: list("127.0.0.1:8888"));
let static-resource = make(<directory-resource>,
directory: "/home/hannes/dylan/visualization-middleware/static",
allow-directory-listing?: #t);
add-resource(server, "/", static-resource);
add-resource(server, "/events", $stream-resource);
let execute-resource = make(<function-resource>, function: execute-handler);
add-resource(server, "/execute/{command}/{arguments*}", execute-resource);
start-server(server);
end;
main()