#lang scheme/base
(require scheme/contract
         mzlib/trace
         "request.ss"
         web-server/http/request-structs
         )
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SHP: Hypertext Processor
;;
;; a PHP like web framework for PLT Scheme
;;
;; Bonzai Lab, LLC.  All rights reserved.
;;
;; Licensed under LGPL.
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; servlet.ss
;; servlet adapter for SHP scripts 
;; yc 8/14/2009 - first version

(define (servlet! path (request ($request)) #:start (start 'start))
  ((dynamic-require path start) request))

(provide/contract 
 (servlet! (->* (module-path?)
                (request?
                 #:start symbol?)
                any))
 )