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