Pd-cvs November 2008

pd-cvs@lists.iem.at

13 participants
111 discussions

SF.net SVN: pure-data:[10390] trunk/externals/iem/iemguts/src
by zmoelnig＠users.sourceforge.net 26 Nov '08

26 Nov '08

Revision: 10390 http://pure-data.svn.sourceforge.net/pure-data/?rev=10390&view=rev Author: zmoelnig Date: 2008-11-26 11:13:07 +0000 (Wed, 26 Nov 2008) Log Message: ----------- moved general functions into a header-file for reusability Modified Paths: -------------- trunk/externals/iem/iemguts/src/savebangs.c Added Paths: ----------- trunk/externals/iem/iemguts/src/iemguts-objlist.h Added: trunk/externals/iem/iemguts/src/iemguts-objlist.h =================================================================== --- trunk/externals/iem/iemguts/src/iemguts-objlist.h (rev 0) +++ trunk/externals/iem/iemguts/src/iemguts-objlist.h 2008-11-26 11:13:07 UTC (rev 10390) @@ -0,0 +1,153 @@ +/****************************************************** + * + * iemguts - implementation file + * + * copyleft (c) IOhannes m zm\xF6lnig + * + * 2008:forum::f\xFCr::uml\xE4ute:2008 + * + * institute of electronic music and acoustics (iem) + * + ****************************************************** + * + * license: GNU General Public License v.2 + * + ******************************************************/ + +/* this file implements some helperr functions for dealing with lists of + * objects (containing other objects) + * + * used for callbacks to enumerated objects without $0 tricks + */ + +/* + * TODO: documentation + */ + +#include "m_pd.h" + + +/* ------------------------- helper methods for callbacks ---------------------------- */ + +typedef struct _iemguts_objlist { + const t_pd*obj; + struct _iemguts_objlist*next; +} t_iemguts_objlist; + +typedef struct _iemguts_canvaslist { + const t_pd*parent; + t_iemguts_objlist*obj; + + struct _iemguts_canvaslist*next; +} t_iemguts_canvaslist; + +static t_iemguts_canvaslist*s_canvaslist=0; + + +static t_iemguts_canvaslist*findCanvas(const t_pd*parent) { + t_iemguts_canvaslist*list=s_canvaslist; + if(0==parent || 0==list) + return 0; + + for(list=s_canvaslist; list; list=list->next) { + if(parent == list->parent) { + return list; + } + } + return 0; +} + +static t_iemguts_canvaslist*addCanvas(const t_pd*parent) +{ + t_iemguts_canvaslist*list=findCanvas(parent); + if(!list) { + list=(t_iemguts_canvaslist*)getbytes(sizeof(t_iemguts_canvaslist)); + list->parent=parent; + list->obj=0; + list->next=0; + + if(0==s_canvaslist) { + /* new list */ + s_canvaslist=list; + } else { + /* add to the end of existing list */ + t_iemguts_canvaslist*dummy=s_canvaslist; + while(dummy->next) + dummy=dummy->next; + dummy->next = list; + } + } + return list; +} + +static t_iemguts_objlist*objectsInCanvas(const t_pd*parent) { + t_iemguts_canvaslist*list=findCanvas(parent); + if(list) + return list->obj; + + return 0; +} + +static void addObjectToCanvas(const t_pd*parent, const t_pd*obj) { + t_iemguts_canvaslist*p=addCanvas(parent); + t_iemguts_objlist*list=0; + t_iemguts_objlist*entry=0; + if(!p || !obj) + return; + list=p->obj; + + if(list&&obj==list->obj) + return; + + while(list && list->next) { + if(obj==list->obj) /* obj already in list */ + return; + list=list->next; + } + + /* we are at the end of the list that does not contain obj yet, so add it */ + entry=(t_iemguts_objlist*)getbytes(sizeof(t_iemguts_objlist)); + entry->obj=obj; + entry->next=0; + if(list) { + list->next=entry; + } else { + p->obj=entry; + } +} + +static void removeObjectFromCanvas(const t_pd*parent, const t_pd*obj) { + t_iemguts_canvaslist*p=findCanvas(parent); + t_iemguts_objlist*list=0, *last=0, *next=0; + if(!p || !obj)return; + list=p->obj; + if(!list) + return; + + while(list && obj!=list->obj) { + last=list; + list=list->next; + } + + if(!list) /* couldn't find this object */ + return; + + next=list->next; + + if(last) + last->next=next; + else + p->obj=next; + + freebytes((void*)list, sizeof(t_iemguts_objlist)); + list=0; +} + +static void removeObjectFromCanvases(const t_pd*obj) { + t_iemguts_canvaslist*parents=s_canvaslist; + + while(parents) { + removeObjectFromCanvas(parents->parent, obj); + parents=parents->next; + } +} Modified: trunk/externals/iem/iemguts/src/savebangs.c =================================================================== --- trunk/externals/iem/iemguts/src/savebangs.c 2008-11-26 09:51:01 UTC (rev 10389) +++ trunk/externals/iem/iemguts/src/savebangs.c 2008-11-26 11:13:07 UTC (rev 10390) @@ -33,134 +33,10 @@ * else we get weird duplicates (most likely due to the "$0" trick */ -#include "m_pd.h" +#include "iemguts-objlist.h" #include "g_canvas.h" -/* ------------------------- helper methods for callbacks ---------------------------- */ -typedef struct _savebangs_objlist { - const t_pd*obj; - struct _savebangs_objlist*next; -} t_savebangs_objlist; -typedef struct _savebangs_canvaslist { - const t_pd*parent; - t_savebangs_objlist*obj; - - struct _savebangs_canvaslist*next; -} t_savebangs_canvaslist; - -static t_savebangs_canvaslist*s_canvaslist=0; - - -static t_savebangs_canvaslist*findCanvas(const t_pd*parent) { - t_savebangs_canvaslist*list=s_canvaslist; - if(0==parent || 0==list) - return 0; - - for(list=s_canvaslist; list; list=list->next) { - if(parent == list->parent) { - return list; - } - } - return 0; -} - -static t_savebangs_canvaslist*addCanvas(const t_pd*parent) -{ - t_savebangs_canvaslist*list=findCanvas(parent); - if(!list) { - list=(t_savebangs_canvaslist*)getbytes(sizeof(t_savebangs_canvaslist)); - list->parent=parent; - list->obj=0; - list->next=0; - - if(0==s_canvaslist) { - /* new list */ - s_canvaslist=list; - } else { - /* add to the end of existing list */ - t_savebangs_canvaslist*dummy=s_canvaslist; - while(dummy->next) - dummy=dummy->next; - dummy->next = list; - } - } - return list; -} - -static t_savebangs_objlist*objectsInCanvas(const t_pd*parent) { - t_savebangs_canvaslist*list=findCanvas(parent); - if(list) - return list->obj; - - return 0; -} - -static void addObjectToCanvas(const t_pd*parent, const t_pd*obj) { - t_savebangs_canvaslist*p=addCanvas(parent); - t_savebangs_objlist*list=0; - t_savebangs_objlist*entry=0; - if(!p || !obj) - return; - list=p->obj; - - if(list&&obj==list->obj) - return; - - while(list && list->next) { - if(obj==list->obj) /* obj already in list */ - return; - list=list->next; - } - - /* we are at the end of the list that does not contain obj yet, so add it */ - entry=(t_savebangs_objlist*)getbytes(sizeof(t_savebangs_objlist)); - entry->obj=obj; - entry->next=0; - if(list) { - list->next=entry; - } else { - p->obj=entry; - } -} - -static void removeObjectFromCanvas(const t_pd*parent, const t_pd*obj) { - t_savebangs_canvaslist*p=findCanvas(parent); - t_savebangs_objlist*list=0, *last=0, *next=0; - if(!p || !obj)return; - list=p->obj; - if(!list) - return; - - while(list && obj!=list->obj) { - last=list; - list=list->next; - } - - if(!list) /* couldn't find this object */ - return; - - next=list->next; - - if(last) - last->next=next; - else - p->obj=next; - - freebytes((void*)list, sizeof(t_savebangs_objlist)); - list=0; -} - -static void removeObjectFromCanvases(const t_pd*obj) { - t_savebangs_canvaslist*parents=s_canvaslist; - - while(parents) { - removeObjectFromCanvas(parents->parent, obj); - parents=parents->next; - } -} - - /* ------------------------- helper methods for savefunctions ---------------------------- */ typedef struct _savefuns { @@ -218,12 +94,12 @@ } } -static void savebangs_bangem(t_savebangs_objlist*objs, int pst); +static void savebangs_bangem(t_iemguts_objlist*objs, int pst); static void savebangs_savefn(t_gobj*z, t_binbuf*b) { /* z is the parent abstraction; - * we maintain a list of all [savebangs] within such each parent, in order to call all of them + * we maintain a list of all [savebangs] within such each parent, in order to call all of them */ - t_savebangs_objlist*obj=objectsInCanvas((t_pd*)z); + t_iemguts_objlist*obj=objectsInCanvas((t_pd*)z); savebangs_bangem(obj, 0); orig_savefn(z, b); savebangs_bangem(obj, 1); @@ -249,7 +125,7 @@ outlet_bang(x->x_post); } -static void savebangs_bangem(t_savebangs_objlist*objs, int pst) { +static void savebangs_bangem(t_iemguts_objlist*objs, int pst) { while(objs) { t_savebangs*x=(t_savebangs*)objs->obj; savebangs_bangs(x, pst); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended fedora8-i386 2008-11-26 04.31.04
by pd＠fedora8-i386.idmi.poly.edu 26 Nov '08

26 Nov '08

atom_alphabet.c:137: error: 'gfsmPdAtomAlphabet' has no member named 'aa_binbuf' atom_alphabet.c:137: error: 'gfsmPdAtomAlphabet' has no member named 'aa_binbuf' atom_alphabet.c:138: error: 'gfsmAlphabet' undeclared (first use in this function) atom_alphabet.c:138: error: expected expression before ')' token readdir.c:244: error: 'PACKAGE_VERSION' undeclared (first use in this function) readdir.c:244: error: (Each undeclared identifier is reported only once readdir.c:244: error: for each function it appears in.) weightmap.c:345: error: 'PACKAGE_VERSION' undeclared (first use in this function) weightmap.c:345: error: (Each undeclared identifier is reported only once weightmap.c:345: error: for each function it appears in.) pdstring.c:41: error: expected ',' or ';' before 'PACKAGE_VERSION' any2string.c:76: error: expected ',' or ';' before 'PACKAGE_VERSION' string2any.c:59: error: expected ',' or ';' before 'PACKAGE_VERSION' sprinkler.c:175: error: 'PACKAGE_VERSION' undeclared (first use in this function) sprinkler.c:175: error: (Each undeclared identifier is reported only once sprinkler.c:175: error: for each function it appears in.) configure: error: libquicktime not found ERROR: module is write only rsync error: syntax or usage error (code 1) at main.c(641) [sender=2.6.9] rsync error: error in rsync protocol data stream (code 12) at io.c(453) [receiver=2.6.9] the full logfile - if it has been succesfully uploaded - can be viewed at: http://autobuild.puredata.info/auto-build/2008-11-26/logs/2008-11-26_04.31.…

1 0

SF.net SVN: pure-data:[10389] trunk/externals/iem/iemguts/src/savebangs.c
by zmoelnig＠users.sourceforge.net 26 Nov '08

26 Nov '08

Revision: 10389 http://pure-data.svn.sourceforge.net/pure-data/?rev=10389&view=rev Author: zmoelnig Date: 2008-11-26 09:51:01 +0000 (Wed, 26 Nov 2008) Log Message: ----------- a version that does not depend on the $0-trick Modified Paths: -------------- trunk/externals/iem/iemguts/src/savebangs.c Modified: trunk/externals/iem/iemguts/src/savebangs.c =================================================================== --- trunk/externals/iem/iemguts/src/savebangs.c 2008-11-26 08:20:57 UTC (rev 10388) +++ trunk/externals/iem/iemguts/src/savebangs.c 2008-11-26 09:51:01 UTC (rev 10389) @@ -31,20 +31,138 @@ * TODO: how does this behave in sub-patches? * -> BUG: the depth should _really_ refer to the abstraction-depth * else we get weird duplicates (most likely due to the "$0" trick - * - * TODO: make [savebangs] do something on top-level - * that is: if the patch the [savebangs] is in gets saved, [savebangs] will fire - * think (a little) about how the args to savebang have to look like to make it compatible with the [canvas*] stiff - * - * TODO: maintain our own list of [savebangs] to be called per abstraction rather than using the $0-trick */ #include "m_pd.h" #include "g_canvas.h" -/* ------------------------- help methods ---------------------------- */ +/* ------------------------- helper methods for callbacks ---------------------------- */ +typedef struct _savebangs_objlist { + const t_pd*obj; + struct _savebangs_objlist*next; +} t_savebangs_objlist; +typedef struct _savebangs_canvaslist { + const t_pd*parent; + t_savebangs_objlist*obj; + struct _savebangs_canvaslist*next; +} t_savebangs_canvaslist; + +static t_savebangs_canvaslist*s_canvaslist=0; + + +static t_savebangs_canvaslist*findCanvas(const t_pd*parent) { + t_savebangs_canvaslist*list=s_canvaslist; + if(0==parent || 0==list) + return 0; + + for(list=s_canvaslist; list; list=list->next) { + if(parent == list->parent) { + return list; + } + } + return 0; +} + +static t_savebangs_canvaslist*addCanvas(const t_pd*parent) +{ + t_savebangs_canvaslist*list=findCanvas(parent); + if(!list) { + list=(t_savebangs_canvaslist*)getbytes(sizeof(t_savebangs_canvaslist)); + list->parent=parent; + list->obj=0; + list->next=0; + + if(0==s_canvaslist) { + /* new list */ + s_canvaslist=list; + } else { + /* add to the end of existing list */ + t_savebangs_canvaslist*dummy=s_canvaslist; + while(dummy->next) + dummy=dummy->next; + dummy->next = list; + } + } + return list; +} + +static t_savebangs_objlist*objectsInCanvas(const t_pd*parent) { + t_savebangs_canvaslist*list=findCanvas(parent); + if(list) + return list->obj; + + return 0; +} + +static void addObjectToCanvas(const t_pd*parent, const t_pd*obj) { + t_savebangs_canvaslist*p=addCanvas(parent); + t_savebangs_objlist*list=0; + t_savebangs_objlist*entry=0; + if(!p || !obj) + return; + list=p->obj; + + if(list&&obj==list->obj) + return; + + while(list && list->next) { + if(obj==list->obj) /* obj already in list */ + return; + list=list->next; + } + + /* we are at the end of the list that does not contain obj yet, so add it */ + entry=(t_savebangs_objlist*)getbytes(sizeof(t_savebangs_objlist)); + entry->obj=obj; + entry->next=0; + if(list) { + list->next=entry; + } else { + p->obj=entry; + } +} + +static void removeObjectFromCanvas(const t_pd*parent, const t_pd*obj) { + t_savebangs_canvaslist*p=findCanvas(parent); + t_savebangs_objlist*list=0, *last=0, *next=0; + if(!p || !obj)return; + list=p->obj; + if(!list) + return; + + while(list && obj!=list->obj) { + last=list; + list=list->next; + } + + if(!list) /* couldn't find this object */ + return; + + next=list->next; + + if(last) + last->next=next; + else + p->obj=next; + + freebytes((void*)list, sizeof(t_savebangs_objlist)); + list=0; +} + +static void removeObjectFromCanvases(const t_pd*obj) { + t_savebangs_canvaslist*parents=s_canvaslist; + + while(parents) { + removeObjectFromCanvas(parents->parent, obj); + parents=parents->next; + } +} + + +/* ------------------------- helper methods for savefunctions ---------------------------- */ + typedef struct _savefuns { t_class*class; t_savefn savefn; @@ -89,8 +207,28 @@ } } +/* ------------------------- savefunctions ---------------------------- */ +static void orig_savefn(t_gobj*z, t_binbuf*b) +{ + t_class*class=z->g_pd; + t_savefn savefn=find_savefn(class); + if(savefn) { + savefn(z, b); + } +} +static void savebangs_bangem(t_savebangs_objlist*objs, int pst); +static void savebangs_savefn(t_gobj*z, t_binbuf*b) { + /* z is the parent abstraction; + * we maintain a list of all [savebangs] within such each parent, in order to call all of them + */ + t_savebangs_objlist*obj=objectsInCanvas((t_pd*)z); + savebangs_bangem(obj, 0); + orig_savefn(z, b); + savebangs_bangem(obj, 1); +} + /* ------------------------- savebangs ---------------------------- */ static t_class *savebangs_class; @@ -98,66 +236,33 @@ typedef struct _savebangs { t_object x_obj; - - t_symbol *x_d0; t_outlet *x_pre, *x_post; - - t_savefn x_parentsavefn; + t_canvas *x_parent; } t_savebangs; -static void savebangs_free(t_savebangs *x) +static void savebangs_bangs(t_savebangs*x, int pst) { - /* unpatch the parent canvas */ - if(x->x_d0) { - pd_unbind(&x->x_obj.ob_pd, x->x_d0); - } + if(!pst) + outlet_bang(x->x_pre); + else + outlet_bang(x->x_post); } -static void orig_savefn(t_gobj*z, t_binbuf*b) -{ - t_class*class=z->g_pd; - t_savefn savefn=find_savefn(class); - if(savefn) { - savefn(z, b); - } -} - -static void savebangs_savefn(t_gobj*z, t_binbuf*b) { - /* argh: z is the abstraction! but we need to access ourselfs! - * we handle this by binding to a special symbol. e.g. "$0 savebangs" - * (we use the space between in order to make it hard for the ordinary user - * to use this symbol for other things... - */ - - /* alternatively we could just search the abstraction for all instances of savebangs_class - * and bang these; - * but using the pd_bind-trick is simpler for now - * though not as sweet, as somebody could use our bind-symbol for other things... - */ - - t_symbol*s_d0=canvas_realizedollar((t_canvas*)z, gensym("$0 savebangs")); - t_atom ap[2]; - SETPOINTER(ap+0, (t_gpointer*)z); - SETPOINTER(ap+1, (t_gpointer*)b); - - if(s_d0->s_thing) { - pd_list(s_d0->s_thing, &s_list, 2, ap); - } else { - orig_savefn(z, b); +static void savebangs_bangem(t_savebangs_objlist*objs, int pst) { + while(objs) { + t_savebangs*x=(t_savebangs*)objs->obj; + savebangs_bangs(x, pst); + objs=objs->next; } } -static void savebangs_list(t_savebangs *x, t_symbol*s, int argc, t_atom*argv) -{ - if(argv[0].a_type == A_POINTER && argv[1].a_type == A_POINTER) { - t_gobj *z =(t_gobj*) argv[0].a_w.w_gpointer; - t_binbuf*b =(t_binbuf*)argv[1].a_w.w_gpointer; - - outlet_bang(x->x_pre); - orig_savefn(z, b); - outlet_bang(x->x_post); - } +static void savebangs_mysavefn(t_gobj*z, t_binbuf*b) { + t_savebangs*x=(t_savebangs*)z; + int doit=(!x->x_parent); + if(doit)savebangs_bangs(x, 0); + orig_savefn(z, b); + if(doit)savebangs_bangs(x, 1); } static void *savebangs_new(t_floatarg f) @@ -167,35 +272,44 @@ t_canvas *canvas=(t_canvas*)glist_getcanvas(glist); t_class *class = 0; - int depth=(int)f; if(depth<0)depth=0; - while(depth && canvas) { - canvas=canvas->gl_owner; + if(depth) { depth--; - } - - if(canvas) { - class=((t_gobj*)canvas)->g_pd; - x->x_d0=canvas_realizedollar(canvas, gensym("$0 savebangs")); - pd_bind(&x->x_obj.ob_pd, x->x_d0); + while(depth && canvas) { + canvas=canvas->gl_owner; + depth--; + } - add_savefn(class); - class_setsavefn(class, savebangs_savefn); - } else { - x->x_d0=0; + if(canvas) { + class=((t_gobj*)canvas)->g_pd; + add_savefn(class); + class_setsavefn(class, savebangs_savefn); + + x->x_parent=canvas; + } else { + x->x_parent=0; + } + + addObjectToCanvas((t_pd*)canvas, (t_pd*)x); } + x->x_post=outlet_new(&x->x_obj, &s_bang); x->x_pre=outlet_new(&x->x_obj, &s_bang); - x->x_post=outlet_new(&x->x_obj, &s_bang); return (x); } +static void savebangs_free(t_savebangs *x) +{ + /* unpatch the parent canvas */ + removeObjectFromCanvases((t_pd*)x); +} void savebangs_setup(void) { savebangs_class = class_new(gensym("savebangs"), (t_newmethod)savebangs_new, (t_method)savebangs_free, sizeof(t_savebangs), CLASS_NOINLET, A_DEFFLOAT, 0); - class_addlist(savebangs_class, savebangs_list); + add_savefn(savebangs_class); + class_setsavefn(savebangs_class, savebangs_mysavefn); } 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:[10388] trunk/externals/iem/iemguts/src/savebangs.c
by zmoelnig＠users.sourceforge.net 26 Nov '08

26 Nov '08

Revision: 10388 http://pure-data.svn.sourceforge.net/pure-data/?rev=10388&view=rev Author: zmoelnig Date: 2008-11-26 08:20:57 +0000 (Wed, 26 Nov 2008) Log Message: ----------- more TODO Modified Paths: -------------- trunk/externals/iem/iemguts/src/savebangs.c Modified: trunk/externals/iem/iemguts/src/savebangs.c =================================================================== --- trunk/externals/iem/iemguts/src/savebangs.c 2008-11-25 18:43:04 UTC (rev 10387) +++ trunk/externals/iem/iemguts/src/savebangs.c 2008-11-26 08:20:57 UTC (rev 10388) @@ -3,9 +3,9 @@ * * propertybang - implementation file * - * copyleft (c) IOhannes m zm-b\xF6lnig-A + * copyleft (c) IOhannes m zm\xF6lnig * - * 2007:forum::f-b\xFCr::uml\xE4ute:2007-A + * 2007:forum::f\xFCr::uml\xE4ute:2007 * * institute of electronic music and acoustics (iem) * @@ -31,6 +31,12 @@ * TODO: how does this behave in sub-patches? * -> BUG: the depth should _really_ refer to the abstraction-depth * else we get weird duplicates (most likely due to the "$0" trick + * + * TODO: make [savebangs] do something on top-level + * that is: if the patch the [savebangs] is in gets saved, [savebangs] will fire + * think (a little) about how the args to savebang have to look like to make it compatible with the [canvas*] stiff + * + * TODO: maintain our own list of [savebangs] to be called per abstraction rather than using the $0-trick */ #include "m_pd.h" @@ -169,12 +175,12 @@ canvas=canvas->gl_owner; depth--; } - + if(canvas) { class=((t_gobj*)canvas)->g_pd; x->x_d0=canvas_realizedollar(canvas, gensym("$0 savebangs")); pd_bind(&x->x_obj.ob_pd, x->x_d0); - + add_savefn(class); class_setsavefn(class, savebangs_savefn); } else { 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:[10387] trunk/externals/iem/iemguts/src/savebangs.c
by zmoelnig＠users.sourceforge.net 25 Nov '08

25 Nov '08

Revision: 10387 http://pure-data.svn.sourceforge.net/pure-data/?rev=10387&view=rev Author: zmoelnig Date: 2008-11-25 18:43:04 +0000 (Tue, 25 Nov 2008) Log Message: ----------- added TODO/BUG Modified Paths: -------------- trunk/externals/iem/iemguts/src/savebangs.c Modified: trunk/externals/iem/iemguts/src/savebangs.c =================================================================== --- trunk/externals/iem/iemguts/src/savebangs.c 2008-11-25 18:37:19 UTC (rev 10386) +++ trunk/externals/iem/iemguts/src/savebangs.c 2008-11-25 18:43:04 UTC (rev 10387) @@ -27,6 +27,12 @@ * on call: we call the parents savefunction and output bangs */ +/* + * TODO: how does this behave in sub-patches? + * -> BUG: the depth should _really_ refer to the abstraction-depth + * else we get weird duplicates (most likely due to the "$0" trick + */ + #include "m_pd.h" #include "g_canvas.h" 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:[10386] trunk/externals/iem/iemguts/src/savebangs.c
by zmoelnig＠users.sourceforge.net 25 Nov '08

25 Nov '08

Revision: 10386 http://pure-data.svn.sourceforge.net/pure-data/?rev=10386&view=rev Author: zmoelnig Date: 2008-11-25 18:37:19 +0000 (Tue, 25 Nov 2008) Log Message: ----------- an externals that outputs a pre- and a post- bang when the containing abstraction is "saved" Added Paths: ----------- trunk/externals/iem/iemguts/src/savebangs.c Added: trunk/externals/iem/iemguts/src/savebangs.c =================================================================== --- trunk/externals/iem/iemguts/src/savebangs.c (rev 0) +++ trunk/externals/iem/iemguts/src/savebangs.c 2008-11-25 18:37:19 UTC (rev 10386) @@ -0,0 +1,189 @@ + +/****************************************************** + * + * propertybang - implementation file + * + * copyleft (c) IOhannes m zm-b\xF6lnig-A + * + * 2007:forum::f-b\xFCr::uml\xE4ute:2007-A + * + * institute of electronic music and acoustics (iem) + * + ****************************************************** + * + * license: GNU General Public License v.2 + * + ******************************************************/ + + +/* + * this object outputs a bang when the savfn of the parent abstraction is called + */ + +/* + * LATER sketch: + * monkey-patching the parent canvas so that stores a local function table + * then modify this function-table so that the savefn points to us + * on call: we call the parents savefunction and output bangs + */ + +#include "m_pd.h" +#include "g_canvas.h" + +/* ------------------------- help methods ---------------------------- */ + + +typedef struct _savefuns { + t_class*class; + t_savefn savefn; + + struct _savefuns *next; +} t_savefuns; + +static t_savefuns*s_savefuns=0; + + +static t_savefn find_savefn(const t_class*class) +{ + t_savefuns*fun=s_savefuns; + if(0==s_savefuns || 0==class) + return 0; + for(fun=s_savefuns; fun; fun=fun->next) { + if(class == fun->class) { + return fun->savefn; + } + } + + return 0; +} +static void add_savefn(t_class*class) +{ + if(0!=find_savefn(class)) { + return; + } else { + t_savefuns*sfun=(t_savefuns*)getbytes(sizeof(t_savefuns)); + sfun->class=class; + sfun->savefn=class_getsavefn(class); + sfun->next=0; + + if(0==s_savefuns) { + s_savefuns=sfun; + } else { + t_savefuns*sfp=s_savefuns; + while(sfp->next) + sfp=sfp->next; + sfp->next = sfun; + } + } +} + + + +/* ------------------------- savebangs ---------------------------- */ + +static t_class *savebangs_class; + +typedef struct _savebangs +{ + t_object x_obj; + + t_symbol *x_d0; + t_outlet *x_pre, *x_post; + + t_savefn x_parentsavefn; +} t_savebangs; + + +static void savebangs_free(t_savebangs *x) +{ + /* unpatch the parent canvas */ + if(x->x_d0) { + pd_unbind(&x->x_obj.ob_pd, x->x_d0); + } +} + +static void orig_savefn(t_gobj*z, t_binbuf*b) +{ + t_class*class=z->g_pd; + t_savefn savefn=find_savefn(class); + if(savefn) { + savefn(z, b); + } +} + +static void savebangs_savefn(t_gobj*z, t_binbuf*b) { + /* argh: z is the abstraction! but we need to access ourselfs! + * we handle this by binding to a special symbol. e.g. "$0 savebangs" + * (we use the space between in order to make it hard for the ordinary user + * to use this symbol for other things... + */ + + /* alternatively we could just search the abstraction for all instances of savebangs_class + * and bang these; + * but using the pd_bind-trick is simpler for now + * though not as sweet, as somebody could use our bind-symbol for other things... + */ + + t_symbol*s_d0=canvas_realizedollar((t_canvas*)z, gensym("$0 savebangs")); + t_atom ap[2]; + SETPOINTER(ap+0, (t_gpointer*)z); + SETPOINTER(ap+1, (t_gpointer*)b); + + if(s_d0->s_thing) { + pd_list(s_d0->s_thing, &s_list, 2, ap); + } else { + orig_savefn(z, b); + } +} + +static void savebangs_list(t_savebangs *x, t_symbol*s, int argc, t_atom*argv) +{ + if(argv[0].a_type == A_POINTER && argv[1].a_type == A_POINTER) { + t_gobj *z =(t_gobj*) argv[0].a_w.w_gpointer; + t_binbuf*b =(t_binbuf*)argv[1].a_w.w_gpointer; + + outlet_bang(x->x_pre); + orig_savefn(z, b); + outlet_bang(x->x_post); + } +} + +static void *savebangs_new(t_floatarg f) +{ + t_savebangs *x = (t_savebangs *)pd_new(savebangs_class); + t_glist *glist=(t_glist *)canvas_getcurrent(); + t_canvas *canvas=(t_canvas*)glist_getcanvas(glist); + t_class *class = 0; + + + int depth=(int)f; + if(depth<0)depth=0; + + while(depth && canvas) { + canvas=canvas->gl_owner; + depth--; + } + + if(canvas) { + class=((t_gobj*)canvas)->g_pd; + x->x_d0=canvas_realizedollar(canvas, gensym("$0 savebangs")); + pd_bind(&x->x_obj.ob_pd, x->x_d0); + + add_savefn(class); + class_setsavefn(class, savebangs_savefn); + } else { + x->x_d0=0; + } + + x->x_pre=outlet_new(&x->x_obj, &s_bang); + x->x_post=outlet_new(&x->x_obj, &s_bang); + + return (x); +} + +void savebangs_setup(void) +{ + savebangs_class = class_new(gensym("savebangs"), (t_newmethod)savebangs_new, + (t_method)savebangs_free, sizeof(t_savebangs), CLASS_NOINLET, A_DEFFLOAT, 0); + class_addlist(savebangs_class, savebangs_list); +} 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:[10385] trunk/externals/iem/iemguts/src/ autoabstraction.c
by zmoelnig＠users.sourceforge.net 25 Nov '08

25 Nov '08

Revision: 10385 http://pure-data.svn.sourceforge.net/pure-data/?rev=10385&view=rev Author: zmoelnig Date: 2008-11-25 18:36:04 +0000 (Tue, 25 Nov 2008) Log Message: ----------- now the template-file can be specified as an argument to [autoabstraction] Modified Paths: -------------- trunk/externals/iem/iemguts/src/autoabstraction.c Modified: trunk/externals/iem/iemguts/src/autoabstraction.c =================================================================== --- trunk/externals/iem/iemguts/src/autoabstraction.c 2008-11-25 11:34:13 UTC (rev 10384) +++ trunk/externals/iem/iemguts/src/autoabstraction.c 2008-11-25 18:36:04 UTC (rev 10385) @@ -43,33 +43,35 @@ #if (PD_MINOR_VERSION >= 40) +# define AUTOABSTRACTION_ENABLED +#endif -#include "s_stuff.h" -#include "g_canvas.h" -#include <stdio.h> -#include <string.h> -#include <unistd.h> +#ifdef AUTOABSTRACTION_ENABLED -#ifdef UNISTD -# include <stdlib.h> +# include "s_stuff.h" +# include "g_canvas.h" +# include <stdio.h> +# include <string.h> # include <unistd.h> -#endif -#ifdef _WIN32 -# include <io.h> -# include <windows.h> -#endif -#ifdef MISSING_LOADER_T +# ifdef UNISTD +# include <stdlib.h> +# include <unistd.h> +# endif +# ifdef _WIN32 +# include <io.h> +# include <windows.h> +# endif + +# ifdef MISSING_LOADER_T /* definitions taken from s_loader.c, since they weren't in header orignally */ typedef int (*loader_t)(t_canvas *canvas, char *classname); void sys_register_loader(loader_t loader); void class_set_extern_dir(t_symbol *s); -#endif +# endif - static t_binbuf*s_bb=0; - static void autoabstraction_save(t_canvas*canvas, char*classname) { if(!s_state) { /* autoabstraction turned off... */ @@ -115,6 +117,9 @@ static void autoabstraction_initialize(void) { + if(s_bb) + binbuf_free(s_bb); + s_bb=binbuf_new(); /* try to read a template file */ @@ -126,9 +131,8 @@ } s_state=1; } +#endif /* AUTOABSTRACTION_ENABLED */ -#endif /* PD_MINOR_VERSION >= 40 */ - static void autoabstraction_state(t_autoabstraction*x, t_floatarg f) { int state=(int)(f>=1.0); @@ -138,6 +142,16 @@ static void*autoabstraction_new(t_symbol *s, int argc, t_atom *argv) { t_autoabstraction*x = (t_autoabstraction*)pd_new(autoabstraction_class); + + if(argc&&A_SYMBOL==argv->a_type) { + s_templatefilename=atom_getsymbol(argv)->s_name; + } + +#ifdef AUTOABSTRACTION_ENABLED + autoabstraction_initialize(); +#endif /* AUTOABSTRACTION_ENABLED */ + + return (x); } @@ -148,8 +162,7 @@ post("\twritten by IOhannes m zmoelnig, IEM <zmoelnig(a)iem.at>"); post("\tcompiled on "__DATE__" at "__TIME__ " "); post("\tcompiled against Pd version %d.%d.%d.%s", PD_MAJOR_VERSION, PD_MINOR_VERSION, PD_BUGFIX_VERSION, PD_TEST_VERSION); - -#if (PD_MINOR_VERSION >= 40) +#ifdef AUTOABSTRACTION_ENABLED autoabstraction_initialize(); sys_register_loader(autoabstraction_loader); #else @@ -157,6 +170,6 @@ error("\tor a version that has sys_register_loader()"); #endif - autoabstraction_class = class_new(gensym("autoabstraction"), (t_newmethod)autoabstraction_new, 0, sizeof(t_autoabstraction), 0, A_NULL, 0); + autoabstraction_class = class_new(gensym("autoabstraction"), (t_newmethod)autoabstraction_new, 0, sizeof(t_autoabstraction), 0, A_GIMME, 0); class_addfloat(autoabstraction_class, (t_method)autoabstraction_state); } 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:[10384] trunk/abstractions/sfruit/sfruit
by lukeiannini＠users.sourceforge.net 25 Nov '08

25 Nov '08

Revision: 10384 http://pure-data.svn.sourceforge.net/pure-data/?rev=10384&view=rev Author: lukeiannini Date: 2008-11-25 11:34:13 +0000 (Tue, 25 Nov 2008) Log Message: ----------- started library of objects to conveniently enable and disable gui en masse since it is such a massive performance elephant Modified Paths: -------------- trunk/abstractions/sfruit/sfruit/oscoutify.pd Added Paths: ----------- trunk/abstractions/sfruit/sfruit/gui-spigot.pd trunk/abstractions/sfruit/sfruit/gui-update.pd Added: trunk/abstractions/sfruit/sfruit/gui-spigot.pd =================================================================== --- trunk/abstractions/sfruit/sfruit/gui-spigot.pd (rev 0) +++ trunk/abstractions/sfruit/sfruit/gui-spigot.pd 2008-11-25 11:34:13 UTC (rev 10384) @@ -0,0 +1,8 @@ +#N canvas 281 332 308 216 10; +#X obj 86 64 inlet; +#X obj 86 94 spigot 1; +#X obj 131 64 r GUI_UPDATE; +#X obj 86 119 outlet; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 2 0 1 1; Added: trunk/abstractions/sfruit/sfruit/gui-update.pd =================================================================== --- trunk/abstractions/sfruit/sfruit/gui-update.pd (rev 0) +++ trunk/abstractions/sfruit/sfruit/gui-update.pd 2008-11-25 11:34:13 UTC (rev 10384) @@ -0,0 +1,6 @@ +#N canvas 367 554 450 300 10; +#X obj 78 94 tgl 42 0 \$0.GUI?.s \$0.GUI?.r G 8 22 0 40 -260097 -159788 +-1 0 1; +#X obj 105 168 s GUI_UPDATE; +#X connect 0 0 1 0; +#X coords 0 -1 1 1 44 44 2 77 93; Modified: trunk/abstractions/sfruit/sfruit/oscoutify.pd =================================================================== --- trunk/abstractions/sfruit/sfruit/oscoutify.pd 2008-11-25 10:10:43 UTC (rev 10383) +++ trunk/abstractions/sfruit/sfruit/oscoutify.pd 2008-11-25 11:34:13 UTC (rev 10384) @@ -3,6 +3,8 @@ #X obj 21 31 r \$2; #X obj 21 55 list prepend \$1; #X obj 21 0 inlet; +#X obj 108 1 inlet; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 2 0; +#X connect 4 0 2 1; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended fedora8-i386 2008-11-25 04.30.39
by pd＠fedora8-i386.idmi.poly.edu 25 Nov '08

25 Nov '08

1 0

SF.net SVN: pure-data:[10383] trunk/externals/iem/iemguts/src/canvasname.c
by zmoelnig＠users.sourceforge.net 25 Nov '08

25 Nov '08

Revision: 10383 http://pure-data.svn.sourceforge.net/pure-data/?rev=10383&view=rev Author: zmoelnig Date: 2008-11-25 10:10:43 +0000 (Tue, 25 Nov 2008) Log Message: ----------- an object for getting and setting the name of (parent) abstractions Added Paths: ----------- trunk/externals/iem/iemguts/src/canvasname.c Added: trunk/externals/iem/iemguts/src/canvasname.c =================================================================== --- trunk/externals/iem/iemguts/src/canvasname.c (rev 0) +++ trunk/externals/iem/iemguts/src/canvasname.c 2008-11-25 10:10:43 UTC (rev 10383) @@ -0,0 +1,120 @@ + +/****************************************************** + * + * canvasname - implementation file + * + * copyleft (c) IOhannes m zm-b\xF6lnig-A + * + * 2007:forum::f-b\xFCr::uml\xE4ute:2007-A + * + * institute of electronic music and acoustics (iem) + * + ****************************************************** + * + * license: GNU General Public License v.2 + * + ******************************************************/ + + +/* + * this object provides a way to manipulate the parent-patches arguments (and name!) + * usage: + * + put this object into an abstraction + * + put the abstraction in a patch + * + send the object a _list_ of arguments + * + the next time the patch (wherein the abstraction that holds this object lives) + * is saved, it will be saved with the new arguments instead of the old ones! + * - example: "list 2 3 4" will save the object as [<absname> 2 3 4] + * + you can also change the abstraction name itself by using a selector other than "list" + * - example: "bonkers 8 9" will save the object as [bonkers 8 9] regardless of it's original name + * - use with care! + * + * nice, eh? + */ + +#include "m_pd.h" +#include "g_canvas.h" + + +/* ------------------------- canvasname ---------------------------- */ + +static t_class *canvasname_class; + +typedef struct _canvasname +{ + t_object x_obj; + + t_canvas *x_canvas; +} t_canvasname; + + +static void canvasname_bang(t_canvasname *x) +{ + t_canvas*c=x->x_canvas; + t_binbuf*b=0; + t_atom name[1]; + + if(!x->x_canvas) return; + b=x->x_canvas->gl_obj.te_binbuf; + if(b) { + /* get the binbufs atomlist */ + t_atom*ap=binbuf_getvec(b); + t_symbol*s=atom_getsymbol(ap); + outlet_symbol(x->x_obj.ob_outlet, s); + + return; + } else { + //post("empty binbuf for %x", x->x_canvas); + } +} + +static void canvasname_symbol(t_canvasname *x, t_symbol*s) +{ + t_canvas*c=x->x_canvas; + t_binbuf*b=0; + t_atom name[1]; + + if(!x->x_canvas) return; + b=x->x_canvas->gl_obj.te_binbuf; + + if(b) { + /* get the binbufs atomlist */ + t_atom*ap=binbuf_getvec(b); + + SETSYMBOL(ap, s); + return; + } +} + +static void canvasname_free(t_canvasname *x) +{ +} + +static void *canvasname_new(t_floatarg f) +{ + t_canvasname *x = (t_canvasname *)pd_new(canvasname_class); + t_glist *glist=(t_glist *)canvas_getcurrent(); + t_canvas *canvas=(t_canvas*)glist_getcanvas(glist); + + int depth=(int)f; + if(depth<0)depth=0; + + while(depth && canvas) { + canvas=canvas->gl_owner; + depth--; + } + + x->x_canvas = canvas; + + outlet_new(&x->x_obj, &s_symbol); + + return (x); +} + +void canvasname_setup(void) +{ + canvasname_class = class_new(gensym("canvasname"), (t_newmethod)canvasname_new, + (t_method)canvasname_free, sizeof(t_canvasname), 0, A_DEFFLOAT, 0); + class_addsymbol(canvasname_class, (t_method)canvasname_symbol); + class_addbang (canvasname_class, (t_method)canvasname_bang); +} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs November 2008