-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathpdkl-symcmp.pd
124 lines (124 loc) · 2.85 KB
/
pdkl-symcmp.pd
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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
#N canvas 681 143 958 771 12;
#X obj 292 89 inlet;
#X obj 543 93 inlet;
#X obj 470 173 symbol;
#X obj 470 198 list fromsymbol;
#X obj 289 189 list fromsymbol;
#X obj 186 572 list split 1;
#X obj 227 522 list;
#X obj 540 483 list;
#X obj 517 556 list split 1;
#X text 19 16 pdkl-symcmp;
#X text 12 60 a simpler strcmp;
#X obj 470 223 t l l;
#X obj 289 214 t l l;
#X obj 343 311 t f f;
#X obj 276 398 spigot;
#X obj 205 725 outlet;
#X msg 279 683 0;
#X obj 363 384 sel 0;
#X text 505 280 don't bother comparing if lengths aren't equal;
#X obj 279 431 t b l;
#X obj 266 608 t b b;
#N canvas 1 103 657 488 pdkl-symcmp-alt 0;
#X obj 217 164 until;
#X obj 243 128 t b b;
#X obj 239 219 f;
#X msg 303 187 0;
#X obj 309 228 + 1;
#X obj 309 253 % 2;
#X obj 300 292 sel 1 0;
#X obj 246 99 inlet;
#X obj 331 97 inlet;
#X text 388 102 stop;
#X text 251 70 start;
#X obj 179 383 outlet;
#X obj 312 383 outlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 4 0 5 0;
#X connect 4 0 2 1;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 6 1 11 0;
#X connect 7 0 1 0;
#X connect 8 0 0 1;
#X restore 309 479 pd pdkl-symcmp-alt;
#N canvas 221 255 592 645 pdkl-symcmp-len 0;
#X obj 124 85 inlet;
#X text 175 82 list 1;
#X obj 385 91 inlet;
#X text 432 86 list 2;
#X text 235 469 equal or not;
#X obj 289 246 list length;
#X obj 238 284 ==;
#X obj 180 239 list length;
#X obj 182 293 > 0;
#X obj 182 326 &&;
#X obj 180 264 t f f;
#X obj 178 473 outlet;
#X connect 0 0 7 0;
#X connect 2 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 9 1;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 11 0;
#X connect 10 0 8 0;
#X connect 10 1 6 0;
#X restore 333 272 pd pdkl-symcmp-len;
#X obj 165 617 ==;
#X obj 165 642 sel 0;
#X text 20 616 if 0;
#X text 13 642 stop checking;
#X obj 320 123 t s b, f 9;
#X obj 187 690 f;
#X text 292 636 release output;
#X text 18 123 INLETS:;
#X text 14 141 symbol1/symbol2;
#X text 16 199 OUTLETS:;
#X text 20 222 true or false;
#X text 30 290 ARGS:;
#X text 365 448 alternates bangs;
#X text 741 25 derek kwan 2017;
#X text 749 47 pdklist;
#X text 745 68 gpl v 3;
#X text 17 41 compare symbols;
#X connect 0 0 27 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 11 0;
#X connect 4 0 12 0;
#X connect 5 0 23 0;
#X connect 5 1 6 1;
#X connect 5 2 20 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 23 1;
#X connect 8 1 7 1;
#X connect 11 0 7 1;
#X connect 11 1 22 1;
#X connect 12 0 14 0;
#X connect 12 1 22 0;
#X connect 13 0 14 1;
#X connect 13 1 17 0;
#X connect 14 0 19 0;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 19 0 21 0;
#X connect 19 1 6 1;
#X connect 20 0 28 0;
#X connect 20 1 21 1;
#X connect 21 0 6 0;
#X connect 21 1 7 0;
#X connect 22 0 13 0;
#X connect 23 0 24 0;
#X connect 24 0 16 0;
#X connect 24 0 21 1;
#X connect 24 1 28 1;
#X connect 27 0 4 0;
#X connect 27 1 2 0;
#X connect 28 0 15 0;