// 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; }
void neko_standalone_init() { # ifndef CONSOLE_MODE sys_init(); ui_main(); # endif std_main(); regexp_main(); zlib_main(); }
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; }