;; grep.lisp: GREP program in lisp using CL-PPCRE (brg 15-Mar-2003)
;; only supports searching a single file.

(defun grep (pattern filename1)
	(do* ((fstr (open filename1))
		  (scanner (cl-ppcre:create-scanner pattern))
		  (line (read-line fstr nil) (read-line fstr nil)))
		((null line))
		(when (cl-ppcre:scan scanner line)
			(write-line line))))