(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))