Filter für die Historie

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

VirtualTour.om
PROCEDURE HistoryFilter(in, out: Streams.Stream);

   (* ... *)

   PROCEDURE ProcessCommand;
   (* ... *)

BEGIN (* HistoryFilter *)
   Init; Texts.Open(history);
   LOOP
      Read.LineS(in, line);
      IF in.count = 0 THEN
         EXIT
      END;
      IF (line[0] # "!") THEN
         Write.LineS(history, line);
         Write.LineS(out, line);
      ELSE
         ProcessCommand;
      END;
   END;
END HistoryFilter;

*Mit Texts.Open wird eine interne Datei zum Lesen und Schreiben eröffnet.
 
*Danach wird zeilenweise gelesen. Zeilen, die mit einem Ausrufe-Zeichen beginnen werden der Sonderbehandlung von ProcessCommand überlassen. Alle anderen Zeilen werden unverändert durchgereicht.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]
Copyright © 2004, 2005 Andreas Borchert, in HTML konvertiert am 18.02.2005