1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97
|
#N canvas 220 160 694 825 12;
#X obj 160 483 binfile;
#X obj 325 483 file handle;
#X msg 204 458 read \$1;
#X obj 160 197 file patchpath;
#X obj 160 247 t b s, f 12;
#X obj 239 275 t s s, f 18;
#X obj 160 298 until;
#X obj 160 413 t b b, f 24;
#X msg 325 458 1;
#X msg 362 458 close \, open \$1;
#X obj 418 483 t b b;
#X obj 222 483 t b b;
#X msg 418 508 -1;
#X msg 222 508 -1;
#X obj 160 508 t f;
#X obj 325 508 t f;
#X msg 160 458 bang;
#X obj 160 558 t l l;
#X obj 160 323 i;
#X obj 160 348 t f f;
#X obj 208 325 + 1;
#X obj 160 271 t b b;
#X msg 208 298 0;
#X obj 160 373 t b f, f 48;
#X obj 160 533 pack f f f, f 48;
#X obj 192 584 !=;
#X obj 160 611 spigot;
#X msg 220 636 expected \$2 at \$3...but got \$1;
#X obj 160 636 t b a;
#X obj 220 661 print ERROR;
#X msg 160 661 1;
#X msg 128 122 bang;
#X obj 128 147 t b b;
#X obj 128 689 i 0, f 5;
#X msg 128 744 \; pd quit \$1;
#X obj 128 89 r runtest;
#X obj 128 717 t f f;
#X obj 160 223 t s s;
#X msg 273 197 reading of \$1;
#X obj 273 223 print test;
#X text 90 59 test whether [binfile] and [file] read the same data.;
#X msg 160 173 symbol control;
#X obj 172 717 print RESULT;
#X connect 0 0 14 0;
#X connect 0 2 11 0;
#X connect 1 0 15 0;
#X connect 1 1 10 0;
#X connect 2 0 0 0;
#X connect 3 0 37 0;
#X connect 4 0 21 0;
#X connect 4 1 5 0;
#X connect 5 0 2 0;
#X connect 5 1 9 0;
#X connect 6 0 18 0;
#X connect 7 0 16 0;
#X connect 7 1 8 0;
#X connect 8 0 1 0;
#X connect 9 0 1 0;
#X connect 10 0 12 0;
#X connect 10 1 6 1;
#X connect 11 0 13 0;
#X connect 11 1 6 1;
#X connect 12 0 15 0;
#X connect 13 0 14 0;
#X connect 14 0 24 0;
#X connect 15 0 24 1;
#X connect 16 0 0 0;
#X connect 17 0 26 0;
#X connect 17 1 25 0;
#X connect 18 0 19 0;
#X connect 19 0 23 0;
#X connect 19 1 20 0;
#X connect 20 0 18 1;
#X connect 21 0 6 0;
#X connect 21 1 22 0;
#X connect 22 0 18 1;
#X connect 23 0 7 0;
#X connect 23 1 24 2;
#X connect 24 0 17 0;
#X connect 25 0 26 1;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 30 0;
#X connect 28 1 27 0;
#X connect 30 0 33 1;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 1 41 0;
#X connect 33 0 36 0;
#X connect 35 0 31 0;
#X connect 36 0 34 0;
#X connect 36 1 42 0;
#X connect 37 0 4 0;
#X connect 37 1 38 0;
#X connect 38 0 39 0;
#X connect 41 0 3 0;
|