fcntl support, signal-handler support, regexp substitution,

new initialize-vector utility

scsh/scsh-interfaces.scm

@@ -14,16 +14,17 @@
 	  open/exclusive
 	  open/access-mask
 
-	  fcntl/close-on-exec
+	  fcntl/dup-fdes
-	  fcntl/dupfd
+	  fcntl/get-fdes-flags
-	  fcntl/get-fd-flags
+	  fcntl/set-fdes-flags
-	  fcntl/set-fd-flags
+	  fcntl/get-status-flags
-	  fcntl/get-file-flags
+	  fcntl/set-status-flags
-	  fcntl/set-file-flags
 	  fcntl/get-record-lock
 	  fcntl/set-record-lock
 	  fcntl/set-record-lock-noblock
 
+	  fdflags/close-on-exec
+
 	  lock/read
 	  lock/write
 	  lock/release))
@@ -89,6 +90,9 @@
 	  signal/usr1
 	  signal/usr2))
 
+(define-interface signals-internals-interface
+  (export signals-ignored-by-default))
+
 (define-interface scsh-errors-interface
   (export errno-error
 	  error
@@ -113,6 +117,11 @@
 			      dup->fdes
 			      open-file
 
+			      fdes-flags
+			      set-fdes-flags
+			      fdes-status
+			      set-fdes-status
+
 			      force-output
 			      set-port-buffering
 			      bufpol/block
@@ -413,6 +422,7 @@
 	  make-regexp
 	  regexp?
 	  regexp-exec
+	  regexp-subst
 	  regexp-quote))
 
 
@@ -542,7 +552,7 @@
 
 (define-interface scsh-utilities-interface
   (export del delete index rindex reduce filter first any first? nth
-	  any? every? mapv mapv! vector-every? copy-vector
+	  any? every? mapv mapv! vector-every? copy-vector initialize-vector
 	  check-arg conjoin disjoin negate compose reverse! call/cc
 	  deprecated-proc
 	  deposit-bit-field
@@ -968,3 +978,14 @@
 	  set-tty-process-group
 	  tty-process-group
 	  )))
+
+(define-interface signal-handler-interface
+  (export signal->interrupt
+	  interrupt-set
+	  (with-enabled-interrupts :syntax)
+	  with-enabled-interrupts*
+	  set-signal-handler!
+	  signal-handler
+	  %set-unix-signal-handler!
+	  %unix-signal-handler
+	  ))