<commit_before>program Runner;
{$I KaM_Remake.inc}
uses
  {$IFDEF USE_MAD_EXCEPT}
  madExcept,
  madLinkDisAsm,
  madListHardware,
  madListProcesses,
  madListModules,
  {$ENDIF}
  //FastMM4,
  Forms,
  {$IFDEF FPC}
  Interfaces,
  {$ENDIF }
  Unit1 in 'Unit1.pas' {Form2},
  Unit_Runner in 'Unit_Runner.pas',
  Runner_Game in 'Runner_Game.pas',
  ComInterface in 'ComInterface.pas',
  ParallelRun in 'ParallelRun.pas',
  GeneticAlgorithm in 'GeneticAlgorithm.pas',
  GeneticAlgorithmParameters in 'GeneticAlgorithmParameters.pas';

{$R *.res}

procedure DebugLogString();
var
  K: Integer;
  Params: String;
  debugFile: TextFile;
begin
  Params := '';
  AssignFile(debugFile, 'DEBUG_inputParameters.txt');
  try
    rewrite(debugFile);
    for K := 0 to ParamCount do
      writeln(debugFile, ParamStr(K));
    CloseFile(debugFile);
  except
    //on E: EInOutError do
    //  writeln('File handling error occurred. Details: ', E.ClassName, '/', E.Message);
  end;
end;

var
  ParRun: TKMParallelRun;
begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  if (ParamCount > 0) then
  begin
    //DebugLogString();
    ParRun := TKMParallelRun.Create(Form2);
    try
      PARALLEL_RUN := True;
      ParRun.InitSimulation();
      ParRun.RunSimulation();
      ParRun.LogResults();
    finally
      ParRun.Free();
    end;
    Application.Terminate;
  end;
  
  Application.Run;
end.<commit_msg>Runner - comment code to invoke parralel runner. Toxic will uncomment it later<commit_after>program Runner;
{$I KaM_Remake.inc}
uses
  {$IFDEF USE_MAD_EXCEPT}
  madExcept,
  madLinkDisAsm,
  madListHardware,
  madListProcesses,
  madListModules,
  {$ENDIF}
  //FastMM4,
  Forms,
  {$IFDEF FPC}
  Interfaces,
  {$ENDIF }
  Unit1 in 'Unit1.pas' {Form2},
  Unit_Runner in 'Unit_Runner.pas',
  Runner_Game in 'Runner_Game.pas',
  ComInterface in 'ComInterface.pas',
  ParallelRun in 'ParallelRun.pas',
  GeneticAlgorithm in 'GeneticAlgorithm.pas',
  GeneticAlgorithmParameters in 'GeneticAlgorithmParameters.pas';

{$R *.res}

procedure DebugLogString();
var
  K: Integer;
  Params: String;
  debugFile: TextFile;
begin
  Params := '';
  AssignFile(debugFile, 'DEBUG_inputParameters.txt');
  try
    rewrite(debugFile);
    for K := 0 to ParamCount do
      writeln(debugFile, ParamStr(K));
    CloseFile(debugFile);
  except
    //on E: EInOutError do
    //  writeln('File handling error occurred. Details: ', E.ClassName, '/', E.Message);
  end;
end;

var
  ParRun: TKMParallelRun;
begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
//  if (ParamCount > 0) then
//  begin
//    //DebugLogString();
//    ParRun := TKMParallelRun.Create(Form2);
//    try
//      PARALLEL_RUN := True;
//      ParRun.InitSimulation();
//      ParRun.RunSimulation();
//      ParRun.LogResults();
//    finally
//      ParRun.Free();
//    end;
//    Application.Terminate;
//  end;
  
  Application.Run;
end.
{'fraction_non_alphanumeric': 0.12700580402867873, 'fraction_numerical': 0.006145442130419939, 'mean_word_length': 3.4869831546707504, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7283873', 'n_tokens_mistral': 1048, 'n_tokens_neox': 1028, 'n_words': 228}