-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathpdkl-pathjoin.pd
80 lines (80 loc) · 1.97 KB
/
pdkl-pathjoin.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
#N canvas 25 227 1313 724 12;
#X obj 585 165 sel 0 1;
#X msg 585 189 47;
#X msg 622 188 92;
#X obj 647 51 inlet;
#X obj 604 101 f \$1;
#X obj 525 25 loadbang;
#X obj 604 126 > 0;
#X obj 172 245 list fromsymbol;
#X obj 141 143 inlet;
#X text 188 139 path;
#X obj 166 276 t l l;
#X obj 218 283 list length;
#X obj 218 312 - 1;
#X obj 136 320 list split;
#X obj 585 214 f;
#X obj 302 136 inlet;
#X obj 470 133 inlet;
#X text 521 131 ext;
#X obj 355 268 list fromsymbol;
#X obj 59 519 list append;
#X obj 71 553 list append, f 19;
#X obj 75 588 list append, f 46;
#X obj 496 274 list fromsymbol;
#X obj 496 361 list prepend 46;
#X obj 75 639 list tosymbol;
#X obj 84 674 outlet;
#X obj 89 410 list prepend;
#X obj 185 385 ==;
#X obj 87 442 route 0 1;
#X text 218 383 if no trailing slash \, append it;
#X text 21 12 pdkl-pathjoin;
#X text 12 49 join path \, basename \, ext into full path;
#X text 357 142 basename;
#X text 7 100 inlets: path \, basename \, ext;
#X text 704 106 unix/win (0/1);
#X text 7 166 outlet: full path;
#X text 193 651 full path;
#X text 955 23 derek kwan;
#X text 958 62 gpl v 3;
#X text 956 40 pdklist 2020;
#X obj 76 483 list append;
#X obj 168 355 t f f;
#X text 178 443 put back last char;
#X text 18 120 unix/win (0/1);
#X text 12 72 args: unix/win (0/1);
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 14 0;
#X connect 2 0 14 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 10 0 13 0;
#X connect 10 1 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 1;
#X connect 13 0 26 0;
#X connect 13 1 41 0;
#X connect 14 0 19 1;
#X connect 14 0 27 1;
#X connect 15 0 18 0;
#X connect 16 0 22 0;
#X connect 18 0 20 1;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 24 0;
#X connect 22 0 23 0;
#X connect 23 0 21 1;
#X connect 24 0 25 0;
#X connect 26 0 28 0;
#X connect 27 0 26 1;
#X connect 28 0 40 0;
#X connect 28 1 20 0;
#X connect 40 0 19 0;
#X connect 41 0 27 0;
#X connect 41 1 40 1;