28 lines
1.2 KiB
Scheme
28 lines
1.2 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))
|
|
|
|
(define-struct (exn:fail:servlet-manager:no-instance exn:fail) (expiration-handler))
|
|
(define-struct (exn:fail:servlet-manager:no-continuation exn:fail) (expiration-handler))
|
|
|
|
(provide/contract
|
|
[struct manager ([create-instance ((-> void) . -> . number?)]
|
|
[adjust-timeout! (number? number? . -> . void)]
|
|
[clear-continuations! (number? . -> . void)]
|
|
[continuation-store! (number? any/c expiration-handler/c . -> . (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/c])]
|
|
[struct (exn:fail:servlet-manager:no-continuation exn:fail)
|
|
([message string?]
|
|
[continuation-marks continuation-mark-set?]
|
|
[expiration-handler expiration-handler/c])])
|