index 5c84f5296973d52dd8df3146e4eee924c5bade84..b88795d846777093012fcf5ba61934780c18ff28 100644 (file)
module = 75; eof = 76;
(* module state flags *)
- imported = 0; trace = 1; hasObj = 2; hasSym = 3; hasErrors = 4; library = 5;
+ imported = 0; trace = 1; hasObj = 2; hasSym = 3; hasErrors = 4;
+ library = 5; force = 6;
debugImport = FALSE;
debugOrder = FALSE;
debugJobs = FALSE;
TYPE
+ Name = ARRAY 256 OF CHAR;
+
String = POINTER TO ARRAY OF CHAR;
Selector = POINTER TO RECORD
Module = POINTER TO RECORD
name: DevCPT.Name;
+ library: DevCPT.Name;
odc: Files.Name;
depth: INTEGER; (* 0: leaf, MAX: root *)
dir: DevCPM.Directory;
worker: DswProcs.Process;
END;
+ Library = POINTER TO RECORD
+ name: Name;
+ library: Name;
+ next: Library;
+ END;
+
VAR (* options *)
- auto, trap, clean: BOOLEAN;
+ auto, trap, clean, symonly, nocode1, nocode2: BOOLEAN;
exe, target, base: String;
jobs: INTEGER;
modList, lnkList, cmpList: ARRAY maxImps OF Module;
def: Selector; (* with head, global list of selectors *)
dirList: DevCPM.Directory;
+ libList: Library;
PROCEDURE Error (IN str, p0, p1: ARRAY OF CHAR; i2: INTEGER);
VAR p2: ARRAY 32 OF CHAR;
i := IdentLen(n);
IF i # 0 THEN
IF ~((n[i] = 0X) OR (((n[i] = "+") OR (n[i] = "-")) & (n[i + 1] = 0X))) THEN
- Error("defines: expectd + or - after identifier (^0)", n, "", 0)
+ Error("expectd + or - after selector identifier (^0)", n, "", 0)
END;
v := n[i] # "-"; n[i] := 0X; s := def;
WHILE (s.next # NIL) & (s.next.name$ # n$) DO s := s.next END;
ELSIF overwrite THEN
s.next.value := v
END
- ELSE Error("defines: '^0' not valid identifier", n, "", 0)
+ ELSE Error("selector '^0' have invalid identifier", n, "", 0)
END
END Define;
END
END AddModule;
+ PROCEDURE AddLibrary (IN key, val: ARRAY OF CHAR);
+ VAR x: Library;
+ BEGIN
+ x := libList;
+ WHILE (x # NIL) & (x.name$ # key$) DO x := x.next END;
+ IF x # NIL THEN x.library := val$
+ ELSE NEW(x); x.name := key$; x.library := val$; x.next := libList; libList := x
+ END
+ END AddLibrary;
+
+ PROCEDURE AddLib (IN s: ARRAY OF CHAR);
+ VAR key, val: Name; i, j: INTEGER;
+ BEGIN
+ i := 0; j := 0;
+ WHILE (s[i] # 0X) & (s[i] # "=") DO
+ key[j] := s[i];
+ INC(j);
+ INC(i)
+ END;
+ key[j] := 0X;
+ j := 0;
+ IF s[i] = "=" THEN
+ INC(i);
+ WHILE s[i] # 0X DO
+ val[j] := s[i];
+ INC(j);
+ INC(i)
+ END
+ END;
+ val[j] := 0X;
+ IF key # "" THEN AddLibrary(key, val)
+ ELSE Error("empty library key", "", "", 0)
+ END
+ END AddLib;
+
+ PROCEDURE FindLib (IN key: ARRAY OF CHAR): Library;
+ VAR x: Library;
+ BEGIN
+ x := libList;
+ WHILE (x # NIL) & (x.name$ # key$) DO x := x.next END;
+ RETURN x
+ END FindLib;
+
PROCEDURE StrToInt (IN s: ARRAY OF CHAR; def: INTEGER): INTEGER;
VAR x, res: INTEGER;
BEGIN
Log.String("Usage: cpmake [options] module..."); Log.Ln;
Log.String("Options:"); Log.Ln;
Log.String(" -a Enable automatic dependency resolution"); Log.Ln;
+ Log.String(" -b Do not compile modules"); Log.Ln;
+ Log.String(" -x Do not link objects"); Log.Ln;
Log.String(" -c Remove all generated files"); Log.Ln;
+ Log.String(" -s Generate symbol files only"); Log.Ln;
+ Log.String(" -d selector Add selector"); Log.Ln;
+ Log.String(" -r lib[=s] Replace library name on link stage"); Log.Ln;
Log.String(" -t target Specify target rules"); Log.Ln;
Log.String(" -o file Generate object file"); Log.Ln;
Log.String(" -j num Specifies the number of jobs to run simultaneously"); Log.Ln;
exe := NIL; auto := FALSE; jobs := 1; def.next := NIL; mno := 0; rno := 0;
target := NewStr("default"); base := NewStr("cprules");
LOOP
- CASE DswOpts.GetOpt("acdgo:t:j:f:") OF
+ CASE DswOpts.GetOpt("acbxd:sgGo:t:j:f:r:h") OF
| "a": auto := TRUE
+ | "b": nocode1 := TRUE
+ | "x": nocode2 := TRUE
| "c": clean := TRUE
- | "d": trap := TRUE
+ | "g": trap := TRUE
+ | "G": Kernel.intTrap := TRUE
+ | "s": symonly := TRUE
| "f": base := DswOpts.str
+ | "d": Define(DswOpts.str, TRUE)
+ | "r": AddLib(DswOpts.str)
| "h": Help
| "j": jobs := MIN(MAX(StrToInt(DswOpts.str, 1), 1), maxJobs)
| "o": exe := DswOpts.str
IF sym = eql THEN DevCPS.Get(sym)
ELSE INCL(DevCPM.options, DevCPM.noCode)
END;
- IF sym = string THEN INCL(m.flags, library); DevCPS.Get(sym)
+ IF sym = string THEN INCL(m.flags, library); m.library := DevCPS.str$; DevCPS.Get(sym)
ELSE err(string)
END;
CheckSym(rbrak)
ParseModule(m);
DevCPR.Check;
ok := DevCPM.noerr;
+ IF DevCPR.used THEN INCL(m.flags, force) END;
DevCPR.Close;
DevCPM.InsertMarks;
DevCPM.Close;
RETURN ready
END Ready;
+ PROCEDURE PrepareCompilerDeps (m: Module; p: DswProcs.Process; root, libsOnly: BOOLEAN);
+ VAR i: INTEGER; s: ARRAY 3 OF CHAR; lib: Library;
+ BEGIN
+ IF ~(trace IN m.flags) THEN
+ INCL(m.flags, trace);
+ FOR i := 0 TO m.mno - 1 DO
+ PrepareCompilerDeps(m.imp[i], p, FALSE, libsOnly)
+ END;
+ IF ~libsOnly OR (library IN m.flags) THEN
+ IF library IN m.flags THEN s := "-l" ELSE s := "-m" END;
+ IF root THEN s[1] := CAP(s[1]) END;
+ IF library IN m.flags THEN
+ lib := FindLib(m.library$);
+ IF lib # NIL THEN
+ IF lib.library$ # "" THEN
+ p.PutParam(s);
+ p.PutParam(lib.library$)
+ END
+ ELSE
+ p.PutParam(s);
+ p.PutParam(m.library$)
+ END
+ ELSE
+ p.PutParam(s);
+ p.PutParam(m.name$)
+ END
+ END;
+ EXCL(m.flags, trace)
+ END
+ END PrepareCompilerDeps;
+
PROCEDURE PrepareCompiler (m: Module): DswProcs.Process;
- VAR p: DswProcs.Process; s: Selector;
+ VAR p: DswProcs.Process; s: Selector; i: INTEGER;
BEGIN
ASSERT(m # NIL, 20);
ASSERT(m.odc # "", 21);
p := DswProcs.dir.New();
p.Program(base + "/" + target + "/" + "build");
p.PutParam(m.odc);
+ IF nocode1 THEN p.PutParam("-b") END;
+ IF nocode2 THEN p.PutParam("-x") END;
+ IF force IN m.flags THEN p.PutParam("-f") END;
+ IF symonly OR (library IN m.flags) THEN p.PutParam("-s") END;
+ s := def.next;
+ WHILE s # NIL DO
+ IF s.value THEN p.PutParam("-D") ELSE p.PutParam("-d") END;
+ p.PutParam(s.name$);
+ s := s.next
+ END;
+ FOR i := 0 TO m.mno - 1 DO
+ PrepareCompilerDeps(m.imp[i], p, TRUE, FALSE);
+ END;
RETURN p
END PrepareCompiler;
PROCEDURE Link;
VAR p: DswProcs.Process; ok: BOOLEAN; i, res: INTEGER;
BEGIN
- IF exe # NIL THEN
+ IF ~symonly & (exe # NIL) THEN
p := DswProcs.dir.New();
p.Program(base + "/" + target + "/" + "link");
p.PutParam(exe$);
p.PutParam(lnkList[i].name$)
END
END;
+ FOR i := 0 TO mno - 1 DO
+ IF library IN lnkList[i].flags THEN
+ PrepareCompilerDeps(lnkList[i], p, FALSE, TRUE)
+ END
+ END;
p.Execute(ok);
IF ok THEN
p.Wait;