Renamed HTTPD-REQUEST to HTTPD-REQUESTS, now conforming to Scheme 48

convention.
This commit is contained in:
sperber 2002-11-26 12:52:39 +00:00
parent 5f3582d017
commit 2442e88ab7
8 changed files with 21 additions and 21 deletions

View File

@ -106,7 +106,7 @@
(servlet-handler/servlet servlet-handler/servlet-interface) (servlet-handler/servlet servlet-handler/servlet-interface)
(servlet-handler/admin servlet-handler/admin-interface)) (servlet-handler/admin servlet-handler/admin-interface))
(open httpd-responses (open httpd-responses
httpd-request httpd-requests
httpd-error httpd-error
uri ;URI-PATH-LIST->PATH uri ;URI-PATH-LIST->PATH
tables ;HASH-TABLES tables ;HASH-TABLES

View File

@ -1,6 +1,6 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open servlets (open servlets
httpd-request httpd-requests
httpd-responses httpd-responses
url url
scsh scsh

View File

@ -1,6 +1,6 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open servlets (open servlets
httpd-request httpd-requests
url url
handle-fatal-error handle-fatal-error
let-opt let-opt

View File

@ -1,6 +1,6 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open servlets (open servlets
httpd-request httpd-requests
handle-fatal-error handle-fatal-error
url url
scsh scsh

View File

@ -1,6 +1,6 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open servlets (open servlets
httpd-request httpd-requests
handle-fatal-error handle-fatal-error
let-opt let-opt
scsh scsh

View File

@ -1,6 +1,6 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open servlets (open servlets
httpd-request httpd-requests
handle-fatal-error handle-fatal-error
let-opt let-opt
scsh scsh

View File

@ -8,7 +8,7 @@
(subset srfi-13 (string-downcase string-join)) (subset srfi-13 (string-downcase string-join))
(subset srfi-1 (find filter-map split-at remove)) (subset srfi-1 (find filter-map split-at remove))
sunet-utilities sunet-utilities
httpd-request) httpd-requests)
(begin (begin
;;; Spaceship components ;;; Spaceship components

View File

@ -296,9 +296,9 @@
logging logging
make-logging)) make-logging))
(define-interface httpd-request-interface (define-interface httpd-requests-interface
(export make-request ; HTTP request (export make-request ; HTTP request
request? ; record type. request? ; record type.
request:method request:method
request:uri request:uri
request:url request:url
@ -702,7 +702,7 @@
httpd-read-options httpd-read-options
httpd-error httpd-error
httpd-logging httpd-logging
httpd-request httpd-requests
httpd-responses httpd-responses
sunet-version sunet-version
@ -719,7 +719,7 @@
(define-structure httpd-access-control httpd-access-control-interface (define-structure httpd-access-control httpd-access-control-interface
(open big-scheme (open big-scheme
httpd-responses httpd-responses
httpd-request httpd-requests
httpd-error httpd-error
srfi-13 ; STRING-MAP srfi-13 ; STRING-MAP
scsh scsh
@ -737,7 +737,7 @@
receiving ; receive receiving ; receive
uri ; uri-path-list->path uri ; uri-path-list->path
url ; http-url:path url ; http-url:path
httpd-request ; request record httpd-requests ; request record
formats ; format formats ; format
format-net ; format-internet-host-address format-net ; format-internet-host-address
srfi-13 ; string-join, string-trim srfi-13 ; string-join, string-trim
@ -752,7 +752,7 @@
scheme) scheme)
(files (httpd logging))) (files (httpd logging)))
(define-structure httpd-request httpd-request-interface (define-structure httpd-requests httpd-requests-interface
(open define-record-types ;; define-record-discloser (open define-record-types ;; define-record-discloser
defrec-package ;; define-record defrec-package ;; define-record
scheme) scheme)
@ -765,7 +765,7 @@
srfi-9 srfi-9
defenum-package defenum-package
formats formats
httpd-request httpd-requests
httpd-logging httpd-logging
httpd-read-options) httpd-read-options)
(files (httpd response))) (files (httpd response)))
@ -773,7 +773,7 @@
(define-structure httpd-basic-handlers httpd-basic-handlers-interface (define-structure httpd-basic-handlers httpd-basic-handlers-interface
(open scheme scsh (open scheme scsh
rfc822 rfc822
httpd-request ; REQUEST record type, v0.9-request httpd-requests ; REQUEST record type, v0.9-request
srfi-1 ; FOLD-RIGHT srfi-1 ; FOLD-RIGHT
srfi-13 ; STRING-TRIM srfi-13 ; STRING-TRIM
httpd-responses httpd-responses
@ -783,7 +783,7 @@
(define-structure httpd-file-directory-handlers httpd-file-directory-handlers-interface (define-structure httpd-file-directory-handlers httpd-file-directory-handlers-interface
(open scheme scsh (open scheme scsh
httpd-core httpd-core
httpd-request httpd-requests
httpd-responses httpd-responses
httpd-error httpd-error
httpd-basic-handlers httpd-basic-handlers
@ -801,7 +801,7 @@
(define-structure seval-handler seval-handler-interface (define-structure seval-handler seval-handler-interface
(open scsh ; syscalls & INDEX (open scsh ; syscalls & INDEX
httpd-error httpd-error
httpd-request ; v0.9-request httpd-requests ; v0.9-request
httpd-responses httpd-responses
httpd-logging ; http-log httpd-logging ; http-log
uri ; UNESCAPE-URI uri ; UNESCAPE-URI
@ -822,7 +822,7 @@
srfi-13 srfi-13
conditions signals handle conditions signals handle
htmlout htmlout
httpd-request httpd-requests
httpd-responses httpd-responses
httpd-error httpd-error
url url
@ -834,7 +834,7 @@
(define-structure rman-gateway rman-gateway-interface (define-structure rman-gateway rman-gateway-interface
(open httpd-responses (open httpd-responses
httpd-request httpd-requests
httpd-error httpd-error
conditions conditions
url url
@ -856,7 +856,7 @@
uri uri
url ; HTTP-URL record type url ; HTTP-URL record type
httpd-logging httpd-logging
httpd-request httpd-requests
httpd-responses httpd-responses
httpd-basic-handlers ; HTTP-HOMEDIR, SERVE-ROOTED-FILE-PATH httpd-basic-handlers ; HTTP-HOMEDIR, SERVE-ROOTED-FILE-PATH
httpd-error ; HTTP-ERROR httpd-error ; HTTP-ERROR