/* ---
*/
void interp_startup(void)
{
XtAppContext app_context = XtWidgetToApplicationContext(topLevel);
init_subr_0("image-filename", limage_filename);
init_subr_2("ani-property", ani_property);
init_subr_2("ani-ctl", lani_ctl);
init_subr_0("next-page", lnext_page);
init_subr_0("previous-page", lprevious_page);
XtAppAddActions(app_context, actions, XtNumber(actions));
}
/* ---
*/
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);
}
/* ---
*/
void init_position(void)
{
init_subr_0("get-point", lget_point);
init_subr_0("get-mark", lget_mark);
init_subr_0("get-blku", lget_blku);
init_subr_0("get-blkl", lget_blkl);
init_subr_1("set-point", lset_point);
init_subr_1("set-mark", lset_mark);
init_subr_0("line-last-used", line_last_used_fun);
init_subr_1("col-last-used", col_last_used_fun);
init_subr_0("max-lines", max_lines_fun);
init_subr_0("max-columns", max_columns_fun);
init_subr_0("set-pr-scr", set_pr_scr);
}
void init_statfs(void)
{init_subr_1("statfs",lstatfs);
init_subr_0("getfsent",lgetfsent);
init_subr_0("setfsent",lsetfsent);
init_subr_0("endfsent",lendfsent);}