suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use new require specs in many places

Browse Source 
svn: r8774

original commit: b1a08edd5a
This commit is contained in:
Eli Barzilay 2008-02-23 09:42:03 +00:00
parent afca02b65f
commit 500974878b
18 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/net/cgi.ss
View File

@ -1,5 +1,5 @@
(module cgi mzscheme (module cgi mzscheme
(require (lib "unit.ss") "cgi-sig.ss" "cgi-unit.ss") (require mzlib/unit "cgi-sig.ss" "cgi-unit.ss")
(define-values/invoke-unit/infer cgi@) (define-values/invoke-unit/infer cgi@)

2
collects/net/cookie.ss
View File

@ -1,5 +1,5 @@
(module cookie mzscheme (module cookie mzscheme
(require (lib "unit.ss") "cookie-sig.ss" "cookie-unit.ss") (require mzlib/unit "cookie-sig.ss" "cookie-unit.ss")
(provide-signature-elements cookie^) (provide-signature-elements cookie^)

2
collects/net/dns.ss
View File

@ -1,5 +1,5 @@
(module dns mzscheme (module dns mzscheme
(require (lib "unit.ss") "dns-sig.ss" "dns-unit.ss") (require mzlib/unit "dns-sig.ss" "dns-unit.ss")
(define-values/invoke-unit/infer dns@) (define-values/invoke-unit/infer dns@)

2
collects/net/ftp.ss
View File

@ -1,5 +1,5 @@
(module ftp mzscheme (module ftp mzscheme
(require (lib "unit.ss") "ftp-sig.ss" "ftp-unit.ss") (require mzlib/unit "ftp-sig.ss" "ftp-unit.ss")
(define-values/invoke-unit/infer ftp@) (define-values/invoke-unit/infer ftp@)

2
collects/net/imap.ss
View File

@ -1,5 +1,5 @@
(module imap mzscheme (module imap mzscheme
(require (lib "unit.ss") (lib "contract.ss") "imap-sig.ss" "imap-unit.ss") (require mzlib/unit mzlib/contract "imap-sig.ss" "imap-unit.ss")
(define-values/invoke-unit/infer imap@) (define-values/invoke-unit/infer imap@)

2
collects/net/mime-util.ss
View File

@ -27,7 +27,7 @@
;; Commentary: ;; Commentary:
(module mime-util mzscheme (module mime-util mzscheme
(require (lib "etc.ss")) (require mzlib/etc)
(provide string-tokenizer (provide string-tokenizer
trim-all-spaces trim-all-spaces

2
collects/net/mime.ss
View File

@ -27,7 +27,7 @@
;; Commentary: ;; Commentary:
(module mime mzscheme (module mime mzscheme
(require (lib "unit.ss") (require mzlib/unit
"mime-sig.ss" "mime-sig.ss"
"mime-unit.ss" "mime-unit.ss"
"qp-sig.ss" "qp-sig.ss"

2
collects/net/nntp.ss
View File

@ -1,5 +1,5 @@
(module nntp mzscheme (module nntp mzscheme
(require (lib "unit.ss") "nntp-sig.ss" "nntp-unit.ss") (require mzlib/unit "nntp-sig.ss" "nntp-unit.ss")
(define-values/invoke-unit/infer nntp@) (define-values/invoke-unit/infer nntp@)

2
collects/net/pop3.ss
View File

@ -1,5 +1,5 @@
(module pop3 mzscheme (module pop3 mzscheme
(require (lib "unit.ss") "pop3-sig.ss" "pop3-unit.ss") (require mzlib/unit "pop3-sig.ss" "pop3-unit.ss")
(define-values/invoke-unit/infer pop3@) (define-values/invoke-unit/infer pop3@)

2
collects/net/private/rbtree.ss
View File

@ -284,7 +284,7 @@
Tests: Tests:
(require rbtree) (require rbtree)
(require (lib "pretty.ss")) (require mzlib/pretty)
(print-struct #t) (print-struct #t)
(define t (new-tree)) (define t (new-tree))

2
collects/net/qp.ss
View File

@ -27,7 +27,7 @@
;; Commentary: ;; Commentary:
(module qp mzscheme (module qp mzscheme
(require (lib "unit.ss") "qp-sig.ss" "qp-unit.ss") (require mzlib/unit "qp-sig.ss" "qp-unit.ss")
(define-values/invoke-unit/infer qp@) (define-values/invoke-unit/infer qp@)

2
collects/net/sendmail.ss
View File

@ -1,5 +1,5 @@
(module sendmail mzscheme (module sendmail mzscheme
(require (lib "unit.ss") "sendmail-sig.ss" "sendmail-unit.ss") (require mzlib/unit "sendmail-sig.ss" "sendmail-unit.ss")
(define-values/invoke-unit/infer sendmail@) (define-values/invoke-unit/infer sendmail@)

2
collects/net/smtp.ss
View File

@ -1,5 +1,5 @@
(module smtp mzscheme (module smtp mzscheme
(require (lib "unit.ss") "smtp-sig.ss" "smtp-unit.ss") (require mzlib/unit "smtp-sig.ss" "smtp-unit.ss")
(define-values/invoke-unit/infer smtp@) (define-values/invoke-unit/infer smtp@)

4
collects/net/ssl-tcp-unit.ss
View File

@ -1,9 +1,9 @@
(module ssl-tcp-unit mzscheme (module ssl-tcp-unit mzscheme
(provide make-ssl-tcp@) (provide make-ssl-tcp@)
(require (lib "unit.ss") (require mzlib/unit
"tcp-sig.ss" "tcp-sig.ss"
(lib "mzssl.ss" "openssl") (lib "mzssl.ss" "openssl")
(lib "etc.ss")) mzlib/etc)
(define (make-ssl-tcp@ (define (make-ssl-tcp@
server-cert-file server-key-file server-root-cert-files server-suggest-auth-file server-cert-file server-key-file server-root-cert-files server-suggest-auth-file

6
collects/net/tcp-redirect.ss
View File

@ -1,9 +1,9 @@
(module tcp-redirect mzscheme (module tcp-redirect mzscheme
(provide tcp-redirect) (provide tcp-redirect)
(require (lib "unit.ss") (require mzlib/unit
(lib "async-channel.ss") mzlib/async-channel
(lib "etc.ss") mzlib/etc
"tcp-sig.ss") "tcp-sig.ss")
(define raw:tcp-abandon-port tcp-abandon-port) (define raw:tcp-abandon-port tcp-abandon-port)

2
collects/net/tcp-unit.ss
View File

@ -1,6 +1,6 @@
(module tcp-unit mzscheme (module tcp-unit mzscheme
(provide tcp@) (provide tcp@)
(require (lib "unit.ss") "tcp-sig.ss") (require mzlib/unit "tcp-sig.ss")
(define-unit-from-context tcp@ tcp^)) (define-unit-from-context tcp@ tcp^))

6
collects/net/unihead.ss
View File

@ -1,7 +1,7 @@
(module unihead mzscheme (module unihead mzscheme
(require (lib "base64.ss" "net") (require net/base64
(lib "qp.ss" "net") net/qp
(lib "string.ss")) mzlib/string)
(provide encode-for-header (provide encode-for-header
decode-for-header decode-for-header

18
collects/tests/mzscheme/net.ss
View File

@ -8,10 +8,10 @@
;; url.ss tests ;; url.ss tests
;; ;;
(require (lib "url.ss" "net") (require net/url
(lib "uri-codec.ss" "net") net/uri-codec
(lib "string.ss") mzlib/string
(lib "url-unit.ss" "net") ; to get set-url:os-type! net/url-unit ; to get set-url:os-type!
) )
(test "%Pq" uri-decode "%Pq") (test "%Pq" uri-decode "%Pq")
@ -466,7 +466,7 @@
;; a few tests of head.ss -- JBC, 2006-07-31 ;; a few tests of head.ss -- JBC, 2006-07-31
;; ;;
(require (lib "head.ss" "net")) (require net/head)
(test (void) validate-header "From: me@here.net\r\n\r\n") (test (void) validate-header "From: me@here.net\r\n\r\n")
(test (void) validate-header #"From: me@here.net\r\n\r\n") (test (void) validate-header #"From: me@here.net\r\n\r\n")
@ -541,7 +541,7 @@
;; ;;
;; cookie tests --- JBM, 2006-12-01 ;; cookie tests --- JBM, 2006-12-01
(require (lib "cookie.ss" "net")) (require net/cookie)
;; cookie-test : (cookie -> cookie) string -> test ;; cookie-test : (cookie -> cookie) string -> test
(define (cookie-test fn expected) (define (cookie-test fn expected)
@ -615,9 +615,9 @@
;; other net tests ;; other net tests
;; ;;
(require (lib "base64.ss" "net") (require net/base64
(lib "qp.ss" "net") net/qp
(lib "port.ss")) mzlib/port)
(define tricky-strings (define tricky-strings
(let ([dir (collection-path "tests" "mzscheme")]) (let ([dir (collection-path "tests" "mzscheme")])