#!/usr/bin/env rc
# gr - recursive g(1)
# sources/contrib/stallion/rc/gr

fn usage {
	echo >[1=2] usage: gr [g options] pattern [file...]
	exit usage
}

fn findfiles {
	doprint `{9 du -as $* | awk '{print $2}'}
}

fn doprint {
	for(i in $*) {
		if(! test -d $i) {
			echo $i
		}
	}
}

opts=()
while(~ $1 -*){
	opts=($opts $1)
	shift
}

if(~ $#* 0)
	usage

pattern=$1; shift
9 grep -n $opts -e $pattern `{findfiles $*}