MODULE Init;

   IMPORT Kernel, WinApi, Initsys;

VAR r: INTEGER;
BEGIN
   r := WinApi.MessageBox (0, "Calling Initsys.InitSystem", "BlackBox", {});
   Initsys.InitSystem (0, 0)
END Init.

MODULE Initsys;
   

   IMPORT Kernel, Dialog, WinApi , HostMenus;

VAR
   res: INTEGER;
   m: Kernel.Module;

PROCEDURE InitSystem*(argc, argv: INTEGER);
VAR r: INTEGER;
BEGIN
   r := WinApi.MessageBox (0, "Inside of InitSystem", "BlackBox", {});
   HostMenus.OpenApp;
   r := WinApi.MessageBox (0, "OpenApp", "BlackBox", {});
   m := Kernel.ThisMod("DevDebug");
   IF m = NIL THEN Kernel.LoadMod("StdDebug") END;
   (*Converters.Register("Documents.ImportDocument", "Documents.ExportDocument", "", "odc", {});
   Dialog.Call("StdMenuTool.UpdateAllMenus", "", res);*)
   Kernel.LoadMod("OleServer");
   (*Dialog.Call("Config.Setup", "", res);*)
   r := WinApi.MessageBox (0, "Debug", "BlackBox", {});
   Dialog.Call("TestConsole.Do", " ", res);
   r := WinApi.MessageBox (0, "Do", "BlackBox", {});
   HostMenus.Run
END InitSystem;

END Initsys.

MODULE TestBBloader;

IMPORT WinApi, TestBB;

PROCEDURE Init;
VAR r: INTEGER;
BEGIN
   r := WinApi.MessageBox (0, "Running InitSystem from libBB.dll ...", "BlackBox", {});
   TestBB.InitSystem (0, 0)
END Init;

BEGIN
   Init;
END TestBBloader.

MODULE TestBB ["libBB"];

IMPORT Init;

PROCEDURE InitSystem*(argc, argv: INTEGER);

END TestBB.

/* gcc -o BBloader BlackBoxW.c */

#include <windows.h>

int main(int argc, char **argv){
   HINSTANCE handle;
   void (*InitSystem)(int, int);

   handle=LoadLibrary("libBB.dll");
   if (!handle){
      MessageBox (NULL, "Failed to load libBB.dll", "BlackBox", MB_OK + MB_ICONSTOP);
      exit(1);
   }

   /* этот кусок кода более не нужен */
/*   *(void **) (&InitSystem) = GetProcAddress(handle,"InitSystem");
   if (!InitSystem){
      MessageBox (NULL, "Symbol not found.", "BlackBox", MB_OK + MB_ICONSTOP);
      exit(2);
   }

   MessageBox (NULL, "Running InitSystem", "BlackBox", MB_OK);
   InitSystem(argc, (int)argv);*/

   FreeLibrary(handle);

   return 0;
}