GopherProxy

	math.c - 9base - revived minimalist port of Plan 9 userland to Unix
	git clone git://git.suckless.org/9base
	Log
	Files
	Refs
	README
	LICENSE
	---
	math.c (990B)
	---
	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 }