chore: Forth submission from sbalazs

Author: gcarreno

.gitignore

@@ -2,6 +2,7 @@
 /bin
 /data/measurements*.txt
 /profiling
+/results
 
 # Compiled l10n files: .mo should be ignored
 *.mo

entries/sbalazs/src/obrc.lpi

@@ -15,8 +15,79 @@
       <UseAppBundle Value="False"/>
       <ResourceType Value="res"/>
     </General>
-    <BuildModes Count="1">
+    <BuildModes Count="3">
       <Item1 Name="Default" Default="True"/>
+      <Item2 Name="Debug">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <PathDelim Value="\"/>
+          <Target>
+            <Filename Value="..\..\..\bin\sbalazs"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <UnitOutputDirectory Value="..\..\..\bin\lib\$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <Parsing>
+            <SyntaxOptions>
+              <IncludeAssertionCode Value="True"/>
+            </SyntaxOptions>
+          </Parsing>
+          <CodeGeneration>
+            <Checks>
+              <IOChecks Value="True"/>
+              <RangeChecks Value="True"/>
+              <OverflowChecks Value="True"/>
+              <StackChecks Value="True"/>
+            </Checks>
+            <VerifyObjMethodCallValidity Value="True"/>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <DebugInfoType Value="dsDwarf3"/>
+              <UseHeaptrc Value="True"/>
+              <TrashVariables Value="True"/>
+              <UseExternalDbgSyms Value="True"/>
+            </Debugging>
+          </Linking>
+          <Other>
+            <CompilerMessages>
+              <IgnoredMessages idx5024="True"/>
+            </CompilerMessages>
+          </Other>
+        </CompilerOptions>
+      </Item2>
+      <Item3 Name="Release">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <PathDelim Value="\"/>
+          <Target>
+            <Filename Value="..\..\..\bin\sbalazs"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <UnitOutputDirectory Value="..\..\..\bin\lib\$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <CodeGeneration>
+            <SmartLinkUnit Value="True"/>
+            <Optimizations>
+              <OptimizationLevel Value="3"/>
+            </Optimizations>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <GenerateDebugInfo Value="False"/>
+              <RunWithoutDebug Value="True"/>
+            </Debugging>
+            <LinkSmart Value="True"/>
+          </Linking>
+          <Other>
+            <CompilerMessages>
+              <IgnoredMessages idx5024="True"/>
+            </CompilerMessages>
+          </Other>
+        </CompilerOptions>
+      </Item3>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>

entries/sbalazs/src/obrc.lpr

@@ -12,24 +12,7 @@
 
 var
   TC: Integer;
-  FTick: QWord;
   FWSManager: TWSManager;
-  MStart, MFinish: TMethod;
-
-
-procedure DoOnStart(Sender: TObject);
-begin
-  Writeln('Process started at: ' + FormatDateTime('hh:mm:ss:zzz', Now));
-  FTick := GetTickCount64;
-end;
-
-procedure DoOnFinish(Sender: TObject);
-begin
-  FTick := GetTickCount64 - FTick;
-  Writeln('Process finished at: ' + FormatDateTime('hh:mm:ss:zzz', Now));
-  Writeln('Duration: ' + IntToStr(FTick) + ' ms');
-  Halt;
-end;
 
 begin
   if (ParamStr(1) = '-h') or (ParamStr(1) = '/?') or (ParamStr(1) = '--help') then
@@ -44,27 +27,14 @@ procedure DoOnFinish(Sender: TObject);
     Halt;
   end;
 
-  {if (Trim(ParamStr(2)) = '')  then
-  begin
-    Writeln('Please specify a valid destination file');
-    Halt;
-  end;}
-
   if (Trim(ParamStr(2)) <> '')  then
-    TC := StrToIntDef(ParamStr(3), 16)
+    TC := StrToIntDef(ParamStr(2), 16)
   else
     TC := 16;
 
   FWSManager := TWSManager.Create(ParamStr(1), TC);
-  MStart.Data := nil;
-  MStart.Code := @DoOnStart;
-  FWSManager.OnStart := TNotifyEvent(MStart);
-  MFinish.Data := nil;
-  MFinish.Code := @DoOnFinish;
-  FWSManager.OnFinish := TNotifyEvent(MFinish);
   FWSManager.WSThreadsWatcher.Start;
-  repeat
-    Sleep(1500);
-  until 0 = 1;
+  FWSManager.WSThreadsWatcher.WaitFor;
+  FWSManager.Free;
 end.