Pd-cvs June 2004

pd-cvs@lists.iem.at

6 participants
65 discussions

pd/src d_soundfile.c,1.1.1.2.2.7,1.1.1.2.2.8
by Tim Blechmann 03 Jun '04

03 Jun '04

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2234 Modified Files: Tag: devel_0_37 d_soundfile.c Log Message: added const command to soundfiler to work in the backgroud Index: d_soundfile.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/d_soundfile.c,v retrieving revision 1.1.1.2.2.7 retrieving revision 1.1.1.2.2.8 diff -C2 -d -r1.1.1.2.2.7 -r1.1.1.2.2.8 *** d_soundfile.c 31 May 2004 12:02:21 -0000 1.1.1.2.2.7 --- d_soundfile.c 3 Jun 2004 08:02:14 -0000 1.1.1.2.2.8 *************** *** 1584,1594 **** ! int was, elemsize; /* array contains was elements of size elemsize */ ! t_float * vec = (t_float*) x->x_array.a_vec; /* old array */ t_glist *gl; int dspwas; ! int n; /* resize of n elements */ ! char *nvec; /* new array */ ! if ((argv+1)->a_type == A_FLOAT) { --- 1584,1597 ---- ! int was, elemsize; /* array contains was elements of size elemsize */ ! t_float * vec; /* old array */ t_glist *gl; int dspwas; ! int n; /* resize of n elements */ ! char *nvec; /* new array */ ! ! vec = (t_float*) x->x_array.a_vec; ! was = x->x_array.a_vec; ! if ((argv+1)->a_type == A_FLOAT) { *************** *** 1600,1605 **** } - garray_getfloatarray(x, &was, &vec); - if (n == was) { --- 1603,1606 ---- *************** *** 1677,1680 **** --- 1678,1786 ---- + static void soundfiler_t_const(t_soundfiler *x, t_symbol *s, + int argc, t_atom *argv); + + static void soundfiler_t_const_addq(t_soundfiler *x, t_symbol *s, + int argc, t_atom *argv) + { + soundfiler_queue_add(soundfiler_t_const,(void *)x,argc, argv); + } + + + /* TB: soundfiler_t_const ... + usage: const table value + */ + static void soundfiler_t_const(t_soundfiler *y, t_symbol *s, + int argc, t_atom *argv) + { + + t_garray * x = (t_garray *)pd_findbyclass(argv[0].a_w.w_symbol, garray_class); + + if (!(x)) + { + pd_error(y, "%s: no such table", argv[0].a_w.w_symbol->s_name); + goto usage; + } + + + int size, elemsize; /* array contains was elements of size elemsize */ + t_float * vec; /* old array */ + t_glist *gl; + int dspwas; + int val; /* value */ + char *nvec; /* new array */ + + vec = (t_float*) x->x_array.a_vec; + size = x->x_array.a_n; + + if ((argv+1)->a_type == A_FLOAT) + { + val = (int) (argv+1)->a_w.w_float; + } + else + { + goto usage; + } + + elemsize = template_findbyname(x->x_array.a_templatesym)->t_n * sizeof(t_word); + + + /* allocating memory */ + #ifdef _POSIX_MEMLOCK + munlockall(); + #endif + nvec = getbytes(size * elemsize); + #ifdef _POSIX_MEMLOCK + mlockall(MCL_FUTURE); + #endif + + if (!nvec) + { + pd_error(x, "array resize failed: out of memory"); + return; + } + + /* setting array */ + int i; + for (i=0; i!=size; ++i) + { + nvec[i]=val; + } + + + /* TB: we'll have to be sure that no one is accessing the array */ + sys_lock(); + #ifdef GARRAY_THREAD_LOCK + garray_lock(x); + #endif + x->x_array.a_vec = nvec; + #ifdef GARRAY_THREAD_LOCK + garray_unlock(x); + #endif + if (x->x_usedindsp) canvas_update_dsp(); + sys_unlock(); + + + /* if this is the only array in the graph, + reset the graph's coordinates */ + gl = x->x_glist; + if (gl->gl_list == &x->x_gobj && !x->x_gobj.g_next) + { + vmess(&gl->gl_pd, gensym("bounds"), "ffff", + 0., gl->gl_y1, (double)(size > 1 ? size-1 : 1), gl->gl_y2); + /* close any dialogs that might have the wrong info now... */ + gfxstub_deleteforkey(gl); + } + else garray_redraw(x); + + freebytes (vec, size * elemsize); + outlet_float(y->x_obj.ob_outlet, size); + return; + + usage: + pd_error(x, "usage: const tablename value"); + } + + #endif /* THREADED_SF */ *************** *** 2032,2035 **** --- 2138,2143 ---- class_addmethod(soundfiler_class, (t_method)soundfiler_t_resize_addq, gensym("resize"), A_GIMME, 0); + class_addmethod(soundfiler_class, (t_method)soundfiler_t_const_addq, + gensym("const"), A_GIMME, 0); #else class_addmethod(soundfiler_class, (t_method)soundfiler_read, gensym("read"),

1 0

externals/maxlib/src netrec.c,1.10,1.11 netserver.c,1.11,1.12 netclient.c,1.9,1.10
by Tim Blechmann 02 Jun '04

02 Jun '04

Update of /cvsroot/pure-data/externals/maxlib/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16915 Modified Files: netrec.c netserver.c netclient.c Log Message: should compile for both pd 0.36 and 0.37 Index: netserver.c =================================================================== RCS file: /cvsroot/pure-data/externals/maxlib/src/netserver.c,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** netserver.c 20 Mar 2004 22:45:16 -0000 1.11 --- netserver.c 2 Jun 2004 12:54:09 -0000 1.12 *************** *** 24,29 **** /* ---------------------------------------------------------------------------- */ - #ifdef PD_0_37 #include "m_pd.h" #include "s_stuff.h" #endif --- 24,29 ---- /* ---------------------------------------------------------------------------- */ #include "m_pd.h" + #if defined PD_MAJOR_VERSION && PD_MAJOR_VERSION==0 && PD_MINOR_VERSION==37 #include "s_stuff.h" #endif Index: netrec.c =================================================================== RCS file: /cvsroot/pure-data/externals/maxlib/src/netrec.c,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** netrec.c 20 Mar 2004 05:56:30 -0000 1.10 --- netrec.c 2 Jun 2004 12:54:09 -0000 1.11 *************** *** 23,28 **** /* ---------------------------------------------------------------------------- */ - #ifdef PD_0_37 #include "m_pd.h" #include "s_stuff.h" #endif --- 23,28 ---- /* ---------------------------------------------------------------------------- */ #include "m_pd.h" + #if defined PD_MAJOR_VERSION && PD_MAJOR_VERSION==0 && PD_MINOR_VERSION==37 #include "s_stuff.h" #endif Index: netclient.c =================================================================== RCS file: /cvsroot/pure-data/externals/maxlib/src/netclient.c,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** netclient.c 20 Mar 2004 05:56:30 -0000 1.9 --- netclient.c 2 Jun 2004 12:54:09 -0000 1.10 *************** *** 26,31 **** /* using pollfunction instead of clock (suggested by HCS) */ - #ifdef PD_0_37 #include "m_pd.h" #include "s_stuff.h" #endif --- 26,31 ---- /* using pollfunction instead of clock (suggested by HCS) */ #include "m_pd.h" + #if defined PD_MAJOR_VERSION && PD_MAJOR_VERSION==0 && PD_MINOR_VERSION==37 #include "s_stuff.h" #endif

1 0

abstractions/rradical/instruments 2lineseg~.pd,NONE,1.1
by Frank Barknecht 02 Jun '04

02 Jun '04

Update of /cvsroot/pure-data/abstractions/rradical/instruments In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27095 Added Files: 2lineseg~.pd Log Message: missing file for angriff --- NEW FILE: 2lineseg~.pd --- #N canvas 392 139 633 538 10; #X obj 191 425 outlet~; #X obj 191 237 t3_bpe; #X obj 191 138 t b b; #X obj 191 294 t3_line~ 0; #X obj 191 375 fade~ lin; #X msg 342 344 set _lin; #X msg 342 365 set _linsqrt; #X msg 342 386 set _sqrt; #X msg 342 407 set _sin; #X msg 342 428 set _sinhann; #X msg 342 449 set _hann; #X obj 476 48 inlet; #X obj 140 40 inlet; #X msg 342 323 set \$1; #X obj 476 132 symbol; #X obj 522 190 symbol stop; #X msg 140 198 0 0; #X obj 140 138 t b b; #X obj 140 105 select 0; #X obj 191 198 f 0; #X obj 476 69 route set stop; #X obj 289 36 inlet; #X obj 289 61 t b f; #X obj 244 35 inlet; #X obj 332 36 inlet; #X obj 332 61 t b f; #X obj 377 37 inlet; #X obj 377 62 t b f; #X obj 244 105 pack 0 0 0 0; #X msg 244 133 set \$1 \$2 \$3 \$4; #X msg 244 192 1 71 0 132; #X connect 1 0 3 0; #X connect 1 1 3 1; #X connect 2 0 19 0; #X connect 2 1 30 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 8 0 4 0; #X connect 9 0 4 0; #X connect 10 0 4 0; #X connect 11 0 20 0; #X connect 12 0 18 0; #X connect 13 0 4 0; #X connect 14 0 13 0; #X connect 15 0 1 0; #X connect 16 0 1 0; #X connect 17 0 16 0; #X connect 17 1 19 0; #X connect 18 0 17 0; #X connect 18 1 2 0; #X connect 19 0 1 0; #X connect 20 0 14 0; #X connect 20 1 15 0; #X connect 21 0 22 0; #X connect 22 0 28 0; #X connect 22 1 28 1; #X connect 23 0 28 0; #X connect 24 0 25 0; #X connect 25 0 28 0; #X connect 25 1 28 2; #X connect 26 0 27 0; #X connect 27 0 28 0; #X connect 27 1 28 3; #X connect 28 0 29 0; #X connect 29 0 30 0; #X connect 30 0 1 0;

1 0

htdocs developer.php,1.1,1.2
by Frank Barknecht 01 Jun '04

01 Jun '04

Update of /cvsroot/pure-data/htdocs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16172 Modified Files: developer.php Log Message: * changed to reflect hostname changes done by sourceforge. Index: developer.php =================================================================== RCS file: /cvsroot/pure-data/htdocs/developer.php,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** developer.php 14 Mar 2003 21:55:16 -0000 1.1 --- developer.php 1 Jun 2004 15:40:17 -0000 1.2 *************** *** 31,35 **** line to login into the CVS server: <pre> ! % cvs -d:pserver:anonymous@cvs.pure-data.sourceforge.net:/cvsroot/pure-data login </pre> --- 31,35 ---- line to login into the CVS server: <pre> ! % cvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/pure-data login </pre> *************** *** 37,53 **** Hit return when you are asked for a password. In order to get the source: <pre> ! % cvs -z3 -d:pserver:anonymous@cvs.pure-data.sourceforge.net:/cvsroot/pure-data co externals </pre> This will give you a local copy of the externals-directory in the repository. ! After some time, if you want to get all the latest additions and updates, type ! (in the externals directory): <pre> ! % cvs -d:pserver:anonymous@cvs.pure-data.sourceforge.net:/cvsroot/pure-data update -d </pre> ! Without the -d only existing directories on your local copy get updated. --- 37,57 ---- Hit return when you are asked for a password. In order to get the source: <pre> ! % cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/pure-data co externals </pre> This will give you a local copy of the externals-directory in the repository. ! Other modules are for example called "abstractions" (see below) or you could ! also use "." to check out everything. After some time, if you want to get all ! the latest additions and updates, type (in the externals directory): ! <pre> ! % cvs update -d </pre> ! Without the -d only existing directories on your local copy get updated. ! Depending on your configuration you might have -d as default anyways. ! *************** *** 63,67 **** For example check out the abstractions with: <pre> ! % cvs -z3 -d:pserver:anonymous@cvs.pure-data.sourceforge.net:/cvsroot/pure-data co abstractions </pre> --- 67,71 ---- For example check out the abstractions with: <pre> ! % cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/pure-data co abstractions </pre> *************** *** 72,78 **** </pre> ! To check out the current developers' branch, which is tagged with "devel_0_36", use <pre> ! % cvs -z3 -d:pserver:anonymous@cvs.pure-data.sourceforge.net:/cvsroot/pure-data co -r devel_0_36 pd </pre> --- 76,82 ---- </pre> ! To check out the current developers' branch, which is tagged with "devel_0_37", use <pre> ! % cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/pure-data co -r devel_0_37 pd </pre> *************** *** 111,115 **** <pre> % export CVS_RSH=ssh ! % cvs -z3 -d:ext: developername@cvs.pure-data.sourceforge.net:/cvsroot/pure-data import externals/dirname developername source-dist </pre> --- 115,119 ---- <pre> % export CVS_RSH=ssh ! % cvs -z3 -d:ext:developername@cvs.sourceforge.net:/cvsroot/pure-data \ import externals/dirname developername source-dist </pre> *************** *** 124,128 **** backup) and checkout the code with: <pre> ! % cvs -z3 -d:ext:developername@cvs.pure-data.sourceforge.net:/cvsroot/pure-data co externals </pre> --- 128,132 ---- backup) and checkout the code with: <pre> ! % cvs -z3 -d:ext:developername@cvs.sourceforge.net:/cvsroot/pure-data \ co externals </pre>

1 0

pd/src g_array.c,1.1.1.3.2.7,1.1.1.3.2.8
by Tim Blechmann 01 Jun '04

01 Jun '04

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15732 Modified Files: Tag: devel_0_37 g_array.c Log Message: removed some array locks and minor cleanups Index: g_array.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/g_array.c,v retrieving revision 1.1.1.3.2.7 retrieving revision 1.1.1.3.2.8 diff -C2 -d -r1.1.1.3.2.7 -r1.1.1.3.2.8 *** g_array.c 27 May 2004 20:40:55 -0000 1.1.1.3.2.7 --- g_array.c 1 Jun 2004 10:48:22 -0000 1.1.1.3.2.8 *************** *** 11,15 **** /* Tim Blechmann: garray thread locks: */ - //#define GARRAY_THREAD_LOCK #ifdef GARRAY_THREAD_LOCK #include <pthread.h> --- 11,14 ---- *************** *** 827,832 **** garray_lock(x); #endif - - //sys_lock(); if (glist_isvisible(x->x_glist)) --- 826,829 ---- *************** *** 839,844 **** garray_update(x); - //sys_unlock(); - #ifdef GARRAY_THREAD_LOCK /* TB: array lock */ garray_unlock(x); --- 836,839 ---- *************** *** 849,862 **** double garray_updatetime(t_garray *x) { - #ifdef GARRAY_THREAD_LOCK /* TB: array lock */ - garray_lock(x); - #endif return x->x_lastupdate; - #ifdef GARRAY_THREAD_LOCK /* TB: array lock */ - garray_unlock(x); - #endif } - /* This functiopn gets the template of an array; if we can't figure out what template an array's elements belong to we're in grave trouble --- 844,850 ---- *************** *** 878,888 **** int garray_npoints(t_garray *x) /* get the length */ { - #ifdef GARRAY_THREAD_LOCK /* TB: array lock */ - garray_lock(x); - #endif int ret = (x->x_n); - #ifdef GARRAY_THREAD_LOCK /* TB: array lock */ - garray_unlock(x); - #endif return ret; } --- 866,870 ---- *************** *** 890,900 **** char *garray_vec(t_garray *x) /* get the contents */ { - #ifdef GARRAY_THREAD_LOCK /* TB: array lock */ - garray_lock(x); - #endif char * ret =((char *)(x->x_vec)); - #ifdef GARRAY_THREAD_LOCK /* TB: array lock */ - garray_unlock(x); - #endif return ret; } --- 872,876 ---- *************** *** 951,955 **** else if (indx >= x->x_n) indx = x->x_n - 1; float ret = (*(float *)((x->x_vec + sizeof(t_word) * indx) + yonset)); - #ifdef GARRAY_THREAD_LOCK /* TB: array lock */ garray_unlock(x); --- 927,930 ----

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 June 2004