summaryrefslogtreecommitdiff
path: root/APLDemo
blob: 106b37dc7efb0728753a098646a44c398c8e3133 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/bin/rc

winid=`{grep -e '-apl' /mnt/acme/index | awk '{print $1}' }
if(~ $#winid 0){
	win apl &
	sleep 1
	winid=`{grep -e '-apl' /mnt/acme/index | awk '{print $1}' }
	rm /tmp/apldemo.$winid.state
	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