From 6b0013579e946a771090495c8308c34d676fe55f Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Wed, 4 Sep 2024 20:43:30 -0400
Subject: [PATCH] Add 3 simple examples of using subprocesses.

---
 etc/festival.tal | 78 ++++++++++++++++++++++++++++++++++++++++++++++++
 etc/pwd.tal      | 44 +++++++++++++++++++++++++++
 etc/xclock.tal   | 29 ++++++++++++++++++
 3 files changed, 151 insertions(+)
 create mode 100644 etc/festival.tal
 create mode 100644 etc/pwd.tal
 create mode 100644 etc/xclock.tal

diff --git a/etc/festival.tal b/etc/festival.tal
new file mode 100644
index 0000000..cb924f4
--- /dev/null
+++ b/etc/festival.tal
@@ -0,0 +1,78 @@
+( festival.tal )
+( )
+( sends text from stdin to the festival text-to-speech program )
+( )
+( requires festival: apt install festival )
+
+|00 @System
+    |00 &vector $2
+    |02 &expansion $2
+    |04 &title $2
+    |06 &metadata $2
+    |08 &r $2
+    |0a &g $2
+    |0c &b $2
+    |0e &debug $1
+    |0f &exit $1
+
+@Console
+    |10 &vector $2 ( called when input is ready )
+    |12 &read $1 ( read an input byte, e.g. from stdin )
+    ( 13 - 14 padding )
+    |15 &live $1 ( subprocess: 01 alive, ff dead, 00 not running )
+    |15 &exit $1 ( subprocess: exit code if dead )
+    |17 &type $1 ( input type: 01 stdin, 02 arg, 03 end of arg, 04 end of args )
+    |18 &write $1 ( byte to write to stdout )
+    |19 &error $1 ( byte to write to stderr )
+    ( 1a - 1b padding )
+    |1c &addr $2 ( subprocess: addr of string to run with /bin/sh -c )
+    |1e &mode $1 ( mode bits: 01 write stdin, 02 read stdout, 04 read stderr, 08 kill only )
+    |1f &exec $1 ( subprocess: run command )
+
+@Screen
+    |20 &vector $2
+    |22 &width $2
+    |24 &height $2
+    |26 &auto $1
+    ( 27 padding )
+    |28 &x $2
+    |2a &y $2
+    |2c &addr $2
+    |2e &pixel $1
+    |2f &sprite $1
+
+|0100
+    ( poll child process using the screen vector )
+    ;on-refresh .Screen/vector DEO2
+
+    ( set up festival child proces )
+    ;cmd .Console/addr DEO2
+    #07 .Console/mode DEO
+    #01 .Console/exec DEO
+
+    ( say some things, then quit festival and exit )
+    ;phrase1 print
+    ;phrase2 print
+    ;quit print
+    BRK
+
+( print a string to stdout )
+@print
+    LDAk ?{ POP2 JMP2r } LDAk .Console/write DEO INC2 !print
+
+( exit the ROM once festival exits )
+( we need to wait until it is done talking, which is why we don't exit earlier. )
+@on-refresh
+    .Console/live DEI #ff NEQ ?{ #80 .System/exit DEO } BRK
+
+@cmd
+    "festival 20 "--interactive 00
+
+@phrase1
+    28 "SayText 20 22 "This 20 "is 20 "a 20 "U.X.N 20 "text-to-speech 20 "demo. 22 29 0a 00
+
+@phrase2
+    28 "SayText 20 22 "If 20 "this 20 "were 20 "a 20 "real 20 "program ", 20 "interaction 20 "would 20 "occur. 22 29 0a 00
+
+@quit
+    28 "quit 29 0a 00
diff --git a/etc/pwd.tal b/etc/pwd.tal
new file mode 100644
index 0000000..b550f1a
--- /dev/null
+++ b/etc/pwd.tal
@@ -0,0 +1,44 @@
+( pwd.tal )
+( )
+( reads output of `pwd` and prints it )
+
+|00 @System
+    |00 &vector $2
+    |02 &expansion $2
+    |04 &title $2
+    |06 &metadata $2
+    |08 &r $2
+    |0a &g $2
+    |0c &b $2
+    |0e &debug $1
+    |0f &exit $1
+
+@Console
+    |10 &vector $2 ( called when input is ready )
+    |12 &read $1 ( read an input byte, e.g. from stdin )
+    ( 13 - 14 padding )
+    |15 &live $1 ( subprocess: 01 alive, ff dead, 00 not running )
+    |15 &exit $1 ( subprocess: exit code if dead )
+    |17 &type $1 ( input type: 01 stdin, 02 arg, 03 end of arg, 04 end of args )
+    |18 &write $1 ( byte to write to stdout )
+    |19 &error $1 ( byte to write to stderr )
+    ( 1a - 1b padding )
+    |1c &addr $2 ( subprocess: addr of string to run with /bin/sh -c )
+    |1e &mode $1 ( mode bits: 01 write stdin, 02 read stdout, 04 read stderr, 08 kill only )
+    |1f &exec $1 ( subprocess: run command )
+
+|0100
+    ;on-console .Console/vector DEO2
+    ;cmd .Console/addr DEO2
+    #02 .Console/mode DEO
+    #01 .Console/exec DEO
+    BRK
+
+( read output from pwd until first newline, then exit )
+@on-console
+    .Console/type DEI #01 EQU ?{ BRK }
+    .Console/read DEI DUP #0a EQU ?{ .Console/write DEO BRK }
+    .Console/write DEO
+    #80 .System/exit DEO BRK
+
+@cmd "pwd 00
diff --git a/etc/xclock.tal b/etc/xclock.tal
new file mode 100644
index 0000000..e379002
--- /dev/null
+++ b/etc/xclock.tal
@@ -0,0 +1,29 @@
+( xclock.tal )
+( )
+( runs xclock. )
+( )
+( on some systems, exiting the ROM will kill the xclock process. )
+( on others it won't. if the ROM exits via the system device then )
+( the process will be properly killed. )
+
+@Console
+    |10 &vector $2 ( called when input is ready )
+    |12 &read $1 ( read an input byte, e.g. from stdin )
+    ( 13 - 14 padding )
+    |15 &live $1 ( subprocess: 01 alive, ff dead, 00 not running )
+    |15 &exit $1 ( subprocess: exit code if dead )
+    |17 &type $1 ( input type: 01 stdin, 02 arg, 03 end of arg, 04 end of args )
+    |18 &write $1 ( byte to write to stdout )
+    |19 &error $1 ( byte to write to stderr )
+    ( 1a - 1b padding )
+    |1c &addr $2 ( subprocess: addr of string to run with /bin/sh -c )
+    |1e &mode $1 ( mode bits: 01 write stdin, 02 read stdout, 04 read stderr, 08 kill only )
+    |1f &exec $1 ( subprocess: run command )
+
+|0100
+    ;cmd .Console/addr DEO2
+    #00 .Console/mode DEO
+    #01 .Console/exec DEO
+    BRK
+
+@cmd "xclock 00