some new words

[rrq/rrqforth.git] / grepline.sh

diff --git a/grepline.sh b/grepline.sh
index 677484a61f443ccda6a073867fa07ba73397c3aa..bb453da0ceeea9f0be80cb0237524581d22bf3e9 100755 (executable)
--- a/grepline.sh
+++ b/grepline.sh
@@ -1,3 +1,24 @@
 #!/bin/bash
 #
-grep "^$1 " rrqforth.map
+# This script implements some special commands that are set up for gdb
+# in debug.sh
+
+F=${1-rrqforth.map}
+
+#echo "$*"
+
+case "$3" in
+    1)
+       if [ -n "$4" ] ;then
+           if [ -z "${4%%-*}" ] ; then
+               N=( -B "${4#-}" )
+           else
+               N=( -A ${4} )
+           fi
+       fi
+       grep "${N[@]}" -E "$2" $F
+       ;;
+    *)
+       grep -E "(\\bWORD\\b|^$2) " $F | \
+           awk '$3 == "WORD" {x=$0;next} x!="" {print x; x=""}{ print;}'
+esac