Added types to decls, possibly other stuff.

scsh/scsh-interfaces.scm

@@ -3,7 +3,7 @@
 ;;; Copyright (c) 1994 by Brian D. Carlstrom
 
 (define-interface posix-fdflags-interface
-  (export open/read
+  (export ((open/read
 	    open/write
 	    open/read+write
 	    open/non-blocking
@@ -12,25 +12,25 @@
 	    open/create
 	    open/truncate
 	    open/exclusive
-	  open/access-mask
+	    open/access-mask) :number)
 
-	  fcntl/dup-fdes
+	  ((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/set-record-lock-no-block) :number)
 
-	  fdflags/close-on-exec
+	  (fdflags/close-on-exec :number)
 
-	  lock/read
+	  ((lock/read
 	    lock/write
-	  lock/release))
+	    lock/release) :number)))
 
 (define-interface posix-errno-interface
-  (export errno/2big
+  (export ((errno/2big
 	    errno/acces
 	    errno/again
 	    errno/badf
@@ -66,11 +66,11 @@
 	    errno/rofs
 	    errno/spipe
 	    errno/srch
-	  errno/xdev))
+	    errno/xdev) :number)))
 
 
 (define-interface posix-signals-interface
-  (export signal/abrt
+  (export ((signal/abrt
 	    signal/alrm
 	    signal/chld
 	    signal/cont
@@ -88,23 +88,24 @@
 	    signal/ttin
 	    signal/ttou
 	    signal/usr1
-	  signal/usr2))
+	    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
+  (export ((bufpol/block
 	    bufpol/line
-	  bufpol/none))
+	    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