{
MAKE_VARIABLE("Verbose_Fitsio", &Cfits_Verbose, SLANG_INT_TYPE, 0),
MAKE_VARIABLE("Remove_Spectrum_Gaps", &Isis_Remove_Spectrum_Gaps, SLANG_INT_TYPE, 0),
SLANG_END_INTRIN_VAR_TABLE
};
#define V SLANG_VOID_TYPE
#define I SLANG_INT_TYPE
#define U SLANG_UINT_TYPE
#define F SLANG_FLOAT_TYPE
#define D SLANG_DOUBLE_TYPE
#define S SLANG_STRING_TYPE
static SLang_Intrin_Fun_Type Misc_Intrinsics [] =
{
MAKE_INTRINSIC("print_array", print_array, V, 0),
MAKE_INTRINSIC_1("_isis_set_pager", isis_set_pager, V, S),
MAKE_INTRINSIC("_isis_get_pager", isis_get_pager, V, 0),
MAKE_INTRINSIC_2("_find_file_in_path", find_file_in_path, V, S, S),
MAKE_INTRINSIC("_readcol", _readcol, V, 0),
MAKE_INTRINSIC_I("_isis_set_errno", set_errno, V),
SLANG_END_INTRIN_FUN_TABLE
};
static char *Pivs = ISIS_VERSION_STRING;
static char *Install_Prefix = INSTALL_PREFIX ;
static char *Install_Prefix_Input = INSTALL_PREFIX_INPUT ;
static SLang_Intrin_Var_Type Global_Intrin_Vars [] =
{
MAKE_VARIABLE("_isis_version_string", &Pivs, SLANG_STRING_TYPE, 1),
/*{{{ intrinsics */
#define V SLANG_VOID_TYPE
#define AI SLANG_ARRAY_INDEX_TYPE
#define I SLANG_INT_TYPE
#define U SLANG_UINT_TYPE
#define F SLANG_FLOAT_TYPE
#define D SLANG_DOUBLE_TYPE
#define S SLANG_STRING_TYPE
static SLang_Intrin_Fun_Type Math_Intrinsics [] =
{
MAKE_INTRINSIC_1("_make_1d_histogram", make_1d_histogram, V, I),
MAKE_INTRINSIC_1("_make_2d_histogram", make_2d_histogram, V, I),
MAKE_INTRINSIC_2("_fft1d", _fft1d, V, I, D),
MAKE_INTRINSIC("_moment", moment, V, 0),
MAKE_INTRINSIC("_median", median, V, 0),
MAKE_INTRINSIC("_ks_difference", ks_difference, D, 0),
MAKE_INTRINSIC_1("_ks_probability", ks_probability, D, D),
MAKE_INTRINSIC_1("_seed_random", seed_random, V, SLANG_ULONG_TYPE),
MAKE_INTRINSIC_1("_urand_array", urand_array, V, AI),
MAKE_INTRINSIC_1("_grand_array", grand_array, V, AI),
MAKE_INTRINSIC_2("_prand_array", prand_array, V, D, AI),
MAKE_INTRINSIC("_prand_vec", prand_vec, V, 0),
MAKE_INTRINSIC("lu_solve_intrin", lu_solve_intrin, V, 0),
MAKE_INTRINSIC("svd_solve_intrin", svd_solve_intrin, V, 0),
SLANG_END_INTRIN_FUN_TABLE
};
#undef V
#undef AI
