vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 20:22:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

StreamDisciplines

Browse source 
Former-commit-id: ab6cd805d5
This commit is contained in:
Norayr Chilingarian 2013-10-22 16:43:03 +04:00
parent 999a3baa33
commit 6f24bfc67d
2 changed files with 250 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lib/ulm/ulmIndirectDisciplines.Mod
View file

@ -31,7 +31,7 @@
MODULE ulmIndirectDisciplines;
IMPORT Disciplines := ulmDisciplines, Forwarders := ulmForwarders;
IMPORT Disciplines := ulmDisciplines, Forwarders := ulmForwarders, SYSTEM;
TYPE
Object* = Disciplines.Object;
@ -72,7 +72,7 @@ MODULE ulmIndirectDisciplines;
VAR
disc: IndDiscipline;
BEGIN
WHILE Disciplines.Seek(object, discID, disc) DO
WHILE Disciplines.Seek(object, discID, SYSTEM.VAL(Disciplines.Discipline, disc)) DO
object := disc.forwardTo;
END;
Disciplines.Add(object, discipline);
@ -88,7 +88,7 @@ MODULE ulmIndirectDisciplines;
Disciplines.Remove(object, id);
EXIT
END;
IF ~Disciplines.Seek(object, discID, disc) THEN
IF ~Disciplines.Seek(object, discID, SYSTEM.VAL(Disciplines.Discipline, disc)) THEN
EXIT
END;
object := disc.forwardTo;
@ -104,7 +104,7 @@ MODULE ulmIndirectDisciplines;
IF Disciplines.Seek(object, id, discipline) THEN
RETURN TRUE
END;
IF ~Disciplines.Seek(object, discID, disc) THEN
IF ~Disciplines.Seek(object, discID, SYSTEM.VAL(Disciplines.Discipline, disc)) THEN
RETURN FALSE
END;
object := disc.forwardTo;