• see also:
• unicode  [11/17]
• · utf-8  [2/3]
• || [help]

[REBOL] Re: UTF-8 revisited

From: rotenca:telvia:it at: 27-Nov-2002 18:22

Hi jan,

try also this:

               result: tail result
               until [
                   insert result to char! x and 63 or 128
                   128 > x: x and -64 / 64
               ]
               insert result to char! x or pick pick udata 3 1 + length?
result

instead of:

>                  result: tail result
>                  m: 1
>                  while [x > 127][
>                      insert result to char! x and 63 or 128
>                      x: x and -64 / 64
>                      m: m + 1
>                  ]
>                  insert result to char! x or udata/3/:m

and delete the unuseful m local word from function.

---
Ciao
Romano

1 · 2 · 3 · 4 · 5 · [6] · 7 · 8 · 9 · 10 · 11 · 12 · See whole thread