Add APLDemo acme script

2 files changed, 24 insertions, 1 deletions

diff --git a/APLDemo b/APLDemo
new file mode 100755
index 0000000..fbf85b5
--- /dev/null
+++ b/APLDemo
@@ -0,0 +1,19 @@
+#!/bin/rc
+
+winid=`{grep -e '-apl' /mnt/acme/index | awk '{print $1}' }
+if(~ $#winid 0){
+	win apl &
+	exit
+}
+
+state=/tmp/apldemo.$winid.state
+if (test -e $state)
+	current=`{cat $state}
+if not
+	current=1
+
+next=`{echo $current + 1 | hoc}
+echo $next > $state
+
+cat $1 | awk 'NR=='$current > /mnt/acme/$winid/body
+
diff --git a/mkfile b/mkfile
index 9df4d9f..1f262de 100644
--- a/mkfile
+++ b/mkfile
@@ -26,10 +26,14 @@ DISTFILES=\
 	runtime/stdlib.apl\
 	runtime/start.apl\
 
+ACMEFILES=\
+	APLDemo\
+
 default:V: all
 
-install: $DISTFILES
+install: $DISTFILES $ACMEFILES
 	mkdir -p /sys/lib/apl/runtime
 	cp $DISTFILES /sys/lib/apl/runtime
+	cp $ACMEFILES /acme/bin
 
 </sys/src/cmd/mkone