[Oberon] PC.Compile singularities
pieter.muller at alumni.ethz.ch
Sun Feb 23 19:00:50 CET 2003
On Sun, 23 Feb 2003 10:55:57 +0100, Patrik Reali <reali at acm.org> wrote:
>> Texts.Read (r, ch);
>> IF r.eot OR ((r.lib # NIL) & (r.lib IS Fonts.Font)) THEN
>> (* regular char or end of text, do nothing *)
>> (* some kind of object, give the compiler a space
>> instead *)
>> ch := " ";
>> END; (* if *)
>> and it helped.
The Texts module is from Oberon, isn't it? So the above code is still
> I like your solution, it is very simple. I'm just not sure if all
> embedded objects are 1 byte wide. I will have to check.
BTW Texts.Read will always return only one "character" for an Object. The
actual object can then be retrieved with r.lib.GetObj(r.lib, ORD(ch), obj).
More information about the Oberon