forked from dylan-lang/dylan-playground
-
Notifications
You must be signed in to change notification settings - Fork 0
/
library.dylan
86 lines (84 loc) · 2.28 KB
/
library.dylan
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Module: dylan-user
define library dylan-playground
use common-dylan;
use dsp;
use hash-algorithms;
use http-common;
use http-server;
use io,
import: { format, format-out, streams };
use json;
use strings;
use system,
import: { date, file-system, locators, operating-system };
use xml-parser;
use uuid;
end library;
define module dylan-playground
use common-dylan;
use date,
import: { <day/time-duration>, current-date, decode-duration };
use dsp;
use file-system,
prefix: "fs/";
use format,
import: { format, format-to-string };
use format-out;
use hash-algorithms,
import: { hexdigest, sha1 };
use http-common,
import: { get-attribute, quote-html, request-content, set-attribute, set-header };
use http-server,
import: { <http-server>,
<directory-resource>,
<function-resource>,
<resource>,
$http-get-method,
$http-post-method,
add-resource,
current-request,
current-response,
do-query-values,
get-attr,
get-query-value,
get-session,
http-server-main,
log-debug,
log-info,
output,
page-context,
process-config-element,
quote-html,
respond-to-get,
respond-to-post,
server-root };
use json,
import: { print-json, parse-json, <json-parse-error> };
use locators,
import: { <directory-locator>,
<file-locator>,
merge-locators,
resolve-locator,
simplify-locator,
subdirectory-locator };
use operating-system,
prefix: "os/";
use simple-profiling, // from common-dylan
import: { timing };
use streams,
import: { <stream>, read-to-end, with-output-to-string, write };
use strings,
import: { decimal-digit?,
ends-with?,
find-substring,
replace-substrings,
starts-with?,
strip,
strip-left,
strip-right,
whitespace? };
use xml-parser,
rename: { <element> => xml/<element> };
use uuid,
import: { make-uuid4 };
end module;