main.ss

#lang scheme/base

(require "arg.ss"
         "codec.ss"
         "core.ss"
         "define-site.ss"
         "define-controller.ss"
         "response.ss")

; Provide statements -----------------------------

(provide ; core.ss:
         (struct-out site)
         (struct-out rule)
         (struct-out pattern)
         (struct-out arg)
         (struct-out controller)
         link-formats
         link-substitutes
         default-link-format
         default-link-substitute
         
         plain-controller-wrapper
         default-controller-wrapper
         default-access-procedure
         default-controller-undefined-responder
         default-access-denied-responder
         
         ; define-site.ss:
         define-site
         site-out
         
         ; define-controller.ss:
         define-controller
         
         ; codec.ss:
         site-dispatch
         controller-url
         controller-access?
         controller-link
         
         ; arg.ss:
         boolean-arg
         time-utc-arg
         integer-arg
         number-arg
         string-arg
         symbol-arg
         url-arg
         enum-arg
         rest-arg)