From d325d2226cf55b63037dc62cefb7fa952d770d50 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sun, 31 Jan 2021 14:14:05 +0000
Subject: Bind $home/bin/rc to rc/ instead of ./

---
 rc/def | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100755 rc/def

(limited to 'rc/def')

diff --git a/rc/def b/rc/def
new file mode 100755
index 0000000..09a3f0c
--- /dev/null
+++ b/rc/def
@@ -0,0 +1,45 @@
+#!/bin/rc -e
+
+# def -- find function definition
+
+flagfmt=a
+args='name [dir]'
+if(! ifs=() eval `{aux/getflags $*} || ! ~ $#* 1 2 3){
+	echo usage: $0 name [dir] >[1=2]
+	exit usage
+}
+
+name=$1
+if(~ $#* 2) wdir=$2
+if not wdir=`{pwd}
+
+files=$wdir^/*.[ch]
+if(~ $files $wdir^/'*.[ch]'){
+	echo error: no c/h files found >[1=2]
+	exit 'not found'
+}
+
+# ansi definition
+if(~ $flaga 1){
+	r=`{
+		echo 'X ,x/[\n 	]\**'^$name^'\(.*\)([ 	]*\/\*.*\*\/)?\n{/-+=' |
+		sam -d $files >[2=1] |
+		awk -F'[ ;]' '
+			/^ -\. / { file = $3; next }
+			/^ -  / { file = $4; next }
+			{ print file ":" $1; exit }
+	'}
+}
+
+# style(1) definition
+if not{
+	r=`{grep -n '^'^$name^'\(' $files | awk -F: '{print $1 ":" $2; exit}'}
+}
+
+# success
+if(! ~ $r '')
+	echo $r
+
+# try to find macro instead
+if not
+	grep -n '^#define[ 	]'^$name^'\(' $files | awk -F: '{print $1 ":" $2; exit}'
-- 
cgit v1.2.3