steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-08-30 13:55:07 -05:00
parent 83823a82a0
commit b31d203478
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/unicode/case/case.factor
View File

@ -1,6 +1,6 @@
USING: unicode.data sequences sequences.next namespaces USING: unicode.data sequences sequences.next namespaces
unicode.normalize math unicode.categories combinators unicode.normalize math unicode.categories combinators
assocs strings splitting kernel ; assocs strings splitting kernel accessors ;
IN: unicode.case IN: unicode.case
: at-default ( key assoc -- value/key ) over >r at r> or ; : at-default ( key assoc -- value/key ) over >r at r> or ;
@ -91,17 +91,17 @@ SYMBOL: locale ! Just casing locale, or overall?
: >lower ( string -- lower ) : >lower ( string -- lower )
i-dot? [ turk>lower ] when i-dot? [ turk>lower ] when
final-sigma [ code-point-lower ] [ ch>lower ] map-case ; final-sigma [ lower>> ] [ ch>lower ] map-case ;
: >upper ( string -- upper ) : >upper ( string -- upper )
i-dot? [ turk>upper ] when i-dot? [ turk>upper ] when
[ code-point-upper ] [ ch>upper ] map-case ; [ upper>> ] [ ch>upper ] map-case ;
: >title ( string -- title ) : >title ( string -- title )
final-sigma final-sigma
CHAR: \s swap CHAR: \s swap
[ tuck word-boundary swapd [ tuck word-boundary swapd
[ code-point-title ] [ code-point-lower ] if ] [ title>> ] [ lower>> ] if ]
[ tuck word-boundary swapd [ tuck word-boundary swapd
[ ch>title ] [ ch>lower ] if ] [ ch>title ] [ ch>lower ] if ]
map-case nip ; map-case nip ;