Subversion Repositories Kolibri OS

(*

    Copyright 2016 Anton Krotov

    This program is free software: you can redistribute it and/or modify

    it under the terms of the GNU Lesser General Public License as published by

    the Free Software Foundation, either version 3 of the License, or

    (at your option) any later version.

    This program is distributed in the hope that it will be useful,

    but WITHOUT ANY WARRANTY; without even the implied warranty of

    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    GNU Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public License

    along with this program.  If not, see .

*)

MODULE ConsoleLib;

IMPORT sys := SYSTEM, KOSAPI;

CONST

    COLOR_BLUE*      = 001H;

    COLOR_GREEN*     = 002H;

    COLOR_RED*	     = 004H;

    COLOR_BRIGHT*    = 008H;

    BGR_BLUE*	     = 010H;

    BGR_GREEN*	     = 020H;

    BGR_RED*	     = 040H;

    BGR_BRIGHT*      = 080H;

    IGNORE_SPECIALS* = 100H;

    WINDOW_CLOSED*   = 200H;

TYPE

    gets2_callback* = PROCEDURE [stdcall] (keycode: INTEGER; pstr: INTEGER; VAR n, pos: INTEGER);

VAR

    version*	       : INTEGER;

    init*	       : PROCEDURE [stdcall] (wnd_width, wnd_height, scr_width, scr_height, title: INTEGER);

    exit*	       : PROCEDURE [stdcall] (bCloseWindow: BOOLEAN);

    write_asciiz*      : PROCEDURE [stdcall] (string: INTEGER);

    write_string*      : PROCEDURE [stdcall] (string, length: INTEGER);

    get_flags*	       : PROCEDURE [stdcall] (): INTEGER;

    set_flags*	       : PROCEDURE [stdcall] (new_flags: INTEGER): INTEGER;

    get_font_height*   : PROCEDURE [stdcall] (): INTEGER;

    get_cursor_height* : PROCEDURE [stdcall] (): INTEGER;

    set_cursor_height* : PROCEDURE [stdcall] (new_height: INTEGER): INTEGER;

    getch*	       : PROCEDURE [stdcall] (): INTEGER;

    getch2*	       : PROCEDURE [stdcall] (): INTEGER;

    kbhit*	       : PROCEDURE [stdcall] (): INTEGER;

    gets*	       : PROCEDURE [stdcall] (str, n: INTEGER): INTEGER;

    gets2*	       : PROCEDURE [stdcall] (callback: gets2_callback; str, n: INTEGER): INTEGER;

    cls*	       : PROCEDURE [stdcall] ();

    get_cursor_pos*    : PROCEDURE [stdcall] (VAR x, y: INTEGER);

    set_cursor_pos*    : PROCEDURE [stdcall] (x, y: INTEGER);

    set_title*	       : PROCEDURE [stdcall] (title: INTEGER);

PROCEDURE open*(wnd_width, wnd_height, scr_width, scr_height: INTEGER; title: ARRAY OF CHAR);

BEGIN

  init(wnd_width, wnd_height, scr_width, scr_height, sys.ADR(title[0]))

END open;

PROCEDURE main;

VAR Lib: INTEGER;

  PROCEDURE GetProc(v: INTEGER; name: ARRAY OF CHAR);

  VAR a: INTEGER;

  BEGIN

    a := KOSAPI.GetProcAdr(name, Lib);

    ASSERT(a # 0);

    sys.PUT(v, a)

  END GetProc;

BEGIN

  Lib := KOSAPI.LoadLib("/rd/1/lib/Console.obj");

  ASSERT(Lib # 0);

  GetProc(sys.ADR(version),	      "version");

  GetProc(sys.ADR(init),	      "con_init");

  GetProc(sys.ADR(exit),	      "con_exit");

  GetProc(sys.ADR(write_asciiz),      "con_write_asciiz");

  GetProc(sys.ADR(write_string),      "con_write_string");

  GetProc(sys.ADR(get_flags),	      "con_get_flags");

  GetProc(sys.ADR(set_flags),	      "con_set_flags");

  GetProc(sys.ADR(get_font_height),   "con_get_font_height");

  GetProc(sys.ADR(get_cursor_height), "con_get_cursor_height");

  GetProc(sys.ADR(set_cursor_height), "con_set_cursor_height");

  GetProc(sys.ADR(getch),	      "con_getch");

  GetProc(sys.ADR(getch2),	      "con_getch2");

  GetProc(sys.ADR(kbhit),	      "con_kbhit");

  GetProc(sys.ADR(gets),	      "con_gets");

  GetProc(sys.ADR(gets2),	      "con_gets2");

  GetProc(sys.ADR(cls), 	      "con_cls");

  GetProc(sys.ADR(get_cursor_pos),    "con_get_cursor_pos");

  GetProc(sys.ADR(set_cursor_pos),    "con_set_cursor_pos");

  GetProc(sys.ADR(set_title),	      "con_set_title");

END main;

BEGIN

  main

END ConsoleLib.