ulmTexts.Mod ported

This commit is contained in:
Norayr Chilingarian 2013-10-23 15:50:38 +04:00
parent a006fc20c2
commit 1e73cef60c

View file

@ -35,11 +35,11 @@
----------------------------------------------------------------------------
*)
MODULE Texts;
MODULE ulmTexts;
(* management of texts (dynamic strings) *)
IMPORT Events, Priorities, RelatedEvents, Services, Streams;
IMPORT Events := ulmEvents, Priorities := ulmPriorities, RelatedEvents := ulmRelatedEvents, Services := ulmServices, Streams := ulmStreams;
CONST
bufsize = 512;
@ -307,4 +307,4 @@ BEGIN
Streams.seek, Streams.tell, Streams.trunc, Streams.close};
Services.CreateType(type, "Texts.Text", "Streams.Stream");
InitErrorHandling;
END Texts.
END ulmTexts.