Files
sicspsi/tecs/make_list.tcsh
2005-03-03 14:14:05 +00:00

12 lines
209 B
Tcsh
Executable File

#!/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