From 9d2a64a26740982587baab2f5938210bdba9accc Mon Sep 17 00:00:00 2001
From: glenda <glenda@cirno>
Date: Tue, 13 Sep 2022 13:20:23 +0000
Subject: Add APLDemo acme script

---
 APLDemo | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 APLDemo

(limited to 'APLDemo')

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
+
-- 
cgit v1.2.3