// Called when static linking to bring in the required symbols and initaliaze
int regexp_register_prims()
{
   static bool init = false;
   if (init) return 0;
   init = true;

   regexp_main();
	return 0;
}
Exemple #2
0
void neko_standalone_init() {
#	ifndef CONSOLE_MODE
	sys_init();
	ui_main();
#	endif
	std_main();
	regexp_main();
	zlib_main();
}
Exemple #3
0
static foreign_t 
re_search(term_t reg, term_t str) 
{ 
    char *a; 
    char *b; 

    if (PL_get_chars(reg, &a, CVT_ALL)) { 
        if (PL_get_chars(str, &b, CVT_ALL)) { 
            if (regexp_main(a,              /* "(?fooa*)(?barb*)(?fooc*)" */ 
                            b)              /* "aaaaaaabbbbbbbbccc" */ 
                == 0) { 
                PL_succeed; 
            } 
        } 
    } 
    PL_fail; 
}