vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 11:02:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

compatIn improved, vmake makefile added

Browse source 
Former-commit-id: 1e13d96ce1
This commit is contained in:
Norayr Chilingarian 2014-02-03 16:39:46 +04:00
parent 246fa180b8
commit cbf3ee97ac
9 changed files with 197 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/lib/v4/compatIn.Mod
View file

@ -1,13 +1,14 @@
MODULE compatIn;
(* module created to compile Make utility from Trianus v4 system with less changes in original file ; -- noch *)
IMPORT Args;
IMPORT Args, IntStr := oocIntStr;
VAR Done* : BOOLEAN;
argnum : INTEGER;
PROCEDURE Open*;
BEGIN
argnum := 0;
Done := FALSE;
argnum := 0;
Done := FALSE;
END Open;
PROCEDURE Name*(VAR name : ARRAY OF CHAR);
@ -22,6 +23,28 @@ ELSE
END
END Name;
PROCEDURE Int*(VAR i : INTEGER);
VAR l : LONGINT;
r : IntStr.ConvResults;
name : ARRAY 32 OF CHAR;
BEGIN
INC(argnum);
IF argnum < Args.argc THEN
Args.Get(argnum, name);
IntStr.StrToInt(name, l, r);
IF r = IntStr.strAllRight THEN
i := SHORT(l);
Done := TRUE
ELSE
Done := FALSE
END
ELSE
Done := FALSE;
END
END Int;
BEGIN
Open();
END compatIn.