diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

char_type/2, or is it UNICODE?

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-05 17:17:51 +00:00
parent b84262238d
commit 53927de579
2 changed files with 69 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
os/chartypes.c
View File

@ -73,6 +73,8 @@ Term Yap_StringToNumberTerm(char *s, encoding_t *encp) {
while (*s && iswblank(*s++)) while (*s && iswblank(*s++))
; ;
t = Yap_scan_num(GLOBAL_Stream + sno); t = Yap_scan_num(GLOBAL_Stream + sno);
if (LOCAL_Error_TYPE == SYNTAX_ERROR)
LOCAL_Error_TYPE = YAP_NO_ERROR;
Yap_CloseStream(sno); Yap_CloseStream(sno);
UNLOCK(GLOBAL_Stream[sno].streamlock); UNLOCK(GLOBAL_Stream[sno].streamlock);
return t; return t;

10
os/chartypes.yap
View File

@ -176,7 +176,7 @@ prolog:char_type( LOWER, to_lower( Upper)) :-
prolog:char_type( UPPER, upper ) :- prolog:char_type( UPPER, upper ) :-
char_type_upper( UPPER ). char_type_upper( UPPER ).
prolog:char_type( UPPER , upper( Lower)) :- prolog:char_type( UPPER , upper( Lower)) :-
char_type_upper( UPPER ). char_type_upper( UPPER ),
tolower( UPPER, Lower). tolower( UPPER, Lower).
prolog:char_type( UPPER, to_upper( Lower) ) :- prolog:char_type( UPPER, to_upper( Lower) ) :-
tolower( UPPER, Lower). tolower( UPPER, Lower).
@ -237,15 +237,13 @@ prolog:char_type( PROLOG_PROLOG_SYMBOL , prolog_prolog_symbol) :-
prolog:code_type( LOWER, lower( Upper)) :- prolog:code_type( LOWER, lower( Upper)) :-
toupper( LOWER, Upper), toupper( LOWER, Upper),
code_type_lower( LOWER ). code_type_lower( LOWER ).
prolog:code_type( LOWER, to_lower( Upper)) prolog:code_type( LOWER, to_lower( Upper)) :-
toupper( LOWER, Upper). toupper( LOWER, Upper).
prolog:code_type( UPPER, upper ) :- prolog:code_type( UPPER, upper ) :-
code_type_upper( UPPER ). code_type_upper( UPPER ).
prolog:code_type( UPPER , upper( Lower)) :- prolog:code_type( UPPER , upper( Lower)) :-
code_type_upper( UPPER ). tolower( UPPER, Lower).
prolog:code_type( UPPER, to_upp prolog:code_type( UPPER, to_upper( Lower) ) :-
er( Lower) ) :-
tolower( UPPER, Lower), tolower( UPPER, Lower),
char_type_upper( UPPER). char_type_upper( UPPER).
prolog:code_type( PUNCT , punct) :- prolog:code_type( PUNCT , punct) :-