home *** CD-ROM | disk | FTP | other *** search
/ Arawak OS/2 Shareware / PAKLED.ISO / tex / betatest / texit2.cmd < prev   
Encoding:
Text File  |  1993-10-29  |  445 b   |  15 lines
  1. /* texit2.cmd -- Copyright (c) 1992 by Eberhard Mattes            */
  2.  
  3. /* Remove path name and run texit.cmd */
  4.  
  5. /* This procedure is intended to be run from a menu.              */
  6. /* There must be only one command line argument -- the file name. */
  7.  
  8. parse arg '"'arg1'"' rest
  9. if arg1 = '' then
  10.   parse arg arg1 rest
  11. if rest = '' then
  12.   "call texit.cmd" filespec( 'name', arg1)
  13. else
  14.   say 'Only one command line argument supported by texit2.cmd
  15.