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

ported Write

Browse source
This commit is contained in:
Norayr Chilingarian 2013-10-28 20:49:41 +04:00
parent a34ee73f1c
commit 44734e6643
1 changed files with 43 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

50
src/lib/ulm/ulmWrite.Mod
View file

@ -31,18 +31,54 @@
----------------------------------------------------------------------------
*)
MODULE Write;
MODULE ulmWrite;
IMPORT ASCII := ulmASCII, Print := ulmPrint, StreamDisciplines := ulmStreamDisciplines, Streams := ulmStreams, SYSTEM;
TYPE barr = ARRAY SIZE(LONGINT) OF SYSTEM.BYTE; (* need this because voc does not convert implicitly LONGINT to ARRAY OF BYTE; -- noch *)
pbarr = POINTER TO barr;
TYPE lrarr = ARRAY SIZE(LONGREAL) OF SYSTEM.BYTE; (* need this because voc does not convert implicitly LONGINT to ARRAY OF BYTE; -- noch *)
plrarr = POINTER TO barr;
PROCEDURE LongToByteArr ( l : LONGINT; VAR bar : barr); (* noch *)
VAR b : SYSTEM.BYTE;
p : pbarr;
i : LONGINT;
BEGIN
p := SYSTEM.VAL(pbarr, SYSTEM.ADR(l));
FOR i := 0 TO SIZE(LONGINT) -1 DO
b := p^[i]; bar[i] := b;
END
END LongToByteArr;
PROCEDURE LRealToByteArr ( l : LONGREAL; VAR lar : lrarr); (* noch *)
VAR b : SYSTEM.BYTE;
p : plrarr;
i : LONGINT;
BEGIN
p := SYSTEM.VAL(plrarr, SYSTEM.ADR(l));
FOR i := 0 TO SIZE(LONGREAL) -1 DO
b := p^[i]; lar[i] := b;
END
END LRealToByteArr;
IMPORT ASCII, Print, StreamDisciplines, Streams;
PROCEDURE IntS*(s: Streams.Stream; int: LONGINT; width: LONGINT);
VAR b, b0 : barr;
BEGIN
Print.S2(s, "%*d", width, int);
LongToByteArr(int, b);
LongToByteArr(width, b0);
Print.S2(s, "%*d", b0, b);
END IntS;
PROCEDURE RealS*(s: Streams.Stream; real: LONGREAL; width: LONGINT);
VAR b : barr; lr : lrarr;
BEGIN
Print.S2(s, "%*e", width, real);
LRealToByteArr(real, lr);
LongToByteArr(width, b);
Print.S2(s, "%*e", b, lr);
END RealS;
PROCEDURE CharS*(s: Streams.Stream; ch: CHAR);
@ -50,7 +86,7 @@ MODULE Write;
IF ~Streams.WriteByte(s, ch) THEN END;
END CharS;
PROCEDURE ByteS*(s: Streams.Stream; byte: BYTE);
PROCEDURE ByteS*(s: Streams.Stream; byte: SYSTEM.BYTE);
BEGIN
IF ~Streams.WriteByte(s, byte) THEN END;
END ByteS;
@ -160,7 +196,7 @@ MODULE Write;
CharS(Streams.stdout, ch);
END Char;
PROCEDURE Byte*(byte: BYTE);
PROCEDURE Byte*(byte: SYSTEM.BYTE);
BEGIN
ByteS(Streams.stdout, byte);
END Byte;
@ -185,4 +221,4 @@ MODULE Write;
IndentS(Streams.stdout);
END Indent;
END Write.
END ulmWrite.