Lokale Prozeduren

FortuneCookie.om

PROCEDURE OpenCookies(VAR file: CookieFile) : BOOLEAN; PROCEDURE ReadCookie(VAR pos: Streams.Count) : BOOLEAN; VAR line: ARRAY 4 OF CHAR; BEGIN LOOP Streams.GetPos(file.s, pos); Read.LineS(file.s, line); (* end of input file? *) IF file.s.count = 0 THEN RETURN FALSE END; (* skip commented or empty lines *) IF (line[0] # "%") & (line[0] # 0X) THEN RETURN TRUE END; END; END ReadCookie; BEGIN (* OpenCookies *)

Neben lokalen Variablen kann es auch lokale Prozeduren geben.

Lokale Prozeduren sind nur innerhalb der sie umgebenden Prozedur sichtbar.

Lokale Prozeduren dürfen auf die Parameter und Variablen der sie umgebenden Prozedur zugreifen. (Hier konkret auf file).

	Neben lokalen Variablen kann es auch lokale Prozeduren geben.
	Lokale Prozeduren sind nur innerhalb der sie umgebenden Prozedur sichtbar.
	Lokale Prozeduren dürfen auf die Parameter und Variablen der sie umgebenden Prozedur zugreifen. (Hier konkret auf file).