Pd-cvs March 2006

pd-cvs@lists.iem.at

16 participants
280 discussions

externals/postlude/dssi RELEASE,1.2,1.3
by Jamie Bullock 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/externals/postlude/dssi In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7336 Modified Files: RELEASE Log Message: Modified helpfile. Fixed LADSPA control in bug Index: RELEASE =================================================================== RCS file: /cvsroot/pure-data/externals/postlude/dssi/RELEASE,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** RELEASE 11 Mar 2006 20:32:51 -0000 1.2 --- RELEASE 27 Mar 2006 21:53:43 -0000 1.3 *************** *** 1,2 **** --- 1,11 ---- + + 0.93 + + - Fixed control in bug and a few others + + 0.91 + + -Fixed bugs created by adding LADSPA support + 0.89

1 0

externals/postlude/dssi/src dssi~.c, 1.11, 1.12 dssi~.h, 1.8, 1.9
by Jamie Bullock 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/externals/postlude/dssi/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7336/src Modified Files: dssi~.c dssi~.h Log Message: Modified helpfile. Fixed LADSPA control in bug Index: dssi~.c =================================================================== RCS file: /cvsroot/pure-data/externals/postlude/dssi/src/dssi~.c,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** dssi~.c 23 Mar 2006 08:48:06 -0000 1.11 --- dssi~.c 27 Mar 2006 21:53:43 -0000 1.12 *************** *** 342,347 **** } ! static void dssi_tilde_activate(t_dssi_tilde *x, t_int instance){ if(x->descriptor->LADSPA_Plugin->activate) x->descriptor->LADSPA_Plugin->activate(x->instanceHandles[instance]); --- 342,348 ---- } ! static void dssi_tilde_activate_plugin(t_dssi_tilde *x, t_float instance_f){ + t_int instance = (t_int)instance_f; if(x->descriptor->LADSPA_Plugin->activate) x->descriptor->LADSPA_Plugin->activate(x->instanceHandles[instance]); *************** *** 351,354 **** --- 352,365 ---- } + static void dssi_tilde_deactivate_plugin(t_dssi_tilde *x, t_float instance_f){ + + t_int instance = (t_int)instance_f; + if(x->descriptor->LADSPA_Plugin->deactivate) + x->descriptor->LADSPA_Plugin->deactivate(x->instanceHandles[instance]); + #if DEBUG + post("plugin deactivated!"); + #endif + } + static void osc_error(int num, const char *msg, const char *where) { *************** *** 603,616 **** { unsigned parm_num = 0; ! t_int instance = (t_int)instance_f; int n_instances = x->n_instances; if (instance > x->n_instances || instance < 0){ ! post("dssi~: control: invalid instance number"); return; } - instance -= 1; - #if DEBUG post("Received LADSPA control data for instance %d", instance); --- 614,625 ---- { unsigned parm_num = 0; ! t_int instance = (t_int)instance_f - 1; int n_instances = x->n_instances; if (instance > x->n_instances || instance < 0){ ! post("dssi~: control: invalid instance number %d", instance); return; } #if DEBUG post("Received LADSPA control data for instance %d", instance); *************** *** 646,650 **** static void dssi_tilde_info (t_dssi_tilde *x){ unsigned int i; ! t_atom argv[6]; for(i = 0; i < x->descriptor->LADSPA_Plugin->PortCount; i++){ --- 655,659 ---- static void dssi_tilde_info (t_dssi_tilde *x){ unsigned int i; ! t_atom argv[7]; for(i = 0; i < x->descriptor->LADSPA_Plugin->PortCount; i++){ *************** *** 653,665 **** memcpy(&argv[1], &x->port_info[i].data_type, sizeof(t_atom)); ! memcpy(&argv[2], &x->port_info[i].name, sizeof(t_atom)); ! memcpy(&argv[3], &x->port_info[i].lower_bound, sizeof(t_atom)); ! memcpy(&argv[4], &x->port_info[i].upper_bound, sizeof(t_atom)); ! memcpy(&argv[5], &x->port_info[i].p_default, sizeof(t_atom)); ! outlet_anything (x->control_outlet, gensym ("port"), 6, argv); } } --- 662,676 ---- memcpy(&argv[1], &x->port_info[i].data_type, sizeof(t_atom)); ! memcpy(&argv[3], &x->port_info[i].name, sizeof(t_atom)); ! memcpy(&argv[4], &x->port_info[i].lower_bound, sizeof(t_atom)); ! memcpy(&argv[5], &x->port_info[i].upper_bound, sizeof(t_atom)); ! memcpy(&argv[6], &x->port_info[i].p_default, sizeof(t_atom)); ! argv[2].a_type = A_FLOAT; ! argv[2].a_w.w_float = (t_float)i - 1; ! outlet_anything (x->control_outlet, gensym ("port"), 7, argv); } } *************** *** 751,764 **** static void dssi_tilde_get_current_program(t_dssi_tilde *x, int instance){ int i; ! t_atom argv[2]; argv[0].a_type = A_FLOAT; ! argv[1].a_type = A_SYMBOL; i = x->instances[instance].currentProgram; ! argv[0].a_w.w_float = x->instances[instance].pluginPrograms[i].Program; ! argv[1].a_w.w_symbol = gensym ((char*)x->instances[instance].pluginPrograms[i].Name); ! outlet_anything (x->control_outlet, gensym ("program"), 2, argv); } --- 762,777 ---- static void dssi_tilde_get_current_program(t_dssi_tilde *x, int instance){ int i; ! t_atom argv[3]; argv[0].a_type = A_FLOAT; ! argv[1].a_type = A_FLOAT; ! argv[2].a_type = A_SYMBOL; i = x->instances[instance].currentProgram; ! argv[0].a_w.w_float = (t_float)instance; ! argv[1].a_w.w_float = x->instances[instance].pluginPrograms[i].Program; ! argv[2].a_w.w_symbol = gensym ((char*)x->instances[instance].pluginPrograms[i].Name); ! outlet_anything (x->control_outlet, gensym ("program"), 3, argv); } *************** *** 1406,1410 **** static t_int dssi_tilde_reset(t_dssi_tilde *x, t_float instance_f){ ! t_int instance = (t_int)instance_f; if (instance == -1){ for(instance = 0; instance < x->n_instances; instance++) { --- 1419,1423 ---- static t_int dssi_tilde_reset(t_dssi_tilde *x, t_float instance_f){ ! t_int instance = (t_int)instance_f - 1; if (instance == -1){ for(instance = 0; instance < x->n_instances; instance++) { *************** *** 1928,1935 **** /* no -- see comment in osc_exiting_handler */ /* if (!instances[i].inactive) { */ ! if (x->descriptor->LADSPA_Plugin->deactivate) { x->descriptor->LADSPA_Plugin->deactivate (x->instanceHandles[instance]); ! } /* } */ if (x->descriptor->LADSPA_Plugin && --- 1941,1949 ---- /* no -- see comment in osc_exiting_handler */ /* if (!instances[i].inactive) { */ ! /* if (x->descriptor->LADSPA_Plugin->deactivate) { x->descriptor->LADSPA_Plugin->deactivate (x->instanceHandles[instance]); ! }*/ ! dssi_tilde_deactivate_plugin(x, (t_float)instance); /* } */ if (x->descriptor->LADSPA_Plugin && *************** *** 2171,2175 **** dssi_tilde_connect_ports(x, i); for(i = 0;i < x->n_instances; i++) ! dssi_tilde_activate(x, i); if(x->is_DSSI){ for(i = 0;i < x->n_instances; i++) --- 2185,2189 ---- dssi_tilde_connect_ports(x, i); for(i = 0;i < x->n_instances; i++) ! dssi_tilde_activate_plugin(x, (t_float)i); if(x->is_DSSI){ for(i = 0;i < x->n_instances; i++) *************** *** 2234,2243 **** } - static void dssi_tilde_activate_plugin(t_dssi_tilde *x){ - - x->dsp = 1; - - } - static void *dssi_tilde_new(t_symbol *s, t_int argc, t_atom *argv){ --- 2248,2251 ---- *************** *** 2289,2294 **** class_addmethod (dssi_tilde_class,(t_method)dssi_tilde_plug_plugin, gensym ("plug"),A_GIMME,0); ! class_addmethod (dssi_tilde_class,(t_method)dssi_tilde_activate_plugin, ! gensym ("active"),A_DEFFLOAT,0); class_sethelpsymbol(dssi_tilde_class, gensym("help-dssi")); CLASS_MAINSIGNALIN(dssi_tilde_class, t_dssi_tilde, f); --- 2297,2304 ---- class_addmethod (dssi_tilde_class,(t_method)dssi_tilde_plug_plugin, gensym ("plug"),A_GIMME,0); ! /* class_addmethod (dssi_tilde_class,(t_method)dssi_tilde_activate_plugin, ! gensym ("activate"),A_DEFFLOAT - 1,0); ! class_addmethod (dssi_tilde_class,(t_method)dssi_tilde_deactivate_plugin, ! gensym ("deactivate"),A_DEFFLOAT - 1,0);*/ class_sethelpsymbol(dssi_tilde_class, gensym("help-dssi")); CLASS_MAINSIGNALIN(dssi_tilde_class, t_dssi_tilde, f); Index: dssi~.h =================================================================== RCS file: /cvsroot/pure-data/externals/postlude/dssi/src/dssi~.h,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** dssi~.h 24 Mar 2006 21:11:55 -0000 1.8 --- dssi~.h 27 Mar 2006 21:53:43 -0000 1.9 *************** *** 42,46 **** ! #define VERSION 0.92 #define EVENT_BUFSIZE 1024 #define OSC_BASE_MAX 1024 --- 42,46 ---- ! #define VERSION 0.93 #define EVENT_BUFSIZE 1024 #define OSC_BASE_MAX 1024

1 0

externals/postlude/dssi/doc help-dssi.pd,1.1,1.2
by Jamie Bullock 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/externals/postlude/dssi/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7336/doc Modified Files: help-dssi.pd Log Message: Modified helpfile. Fixed LADSPA control in bug Index: help-dssi.pd =================================================================== RCS file: /cvsroot/pure-data/externals/postlude/dssi/doc/help-dssi.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** help-dssi.pd 2 Feb 2006 20:55:26 -0000 1.1 --- help-dssi.pd 27 Mar 2006 21:53:43 -0000 1.2 *************** *** 1,4 **** ! #N canvas 65 172 1411 654 10; ! #X obj 1177 528 catch~ mix; #X text 602 15 dssi~ - a DSSI host for Pure Data --------------------------------- ; --- 1,4 ---- ! #N canvas 186 66 1411 654 10; ! #X obj 1268 524 catch~ mix; #X text 602 15 dssi~ - a DSSI host for Pure Data --------------------------------- ; *************** *** 11,24 **** #X floatatom 300 185 5 0 0 0 - - -; #X floatatom 443 165 5 0 0 0 - - -; - #X obj 345 295 dssi~ /usr/local/lib/dssi/hexter.so 2; - #X msg 1214 136 show 2; - #X obj 598 274 list; - #X msg 1130 137 hide; - #X msg 1171 136 show; - #X msg 915 162 configure GLOBAL:polyphony 10; #X msg 72 256 n \$1; #X obj 110 256 r chan; - #X msg 731 140 load TX-SYX/TFI2.SYX 2; - #X msg 732 160 load TX-SYX/TFI1.SYX 1; #X obj 51 231 list prepend n 2; #X obj 300 226 list prepend c 2; --- 11,16 ---- *************** *** 28,34 **** #X msg 300 205 7 \$1; #X obj 441 247 list prepend b 2 0; ! #X obj 344 322 throw~ mix; #X obj 119 148 hsl 128 15 60 80 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 9200 1; #X obj 167 206 select -1; #X obj 356 250 r chan; --- 20,26 ---- #X msg 300 205 7 \$1; #X obj 441 247 list prepend b 2 0; ! #X obj 441 324 throw~ mix; #X obj 119 148 hsl 128 15 60 80 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 0 1; #X obj 167 206 select -1; #X obj 356 250 r chan; *************** *** 37,44 **** #X obj 446 144 hsl 128 15 -63 63 0 1 empty empty empty -2 -6 0 8 -262144 -1 -1 6350 1; ! #X obj 598 254 r dssi1-config; ! #X obj 730 185 s dssi1-config; ! #X obj 916 184 s dssi1-config; ! #X obj 1129 186 s dssi1-config; #X floatatom 595 142 5 0 0 0 - - -; #X msg 318 250 c \$1; --- 29,36 ---- #X obj 446 144 hsl 128 15 -63 63 0 1 empty empty empty -2 -6 0 8 -262144 -1 -1 6350 1; ! #X obj 600 291 r dssi1-config; ! #X obj 708 179 s dssi1-config; ! #X obj 912 178 s dssi1-config; ! #X obj 1194 180 s dssi1-config; #X floatatom 595 142 5 0 0 0 - - -; #X msg 318 250 c \$1; *************** *** 53,73 **** #X text 105 96 -----notes-----; #X text 718 97 --sysex patch/bank load--; ! #X msg 914 140 configure polyphony 10 2; ! #X obj 5 371 cnv 15 400 300 empty empty dssi~_instance_2 20 12 0 14 -225280 -66577 0; ! #X obj 38 540 dssi~ /usr/lib/dssi/less_trivial_synth.so; ! #X msg 319 495 show; ! #X obj 321 519 list; ! #X msg 357 496 hide; ! #X obj 39 512 list prepend n 1; ! #X msg 40 435 80; ! #X obj 37 561 throw~ mix; ! #X obj 39 492 pack f f; ! #X msg 88 436 60; ! #X text 563 480 Usage: [dssi~ <path to plugin> <number of plugin instances>] ! ; #X obj 474 122 loadbang; - #X text 806 212 LAST ARGUMENT GIVES PLUGIN INSTANCE TO BE CONFIGURED - NO LAST ARGUMENT=(ALL INSTANCES); #X msg 613 221 p \$1 0; #X text 940 96 --configuration--; --- 45,52 ---- #X text 105 96 -----notes-----; #X text 718 97 --sysex patch/bank load--; ! #X obj 5 371 cnv 15 600 300 empty empty dssi~_instance_2 20 12 0 14 -225280 -66577 0; ! #X obj 435 620 throw~ mix; #X obj 474 122 loadbang; #X msg 613 221 p \$1 0; #X text 940 96 --configuration--; *************** *** 76,82 **** program and control data:; #X obj 595 199 list prepend p 2 0; - #X obj 39 461 makenote 100 1000; #X text 1126 98 --show/hide GUI--; ! #X obj 1175 551 dssi/output~; #X obj 49 186 makenote 80 10000; #X msg 1282 136 reset; --- 55,60 ---- program and control data:; #X obj 595 199 list prepend p 2 0; #X text 1126 98 --show/hide GUI--; ! #X obj 1266 547 dssi/output~; #X obj 49 186 makenote 80 10000; #X msg 1282 136 reset; *************** *** 84,141 **** #X text 1286 98 -reset plugin-; #X text 1286 115 (all notes off); ! #X connect 0 0 69 0; ! #X connect 0 0 69 1; #X connect 3 0 5 0; #X connect 4 0 3 0; ! #X connect 5 0 25 0; ! #X connect 6 0 31 0; ! #X connect 7 0 24 0; #X connect 8 0 4 0; ! #X connect 9 0 26 0; ! #X connect 9 1 26 0; ! #X connect 10 0 35 0; ! #X connect 11 0 9 1; ! #X connect 12 0 35 0; ! #X connect 13 0 35 0; ! #X connect 14 0 34 0; ! #X connect 15 0 19 1; ! #X connect 16 0 15 0; ! #X connect 17 0 33 0; ! #X connect 18 0 33 0; ! #X connect 19 0 9 0; ! #X connect 20 0 9 0; ! #X connect 21 0 19 0; ! #X connect 22 0 70 0; ! #X connect 23 0 70 0; ! #X connect 24 0 20 0; ! #X connect 25 0 9 0; ! #X connect 27 0 70 0; ! #X connect 28 1 70 0; ! #X connect 29 0 37 0; ! #X connect 30 0 7 0; ! #X connect 31 0 8 0; ! #X connect 32 0 11 0; ! #X connect 36 0 66 0; ! #X connect 37 0 20 1; ! #X connect 38 0 39 0; ! #X connect 39 0 25 1; ! #X connect 41 0 40 0; ! #X connect 43 0 62 0; ! #X connect 48 0 34 0; ! #X connect 50 0 56 0; ! #X connect 51 0 52 0; ! #X connect 52 0 50 1; ! #X connect 53 0 52 0; ! #X connect 54 0 50 0; ! #X connect 55 0 67 0; ! #X connect 57 0 54 0; ! #X connect 58 0 67 0; ! #X connect 60 0 6 0; ! #X connect 62 0 66 1; ! #X connect 66 0 9 0; ! #X connect 67 0 57 0; ! #X connect 67 1 57 1; ! #X connect 70 0 21 0; ! #X connect 70 1 21 1; ! #X connect 71 0 35 0; ! #X connect 72 0 35 0; --- 62,172 ---- #X text 1286 98 -reset plugin-; #X text 1286 115 (all notes off); ! #X obj 229 315 print; ! #X msg 78 305 listplugins; ! #X msg 101 329 info; ! #X msg 709 134 dssi load TX-SYX/TFI2.SYX 2; ! #X msg 710 154 dssi load TX-SYX/TFI1.SYX 1; ! #X msg 910 134 dssi configure polyphony 10 2; ! #X msg 911 156 dssi configure GLOBAL:polyphony 10; ! #X msg 1134 114 dssi hide; ! #X msg 1135 135 dssi show; ! #X msg 1206 114 dssi show 2; ! #X text 806 212 LAST ARGUMENT GIVES PLUGIN INSTANCE TO BE CONFIGURED ! \, NO LAST ARGUMENT=(ALL INSTANCES); ! #X obj 388 620 print; ! #X text 738 458 Usage: [dssi~ <[path to libary:plugin name] or [plugin ! name]> <number of plugin instances>]; ! #X obj 229 291 dssi~ /usr/local/lib/dssi/hexter.so:hexter 2; ! #X msg 193 342 control #1 445; ! #X obj 451 394 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 7900 1; ! #X obj 378 582 dssi~ sine_faaa 6 -------------; ! #X obj 284 438 expr $f1 \; $f1*2 \; $f1*3 \; $f1*4 \; $f1*5 \; $f1*6 ! ; ! #X obj 285 397 loadbang; ! #X msg 285 419 220; ! #X obj 471 394 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 6700 1; ! #X obj 491 394 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 6700 1; ! #X obj 511 394 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 6100 1; ! #X obj 531 394 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 0 1; ! #X obj 551 394 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 0 1; ! #X text 591 561 <- Audio rate control inputs can be audio or control ! values; ! #X text 14 491 Experimental - use with caution!; ! #X msg 54 509 plug sine_faac 6; ! #X connect 0 0 49 0; ! #X connect 0 0 49 1; #X connect 3 0 5 0; #X connect 4 0 3 0; ! #X connect 5 0 17 0; ! #X connect 6 0 23 0; ! #X connect 7 0 16 0; #X connect 8 0 4 0; ! #X connect 9 0 11 1; ! #X connect 10 0 9 0; ! #X connect 11 0 68 0; ! #X connect 12 0 68 0; ! #X connect 13 0 11 0; ! #X connect 14 0 50 0; ! #X connect 15 0 50 0; ! #X connect 16 0 12 0; ! #X connect 17 0 68 0; ! #X connect 19 0 50 0; ! #X connect 20 1 50 0; ! #X connect 21 0 29 0; ! #X connect 22 0 7 0; ! #X connect 23 0 8 0; ! #X connect 24 0 68 0; ! #X connect 28 0 47 0; ! #X connect 29 0 12 1; ! #X connect 30 0 31 0; ! #X connect 31 0 17 1; ! #X connect 33 0 32 0; ! #X connect 35 0 43 0; ! #X connect 42 0 6 0; ! #X connect 43 0 47 1; ! #X connect 47 0 68 0; ! #X connect 50 0 13 0; ! #X connect 50 1 13 1; ! #X connect 51 0 27 0; ! #X connect 52 0 27 0; ! #X connect 56 0 68 0; ! #X connect 57 0 68 0; ! #X connect 58 0 25 0; ! #X connect 59 0 25 0; ! #X connect 60 0 26 0; ! #X connect 61 0 26 0; ! #X connect 62 0 27 0; ! #X connect 63 0 27 0; ! #X connect 64 0 27 0; ! #X connect 68 0 55 0; ! #X connect 68 1 18 0; ! #X connect 68 2 18 0; ! #X connect 69 0 68 0; ! #X connect 70 0 71 2; ! #X connect 71 0 66 0; ! #X connect 71 1 41 0; ! #X connect 71 2 41 0; ! #X connect 71 3 41 0; ! #X connect 71 4 41 0; ! #X connect 71 5 41 0; ! #X connect 71 6 41 0; ! #X connect 72 0 71 1; ! #X connect 72 1 71 3; ! #X connect 72 2 71 5; ! #X connect 72 3 71 7; ! #X connect 72 4 71 9; ! #X connect 72 5 71 11; ! #X connect 73 0 74 0; ! #X connect 74 0 72 0; ! #X connect 75 0 71 4; ! #X connect 76 0 71 6; ! #X connect 77 0 71 8; ! #X connect 78 0 71 10; ! #X connect 79 0 71 12; ! #X connect 82 0 71 0;

1 0

pd/src m_glob.c, 1.4.4.2.2.3, 1.4.4.2.2.4 s_audio.c, 1.5.4.16.2.8, 1.5.4.16.2.9
by Tim Blechmann 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23765 Modified Files: Tag: devel_0_39 m_glob.c s_audio.c Log Message: cleaner message-based audio device listing Index: s_audio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio.c,v retrieving revision 1.5.4.16.2.8 retrieving revision 1.5.4.16.2.9 diff -C2 -d -r1.5.4.16.2.8 -r1.5.4.16.2.9 *** s_audio.c 24 Mar 2006 21:36:40 -0000 1.5.4.16.2.8 --- s_audio.c 27 Mar 2006 12:08:57 -0000 1.5.4.16.2.9 *************** *** 1235,1242 **** ! void glob_audio_getaudioindevices(t_pd * dummy, t_float f) { ! float flongform = 0; ! char buf[1024 + 2 * MAXNDEV*(DEVDESCSIZE+4)]; /* these are the devices you're using: */ int naudioindev, audioindev[MAXAUDIOINDEV], chindev[MAXAUDIOINDEV]; --- 1235,1242 ---- ! void glob_audio_getaudioindevices(t_pd * dummy, t_symbol *s, int ac, t_atom *av) { ! float flongform = 0; ! char buf[1024 + 2 * MAXNDEV*(DEVDESCSIZE+4)]; /* these are the devices you're using: */ int naudioindev, audioindev[MAXAUDIOINDEV], chindev[MAXAUDIOINDEV]; *************** *** 1254,1261 **** outdevliststring[MAXNDEV*(DEVDESCSIZE+4)+80]; ! char str[DEVDESCSIZE]; t_atom argv[MAXNDEV]; ! t_symbol * selector = gensym("audioindevice"); t_symbol * pd = gensym("pd"); --- 1254,1263 ---- outdevliststring[MAXNDEV*(DEVDESCSIZE+4)+80]; ! char str[DEVDESCSIZE]; t_atom argv[MAXNDEV]; ! t_float f = ac ? atom_getfloatarg(0,ac,av) : -1; ! ! t_symbol * selector = gensym("audioindev"); t_symbol * pd = gensym("pd"); *************** *** 1263,1271 **** MAXNDEV, DEVDESCSIZE); ! sys_get_audio_params(&naudioindev, audioindev, chindev, &naudiooutdev, audiooutdev, choutdev, &rate, &dacblocksize, &advance, &scheduler); ! if (f <= 0) { int i; --- 1265,1273 ---- MAXNDEV, DEVDESCSIZE); ! sys_get_audio_params(&naudioindev, audioindev, chindev, &naudiooutdev, audiooutdev, choutdev, &rate, &dacblocksize, &advance, &scheduler); ! if (f < 0) { int i; *************** *** 1280,1297 **** typedmess(pd->s_thing, selector, nindevs, argv); } ! else if (f <= (float) nindevs && f > 0) ! { t_symbol * sym; ! strcpy(str, indevlist + ((int)f - 1) * DEVDESCSIZE); ! sym = gensym(str); ! SETSYMBOL(argv+1+(int)(f), sym); typedmess(pd->s_thing, selector, 1, argv); ! } } ! void glob_audio_getaudiooutdevices(t_pd * dummy, float f) { ! float flongform = 0; ! char buf[1024 + 2 * MAXNDEV*(DEVDESCSIZE+4)]; /* these are the devices you're using: */ int naudioindev, audioindev[MAXAUDIOINDEV], chindev[MAXAUDIOINDEV]; --- 1282,1299 ---- typedmess(pd->s_thing, selector, nindevs, argv); } ! else if (f < (float) nindevs) ! { t_symbol * sym; ! strcpy(str, indevlist + (int)f * DEVDESCSIZE); ! sym = gensym(str); ! SETSYMBOL(argv, sym); typedmess(pd->s_thing, selector, 1, argv); ! } } ! void glob_audio_getaudiooutdevices(t_pd * dummy, t_symbol *s, int ac, t_atom *av) { ! float flongform = 0; ! char buf[1024 + 2 * MAXNDEV*(DEVDESCSIZE+4)]; /* these are the devices you're using: */ int naudioindev, audioindev[MAXAUDIOINDEV], chindev[MAXAUDIOINDEV]; *************** *** 1309,1316 **** outdevliststring[MAXNDEV*(DEVDESCSIZE+4)+80]; ! char str[DEVDESCSIZE]; t_atom argv[MAXNDEV]; ! t_symbol * selector = gensym("audiooutdevices"); t_symbol * pd = gensym("pd"); --- 1311,1320 ---- outdevliststring[MAXNDEV*(DEVDESCSIZE+4)+80]; ! char str[DEVDESCSIZE]; t_atom argv[MAXNDEV]; ! t_float f = ac ? atom_getfloatarg(0,ac,av) : -1; ! ! t_symbol * selector = gensym("audiooutdev"); t_symbol * pd = gensym("pd"); *************** *** 1318,1326 **** MAXNDEV, DEVDESCSIZE); ! sys_get_audio_params(&naudioindev, audioindev, chindev, &naudiooutdev, audiooutdev, choutdev, &rate, &dacblocksize, &advance, &scheduler); ! if (f == 0) { int i; --- 1322,1330 ---- MAXNDEV, DEVDESCSIZE); ! sys_get_audio_params(&naudioindev, audioindev, chindev, &naudiooutdev, audiooutdev, choutdev, &rate, &dacblocksize, &advance, &scheduler); ! if (f < 0) { int i; *************** *** 1335,1346 **** typedmess(pd->s_thing, selector, noutdevs, argv); } ! else if (f <= (float) noutdevs && f > 0) ! { t_symbol * sym; ! strcpy(str, outdevlist + ((int)f - 1) * DEVDESCSIZE); ! sym = gensym(str); ! SETSYMBOL(argv+1+(int)(f), sym); typedmess(pd->s_thing, selector, 1, argv); ! } } --- 1339,1350 ---- typedmess(pd->s_thing, selector, noutdevs, argv); } ! else if (f < (float) noutdevs) ! { t_symbol * sym; ! strcpy(str, outdevlist + (int)f * DEVDESCSIZE); ! sym = gensym(str); ! SETSYMBOL(argv, sym); typedmess(pd->s_thing, selector, 1, argv); ! } } Index: m_glob.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_glob.c,v retrieving revision 1.4.4.2.2.3 retrieving revision 1.4.4.2.2.4 diff -C2 -d -r1.4.4.2.2.3 -r1.4.4.2.2.4 *** m_glob.c 24 Mar 2006 21:36:40 -0000 1.4.4.2.2.3 --- m_glob.c 27 Mar 2006 12:08:57 -0000 1.4.4.2.2.4 *************** *** 66,72 **** int i; char str[80]; ! if (s == gensym("audioindevices")) return; ! if (s == gensym("audiooutdevices")) return; --- 66,72 ---- int i; char str[80]; ! if (s == gensym("audioindev")) return; ! if (s == gensym("audiooutdev")) return; *************** *** 149,155 **** gensym("audio-device-out"), A_GIMME, 0); class_addmethod(glob_pdobject, (t_method)glob_audio_getaudioindevices, ! gensym("getaudioindev"), A_DEFFLOAT, 0); class_addmethod(glob_pdobject, (t_method)glob_audio_getaudiooutdevices, ! gensym("getaudiooutdev"), A_DEFFLOAT, 0); /* tb } */ #ifdef UNIX --- 149,155 ---- gensym("audio-device-out"), A_GIMME, 0); class_addmethod(glob_pdobject, (t_method)glob_audio_getaudioindevices, ! gensym("getaudioindev"), A_GIMME, 0); class_addmethod(glob_pdobject, (t_method)glob_audio_getaudiooutdevices, ! gensym("getaudiooutdev"), A_GIMME, 0); /* tb } */ #ifdef UNIX

1 0

externals/postlude/dssi makefile,1.3,1.4
by Jamie Bullock 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/externals/postlude/dssi In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13724 Modified Files: makefile Log Message: Added jutils to makefile Index: makefile =================================================================== RCS file: /cvsroot/pure-data/externals/postlude/dssi/makefile,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** makefile 17 Mar 2006 17:08:46 -0000 1.3 --- makefile 27 Mar 2006 09:43:22 -0000 1.4 *************** *** 6,10 **** INSTALLPATH=$(PDDIR)/extra/ ! current: pd_linux --- 6,10 ---- INSTALLPATH=$(PDDIR)/extra/ ! current: pd_darwin *************** *** 46,51 **** .c.pd_darwin: ! $(CC) $(DARWINCFLAGS) $(DARWININCLUDE) -o $(NAME).o -c $*.c ! $(CC) -bundle -undefined suppress -flat_namespace -llo -o $(NAME).pd_darwin $(NAME).o rm -f *.o --- 46,53 ---- .c.pd_darwin: ! $(CC) $(DARWINCFLAGS) $(DARWININCLUDE) -c src/jsearch.c ! $(CC) $(DARWINCFLAGS) $(DARWININCLUDE) -c src/jload.c ! $(CC) $(DARWINCFLAGS) $(DARWININCLUDE) -c src/dssi~.c ! $(CC) -bundle -undefined suppress -flat_namespace -llo -o $(NAME).pd_darwin dssi~.o jload.o jsearch.o rm -f *.o

1 0

externals/hcs folder_list.c, 1.7, 1.8 folder_list-help.pd, 1.5, 1.6
by Hans-Christoph Steiner 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12406 Modified Files: folder_list.c folder_list-help.pd Log Message: cleaned up files for release Index: folder_list-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/folder_list-help.pd,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** folder_list-help.pd 26 Mar 2006 23:48:04 -0000 1.5 --- folder_list-help.pd 27 Mar 2006 03:16:14 -0000 1.6 *************** *** 1,24 **** ! #N canvas 254 219 532 567 10; ! #X msg 19 48 bang; ! #X msg 101 320 bang; #X obj 64 280 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X obj 85 385 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 176 235 symbol /usr/*; ! #X text 30 5 Get a listing of files based on a "glob" pattern.; ! #X text 62 49 list current directory; #X text 160 217 set pattern without no output; ! #X obj 101 351 folder_list; #X obj 83 257 folder_list /*; #X obj 83 278 print; ! #X text 28 29 left/hot inlet gives immediate output using stored path ; ! #X text 49 298 For UNIX people \, [folder_list] behaves just like "ls -d1A"; ! #X obj 102 384 print; #X msg 91 126 symbol ~/*.*; ! #X text 153 381 WARNING: the default will change in the future!; ! #X text 165 152 patterns default to path Pd launched from; #X msg 97 153 symbol *; #X text 187 177 relative paths work; --- 1,22 ---- ! #N canvas 536 89 536 571 10; ! #X msg 19 53 bang; ! #X msg 101 323 bang; #X obj 64 280 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X obj 85 388 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 176 235 symbol /usr/*; ! #X text 51 56 list current directory; #X text 160 217 set pattern without no output; ! #X obj 101 354 folder_list; #X obj 83 257 folder_list /*; #X obj 83 278 print; ! #X text 65 39 left/hot inlet gives immediate output using stored path ; ! #X text 49 301 For UNIX people \, [folder_list] behaves just like "ls -d1A"; ! #X obj 102 387 print; #X msg 91 126 symbol ~/*.*; ! #X text 153 384 WARNING: the default will change in the future!; #X msg 97 153 symbol *; #X text 187 177 relative paths work; *************** *** 32,36 **** #X symbolatom 186 476 0 0 0 0 - - -; #X text 128 425 What's in the same folder as this patch?; - #X text 186 350 defaults to /; #X text 164 104 drive letters work on ReactOS/Windows; #X msg 77 103 symbol C:/*; --- 30,33 ---- *************** *** 38,57 **** #X msg 40 78 symbol %USERPROFILE%/*; #X text 203 79 ReactOS/Windows environment variables work; ! #X connect 0 0 9 0; ! #X connect 1 0 8 0; ! #X connect 4 0 9 1; ! #X connect 8 0 3 0; ! #X connect 8 0 13 0; ! #X connect 9 0 2 0; ! #X connect 9 0 10 0; ! #X connect 14 0 9 0; ! #X connect 17 0 9 0; ! #X connect 19 0 9 0; ! #X connect 20 0 24 0; ! #X connect 20 0 25 0; ! #X connect 21 0 23 0; ! #X connect 22 0 20 0; ! #X connect 24 0 21 0; ! #X connect 24 0 26 0; ! #X connect 30 0 9 0; ! #X connect 32 0 9 0; --- 35,65 ---- #X msg 40 78 symbol %USERPROFILE%/*; #X text 203 79 ReactOS/Windows environment variables work; ! #X text 186 353 defaults to your home folder; ! #X text 267 200 nested wildcards work on UNIX; ! #X msg 119 199 symbol /var/*/*.log; ! #X text 30 5 Get a listing of files based on a wildcard pattern. On ! UNIX \, it follows glob rules \, on Windows it follows the cmd.exe ! rules.; ! #X text 165 152 patterns default to path that Pd launched from; ! #X text 274 541 released under the GNU GPL; ! #X text 57 527 (C) Copyright 2006 Hans-Christoph Steiner <hans(a)at.or.at> ! ; ! #X connect 0 0 8 0; ! #X connect 1 0 7 0; ! #X connect 4 0 8 1; ! #X connect 7 0 3 0; ! #X connect 7 0 12 0; ! #X connect 8 0 2 0; ! #X connect 8 0 9 0; ! #X connect 13 0 8 0; ! #X connect 15 0 8 0; ! #X connect 17 0 8 0; ! #X connect 18 0 22 0; ! #X connect 18 0 23 0; ! #X connect 19 0 21 0; ! #X connect 20 0 18 0; ! #X connect 22 0 19 0; ! #X connect 22 0 24 0; ! #X connect 27 0 8 0; ! #X connect 29 0 8 0; ! #X connect 33 0 8 0; Index: folder_list.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/folder_list.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** folder_list.c 27 Mar 2006 03:06:29 -0000 1.7 --- folder_list.c 27 Mar 2006 03:16:14 -0000 1.8 *************** *** 1,2 **** --- 1,27 ---- + /* --------------------------------------------------------------------------*/ + /* */ + /* object for getting file listings using wildcard patterns */ + /* Written by Hans-Christoph Steiner <hans(a)at.or.at> */ + /* */ + /* Copyright (c) 2006 Hans-Christoph Steiner */ + /* */ + /* This program is free software; you can redistribute it and/or */ + /* modify it under the terms of the GNU General Public License */ + /* as published by the Free Software Foundation; either version 2 */ + /* of the License, or (at your option) any later version. */ + /* */ + /* See file LICENSE for further informations on licensing terms. */ + /* */ + /* This program is distributed in the hope that it will be useful, */ + /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ + /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ + /* GNU General Public License for more details. */ + /* */ + /* You should have received a copy of the GNU General Public License */ + /* along with this program; if not, write to the Free Software Foundation, */ + /* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + /* */ + /* --------------------------------------------------------------------------*/ + #include <m_pd.h>

1 0

externals/hcs folder_list.c,1.6,1.7
by Hans-Christoph Steiner 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7985 Modified Files: folder_list.c Log Message: got the full path working on windows... ug.. why is windows programming inevitably a total pain in the ass? Index: folder_list.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/folder_list.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** folder_list.c 26 Mar 2006 23:48:04 -0000 1.6 --- folder_list.c 27 Mar 2006 03:06:29 -0000 1.7 *************** *** 37,46 **** #ifdef _WIN32 ! WIN32_FIND_DATA FindFileData; HANDLE hFind; DWORD errorNumber; LPVOID lpErrorMessage; ! hFind = FindFirstFile(x->x_pattern->s_name, &FindFileData); if (hFind == INVALID_HANDLE_VALUE) { --- 37,55 ---- #ifdef _WIN32 ! WIN32_FIND_DATA findData; HANDLE hFind; DWORD errorNumber; LPVOID lpErrorMessage; + char fullPathNameBuffer[MAX_PATH+1] = ""; + char unbashBuffer[MAX_PATH+1] = ""; + char pathBuffer[MAX_PATH+1] = ""; + int length; + + // arg, looks perfect, but only in Windows Vista + // GetFinalPathNameByHandle(hFind,fullPathNameBuffer,MAX_PATH,FILE_NAME_NORMALIZED); + GetFullPathName(x->x_pattern->s_name,MAX_PATH,fullPathNameBuffer,NULL); + sys_unbashfilename(fullPathNameBuffer,unbashBuffer); ! hFind = FindFirstFile(x->x_pattern->s_name, &findData); if (hFind == INVALID_HANDLE_VALUE) { *************** *** 66,71 **** } do { ! outlet_symbol( x->x_obj.ob_outlet, gensym(FindFileData.cFileName) ); ! } while (FindNextFile(hFind, &FindFileData) != 0); FindClose(hFind); #else --- 75,91 ---- } do { ! if( strcmp(findData.cFileName, ".") && strcmp(findData.cFileName, "..") ) ! { ! length = strlen(unbashBuffer); ! do ! { ! length--; ! } while ( *(unbashBuffer + length) == '/' ); ! strncpy(pathBuffer, unbashBuffer, length); ! pathBuffer[length] = '\0'; ! strcat(pathBuffer,findData.cFileName); ! outlet_symbol( x->x_obj.ob_outlet, gensym(pathBuffer) ); ! } ! } while (FindNextFile(hFind, &findData) != 0); FindClose(hFind); #else

1 0

externals/ext13 strippath-help.pd,NONE,1.1
by Hans-Christoph Steiner 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/externals/ext13 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10463 Added Files: strippath-help.pd Log Message: super basic help patch --- NEW FILE: strippath-help.pd --- #N canvas 0 22 454 304 10; #X obj 113 163 ext13/strippath; #X symbolatom 113 196 0 0 0 0 - - -; #X msg 113 109 symbol /this/is/a/testfile.txt; #X msg 58 88 bang; #X obj 58 109 getdir; #X connect 0 0 1 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 0 0;

1 0

externals/hcs TODO, 1.3, 1.4 folder_list.c, 1.5, 1.6 folder_list-help.pd, 1.4, 1.5
by Hans-Christoph Steiner 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5169 Modified Files: TODO folder_list.c folder_list-help.pd Log Message: minor cleanups Index: folder_list-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/folder_list-help.pd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** folder_list-help.pd 26 Mar 2006 23:32:24 -0000 1.4 --- folder_list-help.pd 26 Mar 2006 23:48:04 -0000 1.5 *************** *** 1,58 **** ! #N canvas 254 219 528 563 10; ! #X msg 19 48 bang; ! #X msg 101 320 bang; ! #X obj 64 267 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X obj 85 385 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X msg 175 218 symbol /usr/*; ! #X text 30 5 Get a listing of files based on a "glob" pattern.; ! #X text 55 50 list current directory; ! #X text 159 200 set pattern without no output; ! #X obj 101 351 folder_list; ! #X obj 82 243 folder_list /*; ! #X obj 83 278 print; ! #X text 28 29 left/hot inlet gives immediate output using stored path ! ; ! #X text 49 298 For UNIX people \, [folder_list] behaves just like "ls ! -d1A"; ! #X obj 102 384 print; ! #X msg 91 126 symbol ~/*.*; ! #X text 153 381 WARNING: the default will change in the future!; ! #X text 153 151 patterns default to path Pd launched from; ! #X msg 97 153 symbol *; ! #X text 187 177 relative paths work; ! #X msg 102 178 symbol ../*; ! #X obj 51 440 getdir; ! #X obj 51 482 folder_list; ! #X msg 51 420 bang; ! #X obj 51 504 print; ! #X obj 51 460 makefilename %s/*; ! #X symbolatom 186 456 0 0 0 0 - - -; ! #X symbolatom 186 476 0 0 0 0 - - -; ! #X text 128 425 What's in the same folder as this patch?; ! #X text 186 350 defaults to /; ! #X text 144 97 drive letters work on ReactOS/Windows; ! #X msg 69 97 symbol C:/*; ! #X text 190 128 all files with a dot in your home; ! #X msg 47 73 symbol %USERPROFILE%/*; ! #X text 185 73 On ReactOS/Windows you can use Environment variables ! ; ! #X connect 0 0 9 0; ! #X connect 1 0 8 0; ! #X connect 4 0 9 1; ! #X connect 8 0 3 0; ! #X connect 8 0 13 0; ! #X connect 9 0 2 0; ! #X connect 9 0 10 0; ! #X connect 14 0 9 0; ! #X connect 17 0 9 0; ! #X connect 19 0 9 0; ! #X connect 20 0 24 0; ! #X connect 20 0 25 0; ! #X connect 21 0 23 0; ! #X connect 22 0 20 0; ! #X connect 24 0 21 0; ! #X connect 24 0 26 0; ! #X connect 30 0 9 0; ! #X connect 32 0 9 0; --- 1,57 ---- ! #N canvas 254 219 532 567 10; ! #X msg 19 48 bang; ! #X msg 101 320 bang; ! #X obj 64 280 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X obj 85 385 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X msg 176 235 symbol /usr/*; ! #X text 30 5 Get a listing of files based on a "glob" pattern.; ! #X text 62 49 list current directory; ! #X text 160 217 set pattern without no output; ! #X obj 101 351 folder_list; ! #X obj 83 257 folder_list /*; ! #X obj 83 278 print; ! #X text 28 29 left/hot inlet gives immediate output using stored path ! ; ! #X text 49 298 For UNIX people \, [folder_list] behaves just like "ls ! -d1A"; ! #X obj 102 384 print; ! #X msg 91 126 symbol ~/*.*; ! #X text 153 381 WARNING: the default will change in the future!; ! #X text 165 152 patterns default to path Pd launched from; ! #X msg 97 153 symbol *; ! #X text 187 177 relative paths work; ! #X msg 102 178 symbol ../*; ! #X obj 51 440 getdir; ! #X obj 51 482 folder_list; ! #X msg 51 420 bang; ! #X obj 51 504 print; ! #X obj 51 460 makefilename %s/*; ! #X symbolatom 186 456 0 0 0 0 - - -; ! #X symbolatom 186 476 0 0 0 0 - - -; ! #X text 128 425 What's in the same folder as this patch?; ! #X text 186 350 defaults to /; ! #X text 164 104 drive letters work on ReactOS/Windows; ! #X msg 77 103 symbol C:/*; ! #X text 190 128 all files with a dot in your home; ! #X msg 40 78 symbol %USERPROFILE%/*; ! #X text 203 79 ReactOS/Windows environment variables work; ! #X connect 0 0 9 0; ! #X connect 1 0 8 0; ! #X connect 4 0 9 1; ! #X connect 8 0 3 0; ! #X connect 8 0 13 0; ! #X connect 9 0 2 0; ! #X connect 9 0 10 0; ! #X connect 14 0 9 0; ! #X connect 17 0 9 0; ! #X connect 19 0 9 0; ! #X connect 20 0 24 0; ! #X connect 20 0 25 0; ! #X connect 21 0 23 0; ! #X connect 22 0 20 0; ! #X connect 24 0 21 0; ! #X connect 24 0 26 0; ! #X connect 30 0 9 0; ! #X connect 32 0 9 0; Index: TODO =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/TODO,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TODO 17 Jan 2006 18:09:16 -0000 1.3 --- TODO 26 Mar 2006 23:48:04 -0000 1.4 *************** *** 1,5 **** --- 1,19 ---- + + - write [version] object + - [bang( outputs list of version major minor bugfix i.e. [0 39 2( + - [time( outputs pd_compiletime + - [date( outputs pd_compiledate + - this should really be handled by messages to Pd, [;pd get date( + + + - [cursor] object + - based on [MouseState] and/or [gcanvas] + - inlet to control the mouse cursor icon (pointer, X, text select, etc) + + - mDNS objects! + - add pan objects to audio basics library *************** *** 9,26 **** - standard math functions - create networking library - socket objects - multicast DNS objects - create mapping library - move [hid] toolkit objects into mapping lib ! ! - create sensors library - objects for smoothing sensor data - create i/o library - add hid, comport, platform-specific hid, libusb, midi - perhaps specific objects for sensorboxs like the arduino, multio, etc - create standard gui objects lib (what's the name?) - dsp --- 23,47 ---- - standard math functions + - create networking library - socket objects - multicast DNS objects + - create mapping library - move [hid] toolkit objects into mapping lib ! - sort thru Cyrille's ds_ objects - objects for smoothing sensor data + - create i/o library - add hid, comport, platform-specific hid, libusb, midi + - convert [hid] to libhid + - write [directinput] + - [serial] + - port numbering on darwin: number /dev/cu.* sequentially - perhaps specific objects for sensorboxs like the arduino, multio, etc + - create standard gui objects lib (what's the name?) - dsp *************** *** 29,33 **** --- 50,56 ---- - create support lib for creating objects in Pd + - *_argument objects - rename blocksize_in_ms to block_size_in_ms + - how about "foundation" or "class" or "support" Index: folder_list.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/folder_list.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** folder_list.c 26 Mar 2006 23:32:24 -0000 1.5 --- folder_list.c 26 Mar 2006 23:48:04 -0000 1.6 *************** *** 119,123 **** t_folder_list *x = (t_folder_list *)pd_new(folder_list_class); ! post("[folder_list] %s, written by Hans-Christoph Steiner <hans(a)at.or.at>",version); /* TODO set current dir of patch as default */ #ifdef _WIN32 --- 119,124 ---- t_folder_list *x = (t_folder_list *)pd_new(folder_list_class); ! post("[folder_list] %s",version); ! post("\twritten by Hans-Christoph Steiner <hans(a)at.or.at>"); /* TODO set current dir of patch as default */ #ifdef _WIN32

1 0

externals/hcs folder_list.c, 1.4, 1.5 folder_list-help.pd, 1.3, 1.4
by Hans-Christoph Steiner 27 Mar '06

27 Mar '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31618 Modified Files: folder_list.c folder_list-help.pd Log Message: ported to windows, and some UNIX-side cleanups and fixes as well. Now its time to test it on Mac OS X and try to get envvar expansion working Index: folder_list-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/folder_list-help.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** folder_list-help.pd 26 Mar 2006 21:26:04 -0000 1.3 --- folder_list-help.pd 26 Mar 2006 23:32:24 -0000 1.4 *************** *** 1,51 **** ! #N canvas 254 219 504 539 10; ! #X msg 74 72 bang; ! #X msg 101 320 bang; ! #X obj 124 267 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X obj 85 385 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X msg 235 218 symbol /usr/*; ! #X text 36 25 Get a listing of files based on a "glob" pattern.; ! #X text 110 74 list current directory; ! #X text 219 200 set pattern without no output; ! #X text 241 111 all files with a dot in your Home; ! #X obj 101 351 folder_list; ! #X obj 142 243 folder_list /*; ! #X obj 143 278 print; ! #X text 34 49 left/hot inlet gives immediate output using stored path ! ; ! #X text 49 298 For UNIX people \, [folder_list] behaves just like "ls ! -d1A"; ! #X obj 102 384 print; ! #X msg 142 109 symbol ~/*.*; ! #X text 153 381 WARNING: the default will change in the future!; ! #X text 156 131 patterns default to path Pd launched from; ! #X msg 156 148 symbol *; ! #X text 258 174 relative paths work; ! #X msg 173 175 symbol ../*; ! #X obj 51 440 getdir; ! #X obj 51 482 folder_list; ! #X msg 51 420 bang; ! #X obj 51 504 print; ! #X obj 51 460 makefilename %s/*; ! #X symbolatom 186 456 0 0 0 0 - - -; ! #X symbolatom 186 476 0 0 0 0 - - -; ! #X text 128 425 What's in the same folder as this patch?; ! #X text 186 350 defaults to /; ! #X connect 0 0 10 0; ! #X connect 1 0 9 0; ! #X connect 4 0 10 1; ! #X connect 9 0 3 0; ! #X connect 9 0 14 0; ! #X connect 10 0 2 0; ! #X connect 10 0 11 0; ! #X connect 15 0 10 0; ! #X connect 18 0 10 0; ! #X connect 20 0 10 0; ! #X connect 21 0 25 0; ! #X connect 21 0 26 0; ! #X connect 22 0 24 0; ! #X connect 23 0 21 0; ! #X connect 25 0 22 0; ! #X connect 25 0 27 0; --- 1,58 ---- ! #N canvas 254 219 528 563 10; ! #X msg 19 48 bang; ! #X msg 101 320 bang; ! #X obj 64 267 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X obj 85 385 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X msg 175 218 symbol /usr/*; ! #X text 30 5 Get a listing of files based on a "glob" pattern.; ! #X text 55 50 list current directory; ! #X text 159 200 set pattern without no output; ! #X obj 101 351 folder_list; ! #X obj 82 243 folder_list /*; ! #X obj 83 278 print; ! #X text 28 29 left/hot inlet gives immediate output using stored path ! ; ! #X text 49 298 For UNIX people \, [folder_list] behaves just like "ls ! -d1A"; ! #X obj 102 384 print; ! #X msg 91 126 symbol ~/*.*; ! #X text 153 381 WARNING: the default will change in the future!; ! #X text 153 151 patterns default to path Pd launched from; ! #X msg 97 153 symbol *; ! #X text 187 177 relative paths work; ! #X msg 102 178 symbol ../*; ! #X obj 51 440 getdir; ! #X obj 51 482 folder_list; ! #X msg 51 420 bang; ! #X obj 51 504 print; ! #X obj 51 460 makefilename %s/*; ! #X symbolatom 186 456 0 0 0 0 - - -; ! #X symbolatom 186 476 0 0 0 0 - - -; ! #X text 128 425 What's in the same folder as this patch?; ! #X text 186 350 defaults to /; ! #X text 144 97 drive letters work on ReactOS/Windows; ! #X msg 69 97 symbol C:/*; ! #X text 190 128 all files with a dot in your home; ! #X msg 47 73 symbol %USERPROFILE%/*; ! #X text 185 73 On ReactOS/Windows you can use Environment variables ! ; ! #X connect 0 0 9 0; ! #X connect 1 0 8 0; ! #X connect 4 0 9 1; ! #X connect 8 0 3 0; ! #X connect 8 0 13 0; ! #X connect 9 0 2 0; ! #X connect 9 0 10 0; ! #X connect 14 0 9 0; ! #X connect 17 0 9 0; ! #X connect 19 0 9 0; ! #X connect 20 0 24 0; ! #X connect 20 0 25 0; ! #X connect 21 0 23 0; ! #X connect 22 0 20 0; ! #X connect 24 0 21 0; ! #X connect 24 0 26 0; ! #X connect 30 0 9 0; ! #X connect 32 0 9 0; Index: folder_list.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/folder_list.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** folder_list.c 26 Mar 2006 21:30:28 -0000 1.4 --- folder_list.c 26 Mar 2006 23:32:24 -0000 1.5 *************** *** 1,4 **** --- 1,12 ---- #include <m_pd.h> + + #ifdef _WIN32 + #define _WIN32_WINNT 0x0400 + #include <windows.h> + #include <stdio.h> + #else + #include <stdlib.h> #include <glob.h> + #endif static char *version = "$Revision$"; *************** *** 13,19 **** typedef struct _folder_list { ! t_object x_obj; ! t_symbol *x_pattern; ! glob_t x_glob; } t_folder_list; --- 21,26 ---- typedef struct _folder_list { ! t_object x_obj; ! t_symbol *x_pattern; } t_folder_list; *************** *** 22,50 **** */ static void folder_list_output(t_folder_list* x) { DEBUG(post("folder_list_output");); - unsigned int i; DEBUG(post("globbing %s",x->x_pattern->s_name);); ! switch( glob( x->x_pattern->s_name, GLOB_TILDE, NULL, &(x->x_glob) ) ) { ! case GLOB_NOSPACE: ! error("[folder_list] out of memory"); break; ! case GLOB_ABORTED: ! error("[folder_list] aborted"); break; ! case GLOB_NOMATCH: ! error("[folder_list] no match"); break; } ! for(i = 0; i < x->x_glob.gl_pathc; i++) ! outlet_symbol( x->x_obj.ob_outlet, gensym(x->x_glob.gl_pathv[i]) ); ! } ! ! ! static void folder_list_symbol(t_folder_list *x, t_symbol *s) ! { ! x->x_pattern = s; ! folder_list_output(x); } --- 29,93 ---- */ + // TODO: regexp ~ to USERPROFILE for Windows + // TODO: make FindFirstFile display when its just a dir static void folder_list_output(t_folder_list* x) { DEBUG(post("folder_list_output");); + #ifdef _WIN32 + WIN32_FIND_DATA FindFileData; + HANDLE hFind; + DWORD errorNumber; + LPVOID lpErrorMessage; + + hFind = FindFirstFile(x->x_pattern->s_name, &FindFileData); + if (hFind == INVALID_HANDLE_VALUE) + { + errorNumber = GetLastError(); + switch (errorNumber) + { + case ERROR_FILE_NOT_FOUND: + case ERROR_PATH_NOT_FOUND: + error("[folder_list] nothing found for \"%s\"",x->x_pattern->s_name); + break; + default: + FormatMessage( + FORMAT_MESSAGE_ALLOCATE_BUFFER | + FORMAT_MESSAGE_FROM_SYSTEM, + NULL, + errorNumber, + MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), + (LPTSTR) &lpErrorMessage, + 0, NULL ); + error("[folder_list] %s", lpErrorMessage); + } + return; + } + do { + outlet_symbol( x->x_obj.ob_outlet, gensym(FindFileData.cFileName) ); + } while (FindNextFile(hFind, &FindFileData) != 0); + FindClose(hFind); + #else + unsigned int i; + glob_t glob_buffer; + DEBUG(post("globbing %s",x->x_pattern->s_name);); ! switch( glob( x->x_pattern->s_name, GLOB_TILDE, NULL, &glob_buffer ) ) { ! case GLOB_NOSPACE: ! error("[folder_list] out of memory for \"%s\"",x->x_pattern->s_name); ! break; ! case GLOB_ABORTED: ! error("[folder_list] aborted \"%s\"",x->x_pattern->s_name); ! break; ! case GLOB_NOMATCH: ! error("[folder_list] nothing found for \"%s\"",x->x_pattern->s_name); ! break; } ! for(i = 0; i < glob_buffer.gl_pathc; i++) ! outlet_symbol( x->x_obj.ob_outlet, gensym(glob_buffer.gl_pathv[i]) ); ! globfree( &(glob_buffer) ); ! #endif } *************** *** 53,65 **** { DEBUG(post("folder_list_set");); x->x_pattern = s; } ! static void folder_list_free(t_folder_list* x) { ! DEBUG(post("folder_list_free");); ! ! globfree( &(x->x_glob) ); } --- 96,113 ---- { DEBUG(post("folder_list_set");); + #ifdef _WIN32 + char string_buffer[MAX_PATH]; + ExpandEnvironmentStrings(s->s_name, string_buffer, MAX_PATH); + x->x_pattern = gensym(string_buffer); + #else x->x_pattern = s; + #endif } ! static void folder_list_symbol(t_folder_list *x, t_symbol *s) { ! folder_list_set(x,s); ! folder_list_output(x); } *************** *** 73,77 **** post("[folder_list] %s, written by Hans-Christoph Steiner <hans(a)at.or.at>",version); /* TODO set current dir of patch as default */ ! x->x_pattern = gensym("/"); symbolinlet_new(&x->x_obj, &x->x_pattern); --- 121,129 ---- post("[folder_list] %s, written by Hans-Christoph Steiner <hans(a)at.or.at>",version); /* TODO set current dir of patch as default */ ! #ifdef _WIN32 ! x->x_pattern = gensym(getenv("USERPROFILE")); ! #else ! x->x_pattern = gensym(getenv("HOME")); ! #endif symbolinlet_new(&x->x_obj, &x->x_pattern); *************** *** 90,94 **** folder_list_class = class_new(gensym("folder_list"), (t_newmethod)folder_list_new, ! (t_method)folder_list_free, sizeof(t_folder_list), 0, --- 142,146 ---- folder_list_class = class_new(gensym("folder_list"), (t_newmethod)folder_list_new, ! 0, sizeof(t_folder_list), 0, *************** *** 96,100 **** 0); /* add inlet datatype methods */ - // class_addfloat(folder_list_class,(t_method) glob_float); class_addbang(folder_list_class,(t_method) folder_list_output); class_addsymbol(folder_list_class,(t_method) folder_list_symbol); --- 148,151 ----

1 0

← Newer
1
2
3
4
5
6
7
...
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 March 2006