home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / MISC / lgrep_v2.lzh / lt.f < prev    next >
Text File  |  1994-01-29  |  385b  |  32 lines
  1. LGREP test harness
  2.  
  3. !temp opt,Options,a5
  4. !temp ex,Regular expression,a20
  5. !temp str,String,a30
  6. !temp cmd,Command,a50
  7. !temp tstat,Reply,i1
  8.  
  9. +opt,,5,25
  10. +ex,,7,25
  11. +str,,8,25
  12. +cmd,,10,25
  13. +tstat,,11,25,###
  14.  
  15.     end
  16.  
  17. *t=test
  18.     input opt-str
  19.     cmd = 'lgrep '/opt/' "'/ex/'" "'/str/'"'
  20.     display cmd
  21.     if opt='' then\
  22.         execu cmd\
  23.     else\
  24.         exec cmd:\
  25.         newform
  26.     display opt-tstat
  27.     end
  28.  
  29. *e=exit
  30.     exit
  31.  
  32.