/* : : 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 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 #include 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