.
original commit: ff0081f4b2e3bc1cdc474aa4b43762edbcd3816a
This commit is contained in:
parent
dcf5a21723
commit
fde4603d21
|
@ -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^))
|
||||
|
|
|
@ -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^))
|
||||
|
|
|
@ -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^))
|
||||
|
|
|
@ -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
11
collects/net/sendmail.ss
Normal 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^))
|
Loading…
Reference in New Issue
Block a user