import E script from bell labs

This commit is contained in:
mischief 2015-08-25 02:09:22 -07:00
parent dbe0a995f0
commit 029f07292b

16
rc/bin/E Executable file
View file

@ -0,0 +1,16 @@
#!/bin/rc
# E file - B file, wait until it changes, exit
rfork e
if (! ~ $#* 1) {
echo usage: $0 file >[1=2]
exit usage
}
if (! test -e $1) {
echo $0: $1: no such file >[1=2]
exit no-file
}
otm = `{mtime $1 | awk '{print $1}'}
B $1
while (~ $otm `{mtime $1 | awk '{print $1}'})
sleep 1
exit ''