Simba/Units/MMLAddon/LPInc/Wrappers/extensions.inc

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  Pboolean(Result)^ := ext_UnTar(Pstring(Params^[0])^, PStringArray(Params^[1])^);
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  Pboolean(Result)^ := ext_UnTarEx(Pstring(Params^[0])^, Pstring(Params^[1])^, Pboolean(Params^[2])^);
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  Pboolean(Result)^ := ext_DecompressBZip2(Pstring(Params^[0])^, Pstring(Params^[1])^, PCardinal(Params^[2])^);
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  Pstring(Result)^ := ext_GetPage(Pstring(Params^[0])^);
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  PInteger(Result)^ := ext_MessageDlg(Pstring(Params^[0])^, Pstring(Params^[1])^, PMsgDlgType(Params^[2])^, PMsgDlgButtons(Params^[3])^, PLongint(Params^[4])^);
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  PMDTM(Result)^ := ext_SDTMToMDTM(PSDTM(Params^[0])^);
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  PBoolean(Result)^ := ext_InputQuery(PString(Params^[0])^, PString(Params^[1])^, PString(Params^[2])^);
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  Pstring(Result)^ := ext_ScriptText();
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  Pstring(Result)^ := ext_GetSelectedText();
end;

procedure Lape_(const Params: PParamArray);
begin
  ext_OpenScript(Pstring(Params^[0])^, Pstring(Params^[1])^, Pboolean(Params^[2])^);
end;

procedure Lape_(const Params: PParamArray);
begin
  ext_OpenScriptEx(Pstring(Params^[0])^, Pboolean(Params^[1])^);
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  Pstring(Result)^ := ext_GetPageEx(Pstring(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^);
end;

procedure Lape_(const Params: PParamArray; const Result: Pointer);
begin
  Pstring(Result)^ := ext_GetJSONValue(Pstring(Params^[0])^, Pstring(Params^[1])^);
end;