<> <> <> DIRECTORY Globals, IO, Parse, Rope; ParseImpl: CEDAR PROGRAM IMPORTS IO, Rope EXPORTS Parse = BEGIN OPEN Parse, Globals;  Args: PUBLIC PROC[line: Rope.ROPE] RETURNS [Arg] = BEGIN result: Arg _ NIL; prev: Arg _ NIL; cur: Arg; stream: IO.STREAM _ NIL; token1, token2: Rope.ROPE; length: INT; <> stream _ IO.RIS[line]; WHILE TRUE DO ENABLE IO.EndOfStream => EXIT; token2 _ NIL; [token: token1] _ IO.GetTokenRope[stream, WhiteSpace]; IF token1 = NIL THEN LOOP; <> length _ Rope.Length[token1]; IF length >= 2 THEN IF (Rope.Fetch[token1, 0] = '-) AND (Rope.Fetch[token1, 1] = '-) THEN EXIT; IF (Rope.Fetch[token1, 0] = '-) AND (length > 2) THEN BEGIN token2 _ Rope.Substr[base: token1, start: 2, len: length-2]; token1 _ Rope.Substr[base: token1, start: 0, len: 2]; END; <> cur _ NEW[ArgRec]; cur.rope _ token1; IF result = NIL THEN result _ cur; IF prev # NIL THEN prev.next _ cur; prev _ cur; IF token2 # NIL THEN BEGIN cur _ NEW[ArgRec]; cur.rope _ token2; prev.next _ cur; prev _ cur; END; ENDLOOP; RETURN [result]; END;  Real: PUBLIC PROC[arg: Arg] RETURNS [parseOK: BOOLEAN, val: REAL] = BEGIN ENABLE ANY => BEGIN parseOK _ FALSE; val _ 0.0; CONTINUE; END; IF arg = NIL THEN RETURN [FALSE, 0.0]; val _ IO.GetReal[IO.RIS[arg.rope]]; RETURN [TRUE, val]; END;  Int: PUBLIC PROC[arg: Arg] RETURNS [parseOK: BOOLEAN, val: INT] = BEGIN ENABLE ANY => BEGIN parseOK _ FALSE; val _ 0; CONTINUE; END; IF arg = NIL THEN RETURN [FALSE, 0]; val _ IO.GetInt[IO.RIS[arg.rope]]; RETURN [TRUE, val]; END;  Lookup: PUBLIC PROC[rope: Rope.ROPE, table: DESCRIPTOR FOR ARRAY OF Rope.ROPE] RETURNS [index: INT] = TRUSTED BEGIN botIndex: INTEGER _ 0; topIndex: INTEGER _ LENGTH[table] - 1; char: CHAR; <> FOR i: INTEGER IN [0..1000) DO IF i >= Rope.Length[rope] THEN BEGIN IF botIndex = topIndex THEN RETURN [botIndex]; RETURN [-1]; END; char _ Rope.Fetch[rope, i]; <> WHILE TRUE DO IF Rope.Length[table[botIndex]] > i THEN IF Rope.Fetch[table[botIndex], i] = char THEN EXIT; IF botIndex = topIndex THEN RETURN [-2]; botIndex _ botIndex + 1; ENDLOOP; <> WHILE TRUE DO IF Rope.Length[table[topIndex]] > i THEN IF Rope.Fetch[table[topIndex], i] = char THEN EXIT; IF botIndex = topIndex THEN RETURN [-2]; topIndex _ topIndex - 1; ENDLOOP; ENDLOOP; RETURN [-2]; END;  WhiteSpace: PUBLIC IO.BreakProc = BEGIN IF (char = IO.CR) OR (char = IO.TAB) OR (char = IO.LF) OR (char = IO.SP) THEN RETURN [sepr] ELSE RETURN[other]; END; END.