From 86ea90f702f0b2020f70d21c9eed91d781f055da Mon Sep 17 00:00:00 2001
From: zolliker <zolliker>
Date: Thu, 18 Nov 2004 14:33:42 +0000
Subject: [PATCH] script to make a device list

---
 tecs/make_list.tcsh | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 tecs/make_list.tcsh

diff --git a/tecs/make_list.tcsh b/tecs/make_list.tcsh
new file mode 100755
index 0000000..c1b23e7
--- /dev/null
+++ b/tecs/make_list.tcsh
@@ -0,0 +1,11 @@
+#!/bin/tcsh
+printf "\n\n"
+foreach file ($*)
+  set nam=${file:t:s/.cfg//}
+  set def="`grep "dev=" $file`"
+  alias def "set$def"
+  if ("$def" != "") then
+    def
+    printf "%-10s %s\n" $nam "$dev"
+  endif
+end