From 2959e1ede0ebc6fdffd7b8660f43c2ce14c9696f Mon Sep 17 00:00:00 2001
From: Taru Karttunen <taruti@taruti.net>
Date: Wed, 30 Mar 2011 17:14:36 +0300
Subject: Import sources from 2011-03-30 iso image - rc

---
 rc/bin/wloc | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100755 rc/bin/wloc

(limited to 'rc/bin/wloc')

diff --git a/rc/bin/wloc b/rc/bin/wloc
new file mode 100755
index 000000000..cd743d2ae
--- /dev/null
+++ b/rc/bin/wloc
@@ -0,0 +1,10 @@
+#!/bin/rc
+
+rfork e
+ifs='
+'
+
+for(i in `{ls /dev/wsys}) {
+	echo window -r `{syscall -o read 0 buf 59 < $i/window >[2] /dev/null |
+	sed 's/............//; s/^ *//; s/  */ /g'} `{cat $i/label}
+}
-- 
cgit v1.2.3