I used this today for a talk about shell scripts and scripting
in general. It provided a nice illustration midway through the
talk. These are the final versions I used (on Unix).
Three scripts: Slide, Slide-, and Slide+.
lucidasans/unicode.13.font was good, though I might have
preferred something ever so slightly larger.
Thanks!
Russ
# To unbundle, run this file
echo Slide
sed 's/.//' >Slide <<'//GO.SYSIN DD Slide'
-#!/usr/local/plan9/bin/rc
-
-echo name `{pwd}^/$1 | 9p write acme/$winid/ctl
-echo clean | 9p write acme/$winid/ctl
-echo get | 9p write acme/$winid/ctl
-
//GO.SYSIN DD Slide
echo Slide+
sed 's/.//' >Slide+ <<'//GO.SYSIN DD Slide+'
-#!/usr/local/plan9/bin/rc
-
-name=$%
-current=`{basename $name}
-currentx=`{9 grep -n '^'$current'([ ]|$)' index | sed 's/:.*//'}
-
-pagex=`{echo $currentx + 1 | hoc}
-page=`{sed -n $pagex^p index | awk '{print $1}'}
-if(~ $#page 0){
- echo no such page
- exit 0
-}
-
-Slide $page
//GO.SYSIN DD Slide+
echo Slide-
sed 's/.//' >Slide- <<'//GO.SYSIN DD Slide-'
-#!/usr/local/plan9/bin/rc
-
-name=$%
-current=`{basename $name}
-currentx=`{9 grep -n '^'$current'([ ]|$)' index | sed 's/:.*//'}
-
-pagex=`{echo $currentx - 1 | hoc}
-if(~ $pagex 0){
- echo no such page
- exit 0
-}
-page=`{sed -n $pagex^p index | awk '{print $1}'}
-if(~ $#page 0){
- echo no such page
- exit 0
-}
-
-Slide $page
//GO.SYSIN DD Slide-
