picowiki

commit 5bb26243ba77f51a03a29d301bd6078494b62d4f
parent 440c64205ef572a4073e34b52a816c7e62363d27
Author: tomas <tomas@logand.com>
Date:   Mon, 26 Jul 2010 22:32:09 +0200

er.l, init.l, main.l added

Diffstat:
A
er.l
 | 
7
+++++++
A
init.l
 | 
3
+++
A
main.l
 | 
17
+++++++++++++++++

3 files changed, 27 insertions(+), 0 deletions(-)
diff --git a/er.l b/er.l
@@ -0,0 +1,7 @@
+(class +Pg +Entity)
+
+(rel nm (+Key +String))
+(rel txt (+Blob))
+
+(dbs
+   (1 +Pg) )                            # (1 . 128)
diff --git a/init.l b/init.l
@@ -0,0 +1,3 @@
+(let D "init/"
+   (for F (dir D)
+      (blob! (new! '(+Pg) 'nm F) 'txt (pack D F)) ) )
diff --git a/main.l b/main.l
@@ -0,0 +1,17 @@
+(allowed () "@start" "favicon.ico")
+
+(load "@lib/http.l" "lib/xml.l")
+(load "er.l")
+
+(setq *Blob "blob/")
+
+(de main ()
+   (call 'mkdir "-p" "db/" *Blob)
+   (pool "db/" *Dbs)
+   (unless (seq *DB)
+      (load "init.l") ) )
+
+(de go ()
+   (pw 12)
+   (rollback)
+   (server 8080 "@start") )