OberonCore

(*
   И.Н.Горячев   29.09.2006
   Модуль поддержки юникода средствами ОС
*)
MODULE HostUnicode;

IMPORT
   SYSTEM, Kernel, WinApi;
   
TYPE
   KernelHook = POINTER TO RECORD (Kernel.UnicodeHook) END;

VAR
   khook : KernelHook;

PROCEDURE (h : KernelHook) IsCap (ch : CHAR) : BOOLEAN;
BEGIN
   RETURN WinApi.IsCharUpperW (ch) # 0
END IsCap;

PROCEDURE (h : KernelHook) Cap (ch : CHAR) : CHAR;
BEGIN
   RETURN SYSTEM.VAL(CHAR, WinApi.CharUpperW( SYSTEM.VAL(WinApi.PtrWSTR, ch )));
END Cap;

PROCEDURE (h : KernelHook) Low (ch : CHAR) : CHAR;
BEGIN
   RETURN SYSTEM.VAL(CHAR, WinApi.CharLowerW(SYSTEM.VAL(WinApi.PtrWSTR, ch)));
END Low;

PROCEDURE Install*;
BEGIN
   IF khook = NIL THEN NEW(khook) END;
   Kernel.SetUnicodeHook (khook)
END Install;

BEGIN
   Install
END HostUnicode.