Einlesen eines Labyrinths V

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

PathFinder.m2
WHILE Fgetc(ch, input) DO
   IF ch = nl THEN
      (* ... *)
   ELSE
      IF ch = space THEN
         (* ... diverse Ueberpruefungen ... *)
         spaceSeen := TRUE;
      ELSIF column = 0 THEN
         spaceSeen := FALSE;
      END;
      IF (line >= maxsize) OR (column >= maxsize) THEN
         WriteString("Das Labyrinth ist zu gross!");
         WriteLn;
         RETURN FALSE
      END;
      IF ch = walk THEN
         WriteString("Bitte keine Markierungszeichen ");
         WriteString("verwenden!"); WriteLn;
         RETURN FALSE
      END;
      maze[line, column] := ch; INC(column);
   END;
END;

*Bei Leerzeichen müssen diverse Überprüfungen vorgenommen werden, um unzulässige Ein- und Ausgänge abzufangen (siehe folgende Folie).
 

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