/* ---
*/
int init_tcl_parser(Tcl_Interp *i)
{
interp = i;
Tcl_CreateCommand(interp, "exec-expr", texec_expr, NULL, NULL);
return tcl_interpreter = register_interpreter("Tcl",
NULL, exec_tcl);
}
void _local_reg_ip(void)
{
ulog_interpreter_t *ip = local_ip;
ulog_interpreter_t *p;
for (p = ip; p->interp; p++)
register_interpreter(p);
}
void _base_reg_ip(void)
{
ulog_interpreter_t *ip = base_ip;
ulog_interpreter_t *p;
for (p = ip; p->interp; p++) {
register_interpreter(p);
}
}
/* ---
*/
int init_ruby_parser(void)
{
ruby_init();
rb_define_global_function("get_row", get_row, 0);
rb_define_global_function("get_col", get_col, 0);
return ruby_interpreter = register_interpreter("Ruby",
NULL, execute_ruby);
}
/* ---
*/
int init_tcl_parser(Tcl_Interp *i)
{
Tcl_ValueType types[4] = {TCL_INT, TCL_INT, TCL_INT, TCL_INT};
interp = i;
Tcl_CreateCommand(interp, "exec-expr", texec_expr, NULL, NULL);
Tcl_CreateMathFunc(interp, "row", 0, types, get_row, NULL);
Tcl_CreateMathFunc(interp, "col", 0, types, get_col, NULL);
Tcl_CreateMathFunc(interp, "get_cell", 2, types, get_cell, NULL);
Tcl_CreateMathFunc(interp, "sum", 4, types, sum, NULL);
return tcl_interpreter = register_interpreter("Tcl",
parse_tcl_expr, exec_tcl,
NULL);
}
/* ---
*/
int init_parser(int argc, char **argv)
{
print_welcome();
process_cla(siod_argc, siod_argv, 1);
process_cla(argc, argv, 1);
print_hs_1();
init_storage();
init_subrs();
init_trace();
init_slibu();
init_ss();
init_ndbm();
init_regex();
init_tar();
init_subr_0("row", get_row);
init_subr_0("col", get_col);
init_subr_2("exec-expr", lexec_expr);
/*XtAppAddActions(app_context, actions, XtNumber(actions));*/
return register_interpreter("SIOD", NULL, execute_siod);
}
/* ---
*/
int init_python_parser(void)
{
Py_Initialize();
return python_interpreter = register_interpreter("Python",
NULL, exec_python);
}
