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

ulmStrings ported

Browse source 
Former-commit-id: 0896b33cce
This commit is contained in:
Norayr Chilingarian 2013-10-23 16:01:32 +04:00
parent 74886e81ee
commit c7d37f9f67
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -34,10 +34,10 @@
---------------------------------------------------------------------------- ----------------------------------------------------------------------------
*) *)
MODULE Strings; MODULE ulmStrings;
IMPORT Events, Priorities, RelatedEvents, Services, Streams, IMPORT Events := ulmEvents, Priorities := ulmPriorities, RelatedEvents := ulmRelatedEvents, Services := ulmServices, Streams := ulmStreams,
SYS := SYSTEM, Types; SYS := SYSTEM, Types := ulmTypes;
TYPE TYPE
Address = Types.Address; Address = Types.Address;
@ -246,7 +246,7 @@ MODULE Strings;
PROCEDURE WriteByte(stream: Streams.Stream; byte: Byte) : BOOLEAN; PROCEDURE WriteByte(stream: Streams.Stream; byte: Byte) : BOOLEAN;
BEGIN BEGIN
WITH stream: Stream DO WITH stream: Stream DO
IF ORD(byte) = 0 THEN RETURN FALSE END; IF ORD(SYS.VAL(CHAR, byte)) = 0 THEN RETURN FALSE END;
IF stream.pos < stream.termindex THEN IF stream.pos < stream.termindex THEN
SYS.PUT(stream.addr + stream.pos, byte); SYS.PUT(stream.addr + stream.pos, byte);
INC(stream.pos); INC(stream.pos);
@ -379,4 +379,4 @@ BEGIN
Events.Define(error); Events.Define(error);
Events.SetPriority(error, Priorities.liberrors); Events.SetPriority(error, Priorities.liberrors);
Events.Ignore(error); Events.Ignore(error);
END Strings. END ulmStrings.