home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / c / genmo112.lha / GTB-Modula / Modules / NewArgSupport.def < prev    next >
Encoding:
Modula Definition  |  1993-09-28  |  1.9 KB  |  62 lines
  1. DEFINITION MODULE NewArgSupport;
  2.  
  3. (*
  4.  * -------------------------------------------------------------------------
  5.  *
  6.  *    :Module.    NewArgSupport
  7.  *    :Contents.    Support module to get arguments transparent from CLI or Workbench
  8.   
  9.  *    :Author.    Reiner Nix
  10.  *    :Address.    Geranienhof 2, 5000 Köln 71 Seeberg
  11.  *    :Address.    rbnix@pool.informatik.rwth-aachen.de
  12.  *    :Copyright.    Public Domain
  13.  *    :Language.    Modula-2
  14.  *    :Translator.    M2Amiga A-L V4.2d
  15.  *    :History.    V1.0    08.08.92 ArgSupport
  16.  *    :History    V1.0    03.04.93 NewArgSupport now getting cli-args by ReadArg
  17.  *
  18.  * -------------------------------------------------------------------------
  19.  *)
  20.  
  21. (*
  22.  * --- NewArgSupport ------------------------------------------------------------
  23.  * Modul zur Abfrage von Programmargumenten. Das Modul verhält sich nach außen
  24.  * transparent. Es ist also egal ob beim Start über das CLI Argumente mitgegeben
  25.  * wurden, oder mittels der Workbench über ToolTypes im Icon Argumente zu benutzen
  26.  * sind.
  27.  *
  28.  * Vor Abfrage der Argumente muß mit UseArguments eine Schablone für alle
  29.  * zu beachtenden Argumente angegeben werden. Diese Schablone ist nach
  30.  * den Standardregeln zu bilden. Bei Aufruf über die Workbench wird die Schablone
  31.  * nicht benutzt.
  32.  * ------------------------------------------------------------------------------
  33.  *)
  34.  
  35.  
  36. CONST    maxStr            =128;
  37.  
  38.  
  39. TYPE    Str            =ARRAY [0..maxStr] OF CHAR;
  40.     StrPtr            =POINTER TO Str;
  41.     StrArray        =ARRAY [0..maxStr] OF StrPtr;
  42.     StrArrayPtr        =POINTER TO StrArray;
  43.  
  44. PROCEDURE UseArguments        (    Template        :ARRAY OF CHAR);
  45.  
  46.  
  47.  
  48. PROCEDURE ArgInt        (    Keyword        :ARRAY OF CHAR;
  49.                      Default        :INTEGER) :INTEGER;
  50.  
  51. PROCEDURE ArgString        (    Keyword,
  52.                      Default        :ARRAY OF CHAR;
  53.                  VAR Value        :ARRAY OF CHAR);
  54.  
  55. PROCEDURE ArgBoolean        (    Keyword        :ARRAY OF CHAR;
  56.                      Default        :BOOLEAN) :BOOLEAN;
  57.  
  58. PROCEDURE ArgMultiple        (    Keyword        :ARRAY OF CHAR) :StrArrayPtr;
  59.  
  60.  
  61. END NewArgSupport.
  62.