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

Add scheme/tcp bindings.

Browse Source 
svn: r12516

original commit: a4ac14b124cb70127897fcb117d4d9312ab17518
This commit is contained in:
Sam Tobin-Hochstadt 2008-11-19 22:50:10 +00:00
parent 3f501c1a2f
commit bf579f30e7
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/typed-scheme/private/base-env.ss
View File

@ -2,6 +2,7 @@
(require
scheme/list
scheme/tcp
(only-in rnrs/lists-6 fold-left)
'#%paramz
(only-in '#%kernel [apply kernel:apply])
@ -480,4 +481,16 @@
[eof (-val eof)]
[read-accept-reader (-Param B B)]
[maybe-print-message (-String . -> . -Void)]
[maybe-print-message (-String . -> . -Void)]
;; scheme/tcp
[tcp-listener? (make-pred-ty -TCP-Listener)]
[tcp-abandon-port (-Port . -> . -Void)]
[tcp-accept (-TCP-Listener . -> . (-values (list -Input-Port -Output-Port)) )]
[tcp-accept/enable-break (-TCP-Listener . -> . (-values (list -Input-Port -Output-Port)) )]
[tcp-accept-ready? (-TCP-Listener . -> . B )]
[tcp-addresses (-Port . -> . (-values (list N N)))]
[tcp-close (-TCP-Listener . -> . -Void )]
[tcp-connect (-String -Integer . -> . (-values (list -Input-Port -Output-Port)))]
[tcp-connect/enable-break (-String -Integer . -> . (-values (list -Input-Port -Output-Port)))]
[tcp-listen (N . -> . -TCP-Listener)]

3
collects/typed-scheme/private/type-effect-convenience.ss
View File

@ -12,7 +12,7 @@
scheme/promise
(for-syntax macro-debugger/stxclass/stxclass)
(for-syntax scheme/base)
(for-template scheme/base scheme/contract))
(for-template scheme/base scheme/contract scheme/tcp))
(provide (all-defined-out)
;; these should all eventually go away
@ -134,6 +134,7 @@
(define -Namespace (make-Base 'Namespace #'namespace?))
(define -Output-Port (make-Base 'Output-Port #'output-port?))
(define -Input-Port (make-Base 'Input-Port #'input-port?))
(define -TCP-Listener (make-Base 'TCP-Listener #'tcp-listener?))
(define -Syntax make-Syntax)
(define -HT make-Hashtable)