script to expand subs files and print record names

2009-05-18 11:39:07 +00:00
parent 38b5074667
commit 32bed38991
1 changed files with 17 additions and 0 deletions
@@ -0,0 +1,17 @@
+#!/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