extra/unicode/control-pictures/control-pictures.factor

   1 ! Copyright (C) 2017 Pi.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: combinators kernel math sequences ;
   4 IN: unicode.control-pictures
   5
   6 <PRIVATE
   7
   8 : char>control-picture ( char -- char' )
   9     {
  10         { [ dup 0x20 < ] [ 0x2400 bitor ] }
  11         { [ dup 0x7f = ] [ drop 0x2421 ] }
  12         [ ]
  13     } cond ;
  14
  15 PRIVATE>
  16
  17 : control-pictures ( string -- string )
  18     [ char>control-picture ] map ;