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