feat: First entry from Székely Balázs

Author: gcarreno

entries/sbalazs/README.md

@@ -0,0 +1,3 @@
+# Székely Balázs
+
+This entry is made via email since the person in question no longer has a GitHub account.

entries/sbalazs/src/obrc.lpi

@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="12"/>
+    <PathDelim Value="\"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+        <MainUnitHasScaledStatement Value="False"/>
+        <CompatibilityMode Value="True"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <Title Value="obrc"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+      <UseFileFilters Value="True"/>
+    </PublishOptions>
+    <RunParams>
+      <FormatVersion Value="2"/>
+    </RunParams>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="obrc.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="uweatherstations.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="uWeatherStations"/>
+      </Unit1>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="..\..\..\bin\sbalazs"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="..\..\..\bin\lib\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+      </Debugging>
+    </Linking>
+    <Other>
+      <CompilerMessages>
+        <IgnoredMessages idx5024="True"/>
+      </CompilerMessages>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

entries/sbalazs/src/obrc.lpr

@@ -0,0 +1,70 @@
+program obrc;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  Classes,
+  SysUtils,
+  uWeatherStations;
+
+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
+  begin
+    Writeln('USAGE: obrc <source_file> <destination_file> <threadCnt(optional-default 16)>');
+    Halt;
+  end;
+
+  if (Trim(ParamStr(1)) = '') or (not FileExists(ParamStr(1))) then
+  begin
+    Writeln('Please specify a valid source file');
+    Halt;
+  end;
+
+  if (Trim(ParamStr(2)) = '')  then
+  begin
+    Writeln('Please specify a valid destination file');
+    Halt;
+  end;
+
+  if (Trim(ParamStr(3)) <> '')  then
+    TC := StrToIntDef(ParamStr(3), 16)
+  else
+    TC := 16;
+
+  FWSManager := TWSManager.Create(ParamStr(1), ParamStr(2), 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;
+end.
+