Move most of the net collection out of the core.

- Most units and signatures from the `net` collection
  are now in `compatibility-lib`.
- Most of the actual libraries are in the `net-lib`
  package.
This commit is contained in:
Sam Tobin-Hochstadt 2013-06-28 11:52:53 -04:00
parent df446195bf
commit 2b1fb036c6
62 changed files with 37 additions and 23 deletions

View File

@ -1,3 +1,3 @@
#lang setup/infotab #lang setup/infotab
(define collection 'multi) (define collection 'multi)
(define deps '("base")) (define deps '("base" "net-lib"))

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"base64-sig.rkt" "base64.rkt") "base64-sig.rkt" net/base64)
(define-unit-from-context base64@ base64^) (define-unit-from-context base64@ base64^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"cgi-sig.rkt" "cgi.rkt") "cgi-sig.rkt" net/cgi)
(define-unit-from-context cgi@ cgi^) (define-unit-from-context cgi@ cgi^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"cookie-sig.rkt" "cookie-sig.rkt"
"cookie.rkt") net/cookie)
(define-unit-from-context cookie@ cookie^) (define-unit-from-context cookie@ cookie^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"dns-sig.rkt" "dns.rkt") "dns-sig.rkt" net/dns)
(define-unit-from-context dns@ dns^) (define-unit-from-context dns@ dns^)

View File

@ -5,7 +5,7 @@
;; Micah Flatt ;; Micah Flatt
;; 06-06-2002 ;; 06-06-2002
(require racket/unit (require racket/unit
"ftp-sig.rkt" "ftp.rkt") "ftp-sig.rkt" net/ftp)
(define-unit-from-context ftp@ ftp^) (define-unit-from-context ftp@ ftp^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"head-sig.rkt" "head.rkt") "head-sig.rkt" net/head)
(define-unit-from-context head@ head^) (define-unit-from-context head@ head^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"imap-sig.rkt" "imap.rkt") "imap-sig.rkt" net/imap)
(define-unit-from-context imap@ imap^) (define-unit-from-context imap@ imap^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"mime-sig.rkt" "mime.rkt") "mime-sig.rkt" net/mime)
(define-unit-from-context mime@ mime^) (define-unit-from-context mime@ mime^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"nntp-sig.rkt" "nntp.rkt") "nntp-sig.rkt" net/nntp)
(define-unit-from-context nntp@ nntp^) (define-unit-from-context nntp@ nntp^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"pop3-sig.rkt" "pop3.rkt") "pop3-sig.rkt" net/pop3)
(define-unit-from-context pop3@ pop3^) (define-unit-from-context pop3@ pop3^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"qp-sig.rkt" "qp.rkt") "qp-sig.rkt" net/qp)
(define-unit-from-context qp@ qp^) (define-unit-from-context qp@ qp^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"sendmail-sig.rkt" "sendmail.rkt") "sendmail-sig.rkt" net/sendmail)
(define-unit-from-context sendmail@ sendmail^) (define-unit-from-context sendmail@ sendmail^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"smtp-sig.rkt" "smtp.rkt") "smtp-sig.rkt" net/smtp)
(define-unit-from-context smtp@ smtp^) (define-unit-from-context smtp@ smtp^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"uri-codec-sig.rkt" "uri-codec.rkt") "uri-codec-sig.rkt" net/uri-codec)
(define-unit-from-context uri-codec@ uri-codec^) (define-unit-from-context uri-codec@ uri-codec^)

View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/unit (require racket/unit
"url-sig.rkt" "url.rkt" "url-connect.rkt") "url-sig.rkt" net/url net/url-connect)
(define-unit-from-context url@ url+scheme^) (define-unit-from-context url@ url+scheme^)

View File

@ -29,6 +29,7 @@
"typed-racket-more" "typed-racket-more"
"trace" "trace"
"macro-debugger" "macro-debugger"
"net-lib"
"srfi-lib" "srfi-lib"
"srfi-doc")) "srfi-doc"))
(define build-deps '("at-exp-lib" (define build-deps '("at-exp-lib"

View File

@ -10,6 +10,7 @@
"draw-lib" "draw-lib"
"drracket" "drracket"
"gui-lib" "gui-lib"
"net-lib"
"htdp" "htdp"
"math" "math"
"scribble-lib" "scribble-lib"

4
pkgs/net-lib/info.rkt Normal file
View File

@ -0,0 +1,4 @@
#lang setup/infotab
(define collection 'multi)
(define deps '("base"))

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require "uri-codec.rkt") (require net/uri-codec)
(provide (provide

View File

@ -351,5 +351,3 @@
(define (valid-path? v) (define (valid-path? v)
(and (string? v) (rfc2109:value? v))) (and (string? v) (rfc2109:value? v)))
;;; cookie-unit.rkt ends here

View File

@ -28,7 +28,7 @@
#lang racket/base #lang racket/base
(require racket/port "mime-util.rkt" "qp.rkt" "base64.rkt" "head.rkt") (require racket/port "mime-util.rkt" "qp.rkt" net/base64 net/head)
(provide (provide
;; -- exceptions raised -- ;; -- exceptions raised --

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require racket/tcp "base64.rkt") (require racket/tcp net/base64)
(provide smtp-sending-server (provide smtp-sending-server
smtp-send-message smtp-send-message

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(provide make-ssl-tcp@) (provide make-ssl-tcp@)
(require racket/unit "tcp-sig.rkt" openssl/mzssl) (require racket/unit net/tcp-sig openssl/mzssl)
(define (make-ssl-tcp@ (define (make-ssl-tcp@
server-cert-file server-key-file server-root-cert-files server-cert-file server-key-file server-root-cert-files

View File

@ -12,8 +12,8 @@
"syntax-color-lib" "syntax-color-lib"
"base" "base"
"gui-lib" "gui-lib"
"net-lib"
"sandbox-lib" "sandbox-lib"
"scribble-lib" "scribble-lib"
"compatibility-lib")) "compatibility-lib"))
(define implies '("distro-build")) (define implies '("distro-build"))

View File

@ -4,6 +4,7 @@
(define deps '("base" (define deps '("base"
"compatibility-lib" "compatibility-lib"
"net-lib"
"sandbox-lib" "sandbox-lib"
"scribble-lib" "scribble-lib"
"racket-index")) "racket-index"))

View File

@ -178,6 +178,10 @@ won't have a cookie set then first arrive at your site.
@section{Cookie Unit} @section{Cookie Unit}
@margin-note{@racket[cookie@] and @racket[cookie^] are deprecated.
They exist for backward-compatibility and will likely be removed in
the future. New code should use the @racketmodname[net/cookie] module.}
@defmodule[net/cookie-unit] @defmodule[net/cookie-unit]
@defthing[cookie@ unit?]{ @defthing[cookie@ unit?]{

View File

@ -4,6 +4,7 @@
(define deps '("base" (define deps '("base"
"compatibility-lib" "compatibility-lib"
"net-lib"
"at-exp-lib" "at-exp-lib"
"draw-lib" "draw-lib"
"syntax-color-lib" "syntax-color-lib"

View File

@ -36,5 +36,6 @@
"compatibility-lib" "compatibility-lib"
"drracket" "drracket"
"gui-lib" "gui-lib"
"net-lib"
"string-constants-lib")) "string-constants-lib"))
(define build-deps '("scribble-lib")) (define build-deps '("scribble-lib"))

View File

@ -3,6 +3,7 @@
(define collection 'multi) (define collection 'multi)
(define deps '("base" (define deps '("base"
"net-lib"
"draw-lib" "draw-lib"
"rackunit-lib" "rackunit-lib"
"typed-racket-lib" "typed-racket-lib"

View File

@ -3,6 +3,7 @@
(define collection 'multi) (define collection 'multi)
(define build-deps '("compatibility-lib" (define build-deps '("compatibility-lib"
"net-lib"
"rackunit-lib" "rackunit-lib"
"sandbox-lib" "sandbox-lib"
"scribble-lib" "scribble-lib"

View File

@ -3,6 +3,7 @@
(define collection 'multi) (define collection 'multi)
(define deps '("base" (define deps '("base"
"net-lib"
"compatibility-lib" "compatibility-lib"
"scribble-lib" "scribble-lib"
"unstable-list-lib" "unstable-list-lib"