unit ZSTDDLL;

interface

uses
  InitCode,
  Utils, LibImport,
  WinAPI.Windows,
  System.SysUtils;

type
  ZSTD_strategy = (ZSTD_fast = 1, ZSTD_dfast = 2, ZSTD_greedy = 3,
    ZSTD_lazy = 4, ZSTD_lazy2 = 5, ZSTD_btlazy2 = 6, ZSTD_btopt = 7,
    ZSTD_btultra = 8, ZSTD_btultra2 = 9, ZSTD_strategy_Force32 = $40000000);

  ZSTD_ResetDirective = (ZSTD_reset_session_only = 1, ZSTD_reset_parameters = 2,
    ZSTD_reset_session_and_parameters = 3,
    ZSTD_ResetDirective_Force32 = $40000000);

  PZSTD_inBuffer = ^ZSTD_inBuffer;

  ZSTD_inBuffer = record
    src: Pointer;
    size: size_t;
    pos: size_t;
  end;

  PZSTD_outBuffer = ^ZSTD_outBuffer;

  ZSTD_outBuffer = record
    dst: Pointer;
    size: size_t;
    pos: size_t;
  end;

  PZSTD_CCtx_params = Pointer;

  ZSTD_cParameter = (ZSTD_c_compressionLevel = 100, ZSTD_c_windowLog = 101,
    ZSTD_c_hashLog = 102, ZSTD_c_chainLog = 103, ZSTD_c_searchLog = 104,
    ZSTD_c_minMatch = 105, ZSTD_c_targetLength = 106, ZSTD_c_strategy = 107,
    ZSTD_c_enableLongDistanceMatching = 160, ZSTD_c_ldmHashLog = 161,
    ZSTD_c_ldmMinMatch = 162, ZSTD_c_ldmBucketSizeLog = 163,
    ZSTD_c_ldmHashRateLog = 164, ZSTD_c_contentSizeFlag = 200,
    ZSTD_c_checksumFlag = 201, ZSTD_c_dictIDFlag = 202, ZSTD_c_nbWorkers = 400,
    ZSTD_c_jobSize = 401, ZSTD_c_overlapLog = 402,
    ZSTD_c_experimentalParam1 = 500, ZSTD_c_experimentalParam2 = 10,
    ZSTD_c_experimentalParam3 = 1000, ZSTD_c_experimentalParam4 = 1001,
    ZSTD_c_experimentalParam5 = 1002, ZSTD_c_experimentalParam6 = 1003,
    ZSTD_c_experimentalParam7 = 1004, ZSTD_c_experimentalParam8 = 1005,
    ZSTD_c_experimentalParam9 = 1006, ZSTD_c_experimentalParam10 = 1007,
    ZSTD_c_experimentalParam11 = 1008, ZSTD_c_experimentalParam12 = 1009,
    ZSTD_c_experimentalParam13 = 1010, ZSTD_c_experimentalParam14 = 1011,
    ZSTD_c_experimentalParam15 = 1012, ZSTD_cParameter_Force32 = $40000000);

  ZSTD_compressionParameters = record
    windowLog: Cardinal;
    chainLogg: Cardinal;
    hashLogg: Cardinal;
    searchLogg: Cardinal;
    minMatchg: Cardinal;
    targetLengthg: Cardinal;
    strategy: ZSTD_strategy;
  end;

  ZSTD_frameParameters = record
    contentSizeFlag: Integer;
    checksumFlag: Integer;
    noDictIDFlag: Integer;
  end;

  ZSTD_parameters = record
    cParams: ZSTD_compressionParameters;
    fParams: ZSTD_frameParameters;
  end;

var
  ZSTD_compress: function(dst: Pointer; dstCapacity: size_t; const src: Pointer;
    srcSize: size_t; compressionLevel: Integer): size_t cdecl;
  ZSTD_compress2: function(cctx: Pointer; dst: Pointer; dstCapacity: size_t;
    const src: Pointer; srcSize: size_t): size_t cdecl;
  ZSTD_decompress: function(dst: Pointer; dstCapacity: size_t;
    const src: Pointer; srcSize: size_t): SSIZE_T cdecl;
  ZSTD_findFrameCompressedSize: function(const src: Pointer; srcSize: size_t)
    : int64 cdecl;
  ZSTD_findDecompressedSize: function(const src: Pointer; srcSize: size_t)
    : int64 cdecl;
  ZSTD_createCCtx: function: Pointer cdecl;
  ZSTD_freeCCtx: function(cctx: Pointer): size_t cdecl;
  ZSTD_CCtx_reset: function(cctx: Pointer; reset: ZSTD_ResetDirective)
    : size_t cdecl;
  ZSTD_CCtx_setParameter: function(cctx: Pointer; param: ZSTD_cParameter;
    value: Integer): size_t cdecl;
  ZSTD_compressCCtx: function(cctx: Pointer; dst: Pointer; dstCapacity: size_t;
    src: Pointer; srcSize: size_t; compressionLevel: Integer): size_t cdecl;
  ZSTD_createDCtx: function: Pointer cdecl;
  ZSTD_freeDCtx: function(dctx: Pointer): size_t cdecl;
  ZSTD_decompressDCtx: function(dctx: Pointer; dst: Pointer;
    dstCapacity: size_t; src: Pointer; srcSize: size_t): size_t cdecl;
  ZSTD_createCDict: function(const dict: Pointer; dictSize: size_t;
    compressionLevel: Integer): Pointer cdecl;
  ZSTD_freeCDict: function(ddict: Pointer): size_t cdecl;
  ZSTD_createDDict: function(const dict: Pointer; dictSize: size_t)
    : Pointer cdecl;
  ZSTD_freeDDict: function(ddict: Pointer): size_t cdecl;
  ZSTD_compress_usingCDict: function(cctx: Pointer; dst: Pointer;
    dstCapacity: size_t; const src: Pointer; srcSize: size_t;
    const cdict: Pointer): size_t cdecl;
  ZSTD_decompress_usingDDict: function(dctx: Pointer; dst: Pointer;
    dstCapacity: size_t; const src: Pointer; srcSize: size_t;
    const ddict: Pointer): size_t cdecl;
  ZSTD_initCStream: function(zcs: Pointer; compressionLevel: Integer)
    : size_t cdecl;
  ZSTD_compressStream: function(zcs: Pointer; output: PZSTD_outBuffer;
    input: PZSTD_inBuffer): size_t cdecl;
  ZSTD_flushStream: function(zcs: Pointer; output: PZSTD_outBuffer)
    : size_t cdecl;
  ZSTD_endStream: function(zcs: Pointer; output: PZSTD_outBuffer): size_t cdecl;

  DLLLoaded: Boolean = False;

function ZSTD_compress_dict(cctx: Pointer; dst: Pointer; dstCapacity: size_t;
  const src: Pointer; srcSize: size_t; const cdict: Pointer): size_t;
function ZSTD_decompress_dict(dctx: Pointer; dst: Pointer; dstCapacity: size_t;
  const src: Pointer; srcSize: size_t; const ddict: Pointer): size_t;

implementation

function ZSTD_compress_dict(cctx: Pointer; dst: Pointer; dstCapacity: size_t;
  const src: Pointer; srcSize: size_t; const cdict: Pointer): size_t;
begin
  cctx := ZSTD_createDCtx;
  Result := ZSTD_compress_usingCDict(cctx, dst, dstCapacity, src,
    srcSize, cdict);
  ZSTD_freeDCtx(cctx);
end;

function ZSTD_decompress_dict(dctx: Pointer; dst: Pointer; dstCapacity: size_t;
  const src: Pointer; srcSize: size_t; const ddict: Pointer): size_t;
begin
  dctx := ZSTD_createDCtx;
  Result := ZSTD_decompress_usingDDict(dctx, dst, dstCapacity, src,
    srcSize, ddict);
  ZSTD_freeDCtx(dctx);
end;

var
  Lib: TLibImport;

procedure Init(Filename: String);
begin
  Lib := TLibImport.Create(ExpandPath(Filename, True));
  if Lib.Loaded then
  begin
    @ZSTD_compress := Lib.GetProcAddr('ZSTD_compress');
    @ZSTD_compress2 := Lib.GetProcAddr('ZSTD_compress2');
    @ZSTD_decompress := Lib.GetProcAddr('ZSTD_decompress');
    @ZSTD_findFrameCompressedSize :=
      Lib.GetProcAddr('ZSTD_findFrameCompressedSize');
    @ZSTD_findDecompressedSize := Lib.GetProcAddr('ZSTD_findDecompressedSize');
    @ZSTD_createCCtx := Lib.GetProcAddr('ZSTD_createCCtx');
    @ZSTD_freeCCtx := Lib.GetProcAddr('ZSTD_freeCCtx');
    @ZSTD_CCtx_reset := Lib.GetProcAddr('ZSTD_CCtx_reset');
    @ZSTD_CCtx_setParameter := Lib.GetProcAddr('ZSTD_CCtx_setParameter');
    @ZSTD_createDCtx := Lib.GetProcAddr('ZSTD_createDCtx');
    @ZSTD_freeDCtx := Lib.GetProcAddr('ZSTD_freeDCtx');
    @ZSTD_createCDict := Lib.GetProcAddr('ZSTD_createCDict');
    @ZSTD_freeCDict := Lib.GetProcAddr('ZSTD_freeCDict');
    @ZSTD_compressCCtx := Lib.GetProcAddr('ZSTD_compressCCtx');
    @ZSTD_createDDict := Lib.GetProcAddr('ZSTD_createDDict');
    @ZSTD_freeDDict := Lib.GetProcAddr('ZSTD_freeDDict');
    @ZSTD_decompressDCtx := Lib.GetProcAddr('ZSTD_decompressDCtx');
    @ZSTD_compress_usingCDict := Lib.GetProcAddr('ZSTD_compress_usingCDict');
    @ZSTD_decompress_usingDDict :=
      Lib.GetProcAddr('ZSTD_decompress_usingDDict');
    @ZSTD_initCStream := Lib.GetProcAddr('ZSTD_initCStream');
    @ZSTD_compressStream := Lib.GetProcAddr('ZSTD_compressStream');
    @ZSTD_flushStream := Lib.GetProcAddr('ZSTD_flushStream');
    @ZSTD_endStream := Lib.GetProcAddr('ZSTD_endStream');
    DLLLoaded := Assigned(ZSTD_compress) and Assigned(ZSTD_decompress);
  end;
end;

procedure Deinit;
begin
  Lib.Free;
end;

const
  DLLParam1 = '--zstd=';
  DLLParam2 = '-zs';

var
  I: Integer;
  DLLFile: String;

initialization

DLLFile := PluginsPath + 'libzstd.dll';
for I := 1 to ParamCount do
begin
  if ParamStr(I).StartsWith(DLLParam1) then
  begin
    DLLFile := ParamStr(I).Substring(DLLParam1.Length);
    break;
  end;
  if ParamStr(I).StartsWith(DLLParam2) then
  begin
    DLLFile := ParamStr(I).Substring(DLLParam2.Length);
    break;
  end;
end;

Init(DLLFile);

finalization

Deinit;

end.