From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 unix/hlib/devstatus.cl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 unix/hlib/devstatus.cl

(limited to 'unix/hlib/devstatus.cl')

diff --git a/unix/hlib/devstatus.cl b/unix/hlib/devstatus.cl
new file mode 100644
index 00000000..4e00540b
--- /dev/null
+++ b/unix/hlib/devstatus.cl
@@ -0,0 +1,30 @@
+# DEVSTATUS -- Print status info for the named device.  The basic function
+# is performed by the hidden builtin _devstatus, but you may with to add
+# additional machine dependent function to the script.
+
+procedure devstatus (device)
+
+string	device	{ prompt = "device for which status is desired" }
+bool	verbose = no
+
+string	logname, hostname
+struct	*devlist
+string	dev
+
+begin
+	dev = device
+	_devstatus (dev)
+
+#	if (verbose) {
+#	    # Print UNIX device status, too.
+#
+#	    devlist = "dev$devices"
+#	    while (fscan (devlist, logname, hostname) != EOF) {
+#		if (logname == dev) {
+#		    print ("!ls -l /dev/", hostname) | cl
+#		    break
+#		}
+#	    }
+#	    devlist = ""
+#	}
+end
-- 
cgit