1 ! Copyright (C) 2005, 2009 Slava Pestov.
\r
2 ! See http://factorcode.org/license.txt for BSD license.
\r
3 USING: combinators.short-circuit hints kernel math math.order
\r
7 : ascii? ( ch -- ? ) 0 127 between? ; inline
\r
8 : blank? ( ch -- ? ) " \t\n\r" member? ; inline
\r
9 : letter? ( ch -- ? ) CHAR: a CHAR: z between? ; inline
\r
10 : LETTER? ( ch -- ? ) CHAR: A CHAR: Z between? ; inline
\r
11 : digit? ( ch -- ? ) CHAR: 0 CHAR: 9 between? ; inline
\r
12 : printable? ( ch -- ? ) CHAR: \s CHAR: ~ between? ; inline
\r
13 : control? ( ch -- ? ) { [ 0 0x1F between? ] [ 0x7F = ] } 1|| ; inline
\r
14 : quotable? ( ch -- ? ) { [ printable? ] [ "\"\\" member? not ] } 1&& ; inline
\r
15 : Letter? ( ch -- ? ) { [ letter? ] [ LETTER? ] } 1|| ; inline
\r
16 : alpha? ( ch -- ? ) { [ Letter? ] [ digit? ] } 1|| ; inline
\r
17 : ch>lower ( ch -- lower ) dup LETTER? [ 0x20 + ] when ; inline
\r
18 : >lower ( str -- lower ) [ ch>lower ] map ;
\r
19 : ch>upper ( ch -- upper ) dup letter? [ 0x20 - ] when ; inline
\r
20 : >upper ( str -- upper ) [ ch>upper ] map ;
\r
21 : >words ( str -- words )
\r
22 [ dup empty? not ] [
\r
23 dup [ blank? ] find drop
\r
24 [ [ 1 ] when-zero cut-slice swap ]
\r
25 [ f 0 rot [ length ] keep <slice> ] if*
\r
27 : capitalize ( str -- str' ) unclip [ >lower ] [ ch>upper ] bi* prefix ;
\r
28 : >title ( str -- title ) >words [ capitalize ] map concat ;
\r
30 HINTS: >lower string ;
\r
31 HINTS: >upper string ;
\r