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
(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@)

2
collects/net/cookie.ss
View File

@ -1,5 +1,5 @@
(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^)

2
collects/net/dns.ss
View File

@ -1,5 +1,5 @@
(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@)

2
collects/net/ftp.ss
View File

@ -1,5 +1,5 @@
(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@)

2
collects/net/imap.ss
View File

@ -1,5 +1,5 @@
(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@)

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

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

2
collects/net/mime.ss
View File

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

2
collects/net/nntp.ss
View File

@ -1,5 +1,5 @@
(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@)

2
collects/net/pop3.ss
View File

@ -1,5 +1,5 @@
(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@)

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

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

2
collects/net/qp.ss
View File

@ -27,7 +27,7 @@
;; Commentary:
(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@)

2
collects/net/sendmail.ss
View File

@ -1,5 +1,5 @@
(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@)

2
collects/net/smtp.ss
View File

@ -1,5 +1,5 @@
(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@)

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

@ -1,9 +1,9 @@
(module ssl-tcp-unit mzscheme
(provide make-ssl-tcp@)
(require (lib "unit.ss")
(require mzlib/unit
"tcp-sig.ss"
(lib "mzssl.ss" "openssl")
(lib "etc.ss"))
mzlib/etc)
(define (make-ssl-tcp@
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
(provide tcp-redirect)
(require (lib "unit.ss")
(lib "async-channel.ss")
(lib "etc.ss")
(require mzlib/unit
mzlib/async-channel
mzlib/etc
"tcp-sig.ss")
(define raw:tcp-abandon-port tcp-abandon-port)

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

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

6
collects/net/unihead.ss
View File

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

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

@ -8,10 +8,10 @@
;; url.ss tests
;;
(require (lib "url.ss" "net")
(lib "uri-codec.ss" "net")
(lib "string.ss")
(lib "url-unit.ss" "net") ; to get set-url:os-type!
(require net/url
net/uri-codec
mzlib/string
net/url-unit ; to get set-url:os-type!
)
(test "%Pq" uri-decode "%Pq")
@ -466,7 +466,7 @@
;; 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")
@ -541,7 +541,7 @@
;;
;; cookie tests --- JBM, 2006-12-01
(require (lib "cookie.ss" "net"))
(require net/cookie)
;; cookie-test : (cookie -> cookie) string -> test
(define (cookie-test fn expected)
@ -615,9 +615,9 @@
;; other net tests
;;
(require (lib "base64.ss" "net")
(lib "qp.ss" "net")
(lib "port.ss"))
(require net/base64
net/qp
mzlib/port)
(define tricky-strings
(let ([dir (collection-path "tests" "mzscheme")])