original commit: ff0081f4b2e3bc1cdc474aa4b43762edbcd3816a
This commit is contained in:
Matthew Flatt 2001-05-07 17:04:08 +00:00
parent dcf5a21723
commit fde4603d21
5 changed files with 45 additions and 21 deletions

View File

@ -1,8 +1,11 @@
(require-library "cgiu.ss" "net")
(module cgi mzscheme
(require (lib "unitsig.ss"))
(begin-elaboration-time
(require-library "invoke.ss"))
(require "cgi-sig.ss")
(require "cgi-unit.ss")
(define-values/invoke-unit/sig mzlib:cgi^
mzlib:cgi@)
(define-values/invoke-unit/sig net:cgi^
net:cgi@)
(provide-signature-elements net:cgi^))

View File

@ -1,8 +1,11 @@
(require-relative-library "dnss.ss")
(module dns mzscheme
(require (lib "unitsig.ss"))
(begin-elaboration-time
(require-library "invoke.ss"))
(require "dns-sig.ss")
(require "dns-unit.ss")
(define-values/invoke-unit/sig mzlib:dns^
(require-relative-library "dnsr.ss"))
(define-values/invoke-unit/sig net:dns^
net:dns@)
(provide-signature-elements net:dns^))

View File

@ -1,8 +1,11 @@
(require-library "nntpu.ss" "net")
(begin-elaboration-time
(require-library "invoke.ss"))
(module nntp mzscheme
(require (lib "unitsig.ss"))
(define-values/invoke-unit/sig mzlib:nntp^
mzlib:nntp@
nntp)
(require "nntp-sig.ss")
(require "nntp-unit.ss")
(define-values/invoke-unit/sig net:nntp^
net:nntp@)
(provide-signature-elements net:nntp^))

View File

@ -1,10 +1,14 @@
(require-library "pop3u.ss" "net")
(begin-elaboration-time
(require-library "invoke.ss"))
(module pop3 mzscheme
(require (lib "unitsig.ss"))
(define-values/invoke-unit/sig mzlib:pop3^
mzlib:pop3@ pop3)
(require "pop3-sig.ss")
(require "pop3-unit.ss")
(define-values/invoke-unit/sig net:pop3^
net:pop3@)
(provide-signature-elements net:pop3^))
#|

11
collects/net/sendmail.ss Normal file
View File

@ -0,0 +1,11 @@
(module sendmail mzscheme
(require (lib "unitsig.ss"))
(require "sendmail-sig.ss")
(require "sendmail-unit.ss")
(define-values/invoke-unit/sig net:sendmail^
net:sendmail@)
(provide-signature-elements net:sendmail^))