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*!