Miscellany

with Interfaces.C;

package adawindowerhelper is

  pragma Linker_Options ("-lwindowerhelper");

  -- 'Text Helper: (MMF Name = "WindowerMMFTextHandler")

  function CreateTextHelper (name : in Interfaces.C.Char_Array) return Interfaces.C.long; --DWORD
  pragma Import (C, CreateTextHelper, External_Name => "CreateTextHelper");

  procedure DeleteTextHelper (helper : in Interfaces.C.long);
  pragma Import (C, DeleteTextHelper, External_Name => "DeleteTextHelper");


  procedure CTHCreateTextObject (helper : in Interfaces.C.long;
                                 name : in Interfaces.C.Char_Array);
  pragma Import (C, CTHCreateTextObject, External_Name => "CTHCreateTextObject");

  procedure CTHDeleteTextObject (name : in Interfaces.C.Char_Array);
  pragma Import (C, CTHDeleteTextObject, External_Name => "CTHDeleteTextObject");


  procedure CTHSetText
   (helper : in Interfaces.C.long;
    name   : in Interfaces.C.Char_Array;
    text   : in Interfaces.C.Char_Array);
  pragma Import (C, CTHSetText, External_Name => "CTHSetText");

  procedure CTHSetVisibility
   (helper  : in Interfaces.C.long;
    name    : in Interfaces.C.Char_Array;
    visible : in Interfaces.C.int); --BOOL
  pragma Import (C, CTHSetVisibility, External_Name => "CTHSetVisibility");

  procedure CTHSetFont
   (helper : in Interfaces.C.long;
    name   : in Interfaces.C.Char_Array;
    font   : in Interfaces.C.Char_Array;
    height : Interfaces.C.short); --INT
  pragma Import (C, CTHSetFont, External_Name => "CTHSetFont");

  procedure CTHSetColor
   (helper : in Interfaces.C.long;
    name   : in Interfaces.C.Char_Array;
    A      : in Interfaces.C.unsigned_char; --UCHAR
    R      : in Interfaces.C.unsigned_char;
    G      : in Interfaces.C.unsigned_char;
    B      : in Interfaces.C.unsigned_char);
  pragma Import (C, CTHSetColor, External_Name => "CTHSetColor");

  procedure CTHSetLocation
   (helper : in Interfaces.C.long;
    name   : in Interfaces.C.Char_Array;
    x      : in Interfaces.C.C_float; --Single?
    y      : in Interfaces.C.C_float);
  pragma Import (C, CTHSetLocation, External_Name => "CTHSetLocation");

  procedure CTHSetBold
   (helper : in Interfaces.C.long;
    name   : in Interfaces.C.Char_Array;
    bold   : in Interfaces.C.int); --BOOL
  pragma Import (C, CTHSetBold, External_Name => "CTHSetBold");

  procedure CTHSetItalic
   (helper : in Interfaces.C.long;
    name   : in Interfaces.C.Char_Array;
    italic : in Interfaces.C.int); --BOOL
  pragma Import (C, CTHSetItalic, External_Name => "CTHSetItalic");

  procedure CTHSetBGColor
   (helper : in Interfaces.C.long;
    name   : in Interfaces.C.Char_Array;
    A      : in Interfaces.C.unsigned_char;
    R      : in Interfaces.C.unsigned_char;
    G      : in Interfaces.C.unsigned_char;
    B      : in Interfaces.C.unsigned_char);
  pragma Import (C, CTHSetBGColor, External_Name => "CTHSetBGColor");

  procedure CTHSetBGBorderSize
   (helper : in Interfaces.C.long;
    name   : in Interfaces.C.Char_Array;
    pixels : in Interfaces.C.C_Float);
  pragma Import (C, CTHSetBGBorderSize, External_Name => "CTHSetBGBorderSize");

  procedure CTHSetBGVisibility
   (helper  : in Interfaces.C.long;
    name    : in Interfaces.C.Char_Array;
    visible : in Interfaces.C.int);
  pragma Import (C, CTHSetBGVisibility, External_Name => "CTHSetBGVisibility");

  procedure CTHSetRightJustified
   (helper    : in Interfaces.C.long;
    name      : in Interfaces.C.Char_Array;
    justified : in Interfaces.C.int);
  pragma Import (C, CTHSetRightJustified, External_Name => "CTHSetRightJustified");


  procedure CTHFlushCommands (helper : in Interfaces.C.long);
  pragma Import (C, CTHFlushCommands, External_Name => "CTHFlushCommands");

  -- 'Keyboard Helper: (MMF Name = "WindowerMMFKeyboardHandler")

  function CreateKeyboardHelper (name : in Interfaces.C.Char_Array) return Interfaces.C.long;
  pragma Import (C, CreateKeyboardHelper, External_Name => "CreateKeyboardHelper");

  procedure DeleteKeyboardHelper (helper : in Interfaces.C.long);
  pragma Import (C, DeleteKeyboardHelper, External_Name => "DeleteKeyboardHelper");


  procedure CKHSetKey
   (helper : Interfaces.C.long;
    key    : Interfaces.C.unsigned_char;
    down   : Interfaces.C.int);
  pragma Import (C, CKHSetKey, External_Name => "CKHSetKey");

  procedure CKHBlockInput (helper : Interfaces.C.long; block : Interfaces.C.int);
  pragma Import (C, CKHBlockInput, External_Name => "CKHBlockInput");

  procedure CKHSendString (helper : Interfaces.C.long; data : in Interfaces.C.Char_Array);
  pragma Import (C, CKHSendString, External_Name => "SCKHendString");

  -- 'Console Helper: (MMF Name = "WindowerMMFConsoleHandler")

  function CreateConsoleHelper (name : in Interfaces.C.Char_Array) return Interfaces.C.long;
  pragma Import (C, CreateConsoleHelper, External_Name => "CreateConsoleHelper");

  procedure DeleteConsoleHelper (helper : in Interfaces.C.long);
  pragma Import (C, DeleteConsoleHelper, External_Name => "DeleteConsoleHelper");


  function CCHIsNewCommand (helper : Interfaces.C.long) return Interfaces.C.int; --BOOL
  pragma Import (C, CCHIsNewCommand, External_Name => "CCHIsNewCommand");

  function CCHGetArgCount (helper : Interfaces.C.long) return Interfaces.C.short; --SHORT
  pragma Import (C, CCHGetArgCount, External_Name => "CCHGetArgCount");

  procedure CCHGetArg
   (helper : Interfaces.C.long;
    index  : Interfaces.C.short;
    data   : in Interfaces.C.Char_Array);
  pragma Import (C, CCHGetArg, External_Name => "CCHGetArg");

end adawindowerhelper;