From e06d9217697864dc04194f856eca4504c189c13d Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Sun, 25 Apr 2004 20:30:47 +0000
Subject: make a clean listing in an acme window.

---
 bin/Getdir | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 bin/Getdir

(limited to 'bin/Getdir')

diff --git a/bin/Getdir b/bin/Getdir
new file mode 100755
index 00000000..b1646427
--- /dev/null
+++ b/bin/Getdir
@@ -0,0 +1,24 @@
+#!/usr/local/plan9/bin/rc
+
+dir=acme/acme/$winid
+
+fn rd {
+	9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
+}
+fn wr {
+	9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
+}
+
+
+tag=`{rd tag}
+if(! ~ $tag(1) */){
+	echo window $tag(1) is not a directory >[1=2]
+	exit 'not a directory'
+}
+
+echo -n , | wr addr
+ls -pF $tag(1) | sed 's/\*$//' |
+	9grep -v '^\.|\.o$|^o\.' |
+mc | wr data
+echo -n '#0' | wr addr
+echo -n 'dot=addr' | wr ctl
-- 
cgit v1.2.3