-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathpdkl-dirjoin.pd
87 lines (87 loc) · 2.11 KB
/
pdkl-dirjoin.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
#N canvas 532 174 1265 874 12;
#X obj 430 163 sel 0 1;
#X msg 430 187 47;
#X msg 467 186 92;
#X obj 467 49 inlet;
#X obj 432 106 f \$1;
#X obj 410 24 loadbang;
#X obj 231 256 pdkl-drip;
#X obj 203 355 list fromsymbol;
#X obj 200 523 list append;
#X obj 432 131 > 0;
#X text 4 89 arguments: unix/win (0/1) \, trailing slash (0/1);
#X obj 370 247 list length;
#X obj 370 272 - 1;
#X obj 344 305 >=;
#X obj 215 412 list prepend;
#X obj 340 361 * 1;
#X obj 202 564 pdkl-fill;
#X obj 235 178 t l l b;
#X obj 215 437 route 0 1;
#X obj 268 704 list tosymbol;
#X obj 680 114 f \$2;
#X obj 680 139 == 0;
#X obj 268 762 outlet;
#X obj 665 27 inlet;
#X text 515 48 unix/win (0/1);
#X text 703 54 trailing slash (0/1);
#X text 9 19 pdkl-dirjoin;
#X text 6 65 join path parts into complete path;
#X text 7 140 inlet: path parts \, unix/win (0/1);
#X text 56 199 trailing slash(0/1);
#X text 22 287 outlet: formed path;
#X text 680 191 derek kwan;
#X text 683 230 gpl v 3;
#X text 681 208 pdklist 2020;
#X obj 221 18 inlet;
#X text 267 25 path parts;
#X text 348 755 formed path;
#X obj 258 663 list prepend;
#X obj 786 391 > 0;
#X obj 258 629 route 0 1;
#X obj 257 604 list prepend, f 54;
#X obj 803 324 loadbang;
#X obj 217 46 route disableroot;
#X obj 786 366 f \$3;
#X obj 447 374 f;
#X text 68 114 disableroot(0/1);
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 44 0;
#X connect 2 0 44 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 6 1 13 0;
#X connect 6 2 16 1;
#X connect 7 0 14 0;
#X connect 8 0 16 0;
#X connect 9 0 0 0;
#X connect 11 0 12 0;
#X connect 12 0 13 1;
#X connect 13 0 15 0;
#X connect 14 0 18 0;
#X connect 15 0 14 1;
#X connect 16 0 40 0;
#X connect 17 0 6 0;
#X connect 17 1 11 0;
#X connect 17 2 16 2;
#X connect 18 0 8 0;
#X connect 18 1 16 0;
#X connect 19 0 22 0;
#X connect 20 0 21 0;
#X connect 21 0 15 1;
#X connect 23 0 20 0;
#X connect 34 0 42 0;
#X connect 37 0 19 0;
#X connect 38 0 40 1;
#X connect 39 0 37 0;
#X connect 39 1 19 0;
#X connect 40 0 39 0;
#X connect 41 0 43 0;
#X connect 42 0 43 0;
#X connect 42 1 17 0;
#X connect 43 0 38 0;
#X connect 44 0 8 1;
#X connect 44 0 37 1;