Pd-cvs October 2005

pd-cvs@lists.iem.at

15 participants
477 discussions

pd/src m_pd.h,1.4.4.11.2.7,1.4.4.11.2.8
by Mathieu Bouchard 06 Oct '05

06 Oct '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29392 Modified Files: Tag: devel_0_39 m_pd.h Log Message: dirty is now a bitset. remove duplicate _settip decls. added class_setfieldnames decl. Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.4.4.11.2.7 retrieving revision 1.4.4.11.2.8 diff -C2 -d -r1.4.4.11.2.7 -r1.4.4.11.2.8 *** m_pd.h 6 Oct 2005 06:11:37 -0000 1.4.4.11.2.7 --- m_pd.h 6 Oct 2005 07:00:27 -0000 1.4.4.11.2.8 *************** *** 160,168 **** typedef t_class *t_pd; /* pure datum: nothing but a class pointer */ #ifdef DESIRE typedef struct _observable { struct _gobj *master;/* this struct belongs to a master (but in the tcl impl, it's _part_ of the master) */ struct _gobj *next; /* big hack. this is the donut hole as cut from _gobj */ ! int ndirty; /* degree of guilt (-1 = unknown, like "(all)" in the client side) */ ! t_symbol *dirty[4]; /* things we may have to confess (max 4, beyond which ndirty=-1) */ int nobs; /* number of spies */ struct _gobj **obs; /* I spy with my little I */ --- 160,168 ---- typedef t_class *t_pd; /* pure datum: nothing but a class pointer */ #ifdef DESIRE + /* names of fields are stored in each t_class */ typedef struct _observable { struct _gobj *master;/* this struct belongs to a master (but in the tcl impl, it's _part_ of the master) */ struct _gobj *next; /* big hack. this is the donut hole as cut from _gobj */ ! int dirty; /* bitfield of things we may have to confess (unknown=-1 like "(all)" in the client side) */ int nobs; /* number of spies */ struct _gobj **obs; /* I spy with my little I */ *************** *** 369,374 **** EXTERN t_inlet *signalinlet_new(t_object *owner, t_float f); EXTERN void inlet_free(t_inlet *x); - EXTERN void class_settip(t_class *x,t_symbol* s); - EXTERN void inlet_settip(t_inlet* i,t_symbol* s); EXTERN t_outlet *outlet_new(t_object *owner, t_symbol *s); --- 369,372 ---- *************** *** 463,466 **** --- 461,465 ---- EXTERN void class_settip(t_class *x,t_symbol* s); EXTERN void inlet_settip(t_inlet* i,t_symbol* s); + EXTERN void class_setfieldnames(t_class *x, const char *s); /* where s is split on spaces and tokenized */ /* ------------ printing --------------------------------- */

1 0

pd/src m_imp.h, 1.3.4.1.2.1, 1.3.4.1.2.2 m_class.c, 1.3.4.7.2.1, 1.3.4.7.2.2
by Mathieu Bouchard 06 Oct '05

06 Oct '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28977 Modified Files: Tag: devel_0_39 m_imp.h m_class.c Log Message: adding class_setfields Index: m_class.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_class.c,v retrieving revision 1.3.4.7.2.1 retrieving revision 1.3.4.7.2.2 diff -C2 -d -r1.3.4.7.2.1 -r1.3.4.7.2.2 *** m_class.c 5 Oct 2005 06:12:06 -0000 1.3.4.7.2.1 --- m_class.c 6 Oct 2005 06:58:45 -0000 1.3.4.7.2.2 *************** *** 234,237 **** --- 234,239 ---- c->c_firstin = ((flags & CLASS_NOINLET) == 0); c->c_firsttip = gensym("?"); + c->c_fields = malloc(sizeof(t_symbol *)*31); + c->c_nfields = 0; c->c_patchable = (typeflag == CLASS_PATCHABLE); c->c_gobj = (typeflag >= CLASS_GOBJ); *************** *** 927,928 **** --- 929,945 ---- x->c_firsttip = s; } + + /* ---------------------------------------------------------------- */ + + /* must be called only once */ + void class_setfieldnames(t_class *x, const char *s) { + char foo[64]; + while (*s) { + int i = strchr(s,' '); + if (i<0) return; + memcpy(foo,s,i); + foo[i]=0; + x->c_fields[x->c_nfields++] = gensym(foo); + s=s+i+1; + } + } Index: m_imp.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_imp.h,v retrieving revision 1.3.4.1.2.1 retrieving revision 1.3.4.1.2.2 diff -C2 -d -r1.3.4.1.2.1 -r1.3.4.1.2.2 *** m_imp.h 21 Aug 2005 11:28:24 -0000 1.3.4.1.2.1 --- m_imp.h 6 Oct 2005 06:58:45 -0000 1.3.4.1.2.2 *************** *** 53,57 **** char c_firstin; /* if patchable, true if draw first inlet */ char c_drawcommand; /* a drawing command for a template */ ! t_symbol* c_firsttip; }; --- 53,59 ---- char c_firstin; /* if patchable, true if draw first inlet */ char c_drawcommand; /* a drawing command for a template */ ! t_symbol *c_firsttip; ! t_symbol **c_fields; /* names of fields aka attributes. */ ! int c_nfields; /* ... and how many of them */ };

1 0

pd/src m_pd.h,1.4.4.11.2.6,1.4.4.11.2.7
by Mathieu Bouchard 06 Oct '05

06 Oct '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21389 Modified Files: Tag: devel_0_39 m_pd.h Log Message: t_observer: added a back-pointer and a dirty-list (of max size 4) Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.4.4.11.2.6 retrieving revision 1.4.4.11.2.7 diff -C2 -d -r1.4.4.11.2.6 -r1.4.4.11.2.7 *** m_pd.h 5 Oct 2005 20:53:21 -0000 1.4.4.11.2.6 --- m_pd.h 6 Oct 2005 06:11:37 -0000 1.4.4.11.2.7 *************** *** 161,165 **** --- 161,168 ---- #ifdef DESIRE typedef struct _observable { + struct _gobj *master;/* this struct belongs to a master (but in the tcl impl, it's _part_ of the master) */ struct _gobj *next; /* big hack. this is the donut hole as cut from _gobj */ + int ndirty; /* degree of guilt (-1 = unknown, like "(all)" in the client side) */ + t_symbol *dirty[4]; /* things we may have to confess (max 4, beyond which ndirty=-1) */ int nobs; /* number of spies */ struct _gobj **obs; /* I spy with my little I */

1 0

pd/src m_pd.h,1.4.4.11.2.5,1.4.4.11.2.6
by Mathieu Bouchard 05 Oct '05

05 Oct '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7151 Modified Files: Tag: devel_0_39 m_pd.h Log Message: adding t_observer by punching a hole into t_gobj. (this will preserve ABI compatibility with externs that don't use ->g_next, which is 99% of them) Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.4.4.11.2.5 retrieving revision 1.4.4.11.2.6 diff -C2 -d -r1.4.4.11.2.5 -r1.4.4.11.2.6 *** m_pd.h 24 Aug 2005 17:14:52 -0000 1.4.4.11.2.5 --- m_pd.h 5 Oct 2005 20:53:21 -0000 1.4.4.11.2.6 *************** *** 159,167 **** --- 159,180 ---- typedef t_class *t_pd; /* pure datum: nothing but a class pointer */ + #ifdef DESIRE + typedef struct _observable { + struct _gobj *next; /* big hack. this is the donut hole as cut from _gobj */ + int nobs; /* number of spies */ + struct _gobj **obs; /* I spy with my little I */ + } t_observable; + #endif typedef struct _gobj /* a graphical object */ { t_pd g_pd; /* pure datum header (class) */ + #ifdef DESIRE + /* g_next is moved out to keep ABI compat */ + t_observable *g_obs; /* voyeurism */ + #define g_next g_obs->next + #else struct _gobj *g_next; /* next in list */ + #endif } t_gobj;

1 0

pd/src SConscript,1.1.4.29,1.1.4.30
by Tim Blechmann 05 Oct '05

05 Oct '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20254 Modified Files: Tag: devel_0_39 SConscript Log Message: open64 fix Index: SConscript =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/SConscript,v retrieving revision 1.1.4.29 retrieving revision 1.1.4.30 diff -C2 -d -r1.1.4.29 -r1.1.4.30 *** SConscript 5 Oct 2005 07:40:11 -0000 1.1.4.29 --- SConscript 5 Oct 2005 14:49:12 -0000 1.1.4.30 *************** *** 476,480 **** ! if conf.TryCompile("""#define _LARGEFILE64_SOURCE #include <sys/types.h> #include <sys/stat.h> --- 476,480 ---- ! if conf.TryLink("""#define _LARGEFILE64_SOURCE #include <sys/types.h> #include <sys/stat.h>

1 0

pd README.txt,1.1.1.3.4.1.2.1,1.1.1.3.4.1.2.2
by David Plans Casal 05 Oct '05

05 Oct '05

Update of /cvsroot/pure-data/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23104 Modified Files: Tag: devel_0_39 README.txt Log Message: fixing my typo fix ... oops Index: README.txt =================================================================== RCS file: /cvsroot/pure-data/pd/README.txt,v retrieving revision 1.1.1.3.4.1.2.1 retrieving revision 1.1.1.3.4.1.2.2 diff -C2 -d -r1.1.1.3.4.1.2.1 -r1.1.1.3.4.1.2.2 *** README.txt 4 Oct 2005 13:37:20 -0000 1.1.1.3.4.1.2.1 --- README.txt 5 Oct 2005 10:43:24 -0000 1.1.1.3.4.1.2.2 *************** *** 45,49 **** ============================== ! == developer's branch (CVS) == ============================== --- 45,49 ---- ============================== ! == developers' branch (CVS) == ==============================

1 0

pd/src SConscript,1.1.4.28,1.1.4.29
by Tim Blechmann 05 Oct '05

05 Oct '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18875 Modified Files: Tag: devel_0_39 SConscript Log Message: cleaned up win32 stuff Index: SConscript =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/SConscript,v retrieving revision 1.1.4.28 retrieving revision 1.1.4.29 diff -C2 -d -r1.1.4.28 -r1.1.4.29 *** SConscript 4 Oct 2005 22:23:56 -0000 1.1.4.28 --- SConscript 5 Oct 2005 07:40:11 -0000 1.1.4.29 *************** *** 25,30 **** BoolOption('wall', 'Build with a wall of warnings', False), BoolOption('shared', 'Build against shared C libraries (for Windows)', True), ! ) opt.Update(pdenv) --- 25,38 ---- BoolOption('wall', 'Build with a wall of warnings', False), BoolOption('shared', 'Build against shared C libraries (for Windows)', True), ! ) ! ! if pdenv['PLATFORM'] == 'win32': ! opt.AddOptions( ! ('asiopath', 'Path to ASIOSDK', None), ! ('tclpath', 'Path to tcl', None), ! ('pthreadspath', 'Path to pthreads', None) ! ) + opt.Update(pdenv) *************** *** 87,90 **** --- 95,122 ---- # determine pthread and tcl/tk lib layout if pdenv['PLATFORM'] == 'win32': + if pdenv['pthreadspath']: + path_pthread = pdenv['pthreadspath'] + else: + print "Please enter path to pthread library" + Exit(1) + + if pdenv['tclpath']: + path_tcl = pdenv['tclpath'] + else: + print "Please enter path to tcl" + Exit(1) + + if pdenv['asiopath']: + path_asio = pdenv['asiopath'] + else: + print "Please enter path to ASIO SDK" + Exit(1) + + pdenv.Append(CPPPATH=[path_pthread,path_tcl+'/include']) + pdenv.Append(LIBPATH=[path_pthread,path_tcl+'/lib']) + + pdenv.Append(CPPPATH=[path_asio+'/common',path_asio+'/host',path_asio+'/pc']) + pdenv.Append(LIBPATH=[path_asio]) + # portaudio = False sep = "" *************** *** 121,135 **** # - path_pthread="c:/data/prog/packs/pthreads" - path_tcl="c:/programme/prog/tcl" - path_asio="c:/data/prog/audio/asiosdk2" - - pdenv.Append(CPPPATH=[path_pthread,path_tcl+'/include']) - pdenv.Append(LIBPATH=[path_pthread,path_tcl+'/lib']) - - pdenv.Append(CPPPATH=[path_asio+'/common',path_asio+'/host',path_asio+'/pc']) - pdenv.Append(LIBPATH=[path_asio]) - - add_cpppath = [] --- 153,156 ---- *************** *** 258,261 **** --- 279,283 ---- if pdenv['PLATFORM'] == 'win32': + pdenv.Append(CPPDEFINES=["MSW","NT"]) pdenv.Append(LIBS=Split("ole32 winmm wsock32 advapi32"))

1 0

pd/src x_gui.c,1.3.4.1.2.1,1.3.4.1.2.2
by Mathieu Bouchard 05 Oct '05

05 Oct '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3447 Modified Files: Tag: devel_0_39 x_gui.c Log Message: null terminator missing in two calls to class_addmethod Index: x_gui.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/x_gui.c,v retrieving revision 1.3.4.1.2.1 retrieving revision 1.3.4.1.2.2 diff -C2 -d -r1.3.4.1.2.1 -r1.3.4.1.2.2 *** x_gui.c 4 Oct 2005 22:35:08 -0000 1.3.4.1.2.1 --- x_gui.c 5 Oct 2005 06:13:01 -0000 1.3.4.1.2.2 *************** *** 230,234 **** sizeof(t_openpanel), 0, A_DEFSYM, 0); class_addbang(openpanel_class, openpanel_bang); ! class_addmethod(openpanel_class, (t_method)openpanel_path, gensym("path"), A_SYMBOL); class_addsymbol(openpanel_class, openpanel_symbol); } --- 230,234 ---- sizeof(t_openpanel), 0, A_DEFSYM, 0); class_addbang(openpanel_class, openpanel_bang); ! class_addmethod(openpanel_class, (t_method)openpanel_path, gensym("path"), A_SYMBOL, 0); class_addsymbol(openpanel_class, openpanel_symbol); } *************** *** 279,283 **** sizeof(t_savepanel), 0, A_DEFSYM, 0); class_addbang(savepanel_class, savepanel_bang); ! class_addmethod(savepanel_class, (t_method)openpanel_path, gensym("path"), A_SYMBOL); class_addsymbol(savepanel_class, savepanel_symbol); } --- 279,283 ---- sizeof(t_savepanel), 0, A_DEFSYM, 0); class_addbang(savepanel_class, savepanel_bang); ! class_addmethod(savepanel_class, (t_method)openpanel_path, gensym("path"), A_SYMBOL, 0); class_addsymbol(savepanel_class, savepanel_symbol); }

1 0

pd/src m_class.c,1.3.4.7,1.3.4.7.2.1
by Mathieu Bouchard 05 Oct '05

05 Oct '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3329 Modified Files: Tag: devel_0_39 m_class.c Log Message: added check for invalid atom types in class_addmethod Index: m_class.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_class.c,v retrieving revision 1.3.4.7 retrieving revision 1.3.4.7.2.1 diff -C2 -d -r1.3.4.7 -r1.3.4.7.2.1 *** m_class.c 18 Jan 2005 19:36:42 -0000 1.3.4.7 --- m_class.c 5 Oct 2005 06:12:06 -0000 1.3.4.7.2.1 *************** *** 359,362 **** --- 359,366 ---- m->me_arg[nargs++] = argtype; argtype = va_arg(ap, t_atomtype); + if (argtype > A_CANT || argtype < 0) { + error("%s_%s: unknown atom type %d", c->c_name->s_name, sel->s_name, argtype); + return; + } } if (argtype != A_NULL)

1 0

pd/src u_main.tk, 1.4.4.10.2.9, 1.4.4.10.2.10 x_gui.c, 1.3.4.1, 1.3.4.1.2.1
by Tim Blechmann 05 Oct '05

05 Oct '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18986 Modified Files: Tag: devel_0_39 u_main.tk x_gui.c Log Message: [ 1244757 ] {open,save}panel with settable path Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.4.4.10.2.9 retrieving revision 1.4.4.10.2.10 diff -C2 -d -r1.4.4.10.2.9 -r1.4.4.10.2.10 *** u_main.tk 21 Aug 2005 11:28:24 -0000 1.4.4.10.2.9 --- u_main.tk 4 Oct 2005 22:35:08 -0000 1.4.4.10.2.10 *************** *** 3387,3394 **** ############# open and save dialogs for objects in Pd ########## ! proc pdtk_openpanel {target} { global pd_opendir set filename [tk_getOpenFile \ ! -initialdir $pd_opendir] if {$filename != ""} { set directory [string range $filename 0 \ --- 3387,3398 ---- ############# open and save dialogs for objects in Pd ########## ! proc pdtk_openpanel {target localdir} { global pd_opendir + if {$localdir == ""} { + set localdir $pd_opendir + } + set filename [tk_getOpenFile \ ! -initialdir $localdir ] if {$filename != ""} { set directory [string range $filename 0 \ *************** *** 3400,3405 **** } ! proc pdtk_savepanel {target} { ! set filename [tk_getSaveFile] if {$filename != ""} { pd [concat $target symbol [pdtk_enquote $filename] \;] --- 3404,3409 ---- } ! proc pdtk_savepanel {target localdir} { ! set filename [tk_getSaveFile -initialdir $localdir] if {$filename != ""} { pd [concat $target symbol [pdtk_enquote $filename] \;] Index: x_gui.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/x_gui.c,v retrieving revision 1.3.4.1 retrieving revision 1.3.4.1.2.1 diff -C2 -d -r1.3.4.1 -r1.3.4.1.2.1 *** x_gui.c 11 May 2005 20:07:00 -0000 1.3.4.1 --- x_gui.c 4 Oct 2005 22:35:08 -0000 1.3.4.1.2.1 *************** *** 189,195 **** t_object x_obj; t_symbol *x_s; } t_openpanel; ! static void *openpanel_new(void) { char buf[50]; --- 189,196 ---- t_object x_obj; t_symbol *x_s; + t_symbol *x_path; } t_openpanel; ! static void *openpanel_new(t_symbol*s) { char buf[50]; *************** *** 197,200 **** --- 198,202 ---- sprintf(buf, "d%lx", (t_int)x); x->x_s = gensym(buf); + x->x_path=s; pd_bind(&x->x_obj.ob_pd, x->x_s); outlet_new(&x->x_obj, &s_symbol); *************** *** 204,208 **** static void openpanel_bang(t_openpanel *x) { ! sys_vgui("pdtk_openpanel %s\n", x->x_s->s_name); } --- 206,211 ---- static void openpanel_bang(t_openpanel *x) { ! char*path=(x->x_path&&x->x_path->s_name)?x->x_path->s_name:"\"\""; ! sys_vgui("pdtk_openpanel {%s} {%s}\n", x->x_s->s_name, path); } *************** *** 211,214 **** --- 214,221 ---- outlet_symbol(x->x_obj.ob_outlet, s); } + static void openpanel_path(t_openpanel *x, t_symbol *s) + { + x->x_path=s; + } static void openpanel_free(t_openpanel *x) *************** *** 221,226 **** openpanel_class = class_new(gensym("openpanel"), (t_newmethod)openpanel_new, (t_method)openpanel_free, ! sizeof(t_openpanel), 0, A_DEFFLOAT, 0); class_addbang(openpanel_class, openpanel_bang); class_addsymbol(openpanel_class, openpanel_symbol); } --- 228,234 ---- openpanel_class = class_new(gensym("openpanel"), (t_newmethod)openpanel_new, (t_method)openpanel_free, ! sizeof(t_openpanel), 0, A_DEFSYM, 0); class_addbang(openpanel_class, openpanel_bang); + class_addmethod(openpanel_class, (t_method)openpanel_path, gensym("path"), A_SYMBOL); class_addsymbol(openpanel_class, openpanel_symbol); } *************** *** 234,240 **** t_object x_obj; t_symbol *x_s; } t_savepanel; ! static void *savepanel_new(void) { char buf[50]; --- 242,249 ---- t_object x_obj; t_symbol *x_s; + t_symbol *x_path; } t_savepanel; ! static void *savepanel_new(t_symbol*s) { char buf[50]; *************** *** 242,245 **** --- 251,255 ---- sprintf(buf, "d%lx", (t_int)x); x->x_s = gensym(buf); + x->x_path=s; pd_bind(&x->x_obj.ob_pd, x->x_s); outlet_new(&x->x_obj, &s_symbol); *************** *** 249,253 **** static void savepanel_bang(t_savepanel *x) { ! sys_vgui("pdtk_savepanel %s\n", x->x_s->s_name); } --- 259,264 ---- static void savepanel_bang(t_savepanel *x) { ! char*path=(x->x_path&&x->x_path->s_name)?x->x_path->s_name:"\"\""; ! sys_vgui("pdtk_savepanel {%s} {%s}\n", x->x_s->s_name, path); } *************** *** 266,271 **** savepanel_class = class_new(gensym("savepanel"), (t_newmethod)savepanel_new, (t_method)savepanel_free, ! sizeof(t_savepanel), 0, A_DEFFLOAT, 0); class_addbang(savepanel_class, savepanel_bang); class_addsymbol(savepanel_class, savepanel_symbol); } --- 277,283 ---- savepanel_class = class_new(gensym("savepanel"), (t_newmethod)savepanel_new, (t_method)savepanel_free, ! sizeof(t_savepanel), 0, A_DEFSYM, 0); class_addbang(savepanel_class, savepanel_bang); + class_addmethod(savepanel_class, (t_method)openpanel_path, gensym("path"), A_SYMBOL); class_addsymbol(savepanel_class, savepanel_symbol); }

1 0

← Newer
1
...
39
40
41
42
43
44
45
...
48
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 October 2005