From a15351b28d0656627c80d377ed7ae8995e4baf3e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Tue, 3 Aug 2010 21:06:33 +0100 Subject: [PATCH] expoprt predicates in ctypes --- packages/PLStream/pl-ctype.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/packages/PLStream/pl-ctype.c b/packages/PLStream/pl-ctype.c index d1cf47d56..aa397a684 100644 --- a/packages/PLStream/pl-ctype.c +++ b/packages/PLStream/pl-ctype.c @@ -780,11 +780,11 @@ PRED_IMPL("setlocale", 3, setlocale, 0) *******************************/ BeginPredDefs(ctype) - PRED_DEF("char_type", 2, char_type, PL_FA_NONDETERMINISTIC) - PRED_DEF("code_type", 2, code_type, PL_FA_NONDETERMINISTIC) + PRED_DEF("swi_char_type", 2, char_type, PL_FA_NONDETERMINISTIC) + PRED_DEF("swi_code_type", 2, code_type, PL_FA_NONDETERMINISTIC) PRED_DEF("setlocale", 3, setlocale, 0) - PRED_DEF("downcase_atom", 2, downcase_atom, 0) - PRED_DEF("upcase_atom", 2, upcase_atom, 0) + PRED_DEF("swi_downcase_atom", 2, downcase_atom, 0) + PRED_DEF("swi_upcase_atom", 2, upcase_atom, 0) PRED_DEF("normalize_space", 2, normalize_space, 0) EndPredDefs @@ -868,6 +868,9 @@ initEncoding(void) } } +#if __YAP_PROLOG__ + PL_register_extensions(PL_predicates_from_ctype); +#endif return LD->encoding; }