#lang scheme
(require web-server/configuration/configuration-table
         web-server/configuration/configuration-table-structs
         web-server/web-config-unit
         web-server/web-config-sig
         web-server/web-server-unit
         web-server/web-server-sig
         net/tcp-sig
         (only-in web-server/web-server do-not-return))

(define current-configuration-table
  (read-configuration-table default-configuration-table-path))

(set-configuration-table-port! current-configuration-table
			       4113)

(define current-configuration-sexpr
  (configuration-table->sexpr current-configuration-table))

(display current-configuration-sexpr)

(define configuration@ (configuration-table-sexpr->web-config@
  current-configuration-sexpr))

(define-compound-unit launch@
  (import (T : tcp^))
  (export S)
  (link 
   [((C : web-config^)) configuration@]
   [((S : web-server^)) web-server@ T C]))

(define-values/invoke-unit
  launch@
  (import tcp^)
  (export web-server^))

;(provide serve)
;(void (serve))
;(do-not-return)