home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / os2clu03.zip / BIN / Find.CMD < prev    next >
OS/2 REXX Batch file  |  2001-10-30  |  821b  |  27 lines
  1. /*
  2.  *  ************************************************************************
  3.  *                          OS/2 Command-Line Utilities
  4.  *  (c) Copyright 1991-2000 Jonathan de Boyne Pollard.  All Rights Reserved.
  5.  *  ************************************************************************
  6.  */
  7.  
  8. /* "@(#)FIND.CMD version 1.1.0" */
  9.  
  10. '@echo off'
  11.  
  12. call RxFuncAdd 'SysGetMessage','RexxUtil','SysGetMessage'
  13.  
  14. usage = "Usage: FIND [/?] [/A[[+|-]drash]] [/SEBICQUV[+|-]] [/O[num[,num]]] Pattern [Filespecs ...]"
  15. copyr = "Copyright (c) 1999-2000 Jonathan de Boyne Pollard.  All Rights Reserved."
  16.  
  17. parse arg line
  18.  
  19. select
  20.     when line == '/?' then
  21.         say SysGetMessage(192, "CLUH.MSG", copyr, usage)
  22.     when line \== '' then
  23.         address 'CMD' 'grep /r '||line
  24.     otherwise
  25.         say SysGetMessage(4, "CLU.MSG", usage)
  26. end
  27.