mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-24 10:12:20 -05:00
f45d6bbad7
Squashes following commits: - Lape: New wrappers. - Lape: Updated exported methods. - Lape: Renamed wrapper files. - Lape: Renamed methods in exported methods. - Lape: Update MMLPSThread. - Lape: Compilation fixes.
300 lines
9.0 KiB
PHP
300 lines
9.0 KiB
PHP
procedure Lape_round(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_round(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_iAbs(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_iAbs(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ceil(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_ceil(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_pow(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_pow(Pextended(Params^[0])^, Pextended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_RiemannGauss(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_RiemannGauss(Pextended(Params^[0])^, Pextended(Params^[1])^, Pextended(Params^[2])^, Pinteger(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_DiscreteGauss(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PExtendedArray(Result)^ := ps_DiscreteGauss(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pextended(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_GaussMatrix(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
P2DExtendedArray(Result)^ := ps_GaussMatrix(Pinteger(Params^[0])^, Pextended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_exp(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_exp(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Max(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_Max(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_Min(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_Min(PInteger(Params^[0])^, PInteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_MinE(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_MinE(Pextended(Params^[0])^, Pextended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_MaxE(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_MaxE(Pextended(Params^[0])^, Pextended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_Sqr(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Sqr(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Point(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPoint(Result)^ := ps_Point(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_Distance(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_Distance(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^, Pinteger(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_Hypot(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PExtended(Result)^ := ps_Hypot(PExtended(Params^[0])^, PExtended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_RandomRange(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_RandomRange(PInteger(Params^[0])^, PInteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_Random(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_Random(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_RandomE(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_RandomE();
|
|
end;
|
|
|
|
procedure Lape_ArcTan2(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_ArcTan2(Pextended(Params^[0])^, Pextended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_IncEx(const Params: PParamArray);
|
|
begin
|
|
ps_IncEx(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_DecEx(const Params: PParamArray);
|
|
begin
|
|
ps_DecEx(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_Factorial(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInt64(Result)^ := ps_Factorial(Plongword(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_BinCoe(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PExtended(Result)^ := ps_BinCoe(PLongInt(Params^[0])^, PLongInt(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_FixD(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PExtended(Result)^ := ps_FixD(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_InRange(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_InRange(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_IntToBox(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBox(Result)^ := ps_IntToBox(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^, Pinteger(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_IntInBox(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_IntInBox(PInteger(Params^[0])^, PInteger(Params^[1])^, PBox(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_PointToBox(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBox(Result)^ := ps_PointToBox(PPoint(Params^[0])^, PPoint(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_PointInBox(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_PointInBox(PPoint(Params^[0])^, PBox(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_floor(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_floor(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_logn(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_logn(Pextended(Params^[0])^, Pextended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ln(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_ln(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_inttohex(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_inttohex(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_hextoint(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_hextoint(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_sar(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Plongint(Result)^ := ps_sar(Plongint(Params^[0])^, Pbyte(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ror(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PLongWord(Result)^ := ps_ror(Plongword(Params^[0])^, Pbyte(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_rol(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PLongWord(Result)^ := ps_rol(Plongword(Params^[0])^, Pbyte(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_tan(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_tan(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_radians(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_radians(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_degrees(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_degrees(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ArcSin(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_ArcSin(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ArcCos(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_ArcCos(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ArcTan(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_ArcTan(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Cotan(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Cotan(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Secant(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Secant(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Cosecant(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Cosecant(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Cot(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Cot(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Sec(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Sec(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Csc(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Csc(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Cosh(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Cosh(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Sinh(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Sinh(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_Tanh(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_Tanh(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_CotH(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_CotH(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SecH(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_SecH(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_CscH(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_CscH(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ArcCosh(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_ArcCosh(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ArcSinh(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_ArcSinh(Pextended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_DecRet(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PExtended(Result)^ := DecRet(PExtended(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_log10(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PExtended(Result)^ := ps_log10(PExtended(Params^[0])^);
|
|
end;
|