/*  (gH)   -_-  feg.rex  ;  TimeStamp (unix) : 20 Octobre 2005 vers 10:53 */

version = 1.3

say d2c(12) " feg -- Find et Grep ; (gH) version " version

parse arg ligne

if words(ligne)=0 then do
   say
   say " syntaxe  : feg [ LOCALISATION ] CHAINE_A_RECHERCHER  "
   say
   say " exemples : feg  .  dsc"
   say "            feg  dsc    (idem, le point est ajouté par le programme) "
   say '            feg  ~/Crs/ "^exo"'
   say
   exit(-1)
end /* fin de si */

if words(ligne)=1 then ligne = "." ligne
parse var ligne loc chaine

cmd = " find " loc " | grep -i " chaine
say
say cmd
say
cmd
say