move quad to quadruple in utf8

db4
Doug Coleman 2008-08-16 14:20:36 -05:00
parent fa5cff02e8
commit bd8dcd4e0a
1 changed files with 2 additions and 2 deletions

View File

@ -24,7 +24,7 @@ SINGLETON: utf8
: triple ( stream byte -- stream char )
BIN: 1111 bitand append-nums append-nums ; inline
: quad ( stream byte -- stream char )
: quadruple ( stream byte -- stream char )
BIN: 111 bitand append-nums append-nums append-nums ; inline
: begin-utf8 ( stream byte -- stream char )
@ -32,7 +32,7 @@ SINGLETON: utf8
{ [ dup -7 shift zero? ] [ ] }
{ [ dup -5 shift BIN: 110 number= ] [ double ] }
{ [ dup -4 shift BIN: 1110 number= ] [ triple ] }
{ [ dup -3 shift BIN: 11110 number= ] [ quad ] }
{ [ dup -3 shift BIN: 11110 number= ] [ quadruple ] }
[ drop replacement-char ]
} cond ; inline