kolibrios/programs/develop/cedit/SRC/KolibriOS.ob07

(*
    Copyright 2021 Anton Krotov

    This file is part of CEdit.

    CEdit is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    CEdit 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 General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with CEdit. If not, see <http://www.gnu.org/licenses/>.
*)

MODULE KolibriOS;

IMPORT
    KOSAPI, SYSTEM;

CONST
    fontWidth* = 8;
    fontHeight* = 16;

VAR

    winColor*, textColor*, btnColor*, btnTextColor*,
    toolbarColor*, scrollColor*, scrollBkColor*,
    borderColor*, shadowColor*, darkColor*, lightColor*,
    caseColor*, disCaseColor*: INTEGER;


PROCEDURE GetCommandLine* (): INTEGER;
    RETURN KOSAPI.GetCommandLine()
END GetCommandLine;


PROCEDURE GetName* (): INTEGER;
    RETURN KOSAPI.GetName()
END GetName;


PROCEDURE CreateWindow* (x, y, w, h, color, style, hcolor, hstyle: INTEGER; htext: ARRAY OF CHAR);
BEGIN
    KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), SYSTEM.ADR(htext[0]))
END CreateWindow;


PROCEDURE BeginDraw*;
BEGIN
    KOSAPI.sysfunc2(12, 1)
END BeginDraw;


PROCEDURE EndDraw*;
BEGIN
    KOSAPI.sysfunc2(12, 2)
END EndDraw;


PROCEDURE WaitForEvent* (): INTEGER;
    RETURN KOSAPI.sysfunc1(10)
END WaitForEvent;


PROCEDURE ThreadInfo (offsa, offsb: INTEGER; VAR a, b: INTEGER);
VAR
    buffer: ARRAY 1024 OF BYTE;
BEGIN
    KOSAPI.sysfunc3(9, SYSTEM.ADR(buffer[0]), -1);
    SYSTEM.GET32(SYSTEM.ADR(buffer[0]) + offsa, a);
    SYSTEM.GET32(SYSTEM.ADR(buffer[0]) + offsb, b);
END ThreadInfo;


PROCEDURE WinSize* (VAR width, height: INTEGER);
BEGIN
    ThreadInfo(42, 46, width, height)
END WinSize;


PROCEDURE WinPos* (VAR x, y: INTEGER);
BEGIN
    ThreadInfo(34, 38, x, y)
END WinPos;


PROCEDURE ClientSize* (VAR width, height: INTEGER);
BEGIN
    ThreadInfo(62, 66, width, height)
END ClientSize;


PROCEDURE ClientPos* (VAR x, y: INTEGER);
BEGIN
    ThreadInfo(54, 58, x, y)
END ClientPos;


PROCEDURE ScreenSize* (VAR width, height: INTEGER);
VAR
    eax, ebx: INTEGER;
    right, left, top, bottom: INTEGER;
BEGIN
    eax := KOSAPI.sysfunc22(48, 5, ebx);
    left := LSR(eax, 16);
    right := eax MOD 65536;
    top := LSR(ebx, 16);
    bottom := ebx MOD 65536;
    width := right - left + 1;
    height := bottom - top + 1
END ScreenSize;


PROCEDURE ThreadID* (): INTEGER;
VAR
    id: INTEGER;
BEGIN
    ThreadInfo(30, 30, id, id)
    RETURN id
END ThreadID;


PROCEDURE RolledUp* (): BOOLEAN;
VAR
    buffer: ARRAY 1024 OF BYTE;
BEGIN
    KOSAPI.sysfunc3(9, SYSTEM.ADR(buffer[0]), -1)
    RETURN ODD(LSR(buffer[70], 2))
END RolledUp;


PROCEDURE SetWinSize* (width, height: INTEGER);
BEGIN
    KOSAPI.sysfunc5(67, -1, -1, width, height)
END SetWinSize;


PROCEDURE DrawText* (x, y, color: INTEGER; text: ARRAY OF WCHAR);
BEGIN
    KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(0A0H, 24), SYSTEM.ADR(text[0]), 0, 0)
END DrawText;


PROCEDURE DrawText69* (x, y, color: INTEGER; text: ARRAY OF CHAR);
BEGIN
    KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(080H, 24), SYSTEM.ADR(text[0]), 0, 0)
END DrawText69;


PROCEDURE DrawText866* (x, y, color: INTEGER; text: ARRAY OF CHAR);
BEGIN
    KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(0D0H, 24), SYSTEM.ADR(text[0]), 0, winColor)
END DrawText866;


PROCEDURE DrawText866bk* (x, y, color, bkColor: INTEGER; text: ARRAY OF CHAR);
BEGIN
    KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(0D0H, 24), SYSTEM.ADR(text[0]), 0, bkColor)
END DrawText866bk;


PROCEDURE MousePos* (VAR x, y: INTEGER);
VAR
    res: INTEGER;
BEGIN
    res := KOSAPI.sysfunc2(37, 0);
    y := res MOD 65536;
    x := res DIV 65536
END MousePos;


PROCEDURE CreateButton* (id, Left, Top, Width, Height, Color: INTEGER; Caption: ARRAY OF WCHAR);
VAR
    x, y: INTEGER;
BEGIN
    KOSAPI.sysfunc5(8, LSL(Left, 16) + Width, LSL(Top, 16) + Height, id, Color);
    x := Left + (Width - fontWidth * LENGTH(Caption)) DIV 2;
    y := Top + (Height - fontHeight) DIV 2 + 1;
    DrawText(x, y, btnTextColor, Caption)
END CreateButton;


PROCEDURE DeleteButton* (id: INTEGER);
BEGIN
    KOSAPI.sysfunc5(8, 0, 0, id + 80000000H, 0)
END DeleteButton;


PROCEDURE GetTickCount* (): INTEGER;
    RETURN KOSAPI.sysfunc2(26, 9)
END GetTickCount;


PROCEDURE Pause* (time: INTEGER);
BEGIN
    KOSAPI.sysfunc2(5, time)
END Pause;


PROCEDURE ButtonCode* (VAR middle: BOOLEAN): INTEGER;
VAR
    res: INTEGER;
BEGIN
    middle := FALSE;
    res := KOSAPI.sysfunc1(17);
    IF res MOD 256 = 0 THEN
        res := LSR(res, 8)
    ELSIF res MOD 256 = 4 THEN
        res := LSR(res, 8);
        middle := TRUE
    ELSE
        res := 0
    END
    RETURN res
END ButtonCode;


PROCEDURE Exit*;
BEGIN
    KOSAPI.sysfunc1(-1)
END Exit;


PROCEDURE ExitID* (tid: INTEGER);
BEGIN
    KOSAPI.sysfunc3(18, 18, tid)
END ExitID;


PROCEDURE CreateThread* (proc: INTEGER; stack: ARRAY OF INTEGER): INTEGER;
    RETURN KOSAPI.sysfunc4(51, 1, proc, SYSTEM.ADR(stack[LEN(stack) - 2]))
END CreateThread;


PROCEDURE Run* (program, param: ARRAY OF CHAR);
TYPE

    info_struct = RECORD
        subfunc : INTEGER;
        flags   : INTEGER;
        param   : INTEGER;
        rsrvd1  : INTEGER;
        rsrvd2  : INTEGER;
        fname   : ARRAY 1024 OF CHAR
    END;

VAR
    info: info_struct;

BEGIN
    info.subfunc := 7;
    info.flags   := 0;
    info.param   := SYSTEM.ADR(param[0]);
    info.rsrvd1  := 0;
    info.rsrvd2  := 0;
    COPY(program, info.fname);
    KOSAPI.sysfunc2(70, SYSTEM.ADR(info))
END Run;


PROCEDURE DrawRect* (x, y, width, height, color: INTEGER);
BEGIN
    KOSAPI.sysfunc4(13, x*65536 + width, y*65536 + height, color)
END DrawRect;


PROCEDURE DrawLine* (x1, y1, x2, y2: INTEGER; color: INTEGER);
BEGIN
    KOSAPI.sysfunc4(38, x1*65536 + x2, y1*65536 + y2, color)
END DrawLine;


PROCEDURE DrawImage* (data, sizeX, sizeY, x, y: INTEGER);
BEGIN
    KOSAPI.sysfunc4(7, data, sizeX*65536 + sizeY, x*65536 + y)
END DrawImage;


PROCEDURE SetEventsMask* (mask: SET);
BEGIN
    KOSAPI.sysfunc2(40, ORD(mask))
END SetEventsMask;


PROCEDURE SkinHeight* (): INTEGER;
    RETURN KOSAPI.sysfunc2(48, 4)
END SkinHeight;


PROCEDURE GetKey* (): INTEGER;
    RETURN KOSAPI.sysfunc1(2)
END GetKey;


PROCEDURE MouseState* (): SET;
    RETURN BITS(KOSAPI.sysfunc2(37, 3))
END MouseState;


PROCEDURE Scroll* (): INTEGER;
    RETURN ASR(LSL(KOSAPI.sysfunc2(37, 7), 16), 16)
END Scroll;


PROCEDURE GetControlKeys* (): SET;
    RETURN BITS(KOSAPI.sysfunc2(66, 3))
END GetControlKeys;


PROCEDURE malloc* (size: INTEGER): INTEGER;
    RETURN KOSAPI.malloc(size)
END malloc;


PROCEDURE SetIPC* (buffer: ARRAY OF INTEGER);
BEGIN
    KOSAPI.sysfunc4(60, 1, SYSTEM.ADR(buffer[0]), LEN(buffer)*SYSTEM.SIZE(INTEGER))
END SetIPC;


PROCEDURE SendIPC* (tid, msg: INTEGER);
BEGIN
	KOSAPI.sysfunc5(60, 2, tid, SYSTEM.ADR(msg), SYSTEM.SIZE(INTEGER))
END SendIPC;


PROCEDURE PutPixel* (x, y, color: INTEGER);
BEGIN
    KOSAPI.sysfunc4(1, x, y, color)
END PutPixel;


PROCEDURE GetSystemColors*;
VAR
    buf: ARRAY 10 OF INTEGER;
BEGIN
    ASSERT(LEN(buf) >= 10);
    KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40);

    darkColor := buf[2];
    lightColor := buf[3];
    winColor := buf[5];
    textColor := buf[8];
    btnColor := buf[6];
    btnTextColor := buf[7];
    scrollColor := btnColor;
    scrollBkColor := winColor;
    borderColor := buf[9];

    toolbarColor := 0DFDFDFH;
    shadowColor := 0808080H;
    caseColor := 00000FFH;
    disCaseColor := 0808080H;
END GetSystemColors;


PROCEDURE getKBState* (VAR shift, ctrl: BOOLEAN);
VAR
    kbState: SET;
BEGIN
    kbState := GetControlKeys();
    shift := {0, 1} * kbState # {};
    ctrl := {2, 3} * kbState # {};
END getKBState;


PROCEDURE mouse* (VAR msState: SET; VAR x, y: INTEGER);
VAR
    mouseX, mouseY,
    cliX, cliY,
    winX, winY: INTEGER;
BEGIN
	msState := MouseState();
    MousePos(mouseX, mouseY);
    WinPos(winX, winY);
    ClientPos(cliX, cliY);
    x := mouseX - winX - cliX;
    y := mouseY - winY - cliY
END mouse;


END KolibriOS.