program KvCttSchw;

//{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  superobject,
  ProcessHwp in 'ProcessHwp.pas';

var
  O: ISuperObject;
  sPath: String;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

    try
      sPath := ParamStr(1);
      if not LoadJsonObjFromFile(O, sPath) then
        exit;
      DeleteFile(sPath);

      if not FileExists(O.S['Src']) then
        exit;

      FilterHwp(O.S['Src'], O.S['Dest']);
    except
      exit;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.