diff --git a/scsh/scsh-interfaces.scm b/scsh/scsh-interfaces.scm index 4741911..ae9c694 100644 --- a/scsh/scsh-interfaces.scm +++ b/scsh/scsh-interfaces.scm @@ -14,16 +14,17 @@ open/exclusive open/access-mask - fcntl/close-on-exec - fcntl/dupfd - fcntl/get-fd-flags - fcntl/set-fd-flags - fcntl/get-file-flags - fcntl/set-file-flags + 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-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 + ))