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

ulmStrings ported

Browse source
This commit is contained in:
Norayr Chilingarian 2013-10-23 16:01:32 +04:00
parent 0c771ad7a6
commit 0896b33cce
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,
SYS := SYSTEM, Types;
IMPORT Events := ulmEvents, Priorities := ulmPriorities, RelatedEvents := ulmRelatedEvents, Services := ulmServices, Streams := ulmStreams,
SYS := SYSTEM, Types := ulmTypes;
TYPE
Address = Types.Address;
@ -246,7 +246,7 @@ MODULE Strings;
PROCEDURE WriteByte(stream: Streams.Stream; byte: Byte) : BOOLEAN;
BEGIN
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
SYS.PUT(stream.addr + stream.pos, byte);
INC(stream.pos);
@ -379,4 +379,4 @@ BEGIN
Events.Define(error);
Events.SetPriority(error, Priorities.liberrors);
Events.Ignore(error);
END Strings.
END ulmStrings.