(*
    И.Н.Горячев    26.06.2006
    Добавил "правильные" константы uzwspace, udigitspace etc.

    И.Н.Горячев    26.06.2006
    замечания:
    "Левые" символы (digitspace etc.)
*)
MODULE TextModels;
...
    CONST
        (* unicode* = 1X; *)
        viewcode* = 2X;    (** code for embedded views **)
        tab* = 9X; line* = 0DX; para* = 0EX;    (** tabulator; line and paragraph separator **)
        zwspace* = 8BX; nbspace* = 0A0X; digitspace* = 08FX;
        uzwspace* = 200BX; udigitspace* = 205FX;
        hyphen* = 90X; nbhyphen* = 91X; softhyphen* = 0ADX;
        uhyphen* = 2010X; unbhyphen* = 2011X;

            CASE r.char OF
                 badDigitspace : ch := goodDigitspace
            |    badZwspace :  ch := goodZwspace
            |    badHyphen : ch := goodHyphen
            |    badNbhyphen : ch := goodNbhyphen
            ELSE
                ch := conv.ToUnicode (r.char)
            END;