home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / misc_arexx / arghandler2.rexx < prev    next >
OS/2 REXX Batch file  |  1996-11-13  |  730b  |  40 lines
  1. /* 
  2.                         GiGA Argument Handler V2.0 
  3.  
  4.                          By Warp oh' GiGA Prod... 
  5.  
  6.                          Fri Aug 16 11:23:54 1996
  7.  
  8. Purpose: 
  9.     The ArgHandler() grabs the whole argument line, from cli, 
  10.     and puts every word, into a global array called:
  11.     ARG.1, ARG.2, ARG.3.....ARG.8 and so on...    
  12.  
  13.         Num_args = ArgHandler()    
  14.  
  15.   It's mainly created for my own programs, but go ahead, and use it...\X/'96
  16. */
  17.  
  18. Parse arg ARGS
  19. Argnum=Arghandler(ARGS)
  20.  
  21. if Argnum=0 then do
  22.     say 'ArgHandler():  No arguments...' 
  23.     exit(10)
  24. end
  25.  
  26. do i=1 to Argnum
  27.     Say ARG.i
  28. end i
  29.  
  30. exit 0
  31. /* end of program */
  32.  
  33.  
  34. Arghandler: Procedure Expose arg.
  35.     ARGS=arg(1)
  36.     l=words(ARGS)
  37.     do a=1 to l
  38.         arg.a = word(ARGS,a)
  39.     end a
  40. return l