replica

来自「A very small LISP implementation with se」· 代码 · 共 32 行

#!bin/picolisp lib.l
# 21aug07abu
# Use: bin/replica <port> <keyFile> <journal> <dbFile> <blob/app/> [dbs1 ..]
#    : bin/ssl <host> 443 <port>/@replica <keyFile> <journal> <blob/app/> 60

(load "@lib/misc.l" "@lib/http.l")

(allowed NIL "@replica")

(argv *Port *KeyFile *Journal *Pool *Blob . *Dbs)

(setq
   *Port (format *Port)
   *SSLKey (in *KeyFile (line T)) )

(de replica ()
   (ctl *KeyFile
      (protect
         (when (= (line T) *SSLKey)
            (let? X (line T)
               (if (format X)
                  (when (out (tmp 'replica) (echo @))    # Journal
                     (prin (peek))
                     (flush)
                     (journal (tmp 'replica)) )
                  (let Blob (pack *Blob X)               # Blob
                     (call 'mkdir "-p" (dirname Blob))
                     (out Blob (echo)) ) ) ) ) ) ) )

(pool *Pool (mapcar format *Dbs) *Journal)
(server *Port)