21739
#hash(((form ((lib "web-server/lang/serial-lambda.rkt") serial-lambda)) . ((22076 . 2))) ((def ((lib "web-server/private/util.rkt") bytes-ci=?)) . ((23151 . 4))) ((def ((lib "web-server/servlet-dispatch.rkt") serve/launch/wait)) . ((11040 . 18))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-table-messages)) . ((15442 . 8))) ((def ((lib "web-server/dispatchers/dispatch-log.rkt") format-req/c)) . ((1834 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host?)) . ((15704 . 16))) ((sig-val ((lib "web-server/web-config-sig.rkt") web-config^ make-servlet-namespace)) . ((12434 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") configuration-table-port)) . ((14776 . 12))) ((def ((lib "web-server/private/connection-manager.rkt") start-connection-manager)) . ((21551 . 2))) ((def ((lib "web-server/dispatchers/dispatch-filter.rkt") make)) . ((1625 . 4))) ((def ((lib "web-server/private/cache-table.rkt") cache-table-lookup!)) . ((22282 . 5))) ((def ((lib "web-server/private/url-param.rkt") insert-param)) . ((22845 . 5))) ((form ((lib "web-server/web-config-sig.rkt") web-config^)) . ((12199 . 2))) ((form ((lib "web-server/web-server-sig.rkt") web-server^)) . ((11944 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") messages?)) . ((17409 . 16))) ((def ((lib "web-server/dispatchers/dispatch-sequencer.rkt") make)) . ((1380 . 3))) ((sig-val ((lib "web-server/web-config-sig.rkt") web-config^ initial-connection-timeout)) . ((12315 . 2))) ((sig-val ((lib "web-server/web-config-sig.rkt") web-config^ virtual-hosts)) . ((12266 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") configuration-table-default-host)) . ((14776 . 12))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") timeouts-default-servlet)) . ((18147 . 12))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders-servlet)) . ((16393 . 18))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders-servlet-loading)) . ((16393 . 18))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") messages-protocol)) . ((17409 . 16))) ((def ((lib "web-server/private/mime-types.rkt") read-mime-types)) . ((22531 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host)) . ((15704 . 16))) ((def ((lib "web-server/dispatchers/dispatch-host.rkt") make)) . ((2877 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") struct:timeouts)) . ((18147 . 12))) ((def ((lib "web-server/private/timer.rkt") timer-expire-seconds)) . ((20784 . 6))) ((def ((lib "web-server/dispatchers/dispatch.rkt") struct:exn:dispatcher)) . ((935 . 3))) ((def ((lib "web-server/configuration/responders.rkt") gen-servlets-refreshed)) . ((20160 . 3))) ((sig-val ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server-config^ read-request)) . ((443 . 5))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") messages)) . ((17409 . 16))) ((def ((lib "web-server/dispatchers/dispatch-lift.rkt") make)) . ((1541 . 3))) ((def ((lib "web-server/private/servlet.rkt") servlet-manager)) . ((5614 . 9))) ((def ((lib "web-server/configuration/configuration-table.rkt") configuration-table->sexpr)) . ((14441 . 4))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders-passwords-refreshed)) . ((16393 . 18))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") messages-collect-garbage)) . ((17409 . 16))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-table-log-format)) . ((15442 . 8))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") make-host)) . ((15704 . 16))) ((sig-val ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server-config^ dispatch)) . ((633 . 2))) ((def ((lib "web-server/dispatchers/dispatch-passwords.rkt") denied?/c)) . ((2259 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") configuration-table?)) . ((14776 . 12))) ((sig-val ((lib "web-server/web-server-sig.rkt") web-server^ serve-ports)) . ((12014 . 4))) ((def ((lib "web-server/private/timer.rkt") timer-evt)) . ((20784 . 6))) ((def ((lib "web-server/private/timer.rkt") reset-timer!)) . ((21090 . 4))) ((def ((lib "web-server/private/connection-manager.rkt") connection-close?)) . ((21302 . 8))) ((def ((lib "web-server/dispatchers/limit.rkt") make)) . ((6021 . 5))) ((def ((lib "web-server/private/servlet.rkt") servlet?)) . ((5614 . 9))) ((def ((lib "web-server/configuration/configuration-table.rkt") sexpr->configuration-table)) . ((14328 . 3))) ((def ((lib "web-server/web-server.rkt") serve/ports)) . ((7255 . 19))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") make-messages)) . ((17409 . 16))) ((def ((lib "web-server/dispatchers/filesystem-map.rkt") make-url->path)) . ((1097 . 3))) ((def ((lib "web-server/dispatchers/dispatch-pathprocedure.rkt") make)) . ((1723 . 4))) ((def ((lib "web-server/private/util.rkt") explode-path*)) . ((23454 . 3))) ((def ((lib "web-server/private/mod-map.rkt") compress-serial)) . ((22721 . 3))) ((def ((lib "web-server/dispatchers/dispatch-passwords.rkt") make-basic-denied?/path)) . ((2658 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") configuration-table-initial-connection-timeout)) . ((14776 . 12))) ((sig-val ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server^ serve)) . ((41 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-table-timeouts)) . ((15442 . 8))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") struct:configuration-table)) . ((14776 . 12))) ((def ((lib "web-server/private/timer.rkt") start-timer-manager)) . ((20957 . 2))) ((def ((lib "web-server/private/util.rkt") path-without-base)) . ((23533 . 4))) ((def ((lib "web-server/private/servlet.rkt") make-servlet)) . ((5614 . 9))) ((sig-val ((lib "web-server/web-server-sig.rkt") web-server^ serve)) . ((11980 . 2))) ((def ((lib "web-server/private/cache-table.rkt") cache-table-clear!)) . ((22403 . 3))) ((def ((lib "web-server/private/util.rkt") build-path-unless-absolute)) . ((23712 . 4))) ((sig-val ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server^ serve-ports)) . ((146 . 4))) ((def ((lib "web-server/web-config-unit.rkt") configuration-table->web-config@)) . ((12492 . 12))) ((def ((lib "web-server/servlet/setup.rkt") make-default-path->servlet)) . ((4926 . 8))) ((def ((lib "web-server/private/mime-types.rkt") make-path->mime-type)) . ((22616 . 3))) ((def ((lib "web-server/configuration/responders.rkt") gen-collect-garbage-responder)) . ((20689 . 3))) ((def ((lib "web-server/dispatchers/dispatch-log.rkt") apache-default-format)) . ((1942 . 2))) ((def ((lib "web-server/private/connection-manager.rkt") kill-connection!)) . ((21917 . 3))) ((def ((lib "web-server/dispatchers/filesystem-map.rkt") url->path/c)) . ((1065 . 2))) ((def ((lib "web-server/private/connection-manager.rkt") new-connection)) . ((21598 . 11))) ((sig-val ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server-config^ max-waiting)) . ((360 . 2))) ((def ((lib "web-server/private/util.rkt") directory-part)) . ((23648 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders-servlets-refreshed)) . ((16393 . 18))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") timeouts)) . ((18147 . 12))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") make-host-table)) . ((15442 . 8))) ((def ((lib "web-server/private/servlet.rkt") struct:servlet)) . ((5614 . 9))) ((def ((lib "web-server/private/servlet.rkt") set-servlet-namespace!)) . ((5614 . 9))) ((def ((lib "web-server/private/util.rkt") network-error)) . ((23911 . 5))) ((sig-val ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server-config^ initial-connection-timeout)) . ((397 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-indices)) . ((15704 . 16))) ((def ((lib "web-server/private/util.rkt") strip-prefix-ups)) . ((23820 . 3))) ((def ((lib "web-server/private/util.rkt") exn->string)) . ((24017 . 3))) ((def ((lib "web-server/servlet/setup.rkt") default-module-specs)) . ((4836 . 2))) ((def ((lib "web-server/private/timer.rkt") timer-action)) . ((20784 . 6))) ((def ((lib "web-server/dispatchers/dispatch.rkt") dispatcher-interface-version/c)) . ((855 . 3))) ((def ((lib "web-server/configuration/responders.rkt") servlet-error-responder)) . ((19946 . 4))) ((def ((lib "web-server/dispatchers/dispatch-log.rkt") log-format/c)) . ((1987 . 2))) ((def ((lib "web-server/web-server.rkt") serve/web-config@)) . ((9466 . 4))) ((def ((lib "web-server/private/cache-table.rkt") cache-table?)) . ((22473 . 3))) ((def ((lib "web-server/private/connection-manager.rkt") make-connection)) . ((21302 . 8))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") configuration-table-max-waiting)) . ((14776 . 12))) ((def ((lib "web-server/servlet-dispatch.rkt") dispatch/servlet)) . ((9692 . 22))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") struct:responders)) . ((16393 . 18))) ((def ((lib "web-server/configuration/responders.rkt") gen-servlet-responder)) . ((20041 . 4))) ((def ((lib "web-server/private/timer.rkt") struct:timer)) . ((20784 . 6))) ((def ((lib "web-server/private/timer.rkt") cancel-timer!)) . ((21246 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") messages-file-not-found)) . ((17409 . 16))) ((sig-val ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server-config^ listen-ip)) . ((315 . 2))) ((def ((lib "web-server/servlet/setup.rkt") make-v1.servlet)) . ((4132 . 5))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") paths-host-base)) . ((18681 . 16))) ((def ((lib "web-server/dispatchers/dispatch-stat.rkt") make-gc-thread)) . ((5918 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") timeouts-servlet-connection)) . ((18147 . 12))) ((def ((lib "web-server/dispatchers/filesystem-map.rkt") make-url->valid-path)) . ((1173 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-table)) . ((15442 . 8))) ((def ((lib "web-server/configuration/configuration-table.rkt") read-configuration-table)) . ((14557 . 3))) ((def ((lib "web-server/configuration/responders.rkt") gen-authentication-responder)) . ((20337 . 4))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders-file-not-found)) . ((16393 . 18))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-table?)) . ((15442 . 8))) ((def ((lib "web-server/private/servlet.rkt") servlet-handler)) . ((5614 . 9))) ((def ((lib "web-server/private/connection-manager.rkt") connection-i-port)) . ((21302 . 8))) ((form ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server-config^)) . ((235 . 2))) ((def ((lib "web-server/dispatchers/dispatch-servlets.rkt") make)) . ((3613 . 10))) ((def ((lib "web-server/web-server-unit.rkt") web-server@)) . ((12103 . 3))) ((def ((lib "web-server/dispatchers/dispatch.rkt") make-exn:dispatcher)) . ((935 . 3))) ((def ((lib "web-server/private/timer.rkt") timer)) . ((20784 . 6))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-timeouts)) . ((15704 . 16))) ((sig-val ((lib "web-server/web-config-sig.rkt") web-config^ listen-ip)) . ((12389 . 2))) ((def ((lib "web-server/dispatchers/dispatch-files.rkt") make)) . ((2989 . 8))) ((def ((lib "web-server/private/servlet.rkt") servlet-directory)) . ((5614 . 9))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") paths-passwords)) . ((18681 . 16))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") configuration-table-virtual-hosts)) . ((14776 . 12))) ((def ((lib "web-server/dispatchers/dispatch.rkt") exn:dispatcher)) . ((935 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-table-paths)) . ((15442 . 8))) ((def ((lib "web-server/dispatchers/dispatch-passwords.rkt") password-file->authorized?)) . ((2756 . 4))) ((def ((lib "web-server/servlet/setup.rkt") path->servlet/c)) . ((4890 . 2))) ((def ((lib "web-server/private/connection-manager.rkt") connection-timer)) . ((21302 . 8))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") messages-passwords-refreshed)) . ((17409 . 16))) ((def ((lib "web-server/dispatchers/dispatch-servlets.rkt") make-cached-url->servlet)) . ((3413 . 6))) ((def ((lib "web-server/web-config-unit.rkt") configuration-table-sexpr->web-config@)) . ((13239 . 15))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") paths-log)) . ((18681 . 16))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") struct:host)) . ((15704 . 16))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-table-indices)) . ((15442 . 8))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders-protocol)) . ((16393 . 18))) ((form ((lib "web-server/lang/serial-lambda.rkt") serial-case-lambda)) . ((22119 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") configuration-table)) . ((14776 . 12))) ((def ((lib "web-server/dispatchers/dispatch-timeout.rkt") make)) . ((1464 . 3))) ((def ((lib "web-server/private/servlet.rkt") set-servlet-manager!)) . ((5614 . 9))) ((def ((lib "web-server/dispatchers/dispatch-log.rkt") paren-format)) . ((1867 . 2))) ((def ((lib "web-server/configuration/responders.rkt") file-response)) . ((19455 . 9))) ((form ((lib "web-server/private/define-closure.rkt") define-closure)) . ((22174 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-log-path)) . ((15704 . 16))) ((def ((lib "web-server/private/connection-manager.rkt") connection)) . ((21302 . 8))) ((def ((lib "web-server/dispatchers/filesystem-map.rkt") filter-url->path)) . ((1264 . 4))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") messages-servlet)) . ((17409 . 16))) ((def ((lib "web-server/configuration/configuration-table.rkt") write-configuration-table)) . ((14652 . 4))) ((def ((lib "web-server/private/servlet.rkt") servlet)) . ((5614 . 9))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") paths-mime-types)) . ((18681 . 16))) ((def ((lib "web-server/configuration/configuration-table.rkt") default-configuration-table-path)) . ((14218 . 2))) ((def ((lib "web-server/servlet/setup.rkt") make-stateless.servlet)) . ((4484 . 9))) ((def ((lib "web-server/private/util.rkt") url-replace-path)) . ((23232 . 4))) ((def ((lib "web-server/configuration/namespace.rkt") make-servlet-namespace/c)) . ((5385 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") paths)) . ((18681 . 16))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") make-responders)) . ((16393 . 18))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") messages-servlets-refreshed)) . ((17409 . 16))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") paths-conf)) . ((18681 . 16))) ((def ((lib "web-server/configuration/responders.rkt") servlet-loading-responder)) . ((19745 . 4))) ((def ((lib "web-server/dispatchers/dispatch-log.rkt") log-format->format)) . ((2020 . 3))) ((def ((lib "web-server/private/connection-manager.rkt") connection-o-port)) . ((21302 . 8))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") paths-htdocs)) . ((18681 . 16))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") paths?)) . ((18681 . 16))) ((def ((lib "web-server/private/mod-map.rkt") decompress-serial)) . ((22781 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") timeouts-file-base)) . ((18147 . 12))) ((def ((lib "web-server/private/util.rkt") url-path->string)) . ((23363 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") struct:host-table)) . ((15442 . 8))) ((def ((lib "web-server/private/cache-table.rkt") make-cache-table)) . ((22235 . 2))) ((def ((lib "web-server/configuration/responders.rkt") gen-servlet-not-found)) . ((19842 . 3))) ((def ((lib "web-server/private/servlet.rkt") set-servlet-custodian!)) . ((5614 . 9))) ((def ((lib "web-server/dispatchers/dispatch.rkt") dispatcher/c)) . ((822 . 2))) ((def ((lib "web-server/dispatchers/dispatch-log.rkt") make)) . ((2097 . 4))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") make-configuration-table)) . ((14776 . 12))) ((form ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server^)) . ((0 . 2))) ((sig-val ((lib "web-server/web-config-sig.rkt") web-config^ max-waiting)) . ((12235 . 2))) ((def ((lib "web-server/configuration/responders.rkt") gen-file-not-found-responder)) . ((20573 . 4))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-passwords)) . ((15704 . 16))) ((def ((lib "web-server/private/servlet.rkt") set-servlet-directory!)) . ((5614 . 9))) ((def ((lib "web-server/private/timer.rkt") start-timer)) . ((20999 . 4))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") messages-authentication)) . ((17409 . 16))) ((def ((lib "web-server/dispatchers/dispatch.rkt") next-dispatcher)) . ((1027 . 2))) ((def ((lib "web-server/private/connection-manager.rkt") adjust-connection-timeout!)) . ((21981 . 4))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") paths-servlet)) . ((18681 . 16))) ((sig-val ((lib "web-server/private/dispatch-server-sig.rkt") dispatch-server-config^ port)) . ((283 . 2))) ((def ((lib "web-server/configuration/responders.rkt") gen-protocol-responder)) . ((20468 . 3))) ((def ((lib "web-server/private/timer.rkt") increment-timer!)) . ((21166 . 4))) ((def ((lib "web-server/web-server.rkt") serve/ips+ports)) . ((8366 . 18))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders?)) . ((16393 . 18))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") struct:paths)) . ((18681 . 16))) ((def ((lib "web-server/web-server.rkt") serve)) . ((6217 . 19))) ((def ((lib "web-server/private/dispatch-server-unit.rkt") dispatch-server@)) . ((683 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") make-timeouts)) . ((18147 . 12))) ((def ((lib "web-server/private/servlet.rkt") servlet-namespace)) . ((5614 . 9))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") timeouts-file-per-byte)) . ((18147 . 12))) ((def ((lib "web-server/private/servlet.rkt") servlet-custodian)) . ((5614 . 9))) ((def ((lib "web-server/private/connection-manager.rkt") connection?)) . ((21302 . 8))) ((def ((lib "web-server/dispatchers/dispatch.rkt") exn:dispatcher?)) . ((935 . 3))) ((def ((lib "web-server/configuration/configuration-table.rkt") configuration-table-sexpr?)) . ((14267 . 2))) ((def ((lib "web-server/private/connection-manager.rkt") struct:connection)) . ((21302 . 8))) ((def ((lib "web-server/dispatchers/dispatch-passwords.rkt") authorized?/c)) . ((2624 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") struct:messages)) . ((17409 . 16))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-log-format)) . ((15704 . 16))) ((sig-val ((lib "web-server/web-config-sig.rkt") web-config^ port)) . ((12361 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders-collect-garbage)) . ((16393 . 18))) ((def ((lib "web-server/servlet/setup.rkt") make-v2.servlet)) . ((4308 . 5))) ((def ((lib "web-server/dispatchers/dispatch-passwords.rkt") make)) . ((2289 . 7))) ((def ((lib "web-server/private/servlet.rkt") set-servlet-handler!)) . ((5614 . 9))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-responders)) . ((15704 . 16))) ((def ((lib "web-server/configuration/responders.rkt") gen-passwords-refreshed)) . ((20248 . 3))) ((def ((lib "web-server/configuration/namespace.rkt") make-make-servlet-namespace)) . ((5430 . 4))) ((def ((lib "web-server/private/timer.rkt") timer?)) . ((20784 . 6))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders)) . ((16393 . 18))) ((def ((lib "web-server/web-server.rkt") do-not-return)) . ((9656 . 2))) ((def ((lib "web-server/private/connection-manager.rkt") connection-custodian)) . ((21302 . 8))) ((def ((lib "web-server/dispatchers/dispatch-stat.rkt") make)) . ((5986 . 2))) ((def ((lib "web-server/private/timer.rkt") make-timer)) . ((20784 . 6))) ((def ((lib "web-server/dispatchers/dispatch-log.rkt") extended-format)) . ((1903 . 2))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") host-paths)) . ((15704 . 16))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") responders-authentication)) . ((16393 . 18))) ((def ((lib "web-server/private/gzip.rkt") gzip/bytes)) . ((23035 . 3))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") make-paths)) . ((18681 . 16))) ((def ((lib "web-server/private/gzip.rkt") gunzip/bytes)) . ((23092 . 3))) ((def ((lib "web-server/dispatchers/dispatch-servlets.rkt") url->servlet/c)) . ((3378 . 2))) ((def ((lib "web-server/private/url-param.rkt") extract-param)) . ((22940 . 4))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") timeouts-password)) . ((18147 . 12))) ((def ((lib "web-server/configuration/configuration-table-structs.rkt") timeouts?)) . ((18147 . 12))))
signature
dispatch-server^ : signature
procedure
(serve)
 -> (->* () (#:confirmation-channel (or/c false/c async-channel?)) (-> void))
procedure
(serve-ports ip op) -> void
  ip : input-port?
  op : output-port?
signature
dispatch-server-config^ : signature
value
port : tcp-listen-port?
value
listen-ip : (or/c string? false/c)
value
max-waiting : exact-integer?
value
initial-connection-timeout : integer?
procedure
(read-request c p port-addresses) -> any/c boolean?
  c : connection?
  p : tcp-listen-port?
  port-addresses : (input-port? . -> . (values string? string?))
value
dispatch : (-> connection? any/c void)
value
dispatch-server@ : (unit/c (import tcp^ dispatch-server-config^)
                           (export dispatch-server^))
value
dispatcher/c : contract?
procedure
(dispatcher-interface-version/c any) -> boolean?
  any : any/c
struct
(struct exn:dispatcher ()
        #:extra-constructor-name make-exn:dispatcher)
procedure
(next-dispatcher) -> void
value
url->path/c : contract?
procedure
(make-url->path base) -> url->path/c
  base : path-string?
procedure
(make-url->valid-path url->path) -> url->path/c
  url->path : url->path/c
procedure
(filter-url->path regex url->path) -> url->path/c
  regex : regexp?
  url->path : url->path/c
procedure
(make dispatcher ...) -> dispatcher/c
  dispatcher : dispatcher/c
procedure
(make new-timeout) -> dispatcher/c
  new-timeout : integer?
procedure
(make proc) -> dispatcher/c
  proc : (request? . -> . response?)
procedure
(make regex inner) -> dispatcher/c
  regex : regexp?
  inner : dispatcher/c
procedure
(make path proc) -> dispatcher/c
  path : string?
  proc : (request? . -> . response?)
value
format-req/c : contract?
value
paren-format : format-req/c
value
extended-format : format-req/c
value
apache-default-format : format-req/c
value
log-format/c : contract?
procedure
(log-format->format id) -> format-req/c
  id : log-format/c
procedure
(make [#:format format #:log-path log-path]) -> dispatcher/c
  format : format-req/c = paren-format
  log-path : path-string? = "log"
value
denied?/c : contract?
procedure
(make  denied?                                               
      [#:authentication-responder authentication-responder]) 
 -> dispatcher/c
  denied? : denied?/c
  authentication-responder : (url? header? . -> . response?)
                           = (gen-authentication-responder "forbidden.html")
value
authorized?/c : contract?
procedure
(make-basic-denied?/path authorized?) -> denied?/c
  authorized? : authorized?/c
procedure
(password-file->authorized? password-file)
 -> (-> void) authorized?/c
  password-file : path-string?
procedure
(make lookup-dispatcher) -> dispatcher/c
  lookup-dispatcher : (symbol? . -> . dispatcher/c)
procedure
(make  #:url->path url->path                 
      [#:path->mime-type path->mime-type     
       #:indices indices])               -> dispatcher/c
  url->path : url->path/c
  path->mime-type : (path? . -> . (or/c false/c bytes)?)
                  = (lambda (path) #f)
  indices : (listof string?) = (list "index.html" "index.htm")
value
url->servlet/c : contract?
procedure
(make-cached-url->servlet url->path      
                          path->serlvet) 
 -> (-> void) url->servlet/c
  url->path : url->path/c
  path->serlvet : path->servlet/c
procedure
(make  url->servlet                                            
      [#:responders-servlet-loading responders-servlet-loading 
       #:responders-servlet responders-servlet])               
 -> dispatcher/c
  url->servlet : url->servlet/c
  responders-servlet-loading : (url? exn? . -> . can-be-response?)
                             = servlet-loading-responder
  responders-servlet : (url? exn? . -> . can-be-response?)
                     = servlet-error-responder
procedure
(make-v1.servlet directory timeout start) -> servlet?
  directory : path-string?
  timeout : integer?
  start : (request? . -> . can-be-response?)
procedure
(make-v2.servlet directory manager start) -> servlet?
  directory : path-string?
  manager : manager?
  start : (request? . -> . can-be-response?)
procedure
(make-stateless.servlet directory     
                        stuffer       
                        manager       
                        start)    -> servlet?
  directory : path-string?
  stuffer : (stuffer/c serializable? bytes?)
  manager : manager?
  start : (request? . -> . can-be-response?)
value
default-module-specs : (listof module-path?)
value
path->servlet/c : contract?
procedure
(make-default-path->servlet                                                        
                            [#:make-servlet-namespace make-servlet-namespace       
                             #:timeouts-default-servlet timeouts-default-servlet]) 
 -> path->servlet/c
  make-servlet-namespace : make-servlet-namespace/c
                         = (make-make-servlet-namespace)
  timeouts-default-servlet : integer? = 30
value
make-servlet-namespace/c : contract?
procedure
(make-make-servlet-namespace #:to-be-copied-module-specs to-be-copied-module-specs)
 -> make-servlet-namespace/c
  to-be-copied-module-specs : (listof module-path?)
struct
(struct servlet (custodian namespace manager directory handler)
        #:constructor-name make-servlet
        #:mutable)
  custodian : custodian?
  namespace : namespace?
  manager : manager?
  directory : path-string?
  handler : (request? . -> . can-be-response?)
procedure
(make-gc-thread time) -> thread?
  time : integer?
procedure
(make) -> dispatcher/c
procedure
(make limit inner [#:over-limit over-limit]) -> dispatcher/c
  limit : number?
  inner : dispatcher/c
  over-limit : (symbols 'block 'kill-new 'kill-old) = 'block
procedure
(serve                                                            
        #:dispatch dispatch                                       
       [#:confirmation-channel confirmation-channel               
        #:connection-close? connection-close?                     
        #:tcp@ tcp@                                               
        #:port port                                               
        #:listen-ip listen-ip                                     
        #:max-waiting max-waiting                                 
        #:initial-connection-timeout initial-connection-timeout]) 
 -> (-> void)
  dispatch : dispatcher/c
  confirmation-channel : (or/c false/c async-channel?) = #f
  connection-close? : boolean? = #f
  tcp@ : (unit/c (import) (export tcp^)) = raw:tcp@
  port : tcp-listen-port? = 80
  listen-ip : (or/c string? false/c) = #f
  max-waiting : integer? = 40
  initial-connection-timeout : integer? = 60
procedure
(serve/ports                                                            
              #:dispatch dispatch                                       
             [#:confirmation-channel confirmation-channel               
              #:connection-close? connection-close?                     
              #:tcp@ tcp@                                               
              #:ports ports                                             
              #:listen-ip listen-ip                                     
              #:max-waiting max-waiting                                 
              #:initial-connection-timeout initial-connection-timeout]) 
 -> (-> void)
  dispatch : dispatcher/c
  confirmation-channel : (or/c false/c async-channel?) = #f
  connection-close? : boolean? = #f
  tcp@ : (unit/c (import) (export tcp^)) = raw:tcp@
  ports : (listof tcp-listen-port?) = (list 80)
  listen-ip : (or/c string? false/c) = #f
  max-waiting : integer? = 40
  initial-connection-timeout : integer? = 60
procedure
(serve/ips+ports                                                            
                  #:dispatch dispatch                                       
                 [#:confirmation-channel confirmation-channel               
                  #:connection-close? connection-close?                     
                  #:tcp@ tcp@                                               
                  #:ips+ports ips+ports                                     
                  #:max-waiting max-waiting                                 
                  #:initial-connection-timeout initial-connection-timeout]) 
 -> (-> void)
  dispatch : dispatcher/c
  confirmation-channel : (or/c false/c async-channel?) = #f
  connection-close? : boolean? = #f
  tcp@ : (unit/c (import) (export tcp^)) = raw:tcp@
  ips+ports : (listof (cons/c (or/c string? false/c) (listof tcp-listen-port?)))
            = (list (cons #f (list 80)))
  max-waiting : integer? = 40
  initial-connection-timeout : integer? = 60
procedure
(serve/web-config@ config@ [#:tcp@ tcp@]) -> (-> void)
  config@ : (unit/c (import) (export web-config^))
  tcp@ : (unit/c (import) (export tcp^)) = raw:tcp@
procedure
(do-not-return) -> void
procedure
(dispatch/servlet                                                          
                   start                                                   
                  [#:regexp regexp                                         
                   #:stateless? stateless?                                 
                   #:stuffer stuffer                                       
                   #:manager manager                                       
                   #:current-directory servlet-current-directory           
                   #:responders-servlet-loading responders-servlet-loading 
                   #:responders-servlet responders-servlet])               
 -> dispatcher/c
  start : (request? . -> . response?)
  regexp : regexp? = #rx""
  stateless? : boolean? = #f
  stuffer : (stuffer/c serializable? bytes?) = default-stuffer
  manager : manager?
          = (make-threshold-LRU-manager #f (* 1024 1024 64))
  servlet-current-directory : path-string? = (current-directory)
  responders-servlet-loading : (url? any/c . -> . can-be-response?)
                             = servlet-loading-responder
  responders-servlet : (url? any/c . -> . can-be-response?)
                     = servlet-error-responder
procedure
(serve/launch/wait  make-dispatcher                       
                   [#:connection-close? connection-close? 
                    #:launch-path launch-path             
                    #:banner? banner?                     
                    #:listen-ip listen-ip                 
                    #:port port                           
                    #:ssl-cert ssl-cert                   
                    #:ssl-key ssl-key])                   
 -> void
  make-dispatcher : (semaphore? . -> . dispatcher/c)
  connection-close? : boolean? = #f
  launch-path : (or/c false/c string?) = #f
  banner? : boolean? = #f
  listen-ip : (or/c false/c string?) = "127.0.0.1"
  port : number? = 8000
  ssl-cert : (or/c false/c path-string?) = #f
  ssl-key : (or/c false/c path-string?) = #f
signature
web-server^ : signature
procedure
(serve) -> (-> void)
procedure
(serve-ports ip op) -> void
  ip : input-port?
  op : output-port?
value
web-server@ : (unit/c (web-config^ tcp^)
                      (web-server^))
signature
web-config^ : signature
value
max-waiting : integer?
value
virtual-hosts : (string? . -> . host?)
value
initial-connection-timeout : integer?
value
port : port-number?
value
listen-ip : (or/c false/c string?)
value
make-servlet-namespace : make-servlet-namespace/c
procedure
(configuration-table->web-config@                                                    
                                   path                                              
                                  [#:port port                                       
                                   #:listen-ip listen-ip                             
                                   #:make-servlet-namespace make-servlet-namespace]) 
 -> (unit/c (import) (export web-config^))
  path : path-string?
  port : (or/c false/c port-number?) = #f
  listen-ip : (or/c false/c string?) = #f
  make-servlet-namespace : make-servlet-namespace/c
                         = (make-make-servlet-namespace)
procedure
(configuration-table-sexpr->web-config@                                                    
                                         sexpr                                             
                                        [#:web-server-root web-server-root                 
                                         #:port port                                       
                                         #:listen-ip listen-ip                             
                                         #:make-servlet-namespace make-servlet-namespace]) 
 -> (unit/c (import) (export web-config^))
  sexpr : list?
  web-server-root : path-string?
                  = (directory-part default-configuration-table-path)
  port : (or/c false/c port-number?) = #f
  listen-ip : (or/c false/c string?) = #f
  make-servlet-namespace : make-servlet-namespace/c
                         = (make-make-servlet-namespace)
value
default-configuration-table-path : path?
value
configuration-table-sexpr? : (any . -> . boolean?)
procedure
(sexpr->configuration-table sexpr) -> configuration-table?
  sexpr : configuration-table-sexpr?
procedure
(configuration-table->sexpr ctable)
 -> configuration-table-sexpr?
  ctable : configuration-table?
procedure
(read-configuration-table path) -> configuration-table?
  path : path-string?
procedure
(write-configuration-table ctable path) -> void
  ctable : configuration-table?
  path : path-string?
struct
(struct configuration-table                                (port
                                                           max-waiting
                                                           initial-connection-timeout
                                                           default-host
                                                           virtual-hosts)
        #:extra-constructor-name make-configuration-table)
  port : port-number?
  max-waiting : natural-number/c
  initial-connection-timeout : natural-number/c
  default-host : host-table?
  virtual-hosts : (listof (cons/c string? host-table?))
struct
(struct host-table (indices log-format messages timeouts paths)
        #:extra-constructor-name make-host-table)
  indices : (listof string?)
  log-format : symbol?
  messages : messages?
  timeouts : timeouts?
  paths : paths?
struct
(struct host                                (indices
                                            log-format
                                            log-path
                                            passwords
                                            responders
                                            timeouts
                                            paths)
        #:extra-constructor-name make-host)
  indices : (listof string?)
  log-format : symbol?
  log-path : (or/c false/c path-string?)
  passwords : (or/c false/c path-string?)
  responders : responders?
  timeouts : timeouts?
  paths : paths?
struct
(struct responders                                (servlet
                                                  servlet-loading
                                                  authentication
                                                  servlets-refreshed
                                                  passwords-refreshed
                                                  file-not-found
                                                  protocol
                                                  collect-garbage)
        #:extra-constructor-name make-responders)
  servlet : (url? any/c . -> . response?)
  servlet-loading : (url? any/c . -> . response?)
  authentication : (url? (cons/c symbol? string?) . -> . response?)
  servlets-refreshed : (-> response?)
  passwords-refreshed : (-> response?)
  file-not-found : (request? . -> . response?)
  protocol : (url? . -> . response?)
  collect-garbage : (-> response?)
struct
(struct messages                                (servlet
                                                authentication
                                                servlets-refreshed
                                                passwords-refreshed
                                                file-not-found
                                                protocol
                                                collect-garbage)
        #:extra-constructor-name make-messages)
  servlet : string?
  authentication : string?
  servlets-refreshed : string?
  passwords-refreshed : string?
  file-not-found : string?
  protocol : string?
  collect-garbage : string?
struct
(struct timeouts                                (default-servlet
                                                password
                                                servlet-connection
                                                file-per-byte
                                                file-base)
        #:extra-constructor-name make-timeouts)
  default-servlet : number?
  password : number?
  servlet-connection : number?
  file-per-byte : number?
  file-base : number?
struct
(struct paths                                (conf
                                             host-base
                                             log
                                             htdocs
                                             servlet
                                             mime-types
                                             passwords)
        #:extra-constructor-name make-paths)
  conf : (or/c false/c path-string?)
  host-base : (or/c false/c path-string?)
  log : (or/c false/c path-string?)
  htdocs : (or/c false/c path-string?)
  servlet : (or/c false/c path-string?)
  mime-types : (or/c false/c path-string?)
  passwords : (or/c false/c path-string?)
procedure
(file-response http-code         
               short-version     
               text-file         
               header ...)   -> response?
  http-code : natural-number/c
  short-version : string?
  text-file : string?
  header : header?
procedure
(servlet-loading-responder url exn) -> response?
  url : url?
  exn : exn?
procedure
(gen-servlet-not-found file) -> ((url url?) . -> . response?)
  file : path-string?
procedure
(servlet-error-responder url exn) -> response?
  url : url?
  exn : exn?
procedure
(gen-servlet-responder file)
 -> ((url url?) (exn any/c) . -> . response?)
  file : path-string?
procedure
(gen-servlets-refreshed file) -> (-> response?)
  file : path-string?
procedure
(gen-passwords-refreshed file) -> (-> response?)
  file : path-string?
procedure
(gen-authentication-responder file)
 -> ((url url?) (header header?) . -> . response?)
  file : path-string?
procedure
(gen-protocol-responder file) -> ((url url?) . -> . response?)
  file : path-string?
procedure
(gen-file-not-found-responder file)
 -> ((req request?) . -> . response?)
  file : path-string?
procedure
(gen-collect-garbage-responder file) -> (-> response?)
  file : path-string?
struct
(struct timer (evt expire-seconds action)
        #:extra-constructor-name make-timer)
  evt : evt?
  expire-seconds : number?
  action : (-> void)
procedure
(start-timer-manager) -> void
procedure
(start-timer s action) -> timer?
  s : number?
  action : (-> void)
procedure
(reset-timer! t s) -> void
  t : timer?
  s : number?
procedure
(increment-timer! t s) -> void
  t : timer?
  s : number?
procedure
(cancel-timer! t) -> void
  t : timer?
struct
(struct connection (timer i-port o-port custodian close?)
        #:extra-constructor-name make-connection)
  timer : timer?
  i-port : input-port?
  o-port : output-port?
  custodian : custodian?
  close? : boolean?
procedure
(start-connection-manager) -> void
procedure
(new-connection timeout     
                i-port      
                o-port      
                cust        
                close?) -> connection?
  timeout : number?
  i-port : input-port?
  o-port : output-port?
  cust : custodian?
  close? : boolean?
procedure
(kill-connection! c) -> void
  c : connection?
procedure
(adjust-connection-timeout! c t) -> void
  c : connection?
  t : number?
syntax
(serial-lambda formals body ...)
syntax
(serial-case-lambda [formals body ...] ...)
syntax
(define-closure tag formals (free-var ...) body)
procedure
(make-cache-table) -> cache-table?
procedure
(cache-table-lookup! ct id mk) -> any/c
  ct : cache-table?
  id : symbol?
  mk : (-> any/c)
procedure
(cache-table-clear! ct) -> void?
  ct : cache-table?
procedure
(cache-table? v) -> boolean?
  v : any/c
procedure
(read-mime-types p) -> (hash/c symbol? bytes?)
  p : path-string?
procedure
(make-path->mime-type p) -> (path? . -> . (or/c false/c bytes?))
  p : path-string?
procedure
(compress-serial sv) -> list?
  sv : list?
procedure
(decompress-serial csv) -> list?
  csv : list?
procedure
(insert-param u k v) -> url?
  u : url?
  k : string?
  v : string?
procedure
(extract-param u k) -> (or/c string? false/c)
  u : url?
  k : string?
procedure
(gzip/bytes ib) -> bytes?
  ib : bytes?
procedure
(gunzip/bytes ib) -> bytes?
  ib : bytes?
procedure
(bytes-ci=? b1 b2) -> boolean?
  b1 : bytes?
  b2 : bytes?
procedure
(url-replace-path proc u) -> url?
  proc : ((listof path/param?) . -> . (listof path/param?))
  u : url?
procedure
(url-path->string url-path) -> string?
  url-path : (listof path/param?)
procedure
(explode-path* p) -> (listof path-piece?)
  p : path-string?
procedure
(path-without-base base p) -> (listof path-piece?)
  base : path-string?
  p : path-string?
procedure
(directory-part p) -> path?
  p : path-string?
procedure
(build-path-unless-absolute base p) -> path?
  base : path-string?
  p : path-string?
procedure
(strip-prefix-ups p) -> (listof path-piece?)
  p : (listof path-piece?)
procedure
(network-error s fmt v ...) -> void
  s : symbol?
  fmt : string?
  v : any/c
procedure
(exn->string exn) -> string?
  exn : (or/c exn? any/c)
