home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c220 / 4.ddi / LIB / SRC / ARG.PF < prev    next >
Encoding:
Text File  |  1990-12-16  |  970 b   |  31 lines
  1. pragma c_include('implement.pf');
  2. package Arg;
  3.    pragma Routine_aliasing_convention(Implement.RTE_aliasing);
  4.    {
  5.       Routines to read command parameters
  6.    }
  7.  
  8.    function Argc():Cardinal;   external;
  9.    {Returns the number of command parameters}
  10.  
  11.    type Argv_type = String(100);
  12.  
  13.    function Argv(I: Cardinal): Argv_type;  external;
  14.    {Returns the Ith command parameter}
  15.    {NOTE:  Under DOS versions 3.0 and higher, Argv(0) returns
  16.     the name of the program.  For other DOS versions, Argv(0)
  17.     returns the null string.}
  18.  
  19.    { Arguments can be quoted if Arg_quote_char <> space, tab, or comma. }
  20.    { To denote a quote within an argument, use the quote character twice. }
  21.    { By default the Arg_quote_char is blank.                }
  22.  
  23.    var Arg_quote_char: char;
  24.  
  25.    type Args_type = String(256);
  26.  
  27.    function Args:Args_type;          external;
  28.    {Returns the entire command parameter string}
  29. end;
  30. pragma Alias(Arg,Implement.RTE || 'arg');
  31.