int SiodMain(int argc, char **argv, char **env)
{
int nargc = argc;
char **nargv = argv;
#if 0
#ifdef _DEBUG
int tmpflag = _CrtSetDbgFlag(_CRTDBG_REPORT_FLAG);
tmpflag |= _CRTDBG_ALLOC_MEM_DF;
tmpflag |= _CRTDBG_CHECK_ALWAYS_DF;
tmpflag |= _CRTDBG_LEAK_CHECK_DF;
_CrtSetDbgFlag (tmpflag);
_CrtSetBreakAlloc(0x88);
#endif
#endif
if (nargc > 0)
siod_shuffle_args(&nargc,&nargv);
process_cla(sizeof(siod_argv)/sizeof(char*), siod_argv, 1);
set_repl_hooks (SiodPuts, SiodLread, 0, SiodLprint) ;
int r = siod_main (nargc, nargv, env, SiodIPuts) ;
return r ;
}
int main(int argc, char **argv, char **env)
{
int nargc = argc;
char **nargv = argv;
#if 0
#ifdef _DEBUG
int tmpflag = _CrtSetDbgFlag(_CRTDBG_REPORT_FLAG);
tmpflag |= _CRTDBG_ALLOC_MEM_DF;
tmpflag |= _CRTDBG_CHECK_ALWAYS_DF;
tmpflag |= _CRTDBG_LEAK_CHECK_DF;
_CrtSetDbgFlag (tmpflag);
_CrtSetBreakAlloc(0x88);
#endif
#endif
if (nargc > 0)
siod_shuffle_args(&nargc,&nargv);
process_cla(sizeof(siod_argv)/sizeof(char*), siod_argv, 1);
return(siod_main(nargc, nargv, env, 0));
}
/* ---
*/
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_parser(int argc, char **argv)
{
print_welcome();
process_cla(argc, argv, 1);
print_hs_1();
init_storage();
init_subrs();
init_trace();
init_slibu();
init_ss();
init_ndbm();
init_regex();
init_tar();
return 0;
}
