From: Alex Maestas <git@se30.xyz>
Date: Thu, 29 Sep 2022 23:53:50 +0000 (+0000)
Subject: Add more control-pictures
X-Git-Tag: 0.99~1052
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=8c9121c28b96d77f224d41a1a02acebd0b3d4b6b

Add more control-pictures
---

diff --git a/basis/unicode/control-pictures/control-pictures-tests.factor b/basis/unicode/control-pictures/control-pictures-tests.factor
index fb19622cee..35b2b6d496 100644
--- a/basis/unicode/control-pictures/control-pictures-tests.factor
+++ b/basis/unicode/control-pictures/control-pictures-tests.factor
@@ -3,3 +3,10 @@ USING: sequences strings tools.test unicode.control-pictures ;
 { "␀␁␂␃␄␅␆␇␈␉␊␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟ !\"#$%&'()*+,-./" } [
     48 <iota> >string control-pictures
 ] unit-test
+
+{ "␡" } [ "\x7f" control-pictures ] unit-test
+{ "a␡b" } [ "a\x7fb" control-pictures ] unit-test
+
+{ "␀␁␂␃␄␅␆␇␈␉␊␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟␠!\"#$%&'()*+,-./" } [
+    48 <iota> >string control-pictures*
+] unit-test
diff --git a/basis/unicode/control-pictures/control-pictures.factor b/basis/unicode/control-pictures/control-pictures.factor
index 5e7515bb24..defec7e40e 100644
--- a/basis/unicode/control-pictures/control-pictures.factor
+++ b/basis/unicode/control-pictures/control-pictures.factor
@@ -12,7 +12,14 @@ IN: unicode.control-pictures
         [ ]
     } cond ;
 
+: char>control-picture* ( char -- char' )
+    char>control-picture
+    dup 0x20 = [ drop 0x2420 ] when ;
+
 PRIVATE>
 
 : control-pictures ( string -- string )
     [ char>control-picture ] map ;
+
+: control-pictures* ( string -- string )
+    [ char>control-picture* ] map ;