home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xco212p.zip / ISODEF / programa.def < prev    next >
Text File  |  1994-12-22  |  785b  |  26 lines
  1. DEFINITION MODULE ProgramArgs;
  2.  
  3.   (* Access to program arguments *)
  4.  
  5. IMPORT IOChan;
  6.  
  7. TYPE
  8.   ChanId = IOChan.ChanId;
  9.  
  10. PROCEDURE ArgChan (): ChanId;
  11.   (* Returns a value that identifies a channel for reading program arguments *)
  12.  
  13. PROCEDURE IsArgPresent (): BOOLEAN;
  14.   (* Tests if there is a current argument to read from. If not, read <=
  15.      IOChan.CurrentFlags() will be FALSE, and attempting to read from the argument channel
  16.      will raise the exception notAvailable.
  17.   *)
  18.  
  19. PROCEDURE NextArg ();
  20.   (* If there is another argument, causes subsequent input from the argument device to come
  21.      from the start of the next argument.  Otherwise there is no argument to read from, and
  22.      a call of IsArgPresent will return FALSE.
  23.   *)
  24.  
  25. END ProgramArgs.
  26.