[Oberon] PC.Compile singularities
Pieter Muller
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 *)
>> ELSE
>> (* 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
Oberon System-dependent.
> 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).
-- Pieter
More information about the Oberon
mailing list