vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 05:12:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

A bit more tidying of case alignment

Browse source
This commit is contained in:
David Brown 2016-08-13 00:25:09 +01:00
parent 58556457bc
commit f28c1d22cf
1 changed files with 93 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/compiler/OPS.Mod
View file

@ -176,7 +176,8 @@ MODULE OPS; (* NW, RC 6.3.89 / 18.10.92 *) (* object model 3.6.92 *)
END END
END ; END ;
CASE ch OF (* ch > " " *) CASE ch OF (* ch > " " *)
| 22X, 27X : Str(s) | 22X,
27X: Str(s)
| "#": s := OPM.neq; OPM.Get(ch) | "#": s := OPM.neq; OPM.Get(ch)
| "&": s := OPM.and; OPM.Get(ch) | "&": s := OPM.and; OPM.Get(ch)
| "(": OPM.Get(ch); | "(": OPM.Get(ch);
@ -254,7 +255,10 @@ MODULE OPS; (* NW, RC 6.3.89 / 18.10.92 *) (* object model 3.6.92 *)
IF name = "WHILE" THEN s := OPM.while IF name = "WHILE" THEN s := OPM.while
ELSIF name = "WITH" THEN s := OPM.with ELSIF name = "WITH" THEN s := OPM.with
END END
| "G".."H", "J", "K", "Q", "S", "X".."Z": Identifier(s) | "G".."H",
"J".."K",
"Q", "S",
"X".."Z": Identifier(s)
| "[": s := OPM.lbrak; OPM.Get(ch) | "[": s := OPM.lbrak; OPM.Get(ch)
| "]": s := OPM.rbrak; OPM.Get(ch) | "]": s := OPM.rbrak; OPM.Get(ch)
| "^": s := OPM.arrow; OPM.Get(ch) | "^": s := OPM.arrow; OPM.Get(ch)