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

new predicates

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-06-23 11:47:44 +01:00
parent de2d6867ad
commit e350a938e6
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pl/chtypes.yap
View File

@ -410,11 +410,6 @@ code_type(Code, Spec) :-
Upper =< "Z" Upper =< "Z"
-> ->
Spec is Upper + ("a"-"A") Spec is Upper + ("a"-"A")
;
Upper >= "a",
Upper =< "z"
->
fail
; ;
Spec = Upper Spec = Upper
). ).
@ -422,19 +417,32 @@ code_type(Code, Spec) :-
Lower >= "a", Lower >= "a",
Lower =< "z", Lower =< "z",
Spec is Lower + ("A"-"a"). Spec is Lower + ("A"-"a").
'$handle_special_char_type'(Spec, upper(Lower)) :- '$handle_special_char_type'(Spec, to_upper(Lower)) :-
( Lower >= "a", ( Lower >= "a",
Lower =< "z" Lower =< "z"
-> ->
Spec is Lower + ("A"-"a") Spec is Lower + ("A"-"a")
;
Lower >= "A",
Lower =< "Z"
->
fail
; ;
Spec = Lower Spec = Lower
). ).
downcase_atom(U, D) :-
atom_codes(U, Codes),
'$downcase_codes'(Codes, DCodes),
atom_codes(D, DCodes).
'$downcase_codes'([], []).
'$downcase_codes'(C.Codes, D.DCodes) :-
code_type(D, to_lower(C)),
'$downcase_codes'(Codes, DCodes).
upcase_atom(U, D) :-
atom_codes(U, Codes),
'$upcase_codes'(Codes, DCodes),
atom_codes(D, DCodes).
'$upcase_codes'([], []).
'$upcase_codes'(C.Codes, D.DCodes) :-
code_type(D, to_upper(C)),
'$upcase_codes'(Codes, DCodes).