Add help and improved handling parameters

Author: OttoCoddo

entries/ocoddo/src/Project1.lpr

@@ -364,30 +364,55 @@   TStationSummary = record
     WriteLn(ToStr(RST));
   end;
 
-var
-  I: Ind;
-  N: Str;
-  V: I64;
-begin
-  if Length(Parameters) = 0 then
-    Exit;
+  function HandleParameters(out AFilePath: TFilePath): Bool;
+  var
+    I: Ind;
+    N: Str;
+    V: I64;
+  begin
+    Result := False;
+    if Length(Parameters) = 0 then
+    begin
+      WriteLn;
+      WriteLn('1BRC');
+      WriteLn('----');
+      WriteLn('Made by O');
+      WriteLn;
+      WriteLn('Usage:');
+      WriteLn('./ocoddo ./input.txt [Options]');
+      WriteLn;
+      WriteLn('Options:');
+      WriteLn('--jumper-count=[Value]. Use 128, 192, 256, etc');
+      WriteLn('--part-size=[Value]. Use 128, 192, 256, etc');
+      WriteLn('--processor-count=[Value]. Use 1 or more');
+      WriteLn;
+      Exit;
+    end;
 
-  ProcessorCount := LogicalProcessorCount;
-  JumperCount := 256 * 1024;
-  PartSize := 192 * 1024 - ReadMargin;
+    ProcessorCount := LogicalProcessorCount;
+    JumperCount := 256 * 1024;
+    PartSize := 192 * 1024 - ReadMargin;
 
-  for I := 1 to High(Parameters) do
-  begin
-    N := Name(Parameters[I]);
-    ToI64(Value(Parameters[I]), V);
-
-    if N = 'jumper-count' then
-      JumperCount := V * 1024
-    else if N = 'part-size' then
-      PartSize := (V * 1024) - ReadMargin
-    else if N = 'processor-count' then
-      ProcessorCount := V;
+    for I := 1 to High(Parameters) do
+    begin
+      N := Name(Parameters[I]);
+      ToI64(Value(Parameters[I]), V);
+
+      if N = 'jumper-count' then
+        JumperCount := V * 1024
+      else if N = 'part-size' then
+        PartSize := (V * 1024) - ReadMargin
+      else if N = 'processor-count' then
+        ProcessorCount := V;
+    end;
+
+    AFilePath := Fix(Value(Parameters[0]));
+    Result := True;
   end;
 
-  Run(&File(Fix(Value(Parameters[0]))));
+var
+  FN: TFilePath;
+begin
+  if HandleParameters(FN) then
+    Run(&File(FN));
 end.