1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-04 22:52:15 -05:00
Simba/Units/MMLAddon/LPInc/Wrappers/math.inc

115 lines
3.6 KiB
PHP
Raw Normal View History

2011-08-03 14:29:48 -04:00
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;