blob: d01c7e97fbe6e63f01836ee7d96b2174440dc3d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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))
|