index b43b539bd2beebe3747961b7bd2aa1acb037a02e..851d82e8b6000813164542de76d1b619d3e42194 100644 (file)
(* symbol values *)
null = 0;
(* symbol values *)
null = 0;
- if = 1; then = 2; else = 3; elsif = 4; end = 5; new = 6;
- ident = 7; plus = 8; minus = 9;
- not = 10; and = 11; or = 12; rpar = 13; lpar = 14;
- endcom = 15; eof = 16;
+ if = 1; then = 2; else = 3; elsif = 4; end = 5;
+ new = 6; error = 7; ident = 8; plus = 9; minus = 10;
+ not = 11; and = 12; or = 13; rpar = 14; lpar = 15;
+ endcom = 16; eof = 17;
(* func numbers *)
var = 0; defined = 1;
(* func numbers *)
var = 0; defined = 1;
IF name = "END" THEN sym := end
ELSIF name = "ELSE" THEN sym := else
ELSIF name = "ELSIF" THEN sym := elsif
IF name = "END" THEN sym := end
ELSIF name = "ELSE" THEN sym := else
ELSIF name = "ELSIF" THEN sym := elsif
+ ELSIF name = "ERROR" THEN sym := error
END
| "I": Identifier(sym); IF name = "IF" THEN sym := if END
| "N": Identifier(sym); IF name = "NEW" THEN sym := new END
END
| "I": Identifier(sym); IF name = "IF" THEN sym := if END
| "N": Identifier(sym); IF name = "NEW" THEN sym := new END
IF top = NIL THEN err(51); fold := 0; If(TRUE) END
END End;
IF top = NIL THEN err(51); fold := 0; If(TRUE) END
END End;
+ PROCEDURE Printable* (): BOOLEAN;
+ VAR c: Context;
+ BEGIN
+ c := top;
+ WHILE (c # NIL) & c.val DO c := c.next END;
+ RETURN c = NIL
+ END Printable;
+
PROCEDURE Parse*;
VAR val: BOOLEAN; s: Selector;
BEGIN
PROCEDURE Parse*;
VAR val: BOOLEAN; s: Selector;
BEGIN
IF sym = ident THEN s := New(name, FALSE); Get(sym)
ELSE err(48)
END
IF sym = ident THEN s := New(name, FALSE); Get(sym)
ELSE err(48)
END
+ ELSIF sym = error THEN
+ IF Printable() THEN err(501) END; Get(sym)
ELSIF sym = ident THEN
Get(sym);
IF sym = plus THEN Old(name).val := TRUE; Get(sym)
ELSIF sym = ident THEN
Get(sym);
IF sym = plus THEN Old(name).val := TRUE; Get(sym)
IF sym # endcom THEN err(5) ELSE DevCPM.errpos := DevCPM.curpos - 1 END
END Parse;
IF sym # endcom THEN err(5) ELSE DevCPM.errpos := DevCPM.curpos - 1 END
END Parse;
- PROCEDURE Printable* (): BOOLEAN;
- VAR c: Context;
- BEGIN
- c := top;
- WHILE (c # NIL) & c.val DO c := c.next END;
- RETURN c = NIL
- END Printable;
-
PROCEDURE Check*;
BEGIN
IF fold # 1 THEN err(14) END
PROCEDURE Check*;
BEGIN
IF fold # 1 THEN err(14) END