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

ascii: change >words not to use split*.

db4
John Benediktsson 2013-04-01 09:13:33 -07:00
parent 881aa979b8
commit 215c74674f
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ascii/ascii-tests.factor
View File

@ -19,4 +19,4 @@ IN: ascii.tests
[ "i'm good thx bai" ] [ "I'm Good THX bai" >lower ] unit-test
[ "Hello How Are You?" ] [ "hEllo how ARE yOU?" >title ] unit-test
[ { " " "Hello" " " "World" } ] [ " Hello World" >words [ >string ] map ] unit-test
[ { " " "Hello" " " " " " " "World" } ] [ " Hello World" >words [ >string ] map ] unit-test

9
basis/ascii/ascii.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators.short-circuit hints kernel math math.order
sequences splitting strings ;
sequences strings ;
IN: ascii
: ascii? ( ch -- ? ) 0 127 between? ; inline
@ -18,7 +18,12 @@ IN: ascii
: >lower ( str -- lower ) [ ch>lower ] map ;
: ch>upper ( ch -- upper ) dup letter? [ 0x20 - ] when ; inline
: >upper ( str -- upper ) [ ch>upper ] map ;
: >words ( str -- words ) [ blank? ] split*-when-slice ;
: >words ( str -- words )
[ dup empty? not ] [
dup [ blank? ] find drop
[ [ 1 ] when-zero cut-slice swap ]
[ f 0 rot [ length ] keep <slice> ] if*
] produce nip ;
: capitalize ( str -- str' ) unclip [ >lower ] [ ch>upper ] bi* prefix ;
: >title ( str -- title ) >words [ capitalize ] map concat ;