| 0,0 → 1,101 |
|---|
| (* |
| 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 <http://www.gnu.org/licenses/>. |
| *) |
| |
| 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); |
| |
| 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"); |
| END main; |
| |
| BEGIN |
| main |
| END ConsoleLib. |