Pd-cvs May 2008

pd-cvs@lists.iem.at

16 participants
271 discussions

SF.net SVN: pure-data: [9858] branches/pd-extended/v0-40/externals/build/ src
by eighthave＠users.sourceforge.net 20 May '08

20 May '08

Revision: 9858 http://pure-data.svn.sourceforge.net/pure-data/?rev=9858&view=rev Author: eighthave Date: 2008-05-20 07:53:11 -0700 (Tue, 20 May 2008) Log Message: ----------- Restored zexy aliases that IOhannes deleted, this is needed to maintain backwards compatibility. To everyone who wants to mess with 'flatspace', please just leave it alone, what did it ever do to you? ;) Don't load it if you don't like it! Maybe people rely on it, as ugly as it is. Here's the delete commit that I am reverting: http://pure-data.svn.sourceforge.net/viewvc/pure-data?view=rev&revision=8905 Added Paths: ----------- branches/pd-extended/v0-40/externals/build/src/any2list.c branches/pd-extended/v0-40/externals/build/src/demux.c branches/pd-extended/v0-40/externals/build/src/demux~.c branches/pd-extended/v0-40/externals/build/src/l.c branches/pd-extended/v0-40/externals/build/src/l2i.c branches/pd-extended/v0-40/externals/build/src/l2s.c branches/pd-extended/v0-40/externals/build/src/mux.c branches/pd-extended/v0-40/externals/build/src/mux~.c branches/pd-extended/v0-40/externals/build/src/s2l.c Copied: branches/pd-extended/v0-40/externals/build/src/any2list.c (from rev 8904, trunk/externals/build/src/any2list.c) =================================================================== --- branches/pd-extended/v0-40/externals/build/src/any2list.c (rev 0) +++ branches/pd-extended/v0-40/externals/build/src/any2list.c 2008-05-20 14:53:11 UTC (rev 9858) @@ -0,0 +1 @@ +#include "../../zexy/src/a2l.c" Copied: branches/pd-extended/v0-40/externals/build/src/demux.c (from rev 8904, trunk/externals/build/src/demux.c) =================================================================== --- branches/pd-extended/v0-40/externals/build/src/demux.c (rev 0) +++ branches/pd-extended/v0-40/externals/build/src/demux.c 2008-05-20 14:53:11 UTC (rev 9858) @@ -0,0 +1 @@ +#include "../../zexy/src/demultiplex.c" Copied: branches/pd-extended/v0-40/externals/build/src/demux~.c (from rev 8904, trunk/externals/build/src/demux~.c) =================================================================== --- branches/pd-extended/v0-40/externals/build/src/demux~.c (rev 0) +++ branches/pd-extended/v0-40/externals/build/src/demux~.c 2008-05-20 14:53:11 UTC (rev 9858) @@ -0,0 +1 @@ +#include "../../zexy/src/demultiplex~.c" Copied: branches/pd-extended/v0-40/externals/build/src/l.c (from rev 8904, trunk/externals/build/src/l.c) =================================================================== --- branches/pd-extended/v0-40/externals/build/src/l.c (rev 0) +++ branches/pd-extended/v0-40/externals/build/src/l.c 2008-05-20 14:53:11 UTC (rev 9858) @@ -0,0 +1 @@ +#include "../../zexy/src/lister.c" Copied: branches/pd-extended/v0-40/externals/build/src/l2i.c (from rev 8904, trunk/externals/build/src/l2i.c) =================================================================== --- branches/pd-extended/v0-40/externals/build/src/l2i.c (rev 0) +++ branches/pd-extended/v0-40/externals/build/src/l2i.c 2008-05-20 14:53:11 UTC (rev 9858) @@ -0,0 +1 @@ +#include "../../zexy/src/list2int.c" Copied: branches/pd-extended/v0-40/externals/build/src/l2s.c (from rev 8904, trunk/externals/build/src/l2s.c) =================================================================== --- branches/pd-extended/v0-40/externals/build/src/l2s.c (rev 0) +++ branches/pd-extended/v0-40/externals/build/src/l2s.c 2008-05-20 14:53:11 UTC (rev 9858) @@ -0,0 +1 @@ +#include "../../zexy/src/list2symbol.c" Copied: branches/pd-extended/v0-40/externals/build/src/mux.c (from rev 8904, trunk/externals/build/src/mux.c) =================================================================== --- branches/pd-extended/v0-40/externals/build/src/mux.c (rev 0) +++ branches/pd-extended/v0-40/externals/build/src/mux.c 2008-05-20 14:53:11 UTC (rev 9858) @@ -0,0 +1 @@ +#include "../../zexy/src/multiplex.c" Copied: branches/pd-extended/v0-40/externals/build/src/mux~.c (from rev 8904, trunk/externals/build/src/mux~.c) =================================================================== --- branches/pd-extended/v0-40/externals/build/src/mux~.c (rev 0) +++ branches/pd-extended/v0-40/externals/build/src/mux~.c 2008-05-20 14:53:11 UTC (rev 9858) @@ -0,0 +1 @@ +#include "../../zexy/src/multiplex~.c" Copied: branches/pd-extended/v0-40/externals/build/src/s2l.c (from rev 8904, trunk/externals/build/src/s2l.c) =================================================================== --- branches/pd-extended/v0-40/externals/build/src/s2l.c (rev 0) +++ branches/pd-extended/v0-40/externals/build/src/s2l.c 2008-05-20 14:53:11 UTC (rev 9858) @@ -0,0 +1 @@ +#include "../../zexy/src/symbol2list.c" This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9857] branches/pd-extended/v0-40/externals/loaders/ libdir.c
by eighthave＠users.sourceforge.net 20 May '08

20 May '08

Revision: 9857 http://pure-data.svn.sourceforge.net/pure-data/?rev=9857&view=rev Author: eighthave Date: 2008-05-19 15:56:35 -0700 (Mon, 19 May 2008) Log Message: ----------- fixed bug where first library loaded had garbage in the path; switched from MAXPDSTRING to FILENAME_MAX, since it is dealing ultimately with filenames Modified Paths: -------------- branches/pd-extended/v0-40/externals/loaders/libdir.c Modified: branches/pd-extended/v0-40/externals/loaders/libdir.c =================================================================== --- branches/pd-extended/v0-40/externals/loaders/libdir.c 2008-05-19 19:25:03 UTC (rev 9856) +++ branches/pd-extended/v0-40/externals/loaders/libdir.c 2008-05-19 22:56:35 UTC (rev 9857) @@ -40,15 +40,15 @@ { int fd = -1; unsigned int i; - char helppathname[MAXPDSTRING]; - char fullclassname[MAXPDSTRING], dirbuf[MAXPDSTRING]; - char reldirbuf[MAXPDSTRING], curdir[MAXPDSTRING], *nameptr; + char helppathname[FILENAME_MAX]; + char fullclassname[FILENAME_MAX], dirbuf[FILENAME_MAX]; + char reldirbuf[FILENAME_MAX], curdir[FILENAME_MAX], *nameptr; t_canvasenvironment *canvasenvironment; /* look for meta file (classname)/(classname)-meta.pd */ - strncpy(fullclassname, classname, MAXPDSTRING - 6); + strncpy(fullclassname, classname, FILENAME_MAX - 6); strcat(fullclassname, "/"); - strncat(fullclassname, classname, MAXPDSTRING - strlen(fullclassname) - 6); + strncat(fullclassname, classname, FILENAME_MAX - strlen(fullclassname) - 6); strcat(fullclassname, "-meta"); /* if this is being called from a canvas, then add the library path to the @@ -58,45 +58,39 @@ { canvasenvironment = canvas_getenv(canvas); if ((fd = canvas_open(0, fullclassname, ".pd", - dirbuf, &nameptr, MAXPDSTRING, 0)) < 0) + dirbuf, &nameptr, FILENAME_MAX, 0)) < 0) { return (0); } close(fd); - - // G.Holzmann: canvas will look to a relative path to it, so we cannot add - // the absulote dirbuf path, we have to make it relative to the current canvas + // the absulote dirbuf path, we have to make it relative to the current canvas // (see from line 1561 in g_canvas.c) - sys_unbashfilename(canvas_getdir(canvas)->s_name, curdir); - + reldirbuf[0] = '\0'; // count depth of the current dir for(i=0; i<strlen(curdir); i++) { - if(curdir[i] == 47) // 47 is "/" in ascii - strncat(reldirbuf, "../", MAXPDSTRING); + if(curdir[i] == '/') + strncat(reldirbuf, "../", FILENAME_MAX); } - strncat(reldirbuf, dirbuf, MAXPDSTRING); - - - // TODO: have this add to the canvas-local path only + strncat(reldirbuf, dirbuf, FILENAME_MAX); canvasenvironment->ce_path = namelist_append(canvasenvironment->ce_path, - reldirbuf, 0); + reldirbuf, 0); post("libdir_loader: added %s to the canvas-local path", classname); } else #endif { if ((fd = open_via_path(".", fullclassname, ".pd", - dirbuf, &nameptr, MAXPDSTRING, 0)) < 0) + dirbuf, &nameptr, FILENAME_MAX, 0)) < 0) { return (0); } close(fd); sys_searchpath = namelist_append(sys_searchpath, dirbuf, 0); - strncpy(helppathname, sys_libdir->s_name, MAXPDSTRING-30); - helppathname[MAXPDSTRING-30] = 0; + strncpy(helppathname, sys_libdir->s_name, FILENAME_MAX-30); + helppathname[FILENAME_MAX-30] = 0; strcat(helppathname, "/doc/5.reference/"); strcat(helppathname, classname); sys_helppath = namelist_append(sys_helppath, helppathname, 0); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9856] branches/pd-extended/v0-40/pd/src/g_canvas.c
by eighthave＠users.sourceforge.net 19 May '08

19 May '08

Revision: 9856 http://pure-data.svn.sourceforge.net/pure-data/?rev=9856&view=rev Author: eighthave Date: 2008-05-19 12:25:03 -0700 (Mon, 19 May 2008) Log Message: ----------- made full paths work for declare -stdlib and -stdpath, fixing bug #1828573 Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/g_canvas.c Modified: branches/pd-extended/v0-40/pd/src/g_canvas.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-05-19 09:13:17 UTC (rev 9855) +++ branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-05-19 19:25:03 UTC (rev 9856) @@ -1513,6 +1513,26 @@ } } +static void canvas_completepath(char *from, char *to) +{ + if(! (from[0] == '/' || from[0] == '~' +#ifdef MSW + || from[0] == '%' || (from[1] == ':' && from[2] == '/') +#endif + )) + { + strncpy(to, sys_libdir->s_name, FILENAME_MAX-4); + to[FILENAME_MAX-3] = '\0'; + strcat(to, "/"); + } + else + { + to[0] = '\0'; + } + strncat(to, from, FILENAME_MAX-strlen(to)); + to[FILENAME_MAX-1] = '\0'; +} + static void canvas_declare(t_canvas *x, t_symbol *s, int argc, t_atom *argv) { int i; @@ -1524,7 +1544,7 @@ #endif for (i = 0; i < argc; i++) { - char strbuf[MAXPDSTRING]; + char strbuf[FILENAME_MAX]; char *flag = atom_getsymbolarg(i, argc, argv)->s_name; if ((argc > i+1) && !strcmp(flag, "-path")) { @@ -1534,12 +1554,7 @@ } else if ((argc > i+1) && !strcmp(flag, "-stdpath")) { - strncpy(strbuf, sys_libdir->s_name, MAXPDSTRING-3); - strbuf[MAXPDSTRING-4] = 0; - strcat(strbuf, "/"); - strncpy(strbuf, atom_getsymbolarg(i+1, argc, argv)->s_name, - MAXPDSTRING-strlen(strbuf)); - strbuf[MAXPDSTRING-1] = 0; + canvas_completepath(atom_getsymbolarg(i+1, argc, argv)->s_name, strbuf); e->ce_path = namelist_append(e->ce_path, strbuf, 0); i++; } @@ -1550,12 +1565,7 @@ } else if ((argc > i+1) && !strcmp(flag, "-stdlib")) { - strncpy(strbuf, sys_libdir->s_name, MAXPDSTRING-3); - strbuf[MAXPDSTRING-4] = 0; - strcat(strbuf, "/"); - strncpy(strbuf, atom_getsymbolarg(i+1, argc, argv)->s_name, - MAXPDSTRING-strlen(strbuf)); - strbuf[MAXPDSTRING-1] = 0; + canvas_completepath(atom_getsymbolarg(i+1, argc, argv)->s_name, strbuf); sys_load_lib(0, strbuf); i++; } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9855] branches/pd-extended/v0-40/abstractions/ senderfruit/core
by lukeiannini＠users.sourceforge.net 19 May '08

19 May '08

Revision: 9855 http://pure-data.svn.sourceforge.net/pure-data/?rev=9855&view=rev Author: lukeiannini Date: 2008-05-19 02:13:17 -0700 (Mon, 19 May 2008) Log Message: ----------- merged 9852:9854 from trunk Modified Paths: -------------- branches/pd-extended/v0-40/abstractions/senderfruit/core/trimdirs.pd Added Paths: ----------- branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-raise-help.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-raise.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/hotpack-help.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/if-help.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/if.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/instance-help.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/keynamedown-help.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/pausetimer.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/trimdirs-help.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/vmetro-help.pd Removed Paths: ------------- branches/pd-extended/v0-40/abstractions/senderfruit/core/clearconsole.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/cursormon.pd Deleted: branches/pd-extended/v0-40/abstractions/senderfruit/core/clearconsole.pd =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/clearconsole.pd 2008-05-19 09:10:23 UTC (rev 9854) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/clearconsole.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -1,17 +0,0 @@ -#N canvas 765 341 576 286 10; -#X obj 150 100 cnv 19 19 19 empty empty empty 20 12 0 14 -115257 -66577 -0; -#X obj 66 168 print; -#X msg 66 81 30; -#X obj 66 110 until; -#X obj 66 44 loadbang; -#X obj 152 102 bng 15 250 50 0 \$0 \$0r empty 0 -6 0 8 -259744 -154956 --1; -#X msg 66 139 ....................((&&&&&&&&&&&&&))...................... -; -#X connect 2 0 3 0; -#X connect 3 0 6 0; -#X connect 4 0 2 0; -#X connect 5 0 2 0; -#X connect 6 0 1 0; -#X coords 0 -1 1 1 19 19 2 150 100; Deleted: branches/pd-extended/v0-40/abstractions/senderfruit/core/cursormon.pd =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/cursormon.pd 2008-05-19 09:10:23 UTC (rev 9854) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/cursormon.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -1,18 +0,0 @@ -#N canvas 854 281 450 300 10; -#X obj 107 91 route motion; -#X msg 65 40 capture 1; -#X obj 65 17 loadbang; -#X floatatom 102 202 5 0 0 0 - - -; -#X obj 107 118 unpack f f f; -#X floatatom 141 202 5 0 0 0 - - -; -#X floatatom 181 202 5 0 0 0 - - -; -#X text 221 13 make a cursor icon for the GOP; -#X obj 65 62 tot .parent; -#X connect 0 0 4 0; -#X connect 1 0 8 0; -#X connect 2 0 1 0; -#X connect 4 0 3 0; -#X connect 4 1 5 0; -#X connect 4 2 6 0; -#X connect 8 2 0 0; -#X coords 0 -1 1 1 115 20 2 100 200; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-raise-help.pd (from rev 9854, trunk/abstractions/senderfruit/core/ds-raise-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-raise-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-raise-help.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,7 @@ +#N canvas 796 410 318 141 10; +#X obj 23 104 ds-raise pd-myData myTemplate; +#X text 7 4 [ds-raise] - hack to bring the first template in a datastructure +to the top; +#X obj 23 83 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X connect 2 0 0 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-raise.pd (from rev 9854, trunk/abstractions/senderfruit/core/ds-raise.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-raise.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-raise.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,11 @@ +#N canvas 814 246 126 152 10; +#X obj 12 58 t p p; +#X obj 12 34 ds-first \$1 \$2; +#X obj 12 82 get \$2 x; +#X obj 12 107 set \$2 x; +#X obj 12 10 inlet; +#X connect 0 0 2 0; +#X connect 0 1 3 1; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 4 0 1 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/hotpack-help.pd (from rev 9854, trunk/abstractions/senderfruit/core/hotpack-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/hotpack-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/hotpack-help.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,27 @@ +#N canvas 727 260 394 293 10; +#X text 9 8 [hotpack] works just like [pack] \, except that it all +of its inlets are "hot". Inlets will remember whatever they were last +sent.; +#X msg 29 90 vegetables; +#X msg 109 90 with; +#X msg 149 90 cheese; +#X msg 39 120 if; +#X msg 111 120 you; +#X msg 151 120 please; +#X obj 29 215 prepent set; +#X obj 29 180 hotpack s s s; +#X obj 66 156 symbol; +#X obj 104 156 symbol; +#X text 268 241 2008 Luke Iannini; +#X text 267 255 proyekto.net; +#X msg 29 252; +#X connect 1 0 8 0; +#X connect 2 0 9 0; +#X connect 3 0 10 0; +#X connect 4 0 8 0; +#X connect 5 0 9 0; +#X connect 6 0 10 0; +#X connect 7 0 13 0; +#X connect 8 0 7 0; +#X connect 9 0 8 1; +#X connect 10 0 8 2; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/if-help.pd (from rev 9854, trunk/abstractions/senderfruit/core/if-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/if-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/if-help.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,37 @@ +#N canvas 623 253 399 403 10; +#X text 19 20 [if f x] - if f(x) is true \, output from left outlet +\, else output from right outlet.; +#X text 19 60 ...where ["f"] is an object that outputs 0 or 1 (like +[<] or [==]) \, and x is an argument for f.; +#X text 19 99 Example: to recreate [moses]:; +#X obj 20 152 if < 5; +#X floatatom 20 122 5 0 0 0 - - -; +#X floatatom 20 192 5 0 0 0 - - -; +#X floatatom 53 192 5 0 0 0 - - -; +#X obj 20 216 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 53 216 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X text 17 240 Or route (for floats only):; +#X floatatom 20 342 5 0 0 0 - - -; +#X floatatom 65 342 5 0 0 0 - - -; +#X obj 20 366 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 65 366 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 20 302 if == 11; +#X msg 20 264 11; +#X msg 51 264 12; +#X text 254 370 2008 Luke Iannini; +#X text 254 385 proyekto.net; +#X connect 3 0 5 0; +#X connect 3 1 6 0; +#X connect 4 0 3 0; +#X connect 5 0 7 0; +#X connect 6 0 8 0; +#X connect 10 0 12 0; +#X connect 11 0 13 0; +#X connect 14 0 10 0; +#X connect 14 1 11 0; +#X connect 15 0 14 0; +#X connect 16 0 14 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/if.pd (from rev 9854, trunk/abstractions/senderfruit/core/if.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/if.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/if.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,29 @@ +#N canvas 542 305 149 282 10; +#X obj 71 23 \$1 \$2; +#X obj 98 -41 inlet; +#X obj 24 -41 inlet; +#X obj 24 186 outlet; +#X obj 71 186 outlet; +#X obj 24 154 spigot; +#X obj 71 154 spigot; +#X obj 71 105 unpack; +#X obj 71 48 sel 0; +#X obj 24 -11 t a a; +#X obj 24 124 t a a; +#X msg 71 80 0 1; +#X msg 98 80 1 0; +#X connect 0 0 8 0; +#X connect 1 0 0 1; +#X connect 2 0 9 0; +#X connect 5 0 3 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X connect 7 1 6 1; +#X connect 8 0 11 0; +#X connect 8 1 12 0; +#X connect 9 0 10 0; +#X connect 9 1 0 0; +#X connect 10 0 5 0; +#X connect 10 1 6 0; +#X connect 11 0 7 0; +#X connect 12 0 7 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/instance-help.pd (from rev 9854, trunk/abstractions/senderfruit/core/instance-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/instance-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/instance-help.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,30 @@ +#N canvas 688 443 594 298 10; +#X obj 9 96 instance Higgins; +#X floatatom 9 122 5 0 0 0 - - -; +#X obj 9 146 instance Higgins; +#X floatatom 9 172 5 0 0 0 - - -; +#X obj 9 196 instance Higgins; +#X floatatom 9 222 5 0 0 0 - - -; +#X obj 9 246 instance Higgins; +#X floatatom 9 272 5 0 0 0 - - -; +#X obj 180 120 v HigginsInst; +#X obj 180 94 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X floatatom 180 145 5 0 0 0 - - -; +#X text 13 11 [instance] keeps track of how many times it has been +created with the same name. If you have [closebang] \, it will also +detect when an instance is deleted.; +#X text 226 140 create a [v <Name>Inst] to find out how many <Name> +instances currently exist.; +#X text 373 255 2008 Luke Iannini; +#X text 373 271 proyekto.net; +#X text 168 186 Put [instance] inside of your abstractions to assign +each one a unique number. They will number themselves according to +their creation order (you can copy and paste abstractions to manipulate +this \, if desired).; +#X connect 0 0 1 0; +#X connect 2 0 3 0; +#X connect 4 0 5 0; +#X connect 6 0 7 0; +#X connect 8 0 10 0; +#X connect 9 0 8 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/keynamedown-help.pd (from rev 9854, trunk/abstractions/senderfruit/core/keynamedown-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/keynamedown-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/keynamedown-help.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,9 @@ +#N canvas 889 330 358 158 10; +#X text 11 17 [keynamedown] outputs the [keyname] pressed only on the +press \, not the release.; +#X obj 36 111 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 36 85 keynamedown a; +#X text 181 122 2008 Luke Iannini; +#X text 180 137 proyekto.net; +#X connect 2 0 1 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/pausetimer.pd (from rev 9854, trunk/abstractions/senderfruit/core/pausetimer.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/pausetimer.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/pausetimer.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,71 @@ +#N canvas 424 138 374 392 10; +#X obj -1 23 inlet; +#X obj 217 230 timer; +#X obj 217 287 f; +#X obj 245 287 +; +#X obj 217 254 t b a; +#X obj 245 312 s \$0pausedTime; +#X msg 296 254 0; +#X obj 70 298 r \$0pausedTime; +#X obj 55 323 -; +#X obj 55 233 timer; +#X obj 217 174 r \$0pause; +#X obj 244 200 r \$0getPauseLength; +#X obj 55 275 f; +#X obj 69 174 f; +#X obj 69 196 sel 1 0; +#X obj -1 57 route reset pause resume; +#X obj -1 178 s \$0reset; +#X obj 296 231 r \$0reset; +#X msg 182 141 0; +#X msg 98 174 1; +#X obj 220 118 s \$0getPauseLength; +#X obj 55 369 outlet; +#X obj 46 88 once; +#X obj 163 88 once; +#X obj 163 108 t b b b; +#X obj 46 108 t b b b; +#X obj 96 118 s \$0pause; +#X obj 94 139 route bang; +#X obj 55 347 +; +#X obj 121 341 r \$0reset; +#X msg 88 342 0; +#X connect 0 0 15 0; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 2 1; +#X connect 3 0 5 0; +#X connect 4 0 2 0; +#X connect 4 1 3 1; +#X connect 6 0 2 1; +#X connect 6 0 5 0; +#X connect 7 0 8 1; +#X connect 8 0 28 0; +#X connect 9 0 12 0; +#X connect 10 0 1 0; +#X connect 11 0 1 1; +#X connect 12 0 8 0; +#X connect 13 0 14 0; +#X connect 14 0 12 0; +#X connect 14 1 9 1; +#X connect 15 0 9 0; +#X connect 15 0 16 0; +#X connect 15 1 22 0; +#X connect 15 2 23 0; +#X connect 15 3 27 0; +#X connect 17 0 6 0; +#X connect 18 0 13 1; +#X connect 19 0 13 1; +#X connect 22 0 25 0; +#X connect 23 0 24 0; +#X connect 24 0 22 1; +#X connect 24 1 18 0; +#X connect 24 2 20 0; +#X connect 25 0 23 1; +#X connect 25 1 19 0; +#X connect 25 2 26 0; +#X connect 27 0 13 0; +#X connect 27 1 28 1; +#X connect 28 0 21 0; +#X connect 29 0 30 0; +#X connect 30 0 28 1; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/trimdirs-help.pd (from rev 9854, trunk/abstractions/senderfruit/core/trimdirs-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/trimdirs-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/trimdirs-help.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,24 @@ +#N canvas 0 22 496 364 10; +#X msg 91 47 /Users/Me/Pd/Synths; +#X obj 91 163 prepent set; +#X obj 171 163 prepent set; +#X text 26 251 Trims the last [n] directories from the end of a path. +; +#X text 27 265 With [trimdirs 1] \, /Users/Me/Pd/Synths becomes /Users/Me/Pd +; +#X text 26 279 Handles spaces just fine.; +#X text 351 309 Luke Iannini 2008; +#X text 351 321 proyekto.net; +#X text 26 293 No/0 argument passes input through unchanged; +#X obj 91 130 trimdirs 1; +#X obj 171 130 trimdirs 2; +#X obj 136 91 symbol; +#X msg 171 195; +#X msg 91 195; +#X connect 0 0 11 0; +#X connect 1 0 13 0; +#X connect 2 0 12 0; +#X connect 9 0 1 0; +#X connect 10 0 2 0; +#X connect 11 0 9 0; +#X connect 11 0 10 0; Modified: branches/pd-extended/v0-40/abstractions/senderfruit/core/trimdirs.pd =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/trimdirs.pd 2008-05-19 09:10:23 UTC (rev 9854) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/trimdirs.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -1,4 +1,4 @@ -#N canvas 694 125 474 478 10; +#N canvas 694 125 471 382 10; #X obj 185 137 symbol2list /; #X obj 185 176 list-splat -1; #X obj 156 282 list2symbol /; @@ -16,13 +16,6 @@ #X obj 344 109 * -1; #X obj 402 21 inlet; #X obj 185 20 inlet; -#X text 32 376 Trims the last [n] directories from the end of a path. -; -#X text 33 390 With [trimdirs 1] \, /Users/Me/Pd/Synths becomes /Users/Me/Pd -; -#X text 32 404 Handles spaces just fine.; -#X text 357 434 Luke Iannini 2008; -#X text 357 446 proyekto.net; #X obj 156 343 outlet; #X obj 344 137 sel 0; #X obj 185 87 demultiplex; @@ -32,10 +25,9 @@ #X obj 185 110 s \$0passthrough; #X obj 170 314 r \$0passthrough; #X obj 344 82 abs; -#X text 32 418 No/0 argument passes input through unchanged; #X connect 0 0 1 0; #X connect 1 0 3 0; -#X connect 2 0 22 0; +#X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 11 1; #X connect 4 0 5 0; @@ -46,18 +38,18 @@ #X connect 9 0 6 1; #X connect 10 0 9 0; #X connect 11 0 2 0; -#X connect 12 0 30 0; +#X connect 12 0 25 0; #X connect 13 0 12 0; -#X connect 14 0 23 0; -#X connect 15 0 30 0; -#X connect 16 0 24 0; -#X connect 23 0 27 0; -#X connect 23 1 25 0; -#X connect 24 0 28 0; -#X connect 24 1 0 0; -#X connect 25 0 1 1; -#X connect 25 1 26 0; -#X connect 26 0 24 1; -#X connect 27 0 24 1; -#X connect 29 0 22 0; -#X connect 30 0 14 0; +#X connect 14 0 18 0; +#X connect 15 0 25 0; +#X connect 16 0 19 0; +#X connect 18 0 22 0; +#X connect 18 1 20 0; +#X connect 19 0 23 0; +#X connect 19 1 0 0; +#X connect 20 0 1 1; +#X connect 20 1 21 0; +#X connect 21 0 19 1; +#X connect 22 0 19 1; +#X connect 24 0 17 0; +#X connect 25 0 14 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/vmetro-help.pd (from rev 9854, trunk/abstractions/senderfruit/core/vmetro-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/vmetro-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/vmetro-help.pd 2008-05-19 09:13:17 UTC (rev 9855) @@ -0,0 +1,23 @@ +#N canvas 803 193 370 290 10; +#X obj 71 115 vmetro; +#X obj 71 74 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1 +; +#X floatatom 122 48 5 0 0 0 - - -; +#X obj 122 69 / 100; +#X floatatom 122 91 5 0 0 0 - - -; +#X text 15 5 [vmetro] works just like [metro] \, except that it can +take fractional values to go faster than 1 millisecond.; +#X text 15 215 original idea by IOhannes M Zmoelnig \, I think.; +#X obj 71 137 t b b; +#X obj 71 160 timer; +#X floatatom 71 183 5 0 0 0 - - -; +#X text 253 244 2008 Luke Iannini; +#X text 254 259 proyekto.net; +#X connect 0 0 7 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 0 1; +#X connect 7 0 8 0; +#X connect 7 1 8 1; +#X connect 8 0 9 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9854] trunk/abstractions/senderfruit/core
by lukeiannini＠users.sourceforge.net 19 May '08

19 May '08

Revision: 9854 http://pure-data.svn.sourceforge.net/pure-data/?rev=9854&view=rev Author: lukeiannini Date: 2008-05-19 02:10:23 -0700 (Mon, 19 May 2008) Log Message: ----------- added most missing helpfiles, deleted clearconsole since it's built in and cursormon since HCS already made it elsewhere Modified Paths: -------------- trunk/abstractions/senderfruit/core/trimdirs.pd Added Paths: ----------- trunk/abstractions/senderfruit/core/ds-raise-help.pd trunk/abstractions/senderfruit/core/ds-raise.pd trunk/abstractions/senderfruit/core/hotpack-help.pd trunk/abstractions/senderfruit/core/if-help.pd trunk/abstractions/senderfruit/core/if.pd trunk/abstractions/senderfruit/core/instance-help.pd trunk/abstractions/senderfruit/core/keynamedown-help.pd trunk/abstractions/senderfruit/core/pausetimer.pd trunk/abstractions/senderfruit/core/trimdirs-help.pd trunk/abstractions/senderfruit/core/vmetro-help.pd Removed Paths: ------------- trunk/abstractions/senderfruit/core/clearconsole.pd trunk/abstractions/senderfruit/core/cursormon.pd Deleted: trunk/abstractions/senderfruit/core/clearconsole.pd =================================================================== --- trunk/abstractions/senderfruit/core/clearconsole.pd 2008-05-19 08:29:10 UTC (rev 9853) +++ trunk/abstractions/senderfruit/core/clearconsole.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -1,17 +0,0 @@ -#N canvas 765 341 576 286 10; -#X obj 150 100 cnv 19 19 19 empty empty empty 20 12 0 14 -115257 -66577 -0; -#X obj 66 168 print; -#X msg 66 81 30; -#X obj 66 110 until; -#X obj 66 44 loadbang; -#X obj 152 102 bng 15 250 50 0 \$0 \$0r empty 0 -6 0 8 -259744 -154956 --1; -#X msg 66 139 ....................((&&&&&&&&&&&&&))...................... -; -#X connect 2 0 3 0; -#X connect 3 0 6 0; -#X connect 4 0 2 0; -#X connect 5 0 2 0; -#X connect 6 0 1 0; -#X coords 0 -1 1 1 19 19 2 150 100; Deleted: trunk/abstractions/senderfruit/core/cursormon.pd =================================================================== --- trunk/abstractions/senderfruit/core/cursormon.pd 2008-05-19 08:29:10 UTC (rev 9853) +++ trunk/abstractions/senderfruit/core/cursormon.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -1,18 +0,0 @@ -#N canvas 854 281 450 300 10; -#X obj 107 91 route motion; -#X msg 65 40 capture 1; -#X obj 65 17 loadbang; -#X floatatom 102 202 5 0 0 0 - - -; -#X obj 107 118 unpack f f f; -#X floatatom 141 202 5 0 0 0 - - -; -#X floatatom 181 202 5 0 0 0 - - -; -#X text 221 13 make a cursor icon for the GOP; -#X obj 65 62 tot .parent; -#X connect 0 0 4 0; -#X connect 1 0 8 0; -#X connect 2 0 1 0; -#X connect 4 0 3 0; -#X connect 4 1 5 0; -#X connect 4 2 6 0; -#X connect 8 2 0 0; -#X coords 0 -1 1 1 115 20 2 100 200; Added: trunk/abstractions/senderfruit/core/ds-raise-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/ds-raise-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/ds-raise-help.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,7 @@ +#N canvas 796 410 318 141 10; +#X obj 23 104 ds-raise pd-myData myTemplate; +#X text 7 4 [ds-raise] - hack to bring the first template in a datastructure +to the top; +#X obj 23 83 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X connect 2 0 0 0; Added: trunk/abstractions/senderfruit/core/ds-raise.pd =================================================================== --- trunk/abstractions/senderfruit/core/ds-raise.pd (rev 0) +++ trunk/abstractions/senderfruit/core/ds-raise.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,11 @@ +#N canvas 814 246 126 152 10; +#X obj 12 58 t p p; +#X obj 12 34 ds-first \$1 \$2; +#X obj 12 82 get \$2 x; +#X obj 12 107 set \$2 x; +#X obj 12 10 inlet; +#X connect 0 0 2 0; +#X connect 0 1 3 1; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 4 0 1 0; Added: trunk/abstractions/senderfruit/core/hotpack-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/hotpack-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/hotpack-help.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,27 @@ +#N canvas 727 260 394 293 10; +#X text 9 8 [hotpack] works just like [pack] \, except that it all +of its inlets are "hot". Inlets will remember whatever they were last +sent.; +#X msg 29 90 vegetables; +#X msg 109 90 with; +#X msg 149 90 cheese; +#X msg 39 120 if; +#X msg 111 120 you; +#X msg 151 120 please; +#X obj 29 215 prepent set; +#X obj 29 180 hotpack s s s; +#X obj 66 156 symbol; +#X obj 104 156 symbol; +#X text 268 241 2008 Luke Iannini; +#X text 267 255 proyekto.net; +#X msg 29 252; +#X connect 1 0 8 0; +#X connect 2 0 9 0; +#X connect 3 0 10 0; +#X connect 4 0 8 0; +#X connect 5 0 9 0; +#X connect 6 0 10 0; +#X connect 7 0 13 0; +#X connect 8 0 7 0; +#X connect 9 0 8 1; +#X connect 10 0 8 2; Added: trunk/abstractions/senderfruit/core/if-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/if-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/if-help.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,37 @@ +#N canvas 623 253 399 403 10; +#X text 19 20 [if f x] - if f(x) is true \, output from left outlet +\, else output from right outlet.; +#X text 19 60 ...where ["f"] is an object that outputs 0 or 1 (like +[<] or [==]) \, and x is an argument for f.; +#X text 19 99 Example: to recreate [moses]:; +#X obj 20 152 if < 5; +#X floatatom 20 122 5 0 0 0 - - -; +#X floatatom 20 192 5 0 0 0 - - -; +#X floatatom 53 192 5 0 0 0 - - -; +#X obj 20 216 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 53 216 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X text 17 240 Or route (for floats only):; +#X floatatom 20 342 5 0 0 0 - - -; +#X floatatom 65 342 5 0 0 0 - - -; +#X obj 20 366 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 65 366 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 20 302 if == 11; +#X msg 20 264 11; +#X msg 51 264 12; +#X text 254 370 2008 Luke Iannini; +#X text 254 385 proyekto.net; +#X connect 3 0 5 0; +#X connect 3 1 6 0; +#X connect 4 0 3 0; +#X connect 5 0 7 0; +#X connect 6 0 8 0; +#X connect 10 0 12 0; +#X connect 11 0 13 0; +#X connect 14 0 10 0; +#X connect 14 1 11 0; +#X connect 15 0 14 0; +#X connect 16 0 14 0; Added: trunk/abstractions/senderfruit/core/if.pd =================================================================== --- trunk/abstractions/senderfruit/core/if.pd (rev 0) +++ trunk/abstractions/senderfruit/core/if.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,29 @@ +#N canvas 542 305 149 282 10; +#X obj 71 23 \$1 \$2; +#X obj 98 -41 inlet; +#X obj 24 -41 inlet; +#X obj 24 186 outlet; +#X obj 71 186 outlet; +#X obj 24 154 spigot; +#X obj 71 154 spigot; +#X obj 71 105 unpack; +#X obj 71 48 sel 0; +#X obj 24 -11 t a a; +#X obj 24 124 t a a; +#X msg 71 80 0 1; +#X msg 98 80 1 0; +#X connect 0 0 8 0; +#X connect 1 0 0 1; +#X connect 2 0 9 0; +#X connect 5 0 3 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X connect 7 1 6 1; +#X connect 8 0 11 0; +#X connect 8 1 12 0; +#X connect 9 0 10 0; +#X connect 9 1 0 0; +#X connect 10 0 5 0; +#X connect 10 1 6 0; +#X connect 11 0 7 0; +#X connect 12 0 7 0; Added: trunk/abstractions/senderfruit/core/instance-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/instance-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/instance-help.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,30 @@ +#N canvas 688 443 594 298 10; +#X obj 9 96 instance Higgins; +#X floatatom 9 122 5 0 0 0 - - -; +#X obj 9 146 instance Higgins; +#X floatatom 9 172 5 0 0 0 - - -; +#X obj 9 196 instance Higgins; +#X floatatom 9 222 5 0 0 0 - - -; +#X obj 9 246 instance Higgins; +#X floatatom 9 272 5 0 0 0 - - -; +#X obj 180 120 v HigginsInst; +#X obj 180 94 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X floatatom 180 145 5 0 0 0 - - -; +#X text 13 11 [instance] keeps track of how many times it has been +created with the same name. If you have [closebang] \, it will also +detect when an instance is deleted.; +#X text 226 140 create a [v <Name>Inst] to find out how many <Name> +instances currently exist.; +#X text 373 255 2008 Luke Iannini; +#X text 373 271 proyekto.net; +#X text 168 186 Put [instance] inside of your abstractions to assign +each one a unique number. They will number themselves according to +their creation order (you can copy and paste abstractions to manipulate +this \, if desired).; +#X connect 0 0 1 0; +#X connect 2 0 3 0; +#X connect 4 0 5 0; +#X connect 6 0 7 0; +#X connect 8 0 10 0; +#X connect 9 0 8 0; Added: trunk/abstractions/senderfruit/core/keynamedown-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/keynamedown-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/keynamedown-help.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,9 @@ +#N canvas 889 330 358 158 10; +#X text 11 17 [keynamedown] outputs the [keyname] pressed only on the +press \, not the release.; +#X obj 36 111 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 36 85 keynamedown a; +#X text 181 122 2008 Luke Iannini; +#X text 180 137 proyekto.net; +#X connect 2 0 1 0; Added: trunk/abstractions/senderfruit/core/pausetimer.pd =================================================================== --- trunk/abstractions/senderfruit/core/pausetimer.pd (rev 0) +++ trunk/abstractions/senderfruit/core/pausetimer.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,71 @@ +#N canvas 424 138 374 392 10; +#X obj -1 23 inlet; +#X obj 217 230 timer; +#X obj 217 287 f; +#X obj 245 287 +; +#X obj 217 254 t b a; +#X obj 245 312 s \$0pausedTime; +#X msg 296 254 0; +#X obj 70 298 r \$0pausedTime; +#X obj 55 323 -; +#X obj 55 233 timer; +#X obj 217 174 r \$0pause; +#X obj 244 200 r \$0getPauseLength; +#X obj 55 275 f; +#X obj 69 174 f; +#X obj 69 196 sel 1 0; +#X obj -1 57 route reset pause resume; +#X obj -1 178 s \$0reset; +#X obj 296 231 r \$0reset; +#X msg 182 141 0; +#X msg 98 174 1; +#X obj 220 118 s \$0getPauseLength; +#X obj 55 369 outlet; +#X obj 46 88 once; +#X obj 163 88 once; +#X obj 163 108 t b b b; +#X obj 46 108 t b b b; +#X obj 96 118 s \$0pause; +#X obj 94 139 route bang; +#X obj 55 347 +; +#X obj 121 341 r \$0reset; +#X msg 88 342 0; +#X connect 0 0 15 0; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 2 1; +#X connect 3 0 5 0; +#X connect 4 0 2 0; +#X connect 4 1 3 1; +#X connect 6 0 2 1; +#X connect 6 0 5 0; +#X connect 7 0 8 1; +#X connect 8 0 28 0; +#X connect 9 0 12 0; +#X connect 10 0 1 0; +#X connect 11 0 1 1; +#X connect 12 0 8 0; +#X connect 13 0 14 0; +#X connect 14 0 12 0; +#X connect 14 1 9 1; +#X connect 15 0 9 0; +#X connect 15 0 16 0; +#X connect 15 1 22 0; +#X connect 15 2 23 0; +#X connect 15 3 27 0; +#X connect 17 0 6 0; +#X connect 18 0 13 1; +#X connect 19 0 13 1; +#X connect 22 0 25 0; +#X connect 23 0 24 0; +#X connect 24 0 22 1; +#X connect 24 1 18 0; +#X connect 24 2 20 0; +#X connect 25 0 23 1; +#X connect 25 1 19 0; +#X connect 25 2 26 0; +#X connect 27 0 13 0; +#X connect 27 1 28 1; +#X connect 28 0 21 0; +#X connect 29 0 30 0; +#X connect 30 0 28 1; Added: trunk/abstractions/senderfruit/core/trimdirs-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/trimdirs-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/trimdirs-help.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,24 @@ +#N canvas 0 22 496 364 10; +#X msg 91 47 /Users/Me/Pd/Synths; +#X obj 91 163 prepent set; +#X obj 171 163 prepent set; +#X text 26 251 Trims the last [n] directories from the end of a path. +; +#X text 27 265 With [trimdirs 1] \, /Users/Me/Pd/Synths becomes /Users/Me/Pd +; +#X text 26 279 Handles spaces just fine.; +#X text 351 309 Luke Iannini 2008; +#X text 351 321 proyekto.net; +#X text 26 293 No/0 argument passes input through unchanged; +#X obj 91 130 trimdirs 1; +#X obj 171 130 trimdirs 2; +#X obj 136 91 symbol; +#X msg 171 195; +#X msg 91 195; +#X connect 0 0 11 0; +#X connect 1 0 13 0; +#X connect 2 0 12 0; +#X connect 9 0 1 0; +#X connect 10 0 2 0; +#X connect 11 0 9 0; +#X connect 11 0 10 0; Modified: trunk/abstractions/senderfruit/core/trimdirs.pd =================================================================== --- trunk/abstractions/senderfruit/core/trimdirs.pd 2008-05-19 08:29:10 UTC (rev 9853) +++ trunk/abstractions/senderfruit/core/trimdirs.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -1,4 +1,4 @@ -#N canvas 694 125 474 478 10; +#N canvas 694 125 471 382 10; #X obj 185 137 symbol2list /; #X obj 185 176 list-splat -1; #X obj 156 282 list2symbol /; @@ -16,13 +16,6 @@ #X obj 344 109 * -1; #X obj 402 21 inlet; #X obj 185 20 inlet; -#X text 32 376 Trims the last [n] directories from the end of a path. -; -#X text 33 390 With [trimdirs 1] \, /Users/Me/Pd/Synths becomes /Users/Me/Pd -; -#X text 32 404 Handles spaces just fine.; -#X text 357 434 Luke Iannini 2008; -#X text 357 446 proyekto.net; #X obj 156 343 outlet; #X obj 344 137 sel 0; #X obj 185 87 demultiplex; @@ -32,10 +25,9 @@ #X obj 185 110 s \$0passthrough; #X obj 170 314 r \$0passthrough; #X obj 344 82 abs; -#X text 32 418 No/0 argument passes input through unchanged; #X connect 0 0 1 0; #X connect 1 0 3 0; -#X connect 2 0 22 0; +#X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 11 1; #X connect 4 0 5 0; @@ -46,18 +38,18 @@ #X connect 9 0 6 1; #X connect 10 0 9 0; #X connect 11 0 2 0; -#X connect 12 0 30 0; +#X connect 12 0 25 0; #X connect 13 0 12 0; -#X connect 14 0 23 0; -#X connect 15 0 30 0; -#X connect 16 0 24 0; -#X connect 23 0 27 0; -#X connect 23 1 25 0; -#X connect 24 0 28 0; -#X connect 24 1 0 0; -#X connect 25 0 1 1; -#X connect 25 1 26 0; -#X connect 26 0 24 1; -#X connect 27 0 24 1; -#X connect 29 0 22 0; -#X connect 30 0 14 0; +#X connect 14 0 18 0; +#X connect 15 0 25 0; +#X connect 16 0 19 0; +#X connect 18 0 22 0; +#X connect 18 1 20 0; +#X connect 19 0 23 0; +#X connect 19 1 0 0; +#X connect 20 0 1 1; +#X connect 20 1 21 0; +#X connect 21 0 19 1; +#X connect 22 0 19 1; +#X connect 24 0 17 0; +#X connect 25 0 14 0; Added: trunk/abstractions/senderfruit/core/vmetro-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/vmetro-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/vmetro-help.pd 2008-05-19 09:10:23 UTC (rev 9854) @@ -0,0 +1,23 @@ +#N canvas 803 193 370 290 10; +#X obj 71 115 vmetro; +#X obj 71 74 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1 +; +#X floatatom 122 48 5 0 0 0 - - -; +#X obj 122 69 / 100; +#X floatatom 122 91 5 0 0 0 - - -; +#X text 15 5 [vmetro] works just like [metro] \, except that it can +take fractional values to go faster than 1 millisecond.; +#X text 15 215 original idea by IOhannes M Zmoelnig \, I think.; +#X obj 71 137 t b b; +#X obj 71 160 timer; +#X floatatom 71 183 5 0 0 0 - - -; +#X text 253 244 2008 Luke Iannini; +#X text 254 259 proyekto.net; +#X connect 0 0 7 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 0 1; +#X connect 7 0 8 0; +#X connect 7 1 8 1; +#X connect 8 0 9 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9853] branches/pd-extended/v0-40/abstractions/ senderfruit/core
by lukeiannini＠users.sourceforge.net 19 May '08

19 May '08

Revision: 9853 http://pure-data.svn.sourceforge.net/pure-data/?rev=9853&view=rev Author: lukeiannini Date: 2008-05-19 01:29:10 -0700 (Mon, 19 May 2008) Log Message: ----------- merged r 9819:9852 from trunk/abstractions/senderfruit Added Paths: ----------- branches/pd-extended/v0-40/abstractions/senderfruit/core/donecanvasdialog-help.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-next-element.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/keycommand-help.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/keycommand.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/pausetimer-help.pd branches/pd-extended/v0-40/abstractions/senderfruit/core/vmetro.pd Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/donecanvasdialog-help.pd (from rev 9852, trunk/abstractions/senderfruit/core/donecanvasdialog-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/donecanvasdialog-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/donecanvasdialog-help.pd 2008-05-19 08:29:10 UTC (rev 9853) @@ -0,0 +1,3 @@ +#N canvas 576 113 450 300 10; +#X msg 20 202 donecanvasdialog xUnits yUnits GOP xFrom yFrom xTo yTo +xSize ySize xMargin yMargin; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-next-element.pd (from rev 9852, trunk/abstractions/senderfruit/core/ds-next-element.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-next-element.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/ds-next-element.pd 2008-05-19 08:29:10 UTC (rev 9853) @@ -0,0 +1,152 @@ +#N canvas 453 22 467 768 10; +#X obj 133 259 f; +#X obj 160 259 + 1; +#X obj 133 237 until; +#X obj 118 701 once; +#X obj 199 603 t a; +#X obj 133 579 &&; +#X obj 160 327 + 1; +#X obj 133 640 f; +#X obj 133 600 sel 1; +#X obj 91 9 inlet; +#X obj 170 527 r \$0findValue; +#X obj 137 30 s \$0findValue; +#X msg 148 215 0; +#X obj 118 736 outlet; +#X obj 91 73 t p p; +#X obj 133 552 <=; +#X obj 160 552 >; +#X obj 133 306 t a a; +#X obj 133 665 t a b; +#X obj 172 665 s \$0stopLooking; +#X obj 170 237 r \$0stopLooking; +#X obj 160 346 t a a a; +#X obj 296 554 sel 1; +#X obj 296 382 >; +#X obj 311 358 - 1; +#X obj 91 116 sel 1; +#X obj 137 74 s \$0pointer; +#X obj 225 404 r \$0pointer; +#X obj 133 281 sel 0; +#X obj 245 467 t a b; +#N canvas 0 22 448 336 earliest? 0; +#X obj 82 74 inlet; +#X obj 157 97 r \$0pointer; +#X msg 82 100 0; +#X obj 97 178 r \$0findValue; +#X obj 82 206 >; +#X obj 82 232 sel 1; +#X obj 129 294 outlet; +#X msg 129 270 0; +#X msg 55 270 0; +#X obj 55 294 outlet; +#X obj 82 129 element \$1 \$2; +#X obj 82 154 get \$3 \$4; +#X connect 0 0 2 0; +#X connect 1 0 10 1; +#X connect 2 0 10 0; +#X connect 3 0 4 1; +#X connect 4 0 5 0; +#X connect 5 0 7 0; +#X connect 5 1 8 0; +#X connect 7 0 6 0; +#X connect 8 0 9 0; +#X connect 10 0 11 0; +#X connect 11 0 4 0; +#X restore 174 293 pd earliest?; +#X obj 272 513 s \$0stopLooking; +#X obj 245 642 t a; +#N canvas 848 394 186 293 first 0; +#X obj 13 10 inlet; +#X obj 88 41 r \$0pointer; +#X obj 27 252 outlet; +#X obj 13 90 t p p; +#X obj 28 139 r \$0findValue; +#X obj 13 188 sel 1; +#X obj 13 162 >; +#X msg 13 43 0; +#X msg 13 218 0; +#X msg 40 218 1; +#X obj 13 115 get \$3 \$4; +#X obj 13 68 element \$1 \$2; +#X connect 0 0 7 0; +#X connect 1 0 11 1; +#X connect 3 0 10 0; +#X connect 4 0 6 1; +#X connect 5 0 8 0; +#X connect 5 1 9 0; +#X connect 6 0 5 0; +#X connect 7 0 11 0; +#X connect 8 0 2 0; +#X connect 9 0 2 0; +#X connect 10 0 6 0; +#X connect 11 0 3 0; +#X restore 18 372 pd first; +#X obj 91 96 getsize \$1 \$2; +#X obj 160 434 element \$1 \$2; +#X obj 133 481 element \$1 \$2; +#X obj 160 453 get \$3 \$4; +#X obj 133 504 get \$3 \$4; +#X text 240 48 takes a pointer to an array; +#X obj 200 147 s \$0reset; +#X obj 118 147 t b a b a b; +#X obj 151 701 r \$0reset; +#X obj 315 34 inlet; +#X obj 91 51 pointer; +#X obj 91 30 t b a; +#X connect 0 0 1 0; +#X connect 0 0 28 0; +#X connect 1 0 0 1; +#X connect 2 0 0 0; +#X connect 3 0 13 0; +#X connect 4 0 7 1; +#X connect 5 0 8 0; +#X connect 6 0 21 0; +#X connect 7 0 18 0; +#X connect 8 0 7 0; +#X connect 9 0 45 0; +#X connect 10 0 15 1; +#X connect 10 0 16 1; +#X connect 12 0 0 1; +#X connect 14 0 34 0; +#X connect 14 1 26 0; +#X connect 15 0 5 0; +#X connect 16 0 5 1; +#X connect 17 0 36 0; +#X connect 17 1 6 0; +#X connect 18 0 3 0; +#X connect 18 1 19 0; +#X connect 20 0 2 1; +#X connect 21 0 35 0; +#X connect 21 1 23 0; +#X connect 21 2 4 0; +#X connect 22 0 7 0; +#X connect 23 0 22 0; +#X connect 24 0 23 1; +#X connect 25 0 33 0; +#X connect 25 1 41 0; +#X connect 27 0 35 1; +#X connect 27 0 36 1; +#X connect 28 0 30 0; +#X connect 28 1 17 0; +#X connect 29 0 32 0; +#X connect 29 1 31 0; +#X connect 30 0 17 0; +#X connect 30 1 29 0; +#X connect 32 0 3 0; +#X connect 33 0 13 0; +#X connect 34 0 25 0; +#X connect 35 0 37 0; +#X connect 36 0 38 0; +#X connect 37 0 16 0; +#X connect 38 0 15 0; +#X connect 41 0 3 0; +#X connect 41 1 2 0; +#X connect 41 2 12 0; +#X connect 41 3 24 0; +#X connect 41 4 40 0; +#X connect 42 0 3 1; +#X connect 43 0 44 1; +#X connect 44 0 14 0; +#X connect 45 0 44 0; +#X connect 45 1 11 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/keycommand-help.pd (from rev 9852, trunk/abstractions/senderfruit/core/keycommand-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/keycommand-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/keycommand-help.pd 2008-05-19 08:29:10 UTC (rev 9853) @@ -0,0 +1,24 @@ +#N canvas 932 55 326 225 10; +#X text 12 9 [keycommand] - assign a keyboard key to a receiver; +#X obj 42 82 keycommand a \$0go; +#X obj 42 102 keycommand s \$0do-it; +#X obj 42 122 keycommand d \$0now; +#X obj 42 142 keycommand f \$0comeon; +#X obj 212 82 r \$0go; +#X obj 212 102 r \$0do-it; +#X obj 212 122 r \$0now; +#X obj 212 142 r \$0comeon; +#X obj 294 99 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113 -257985 +-1; +#X obj 294 119 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -4160 +-1; +#X obj 294 139 bng 15 250 50 0 empty empty empty 17 7 0 10 -159808 +-4034 -1; +#X obj 294 159 bng 15 250 50 0 empty empty empty 17 7 0 10 -260097 +-4032 -1; +#X text 187 183 2008 Luke Iannini; +#X text 187 198 proyekto.net; +#X connect 5 0 9 0; +#X connect 6 0 10 0; +#X connect 7 0 11 0; +#X connect 8 0 12 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/keycommand.pd (from rev 9852, trunk/abstractions/senderfruit/core/keycommand.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/keycommand.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/keycommand.pd 2008-05-19 08:29:10 UTC (rev 9853) @@ -0,0 +1,6 @@ +#N canvas 274 22 177 175 10; +#X obj 29 47 keynamedown \$1; +#X obj 29 116 s \$2; +#X obj 29 82 list append \$3; +#X connect 0 0 2 0; +#X connect 2 0 1 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/pausetimer-help.pd (from rev 9852, trunk/abstractions/senderfruit/core/pausetimer-help.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/pausetimer-help.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/pausetimer-help.pd 2008-05-19 08:29:10 UTC (rev 9853) @@ -0,0 +1,21 @@ +#N canvas 669 298 565 260 10; +#X obj 123 37 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X msg 131 95 pause; +#X msg 171 95 resume; +#X msg 216 95 reset; +#X floatatom 123 195 0 0 0 0 - - -; +#X obj 123 157 pausetimer; +#X text 6 6 pausetimer: pausable [timer]; +#X obj 123 56 metro 0.1; +#X text 261 77 float to add offset ( reset on [reset( ); +#X msg 258 95 -5000; +#X msg 258 114 15000; +#X connect 0 0 7 0; +#X connect 1 0 5 0; +#X connect 2 0 5 0; +#X connect 3 0 5 0; +#X connect 5 0 4 0; +#X connect 7 0 5 0; +#X connect 9 0 5 0; +#X connect 10 0 5 0; Copied: branches/pd-extended/v0-40/abstractions/senderfruit/core/vmetro.pd (from rev 9852, trunk/abstractions/senderfruit/core/vmetro.pd) =================================================================== --- branches/pd-extended/v0-40/abstractions/senderfruit/core/vmetro.pd (rev 0) +++ branches/pd-extended/v0-40/abstractions/senderfruit/core/vmetro.pd 2008-05-19 08:29:10 UTC (rev 9853) @@ -0,0 +1,30 @@ +#N canvas 718 533 518 301 10; +#X obj 105 261 outlet; +#X obj 327 29 inlet; +#X obj 107 13 inlet; +#X obj 178 102 route float bang; +#X obj 107 195 delay; +#X obj 234 178 list-onearg \$1 1; +#X msg 107 111 stop; +#X msg 178 125 bang; +#X obj 78 218 t b b; +#X obj 234 155 loadbang; +#X obj 107 34 list; +#X obj 107 56 sel stop; +#X obj 152 77 sel 0; +#X connect 1 0 5 1; +#X connect 2 0 10 0; +#X connect 3 0 7 0; +#X connect 3 1 7 0; +#X connect 4 0 8 0; +#X connect 5 0 4 1; +#X connect 6 0 4 0; +#X connect 7 0 4 0; +#X connect 8 0 4 0; +#X connect 8 1 0 0; +#X connect 9 0 5 0; +#X connect 10 0 11 0; +#X connect 11 0 6 0; +#X connect 11 1 12 0; +#X connect 12 0 6 0; +#X connect 12 1 3 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9852] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 18 May '08

18 May '08

Revision: 9852 http://pure-data.svn.sourceforge.net/pure-data/?rev=9852&view=rev Author: eighthave Date: 2008-05-18 13:18:18 -0700 (Sun, 18 May 2008) Log Message: ----------- on Mac OS X, enabled the Window->Zoom menu item and added standard 'Minimize' and 'Zoom' items to the 'Window' menu Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-18 19:40:02 UTC (rev 9851) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-18 20:18:18 UTC (rev 9852) @@ -384,8 +384,14 @@ set menu_windowlist {} proc pdtk_fixwindowmenu {} { - global menu_windowlist + global menu_windowlist pd_nt .mbar.windows delete 0 end + if {$pd_nt == 2} { + .mbar.windows add command -label {Minimize} -command {menu_minimize .} \ + -accelerator [accel_munge "Ctrl+m"] + .mbar.windows add command -label {Zoom} -command {menu_zoom .} + .mbar.windows add separator + } .mbar.windows add command -label {parent window} -state disabled .mbar.windows add command -label {Pd window} -command menu_raise_console \ -accelerator [accel_munge "Ctrl+r"] -state disabled @@ -488,6 +494,10 @@ } } +proc menu_zoom {window} { + wm state $window zoomed +} + proc menu_raisenextwindow {} { raise [lindex [wm stackorder .] 1] } @@ -1051,14 +1061,17 @@ } proc menu_fixwindowmenu {name} { - global menu_windowlist - global pd_tearoff + global menu_windowlist pd_tearoff pd_nt $name.m.windows add command - if $pd_tearoff { - $name.m.windows delete 4 end - } else { - $name.m.windows delete 3 end - } + if {$pd_nt == 2} { + $name.m.windows delete 6 end + } else { + if $pd_tearoff { + $name.m.windows delete 4 end + } else { + $name.m.windows delete 3 end + } + } foreach i $menu_windowlist { $name.m.windows add command -label [lindex $i 0] \ -command [concat menu_domenuwindow [lindex $i 1]] @@ -1399,6 +1412,12 @@ menu $name.m.windows -postcommand [concat menu_fixwindowmenu $name] \ -tearoff $pd_tearoff + if {$pd_nt == 2} { + $name.m.windows add command -label {Minimize} \ + -command "menu_minimize $name" -accelerator [accel_munge "Ctrl+m"] + $name.m.windows add command -label {Zoom} -command "menu_zoom $name" + $name.m.windows add separator + } $name.m.windows add command -label {parent window}\ -command [concat menu_windowparent $name] $name.m.windows add command -label {Pd window} -command menu_raise_console \ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9851] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 18 May '08

18 May '08

Revision: 9851 http://pure-data.svn.sourceforge.net/pure-data/?rev=9851&view=rev Author: eighthave Date: 2008-05-18 12:40:02 -0700 (Sun, 18 May 2008) Log Message: ----------- got Cmd-quoteleft (i.e. backtick) working to cycle through windows on Mac OS X Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-18 18:35:45 UTC (rev 9850) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-18 19:40:02 UTC (rev 9851) @@ -488,6 +488,10 @@ } } +proc menu_raisenextwindow {} { + raise [lindex [wm stackorder .] 1] +} + ################## menu commands for console ######################### proc menu_raise_console {} { @@ -1498,6 +1502,7 @@ bind $name.c <Mod1-Key> {pdtk_canvas_ctrlkey %W %K 0} bind $name.c <Mod1-Shift-Key> {pdtk_canvas_ctrlkey %W %K 1} bind $name.c <Mod1-BackSpace> {pdtk_canvas_sendkey %W 1 %K %A 0} + bind $name.c <Mod1-quoteleft> {menu_raisenextwindow} } bind $name.c <Key> {pdtk_canvas_sendkey %W 1 %K %A 0} bind $name.c <Shift-Key> {pdtk_canvas_sendkey %W 1 %K %A 1} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9850] branches/pd-extended/v0-40
by eighthave＠users.sourceforge.net 18 May '08

18 May '08

Revision: 9850 http://pure-data.svn.sourceforge.net/pure-data/?rev=9850&view=rev Author: eighthave Date: 2008-05-18 11:35:45 -0700 (Sun, 18 May 2008) Log Message: ----------- - removed old Tcl/Tk hack for setting the LIBQUICKTIME_PLUGIN_DIR and wrote it in C inside pdp_qt.c, where it is actually needed. Modified Paths: -------------- branches/pd-extended/v0-40/externals/pdp/modules/image_io/pdp_qt.c branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/externals/pdp/modules/image_io/pdp_qt.c =================================================================== --- branches/pd-extended/v0-40/externals/pdp/modules/image_io/pdp_qt.c 2008-05-18 18:02:14 UTC (rev 9849) +++ branches/pd-extended/v0-40/externals/pdp/modules/image_io/pdp_qt.c 2008-05-18 18:35:45 UTC (rev 9850) @@ -26,8 +26,8 @@ #include "pdp.h" #include "pdp_llconv.h" +#include "s_stuff.h" // need to get sys_libdir for libquicktime plugins - #define min(x,y) ((x<y)?(x):(y)) @@ -967,6 +967,19 @@ pdp_qt_setup_common(pdp_qt_tilde_class); class_addmethod(pdp_qt_tilde_class, (t_method)pdp_qt_dsp, gensym("dsp"), 0); + +#ifdef __APPLE__ + /* this is necessary for pdp_qt to find the embedded libquicktime plugins */ + char buf[FILENAME_MAX]; + char realpath_buf[FILENAME_MAX]; + strncpy(buf, sys_libdir->s_name, FILENAME_MAX - 20); + strcat(buf, "/../lib/libquicktime"); + if(realpath(buf, realpath_buf)) + { + post("[pdp_qt]: setting LIBQUICKTIME_PLUGIN_DIR to:\n %s", realpath_buf); + setenv("LIBQUICKTIME_PLUGIN_DIR", realpath_buf, 0); // 0 means don't overwrite existing value + } +#endif } #ifdef __cplusplus Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-18 18:02:14 UTC (rev 9849) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-18 18:35:45 UTC (rev 9850) @@ -143,11 +143,6 @@ set pd_gui2 [string range $argv0 0 [expr [string last / $argv0 ] - 1]] set pd_guidir [file normalize $pd_gui2/..] load $pd_guidir/bin/libPdTcl.dylib - # this is the embedded libquicktime can find its embedded plugins - set libquicktime_plugin_dir \ - [file normalize $pd_gui2/../../lib/libquicktime] - puts stderr "Setting LIBQUICKTIME_PLUGIN_DIR: $libquicktime_plugin_dir" - set env(LIBQUICKTIME_PLUGIN_DIR) $libquicktime_plugin_dir set pd_tearoff 0 global pd_macready set pd_macready 0 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9849] branches/pd-extended/v0-40/externals/hcs
by eighthave＠users.sourceforge.net 18 May '08

18 May '08

Revision: 9849 http://pure-data.svn.sourceforge.net/pure-data/?rev=9849&view=rev Author: eighthave Date: 2008-05-18 11:02:14 -0700 (Sun, 18 May 2008) Log Message: ----------- ported to Windows/MinGW Modified Paths: -------------- branches/pd-extended/v0-40/externals/hcs/setenv.c branches/pd-extended/v0-40/externals/hcs/unsetenv.c Modified: branches/pd-extended/v0-40/externals/hcs/setenv.c =================================================================== --- branches/pd-extended/v0-40/externals/hcs/setenv.c 2008-05-18 17:31:21 UTC (rev 9848) +++ branches/pd-extended/v0-40/externals/hcs/setenv.c 2008-05-18 18:02:14 UTC (rev 9849) @@ -72,9 +72,13 @@ static void setenv_symbol(t_setenv* x, t_symbol *s) { DEBUG(post("setenv_output");); +#ifdef _WIN32 + SetEnvironmentVariable(x->x_variable_name->s_name, s->s_name); +#else if(x->x_overwrite == 0) post("[setenv]: not in overwrite mode."); - setenv(x->x_variable_name->s_name, s->s_name, x->x_overwrite); // 1 means overwrite + setenv(x->x_variable_name->s_name, s->s_name, x->x_overwrite); +#endif setenv_output(x); } Modified: branches/pd-extended/v0-40/externals/hcs/unsetenv.c =================================================================== --- branches/pd-extended/v0-40/externals/hcs/unsetenv.c 2008-05-18 17:31:21 UTC (rev 9848) +++ branches/pd-extended/v0-40/externals/hcs/unsetenv.c 2008-05-18 18:02:14 UTC (rev 9849) @@ -42,9 +42,9 @@ static t_class *unsetenv_class; typedef struct _unsetenv { - t_object x_obj; + t_object x_obj; t_symbol* x_variable_name; - t_outlet* x_data_outlet; + t_outlet* x_data_outlet; } t_unsetenv; /*------------------------------------------------------------------------------ @@ -53,46 +53,56 @@ static void unsetenv_bang(t_unsetenv* x) { - DEBUG(post("unsetenv_bang");); + DEBUG(post("unsetenv_bang");); +#ifdef _WIN32 if(x->x_variable_name != &s_) + { + char buf[MAXPDSTRING]; + strncpy(buf, x->x_variable_name->s_name, MAXPDSTRING - 1); + strcat(buf, "="); + putenv(buf); + } +#else + if(x->x_variable_name != &s_) unsetenv(x->x_variable_name->s_name); +#endif } static void unsetenv_symbol(t_unsetenv* x, t_symbol *s) { - DEBUG(post("unsetenv_bang");); + DEBUG(post("unsetenv_bang");); x->x_variable_name = s; } static void *unsetenv_new(t_symbol* s) { - DEBUG(post("unsetenv_new");); - t_unsetenv *x = (t_unsetenv *)pd_new(unsetenv_class); + DEBUG(post("unsetenv_new");); + t_unsetenv *x = (t_unsetenv *)pd_new(unsetenv_class); symbolinlet_new(&x->x_obj, &x->x_variable_name); x->x_variable_name = s; - return (x); + return (x); } void unsetenv_setup(void) { - DEBUG(post("unsetenv_setup");); - unsetenv_class = class_new(gensym("unsetenv"), + DEBUG(post("unsetenv_setup");); + unsetenv_class = class_new(gensym("unsetenv"), (t_newmethod)unsetenv_new, 0, sizeof(t_unsetenv), 0, A_DEFSYMBOL, 0); - /* add inlet datatype methods */ - class_addbang(unsetenv_class, (t_method)unsetenv_bang); - class_addsymbol(unsetenv_class, (t_method)unsetenv_symbol); + /* add inlet datatype methods */ + class_addbang(unsetenv_class, (t_method)unsetenv_bang); + class_addsymbol(unsetenv_class, (t_method)unsetenv_symbol); } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

← Newer
1
...
10
11
12
13
14
15
16
...
28
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs May 2008