d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Also export LONGREAL routines

Browse source
This commit is contained in:
ceriel 1988-06-30 16:32:54 +00:00
parent 74c779b81e
commit 6ade1e3215
2 changed files with 47 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
lang/m2/libm2/Mathlib.def
View file

@ -26,46 +26,84 @@ DEFINITION MODULE Mathlib;
PROCEDURE pow(x: REAL; i: INTEGER): REAL; PROCEDURE pow(x: REAL; i: INTEGER): REAL;
PROCEDURE longpow(x: LONGREAL; i: INTEGER): LONGREAL;
PROCEDURE sqrt(x: REAL): REAL; PROCEDURE sqrt(x: REAL): REAL;
PROCEDURE longsqrt(x: LONGREAL): LONGREAL;
PROCEDURE exp(x: REAL): REAL; PROCEDURE exp(x: REAL): REAL;
PROCEDURE longexp(x: LONGREAL): LONGREAL;
PROCEDURE ln(x: REAL): REAL; (* natural log *) PROCEDURE ln(x: REAL): REAL; (* natural log *)
PROCEDURE longln(x: LONGREAL): LONGREAL; (* natural log *)
PROCEDURE log(x: REAL): REAL; (* log with base 10 *) PROCEDURE log(x: REAL): REAL; (* log with base 10 *)
PROCEDURE longlog(x: LONGREAL): LONGREAL; (* log with base 10 *)
(* trigonometric functions; arguments in radians *) (* trigonometric functions; arguments in radians *)
PROCEDURE sin(x: REAL): REAL; PROCEDURE sin(x: REAL): REAL;
PROCEDURE longsin(x: LONGREAL): LONGREAL;
PROCEDURE cos(x: REAL): REAL; PROCEDURE cos(x: REAL): REAL;
PROCEDURE longcos(x: LONGREAL): LONGREAL;
PROCEDURE tan(x: REAL): REAL; PROCEDURE tan(x: REAL): REAL;
PROCEDURE longtan(x: LONGREAL): LONGREAL;
PROCEDURE arcsin(x: REAL): REAL; PROCEDURE arcsin(x: REAL): REAL;
PROCEDURE longarcsin(x: LONGREAL): LONGREAL;
PROCEDURE arccos(x: REAL): REAL; PROCEDURE arccos(x: REAL): REAL;
PROCEDURE longarccos(x: LONGREAL): LONGREAL;
PROCEDURE arctan(x: REAL): REAL; PROCEDURE arctan(x: REAL): REAL;
PROCEDURE longarctan(x: LONGREAL): LONGREAL;
(* hyperbolic functions *) (* hyperbolic functions *)
PROCEDURE sinh(x: REAL): REAL; PROCEDURE sinh(x: REAL): REAL;
PROCEDURE longsinh(x: LONGREAL): LONGREAL;
PROCEDURE cosh(x: REAL): REAL; PROCEDURE cosh(x: REAL): REAL;
PROCEDURE longcosh(x: LONGREAL): LONGREAL;
PROCEDURE tanh(x: REAL): REAL; PROCEDURE tanh(x: REAL): REAL;
PROCEDURE longtanh(x: LONGREAL): LONGREAL;
PROCEDURE arcsinh(x: REAL): REAL; PROCEDURE arcsinh(x: REAL): REAL;
PROCEDURE longarcsinh(x: LONGREAL): LONGREAL;
PROCEDURE arccosh(x: REAL): REAL; PROCEDURE arccosh(x: REAL): REAL;
PROCEDURE longarccosh(x: LONGREAL): LONGREAL;
PROCEDURE arctanh(x: REAL): REAL; PROCEDURE arctanh(x: REAL): REAL;
PROCEDURE longarctanh(x: LONGREAL): LONGREAL;
(* conversions *) (* conversions *)
PROCEDURE RadianToDegree(x: REAL): REAL; PROCEDURE RadianToDegree(x: REAL): REAL;
PROCEDURE longRadianToDegree(x: LONGREAL): LONGREAL;
PROCEDURE DegreeToRadian(x: REAL): REAL; PROCEDURE DegreeToRadian(x: REAL): REAL;
PROCEDURE longDegreeToRadian(x: LONGREAL): LONGREAL;
END Mathlib. END Mathlib.

9
lang/m2/libm2/RealConver.def
View file

@ -16,6 +16,10 @@ DEFINITION MODULE RealConversions;
Input terminates with a blank or any control character. Input terminates with a blank or any control character.
*) *)
PROCEDURE StringToLongReal(str: ARRAY OF CHAR;
VAR r: LONGREAL;
VAR ok: BOOLEAN);
PROCEDURE RealToString(r: REAL; PROCEDURE RealToString(r: REAL;
digits, width: INTEGER; digits, width: INTEGER;
VAR str: ARRAY OF CHAR; VAR str: ARRAY OF CHAR;
@ -29,4 +33,9 @@ DEFINITION MODULE RealConversions;
If the representation does not fit in "width", then ok is set to FALSE. If the representation does not fit in "width", then ok is set to FALSE.
*) *)
PROCEDURE LongRealToString(r: LONGREAL;
digits, width: INTEGER;
VAR str: ARRAY OF CHAR;
VAR ok: BOOLEAN);
END RealConversions. END RealConversions.