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;

136
os/chartypes.yap
View File

@ -176,8 +176,8 @@ 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).
prolog:char_type( PUNCT , punct) :- prolog:char_type( PUNCT , punct) :-
@ -205,73 +205,71 @@ prolog:char_type( PROLOG_IDENTIFIER_CONTINUE , prolog_identifier_continue) :-
prolog:char_type( PROLOG_PROLOG_SYMBOL , prolog_prolog_symbol) :- prolog:char_type( PROLOG_PROLOG_SYMBOL , prolog_prolog_symbol) :-
char_type_prolog_prolog_symbol( PROLOG_PROLOG_SYMBOL ). char_type_prolog_prolog_symbol( PROLOG_PROLOG_SYMBOL ).
prolog:code_type( CH, TYPE) :- prolog:code_type( CH, TYPE) :-
( var( CH ) -> between(-1,+inf,CH) ), ( var( CH ) -> between(-1,+inf,CH) ),
prolog:code_type( CH, TYPE) . prolog:code_type( CH, TYPE) .
prolog:code_type( ALNUM, alnum) :- prolog:code_type( ALNUM, alnum) :-
code_type_alnum( ALNUM ). code_type_alnum( ALNUM ).
prolog:code_type( ALPHA, alpha) :- prolog:code_type( ALPHA, alpha) :-
code_type_alpha( ALPHA). code_type_alpha( ALPHA).
prolog:code_type( CSYM, csym) :- prolog:code_type( CSYM, csym) :-
code_type_csym( CSYM ). code_type_csym( CSYM ).
prolog:code_type( CSYMF, csymf) :- prolog:code_type( CSYMF, csymf) :-
code_type_csymf( CSYMF). code_type_csymf( CSYMF).
prolog:code_type( ASCII, ascii ) :- prolog:code_type( ASCII, ascii ) :-
code_type_ascii( ASCII ). code_type_ascii( ASCII ).
prolog:code_type( WHITE, white) :- prolog:code_type( WHITE, white) :-
code_type_white( WHITE ). code_type_white( WHITE ).
prolog:code_type( CNTRL , cntrl) :- prolog:code_type( CNTRL , cntrl) :-
code_type_cntrl( CNTRL ). code_type_cntrl( CNTRL ).
prolog:code_type( DIGIT , digit) :- prolog:code_type( DIGIT , digit) :-
code_type_digit( DIGIT ). code_type_digit( DIGIT ).
prolog:code_type( DIGIT, digit(Weight) ) :- prolog:code_type( DIGIT, digit(Weight) ) :-
code_type_digit( DIGIT ), code_type_digit( DIGIT ),
digit_weight( DIGIT, Weight ). digit_weight( DIGIT, Weight ).
prolog:code_type( XDIGIT, xdigit(Weight) ) :- prolog:code_type( XDIGIT, xdigit(Weight) ) :-
code_type_digit( XDIGIT ), code_type_digit( XDIGIT ),
xdigit_weight( XDIGIT, Weight ). xdigit_weight( XDIGIT, Weight ).
prolog:code_type( GRAPH , graph) :- prolog:code_type( GRAPH , graph) :-
code_type_graph( GRAPH ). code_type_graph( GRAPH ).
prolog:code_type( LOWER , lower) :- prolog:code_type( LOWER , lower) :-
code_type_lower( LOWER ). code_type_lower( LOWER ).
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) ) :-
tolower( UPPER, Lower),
er( Lower) ) :- char_type_upper( UPPER).
tolower( UPPER, Lower), prolog:code_type( PUNCT , punct) :-
char_type_upper( UPPER). code_type_punct( PUNCT ).
prolog:code_type( PUNCT , punct) :- prolog:code_type( SPACE , space) :-
code_type_punct( PUNCT ). code_type_space( SPACE ).
prolog:code_type( SPACE , space) :- prolog:code_type( END_OF_FILE , end_of_file) :-
code_type_space( SPACE ). code_type_end_of_file( END_OF_FILE ).
prolog:code_type( END_OF_FILE , end_of_file) :- prolog:code_type( END_OF_LINE , end_of_line) :-
code_type_end_of_file( END_OF_FILE ). code_type_end_of_line( END_OF_LINE ).
prolog:code_type( END_OF_LINE , end_of_line) :- prolog:code_type( NEWLINE , newline) :-
code_type_end_of_line( END_OF_LINE ). code_type_newline( NEWLINE ).
prolog:code_type( NEWLINE , newline) :- prolog:code_type( PERIOD , period) :-
code_type_newline( NEWLINE ). code_type_period( PERIOD ).
prolog:code_type( PERIOD , period) :- prolog:code_type( QUOTE , quote) :-
code_type_period( PERIOD ). code_type_quote( QUOTE ).
prolog:code_type( QUOTE , quote) :- prolog:code_type( Parent_Open, paren( PAREN_CLOSE) ) :-
code_type_quote( QUOTE ). paren_paren(Parent_Open, PAREN_CLOSE).
prolog:code_type( Parent_Open, paren( PAREN_CLOSE) ) :- prolog:code_type( PROLOG_VAR_START , prolog_var_start) :-
paren_paren(Parent_Open, PAREN_CLOSE). code_type_prolog_var_start( PROLOG_VAR_START ).
prolog:code_type( PROLOG_VAR_START , prolog_var_start) :- prolog:code_type( PROLOG_ATOM_START , prolog_atom_start) :-
code_type_prolog_var_start( PROLOG_VAR_START ). code_type_prolog_atom_start( PROLOG_ATOM_START ).
prolog:code_type( PROLOG_ATOM_START , prolog_atom_start) :- prolog:code_type( PROLOG_IDENTIFIER_CONTINUE , prolog_identifier_continue) :-
code_type_prolog_atom_start( PROLOG_ATOM_START ). code_type_prolog_identifier_continue( PROLOG_IDENTIFIER_CONTINUE ).
prolog:code_type( PROLOG_IDENTIFIER_CONTINUE , prolog_identifier_continue) :- prolog:code_type( PROLOG_PROLOG_SYMBOL , prolog_prolog_symbol) :-
code_type_prolog_identifier_continue( PROLOG_IDENTIFIER_CONTINUE ). code_type_prolog_prolog_symbol( PROLOG_PROLOG_SYMBOL ).
prolog:code_type( PROLOG_PROLOG_SYMBOL , prolog_prolog_symbol) :-
code_type_prolog_prolog_symbol( PROLOG_PROLOG_SYMBOL ).
/* numeric code sequences, obtained from /* numeric code sequences, obtained from