LidlToGrocy.lpr

program LidlToGrocy;

{$mode delphiUnicode}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes,
  SysUtils,
  mormot.core.os,
  kernel.application,
  mormot.core.base,
  mormot.core.unicode;

var
  Application: TLidlToGrocy;

const
  VERSION = '0.1';

  function GetEx(const Name: array of RawUtf8; Description: RawUtf8; Default: RawUtf8 = ''): string;
  var
    Arg: RawUtf8;
  begin
    Executable.Command.Get(Name, Arg, Description, Default);
    Result := Utf8DecodeToUnicodeString(Arg);
  end;

  {$R *.res}

begin
  {$if declared(UseHeapTrace)}
  GlobalSkipIfNoLeaks := True;
  SetHeapTraceOutput('trace.log');
  {$endIf}

  with Executable.Command do
  begin
    ExeDescription := 'An executable to add easily your Lidl receipts into Grocy ' + VERSION;

    Application := TLidlToGrocy.Create(nil);

    Application.Verbose := Option(['v', 'verbose'], 'generate verbose output');
    Application.Help := Option(['?', 'help'], 'display this message');
    Application.NoStock := Option(['n', 'no-add-stock'], 'don''t add product in stock');
    Application.NoOpenFoodFacts :=
      Option(['c', 'no-openfoodfacts'], 'don''t get product infos from openfoodfacts');
    Application.SaveLidlJson := Option(['s', 'save-lidl-json'], 'save lidl json in a file (lidl.json)');
    Application.ConsumeNow := Option(['o', 'consume-now'], 'consume grocy product after adding');
    Application.NoProductPicture := Option(['r', 'no-picture'], 'don''t get openfoodfacts image in grocy');

    Application.GrocyIp := GetEx(['i', 'grocy-ip'], 'grocy ip address');
    Application.GrocyPort := GetEx(['p', 'grocy-port'], 'grocy port', '9283');
    Application.GrocyApiKey := GetEx(['a', 'grocy-apikey'], 'grocy api key');

    Application.LidlCountry := GetEx(['c', 'lidl-country'], 'lidl country', 'EN');
    Application.LidlLanguage := GetEx(['l', 'lidl-lang'], 'lidl language', 'en');
    Application.LidlToken := GetEx(['t', 'lidl-token'],
      'lidl token (see https://github.com/Andre0512/lidl-plus#commandline-tool)');

    Application.LidlJsonFilePath :=
      GetEx(['f', 'lidl-filepath'], 'lidl json file (optional)');

    Application.Title := 'LidlToGrocy ' + VERSION;

    Application.SetupGrocy;

    Application.Run;

    Application.Free;
  end;
end.