OberonCore

DEFINITION Unicode;

   PROCEDURE IsLetter (ch: CHAR): BOOLEAN; (* Is it a letter? *)
   PROCEDURE IsCap (ch: CHAR): BOOLEAN; (* Is it a capital letter? *)
   PROCEDURE IsLow (ch: CHAR): BOOLEAN; (* Is it a lower letter? *)

   PROCEDURE IsFirstIdentChar (ch: CHAR): BOOLEAN; (* Is it a first ident character? *)
   PROCEDURE IsIdentChar (ch: CHAR): BOOLEAN; (* Is it a ident character? *)

   PROCEDURE Cap (ch: CHAR): CHAR; (* convert letter to upper case *)
   PROCEDURE Low (ch: CHAR): CHAR; (* convert letter to lower case *)

   PROCEDURE Long (ch: SHORTCHAR): CHAR; (* convert to Unicode *)
   PROCEDURE Short (ch: CHAR): SHORTCHAR; (* convert to ASCII code page *)

END Unicode.

MODULE Unicode;

   PROCEDURE IsCap* (ch: CHAR): BOOLEAN;
   BEGIN
      RETURN (ch >= "A") & (ch <= "Z")
      (* Unicode *)
      OR (ch >= 0C0X) & (ch # 0D7X) & (ch <= 0DEX)   
      OR (ch >= 0410X) & (ch <= 042FX)
      OR (ch = 0401X)
      [color=#FF00FF](* Win1251 *)
      OR (ch >= 0C0X) & (ch <= 0DFX)
      OR (ch = 0A8X))[/color]
   END IsCap;

   PROCEDURE IsLow* (ch: CHAR): BOOLEAN;
   BEGIN
      RETURN (ch >= "a") & (ch <= "z")
      (* Unicode *)
      OR (ch >= 0E0X) & (ch # 0F7X) & (ch <= 0FEX)
      OR (ch >= 0430X) & (ch <= 044FX)
      OR (ch = 0451X)
      [color=#FF00FF](* Win1251 *)
      OR (ch >= 0E0X) & (ch <= 0FFX)
      OR (ch = 0B8X))[/color]
   END IsLow;

   PROCEDURE IsLetter* (ch: CHAR): BOOLEAN;
   BEGIN
      RETURN IsCap(ch) OR IsLow(ch) OR (ch = 'ß')
   END IsLetter;

   PROCEDURE IsFirstIdentChar* (ch: CHAR): BOOLEAN;
   BEGIN
      RETURN  IsLetter(ch) OR (ch = "_")
   END IsFirstIdentChar;

   PROCEDURE IsIdentChar* (ch: CHAR): BOOLEAN;
   BEGIN
      RETURN  IsFirstIdentChar(ch) OR ("0" <= ch) & (ch <= "9")
   END IsIdentChar;

   PROCEDURE Cap* (ch: CHAR): CHAR;
   BEGIN
      IF IsLow(ch) THEN
         IF ch = "ё" THEN ch := "Ё" ELSE ch := CHR(ORD(ch) - 32) END
      END;
      RETURN ch
   END Cap;

   PROCEDURE Low* (ch: CHAR): CHAR;
   BEGIN
      IF IsCap(ch) THEN
         IF ch = "Ё" THEN ch := "ё" ELSE ch := CHR(ORD(ch) + 32) END
      END;
      RETURN ch
   END Low;

   PROCEDURE Long* (ch: SHORTCHAR): CHAR;
   BEGIN
      [color=#FF00FF](* ConvertToUnicode from Win1251 *)
      IF ch = 0B8X THEN RETURN 0451X
      ELSIF ch = 0A8X THEN RETURN 0401X
      ELSIF (ch >= 0C0X) & (ch <= 0FFX) THEN RETURN CHR(ORD(ch) + 0350H) END;)[/color]
      RETURN ch
   END Long;

   PROCEDURE Short* (ch: CHAR): SHORTCHAR;
   BEGIN
      [color=#FF00FF](* ConvertFromUnicode to Win1251 *)
      IF ch = 0451X THEN RETURN 0B8X
      ELSIF ch = 0401X THEN RETURN 0A8X
      ELSIF (ch >= 0410X) & (ch <= 044FX) THEN RETURN SHORT(CHR(ORD(ch) - 0350H)) END;) [/color]
      IF ch >= 100X THEN RETURN "?" ELSE RETURN SHORT(ch) END;
   END Short;

END Unicode.

MODULE TestЭтоПроба;

   IMPORT Dialog, Log;

   CONST
      α = 0;
      ω = 42;

   VAR Куку*: ARRAY ω OF CHAR;
      π*: REAL;

   PROCEDURE Раз*;
   BEGIN
      Log.String(Куку); Log.Ln;
      Log.Real(π); Log.Ln;
   END Раз;

   PROCEDURE Два*;
   BEGIN
      Куку := "Ха-Ха!";
      Dialog.UpdateString(Куку);
   END Два;

   PROCEDURE НапэнаМожнаТак*; (*НапэўнаМожнаІТак *)
   BEGIN
      Куку := "Cапраўды!";
      Log.String(Куку); Log.Ln;
   END НапэнаМожнаТак;

   PROCEDURE УкранськуТежРозуммо*; (* УкраїнськуТежРозуміємо *)
   BEGIN
      Log.String("Це так!"); Log.Ln;
   END УкранськуТежРозуммо;

   PROCEDURE iujLingvojTagas*; (* ĈiujLingvojTaŭgas *)
   BEGIN
      Log.String("Ĝoju!"); Log.Ln;
   END iujLingvojTagas;

   PROCEDURE ΚατιΕλληνικο*;
   BEGIN
      Log.String("Γεια σας!"); Log.Ln;
   END ΚατιΕλληνικο;

   PROCEDURE Run*;
   BEGIN
      Log.String("Test ЭтоПроба started"); Log.Ln;
      Раз;
      Два;
      НапэнаМожнаТак;
      УкранськуТежРозуммо;
      iujLingvojTagas;
      ΚατιΕλληνικο;
      Log.String("End of Test ЭтоПроба"); Log.Ln;
   END Run;

BEGIN
   π := 3.14;
   Куку := "Куку!";
END TestЭтоПроба.

compiling "TestЭтоПроба"   360   92
Test ЭтоПроба started
Cапраўды!
 3.14
Cапраўды!
Це так!
Ĝoju!
Γεια σας!
End of Test ЭтоПроба