Musterlösung zu Aufgabe 5 -- Main.m2

MODULE Main;
  IMPORT Persons;
  IMPORT PersonsList;
  IMPORT Arguments;
  FROM SysExit IMPORT Exit;
  FROM StdIO IMPORT FILE, MODE, stderr, stdout,
                stdin, Fopen, Feof;
  FROM FtdIO IMPORT FwriteString, FwriteLn;

			
  VAR 
     persList: PersonsList.PersList;

     fromFile: FILE;
     inFile: ARRAY [0..255] OF CHAR;

BEGIN
   Arguments.InitArgs("infile");
   IF NOT Arguments.GetArg(inFile) THEN
	Arguments.Usage;
   END;
   Arguments.AllArgs;

   IF NOT Fopen(fromFile, inFile, read, TRUE) THEN
        FwriteString(stderr, "Error: can't open ");
	FwriteString(stderr,inFile);
        FwriteLn(stderr);
        Exit(1);
   END; 

   IF NOT PersonsList.InitPersList(fromFile,persList) THEN
	Exit(1);
   END;
   
   PersonsList.WritePersList(stdout,persList);

END Main.