1 #include <u.h>
2 #include <libc.h>
3 
4 #include "hoc.h"
5 
6 double	errcheck(double, char*);
7 
8 double
9 Log(double x)
10 {
11 	return errcheck(log(x), "log");
12 }
13 double
14 Log10(double x)
15 {
16 	return errcheck(log10(x), "log10");
17 }
18 
19 double
20 Sqrt(double x)
21 {
22 	return errcheck(sqrt(x), "sqrt");
23 }
24 
25 double
26 Exp(double x)
27 {
28 	return errcheck(exp(x), "exp");
29 }
30 
31 double
32 Asin(double x)
33 {
34 	return errcheck(asin(x), "asin");
35 }
36 
37 double
38 Acos(double x)
39 {
40 	return errcheck(acos(x), "acos");
41 }
42 
43 double
44 Sinh(double x)
45 {
46 	return errcheck(sinh(x), "sinh");
47 }
48 double
49 Cosh(double x)
50 {
51 	return errcheck(cosh(x), "cosh");
52 }
53 double
54 Pow(double x, double y)
55 {
56 	return errcheck(pow(x,y), "exponentiation");
57 }
58 
59 double
60 integer(double x)
61 {
62 	if(x<-2147483648.0 || x>2147483647.0)
63 		execerror("argument out of domain", 0);
64 	return (double)(long)x;
65 }
66 
67 double
68 errcheck(double d, char* s)	/* check result of library call */
69 {
70 	if(isNaN(d))
71 		execerror(s, "argument out of domain");
72 	if(isInf(d, 0))
73 		execerror(s, "result out of range");
74 	return d;
75 }