From 4f8adfe3be82d4395d078409b27c64fddb8927be Mon Sep 17 00:00:00 2001 From: Jonathan Wilkes <jon.w.wilkes@gmail.com> Date: Sun, 13 Aug 2017 20:55:05 -0400 Subject: [PATCH] revert to using a single way for finding the libdir, as my assessment of the OSX bug turned out to be wrong --- scripts/external-tests.pd | 71 ++++++--------------------------------- 1 file changed, 11 insertions(+), 60 deletions(-) diff --git a/scripts/external-tests.pd b/scripts/external-tests.pd index 2a4040670..b2a70f596 100644 --- a/scripts/external-tests.pd +++ b/scripts/external-tests.pd @@ -1,4 +1,4 @@ -#N canvas 3 53 659 639 12; +#N canvas 4 53 659 639 12; #X obj 61 34 loadbang; #N canvas 107 123 756 233 load_hcs/folder_list 0; #X obj 357 47 inlet; @@ -712,68 +712,19 @@ nameclash is in the current library we're testing then we ignore it. #X obj 371 313 s \$0-last-objectmaker-methodspace-length; #X text 304 85 \$0-last-objectmaker-methodspace-length; #X text 304 105 \$0-ext; -#N canvas 1 53 717 595 set_\$0-libdir 0; +#N canvas 1 53 436 328 set_\$0-libdir 0; #X obj 49 48 inlet; -#X obj 49 317 pdinfo; -#X obj 49 78 b; -#X msg 49 288 libdir; -#X obj 49 540 outlet; +#X obj 49 127 pdinfo; +#X msg 49 98 libdir; +#X obj 49 220 outlet; #X text 97 48 get the directory where extra/ and doc/ live; -#X obj 49 514 trigger anything anything; -#X obj 221 540 s \$0-libdir; -#X obj 49 131 pdinfo; -#X msg 49 106 platform; -#X obj 49 156 select darwin; -#X msg 49 181 1; -#X obj 137 181 b; -#X msg 137 206 0; -#X obj 49 246 select 0 1; -#X text 171 160 Unfortunately Pd on OSX has a bug that causes the; -#X text 171 180 libdir to not be normalized-- e.g. \, it can have; -#X text 171 200 "foo/../bar" within the path. This breaks our; -#X text 171 220 attempt to create objects with absolute paths. So; -#X text 171 240 we instead use the Pd executable dir and shave off -; -#X text 171 260 the "/bin" at the end...; -#X obj 119 317 pdinfo; -#X obj 119 342 list fromsymbol; -#X obj 151 398 list length; -#X obj 119 455 list split; -#X obj 119 480 list tosymbol; -#X msg 119 288 dir; -#X obj 119 367 trigger anything anything anything; -#X text 256 461 OSX gives up back an execdir with a trailing slash. -Should; -#X text 256 481 probably normalize the *info classes that output paths -to; -#X text 256 501 either always use trailing slashes or never use them. -; -#X obj 151 426 - 5; -#X text 256 421 slice off "/ b i n /"; +#X obj 49 194 trigger anything anything; +#X obj 221 220 s \$0-libdir; #X connect 0 0 2 0; -#X connect 1 0 6 0; -#X connect 2 0 9 0; -#X connect 3 0 1 0; -#X connect 6 0 4 0; -#X connect 6 1 7 0; -#X connect 8 0 10 0; -#X connect 9 0 8 0; -#X connect 10 0 11 0; -#X connect 10 1 12 0; -#X connect 11 0 14 0; -#X connect 12 0 13 0; -#X connect 13 0 14 0; -#X connect 14 0 3 0; -#X connect 14 1 26 0; -#X connect 21 0 22 0; -#X connect 22 0 27 0; -#X connect 23 0 31 0; -#X connect 24 0 25 0; -#X connect 25 0 6 0; -#X connect 26 0 21 0; -#X connect 27 0 24 0; -#X connect 27 1 23 0; -#X connect 31 0 24 1; +#X connect 1 0 5 0; +#X connect 2 0 1 0; +#X connect 5 0 3 0; +#X connect 5 1 6 0; #X restore 61 66 pd set_\$0-libdir; #N canvas 246 217 382 392 set_\$0-current_libdir 0; #X obj 67 30 inlet; -- GitLab