Kombination von Filtern

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

Filters.om
PROCEDURE ProcessArgs;

   VAR
      flag: CHAR;

   PROCEDURE InstallInputFilter(filter: CrPipes.Filter);
   (* ... *)

BEGIN (* ProcessArgs *)
   Args.Init("[-e] [-u]");
   WHILE Args.GetFlag(flag) DO
      CASE flag OF
      | "e":   InstallInputFilter(RemoveEmptyLines);
      | "u":   InstallInputFilter(UpperCase);
      ELSE
         Args.Usage
      END;
   END;
   Args.AllArgs;
END ProcessArgs;

*Dabei können beliebig viele Filter hintereinander installiert werden.
 

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