Pd-cvs June 2007

pd-cvs@lists.iem.at

17 participants
220 discussions

pd/src s_audio_alsa.c,1.5.4.5.2.2.2.4,1.5.4.5.2.2.2.5
by Mathieu Bouchard 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6279 Modified Files: Tag: desiredata s_audio_alsa.c Log Message: fixed dangling pointer in alsa_getdevs Index: s_audio_alsa.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio_alsa.c,v retrieving revision 1.5.4.5.2.2.2.4 retrieving revision 1.5.4.5.2.2.2.5 diff -C2 -d -r1.5.4.5.2.2.2.4 -r1.5.4.5.2.2.2.5 *** s_audio_alsa.c 28 Jun 2007 05:37:53 -0000 1.5.4.5.2.2.2.4 --- s_audio_alsa.c 30 Jun 2007 15:32:20 -0000 1.5.4.5.2.2.2.5 *************** *** 677,703 **** snd_ctl_card_info_t *info; char devname[80]; ! const char *desc; ! if (2 * ndev + 2 > maxndev) ! break; ! /* apparently, "cardno" is just a counter; but check that here */ ! if (ndev != cardno) ! fprintf(stderr, "oops: ALSA cards not reported in order?\n"); ! sprintf(devname, "hw:%d", cardno ); /* fprintf(stderr, "\ntry %s...\n", devname); */ if (snd_ctl_open(&ctl, devname, 0) >= 0) { snd_ctl_card_info_malloc(&info); snd_ctl_card_info(ctl, info); ! desc = snd_ctl_card_info_get_name(info); snd_ctl_card_info_free(info); } else { fprintf(stderr, "ALSA card scan error\n"); ! desc = "???"; } ! /* fprintf(stderr, "name: %s\n", snd_ctl_card_info_get_name(info)); */ ! sprintf(indevlist + 2*ndev * devdescsize, "%s (hardware)", desc); ! sprintf(indevlist + (2*ndev + 1) * devdescsize, "%s (plug-in)", desc); ! sprintf(outdevlist + 2*ndev * devdescsize, "%s (hardware)", desc); ! sprintf(outdevlist + (2*ndev + 1) * devdescsize, "%s (plug-in)", desc); ndev++; } for (i = 0, j = 2*ndev; i < alsa_nnames; i++, j++) { --- 677,702 ---- snd_ctl_card_info_t *info; char devname[80]; ! char *desc; ! if (2 * ndev + 2 > maxndev) break; ! /* apparently, "cardno" is just a counter; but check that here */ ! if (ndev != cardno) fprintf(stderr, "oops: ALSA cards not reported in order?\n"); ! sprintf(devname, "hw:%d", cardno); /* fprintf(stderr, "\ntry %s...\n", devname); */ if (snd_ctl_open(&ctl, devname, 0) >= 0) { snd_ctl_card_info_malloc(&info); snd_ctl_card_info(ctl, info); ! desc = strdup(snd_ctl_card_info_get_name(info)); snd_ctl_card_info_free(info); } else { fprintf(stderr, "ALSA card scan error\n"); ! desc = strdup("???"); } ! fprintf(stderr, "name: %s\n", desc); ! sprintf(indevlist + 2*ndev * devdescsize, "%s (hardware)", desc); ! sprintf(indevlist + (2*ndev+1) * devdescsize, "%s (plug-in)", desc); ! sprintf(outdevlist + 2*ndev * devdescsize, "%s (hardware)", desc); ! sprintf(outdevlist + (2*ndev+1) * devdescsize, "%s (plug-in)", desc); ndev++; + free(desc); } for (i = 0, j = 2*ndev; i < alsa_nnames; i++, j++) {

1 0

pd/src desire.c,1.1.2.217.2.141,1.1.2.217.2.142
by Mathieu Bouchard 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28253 Modified Files: Tag: desiredata desire.c Log Message: fixed bug when using vasprintf() for post() Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.141 retrieving revision 1.1.2.217.2.142 diff -C2 -d -r1.1.2.217.2.141 -r1.1.2.217.2.142 *** desire.c 28 Jun 2007 16:49:49 -0000 1.1.2.217.2.141 --- desire.c 30 Jun 2007 15:04:07 -0000 1.1.2.217.2.142 *************** *** 7758,7766 **** void post(const char *fmt, ...) { char *buf; va_list ap; va_start(ap, fmt); ! vasprintf(&buf, fmt, ap); va_end(ap); strcat(buf, "\n"); dopost(buf); free(buf); } void startpost(const char *fmt, ...) { char *buf; va_list ap; va_start(ap, fmt); ! vasprintf(&buf, fmt, ap); va_end(ap); dopost(buf); free(buf); } --- 7758,7769 ---- void post(const char *fmt, ...) { char *buf; va_list ap; va_start(ap, fmt); ! size_t n = vasprintf(&buf, fmt, ap); va_end(ap); ! buf=(char*)realloc(buf,n+2); strcpy(buf+n,"\n"); ! dopost(buf); free(buf); } void startpost(const char *fmt, ...) { char *buf; va_list ap; va_start(ap, fmt); ! vasprintf(&buf, fmt, ap); va_end(ap); ! dopost(buf); free(buf); } *************** *** 7820,7824 **** char buf[MAXPDSTRING]; va_list ap; - static int saidit; dopost("error: "); va_start(ap, fmt); --- 7823,7826 ---- *************** *** 7829,7836 **** strcpy(error_string,buf); error_object = (t_pd *)object; - if (!saidit) { - post("... you might be able to track this down from the Find menu."); - saidit = 1; - } } --- 7831,7834 ----

1 0

pd/src desire.tk,1.1.2.600.2.195,1.1.2.600.2.196
by Mathieu Bouchard 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14911 Modified Files: Tag: desiredata desire.tk Log Message: get version number from s_main.c Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.195 retrieving revision 1.1.2.600.2.196 diff -C2 -d -r1.1.2.600.2.195 -r1.1.2.600.2.196 *** desire.tk 30 Jun 2007 11:31:31 -0000 1.1.2.600.2.195 --- desire.tk 30 Jun 2007 14:27:29 -0000 1.1.2.600.2.196 *************** *** 742,746 **** proc pd_startup {version apilist midiapilist args} { ! set ::pd_myversion $version set ::pd_apilist $apilist set ::pd_midiapilist $midiapilist --- 742,746 ---- proc pd_startup {version apilist midiapilist args} { ! set ::pd_version $version set ::pd_apilist $apilist set ::pd_midiapilist $midiapilist *************** *** 1464,1468 **** set bigstring [read $f 1000] regsub -all PD_BASEDIR $bigstring $::pd_guidir bigstring ! regsub -all PD_VERSION $bigstring $::pd_myversion bigstring $w.1.text insert end $bigstring } --- 1464,1468 ---- set bigstring [read $f 1000] regsub -all PD_BASEDIR $bigstring $::pd_guidir bigstring ! regsub -all PD_VERSION $bigstring $::pd_version bigstring $w.1.text insert end $bigstring } *************** *** 7968,7972 **** super close wm title .$self "About DesireData" ! pack [label .$self.title -text "DesireData 0.39.A.pre5" -font {helvetica 24}] -side top pack [label .$self.date -text "released on 2006.12.??"] -side top pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72 --- 7968,7972 ---- super close wm title .$self "About DesireData" ! pack [label .$self.title -text $::pd_version -font {helvetica 24}] -side top pack [label .$self.date -text "released on 2006.12.??"] -side top pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72 *************** *** 7974,7979 **** pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y -expand yes #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars ! .$self.text insert 0.0 "\ ! DesireData is a free (libre) real-time computer programming language interpreter focused on realtime audio and video. You can get DesireData from http://desiredata.goto10.org/ --- 7974,7979 ---- pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y -expand yes #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars ! .$self.text insert 0.0 \ ! "DesireData is a free (libre) real-time computer programming language interpreter focused on realtime audio and video. You can get DesireData from http://desiredata.goto10.org/

1 0

pd/src d_ugen.c,1.3.4.1.2.5.2.10,1.3.4.1.2.5.2.11
by Mathieu Bouchard 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3205 Modified Files: Tag: desiredata d_ugen.c Log Message: cleanup Index: d_ugen.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/d_ugen.c,v retrieving revision 1.3.4.1.2.5.2.10 retrieving revision 1.3.4.1.2.5.2.11 diff -C2 -d -r1.3.4.1.2.5.2.10 -r1.3.4.1.2.5.2.11 *** d_ugen.c 28 Jun 2007 16:35:58 -0000 1.3.4.1.2.5.2.10 --- d_ugen.c 30 Jun 2007 13:56:06 -0000 1.3.4.1.2.5.2.11 *************** *** 249,253 **** static void block_dsp(t_block *x, t_signal **sp) {/* do nothing here */} ! void block_tilde_setup(void) { block_class = class_new2("block~", (t_newmethod)block_new, 0, sizeof(t_block), 0,"FFF"); class_addcreator2("switch~",(t_newmethod)switch_new,"FFF"); --- 249,253 ---- static void block_dsp(t_block *x, t_signal **sp) {/* do nothing here */} ! void block_tilde_setup() { block_class = class_new2("block~", (t_newmethod)block_new, 0, sizeof(t_block), 0,"FFF"); class_addcreator2("switch~",(t_newmethod)switch_new,"FFF"); *************** *** 263,288 **** void dsp_add(t_perfroutine f, int n, ...) { - int newsize = dsp_chainsize + n+1, i; va_list ap; - dsp_chain = (t_int *)t_resizebytes(dsp_chain, dsp_chainsize * sizeof (t_int), newsize * sizeof (t_int)); - dsp_chain[dsp_chainsize-1] = (t_int)f; va_start(ap, n); ! for (i = 0; i < n; i++) dsp_chain[dsp_chainsize + i] = va_arg(ap, t_int); ! va_end(ap); dsp_chain[newsize-1] = (t_int)dsp_done; dsp_chainsize = newsize; } ! /* at Guenter's suggestion, here's a vectorized version */ void dsp_addv(t_perfroutine f, int n, t_int *vec) { ! int newsize = dsp_chainsize + n+1, i; ! dsp_chain = (t_int *)t_resizebytes(dsp_chain, dsp_chainsize * sizeof (t_int), newsize * sizeof (t_int)); dsp_chain[dsp_chainsize-1] = (t_int)f; ! for (i = 0; i < n; i++) dsp_chain[dsp_chainsize + i] = vec[i]; dsp_chain[newsize-1] = (t_int)dsp_done; dsp_chainsize = newsize; } ! void dsp_tick(void) { if (dsp_chain) { for (t_int *ip = dsp_chain; ip; ) ip = ((t_perfroutine)*ip)(ip); --- 263,288 ---- void dsp_add(t_perfroutine f, int n, ...) { va_list ap; va_start(ap, n); ! int newsize = dsp_chainsize + n+1; ! dsp_chain = (t_int *)resizebytes(dsp_chain, dsp_chainsize * sizeof (t_int), newsize * sizeof (t_int)); ! dsp_chain[dsp_chainsize-1] = (t_int)f; ! for (int i=0; i<n; i++) dsp_chain[dsp_chainsize + i] = va_arg(ap, t_int); dsp_chain[newsize-1] = (t_int)dsp_done; dsp_chainsize = newsize; + va_end(ap); } ! /* at Guenter's suggestion, here's a vectorized version */ void dsp_addv(t_perfroutine f, int n, t_int *vec) { ! int newsize = dsp_chainsize + n+1; ! dsp_chain = (t_int *)resizebytes(dsp_chain, dsp_chainsize * sizeof (t_int), newsize * sizeof (t_int)); dsp_chain[dsp_chainsize-1] = (t_int)f; ! for (int i=0; i<n; i++) dsp_chain[dsp_chainsize + i] = vec[i]; dsp_chain[newsize-1] = (t_int)dsp_done; dsp_chainsize = newsize; } ! void dsp_tick() { if (dsp_chain) { for (t_int *ip = dsp_chain; ip; ) ip = ((t_perfroutine)*ip)(ip); *************** *** 387,391 **** ret->s_vec = (t_sample *)getbytes(vecsize * sizeof (*ret->s_vec)); #else ! /* T.Grill - make signal vectors aligned! */ ret->s_vec = (t_sample *)getalignedbytes(vecsize * sizeof (*ret->s_vec)); #endif --- 387,391 ---- ret->s_vec = (t_sample *)getbytes(vecsize * sizeof (*ret->s_vec)); #else ! /* T.Grill - make signal vectors aligned! */ ret->s_vec = (t_sample *)getalignedbytes(vecsize * sizeof (*ret->s_vec)); #endif *************** *** 467,471 **** static t_dspcontext *ugen_currentcontext; ! void ugen_stop(void) { if (dsp_chain) { free(dsp_chain); --- 467,471 ---- static t_dspcontext *ugen_currentcontext; ! void ugen_stop() { if (dsp_chain) { free(dsp_chain); *************** *** 475,479 **** } ! void ugen_start(void) { ugen_stop(); ugen_sortno++; --- 475,479 ---- } ! void ugen_start() { ugen_stop(); ugen_sortno++; *************** *** 484,488 **** } ! int ugen_getsortno(void) {return ugen_sortno;} #if 0 --- 484,488 ---- } ! int ugen_getsortno() {return ugen_sortno;} #if 0 *************** *** 1031,1037 **** void resample_free(t_resample *x) { ! if (x->s_n) t_freebytes(x->s_vec, x->s_n*sizeof(*x->s_vec)); ! if (x->coefsize) t_freebytes(x->coeffs, x->coefsize*sizeof(*x->coeffs)); ! if (x->bufsize) t_freebytes(x->buffer, x->bufsize*sizeof(*x->buffer)); x->s_n = x->coefsize = x->bufsize = 0; x->s_vec = x->coeffs = x->buffer = 0; --- 1031,1037 ---- void resample_free(t_resample *x) { ! if (x->s_n) free(x->s_vec); ! if (x->coefsize) free(x->coeffs); ! if (x->bufsize) free(x->buffer); x->s_n = x->coefsize = x->bufsize = 0; x->s_vec = x->coeffs = x->buffer = 0; *************** *** 1070,1074 **** case RESAMPLE_LINEAR: if (x->bufsize != 1) { ! t_freebytes(x->buffer, x->bufsize*sizeof(*x->buffer)); x->bufsize = 1; x->buffer = (t_float *)t_getbytes(x->bufsize*sizeof(*x->buffer)); --- 1070,1074 ---- case RESAMPLE_LINEAR: if (x->bufsize != 1) { ! free(x->buffer); x->bufsize = 1; x->buffer = (t_float *)t_getbytes(x->bufsize*sizeof(*x->buffer)); *************** *** 1087,1091 **** void resamplefrom_dsp(t_resample *x, t_sample *in, int insize, int outsize, int method) { if (insize==outsize) { ! t_freebytes(x->s_vec, x->s_n * sizeof(*x->s_vec)); x->s_n = 0; x->s_vec = in; --- 1087,1091 ---- void resamplefrom_dsp(t_resample *x, t_sample *in, int insize, int outsize, int method) { if (insize==outsize) { ! free(x->s_vec); x->s_n = 0; x->s_vec = in; *************** *** 1094,1098 **** if (x->s_n != outsize) { t_float *buf=x->s_vec; ! t_freebytes(buf, x->s_n * sizeof(*buf)); buf = (t_float *)t_getbytes(outsize * sizeof(*buf)); x->s_vec = buf; --- 1094,1098 ---- if (x->s_n != outsize) { t_float *buf=x->s_vec; ! free(buf); buf = (t_float *)t_getbytes(outsize * sizeof(*buf)); x->s_vec = buf; *************** *** 1105,1109 **** void resampleto_dsp(t_resample *x, t_sample *out, int insize, int outsize, int method) { if (insize==outsize) { ! if (x->s_n)t_freebytes(x->s_vec, x->s_n * sizeof(*x->s_vec)); x->s_n = 0; x->s_vec = out; --- 1105,1109 ---- void resampleto_dsp(t_resample *x, t_sample *out, int insize, int outsize, int method) { if (insize==outsize) { ! if (x->s_n)free(x->s_vec); x->s_n = 0; x->s_vec = out; *************** *** 1112,1116 **** if (x->s_n != insize) { t_float *buf=x->s_vec; ! t_freebytes(buf, x->s_n * sizeof(*buf)); buf = (t_float *)t_getbytes(insize * sizeof(*buf)); x->s_vec = buf; --- 1112,1116 ---- if (x->s_n != insize) { t_float *buf=x->s_vec; ! free(buf); buf = (t_float *)t_getbytes(insize * sizeof(*buf)); x->s_vec = buf; *************** *** 1148,1152 **** } ! static void samplerate_tilde_setup(void) { samplerate_tilde_class = class_new(gensym("samplerate~"), (t_newmethod)samplerate_tilde_new, 0, sizeof(t_samplerate), 0, 0); --- 1148,1152 ---- } ! static void samplerate_tilde_setup() { samplerate_tilde_class = class_new(gensym("samplerate~"), (t_newmethod)samplerate_tilde_new, 0, sizeof(t_samplerate), 0, 0);

1 0

pd/src desire.tk,1.1.2.600.2.194,1.1.2.600.2.195
by chunlee 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14598 Modified Files: Tag: desiredata desire.tk Log Message: tidy up read_ddrc Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.194 retrieving revision 1.1.2.600.2.195 diff -C2 -d -r1.1.2.600.2.194 -r1.1.2.600.2.195 *** desire.tk 30 Jun 2007 10:54:05 -0000 1.1.2.600.2.194 --- desire.tk 30 Jun 2007 11:31:31 -0000 1.1.2.600.2.195 *************** *** 547,557 **** #-----------------------------------------------------------------------------------# set accels {} ! proc read_ddrc {{filename ""}} { global cmdline look key accels set ::accels {} ! if {$filename == ""} { ! set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] } else { ! set fd [open $filename] } set contents [read $fd] --- 547,562 ---- #-----------------------------------------------------------------------------------# set accels {} ! proc read_ddrc {} { global cmdline look key accels set ::accels {} ! if {[file exists $cmdline(ddrcfilename)]} { ! set fd [open $cmdline(ddrcfilename) "RDONLY"] ! puts "reading from $cmdline(ddrcfilename)" ! } elseif {[file exists "defaults.ddrc"]} { ! set fd [open "defaults.ddrc" "RDONLY"] ! puts "reading from ./defaults.ddrc" } else { ! set fd [open [file join [file dirname [file dirname $::argh0]] "lib/pd/bin/defaults.ddrc"] "RDONLY"] ! puts "reading from [file join [file dirname [file dirname $::argh0]] "lib/pd/bin/defaults.ddrc"]" } set contents [read $fd] *************** *** 572,581 **** } } - - if {[file exists "defaults.ddrc"]} { - read_ddrc "defaults.ddrc" - } else { - read_ddrc [file join [file dirname [file dirname $argh0]] "lib/pd/bin/defaults.ddrc"] - } read_ddrc #-----------------------------------------------------------------------------------# --- 577,580 ----

1 0

abstractions/footils/list-abs list-seek-help.pd, NONE, 1.1 list-seek.pd, NONE, 1.1
by Frank Barknecht 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9305 Added Files: list-seek-help.pd list-seek.pd Log Message: list-seek added --- NEW FILE: list-seek.pd --- #N canvas 443 126 634 604 10; #X obj 105 76 inlet; #X obj 300 74 inlet; #X obj 135 501 outlet; #X obj 300 500 outlet; #X text 349 72 list to manipulate; #X text 298 523 bang when done or index out of range; #X text 134 522 output value; #X obj 135 416 list; #X obj 300 438 bang; #X obj 135 317 moses; #X obj 127 239 + 1; #X msg 105 191 0; #X obj 165 294 list-len; #X obj 135 440 list-idx; #X obj 135 391 t b a; #X obj 89 239 f; #X obj 89 317 moses; #X obj 300 103 t b a a; #X obj 105 109 route set; #X obj 105 139 route bang; #X text 31 23 bang for next item \, float for index or set for no-output. ; #X connect 0 0 18 0; #X connect 1 0 17 0; #X connect 7 0 13 0; #X connect 8 0 3 0; #X connect 9 0 14 0; #X connect 9 1 8 0; #X connect 10 0 15 1; #X connect 11 0 15 1; #X connect 12 0 9 1; #X connect 13 0 2 0; #X connect 14 0 7 0; #X connect 14 1 13 1; #X connect 15 0 10 0; #X connect 15 0 16 0; #X connect 16 0 8 0; #X connect 16 1 9 0; #X connect 17 0 11 0; #X connect 17 1 12 0; #X connect 17 2 7 1; #X connect 18 0 19 0; #X connect 18 1 15 0; #X connect 19 0 11 0; #X connect 19 1 15 1; --- NEW FILE: list-seek-help.pd --- #N canvas 334 289 666 505 10; #X msg 139 267 list one two three four; #X obj 139 365 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X text 160 366 bang when done or index out of range; #X floatatom 98 151 5 0 0 0 - - -; #X msg 81 104 bang; #N canvas 0 0 450 300 show 0; #X obj 47 38 inlet; #X obj 47 115 outlet; #X obj 47 62 list prepend set; #X obj 47 85 list trim; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X restore 81 403 pd show; #X msg 81 424; #X msg 89 381 bang; #X msg 165 312 0 1 2 3 4 5 6 7 8 9; #X msg 151 290 twenty three 23; #X text 322 267 Set list to seek (will also do a rewind); #X text 75 45 walk through a list element by element - similar to [textfile] and [qlist].; #X text 142 149 output item by index number (zero-based \, only positive) ; #X text 63 461 2007 Hans-Christoph Steiner \, Frank Barknecht; #X msg 129 221 set; #X msg 121 200 set \$1; #X floatatom 121 180 5 0 0 0 - - -; #X text 175 223 just "set" is "set 0" (rewind); #X text 173 200 set start position without output; #X obj 81 334 list-seek; #X text 130 103 output one item and move to the next (takes off \, where the last float \, set or bang message was); #X text 63 19 [list-seek]; #N canvas 324 88 739 396 example 0; #X msg 203 170 0; #X obj 145 140 list-seek; #X obj 63 152 delay; #X obj 78 184 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 203 196 spigot; #X obj 240 26 tgl 32 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 145 71 select 1; #X obj 145 92 t b b; #X obj 63 333 dac~; #X obj 64 309 *~ 0; #X obj 101 309 dbtorms; #X obj 104 286 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 10800 1; #X text 261 171 Caution: may generate stack overflows when [list-seek] is uninitialized!; #X obj 219 141 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 93 105 5 0 0 0 - - -; #N canvas 0 0 397 287 plong~ 0; #X obj 112 142 vline~; #X obj 112 221 *~; #X obj 112 245 outlet~; #X obj 112 54 inlet; #X obj 127 200 osc~ 220; #X obj 113 168 *~; #X msg 112 113 1 3 \, 0 100 20; #X obj 112 78 t b a; #X obj 215 112 mtof; #X connect 0 0 5 0; #X connect 0 0 5 1; #X connect 1 0 2 0; #X connect 3 0 7 0; #X connect 4 0 1 1; #X connect 5 0 1 0; #X connect 6 0 0 0; #X connect 7 0 6 0; #X connect 7 1 8 0; #X connect 8 0 4 0; #X restore 63 263 pd plong~; #X obj 63 130 * 120; #X msg 63 240 60; #X msg 203 115 0 2 2 1 2 2 2 1; #X connect 0 0 4 0; #X connect 1 0 16 0; #X connect 1 1 0 0; #X connect 1 1 13 0; #X connect 2 0 3 0; #X connect 2 0 1 0; #X connect 2 0 17 0; #X connect 4 0 1 0; #X connect 5 0 4 1; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 1 0; #X connect 7 1 18 0; #X connect 9 0 8 0; #X connect 9 0 8 1; #X connect 10 0 9 1; #X connect 11 0 10 0; #X connect 14 0 16 1; #X connect 15 0 9 0; #X connect 16 0 2 0; #X connect 17 0 15 0; #X connect 18 0 1 1; #X restore 265 407 pd example; #X connect 0 0 19 1; #X connect 3 0 19 0; #X connect 4 0 19 0; #X connect 5 0 6 0; #X connect 7 0 5 0; #X connect 8 0 19 1; #X connect 9 0 19 1; #X connect 14 0 19 0; #X connect 15 0 19 0; #X connect 16 0 15 0; #X connect 19 0 5 0; #X connect 19 1 1 0;

1 0

pd/src desire.tk,1.1.2.600.2.193,1.1.2.600.2.194
by chunlee 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32660 Modified Files: Tag: desiredata desire.tk Log Message: fix right click on canvas Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.193 retrieving revision 1.1.2.600.2.194 diff -C2 -d -r1.1.2.600.2.193 -r1.1.2.600.2.194 *** desire.tk 30 Jun 2007 01:54:31 -0000 1.1.2.600.2.193 --- desire.tk 30 Jun 2007 10:54:05 -0000 1.1.2.600.2.194 *************** *** 3548,3552 **** catch {destroy $p} menu $p -tearoff false ! if {$id == ""} { $self populate_menu $p {popup_properties popup_help} } elseif {[$id class] == "Wire"} { --- 3548,3552 ---- catch {destroy $p} menu $p -tearoff false ! if {$id == $self} { $self populate_menu $p {popup_properties popup_help} } elseif {[$id class] == "Wire"} { *************** *** 4087,4096 **** def Canvas right_click {id x y} { set c [$self widget] set @insert_x $x; set @insert_y $y ! if {[$id class] != "Canvas"} { ! if {![winfo exists [[$id canvas] widget]]} {set id [$id canvas]} ! } ! if {[$id class] == "Canvas"} {set obj [$id get_parent_gop $self]} else {set obj $id} $self popup $obj [winfo pointerx $c] [winfo pointery $c] } --- 4087,4098 ---- def Canvas right_click {id x y} { + if {!$@editmode} return set c [$self widget] set @insert_x $x; set @insert_y $y ! #if {[$id class] != "Canvas"} { ! # if {![winfo exists [[$id canvas] widget]]} {set id [$id canvas]} ! #} ! #if {[$id class] == "Canvas"} {set obj [$id get_parent_gop $self]} else {set obj $id} ! set obj $id $self popup $obj [winfo pointerx $c] [winfo pointery $c] }

1 0

pd/src builtins.c,1.1.2.23,1.1.2.24
by Mathieu Bouchard 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19580 Modified Files: Tag: desiredata builtins.c Log Message: finish previous commit Index: builtins.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v retrieving revision 1.1.2.23 retrieving revision 1.1.2.24 diff -C2 -d -r1.1.2.23 -r1.1.2.24 *** builtins.c 30 Jun 2007 05:03:43 -0000 1.1.2.23 --- builtins.c 30 Jun 2007 05:57:28 -0000 1.1.2.24 *************** *** 3098,3104 **** p = strchr(b,'\n'); if (!p) break; ! t_symbol *s = gensym2(b,p-b); ! for (int i=0; i<s->n; i++) fprintf(stderr,"%c ",s->name[i]); ! outlet_symbol(current_unpost->o1,s); b=p+1; } --- 3098,3102 ---- p = strchr(b,'\n'); if (!p) break; ! outlet_symbol(current_unpost->o1,gensym2(b,p-b)); b=p+1; }

1 0

pd/src builtins.c,1.1.2.22,1.1.2.23
by Mathieu Bouchard 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32122 Modified Files: Tag: desiredata builtins.c Log Message: bugfixes and removed debugging info Index: builtins.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v retrieving revision 1.1.2.22 retrieving revision 1.1.2.23 diff -C2 -d -r1.1.2.22 -r1.1.2.23 *** builtins.c 30 Jun 2007 02:22:29 -0000 1.1.2.22 --- builtins.c 30 Jun 2007 05:03:43 -0000 1.1.2.23 *************** *** 3074,3077 **** --- 3074,3078 ---- } + /* warning: [unpost] is not reentrant yet. */ static t_class *unpost_class; struct t_unpost : t_object { *************** *** 3095,3110 **** char *p; for (;;) { ! p = strchr(b+n,'\n'); if (!p) break; - fprintf(stderr,"pos=%d len=%d\n",b-current_unpost->buf,p-b); - fprintf(stderr,"data=%.*s\n",p-b,b); t_symbol *s = gensym2(b,p-b); ! fprintf(stderr," sym=%.*s\n",s->s_name); outlet_symbol(current_unpost->o1,s); b=p+1; } ! char *q = strdup(b); /* well i could use memmove, but i'm not supposed to use strcpy because of overlap */ ! strcpy(current_unpost->buf,q); ! free(q); } void unpost_anything (t_unpost *x, t_symbol *s, int argc, t_atom *argv) { --- 3096,3111 ---- char *p; for (;;) { ! p = strchr(b,'\n'); if (!p) break; t_symbol *s = gensym2(b,p-b); ! for (int i=0; i<s->n; i++) fprintf(stderr,"%c ",s->name[i]); outlet_symbol(current_unpost->o1,s); b=p+1; } ! if (b!=current_unpost->buf) { ! char *q = strdup(b); /* well i could use memmove, but i'm not supposed to use strcpy because of overlap */ ! strcpy(current_unpost->buf,q); ! free(q); ! } } void unpost_anything (t_unpost *x, t_symbol *s, int argc, t_atom *argv) {

1 0

pd/src builtins.c,1.1.2.21,1.1.2.22
by Mathieu Bouchard 30 Jun '07

30 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4655 Modified Files: Tag: desiredata builtins.c Log Message: new object class [unpost] Index: builtins.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v retrieving revision 1.1.2.21 retrieving revision 1.1.2.22 diff -C2 -d -r1.1.2.21 -r1.1.2.22 *** builtins.c 28 Jun 2007 22:56:53 -0000 1.1.2.21 --- builtins.c 30 Jun 2007 02:22:29 -0000 1.1.2.22 *************** *** 2887,2893 **** static t_class *timer_class; ! struct t_timer : t_object { ! double settime; ! }; static void timer_bang(t_timer *x) { x->settime = clock_getsystime(); --- 2887,2891 ---- static t_class *timer_class; ! struct t_timer : t_object {double settime;}; static void timer_bang(t_timer *x) { x->settime = clock_getsystime(); *************** *** 3076,3079 **** --- 3074,3126 ---- } + static t_class *unpost_class; + struct t_unpost : t_object { + t_outlet *o0,*o1; + char buf[MAXPDSTRING]; + }; + static t_unpost *current_unpost; + + void *unpost_new (t_symbol *s) { + t_unpost *x = (t_unpost *)pd_new(unpost_class); + x->o0 = outlet_new(x,&s_symbol); + x->o1 = outlet_new(x,&s_symbol); + return x; + } + extern t_printhook sys_printhook; + void unpost_printhook (const char *s) { + char *b = current_unpost->buf; + size_t n = strlen(b); + snprintf(b+n,MAXPDSTRING-n,"%s",s); + b[MAXPDSTRING-1]=0; + char *p; + for (;;) { + p = strchr(b+n,'\n'); + if (!p) break; + fprintf(stderr,"pos=%d len=%d\n",b-current_unpost->buf,p-b); + fprintf(stderr,"data=%.*s\n",p-b,b); + t_symbol *s = gensym2(b,p-b); + fprintf(stderr," sym=%.*s\n",s->s_name); + outlet_symbol(current_unpost->o1,s); + b=p+1; + } + char *q = strdup(b); /* well i could use memmove, but i'm not supposed to use strcpy because of overlap */ + strcpy(current_unpost->buf,q); + free(q); + } + void unpost_anything (t_unpost *x, t_symbol *s, int argc, t_atom *argv) { + t_printhook backup1 = sys_printhook; + t_unpost *backup2 = current_unpost; + sys_printhook = unpost_printhook; + current_unpost = x; + x->buf[0] = 0; + outlet_anything(x->o0,s,argc,argv); + sys_printhook = backup1; + current_unpost = backup2; + } + + static void unpost_setup() { + unpost_class = class_new2("unpost",unpost_new,0,sizeof(t_unpost),0,""); + class_addanything(unpost_class, unpost_anything); + } void builtins_setup() { *************** *** 3152,3154 **** --- 3199,3202 ---- arithmetic_setup(); midi_setup(); + unpost_setup(); }

1 0

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