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

ported SysIO, modified ulmSYSTEM for that as a wrapper to Unix.Mod

Browse source 
ulmSYSTEM.UNIXCALLs are wrapped to Unix.Mod functions.
Added Pipe to Unix.Mod


Former-commit-id: 841d00e9d0
This commit is contained in:
Norayr Chilingarian 2013-10-29 16:23:31 +04:00
parent b21f525f9b
commit 4e45337b83
14 changed files with 466 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/lib/ulm/ulmSysErrors.Mod
View file

@ -138,8 +138,8 @@ MODULE ulmSysErrors;
EventRec* =
RECORD
(Events.EventRec)
errno*: INTEGER;
syscall*: INTEGER; (* number of system call *)
errno*: (*INTEGER*)LONGINT;
syscall*: (*INTEGER*)LONGINT; (* number of system call *)
text*: ARRAY textlen OF CHAR;
END;
@ -150,7 +150,7 @@ MODULE ulmSysErrors;
syserror*: ARRAY ncodes OF Events.EventType;
PROCEDURE Raise*(errors: RelatedEvents.Object;
errno, syscall: INTEGER; text: ARRAY OF CHAR);
errno, syscall: (*INTEGER*)LONGINT; text: ARRAY OF CHAR); (* in ulm's system INTEGER and LONGINT have the same size *)
(* raises the events syserrors and syserrors[syscall];
`text' contains additional information (e.g. filenames);
further, the syserrors[syscall] event is passed to
@ -192,9 +192,9 @@ MODULE ulmSysErrors;
IF ~Streams.WriteByte(s, ch) THEN END;
END Write;
PROCEDURE WriteInt(intval: INTEGER);
PROCEDURE WriteInt(intval: LONGINT);
VAR
rest: INTEGER;
rest: LONGINT;
BEGIN
rest := intval DIV 10;
IF rest > 0 THEN