diff --git a/scsh/scsh-interfaces.scm b/scsh/scsh-interfaces.scm index 6a167ee..4e70f2c 100644 --- a/scsh/scsh-interfaces.scm +++ b/scsh/scsh-interfaces.scm @@ -3,108 +3,109 @@ ;;; Copyright (c) 1994 by Brian D. Carlstrom (define-interface posix-fdflags-interface - (export open/read - open/write - open/read+write - open/non-blocking - open/append - open/no-control-tty - open/create - open/truncate - open/exclusive - open/access-mask + (export ((open/read + open/write + open/read+write + open/non-blocking + open/append + open/no-control-tty + open/create + open/truncate + open/exclusive + open/access-mask) :number) - fcntl/dup-fdes - fcntl/get-fdes-flags - fcntl/set-fdes-flags - fcntl/get-status-flags - fcntl/set-status-flags - fcntl/get-record-lock - fcntl/set-record-lock - fcntl/set-record-lock-no-block + ((fcntl/dup-fdes + fcntl/get-fdes-flags + fcntl/set-fdes-flags + fcntl/get-status-flags + fcntl/set-status-flags + fcntl/get-record-lock + fcntl/set-record-lock + fcntl/set-record-lock-no-block) :number) - fdflags/close-on-exec + (fdflags/close-on-exec :number) - lock/read - lock/write - lock/release)) + ((lock/read + lock/write + lock/release) :number))) (define-interface posix-errno-interface - (export errno/2big - errno/acces - errno/again - errno/badf - errno/busy - errno/child - errno/deadlk - errno/dom - errno/exist - errno/fault - errno/fbig - errno/intr - errno/inval - errno/io - errno/isdir - errno/mfile - errno/mlink - errno/nametoolong - errno/nfile - errno/nodev - errno/noent - errno/noexec - errno/nolck - errno/nomem - errno/nospc - errno/nosys - errno/notdir - errno/notempty - errno/notty - errno/nxio - errno/perm - errno/pipe - errno/range - errno/rofs - errno/spipe - errno/srch - errno/xdev)) + (export ((errno/2big + errno/acces + errno/again + errno/badf + errno/busy + errno/child + errno/deadlk + errno/dom + errno/exist + errno/fault + errno/fbig + errno/intr + errno/inval + errno/io + errno/isdir + errno/mfile + errno/mlink + errno/nametoolong + errno/nfile + errno/nodev + errno/noent + errno/noexec + errno/nolck + errno/nomem + errno/nospc + errno/nosys + errno/notdir + errno/notempty + errno/notty + errno/nxio + errno/perm + errno/pipe + errno/range + errno/rofs + errno/spipe + errno/srch + errno/xdev) :number))) (define-interface posix-signals-interface - (export signal/abrt - signal/alrm - signal/chld - signal/cont - signal/fpe - signal/hup - signal/ill - signal/int - signal/kill - signal/pipe - signal/quit - signal/segv - signal/stop - signal/term - signal/tstp - signal/ttin - signal/ttou - signal/usr1 - signal/usr2)) + (export ((signal/abrt + signal/alrm + signal/chld + signal/cont + signal/fpe + signal/hup + signal/ill + signal/int + signal/kill + signal/pipe + signal/quit + signal/segv + signal/stop + signal/term + signal/tstp + signal/ttin + signal/ttou + signal/usr1 + signal/usr2) :number))) (define-interface signals-internals-interface - (export signals-ignored-by-default)) + (export signals-ignored-by-default)) ; (:list-of :number) (define-interface scsh-errors-interface (export errno-error error - with-errno-handler* + (with-errno-handler* (proc (proc (:number :value) :values) ; handler + (proc () :values))) ; thunk (with-errno-handler :syntax))) (define buffered-io-flags-interface - (export bufpol/block - bufpol/line - bufpol/none)) + (export ((bufpol/block + bufpol/line + bufpol/none) :number))) (define-interface scsh-io-interface (compound-interface buffered-io-flags-interface @@ -557,7 +558,8 @@ check-arg conjoin disjoin negate compose reverse! call/cc deprecated-proc deposit-bit-field - real->exact-integer)) + real->exact-integer + string-replace! substring-replace!)) ;;; semi-standard network magic numbers ;;; should be available on all platforms