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 API;

IMPORT sys := SYSTEM;

VAR

  Alloc*: PROCEDURE [winapi] (uFlags, dwBytes: INTEGER): INTEGER;

  Free*: PROCEDURE [winapi] (hMem: INTEGER): INTEGER;

  MessageBoxA*: PROCEDURE [winapi] (hWnd, lpText, lpCaption, uType: INTEGER): INTEGER;

  ExitProcess*: PROCEDURE [winapi] (code: INTEGER);

  strncmp*: PROCEDURE [cdecl] (a, b, n: INTEGER): INTEGER;

  GetProcAddress*: PROCEDURE [winapi] (hModule, name: INTEGER): INTEGER;

  LoadLibraryA*: PROCEDURE [winapi] (name: INTEGER): INTEGER;

PROCEDURE zeromem*(size, adr: INTEGER);

END zeromem;

PROCEDURE DebugMsg*(lpText, lpCaption: INTEGER);

BEGIN

  MessageBoxA(0, lpText, lpCaption, 16)

END DebugMsg;

PROCEDURE GetProc(name: ARRAY OF CHAR; hMOD, adr: INTEGER);

VAR H: INTEGER;

BEGIN

  H := GetProcAddress(hMOD, sys.ADR(name[0]));

  ASSERT(H # 0);

  sys.PUT(adr, H);

END GetProc;

PROCEDURE _NEW*(size: INTEGER): INTEGER;

  RETURN Alloc(64, size)

END _NEW;

PROCEDURE _DISPOSE*(p: INTEGER): INTEGER;

  RETURN Free(p)

END _DISPOSE;

PROCEDURE init* (esp: INTEGER);

VAR lib: INTEGER;

BEGIN

  sys.GET(esp, GetProcAddress);

  sys.GET(esp + 4, LoadLibraryA);

  lib := LoadLibraryA(sys.ADR("kernel32.dll"));

  GetProc("ExitProcess", lib, sys.ADR(ExitProcess));

  GetProc("GlobalAlloc", lib, sys.ADR(Alloc));

  GetProc("GlobalFree", lib, sys.ADR(Free));

  lib := LoadLibraryA(sys.ADR("msvcrt.dll"));

  GetProc("strncmp", lib, sys.ADR(strncmp));

  lib := LoadLibraryA(sys.ADR("user32.dll"));

  GetProc("MessageBoxA", lib, sys.ADR(MessageBoxA));

END init;

END API.