basis/unicode/control-pictures/control-pictures.factor

   1 ! Copyright (C) 2022 Alex Maestas.
   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 : char>control-picture* ( char -- char' )
  16     char>control-picture
  17     dup 0x20 = [ drop 0x2420 ] when ;
  18
  19 PRIVATE>
  20
  21 : control-pictures ( string -- string )
  22     [ char>control-picture ] map ;
  23
  24 : control-pictures* ( string -- string )
  25     [ char>control-picture* ] map ;