mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 18:02:25 +00:00
27 lines
451 B
Modula-2
27 lines
451 B
Modula-2
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.
|