mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 00:32:24 +00:00
ulmTexts.Mod ported
This commit is contained in:
parent
a006fc20c2
commit
1e73cef60c
1 changed files with 3 additions and 3 deletions
|
|
@ -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.
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue