20060303a

1 files changed, 73 insertions, 0 deletions

diff --git a/libinterp/mathmod.h b/libinterp/mathmod.h
new file mode 100644
index 00000000..f15583fc
--- /dev/null
+++ b/libinterp/mathmod.h
@@ -0,0 +1,73 @@
+typedef struct{char *name; long sig; void (*fn)(void*); int size; int np; uchar map[16];} Runtab;
+Runtab Mathmodtab[]={
+	"FPcontrol",0x6584767b,Math_FPcontrol,40,0,{0},
+	"FPstatus",0x6584767b,Math_FPstatus,40,0,{0},
+	"acos",0xa1d1fe48,Math_acos,40,0,{0},
+	"acosh",0xa1d1fe48,Math_acosh,40,0,{0},
+	"asin",0xa1d1fe48,Math_asin,40,0,{0},
+	"asinh",0xa1d1fe48,Math_asinh,40,0,{0},
+	"atan",0xa1d1fe48,Math_atan,40,0,{0},
+	"atan2",0xf293f6cf,Math_atan2,48,0,{0},
+	"atanh",0xa1d1fe48,Math_atanh,40,0,{0},
+	"bits32real",0x40a58596,Math_bits32real,40,0,{0},
+	"bits64real",0x5463c72c,Math_bits64real,40,0,{0},
+	"cbrt",0xa1d1fe48,Math_cbrt,40,0,{0},
+	"ceil",0xa1d1fe48,Math_ceil,40,0,{0},
+	"copysign",0xf293f6cf,Math_copysign,48,0,{0},
+	"cos",0xa1d1fe48,Math_cos,40,0,{0},
+	"cosh",0xa1d1fe48,Math_cosh,40,0,{0},
+	"dot",0xfeca4db6,Math_dot,40,2,{0x0,0xc0,},
+	"erf",0xa1d1fe48,Math_erf,40,0,{0},
+	"erfc",0xa1d1fe48,Math_erfc,40,0,{0},
+	"exp",0xa1d1fe48,Math_exp,40,0,{0},
+	"expm1",0xa1d1fe48,Math_expm1,40,0,{0},
+	"export_int",0x3f1d94ee,Math_export_int,40,2,{0x0,0xc0,},
+	"export_real",0xd1fb0c8c,Math_export_real,40,2,{0x0,0xc0,},
+	"export_real32",0xd1fb0c8c,Math_export_real32,40,2,{0x0,0xc0,},
+	"fabs",0xa1d1fe48,Math_fabs,40,0,{0},
+	"fdim",0xf293f6cf,Math_fdim,48,0,{0},
+	"finite",0x7b2e5f52,Math_finite,40,0,{0},
+	"floor",0xa1d1fe48,Math_floor,40,0,{0},
+	"fmax",0xf293f6cf,Math_fmax,48,0,{0},
+	"fmin",0xf293f6cf,Math_fmin,48,0,{0},
+	"fmod",0xf293f6cf,Math_fmod,48,0,{0},
+	"gemm",0x53b8cd34,Math_gemm,96,3,{0x0,0x0,0xa2,},
+	"getFPcontrol",0x616977e8,Math_getFPcontrol,32,0,{0},
+	"getFPstatus",0x616977e8,Math_getFPstatus,32,0,{0},
+	"hypot",0xf293f6cf,Math_hypot,48,0,{0},
+	"iamax",0xa5fc2e4d,Math_iamax,40,2,{0x0,0x80,},
+	"ilogb",0x7b2e5f52,Math_ilogb,40,0,{0},
+	"import_int",0x3f1d94ee,Math_import_int,40,2,{0x0,0xc0,},
+	"import_real",0xd1fb0c8c,Math_import_real,40,2,{0x0,0xc0,},
+	"import_real32",0xd1fb0c8c,Math_import_real32,40,2,{0x0,0xc0,},
+	"isnan",0x7b2e5f52,Math_isnan,40,0,{0},
+	"j0",0xa1d1fe48,Math_j0,40,0,{0},
+	"j1",0xa1d1fe48,Math_j1,40,0,{0},
+	"jn",0xb61ffc5b,Math_jn,48,0,{0},
+	"lgamma",0x6e97c646,Math_lgamma,40,0,{0},
+	"log",0xa1d1fe48,Math_log,40,0,{0},
+	"log10",0xa1d1fe48,Math_log10,40,0,{0},
+	"log1p",0xa1d1fe48,Math_log1p,40,0,{0},
+	"modf",0x6e97c646,Math_modf,40,0,{0},
+	"nextafter",0xf293f6cf,Math_nextafter,48,0,{0},
+	"norm1",0x1629207e,Math_norm1,40,2,{0x0,0x80,},
+	"norm2",0x1629207e,Math_norm2,40,2,{0x0,0x80,},
+	"pow",0xf293f6cf,Math_pow,48,0,{0},
+	"pow10",0x40a58596,Math_pow10,40,0,{0},
+	"realbits32",0x7b2e5f52,Math_realbits32,40,0,{0},
+	"realbits64",0x9589d476,Math_realbits64,40,0,{0},
+	"remainder",0xf293f6cf,Math_remainder,48,0,{0},
+	"rint",0xa1d1fe48,Math_rint,40,0,{0},
+	"scalbn",0x64fa84ba,Math_scalbn,48,0,{0},
+	"sin",0xa1d1fe48,Math_sin,40,0,{0},
+	"sinh",0xa1d1fe48,Math_sinh,40,0,{0},
+	"sort",0xfc7c7b8,Math_sort,40,2,{0x0,0xc0,},
+	"sqrt",0xa1d1fe48,Math_sqrt,40,0,{0},
+	"tan",0xa1d1fe48,Math_tan,40,0,{0},
+	"tanh",0xa1d1fe48,Math_tanh,40,0,{0},
+	"y0",0xa1d1fe48,Math_y0,40,0,{0},
+	"y1",0xa1d1fe48,Math_y1,40,0,{0},
+	"yn",0xb61ffc5b,Math_yn,48,0,{0},
+	0
+};
+#define Mathmodlen	68