diff options
| author | Drahflow <drahflow@gmx.de> | 2014-03-28 14:40:11 +0100 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2014-03-28 14:40:11 +0100 |
| commit | e7f73a02d0358a6d93f627da1bcd2e661d3a26f2 (patch) | |
| tree | e2a1db2785025fb43f02d971083acddfc9000ad1 | |
| parent | 850fa5ebfa0892afa1c07c59f988276a04ca5a7a (diff) | |
Column order as in the spec
| -rw-r--r-- | elymas/lib/utf8.ey | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/elymas/lib/utf8.ey b/elymas/lib/utf8.ey index 1e5d6c3..a0bbdbc 100644 --- a/elymas/lib/utf8.ey +++ b/elymas/lib/utf8.ey @@ -7,24 +7,23 @@ { [ -01 ] cat }" =*:emit { 0 ==accum one =*next }' =*:init - { { accum emit one =next }' -01 + { { accum emit one =next }' -01 reverse { =*p =*n { { - p { - %3F band accum %40 mul add =accum n - }' { < { ==c [ %FFFD ] cat init c next }' =*replace > ???enc.utf8.ill-formed }' ? * + p { %3F band accum %40 mul add =accum n }' + { < { ==c [ %FFFD ] cat init c next }' =*replace > ???enc.utf8.ill-formed }' ? * }' =next }' } each } /trail deffd [ # compare Table 3-7 of http://www.unicode.org/versions/Unicode6.3.0/ch03.pdf { _ %7F le }" |emit { _ %C2 %DF in }" { %1F band =accum }' [ { _ %80 %BF in }" ] trail ; - { _ %E0 eq }" { %0F band =accum }' [ { _ %80 %BF in }" { _ %A0 %BF in }" ] trail ; + { _ %E0 eq }" { %0F band =accum }' [ { _ %A0 %BF in }" { _ %80 %BF in }" ] trail ; { _ %E1 %EC in }" { %0F band =accum }' [ { _ %80 %BF in }" _ ] trail ; - { _ %ED eq }" { %0F band =accum }' [ { _ %80 %BF in }" { _ %80 %9F in }" ] trail ; + { _ %ED eq }" { %0F band =accum }' [ { _ %80 %9F in }" { _ %80 %BF in }" ] trail ; { _ %EE %EF in }" { %0F band =accum }' [ { _ %80 %BF in }" _ ] trail ; - { _ %F0 eq }" { %07 band =accum }' [ { _ %80 %BF in }" _ { _ %90 %BF in }" ] trail ; + { _ %F0 eq }" { %07 band =accum }' [ { _ %90 %BF in }" { _ %80 %BF in }" _ ] trail ; { _ %F1 %F3 in }" { %07 band =accum }' [ { _ %80 %BF in }" _ _ ] trail ; - { _ %F4 eq }" { %07 band =accum }' [ { _ %80 %BF in }" _ { _ %80 %8F in }" ] trail ; + { _ %F4 eq }" { %07 band =accum }' [ { _ %80 %8F in }" { _ %80 %BF in }" _ ] trail ; { -- 1 }" { < { [ %FFFD ] cat init }' =*replace > ???enc.utf8.ill-formed } ] ==:C { C conds } ==:one |