Hi Rex
I am sorry to send an uncomplete programm extract, here is the right one.
In CP there is no error message, however ETH Oberon do not accept double
range in the same branch. (err.: case label defined more than once)
Look in Chris Burrows`s answer on Sunday, 19 December 2010 1:57 AM.
Kind regards
Werner Bossert
MODULE UnicodeCase_MappingExtPart;
PROCEDURE Lower* (ch: INTEGER): INTEGER;
BEGIN
CASE ch OF
| 41H..5AH, 0C0H..0D6H, 0D8H..0DEH: ch := ch + 20H
(* Greek Extended *)
| 1F08H..1F0FH, 1F18H..1F1DH,
1F28H..1F2FH, 1F38H..1F3FH,
1F48H..1F4DH,
1F59H, 1F5BH, 1F5DH, 1F5FH,
1F68H..1F6FH, 1F88H..1F8FH, 1FB8H..1FB9H,
1F98H..1F9FH, 1FA8H..1FAFH,
1FB8H..1FB9H: ch := ch - 8H
ELSE
END;
RETURN ch
END Lower;
END UnicodeCase_MappingExtPart.
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy
Received on Wed Dec 22 2010 - 09:00:25 UTC