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

ported Write

Browse source 
Former-commit-id: 44734e6643
This commit is contained in:
Norayr Chilingarian 2013-10-28 20:49:41 +04:00
parent 9f76f1d60f
commit b21f525f9b
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); PROCEDURE IntS*(s: Streams.Stream; int: LONGINT; width: LONGINT);
VAR b, b0 : barr;
BEGIN BEGIN
Print.S2(s, "%*d", width, int); LongToByteArr(int, b);
LongToByteArr(width, b0);
Print.S2(s, "%*d", b0, b);
END IntS; END IntS;
PROCEDURE RealS*(s: Streams.Stream; real: LONGREAL; width: LONGINT); PROCEDURE RealS*(s: Streams.Stream; real: LONGREAL; width: LONGINT);
VAR b : barr; lr : lrarr;
BEGIN BEGIN
Print.S2(s, "%*e", width, real); LRealToByteArr(real, lr);
LongToByteArr(width, b);
Print.S2(s, "%*e", b, lr);
END RealS; END RealS;
PROCEDURE CharS*(s: Streams.Stream; ch: CHAR); PROCEDURE CharS*(s: Streams.Stream; ch: CHAR);
@ -50,7 +86,7 @@ MODULE Write;
IF ~Streams.WriteByte(s, ch) THEN END; IF ~Streams.WriteByte(s, ch) THEN END;
END CharS; END CharS;
PROCEDURE ByteS*(s: Streams.Stream; byte: BYTE); PROCEDURE ByteS*(s: Streams.Stream; byte: SYSTEM.BYTE);
BEGIN BEGIN
IF ~Streams.WriteByte(s, byte) THEN END; IF ~Streams.WriteByte(s, byte) THEN END;
END ByteS; END ByteS;
@ -160,7 +196,7 @@ MODULE Write;
CharS(Streams.stdout, ch); CharS(Streams.stdout, ch);
END Char; END Char;
PROCEDURE Byte*(byte: BYTE); PROCEDURE Byte*(byte: SYSTEM.BYTE);
BEGIN BEGIN
ByteS(Streams.stdout, byte); ByteS(Streams.stdout, byte);
END Byte; END Byte;
@ -185,4 +221,4 @@ MODULE Write;
IndentS(Streams.stdout); IndentS(Streams.stdout);
END Indent; END Indent;
END Write. END ulmWrite.