release version 0.9.1

Author: cosmos72

Makefile

@@ -49,8 +49,8 @@ MKDIR_P         = mkdir -p
 ######################################################################################
 # no user-serviceable parts below this line
 ######################################################################################
-LIBSCHEMESH_SO=libschemesh_0.9.0.so
-LIBSCHEMESH_C_SO=libschemesh_c_0.9.0.so
+LIBSCHEMESH_SO=libschemesh_0.9.1.so
+LIBSCHEMESH_C_SO=libschemesh_c_0.9.1.so
 
 SRCS=containers/containers.c eval.c posix/posix.c shell/shell.c
 OBJS=containers.o eval.o posix.o shell.o

README.md

@@ -93,7 +93,20 @@ The analogous job control mechanisms from Scheme syntax are:
 
 Some more advanced Scheme functions:
 * `(sh-run/string job-object)` start a job in foreground, wait until job finishes, return its output as a Scheme string
-* `(sh-start/fd-stdout job-object)` start a job in background, return a file descriptor fixnum for reading its standard output - for example with `(open-fd-input-port fd)`
+* `(sh-start/ports job-object)` start a job in background, return a list containing three binary ports:<br/>
+  the first one for writing to job's standard input<br/>for example with `(put-bytevector port bytevector)`,<br/>
+  the second one for reading from job's standard output<br/>for example with `(get-bytevector-some port bytevector)`,<br/>
+  the third one for reading from job's standard error<br/>for example with `(get-bytevector-some port bytevector)`.<br/>
+  Ports must be closed with `(close-port)` when no longer needed.
+* `(sh-start/fd-stdout job-object)` start a job in background, return a file descriptor fixnum<br/>
+  for reading job's standard output - for example with `(open-fd-input-port fd)` or `(fd-read-some fd bytevector)`
+  File descriptor must be closed with `(fd-close)` when no longer needed.
+* `(sh-start/fds job-object)` start a job in background, return a list containing three file descriptor fixnums:<br/>
+  the first one for writing to job's standard input<br/>for example with `(open-fd-output-port fd)` or `(fd-write fd bytevector)`,<br/>
+  the second one for reading from job's standard output<br/>for example with `(open-fd-input-port fd)` or `(fd-read fd bytevector)`,<br/>
+  the third one for reading from job's standard error<br/>for example with `(open-fd-input-port fd)` or `(fd-read fd bytevector)`.<br/>
+  File descriptors must be closed with `(fd-close)` when no longer needed.
+
 
 
 ### Subshells and command substitution
@@ -427,7 +440,7 @@ and inspect the Scheme source or objects generated by shell syntax:
 (begin
   (#3%$invoke-library
     '(schemesh shell job)
-    '(0 9 0)
+    '(0 9 1)
     '#{job c35q9golxfpwdr5y269nhygk1-54})
   (sh-and
     (sh-cmd* "make" 1 '> "log")
@@ -479,7 +492,7 @@ sudo apt update
 sudo apt install build-essential chezscheme-dev liblz4-dev libncurses-dev git uuid-dev zlib1g-dev
 git clone https://github.com/cosmos72/schemesh
 cd schemesh
-git checkout -f v0.9.0
+git checkout -f v0.9.1
 make -j
 
 # try schemesh without installing it
@@ -503,7 +516,7 @@ then replace the command `make -j` with `make -j CC='gcc -fno-lto'`
 sudo dnf install gcc make chez-scheme-devel lz4-devel ncurses-devel git libuuid-devel zlib-devel
 git clone https://github.com/cosmos72/schemesh
 cd schemesh
-git checkout -f v0.9.0
+git checkout -f v0.9.1
 make -j
 
 # try schemesh without installing it
@@ -523,7 +536,7 @@ by default, WSL installs [Ubuntu Linux](#ubuntu-linux)
 pkg install chez-scheme gcc git gmake  # must be executed as root
 git clone https://github.com/cosmos72/schemesh
 cd schemesh
-git checkout -f v0.9.0
+git checkout -f v0.9.1
 gmake -j
 
 # try schemesh without installing it
@@ -541,7 +554,7 @@ gmake install  # must be executed as root
 sudo xcode-select --install # only needed if you don't already have XCode Command Line Tools
 brew install chezscheme lz4
 git clone https://github.com/cosmos72/schemesh
-git checkout -f v0.9.0  # version v0.8.3 does not support Mac OS X
+git checkout -f v0.9.1  # version v0.8.3 does not support Mac OS X
 cd schemesh
 make -j
 
@@ -566,7 +579,7 @@ nix-build && ./result/bin/schemesh
 let
   schemesh = pkgs.fetchgit {
     url = "https://github.com/cosmos72/schemesh.git";
-    rev = "refs/tags/v0.9.0"; # or: "refs/heads/main"
+    rev = "refs/tags/v0.9.1"; # or: "refs/heads/main"
     sha256 = ""; # insert sha256 when ready
   };
 {

bootstrap/arrow.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh bootstrap arrow (0 9 0))
+(library (schemesh bootstrap arrow (0 9 1))
   (export expand==>)
   (import
     (rnrs)

bootstrap/bootstrap.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh bootstrap (0 9 0))
+(library (schemesh bootstrap (0 9 1))
   (export
       ;; bootstrap.ss
 

bootstrap/chez-compat.rkt

@@ -12,7 +12,7 @@
 ;;
 ;; then it can be imported from Racket #!r6rs files with the usual (import (chez compat))
 ;;
-(library (chez compat (0 9 0))
+(library (chez compat (0 9 1))
   (export append!
           check-interrupts current-time
           chez:car chez:cdr chez:cons chez:list chez:pair?

bootstrap/functions.ss

@@ -13,7 +13,7 @@
 
 #!r6rs
 
-(library (schemesh bootstrap functions (0 9 0))
+(library (schemesh bootstrap functions (0 9 1))
   (export
       check-interrupts fx<=?* nop parameter-swapper
       generate-pretty-temporaries generate-pretty-temporary gensym-pretty
@@ -235,14 +235,14 @@
 
 ;; return Schemesh version string
 (define sh-version
-  (let ((ret (string->immutable-string "Schemesh Version 0.9.0")))
+  (let ((ret (string->immutable-string "Schemesh Version 0.9.1")))
     (lambda ()
       ret)))
 
 
 ;; return three values: schemesh version MAJOR, MINOR and PATCH fixnums
 (define (sh-version-number)
-  (values 0 9 0))
+  (values 0 9 1))
 
 ) ; close library
 

containers/bitmap.ss

@@ -11,7 +11,7 @@
 ;;;;;;;;;   define Scheme type "bitmap", a fixed size bit vector   ;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(library (schemesh containers bitmap (0 9 0))
+(library (schemesh containers bitmap (0 9 1))
   (export
     bitmap make-bitmap bitmap? bitmap-length bitmap-ref bitmap-set! bitmap-last-zero)
   (import

containers/bytespan.ss

@@ -11,7 +11,7 @@
 ;;;;;;;;; define Scheme type "bytespan", a resizeable bytevector  ;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(library (schemesh containers bytespan (0 9 0))
+(library (schemesh containers bytespan (0 9 1))
   (export
     list->bytespan bytevector->bytespan bytevector->bytespan* make-bytespan
     bytespan->bytevector bytespan->bytevector*! bytespan->bytevector0

containers/bytevector.ss

@@ -6,7 +6,7 @@
 ;;; (at your option) any later version.
 
 
-(library (schemesh containers bytevector (0 9 0))
+(library (schemesh containers bytevector (0 9 1))
   (export
     in-bytevector list->bytevector subbytevector
 

containers/charspan.ss

@@ -11,7 +11,7 @@
 ;;;;;;;;;;;  define Scheme type "charspan", a resizeable string  ;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(library (schemesh containers charspan (0 9 0))
+(library (schemesh containers charspan (0 9 1))
   (export
     list->charspan string->charspan string->charspan* make-charspan
     charspan->string charspan->string*!

containers/containers.ss

@@ -8,7 +8,7 @@
 #!r6rs
 
 ;; define (schemesh containers) as a library that exports all its imported bindings
-(library-reexport (schemesh containers (0 9 0))
+(library-reexport (schemesh containers (0 9 1))
   (import (schemesh containers bitmap)
           (schemesh containers bytespan)
           (schemesh containers bytevector)

containers/flvector.ss

@@ -8,7 +8,7 @@
 
 #!r6rs
 
-(library (schemesh containers flvector (0 9 0))
+(library (schemesh containers flvector (0 9 1))
   (export
     flvector-native? flvector flvector? flvector-length flvector-ref flvector-set! make-flvector)
   (import

containers/gbuffer.ss

@@ -12,7 +12,7 @@
 ;;;;;;; Implementation: contains two spans, a "left" and a "right" ones ;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(library (schemesh containers gbuffer (0 9 0))
+(library (schemesh containers gbuffer (0 9 1))
   (export
     list->gbuffer vector->gbuffer vector->gbuffer* span->gbuffer span->gbuffer*
     make-gbuffer gbuffer gbuffer? gbuffer->vector gbuffer->span

containers/hashtable.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh containers hashtable (0 9 0))
+(library (schemesh containers hashtable (0 9 1))
   (export
     make-hash-iterator hash-iterator? hash-iterator-copy hash-iterator-pair hash-iterator-next!
 

containers/in.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh containers in (0 9 0))
+(library (schemesh containers in (0 9 1))
   (export
     constant in-value in-interval in-numbers
     in-roundrobin in-list-roundrobin in-sequences number->cflonum)

containers/list.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh containers list (0 9 0))
+(library (schemesh containers list (0 9 1))
   (export
     any count every for-alist for-list for-plist in-alist in-list in-plist on-list
 

containers/macros.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh containers macros (0 9 0))
+(library (schemesh containers macros (0 9 1))
   (export
     begin^ for for* if^ let^ let-values^ unless^ when^)
   (import

containers/replacements.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh containers replacements (0 9 0))
+(library (schemesh containers replacements (0 9 1))
   ;; the following functions *intentionally* conflict with R6RS and Chez Scheme
   ;; functions with the same names,
   ;;

containers/sort.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh containers sort (0 9 0))
+(library (schemesh containers sort (0 9 1))
   (export
     span-sort! subvector-sort!) ; R6RS already defines (vector-sort!)
   (import

containers/span.ss

@@ -11,7 +11,7 @@
 ;;;;;;;;;;;;;  define Scheme type "span", a resizeable vector  ;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(library (schemesh containers span (0 9 0))
+(library (schemesh containers span (0 9 1))
   (export
     list->span vector->span vector->span* make-span span->list span->vector span span?
     span-length span-empty? span-clear! span-capacity span-capacity-left span-capacity-right

containers/string.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh containers string (0 9 0))
+(library (schemesh containers string (0 9 1))
   (export
     assert-string-list? in-string
     string-any string-contains string-count string-empty? string-every

containers/utf8b-utils.ss

@@ -12,7 +12,7 @@
 ;;; b. converting integers to decimal and writing them into "bytevector" and "bytespan"
 
 
-(library (schemesh containers utf8b utils (0 9 0))
+(library (schemesh containers utf8b utils (0 9 1))
   (export
     bytevector-char-ref bytevector-char-set! char->utf8b-length
     bytespan-ref/char bytespan-set/char! bytespan-insert-left/char! bytespan-insert-right/char!

containers/utf8b.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh containers utf8b (0 9 0))
+(library (schemesh containers utf8b (0 9 1))
   (export
     codepoint? codepoint-utf8b? integer->char* string->utf8b string->utf8b/0
     utf8b->string utf8b->string-copy! utf8b-bytespan->string)

containers/vector.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh containers vector (0 9 0))
+(library (schemesh containers vector (0 9 1))
   (export
     for-vector
     in-vector in-fxvector in-flvector ; in-flvector requires Chez Scheme >= 10.0.0

conversions/conversions.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh conversions (0 9 0))
+(library (schemesh conversions (0 9 1))
   (export
     display-condition* display-any display-bytevector0 write-bytevector0
     any->bytevector text->bytevector text->string

conversions/unicode.ss

@@ -7,7 +7,7 @@
 
 #!r6rs
 
-(library (schemesh conversions unicode (0 9 0))
+(library (schemesh conversions unicode (0 9 1))
   (export char-display-wide?)
   (import
     (rnrs)

doc/recent_changes.md

@@ -1,5 +1,16 @@
 ## RECENT CHANGES
 
+### release v0.9.1, 2025-05-09
+
+* fix saving history to `~/.cache/schemesh/history.txt`
+* fix issue #26: flush all open C `FILE*` streams before `fork()`ing a subshell
+* add shell builtin `threads`
+* add functions `(sh-start/fds)` `(sh-start/ports)`
+* add functions `(get-thread)` `(thread)` `(thread-alive?)` `(thread-count)` `(thread-find)`
+  `(thread-id)` `(thread-initial-bindings)` `(thread-kill)` `(threads)` `(threads-status)`
+* add macro `(for-alist)` and function `(in-alist)`
+
+
 ### release v0.9.0, 2025-05-02
 
 * fix job control bugs on macOS, fixes issue #17

doc/schemesh_as_library.md

@@ -10,22 +10,22 @@ sudo apt update
 sudo apt install build-essential chezscheme-dev liblz4-dev libncurses-dev git uuid-dev zlib1g-dev
 git clone https://github.com/cosmos72/schemesh
 cd schemesh
-git checkout -f v0.9.0
+git checkout -f v0.9.1
 ```
 
 Then compile schemesh as a C shared library:<br/>
 the following commands work at least on Linux, on other systems they may differ.
 ```shell
 make clean
 make -j CC='cc -fPIC'
-cc -shared -o libschemesh_c_0.9.0.so containers.o eval.o posix.o shell.o
+cc -shared -o libschemesh_c_0.9.1.so containers.o eval.o posix.o shell.o
 ```
 
 Finally, from Chez Scheme REPL:
 ```lisp
-(load-shared-object "./libschemesh_c_0.9.0.so")
+(load-shared-object "./libschemesh_c_0.9.1.so")
 ((foreign-procedure "schemesh_register_c_functions" () int)) ; should return 0
-(load "./libschemesh_0.9.0.so")
+(load "./libschemesh_0.9.1.so")
 (import (schemesh))
 (repl) ; optional, user can also continue with Chez Scheme REPL
 ```

examples/benchmark_sort.ss

@@ -2,7 +2,7 @@
 ;; example file containing a benchmark for (vector-sort!) and (subvector-sort!)
 ;; it is not read, compiled nor evaluated.
 
-(library (schemesh benchmark sort (0 9 0))
+(library (schemesh benchmark sort (0 9 1))
   (export
     benchmark-make-vector benchmark-vector-sort! benchmark-subvector-sort! )
   (import

examples/example_caller.ss

@@ -1,4 +1,4 @@
-(library (schemesh example caller (0 9 0))
+(library (schemesh example caller (0 9 1))
   (export call^ apply^)
   (import
     (rnrs)

examples/example_multitasking.ss

@@ -1,6 +1,6 @@
 
 
-(library (schemesh example multitasking (0 9 0))
+(library (schemesh example multitasking (0 9 1))
   (export
     tasks make-task task-yield task-resume)
 

examples/example_signal_handler.ss

@@ -1,4 +1,4 @@
-(library (schemesh example signal handler (0 9 0))
+(library (schemesh example signal handler (0 9 1))
   (export check-interrupts init-signal-handlers)
   (import
     (rnrs)