basis/ascii/ascii.factor

   1 ! Copyright (C) 2005, 2009 Slava Pestov.\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 USING: kernel math math.order sequences strings\r
   4 combinators.short-circuit hints ;\r
   5 IN: ascii\r
   6 \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 \r
  22 HINTS: >lower string ;\r
  23 HINTS: >upper string ;\r