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

Added ch>lower, ch>upper, >lower, >upper

cvs
Doug Coleman 2005-10-17 01:50:43 +00:00
parent d36bb2e58a
commit 8705ef49d2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
library/collections/strings.factor
View File

@ -20,6 +20,11 @@ PREDICATE: integer digit CHAR: 0 CHAR: 9 between? ;
PREDICATE: integer printable CHAR: \s CHAR: ~ between? ;
PREDICATE: integer control "\0\e\r\n\t\u0008\u007f" member? ;
: ch>lower ( n -- n ) dup LETTER? [ HEX: 20 + ] when ;
: ch>upper ( n -- n ) dup letter? [ HEX: 20 - ] when ;
: >lower ( str -- str ) [ ch>lower ] map ;
: >upper ( str -- str ) [ ch>upper ] map ;
: quotable? ( ch -- ? )
#! In a string literal, can this character be used without
#! escaping?