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

io.encodings.iso2022: use $ instead of making ESC a parsing word.

db4
Doug Coleman 2015-07-21 16:14:53 -07:00
parent fef2a55f46
commit c1a330ac7a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/io/encodings/iso2022/iso2022.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io.encodings kernel sequences io simple-flat-file sets math USING: io.encodings kernel sequences io simple-flat-file sets math
combinators.short-circuit io.binary arrays assocs namespaces combinators.short-circuit io.binary arrays assocs namespaces
locals accessors combinators biassocs byte-arrays parser ; locals accessors combinators biassocs byte-arrays parser literals ;
IN: io.encodings.iso2022 IN: io.encodings.iso2022
SINGLETON: iso2022 SINGLETON: iso2022
@ -31,12 +31,12 @@ M: iso2022 <encoder>
M: iso2022 <decoder> M: iso2022 <decoder>
make-iso-coder <decoder> ; make-iso-coder <decoder> ;
<< SYNTAX: ESC 0x16 suffix! ; >> CONSTANT: ESC 0x16
CONSTANT: switch-ascii B{ ESC CHAR: ( CHAR: B } CONSTANT: switch-ascii B{ $ ESC CHAR: ( CHAR: B }
CONSTANT: switch-jis201 B{ ESC CHAR: ( CHAR: J } CONSTANT: switch-jis201 B{ $ ESC CHAR: ( CHAR: J }
CONSTANT: switch-jis208 B{ ESC CHAR: $ CHAR: B } CONSTANT: switch-jis208 B{ $ ESC CHAR: $ CHAR: B }
CONSTANT: switch-jis212 B{ ESC CHAR: $ CHAR: ( CHAR: D } CONSTANT: switch-jis212 B{ $ ESC CHAR: $ CHAR: ( CHAR: D }
: find-type ( char -- code type ) : find-type ( char -- code type )
{ {
@ -90,7 +90,7 @@ M:: iso2022-state encode-char ( char stream encoding -- )
M:: iso2022-state decode-char ( stream encoding -- char ) M:: iso2022-state decode-char ( stream encoding -- char )
stream stream-read1 { stream stream-read1 {
{ ESC [ { $ ESC [
stream read-escape [ stream read-escape [
encoding type<< encoding type<<
stream encoding decode-char stream encoding decode-char