Skip to content

Skl mod messages #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
sts-q wants to merge 2 commits into
base: development
Choose a base branch
from
Open

Skl mod messages #2

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
2de4b7b
SKL.Mod
sts-q Mar 25, 2022
3da241c
SKL.Mod
sts-q Mar 25, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
70 changes: 55 additions & 15 deletions system/SKL.Mod
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,15 +14,20 @@ MODULE SKL;
DN:=SKLDN,
TH:=SKLTH,
Kernel;

CONST
SignOnMessage = "LMSO SKL Compiler TWH 2022.02.09";

VAR
source : OPM.SourceInfo;

PROCEDURE Module*(FileInfo : OPM.SourceInfo; VAR error: BOOLEAN);
VAR ext, new: BOOLEAN; mod: T.Node; inittd : T.InitTD; err : BOOLEAN;
VAR
ext, new: BOOLEAN;
mod: T.Node;
inittd : T.InitTD;
err : BOOLEAN;
i: INTEGER;
BEGIN
OPM.ModuleBegin(FileInfo);
OPS.ModuleBegin;
Expand All @@ -37,7 +42,7 @@ MODULE SKL;
CGL.ModuleBegin;
CGH.ModuleBegin;
TT.ModuleBegin; (* before allocation *)

OPM.NewRefObj(mod(T.Enter).info.name^);
ASSERT((mod.class = T.Nstmt) & (mod.subcl = T.Senter));
ASSERT(ST.topScope # NIL);
Expand All @@ -49,15 +54,27 @@ MODULE SKL;
END;

TT.Module(mod, inittd, err);

IF ~err THEN
CGL.OutCode(mod(T.Enter).info.name^);
IF new THEN OPM.LogWStr(" new symbol file")
ELSIF ext THEN OPM.LogWStr(" extended symbol file")
IF new THEN
OPM.LogWStr("new symbol file ")
ELSIF ext THEN
OPM.LogWStr("extended symbol file")
ELSE
OPM.LogWStr(" ")
END ;
OPM.LogWNum(CGL.pc, 8); OPM.LogWStr(' bytes code ');
OPM.LogWNum(-ST.topScope(ST.SymbolScope).dsize, 8); OPM.LogWStr(' bytes data');
ELSE OPM.DeleteNewSym; OPM.DeleteRefObj;
OPM.LogWNum(CGL.pc, 8);
OPM.LogWStr(" ");
IF -ST.topScope(ST.SymbolScope).dsize # 0 THEN
OPM.LogWNum(-ST.topScope(ST.SymbolScope).dsize, 8);
ELSE
OPM.LogWStr(" ");
END;
OPM.LogWStr(' ');
ELSE
OPM.DeleteNewSym;
OPM.DeleteRefObj;
END;
END;

Expand All @@ -79,14 +96,37 @@ MODULE SKL;
VAR err : BOOLEAN;

PROCEDURE Do(VAR FileInfo : OPM.SourceInfo);
VAR S1: Texts.Scanner;
VAR
S1: Texts.Scanner;
i: INTEGER;
BEGIN
OPM.LogWStr(FileInfo.filename); OPM.LogWStr(" compiling ");
OPM.LogWStr(FileInfo.filename);
i := 0;
WHILE FileInfo.filename[i] # 0X DO
INC(i);
END;
WHILE i < 20 DO
OPM.LogW(" ");
INC(i)
END;
OPM.LogWStr(" ");
IF FileInfo.source # NIL THEN
Texts.OpenScanner(S1, FileInfo.source, FileInfo.beg); Texts.Scan(S1);
Texts.OpenScanner(S1, FileInfo.source, FileInfo.beg);
Texts.Scan(S1);

IF (S1.class = Texts.Name) & (S1.s = "MODULE") THEN Texts.Scan(S1);
IF S1.class = Texts.Name THEN OPM.LogWStr(S1.s) END
IF (S1.class = Texts.Name) & (S1.s = "MODULE") THEN
Texts.Scan(S1);
IF S1.class = Texts.Name THEN
OPM.LogWStr(S1.s);
i := 0;
WHILE S1.s[i] # 0X DO
INC(i)
END;
WHILE i < 15 DO
OPM.LogW(" ");
INC(i)
END
END
END ;
Module(FileInfo, err);
END ;
Expand Down Expand Up @@ -114,7 +154,7 @@ MODULE SKL;
END;
OPM.LogW(')');
END OnOff;

PROCEDURE Banner;
BEGIN
OPM.LogWStr('A: assertion evaluation'); OnOff(OPM.Assert IN source.options); OPM.LogWLn;
Expand Down