31 lines
1.3 KiB
Scheme
31 lines
1.3 KiB
Scheme
#lang scheme/base
|
|
(require mzlib/contract)
|
|
(require "../servlet/servlet-structs.ss")
|
|
|
|
(define-struct manager (create-instance
|
|
adjust-timeout!
|
|
clear-continuations!
|
|
continuation-store!
|
|
continuation-lookup)
|
|
#:mutable)
|
|
|
|
(define-struct (exn:fail:servlet-manager:no-instance exn:fail) (expiration-handler)
|
|
#:mutable)
|
|
(define-struct (exn:fail:servlet-manager:no-continuation exn:fail) (expiration-handler)
|
|
#:mutable)
|
|
|
|
(provide/contract
|
|
[struct manager ([create-instance ((-> void) . -> . number?)]
|
|
[adjust-timeout! (number? number? . -> . void)]
|
|
[clear-continuations! (number? . -> . void)]
|
|
[continuation-store! (number? any/c expiration-handler? . -> . (list/c number? number?))]
|
|
[continuation-lookup (number? number? number? . -> . any/c)])]
|
|
[struct (exn:fail:servlet-manager:no-instance exn:fail)
|
|
([message string?]
|
|
[continuation-marks continuation-mark-set?]
|
|
[expiration-handler expiration-handler?])]
|
|
[struct (exn:fail:servlet-manager:no-continuation exn:fail)
|
|
([message string?]
|
|
[continuation-marks continuation-mark-set?]
|
|
[expiration-handler expiration-handler?])])
|