home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / util / misc / kalender / txt / commands.def < prev    next >
Text File  |  1993-12-18  |  903b  |  33 lines
  1.  DEFINITION MODULE Commands; (* Copyright 1993 by Kai Hofmann *)
  2.  
  3.  (*$ StackChk    := FALSE *)
  4.  (*$ RangeChk    := FALSE *)
  5.  (*$ OverflowChk := FALSE *)
  6.  (*$ NilChk      := FALSE *)
  7.  (*$ CaseChk     := FALSE *)
  8.  (*$ ReturnChk   := FALSE *)
  9.  (*$ LargeVars   := FALSE *)
  10.  (*$ EntryClear  := TRUE  *)
  11.  (*$ Volatile    := TRUE  *)
  12.  (*$ StackParms  := TRUE  *)
  13.  (*$ CStrings    := TRUE  *)
  14.  
  15.  
  16.  TYPE
  17.     string = ARRAY [1..80] OF CHAR;
  18.     strptr = POINTER TO string;
  19.  
  20.  
  21.  PROCEDURE CheckOption (option : string) : BOOLEAN;
  22.             (* Guckt, ob die option in der Commandline vorkommt *)
  23.  
  24.  PROCEDURE GetOptionParam (option : string; VAR quotes : BOOLEAN) : strptr;
  25.             (* Holt den Parameter der option                    *)
  26.  
  27.  PROCEDURE Killstr (param : strptr);
  28.             (* Löscht den Rückgabestring                        *)
  29.  
  30.  PROCEDURE AnzArg() : INTEGER;
  31.             (* Hollt Anzahl der Argumente der Commandline       *)
  32.  
  33.  END Commands.