Re: [9fans] find acme 'window' name from which program B2-ed?

[Russ Cox <rsc@swtch.com>]

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-