Das Modul Arguments

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] 

oberon$ argsdemo 2>&1 | fmt -60
Usage: argsdemo [-a card] [-b string] [-c] [-d card1 card2]
text
oberon$
ArgsDemo.m2
MODULE ArgsDemo;

   FROM Arguments IMPORT InitArgs, GetFlag, FetchCard,
      FetchString, AllArgs, Usage;

   VAR
      avalue: CARDINAL;
      bvalue: ARRAY [0..31] OF CHAR;
      cflag: BOOLEAN;
      dvalues: ARRAY [0..1] OF CARDINAL;
      text: ARRAY [0..79] OF CHAR;

   PROCEDURE ProcessArgs;
      (* ... *)
   END ProcessArgs;

BEGIN
   ProcessArgs;
END ArgsDemo.

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 13.01.1999