18 lines
504 B
Bash
Executable File
18 lines
504 B
Bash
Executable File
#!/bin/sh
|
|
if [ "$1" = "-v" ] ;then echo "\$Header: /cvs/G/EPICS/App/scripts/G_EPICS_subs2rec,v 1.1 2009/05/18 11:39:07 luedeke Exp $";exit;fi
|
|
if [ "$1" = "-?" ] ;then
|
|
echo "using: $0 <subs-file1> [ <subs-file2> [...]]"
|
|
echo "expands EPICS substitution files and prints record names"
|
|
exit
|
|
fi
|
|
for file in "$@"
|
|
do
|
|
dbLoadTemplate $file|\
|
|
awk '/record[ \t]*[(]/{
|
|
sub("[^,]*,","")
|
|
sub("[)].*$","")
|
|
gsub("\"","")
|
|
print $0
|
|
}'
|
|
done
|