mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 14:32:24 +00:00
127 lines
3.5 KiB
Modula-2
127 lines
3.5 KiB
Modula-2
MODULE voc; (* J. Templ 3.2.95 *)
|
|
|
|
IMPORT
|
|
SYSTEM, Unix, Kernel := Kernel0,
|
|
OPP, OPB, OPT,
|
|
OPV, OPC, OPM,
|
|
extTools, Strings, vt100;
|
|
|
|
VAR mname : ARRAY 256 OF CHAR; (* noch *)
|
|
|
|
|
|
PROCEDURE -signal(sig: LONGINT; func: Unix.SignalHandler)
|
|
"signal(sig, func)";
|
|
|
|
PROCEDURE -fin()
|
|
"SYSTEM_FINALL()";
|
|
|
|
PROCEDURE -halt(): LONGINT
|
|
"SYSTEM_halt";
|
|
|
|
(*
|
|
PROCEDURE -gclock()
|
|
"SYSTEM_gclock = 1";
|
|
*)
|
|
|
|
PROCEDURE Trap(sig, code: LONGINT; scp: Unix.SigCtxPtr);
|
|
BEGIN fin();
|
|
IF sig = 3 THEN Unix.Exit(0)
|
|
ELSE
|
|
IF (sig = 4) & (halt() = -15) THEN OPM.LogWStr(" --- voc: internal error"); OPM.LogWLn END ;
|
|
Unix.Exit(2)
|
|
END
|
|
END Trap;
|
|
|
|
PROCEDURE Module*(VAR done: BOOLEAN);
|
|
VAR ext, new: BOOLEAN; p: OPT.Node;
|
|
BEGIN
|
|
OPP.Module(p, OPM.opt);
|
|
IF OPM.noerr THEN
|
|
OPV.Init;
|
|
OPV.AdrAndSize(OPT.topScope);
|
|
OPT.Export(ext, new);
|
|
IF OPM.noerr THEN
|
|
OPM.OpenFiles(OPT.SelfName);
|
|
OPC.Init;
|
|
OPV.Module(p);
|
|
IF OPM.noerr THEN
|
|
(*IF (OPM.mainprog IN OPM.opt) & (OPM.modName # "SYSTEM") THEN*)
|
|
IF (OPM.mainProg OR OPM.mainLinkStat) & (OPM.modName # "SYSTEM") THEN
|
|
OPM.DeleteNewSym;
|
|
IF ~OPM.notColorOutput THEN vt100.SetAttr(vt100.Green) END;
|
|
OPM.LogWStr(" main program");
|
|
IF ~OPM.notColorOutput THEN vt100.SetAttr(vt100.ResetAll) END;
|
|
ELSE
|
|
IF new THEN
|
|
IF ~OPM.notColorOutput THEN vt100.SetAttr(vt100.Green) END;
|
|
OPM.LogWStr(" new symbol file");
|
|
IF ~OPM.notColorOutput THEN vt100.SetAttr(vt100.ResetAll) END;
|
|
OPM.RegisterNewSym
|
|
ELSIF ext THEN OPM.LogWStr(" extended symbol file"); OPM.RegisterNewSym
|
|
END
|
|
END;
|
|
|
|
|
|
ELSE OPM.DeleteNewSym
|
|
END
|
|
END
|
|
END ;
|
|
OPM.CloseFiles; OPT.Close;
|
|
OPM.LogWLn; done := OPM.noerr;
|
|
|
|
|
|
|
|
END Module;
|
|
|
|
PROCEDURE Translate*;
|
|
VAR done: BOOLEAN;
|
|
VAR modulesobj: ARRAY 2048 OF CHAR; (* here we hold all modules name given on the command line, to add corresponding .o files to the external compiler options *)
|
|
BEGIN
|
|
modulesobj := "";
|
|
OPM.OpenPar; (* gclock(); slightly faste rtranslation but may lead to opening "too many files" *)
|
|
OPT.bytetyp.size := OPM.ByteSize;
|
|
OPT.int8typ.size := 1;
|
|
OPT.int16typ.size := 2;
|
|
OPT.int32typ.size := 4;
|
|
OPT.int64typ.size := 8;
|
|
OPT.sysptrtyp.size := OPM.PointerSize;
|
|
OPT.chartyp.size := OPM.CharSize;
|
|
OPT.settyp.size := OPM.SetSize;
|
|
OPT.realtyp.size := OPM.RealSize;
|
|
OPT.inttyp.size := OPM.IntSize;
|
|
OPT.linttyp.size := OPM.LIntSize;
|
|
OPT.lrltyp.size := OPM.LRealSize;
|
|
OPT.sinttyp.size := OPM.SIntSize;
|
|
OPT.booltyp.size := OPM.BoolSize;
|
|
LOOP
|
|
OPM.Init(done, mname);
|
|
IF ~done THEN EXIT END ;
|
|
OPM.InitOptions;
|
|
Kernel.GC(FALSE);
|
|
Module(done);
|
|
IF ~done THEN Unix.Exit(1) END;
|
|
|
|
(* noch *)
|
|
IF done THEN
|
|
IF ~OPM.dontAsm THEN
|
|
extTools.Assemble(OPM.modName);
|
|
IF ~(OPM.mainProg OR OPM.mainLinkStat) THEN Strings.Append(" ",modulesobj); Strings.Append(OPM.modName, modulesobj); Strings.Append(".o ", modulesobj) END;
|
|
|
|
IF ~OPM.dontLink & (OPM.mainProg OR OPM.mainLinkStat) THEN
|
|
extTools.LinkMain (OPM.modName, OPM.mainLinkStat, modulesobj);
|
|
END;
|
|
END;
|
|
END
|
|
|
|
|
|
|
|
|
|
END (* loop *)
|
|
END Translate;
|
|
|
|
BEGIN
|
|
signal(2, Trap); (* interrupt *)
|
|
signal(3, Trap); (* quit *)
|
|
signal(4, Trap); (* illegal instruction, HALT *)
|
|
OPB.typSize := OPV.TypSize; OPT.typSize := OPV.TypSize; Translate
|
|
END voc.
|