Subversion Repositories Kolibri OS

Rev

Rev 6647 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. (*
  2.     Copyright 2016, 2018 Anton Krotov
  3.  
  4.     This program is free software: you can redistribute it and/or modify
  5.     it under the terms of the GNU Lesser General Public License as published by
  6.     the Free Software Foundation, either version 3 of the License, or
  7.     (at your option) any later version.
  8.  
  9.     This program is distributed in the hope that it will be useful,
  10.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.     GNU Lesser General Public License for more details.
  13.  
  14.     You should have received a copy of the GNU Lesser General Public License
  15.     along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16. *)
  17.  
  18. MODULE ConsoleLib;
  19.  
  20. IMPORT sys := SYSTEM, KOSAPI;
  21.  
  22. CONST
  23.  
  24.     COLOR_BLUE*      = 001H;
  25.     COLOR_GREEN*     = 002H;
  26.     COLOR_RED*       = 004H;
  27.     COLOR_BRIGHT*    = 008H;
  28.     BGR_BLUE*        = 010H;
  29.     BGR_GREEN*       = 020H;
  30.     BGR_RED*         = 040H;
  31.     BGR_BRIGHT*      = 080H;
  32.     IGNORE_SPECIALS* = 100H;
  33.     WINDOW_CLOSED*   = 200H;
  34.  
  35. TYPE
  36.  
  37.     gets2_callback* = PROCEDURE [stdcall] (keycode: INTEGER; pstr: INTEGER; VAR n, pos: INTEGER);
  38.  
  39. VAR
  40.  
  41.     version*           : INTEGER;
  42.     init*              : PROCEDURE [stdcall] (wnd_width, wnd_height, scr_width, scr_height, title: INTEGER);
  43.     exit*              : PROCEDURE [stdcall] (bCloseWindow: BOOLEAN);
  44.     write_asciiz*      : PROCEDURE [stdcall] (string: INTEGER);
  45.     write_string*      : PROCEDURE [stdcall] (string, length: INTEGER);
  46.     get_flags*         : PROCEDURE [stdcall] (): INTEGER;
  47.     set_flags*         : PROCEDURE [stdcall] (new_flags: INTEGER): INTEGER;
  48.     get_font_height*   : PROCEDURE [stdcall] (): INTEGER;
  49.     get_cursor_height* : PROCEDURE [stdcall] (): INTEGER;
  50.     set_cursor_height* : PROCEDURE [stdcall] (new_height: INTEGER): INTEGER;
  51.     getch*             : PROCEDURE [stdcall] (): INTEGER;
  52.     getch2*            : PROCEDURE [stdcall] (): INTEGER;
  53.     kbhit*             : PROCEDURE [stdcall] (): INTEGER;
  54.     gets*              : PROCEDURE [stdcall] (str, n: INTEGER): INTEGER;
  55.     gets2*             : PROCEDURE [stdcall] (callback: gets2_callback; str, n: INTEGER): INTEGER;
  56.     cls*               : PROCEDURE [stdcall] ();
  57.     get_cursor_pos*    : PROCEDURE [stdcall] (VAR x, y: INTEGER);
  58.     set_cursor_pos*    : PROCEDURE [stdcall] (x, y: INTEGER);
  59.     set_title*         : PROCEDURE [stdcall] (title: INTEGER);
  60.  
  61. PROCEDURE open*(wnd_width, wnd_height, scr_width, scr_height: INTEGER; title: ARRAY OF CHAR);
  62. BEGIN
  63.   init(wnd_width, wnd_height, scr_width, scr_height, sys.ADR(title[0]))
  64. END open;
  65.  
  66. PROCEDURE main;
  67. VAR Lib: INTEGER;
  68.  
  69.   PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
  70.   VAR a: INTEGER;
  71.   BEGIN
  72.     a := KOSAPI.GetProcAdr(name, Lib);
  73.     ASSERT(a # 0);
  74.     sys.PUT(v, a)
  75.   END GetProc;
  76.  
  77. BEGIN
  78.   Lib := KOSAPI.LoadLib("/rd/1/lib/Console.obj");
  79.   ASSERT(Lib # 0);
  80.   GetProc(Lib, sys.ADR(version),           "version");
  81.   GetProc(Lib, sys.ADR(init),              "con_init");
  82.   GetProc(Lib, sys.ADR(exit),              "con_exit");
  83.   GetProc(Lib, sys.ADR(write_asciiz),      "con_write_asciiz");
  84.   GetProc(Lib, sys.ADR(write_string),      "con_write_string");
  85.   GetProc(Lib, sys.ADR(get_flags),         "con_get_flags");
  86.   GetProc(Lib, sys.ADR(set_flags),         "con_set_flags");
  87.   GetProc(Lib, sys.ADR(get_font_height),   "con_get_font_height");
  88.   GetProc(Lib, sys.ADR(get_cursor_height), "con_get_cursor_height");
  89.   GetProc(Lib, sys.ADR(set_cursor_height), "con_set_cursor_height");
  90.   GetProc(Lib, sys.ADR(getch),             "con_getch");
  91.   GetProc(Lib, sys.ADR(getch2),            "con_getch2");
  92.   GetProc(Lib, sys.ADR(kbhit),             "con_kbhit");
  93.   GetProc(Lib, sys.ADR(gets),              "con_gets");
  94.   GetProc(Lib, sys.ADR(gets2),             "con_gets2");
  95.   GetProc(Lib, sys.ADR(cls),               "con_cls");
  96.   GetProc(Lib, sys.ADR(get_cursor_pos),    "con_get_cursor_pos");
  97.   GetProc(Lib, sys.ADR(set_cursor_pos),    "con_set_cursor_pos");
  98.   GetProc(Lib, sys.ADR(set_title),         "con_set_title");
  99. END main;
  100.  
  101. BEGIN
  102.   main
  103. END ConsoleLib.