Added types to decls, possibly other stuff.

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