[PD-cvs] abstractions/pddp open-help.pd, NONE, 1.1 dsp.pd, 1.1, 1.2 open.pd, 1.1, 1.2

[Hans-Christoph Steiner]

Update of /cvsroot/pure-data/abstractions/pddp
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15483

Modified Files:
	dsp.pd open.pd 
Added Files:
	open-help.pd 
Log Message:
ported to 0.39 GOP; added status querying to dsp.pd, and made open.pd support relative paths

--- NEW FILE: open-help.pd ---
#N canvas 176 296 462 312 10;
#X text 48 47 open the specified file on the click of the button:;
#X text 66 200 only relative paths work \, no absolute.;
#X text 29 241 for better or worse \, the .pd is automatically appended
;
#X obj 56 78 pddp/open dsp-help;
#X text 19 9 BUG: relative paths now work \, but files with no path
don't;
#X obj 57 107 pddp/open dsp-help;
#X obj 57 137 pddp/open ../../3.audio.examples/F02.just.say;

Index: dsp.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/pddp/dsp.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dsp.pd	21 Nov 2005 15:54:14 -0000	1.1
--- dsp.pd	8 Apr 2006 21:45:24 -0000	1.2
***************
*** 1,30 ****
! #N canvas 358 124 60 18 10;
  #X obj 19 1 cnv 16 40 16 empty pddp_dsp_canvas dsp 7 8 0 14 -233017
  -33289 0;
! #X obj 0 0 tgl 18 0 THIS_IS_HERE_TO_GET_RID_OF_THE_OUTLET pddp_dsp
  empty 1 8 1 9 -233017 -33289 -33289 0 1;
! #X obj 82 146 select 0 1;
! #X msg 127 179 76;
! #X msg 92 180 10;
! #X msg 61 228 \; pddp_dsp color \$1 12 12 \; pddp_dsp_canvas color
! \$1 12 12;
! #X obj 81 16 r pd;
  #X obj 81 37 route dsp;
! #X obj 82 75 f;
! #X msg 109 100 \; pddp_dsp set \$1;
! #X msg 2 82 \; pd dsp \$1;
! #X text 239 298 released under the GNU GPL;
! #X text 22 284 (C) Copyright 2005 Hans-Christoph Steiner <hans at at.or.at>
  ;
! #X text 154 2 [pddp_dsp];
! #X connect 1 0 8 0;
! #X connect 1 0 10 0;
  #X connect 2 0 4 0;
  #X connect 2 1 3 0;
! #X connect 3 0 5 0;
! #X connect 4 0 5 0;
! #X connect 6 0 7 0;
! #X connect 7 0 8 0;
! #X connect 8 0 9 0;
! #X connect 8 0 2 0;
! #X coords 0 0 1 1 60 18 1;
--- 1,45 ----
! #N canvas 412 173 479 364 10;
  #X obj 19 1 cnv 16 40 16 empty pddp_dsp_canvas dsp 7 8 0 14 -233017
  -33289 0;
! #X obj 0 0 tgl 18 0 THIS_IS_HERE_TO_GET_RID_OF_THE_OUTLET GLOBAL_PDDP_DSP_TOGGLE
  empty 1 8 1 9 -233017 -33289 -33289 0 1;
! #X obj 82 216 select 0 1;
! #X msg 115 238 76;
! #X msg 80 238 10;
  #X obj 81 37 route dsp;
! #X msg 1 180 \; pd dsp \$1;
! #X text 239 338 released under the GNU GPL;
! #X text 22 324 (C) Copyright 2005 Hans-Christoph Steiner <hans at at.or.at>
  ;
! #X msg 109 179 \; GLOBAL_PDDP_DSP_TOGGLE set \$1;
! #X obj 194 113 float;
! #X obj 82 115 float;
! #X obj 81 16 receive pd;
! #X obj 194 11 receive GLOBAL_PDDP_DSP;
! #X obj 194 60 bang;
! #X msg 99 268 \; GLOBAL_PDDP_DSP_TOGGLE color \$1 12 12 \; pddp_dsp_canvas
! color \$1 12 12;
! #X obj 308 31 loadbang;
! #X obj 316 72 send GLOBAL_PDDP_DSP;
! #X obj 194 80 spigot 0;
! #X msg 280 55 1;
! #X connect 1 0 6 0;
! #X connect 1 0 11 0;
  #X connect 2 0 4 0;
  #X connect 2 1 3 0;
! #X connect 3 0 15 0;
! #X connect 4 0 15 0;
! #X connect 5 0 11 0;
! #X connect 5 0 10 1;
! #X connect 10 0 9 0;
! #X connect 10 0 6 0;
! #X connect 11 0 9 0;
! #X connect 11 0 2 0;
! #X connect 12 0 5 0;
! #X connect 13 0 14 0;
! #X connect 14 0 18 0;
! #X connect 16 0 17 0;
! #X connect 16 0 19 0;
! #X connect 18 0 10 0;
! #X connect 19 0 18 1;
! #X coords 0 0 1 1 60 18 1 0 0;

Index: open.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/pddp/open.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** open.pd	21 Nov 2005 15:54:14 -0000	1.1
--- open.pd	8 Apr 2006 21:45:24 -0000	1.2
***************
*** 1,30 ****
! #N canvas 416 398 124 30 10;
! #X obj 107 2 inlet;
! #X msg 86 225 \; pd open \$1.pd \$2;
! #X obj 86 192 pack s s;
! #X obj 86 137 symbol;
! #X obj 108 111 t a b;
! #X obj 46 0 bng 18 250 50 0 \$0- \$0- empty 0 -6 0 8 -44926 -1 -1;
! #X obj 0 61 symbol \$1;
! #X obj 58 40 symbol;
! #X text 313 346 released under the GNU GPL;
! #X text 98 318 (C) Copyright 2005 Hans-Christoph Steiner <hans at at.or.at>
  ;
! #X text 90 63 <-- store the last value so that the GOP bang will open
  it;
! #X text 20 287 This patch opens a patch either from the first argument
  or sent in as a message.;
! #X obj 0 0 cnv 16 45 18 empty empty open: 6 9 0 14 -233017 -1 0;
! #X text 279 176 GOP: 168x18;
! #X obj 137 166 getdir;
! #X connect 0 0 4 0;
! #X connect 0 0 7 0;
! #X connect 2 0 1 0;
! #X connect 3 0 2 0;
! #X connect 4 0 3 0;
! #X connect 4 1 14 0;
! #X connect 5 0 6 0;
! #X connect 6 0 4 0;
  #X connect 7 0 6 1;
! #X connect 14 0 2 1;
! #X coords 0 0 1 1 124 18 1;
--- 1,66 ----
! #N canvas 663 95 578 431 10;
! #X obj 200 -3 inlet;
! #X msg 112 265 \; pd open \$1.pd \$2;
! #X obj 47 0 bng 17 250 50 0 \$0- \$0- empty 0 -6 0 8 -44926 -1 -1;
! #X obj 40 61 symbol \$1;
! #X obj 98 40 symbol;
! #X text 315 370 released under the GNU GPL;
! #X text 98 358 (C) Copyright 2005 Hans-Christoph Steiner <hans at at.or.at>
  ;
! #X text 111 61 <-- store the last value so that the GOP bang will open
  it;
! #X text 20 327 This patch opens a patch either from the first argument
  or sent in as a message.;
! #X obj 0 0 cnv 16 46 18 empty empty open: 6 9 0 14 -233017 -1 0;
! #X text 20 174 GOP: 168x18;
! #X obj 289 123 getdir;
! #X obj 112 232 pack symbol symbol;
! #X msg 289 162 set \$1;
! #X obj 233 208 makefilename;
! #X obj 112 101 trigger symbol symbol bang;
! #X obj 289 143 makefilename %s/%%s;
! #X obj 112 209 ext13/strippath;
! #N canvas 178 406 458 308 splitfilename 0;
! #X obj 124 58 inlet;
! #X obj 173 253 outlet;
! #X text 21 8 this is a kludge to work around a bug in [splitfilename]
! which makes it output a filename with no slashes as a folder rather
! than a file.;
! #X obj 210 155 select symbol;
! #X obj 297 133 symbol;
! #X obj 210 105 trigger symbol bang;
! #X obj 173 207 spigot;
! #X msg 359 162 1;
! #X msg 190 182 0;
! #X obj 124 84 splitfilename;
! #X msg 249 207 symbol /;
! #X connect 0 0 9 0;
! #X connect 3 0 8 0;
! #X connect 3 0 10 0;
! #X connect 4 0 3 1;
! #X connect 5 0 3 0;
! #X connect 5 1 4 0;
! #X connect 5 1 7 0;
! #X connect 6 0 1 0;
  #X connect 7 0 6 1;
! #X connect 8 0 6 1;
! #X connect 9 0 6 0;
! #X connect 9 1 5 0;
! #X connect 10 0 1 0;
! #X restore 154 151 pd splitfilename;
! #X connect 0 0 4 0;
! #X connect 0 0 15 0;
! #X connect 2 0 3 0;
! #X connect 3 0 15 0;
! #X connect 4 0 3 1;
! #X connect 11 0 16 0;
! #X connect 12 0 1 0;
! #X connect 13 0 14 0;
! #X connect 14 0 12 1;
! #X connect 15 0 17 0;
! #X connect 15 1 18 0;
! #X connect 15 2 11 0;
! #X connect 16 0 13 0;
! #X connect 17 0 12 0;
! #X connect 18 0 14 0;
! #X coords 0 0 1 1 124 17 1 0 0;