ulmTexts.Mod ported

Former-commit-id: 1e73cef60c
This commit is contained in:
Norayr Chilingarian 2013-10-23 15:50:38 +04:00
parent 699dcc56ae
commit 448319b3d2

View file

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