extract records from expanded subs file

G_EPICS_subs2rec

@@ -1,17 +1,26 @@
 #!/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" = "-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> [ <subs-file2> [...]]"
+    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 '/record[ \t]*[(]/{
+        awk -vr=$r '/record[ \t]*[(]/{
+            if (r) {
+                rec=$0
+                sub("[^(]*[(]","",rec)
+                sub(",.*$","",rec)
+                gsub("\"","",rec)
+            } else {rec=""}
             sub("[^,]*,","")
             sub("[)].*$","")
             gsub("\"","")
-            print $0
+            print $0,rec
         }'
 done