vmake ported

src/lib/v4/compatIn.Mod

@@ -0,0 +1,27 @@
+MODULE compatIn;
+(* module created to compile Make utility from Trianus v4 system with less changes in original file ; -- noch *)
+IMPORT Args;
+
+VAR Done* : BOOLEAN;
+    argnum : INTEGER;
+PROCEDURE Open*;
+BEGIN
+argnum := 0;
+Done := FALSE;
+END Open;
+
+PROCEDURE Name*(VAR name : ARRAY OF CHAR);
+BEGIN
+INC(argnum);
+
+IF argnum < Args.argc THEN 
+   Args.Get(argnum, name);
+   Done := TRUE
+ELSE
+   Done := FALSE
+END
+END Name;
+
+BEGIN
+   Open();
+END compatIn.