plan9fox/rc/bin/g

#!/bin/rc
rfork e
nl='
'
flags=()
recurse=()
while(! ~ $#* 1 && ~ $1 -* && ! ~ $1 --){
	if(~ $1 '-n')
		recurse=-n1
	if not
		flags=($flags $1);
	shift
}
if(~ $1 --)
	shift

suffixes='\.([bcChlmsy]|asm|awk|cc|cgi|cpp|cs|go|goc|hs|java|lx|ms|pl|py|rc|tex|xy)$'
fullnames='(^|/)mkfile$'
switch($#*){
case 0
	echo 'usage: g [flags] pattern [files]' >[1=2]
	exit usage
case 1
	pattern=$1
	files=`$nl{walk -f $recurse | grep -e $fullnames -e $suffixes >[2]/dev/null}
case *
	pattern=$1
	shift
	for(f in $*){
		if(test -d $f)
			files=($files `$nl{walk -f $recurse -- $* \
				| grep -e $fullnames -e $suffixes >[2]/dev/null})
		if not
			files=($files $f)
	}
}
grep -n $flags -- $pattern $files /dev/null
Remove trailing whitespace. 2019-06-05 05:47:07 +00:00			`#!/bin/rc`
g: dont pollute the environment (thanks BurnZeZ) 2016-03-13 21:34:08 +00:00			`rfork e`
Make 'g' grep recursively by default. 2019-06-05 05:36:32 +00:00			`nl='`
			`'`
			`flags=()`
			`recurse=()`
			`while(! ~ $#* 1 && ~ $1 -* && ! ~ $1 --){`
			`if(~ $1 '-n')`
			`recurse=-n1`
			`if not`
			`flags=($flags $1);`
Remove trailing whitespace. 2019-06-05 05:47:07 +00:00			`shift`
			`}`
			`if(~ $1 --)`
			`shift`
add rc scripts ", "" and g from rsc 2011-11-21 16:39:34 +00:00
g: filter directory arguments When searching directories recursively, it's still desirable to filter the contents by the file pattern, so that 'g foo /sys/src' doesn't end up searching for foo within .$O files. Files passed explicitly are still searched, so for the old behavior, just use walk: g foo `{walk -f $dir} 2020-11-22 05:23:46 +00:00			`suffixes='\.([bcChlmsy]\|asm\|awk\|cc\|cgi\|cpp\|cs\|go\|goc\|hs\|java\|lx\|ms\|pl\|py\|rc\|tex\|xy)$'`
			`fullnames='(^\|/)mkfile$'`
Remove trailing whitespace. 2019-06-05 05:47:07 +00:00			`switch($#*){`
			`case 0`
			`echo 'usage: g [flags] pattern [files]' >[1=2]`
			`exit usage`
			`case 1`
Make 'g' grep recursively by default. 2019-06-05 05:36:32 +00:00			`pattern=$1`
g: add '.hs' and 'mkfile' to the walk. (thanks joe9) This expands the set of files that we grep through by default to include mkfiles and haskell. 2020-07-15 03:46:00 +00:00			files=`$nl{walk -f $recurse \| grep -e $fullnames -e $suffixes >[2]/dev/null}
Remove trailing whitespace. 2019-06-05 05:47:07 +00:00			`case *`
			`pattern=$1`
			`shift`
g: filter directory arguments When searching directories recursively, it's still desirable to filter the contents by the file pattern, so that 'g foo /sys/src' doesn't end up searching for foo within .$O files. Files passed explicitly are still searched, so for the old behavior, just use walk: g foo `{walk -f $dir} 2020-11-22 05:23:46 +00:00			`for(f in $*){`
			`if(test -d $f)`
			files=($files `$nl{walk -f $recurse -- $* \
			`\| grep -e $fullnames -e $suffixes >[2]/dev/null})`
			`if not`
g: fix typo in last commit 2020-11-23 01:42:25 +00:00			`files=($files $f)`
g: filter directory arguments When searching directories recursively, it's still desirable to filter the contents by the file pattern, so that 'g foo /sys/src' doesn't end up searching for foo within .$O files. Files passed explicitly are still searched, so for the old behavior, just use walk: g foo `{walk -f $dir} 2020-11-22 05:23:46 +00:00			`}`
Remove trailing whitespace. 2019-06-05 05:47:07 +00:00			`}`
Lost a trailing \n 2019-06-05 05:42:10 +00:00			`grep -n $flags -- $pattern $files /dev/null`