script to make a device list

2004-11-18 14:33:42 +00:00
parent 4f5260651e
commit 86ea90f702
1 changed files with 11 additions and 0 deletions
--- a/tecs/make_list.tcsh
+++ 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