Permalink
Browse files

ascii: adding title case.

  • Loading branch information...
1 parent c8e2bd6 commit 66ecd199d8ceb208a557d8bce4af3cd2f818145f @mrjbq7 committed Apr 5, 2012
Showing with 19 additions and 3 deletions.
  1. +9 −0 basis/ascii/ascii-docs.factor
  2. +4 −1 basis/ascii/ascii-tests.factor
  3. +6 −2 basis/ascii/ascii.factor
@@ -57,6 +57,14 @@ HELP: >upper
{ $values { "str" "a string" } { "upper" "a string" } }
{ $description "Converts an ASCII string to upper case." } ;
+HELP: >title
+{ $values { "string" "a string" } { "title" "a string" } }
+{ $description "Converts a string to title case." } ;
+
+HELP: >words
+{ $values { "str" "a string" } { "words" "an array of strings" } }
+{ $description "Divides the string up into words." } ;
+
ARTICLE: "ascii" "ASCII"
"The " { $vocab-link "ascii" } " vocabulary implements support for the legacy ASCII character set. Most applications should use " { $link "unicode" } " instead."
$nl
@@ -77,6 +85,7 @@ $nl
ch>upper
>lower
>upper
+ >title
} ;
ABOUT: "ascii"
@@ -1,4 +1,5 @@
-USING: ascii tools.test sequences kernel math ;
+USING: ascii tools.test sequences kernel math strings ;
+
IN: ascii.tests
[ t ] [ CHAR: a letter? ] unit-test
@@ -17,3 +18,5 @@ IN: ascii.tests
[ "HELLO HOW ARE YOU?" ] [ "hellO hOw arE YOU?" >upper ] unit-test
[ "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
View
@@ -1,7 +1,7 @@
! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math math.order sequences strings
-combinators.short-circuit hints ;
+USING: combinators.short-circuit hints kernel math math.order
+sequences splitting.monotonic strings ;
IN: ascii
: ascii? ( ch -- ? ) 0 127 between? ; inline
@@ -18,6 +18,10 @@ 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? ] bi@ = ] slice monotonic-slice ;
+: capitalize ( str -- title ) unclip [ >lower ] [ ch>upper ] bi* prefix ;
+: >title ( str -- title ) >words [ capitalize ] map concat ;
HINTS: >lower string ;
HINTS: >upper string ;
+

0 comments on commit 66ecd19

Please sign in to comment.