scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added types to decls, possibly other stuff.

This commit is contained in:
shivers 1997-02-19 23:24:53 +00:00
parent 06eb60980d
commit bf449b53b7
1 changed files with 86 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
scsh/scsh-interfaces.scm
View File

@ -3,7 +3,7 @@
;;; Copyright (c) 1994 by Brian D. Carlstrom ;;; Copyright (c) 1994 by Brian D. Carlstrom
(define-interface posix-fdflags-interface (define-interface posix-fdflags-interface
(export open/read (export ((open/read
open/write open/write
open/read+write open/read+write
open/non-blocking open/non-blocking
@ -12,25 +12,25 @@
open/create open/create
open/truncate open/truncate
open/exclusive open/exclusive
open/access-mask open/access-mask) :number)
fcntl/dup-fdes ((fcntl/dup-fdes
fcntl/get-fdes-flags fcntl/get-fdes-flags
fcntl/set-fdes-flags fcntl/set-fdes-flags
fcntl/get-status-flags fcntl/get-status-flags
fcntl/set-status-flags fcntl/set-status-flags
fcntl/get-record-lock fcntl/get-record-lock
fcntl/set-record-lock fcntl/set-record-lock
fcntl/set-record-lock-no-block fcntl/set-record-lock-no-block) :number)
fdflags/close-on-exec (fdflags/close-on-exec :number)
lock/read ((lock/read
lock/write lock/write
lock/release)) lock/release) :number)))
(define-interface posix-errno-interface (define-interface posix-errno-interface
(export errno/2big (export ((errno/2big
errno/acces errno/acces
errno/again errno/again
errno/badf errno/badf
@ -66,11 +66,11 @@
errno/rofs errno/rofs
errno/spipe errno/spipe
errno/srch errno/srch
errno/xdev)) errno/xdev) :number)))
(define-interface posix-signals-interface (define-interface posix-signals-interface
(export signal/abrt (export ((signal/abrt
signal/alrm signal/alrm
signal/chld signal/chld
signal/cont signal/cont
@ -88,23 +88,24 @@
signal/ttin signal/ttin
signal/ttou signal/ttou
signal/usr1 signal/usr1
signal/usr2)) signal/usr2) :number)))
(define-interface signals-internals-interface (define-interface signals-internals-interface
(export signals-ignored-by-default)) (export signals-ignored-by-default)) ; (:list-of :number)
(define-interface scsh-errors-interface (define-interface scsh-errors-interface
(export errno-error (export errno-error
error error
with-errno-handler* (with-errno-handler* (proc (proc (:number :value) :values) ; handler
(proc () :values))) ; thunk
(with-errno-handler :syntax))) (with-errno-handler :syntax)))
(define buffered-io-flags-interface (define buffered-io-flags-interface
(export bufpol/block (export ((bufpol/block
bufpol/line bufpol/line
bufpol/none)) bufpol/none) :number)))
(define-interface scsh-io-interface (define-interface scsh-io-interface
(compound-interface buffered-io-flags-interface (compound-interface buffered-io-flags-interface
@ -557,7 +558,8 @@
check-arg conjoin disjoin negate compose reverse! call/cc check-arg conjoin disjoin negate compose reverse! call/cc
deprecated-proc deprecated-proc
deposit-bit-field deposit-bit-field
real->exact-integer)) real->exact-integer
string-replace! substring-replace!))
;;; semi-standard network magic numbers ;;; semi-standard network magic numbers
;;; should be available on all platforms ;;; should be available on all platforms