1 files changed, 138 insertions, 0 deletions
diff --git a/utf82codenumber.pd b/utf82codenumber.pd
new file mode 100644
index 0000000..63f690c
--- /dev/null
+++ b/utf82codenumber.pd
@@ -0,0 +1,138 @@
+#N canvas 14 0 649 526 10;
+#X obj 131 172 inlet byte;
+#X obj 131 316 outlet byte;
+#N canvas 327 0 461 427 shifter 0;
+#X obj 134 59 inlet;
+#X obj 134 387 outlet;
+#X obj 166 220 list split 1;
+#X obj 166 167 until;
+#X obj 166 195 list append;
+#X obj 266 220 bang;
+#X obj 166 246 +;
+#X obj 166 299 t f f;
+#X obj 166 144 t b l b;
+#X msg 215 265 0;
+#X obj 166 270 << 6;
+#X obj 166 321 >> 6;
+#X obj 134 359 f;
+#X obj 134 98 t b l;
+#X connect 0 0 13 0;
+#X connect 2 0 6 0;
+#X connect 2 1 4 1;
+#X connect 2 2 5 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;
+#X connect 5 0 3 1;
+#X connect 6 0 10 0;
+#X connect 7 0 11 0;
+#X connect 7 1 6 1;
+#X connect 8 0 3 0;
+#X connect 8 1 4 1;
+#X connect 8 2 9 0;
+#X connect 9 0 6 1;
+#X connect 10 0 7 0;
+#X connect 11 0 12 1;
+#X connect 12 0 1 0;
+#X connect 13 0 12 0;
+#X connect 13 1 8 0;
+#X restore 131 283 pd shifter;
+#X text 222 316 unicode code number;
+#X text 215 170 UTF-8 multibyte;
+#N canvas 431 13 593 499 stream2multibytelist 1;
+#X text 259 108 aux;
+#X text 323 111 2byte;
+#X text 386 113 3byte;
+#X text 446 113 4byte;
+#X text 180 112 1byte;
+#X obj 181 129 & 127;
+#X obj 321 129 & 31;
+#X obj 251 129 & 63;
+#X obj 390 129 & 15;
+#X obj 450 129 & 7;
+#X obj 251 150 t f b;
+#X msg 207 175 1;
+#X obj 181 268 ==;
+#X text 220 284 expectedbytes;
+#X obj 181 226 i;
+#X obj 226 266 t f b;
+#X msg 238 203 0;
+#X obj 204 371 t l l;
+#X obj 181 310 select 1;
+#X obj 181 393 list prepend;
+#X msg 353 174 2;
+#X obj 181 198 t b f;
+#X obj 181 151 t f b;
+#X obj 321 150 t f b;
+#X obj 212 226 + 1;
+#X obj 390 153 t f b;
+#X msg 422 177 3;
+#X obj 450 151 t f b;
+#X msg 482 175 4;
+#X obj 203 345 list prepend;
+#X obj 181 87 moses 128;
+#X obj 251 87 moses 192;
+#X obj 321 87 moses 224;
+#X obj 390 87 moses 240;
+#X obj 181 61 t f;
+#X obj 181 34 inlet;
+#X obj 181 429 outlet;
+#X obj 283 318 t b b;
+#X obj 340 274 print nuchar;
+#X obj 339 251 print cuchar;
+#X connect 5 0 22 0;
+#X connect 6 0 23 0;
+#X connect 7 0 10 0;
+#X connect 8 0 25 0;
+#X connect 9 0 27 0;
+#X connect 10 0 21 0;
+#X connect 11 0 15 0;
+#X connect 12 0 18 0;
+#X connect 14 0 12 0;
+#X connect 14 0 24 0;
+#X connect 14 0 39 0;
+#X connect 15 0 12 1;
+#X connect 15 0 38 0;
+#X connect 15 1 16 0;
+#X connect 15 1 37 0;
+#X connect 16 0 24 0;
+#X connect 17 0 19 1;
+#X connect 17 1 29 1;
+#X connect 18 0 19 0;
+#X connect 19 0 36 0;
+#X connect 20 0 15 0;
+#X connect 21 0 14 0;
+#X connect 21 1 29 0;
+#X connect 22 0 21 0;
+#X connect 22 1 11 0;
+#X connect 23 0 21 0;
+#X connect 23 1 20 0;
+#X connect 24 0 14 1;
+#X connect 25 0 21 0;
+#X connect 25 1 26 0;
+#X connect 26 0 15 0;
+#X connect 27 0 21 0;
+#X connect 27 1 28 0;
+#X connect 28 0 15 0;
+#X connect 29 0 17 0;
+#X connect 30 0 5 0;
+#X connect 30 1 31 0;
+#X connect 31 0 7 0;
+#X connect 31 1 32 0;
+#X connect 32 0 6 0;
+#X connect 32 1 33 0;
+#X connect 33 0 8 0;
+#X connect 33 1 9 0;
+#X connect 34 0 30 0;
+#X connect 35 0 34 0;
+#X connect 37 0 29 1;
+#X connect 37 1 19 1;
+#X restore 131 241 pd stream2multibytelist;
+#X text 47 43 converts a stream of UTF-8 bytes into a stream of Unicode
+code numbers;
+#X text 53 95 multibyte characters are not output before the last byte
+has been received;
+#X obj 244 277 print xxx;
+#X connect 0 0 5 0;
+#X connect 2 0 1 0;
+#X connect 5 0 2 0;
+#X connect 5 0 8 0;