// WELCOME!! This is THE PROGRAM YOU ARE LOOKING FOR.

!7

//please include function scpLS.

//lib 1400562 // Starter
//lib 1400589 // Starter
lib 1400594 // Starter

//set flag OtherLoadableUtils. lib 1033861

// INCLUDE THE MAIN MODULE
!include early #1033862 // Gazelle Screen Cam [dev version]
replace MainModule with GazelleScreenCam.

!include early #1033891 // include GazelleHost early for flags like PingV3

!include early #1034876 // Gazelle 22 Flags [Include]

//set flag InCore.

sS windowTitle = "Gazelle 22";
sS progIDForDBAndAutoUpdate = #1033860;
sbool pingSourceStrictMode;

static GazelleHost host;
static ThreadPool threadPool;

sS devTitleSuffix = "";//" dev";

p {
  godMode();
  
  //loadableUtils.utils.__setJavaX(main.class);
  loadableUtils.utils.__setJavaX(x30.class);
  standaloneInit();
  
  ping_v3_setPingSourceMaker(-> {
    //System.out.println("pingSourceMaker");
    if (pingSourceStrictMode)
      fail("Strict mode - make a ping source first!!");
    ret new PingSource(threadPool, "legacy");
  });
  
  threadPool = new ThreadPool(findIntArg cores(args, numberOfCores()));
  print(threadPool);
  //threadPool.verbose = true;
  PingSource ps = new(threadPool, print("Starting Gazelle"));
  ps.do(-> {
    System.out.println("Pinging");
    ping();
    //if (true) fail("error test");
  
    print("Pinged");
    
    programID = progIDForDBAndAutoUpdate;
    
    AutoVMExit.install();
    
    print("AutoVMExit installed");
    
    addGlobalLastErrorsBufferToDefaultPCallPolicy();
    
    print("Recording global errors");
    
    // patch utils.preferredScreen
    
    preferredScreen = -> {
      if (host == null) ret 0;
      int screen = max(0, screenNrOfWindow(mainWindow()));
      ret screen;
    };
    
    // patch utils.showForm_makeFrame to use JDialog
    // (to avoid dialogs being hidden behind always-on-top window)
    
    showForm_makeFrame = (title, panel) -> {
      var dialog = new JDialog(mainWindow(), title);
      setDialogContents(dialog, withMargin(panel));
      packWindow(dialog);
      minWindowWidth(dialog, 400);
      centerDialogOverOwner(dialog);
      dialog.setVisible(true);
      //setBounds(dialog, defaultNewFrameBounds());
    };
    
    if (cic(args, "delete-session")) {
      print("Deleting session (" + programDir(programID) + ")");
      clearConceptsOf(programID);
    }
    
    // migrate classes for legacy databases
    F1<S, Class> baseClassFinder = cast _defaultClassFinder();
    setDefaultClassFinder(func(S name) -> Class {
      name = replacePrefix("loadableUtils.utils$", "main$", name);
      //print("G22 class finder: " + name);
      
      if (eq(name, "main$Challenge")) {
        print("Legacy Challenge converted!");
        ret Challenge;
      }
        
      ret baseClassFinder.get(name);
    });
    
    host = new GazelleHost(threadPool, -> new MainModule);
    if (sameSnippetID(programID, #1033860))
      windowTitle += devTitleSuffix;
    host.windowTitle = windowTitle;
    host.run(args);
    
    if (!cic(args, "console")) {
      print("Stopping System.out");
      printAlsoToSystemOut = false;
    }
  });
  print("aha.");
}

static Window mainWindow() { ret host.mainWindow(); }

static Map generalMap = syncMap();

Began life as a copy of #1033636