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

move >Upper and >Upper-dashes to unicode.case

db4
Doug Coleman 2008-02-02 23:27:27 -06:00
parent 5fca4ce7a0
commit 7ad7a89a2b
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/strings/lib/lib.factor
View File

@ -4,11 +4,3 @@ IN: strings.lib
! : char>digit ( c -- i ) 48 - ; ! : char>digit ( c -- i ) 48 - ;
! : string>digits ( s -- seq ) [ char>digit ] { } map-as ; ! : string>digits ( s -- seq ) [ char>digit ] { } map-as ;
! : >Upper ( str -- str )
! dup empty? [
! unclip ch>upper 1string swap append
! ] unless ;
! : >Upper-dashes ( str -- str )
! "-" split [ >Upper ] map "-" join ;

11
extra/unicode/case/case.factor
View File

@ -1,6 +1,6 @@
USING: kernel unicode.data sequences sequences.next namespaces USING: kernel unicode.data sequences sequences.next namespaces
assocs.lib unicode.normalize math unicode.categories combinators assocs.lib unicode.normalize math unicode.categories combinators
assocs ; assocs strings splitting ;
IN: unicode.case IN: unicode.case
: ch>lower ( ch -- lower ) simple-lower at-default ; : ch>lower ( ch -- lower ) simple-lower at-default ;
@ -110,3 +110,12 @@ SYMBOL: locale ! Just casing locale, or overall?
dup >title = ; dup >title = ;
: case-fold? ( string -- ? ) : case-fold? ( string -- ? )
dup >case-fold = ; dup >case-fold = ;
: >Upper ( str -- str )
dup empty? [
unclip ch>upper 1string swap append
] unless ;
: >Upper-dashes ( str -- str )
"-" split [ >Upper ] map "-" join ;