[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