MODULE ConsInit;
   
   VAR
      n: LONGINT;
      
   PROCEDURE Idle (a, b, c: INTEGER);
   BEGIN
      Services.actionHook.Step
   END Idle;
   
   PROCEDURE Cycle (VAR par: ANYREC);
   BEGIN
      Dialog.Call("Config.Setup", " ", res);
      LOOP
         IF n=MAX(LONGINT) THEN n:=0 ELSE INC(n) END;
         IF ((n MOD 100) = 0) THEN Kernel.Collect END;
         IF (n MOD 50) = 0 THEN Kernel.FastCollect END;
         LinLibc.usleep(1000);
         Kernel.Try(Idle, 0, 0, 0);
      END;
   END Cycle;
   
   PROCEDURE Init;
   BEGIN
      n:=0;
      Kernel.Start(Cycle);
      Kernel.Quit(0);
   END Init;

BEGIN
   Init
END ConsInit.

upstream bbweb {
        server 127.0.0.1:8080;
}

server {
    listen 80;
    server_name  o3.blackboxframework.org;
    root /home/bbweb/Linux_O3;
 
    access_log /var/log/nginx/o3.access.log;
    error_log /var/log/nginx/o3.error.log;
 
    index index.html;
 
    location / {
   try_files $uri @bbweb;
    }
 

    location @bbweb {
    proxy_redirect     off;

    proxy_set_header   X-Forwarded-Proto $scheme;
    proxy_set_header   Host              $http_host;
    proxy_set_header   X-Real-IP         $remote_addr;
    proxy_set_header   X-Forwarded-For   $proxy_add_x_forwarded_for;

    proxy_pass http://bbweb;
  }

}

MODULE Init;

   IMPORT
      SYSTEM, Kernel, Services, LinLibc,
      
      HostConsole (* Console.SetHook *) ,
      HostFonts (* Fonts.SetHook; required for Texts *),
      HostWindows (* Windows.SetHook *),
      HostDates (* Dates.SetHook *),
      HostDialog (* Dialog.SetShowHook *),
      StdInterpreter (* Dialog.SetCallHook *) ,
      StdDialog (* Views.SetViewHook *),
      StdLog, ConsLog, (* Log.Hook *)
      Log,      
      (* , LinLog, *)
      (* Converters (* .odc *), *)
      Dialog,
      AppStartup;
   
   CONST
      gc = 1000;
   
   VAR
      c: INTEGER;
      
       n: LONGINT;
         
       PROCEDURE Idle (a, b, c: INTEGER);
       BEGIN
          Services.actionHook.Step
       END Idle;
       
       PROCEDURE Cycle*;
      VAR res: INTEGER;
       BEGIN
         Dialog.Call("Config.Setup", " ", res);
         
         Dialog.Call("O3bbStartup.Start","",res);
         AppStartup.Start;
         
         LOOP
             IF n=MAX(LONGINT) THEN n:=0 ELSE INC(n) END;
             IF ((n MOD 100) = 0) THEN Kernel.Collect END;
             IF (n MOD 50) = 0 THEN Kernel.FastCollect END;
             LinLibc.usleep(10000);
             Kernel.Try(Idle, 0, 0, 0);
          END;
       END Cycle;
       
       PROCEDURE Init;
       BEGIN
          n:=0;
          Kernel.Start(Cycle);
          Kernel.Quit(0)
       END Init;

BEGIN
   Init
END Init.