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

Fix tr for chars > 255

db4
Slava Pestov 2008-07-09 20:42:59 -05:00
parent bf47ff4007
commit e58f41da40
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/tr/tr-tests.factor
View File

@ -5,3 +5,4 @@ TR: tr-test ch>upper "ABC" "XYZ" ;
[ "XXYY" ] [ "aabb" tr-test ] unit-test [ "XXYY" ] [ "aabb" tr-test ] unit-test
[ "XXYY" ] [ "AABB" tr-test ] unit-test [ "XXYY" ] [ "AABB" tr-test ] unit-test
[ { 12345 } ] [ { 12345 } tr-test ] unit-test

16
extra/tr/tr.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: byte-arrays strings sequences sequences.private USING: byte-arrays strings sequences sequences.private
fry kernel words parser lexer assocs ; fry kernel words parser lexer assocs math.order ;
IN: tr IN: tr
<PRIVATE <PRIVATE
@ -15,15 +15,17 @@ IN: tr
: create-tr ( token -- word ) : create-tr ( token -- word )
create-in dup tr-hints ; create-in dup tr-hints ;
: tr-quot ( mapping -- quot )
'[ [ dup 0 255 between? [ , nth-unsafe ] when ] map ] ;
: define-tr ( word mapping -- ) : define-tr ( word mapping -- )
'[ [ , nth ] map ] tr-quot (( seq -- translated )) define-declared ;
(( seq -- translated ))
define-declared ; : fast-tr-quot ( mapping -- quot )
'[ [ , nth-unsafe ] change-each ] ;
: define-fast-tr ( word mapping -- ) : define-fast-tr ( word mapping -- )
'[ [ , nth-unsafe ] change-each ] fast-tr-quot (( seq -- )) define-declared ;
(( seq -- ))
define-declared ;
PRIVATE> PRIVATE>