#lang scheme/base
(require mzlib/contract)
(require "../managers/manager.ss"
         "../private/request-structs.ss"
         "../private/response-structs.ss")

(define servlet-prompt (make-continuation-prompt-tag 'servlet))
(provide servlet-prompt)

(define-struct (exn:fail:servlet:instance exn:fail) ()
  #:mutable)
(define-struct servlet (custodian namespace manager handler)
  #:mutable)
(define-struct execution-context (request)
  #:mutable)

(define current-servlet (make-parameter #f))
(define current-servlet-instance-id (make-parameter #f))
(define current-execution-context (make-parameter #f))

(define (current-servlet-manager)
  (servlet-manager (current-servlet)))

(provide/contract
 [struct (exn:fail:servlet:instance exn:fail)
         ([message string?]
          [continuation-marks continuation-mark-set?])]
 [struct servlet 
         ([custodian custodian?]
          [namespace namespace?]
          [manager manager?]
          [handler (request? . -> . response?)])]
 [struct execution-context 
         ([request request?])]
 [current-servlet parameter?]
 [current-servlet-instance-id parameter?]
 [current-execution-context parameter?]
 [current-servlet-manager (-> manager?)])