rc/bin/g

   1 #!/bin/rc
   2 rfork e
   3 flags=()
   4 while(! ~ $#* 1 && ~ $1 -* && ! ~ $1 --){
   5          flags=($flags $1);
   6          shift
   7 }
   8 if(~ $1 --)
   9          shift
  10
  11 switch($#*){
  12 case 0
  13          echo 'usage: g [flags] pattern [files]' >[1=2]
  14          exit usage
  15 case 1
  16          pattern=$1
  17          files=(`{ls *.[bcChlmsy] *.asm *.awk *.cc *.cgi *.cpp *.cs *.go *.goc *.java *.lx *.ms *.pl *.py *.rc *.tex *.xy >[2]/dev/null})
  18 case *
  19          pattern=$1
  20          shift
  21          files=($*)
  22 }
  23 grep -n $flags -- $pattern $files /dev/null