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

syntax errors

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-10-27 23:05:21 +00:00
parent 4cb2e5c2fe
commit 3f58566ac8
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
os/chartypes.yap
View File

@ -170,16 +170,16 @@ prolog:char_type( LOWER , lower) :-
char_type_lower( LOWER ). char_type_lower( LOWER ).
prolog:char_type( LOWER, lower( Upper)) :- prolog:char_type( LOWER, lower( Upper)) :-
toupper( LOWER, Upper), toupper( LOWER, Upper),
char_type_lower( LOWER ), char_type_lower( LOWER ).
prolog:char_type( LOWER, to_lower( Upper)) prolog:char_type( LOWER, to_lower( Upper)) :-
toupper( LOWER, Upper). toupper( 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).
prolog:char_type( UPPER, to_upper( Lower) ) :- prolog:char_type( UPPER, to_upper( Lower) ) :-
tolower( UPPER, Lower), tolower( UPPER, Lower).
char_type_upper( UPPER).
prolog:char_type( PUNCT , punct) :- prolog:char_type( PUNCT , punct) :-
char_type_punct( PUNCT ). char_type_punct( PUNCT ).
prolog:char_type( SPACE , space) :- prolog:char_type( SPACE , space) :-
@ -236,14 +236,16 @@ prolog:char_type( PROLOG_PROLOG_SYMBOL , prolog_prolog_symbol) :-
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 ), code_type_upper( UPPER ).
prolog:code_type( UPPER, to_upper( Lower) ) :- prolog:code_type( UPPER, to_upp
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) :-