scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed OPEN/NONBLOCKING to OPEN/NON-BLOCKING and 

SET-RECORD-LOCK-NOBLOCK to SET-RECORD-LOCK-NO-BLOCK.
The former was always documented to be
    OPEN/NON-BLOCKING
and the latter isn't exported in any event.
This commit is contained in:
shivers 1996-11-11 18:52:19 +00:00
parent 4dd24741a8
commit 47c2eea2dd
14 changed files with 29 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
NEWS
View File

@ -10,6 +10,9 @@ Recent changes to the Scheme Shell.
Now we do. Really. Installed & documented. Now we do. Really. Installed & documented.
Hopefully, bdc will change this line to say the static heap Hopefully, bdc will change this line to say the static heap
linker is documented. linker is documented.
Name-consistency change (non-backwards compatible):
open/nonblocking renamed to open/non-blocking,
which is the way it was always described in the manual.
11/03/96 (version 0.4.4) 11/03/96 (version 0.4.4)
minor fixes for SunOS, Solaris, AIX, NeXTStep, 686 systems minor fixes for SunOS, Solaris, AIX, NeXTStep, 686 systems
@ -33,7 +36,8 @@ Recent changes to the Scheme Shell.
switch and with the (DUMP-SCSH-PROGRAM <file-name> <entry-point>) switch and with the (DUMP-SCSH-PROGRAM <file-name> <entry-point>)
are now equivalent in that both pass a list of command-line are now equivalent in that both pass a list of command-line
arguments that includes the program name. The two start-up methods arguments that includes the program name. The two start-up methods
were not the same in the previous release. were not the same in the previous release. N.B.: This is not
backwards-compatible with older releases' DUMP-SCSH-PROGRAM.
10/31/95 (version 0.4.0) 10/31/95 (version 0.4.0)
New minor versioning introduced New minor versioning introduced

4
scsh/aix/fdflags.scm
View File

@ -10,7 +10,7 @@
(create #x0100) (create #x0100)
(exclusive #x0400) (exclusive #x0400)
(no-control-tty #x0800) (no-control-tty #x0800)
(nonblocking #x0004) (non-blocking #x0004)
(truncate #x0200) (truncate #x0200)
;;; Not POSIX. ;;; Not POSIX.
@ -29,7 +29,7 @@
(get-status-flags 3) ; F_GETFL (get-status-flags 3) ; F_GETFL
(set-status-flags 4) ; F_SETFL (set-status-flags 4) ; F_SETFL
(get-record-lock 5) ; F_GETLK (get-record-lock 5) ; F_GETLK
(set-record-lock-noblock 6) ; F_SETLK (set-record-lock-no-block 6) ; F_SETLK
(set-record-lock 7)) ; F_SETLKW (set-record-lock 7)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)

4
scsh/bsd/fdflags.scm
View File

@ -7,7 +7,7 @@
(read #x0000) (read #x0000)
(write #x0001) (write #x0001)
(read+write #x0002) (read+write #x0002)
(nonblocking #x0004) ; no delay (non-blocking #x0004) ; no delay
(append #x0008) ; set append mode (append #x0008) ; set append mode
;; BSD4.4-Lite ;; BSD4.4-Lite
@ -36,7 +36,7 @@
(get-owner 5) ; F_GETOWN (Not POSIX) (get-owner 5) ; F_GETOWN (Not POSIX)
(set-owner 6) ; F_SETOWN (Not POSIX) (set-owner 6) ; F_SETOWN (Not POSIX)
(get-record-lock 7) ; F_GETLK (get-record-lock 7) ; F_GETLK
(set-record-lock-noblock 8) ; F_SETLK (set-record-lock-no-block 8) ; F_SETLK
(set-record-lock 9)) ; F_SETLKW (set-record-lock 9)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)

2
scsh/cxux/fdflags.scm
View File

@ -9,7 +9,7 @@
(create #o00400) (create #o00400)
(exclusive #o02000) (exclusive #o02000)
(no-control-tty #o04000) (no-control-tty #o04000)
(nonblocking #o00100) (non-blocking #o00100)
(truncate #o01000) (truncate #o01000)
;;; Not POSIX. ;;; Not POSIX.

2
scsh/flock.scm
View File

@ -101,7 +101,7 @@
;;; Return true/false indicating success/failure. ;;; Return true/false indicating success/failure.
(define (lock-region/no-block fdes lock) (define (lock-region/no-block fdes lock)
(cond ((call-lock-region %set-lock fcntl/set-record-lock-noblock fdes lock) (cond ((call-lock-region %set-lock fcntl/set-record-lock-no-block fdes lock)
=> (lambda (errno) => (lambda (errno)
(cond ((or (= errno errno/again) (= errno errno/acces)) #f) (cond ((or (= errno errno/again) (= errno errno/acces)) #f)
((= errno errno/intr) (lock-region/no-block fdes lock)) ((= errno errno/intr) (lock-region/no-block fdes lock))

4
scsh/generic/fdflags.scm
View File

@ -9,7 +9,7 @@
(create #x0200) (create #x0200)
(exclusive #x0800) (exclusive #x0800)
(no-control-tty #x8000) (no-control-tty #x8000)
(nonblocking #x4000) (non-blocking #x4000)
(truncate #x0400) (truncate #x0400)
;;; Not POSIX. ;;; Not POSIX.
@ -28,7 +28,7 @@
(get-status-flags 3) ; F_GETFL (get-status-flags 3) ; F_GETFL
(set-status-flags 4) ; F_SETFL (set-status-flags 4) ; F_SETFL
(get-record-lock 5) ; F_GETLK (get-record-lock 5) ; F_GETLK
(set-record-lock-noblock 6) ; F_SETLK (set-record-lock-no-block 6) ; F_SETLK
(set-record-lock 7)) ; F_SETLKW (set-record-lock 7)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)

4
scsh/hpux/fdflags.scm
View File

@ -6,7 +6,7 @@
(read 0) (read 0)
(write 1) (write 1)
(read+write 2) (read+write 2)
(nonblocking #o200000) (non-blocking #o200000)
(append #o10) (append #o10)
(no-control-tty #o400000) (no-control-tty #o400000)
(create #o0400) (create #o0400)
@ -28,7 +28,7 @@
(get-status-flags 3) ; F_GETFL (get-status-flags 3) ; F_GETFL
(set-status-flags 4) ; F_SETFL (set-status-flags 4) ; F_SETFL
(get-record-lock 5) ; F_GETLK (get-record-lock 5) ; F_GETLK
(set-record-lock-noblock 6) ; F_SETLK (set-record-lock-no-block 6) ; F_SETLK
(set-record-lock 7)) ; F_SETLKW (set-record-lock 7)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)

4
scsh/irix/fdflags.scm
View File

@ -9,7 +9,7 @@
(create #x100) (create #x100)
(exclusive #x400) (exclusive #x400)
(no-control-tty #x800) (no-control-tty #x800)
(nonblocking #x80) (non-blocking #x80)
(truncate #x200) (truncate #x200)
;;; Not POSIX. ;;; Not POSIX.
@ -28,7 +28,7 @@
(get-status-flags 3) ; F_GETFL (get-status-flags 3) ; F_GETFL
(set-status-flags 4) ; F_SETFL (set-status-flags 4) ; F_SETFL
(get-record-lock 5) ; F_GETLK (get-record-lock 5) ; F_GETLK
(set-record-lock-noblock 6) ; F_SETLK (set-record-lock-no-block 6) ; F_SETLK
(set-record-lock 7)) ; F_SETLKW (set-record-lock 7)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)

4
scsh/linux/fdflags.scm
View File

@ -7,7 +7,7 @@
(read #x0000) (read #x0000)
(write #x0001) (write #x0001)
(read+write #x0002) (read+write #x0002)
(nonblocking #x0800) ; no delay (non-blocking #x0800) ; no delay
(append #x0400) ; set append mode (append #x0400) ; set append mode
;; Linux ;; Linux
@ -38,7 +38,7 @@
(get-owner 9) ; F_GETOWN (Not POSIX) (get-owner 9) ; F_GETOWN (Not POSIX)
(set-owner 8) ; F_SETOWN (Not POSIX) (set-owner 8) ; F_SETOWN (Not POSIX)
(get-record-lock 5) ; F_GETLK (get-record-lock 5) ; F_GETLK
(set-record-lock-noblock 6) ; F_SETLK (set-record-lock-no-block 6) ; F_SETLK
(set-record-lock 7)) ; F_SETLKW (set-record-lock 7)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)

4
scsh/next/fdflags.scm
View File

@ -6,7 +6,7 @@
(read 0) (read 0)
(write 1) (write 1)
(read+write 2) (read+write 2)
(nonblocking 4) (non-blocking 4)
(append #o10) (append #o10)
(no-control-tty #o20) (no-control-tty #o20)
(create #o1000) (create #o1000)
@ -32,7 +32,7 @@
(get-owner 5) ; F_GETOWN (Not POSIX) (get-owner 5) ; F_GETOWN (Not POSIX)
(set-owner 6) ; F_SETOWN (Not POSIX) (set-owner 6) ; F_SETOWN (Not POSIX)
(get-record-lock 7) ; F_GETLK (get-record-lock 7) ; F_GETLK
(set-record-lock-noblock 8) ; F_SETLK (set-record-lock-no-block 8) ; F_SETLK
(set-record-lock 9)) ; F_SETLKW (set-record-lock 9)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)

4
scsh/scsh-interfaces.scm
View File

@ -6,7 +6,7 @@
(export open/read (export open/read
open/write open/write
open/read+write open/read+write
open/nonblocking open/non-blocking
open/append open/append
open/no-control-tty open/no-control-tty
open/create open/create
@ -21,7 +21,7 @@
fcntl/set-status-flags fcntl/set-status-flags
fcntl/get-record-lock fcntl/get-record-lock
fcntl/set-record-lock fcntl/set-record-lock
fcntl/set-record-lock-noblock fcntl/set-record-lock-no-block
fdflags/close-on-exec fdflags/close-on-exec

4
scsh/solaris/fdflags.scm
View File

@ -10,7 +10,7 @@
(create #x0100) (create #x0100)
(exclusive #x0400) (exclusive #x0400)
(no-control-tty #x800) ;claims to be POSIX (no-control-tty #x800) ;claims to be POSIX
(nonblocking #x80) ;claims to be POSIX (non-blocking #x80) ;claims to be POSIX
(truncate #x0200) (truncate #x0200)
;;; Not POSIX. ;;; Not POSIX.
@ -31,7 +31,7 @@
(get-owner 23) ; F_GETOWN (Not Posix) (get-owner 23) ; F_GETOWN (Not Posix)
(set-owner 24) ; F_SETOWN (Not Posix) (set-owner 24) ; F_SETOWN (Not Posix)
(get-record-lock 5) ; F_GETLK (get-record-lock 5) ; F_GETLK
(set-record-lock-noblock 6) ; F_SETLK (set-record-lock-no-block 6) ; F_SETLK
(set-record-lock 7)) ; F_SETLKW (set-record-lock 7)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)

4
scsh/sunos/fdflags.scm
View File

@ -9,7 +9,7 @@
(create #x0200) (create #x0200)
(exclusive #x0800) (exclusive #x0800)
(no-control-tty #x8000) (no-control-tty #x8000)
(nonblocking #x4000) (non-blocking #x4000)
(truncate #x0400) (truncate #x0400)
;;; Not POSIX. ;;; Not POSIX.
@ -30,7 +30,7 @@
(get-owner 5) ; F_GETOWN (Not Posix) (get-owner 5) ; F_GETOWN (Not Posix)
(set-owner 6) ; F_SETOWN (Not Posix) (set-owner 6) ; F_SETOWN (Not Posix)
(get-record-lock 7) ; F_GETLK (get-record-lock 7) ; F_GETLK
(set-record-lock-noblock 8) ; F_SETLK (set-record-lock-no-block 8) ; F_SETLK
(set-record-lock 9)) ; F_SETLKW (set-record-lock 9)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)

4
scsh/ultrix/fdflags.scm
View File

@ -10,7 +10,7 @@
(create #o01000) (create #o01000)
(exclusive #o04000) (exclusive #o04000)
(no-control-tty #o20000000) (no-control-tty #o20000000)
(nonblocking #o4000000) (non-blocking #o4000000)
(truncate #o2000) (truncate #o2000)
;;; Not POSIX. ;;; Not POSIX.
(no-delay #o0004) (no-delay #o0004)
@ -33,7 +33,7 @@
(get-status-flags 3) ; F_GETFL (get-status-flags 3) ; F_GETFL
(set-status-flags 4) ; F_SETFL (set-status-flags 4) ; F_SETFL
(get-record-lock 7) ; F_GETLK (get-record-lock 7) ; F_GETLK
(set-record-lock-noblock 8) ; F_SETLK (set-record-lock-no-block 8) ; F_SETLK
(set-record-lock 9)) ; F_SETLKW (set-record-lock 9)) ; F_SETLKW
;;; fcntl fdes-flags (F_GETFD) ;;; fcntl fdes-flags (F_GETFD)