plan9fox/rc/bin/g

#!/bin/rc
rfork e
nl='
'
flags=()
recurse=()
files=()
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|lua|lx|mk|ml|mli|ms|myr|pl|py|rc|sh|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 -- $f \
				| 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-04 22:47:07 -07:00			`#!/bin/rc`
g: dont pollute the environment (thanks BurnZeZ) 2016-03-13 22:34:08 +01:00			`rfork e`
Make 'g' grep recursively by default. 2019-06-04 22:36:32 -07:00			`nl='`
			`'`
			`flags=()`
			`recurse=()`
g: initialize files env var 2020-12-19 13:33:11 +01:00			`files=()`
Make 'g' grep recursively by default. 2019-06-04 22:36:32 -07:00			`while(! ~ $#* 1 && ~ $1 -* && ! ~ $1 --){`
			`if(~ $1 '-n')`
			`recurse=-n1`
			`if not`
			`flags=($flags $1);`
Remove trailing whitespace. 2019-06-04 22:47:07 -07:00			`shift`
			`}`
			`if(~ $1 --)`
			`shift`
add rc scripts ", "" and g from rsc 2011-11-21 10:39:34 -06:00
g: add lua, mk, ml, mli, myr, and sh suffixes 2021-04-09 03:18:53 +02:00			`suffixes='\.([bcChlmsy]\|asm\|awk\|cc\|cgi\|cpp\|cs\|go\|goc\|hs\|java\|lua\|lx\|mk\|ml\|mli\|ms\|myr\|pl\|py\|rc\|sh\|tex\|xy)$'`
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-21 21:23:46 -08:00			`fullnames='(^\|/)mkfile$'`
Remove trailing whitespace. 2019-06-04 22:47:07 -07:00			`switch($#*){`
			`case 0`
			`echo 'usage: g [flags] pattern [files]' >[1=2]`
			`exit usage`
			`case 1`
Make 'g' grep recursively by default. 2019-06-04 22:36:32 -07: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-14 20:46:00 -07:00			files=`$nl{walk -f $recurse \| grep -e $fullnames -e $suffixes >[2]/dev/null}
Remove trailing whitespace. 2019-06-04 22:47:07 -07: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-21 21:23:46 -08:00			`for(f in $*){`
			`if(test -d $f)`
g: fix duplicate files with directory argument When we encounter a directory in the argument list, we don't want to walk every argument, just that directory. 2022-01-01 22:51:39 +00:00			files=($files `$nl{walk -f $recurse -- $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-21 21:23:46 -08:00			`\| grep -e $fullnames -e $suffixes >[2]/dev/null})`
			`if not`
g: fix typo in last commit 2020-11-22 17:42:25 -08: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-21 21:23:46 -08:00			`}`
Remove trailing whitespace. 2019-06-04 22:47:07 -07:00			`}`
Lost a trailing \n 2019-06-04 22:42:10 -07:00			`grep -n $flags -- $pattern $files /dev/null`