;; simple grep

/loaded __TFLIB__/grep.tf

; Note: users should not rely on %_loaded_libs like this.  I can get away
; with this here only because this and /loaded are both internal to TF.
/if (_loaded_libs =/ "*{__TFLIB__/textutil.tf}*") \
    /echo -e %% Warning: textutil.tf and grep.tf have conflicting defintions.%;\
/endif


/def -i _fgrep = \
    /@test (strstr({*}, _pattern) >= 0) & echo({*})

/def -i fgrep = \
    /let _pattern=%1%; \
    /quote -S /_fgrep `%-1


;; glob grep

/def -i _grep = \
    /@test ({*} =/ _pattern) & echo({*})

/def -i grep = \
    /let _pattern=%1%; \
    /quote -S /_grep `%-1


;; regexp grep

/def -i _egrep = \
    /@test regmatch(_pattern, {*}) & echo({*})

/def -i egrep = \
    /let _pattern=%1%; \
    /quote -S /_egrep `%-1