Verarbeiten von Optionen

Concatenate4.om

(* set defaults *) numbered := FALSE; silent := FALSE; (* set usage line *) Args.Init("[-n] [-s] {file}"); (* process options *) WHILE Args.GetFlag(option) DO CASE option OF | "n": numbered := TRUE; | "s": silent := TRUE; ELSE Args.Usage; END; END;

Das originale cat-Kommando unterstützt einige Optionen, wovon hier zwei beispielhaft implementiert werden:

-n Gib vor jeder Zeile die Zeilennummer aus.

-s Ignoriere nicht zu öffnende Dateien.

Mit Args.Init wird die Kommandozeilen-Syntax spezifiziert, die ggf. später von Args.Usage ausgegeben wird.

Args.GetFlag holt die nächste Option von der Kommandozeile. Diese Prozedur liefert FALSE, sobald alle Optionen abgearbeitet sind. Dann bleiben nur noch die Dateiargumente (ohne führenden Bindestrich) übrig.