mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-04 22:52:15 -05:00
115 lines
3.6 KiB
PHP
115 lines
3.6 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^[1])^);
|
||
|
end;
|
||
|
|
||
|
procedure Lape_DiscreteGauss(const Params: PParamArray; const Result: Pointer);
|
||
|
begin
|
||
|
PExtendedArray(Result)^ := ps_DiscreteGauss(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pextended(Params^[1])^);
|
||
|
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;
|