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