first commit main

1 files changed, 21 insertions, 0 deletions

@@ -0,0 +1,21 @@
+(import (cock)
+        (chicken process-context))
+
+(define (main args)
+  (define root (current-directory))
+  (define port 8000)
+  (let loop ((args args))
+    (cond
+     ((null? args) (serve root port))
+     ((equal? (car args) "-p")
+      (set! port (cadr args))
+      (loop (cddr args)))
+     (else
+      (set! root (car args))
+      ;; Stop processing arguments
+      (loop '())))))
+
+(cond-expand
+  ((or chicken-script compiling)
+   (main (command-line-arguments)))
+  (else))