xref: /titanic_51/usr/src/cmd/ast/libshell/amd64/FEATURE/math (revision b4dd7d09880f14016feece03929a224eca1cf39a)

/* : : generated by proto : : */
/* : : generated from contrib/ast/src/cmd/ksh93/features/math.sh by iffe version 2012-07-17 : : */
#ifndef _def_math_ksh93
#if !defined(__PROTO__)
#  if defined(__STDC__) || defined(__cplusplus) || defined(_proto) || defined(c_plusplus)
#    if defined(__cplusplus)
#      define __LINKAGE__	"C"
#    else
#      define __LINKAGE__
#    endif
#    define __STDARG__
#    define __PROTO__(x)	x
#    define __OTORP__(x)
#    define __PARAM__(n,o)	n
#    if !defined(__STDC__) && !defined(__cplusplus)
#      if !defined(c_plusplus)
#      	define const
#      endif
#      define signed
#      define void		int
#      define volatile
#      define __V_		char
#    else
#      define __V_		void
#    endif
#  else
#    define __PROTO__(x)	()
#    define __OTORP__(x)	x
#    define __PARAM__(n,o)	o
#    define __LINKAGE__
#    define __V_		char
#    define const
#    define signed
#    define void		int
#    define volatile
#  endif
#  define __MANGLE__	__LINKAGE__
#  if defined(__cplusplus) || defined(c_plusplus)
#    define __VARARG__	...
#  else
#    define __VARARG__
#  endif
#  if defined(__STDARG__)
#    define __VA_START__(p,a)	va_start(p,a)
#  else
#    define __VA_START__(p,a)	va_start(p)
#  endif
#  if !defined(__INLINE__)
#    if defined(__cplusplus)
#      define __INLINE__	extern __MANGLE__ inline
#    else
#      if defined(_WIN32) && !defined(__GNUC__)
#      	define __INLINE__	__inline
#      endif
#    endif
#  endif
#endif
#if !defined(__LINKAGE__)
#define __LINKAGE__		/* 2004-08-11 transition */
#endif

#define _def_math_ksh93	1
#define _sys_types	1	/* #include <sys/types.h> ok */


/* : : generated by cmd/ast/tools/iffe from contrib/ast/src/cmd/ksh93/data/math.tab : : */

typedef Sfdouble_t (*Math_f) __PROTO__((Sfdouble_t,...));

#include <math.h>
#include <ieeefp.h>

static Sfdouble_t local_finite __PARAM__((Sfdouble_t a1), (a1)) __OTORP__(Sfdouble_t a1;){return finite(a1);}
static int local_fpclassify __PARAM__((Sfdouble_t a1), (a1)) __OTORP__(Sfdouble_t a1;){return fpclassify(a1);}
static int local_fpclass __PARAM__((Sfdouble_t a1), (a1)) __OTORP__(Sfdouble_t a1;){return fpclass(a1);}
static int local_isfinite __PARAM__((Sfdouble_t a1), (a1)) __OTORP__(Sfdouble_t a1;){return isfinite(a1);}
static int local_isgreater __PARAM__((Sfdouble_t a1,Sfdouble_t a2), (a1, a2)) __OTORP__(Sfdouble_t a1;Sfdouble_t a2;){return isgreater(a1,a2);}
static int local_isgreaterequal __PARAM__((Sfdouble_t a1,Sfdouble_t a2), (a1, a2)) __OTORP__(Sfdouble_t a1;Sfdouble_t a2;){return isgreaterequal(a1,a2);}
static int local_isinf __PARAM__((Sfdouble_t a1), (a1)) __OTORP__(Sfdouble_t a1;){return isinf(a1);}
static int local_isless __PARAM__((Sfdouble_t a1,Sfdouble_t a2), (a1, a2)) __OTORP__(Sfdouble_t a1;Sfdouble_t a2;){return isless(a1,a2);}
static int local_islessequal __PARAM__((Sfdouble_t a1,Sfdouble_t a2), (a1, a2)) __OTORP__(Sfdouble_t a1;Sfdouble_t a2;){return islessequal(a1,a2);}
static int local_islessgreater __PARAM__((Sfdouble_t a1,Sfdouble_t a2), (a1, a2)) __OTORP__(Sfdouble_t a1;Sfdouble_t a2;){return islessgreater(a1,a2);}
static int local_isnormal __PARAM__((Sfdouble_t a1), (a1)) __OTORP__(Sfdouble_t a1;){return isnormal(a1);}
static int local_issubnormal __PARAM__((Sfdouble_t a1), (a1)) __OTORP__(Sfdouble_t a1;){ int q = fpclassify(a1); return q == FP_SUBNORMAL; }
static int local_isunordered __PARAM__((Sfdouble_t a1,Sfdouble_t a2), (a1, a2)) __OTORP__(Sfdouble_t a1;Sfdouble_t a2;){return isunordered(a1,a2);}
static int local_iszero __PARAM__((Sfdouble_t a1), (a1)) __OTORP__(Sfdouble_t a1;){ int q = fpclassify(a1); return q == FP_ZERO; }
static int local_signbit __PARAM__((Sfdouble_t a1), (a1)) __OTORP__(Sfdouble_t a1;){return signbit(a1);}

/*
 * first byte is two-digit octal number.  Last digit is number of args
 * first digit is 0 if return value is double, 1 for integer
 */
const struct mathtab shtab_math[] =
{
	"\001acos",	(Math_f)(uintptr_t)acosl,
	"\001acosh",	(Math_f)(uintptr_t)acoshl,
	"\001asin",	(Math_f)(uintptr_t)asinl,
	"\001asinh",	(Math_f)(uintptr_t)asinhl,
	"\001atan",	(Math_f)(uintptr_t)atanl,
	"\002atan2",	(Math_f)(uintptr_t)atan2l,
	"\001atanh",	(Math_f)(uintptr_t)atanhl,
	"\001cbrt",	(Math_f)(uintptr_t)cbrtl,
	"\001ceil",	(Math_f)(uintptr_t)ceill,
	"\002copysign",	(Math_f)(uintptr_t)copysignl,
	"\001cos",	(Math_f)(uintptr_t)cosl,
	"\001cosh",	(Math_f)(uintptr_t)coshl,
	"\001erf",	(Math_f)(uintptr_t)erfl,
	"\001erfc",	(Math_f)(uintptr_t)erfcl,
	"\001exp",	(Math_f)(uintptr_t)expl,
	"\001exp2",	(Math_f)(uintptr_t)exp2l,
	"\001expm1",	(Math_f)(uintptr_t)expm1l,
	"\001fabs",	(Math_f)(uintptr_t)fabsl,
	"\001abs",	(Math_f)(uintptr_t)fabsl,
	"\002fdim",	(Math_f)(uintptr_t)fdiml,
	"\001finite",	(Math_f)(uintptr_t)local_finite,
	"\001floor",	(Math_f)(uintptr_t)floorl,
	"\001int",	(Math_f)(uintptr_t)floorl,
	"\003fma",	(Math_f)(uintptr_t)fmal,
	"\002fmax",	(Math_f)(uintptr_t)fmaxl,
	"\002fmin",	(Math_f)(uintptr_t)fminl,
	"\002fmod",	(Math_f)(uintptr_t)fmodl,
	"\011fpclassify",	(Math_f)(uintptr_t)local_fpclassify,
	"\011fpclass",	(Math_f)(uintptr_t)local_fpclass,
	"\002hypot",	(Math_f)(uintptr_t)hypotl,
	"\011ilogb",	(Math_f)(uintptr_t)ilogbl,
	"\011isfinite",	(Math_f)(uintptr_t)local_isfinite,
	"\012isgreater",	(Math_f)(uintptr_t)local_isgreater,
	"\012isgreaterequal",	(Math_f)(uintptr_t)local_isgreaterequal,
	"\011isinf",	(Math_f)(uintptr_t)local_isinf,
	"\012isless",	(Math_f)(uintptr_t)local_isless,
	"\012islessequal",	(Math_f)(uintptr_t)local_islessequal,
	"\012islessgreater",	(Math_f)(uintptr_t)local_islessgreater,
	"\011isnan",	(Math_f)(uintptr_t)isnanl,
	"\011isnormal",	(Math_f)(uintptr_t)local_isnormal,
	"\011issubnormal",	(Math_f)(uintptr_t)local_issubnormal,
	"\012isunordered",	(Math_f)(uintptr_t)local_isunordered,
	"\011iszero",	(Math_f)(uintptr_t)local_iszero,
	"\001j0",	(Math_f)(uintptr_t)j0l,
	"\001j1",	(Math_f)(uintptr_t)j1l,
	"\002jn",	(Math_f)(uintptr_t)jnl,
	"\042ldexp",	(Math_f)(uintptr_t)ldexpl,
	"\001lgamma",	(Math_f)(uintptr_t)lgammal,
	"\001log",	(Math_f)(uintptr_t)logl,
	"\001log10",	(Math_f)(uintptr_t)log10l,
	"\001log1p",	(Math_f)(uintptr_t)log1pl,
	"\001log2",	(Math_f)(uintptr_t)log2l,
	"\001logb",	(Math_f)(uintptr_t)logbl,
	"\001nearbyint",	(Math_f)(uintptr_t)nearbyintl,
	"\002nextafter",	(Math_f)(uintptr_t)nextafterl,
	"\002nexttoward",	(Math_f)(uintptr_t)nexttowardl,
	"\002pow",	(Math_f)(uintptr_t)powl,
	"\002remainder",	(Math_f)(uintptr_t)remainderl,
	"\001rint",	(Math_f)(uintptr_t)rintl,
	"\001round",	(Math_f)(uintptr_t)roundl,
	"\002scalb",	(Math_f)(uintptr_t)scalbl,
	"\002scalbn",	(Math_f)(uintptr_t)scalbnl,
	"\011signbit",	(Math_f)(uintptr_t)local_signbit,
	"\001sin",	(Math_f)(uintptr_t)sinl,
	"\001sinh",	(Math_f)(uintptr_t)sinhl,
	"\001sqrt",	(Math_f)(uintptr_t)sqrtl,
	"\001tan",	(Math_f)(uintptr_t)tanl,
	"\001tanh",	(Math_f)(uintptr_t)tanhl,
	"\001tgamma",	(Math_f)(uintptr_t)tgammal,
	"\001trunc",	(Math_f)(uintptr_t)truncl,
	"\001y0",	(Math_f)(uintptr_t)y0l,
	"\001y1",	(Math_f)(uintptr_t)y1l,
	"\002yn",	(Math_f)(uintptr_t)ynl,
	"",		(Math_f)0
};
#endif