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