From 23cd26eefac1f37529b24319c488d12f5e1dcd8d Mon Sep 17 00:00:00 2001
From: luedeke <luedeke>
Date: Mon, 18 May 2009 11:47:13 +0000
Subject: [PATCH] extract records from expanded subs file

---
 G_EPICS_subs2rec | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/G_EPICS_subs2rec b/G_EPICS_subs2rec
index a365520..15b5bd6 100755
--- a/G_EPICS_subs2rec
+++ b/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