Pd-cvs October 2007

pd-cvs@lists.iem.at

16 participants
363 discussions

pd/src builtins_dsp.c,1.1.2.31,1.1.2.32
by Mathieu Bouchard 04 Oct '07

04 Oct '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13304 Modified Files: Tag: desiredata builtins_dsp.c Log Message: added [>~] [<~] Index: builtins_dsp.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins_dsp.c,v retrieving revision 1.1.2.31 retrieving revision 1.1.2.32 diff -C2 -d -r1.1.2.31 -r1.1.2.32 *** builtins_dsp.c 19 Jul 2007 19:57:15 -0000 1.1.2.31 --- builtins_dsp.c 4 Oct 2007 07:09:34 -0000 1.1.2.32 *************** *** 48,57 **** /* ----------------------------- plus ----------------------------- */ - static t_class *plus_class, *scalarplus_class; - static t_class *minus_class, *scalarminus_class; - static t_class *times_class, *scalartimes_class; - static t_class *over_class, *scalarover_class; - static t_class *max_class, *scalarmax_class; - static t_class *min_class, *scalarmin_class; struct t_dop : t_object { --- 48,51 ---- *************** *** 60,69 **** }; ! typedef t_dop t_plus, t_scalarplus; ! typedef t_dop t_min, t_scalarmin; ! typedef t_dop t_max, t_scalarmax; ! typedef t_dop t_over, t_scalarover; ! typedef t_dop t_times, t_scalartimes; ! typedef t_dop t_minus, t_scalarminus; #define DSPNEW(NAME,SYM) \ --- 54,66 ---- }; ! #define DSPDECL(NAME) static t_class *NAME##_class, *scalar##NAME##_class; typedef t_dop t_##NAME, t_scalar##NAME; ! DSPDECL(plus) ! DSPDECL(minus) ! DSPDECL(times) ! DSPDECL(over) ! DSPDECL(max) ! DSPDECL(min) ! DSPDECL(lt) ! DSPDECL(gt) #define DSPNEW(NAME,SYM) \ *************** *** 88,91 **** --- 85,89 ---- class_sethelpsymbol(scalar##NAME##_class, gensym("sigbinops"));} + /* use when simd functions are present */ #define DSPDSP(NAME) \ static void NAME##_dsp(t_minus *x, t_signal **sp) { \ *************** *** 102,105 **** --- 100,114 ---- else dsp_add(scalar##NAME##_perf8, 4, sp[0]->v, &x->b, sp[1]->v, n);} + /* use when simd functions are missing */ + #define DSPDSP2(NAME) \ + static void NAME##_dsp(t_minus *x, t_signal **sp) { \ + const int n = sp[0]->n; \ + if(n&7) dsp_add(NAME##_perform, 4, sp[0]->v, sp[1]->v, sp[2]->v, n); \ + else dsp_add(NAME##_perf8, 4, sp[0]->v, sp[1]->v, sp[2]->v, n);} \ + static void scalar##NAME##_dsp(t_scalarminus *x, t_signal **sp) { \ + const int n = sp[0]->n;\ + if(n&7) dsp_add(scalar##NAME##_perform, 4, sp[0]->v, &x->b,sp[1]->v, n);\ + else dsp_add(scalar##NAME##_perf8, 4, sp[0]->v, &x->b, sp[1]->v, n);} + #define PERFORM(NAME,EXPR) \ t_int *NAME##_perform(t_int *w) { \ *************** *** 188,191 **** --- 197,202 ---- PERFORM(min ,a<b?a:b) DSPDSP(min) DSPNEW(min ,"min~") PERFORM(max ,a>b?a:b) DSPDSP(max) DSPNEW(max ,"max~") + PERFORM(lt ,a<b) DSPDSP2(lt) DSPNEW(lt ,"<~") + PERFORM(gt ,a>b) DSPDSP2(gt) DSPNEW(gt ,">~") t_int *over_perform(t_int *w) { *************** *** 3762,3765 **** --- 3773,3778 ---- max_setup(); min_setup(); + lt_setup(); + gt_setup(); tab_tilde_setup();

1 0

autobuild: pd-extended-release debian-testing-i386 2007-10-03 06.28.13
by pd＠debian-testing-i386.idmi.poly.edu 03 Oct '07

03 Oct '07

/usr/include/GL/glext.h:7073: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7074: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7085: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7086: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7207: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7208: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7209: error: 'GLchar' has not been declared /usr/include/GL/glext.h:7219: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7220: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7221: error: 'GLchar' has not been declared make[3]: *** [GemBase.o] Error 1 make[3]: Leaving directory `/home/pd/auto-build/pd-extended-release/Gem/src/Base' make[2]: *** [Base] Error 2 make[2]: Leaving directory `/home/pd/auto-build/pd-extended-release/Gem/src' make[1]: *** [/home/pd/auto-build/pd-extended-release/Gem/src/Gem.pd_linux] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended-release/packages' make: *** [install] Error 2 upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended-release/packages/linux_make/./Pd*.deb ls: /home/pd/auto-build/pd-extended-release/packages/linux_make/./Pd*.deb: No such file or directory

1 0

autobuild: pd-main macosx104-powerpc 2007-10-03 03.15.01
by pd＠macosx104-powerpc.idmi.poly.edu 03 Oct '07

03 Oct '07

_regcomp referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _regexec referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _regfree referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _shutdown referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _sleep referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _socket referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _strcspn referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _task_get_special_port referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _thread_terminate referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _vsnprintf referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _write referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _AudioConvertNanosToHostTime referenced from Jack expected to be defined in /System/Library/Frameworks/CoreAudio.framework/Versions/A/CoreAudio _pthread_create referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _thread_info referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _thread_policy_set referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib collect2: ld returned 1 exit status lipo: can't open input file: /var/tmp//ccl694js.out (No such file or directory) make[2]: *** [../bin/pd] Error 1 make[1]: *** [pd_install] Error 2 make: *** [darwin_app_core] Error 2

1 0

autobuild: pd-main macosx104-i386 2007-10-03 03.15.11
by pd＠macosx104-i386.idmi.poly.edu 03 Oct '07

03 Oct '07

lipo: can't figure out the architecture type of: /var/tmp//cc8kxaAV.out make[2]: *** [../bin/libPdTcl.dylib] Error 1 make[1]: [pd] Error 2 (ignored) make -C /Users/pd/auto-build/pd-main/pd/src BUILDLAYOUT_DIR=/Users/pd/auto-build/pd-main/packages cvs_root_dir=/Users/pd/auto-build/pd-main DESTDIR=/Users/pd/auto-build/pd-main/packages/darwin_app/build/Pd-0.41.0-test06.app/Contents/Resources prefix= libpddir=/Users/pd/auto-build/pd-main/packages/darwin_app/build/Pd-0.41.0-test06.app/Contents/Resources OPT_CFLAGS="-march=pentium4 -msse2 -mfpmath=sse -ftree-vectorize -ftree-vectorizer-verbose=2" UNAME=Darwin install cd ../obj; cc -Wl -framework CoreAudio -framework AudioUnit -framework AudioToolbox -framework Carbon -framework CoreMIDI -arch i386 -arch ppc -weak_framework Jack -o ../bin/pd g_canvas.o g_graph.o g_text.o g_rtext.o g_array.o g_template.o g_io.o g_scalar.o g_traversal.o g_guiconnect.o g_readwrite.o g_editor.o g_all_guis.o g_bang.o g_hdial.o g_hslider.o g_mycanvas.o g_numbox.o g_toggle.o g_vdial.o g_vslider.o g_vumeter.o m_pd.o m_class.o m_obj.o m_atom.o m_memory.o m_binbuf.o m_conf.o m_glob.o m_sched.o s_main.o s_inter.o s_file.o s_print.o s_loader.o s_path.o s_entry.o s_audio.o s_midi.o d_ugen.o d_ctl.o d_arithmetic.o d_osc.o d_filter.o d_dac.o d_misc.o d_math.o d_fft.o d_array.o d_global.o d_delay.o d_resample.o x_arithmetic.o x_connective.o x_interface.o x_midi.o x_misc.o x_time.o x_acoustics.o x_net.o x_qlist.o x_gui.o x_list.o d_soundfile.o s_midi_pm.o s_audio_pa.o s_audio_pablio.o s_audio_paring.o ../portaudio/src/common/pa_allocation.o ../portaudio/src/common/pa_converters.o ../portaudio/src/common/pa_cpuload.o ../portaudio/src/common/pa_dither.o ../portaudio/src/common/pa_front.o ../portaudio/src/common/pa_process.o ../portaudio/src/common/pa_skeleton.o ../portaudio/src/common/pa_stream.o ../portaudio/src/common/pa_trace.o ../portaudio/src/common/pa_debugprint.o ../portaudio/src/common/pa_ringbuffer.o ../portaudio/src/os/unix/pa_unix_util.o ../portaudio/src/os/mac_osx/pa_mac_hostapis.o ../portaudio/src/hostapi/coreaudio/pa_mac_core.o ../portaudio/src/hostapi/coreaudio/pa_mac_core_blocking.o ../portaudio/src/hostapi/coreaudio/pa_mac_core_utilities.o ../portmidi/pm_mac/pmmac.o ../portmidi/pm_mac/pmmacosxcm.o ../portmidi/pm_common/pmutil.o ../portmidi/pm_common/portmidi.o ../portmidi/porttime/ptmacosx_cf.o s_audio_jack.o d_fft_mayer.o d_fftroutine.o -ldl -lm -lpthread cd ../obj && cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/include -I../portaudio/src/common -I../portaudio/src/os/mac_osx/ -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -DNEWBUFFER -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -dynamiclib -read_only_relocs warning \ -o ../bin/libPdTcl.dylib t_main.o t_tkcmd.o \ -F/Library/Frameworks \ -framework Tcl -framework Tk -framework System \ -Wl,-install_name,@executable_path/../Resources/bin/libPdTcl.dylib ld: Undefined symbols: _Tcl_CreateCommand _Tcl_CreateFileHandler _Tcl_Eval _Tcl_GetVar /usr/bin/libtool: internal link edit command failed lipo: can't figure out the architecture type of: /var/tmp//ccKqRs8W.out make[2]: *** [../bin/libPdTcl.dylib] Error 1 make[1]: *** [pd_install] Error 2 make: *** [darwin_app_core] Error 2

1 0

autobuild: pd-extended-release debian-testing-i386 2007-10-02 06.26.40
by pd＠debian-testing-i386.idmi.poly.edu 02 Oct '07

02 Oct '07

/usr/include/GL/glext.h:7073: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7074: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7085: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7086: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7207: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7208: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7209: error: 'GLchar' has not been declared /usr/include/GL/glext.h:7219: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7220: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7221: error: 'GLchar' has not been declared make[3]: *** [GemGLUtil.o] Error 1 make[3]: Leaving directory `/home/pd/auto-build/pd-extended-release/Gem/src/Base' make[2]: *** [Base] Error 2 make[2]: Leaving directory `/home/pd/auto-build/pd-extended-release/Gem/src' make[1]: *** [/home/pd/auto-build/pd-extended-release/Gem/src/Gem.pd_linux] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended-release/packages' make: *** [install] Error 2 upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended-release/packages/linux_make/./Pd*.deb ls: /home/pd/auto-build/pd-extended-release/packages/linux_make/./Pd*.deb: No such file or directory

1 0

autobuild: pd-main macosx104-powerpc 2007-10-02 03.15.00
by pd＠macosx104-powerpc.idmi.poly.edu 02 Oct '07

02 Oct '07

_regcomp referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _regexec referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _regfree referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _shutdown referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _sleep referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _socket referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _strcspn referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _task_get_special_port referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _thread_terminate referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _vsnprintf referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _write referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _AudioConvertNanosToHostTime referenced from Jack expected to be defined in /System/Library/Frameworks/CoreAudio.framework/Versions/A/CoreAudio _pthread_create referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _thread_info referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _thread_policy_set referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib collect2: ld returned 1 exit status lipo: can't open input file: /var/tmp//ccHU3ZIJ.out (No such file or directory) make[2]: *** [../bin/pd] Error 1 make[1]: *** [pd_install] Error 2 make: *** [darwin_app_core] Error 2

1 0

autobuild: pd-main macosx104-i386 2007-10-02 03.15.04
by pd＠macosx104-i386.idmi.poly.edu 02 Oct '07

02 Oct '07

lipo: can't figure out the architecture type of: /var/tmp//ccv4C06X.out make[2]: *** [../bin/libPdTcl.dylib] Error 1 make[1]: [pd] Error 2 (ignored) make -C /Users/pd/auto-build/pd-main/pd/src BUILDLAYOUT_DIR=/Users/pd/auto-build/pd-main/packages cvs_root_dir=/Users/pd/auto-build/pd-main DESTDIR=/Users/pd/auto-build/pd-main/packages/darwin_app/build/Pd-0.41.0-test06.app/Contents/Resources prefix= libpddir=/Users/pd/auto-build/pd-main/packages/darwin_app/build/Pd-0.41.0-test06.app/Contents/Resources OPT_CFLAGS="-march=pentium4 -msse2 -mfpmath=sse -ftree-vectorize -ftree-vectorizer-verbose=2" UNAME=Darwin install cd ../obj; cc -Wl -framework CoreAudio -framework AudioUnit -framework AudioToolbox -framework Carbon -framework CoreMIDI -arch i386 -arch ppc -weak_framework Jack -o ../bin/pd g_canvas.o g_graph.o g_text.o g_rtext.o g_array.o g_template.o g_io.o g_scalar.o g_traversal.o g_guiconnect.o g_readwrite.o g_editor.o g_all_guis.o g_bang.o g_hdial.o g_hslider.o g_mycanvas.o g_numbox.o g_toggle.o g_vdial.o g_vslider.o g_vumeter.o m_pd.o m_class.o m_obj.o m_atom.o m_memory.o m_binbuf.o m_conf.o m_glob.o m_sched.o s_main.o s_inter.o s_file.o s_print.o s_loader.o s_path.o s_entry.o s_audio.o s_midi.o d_ugen.o d_ctl.o d_arithmetic.o d_osc.o d_filter.o d_dac.o d_misc.o d_math.o d_fft.o d_array.o d_global.o d_delay.o d_resample.o x_arithmetic.o x_connective.o x_interface.o x_midi.o x_misc.o x_time.o x_acoustics.o x_net.o x_qlist.o x_gui.o x_list.o d_soundfile.o s_midi_pm.o s_audio_pa.o s_audio_pablio.o s_audio_paring.o ../portaudio/src/common/pa_allocation.o ../portaudio/src/common/pa_converters.o ../portaudio/src/common/pa_cpuload.o ../portaudio/src/common/pa_dither.o ../portaudio/src/common/pa_front.o ../portaudio/src/common/pa_process.o ../portaudio/src/common/pa_skeleton.o ../portaudio/src/common/pa_stream.o ../portaudio/src/common/pa_trace.o ../portaudio/src/common/pa_debugprint.o ../portaudio/src/common/pa_ringbuffer.o ../portaudio/src/os/unix/pa_unix_util.o ../portaudio/src/os/mac_osx/pa_mac_hostapis.o ../portaudio/src/hostapi/coreaudio/pa_mac_core.o ../portaudio/src/hostapi/coreaudio/pa_mac_core_blocking.o ../portaudio/src/hostapi/coreaudio/pa_mac_core_utilities.o ../portmidi/pm_mac/pmmac.o ../portmidi/pm_mac/pmmacosxcm.o ../portmidi/pm_common/pmutil.o ../portmidi/pm_common/portmidi.o ../portmidi/porttime/ptmacosx_cf.o s_audio_jack.o d_fft_mayer.o d_fftroutine.o -ldl -lm -lpthread cd ../obj && cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/include -I../portaudio/src/common -I../portaudio/src/os/mac_osx/ -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -DNEWBUFFER -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -dynamiclib -read_only_relocs warning \ -o ../bin/libPdTcl.dylib t_main.o t_tkcmd.o \ -F/Library/Frameworks \ -framework Tcl -framework Tk -framework System \ -Wl,-install_name,@executable_path/../Resources/bin/libPdTcl.dylib ld: Undefined symbols: _Tcl_CreateCommand _Tcl_CreateFileHandler _Tcl_Eval _Tcl_GetVar /usr/bin/libtool: internal link edit command failed lipo: can't figure out the architecture type of: /var/tmp//ccdtmOJ8.out make[2]: *** [../bin/libPdTcl.dylib] Error 1 make[1]: *** [pd_install] Error 2 make: *** [darwin_app_core] Error 2

1 0

autobuild: pd-extended-release debian-testing-i386 2007-10-01 06.26.42
by pd＠debian-testing-i386.idmi.poly.edu 01 Oct '07

01 Oct '07

/usr/include/GL/glext.h:7073: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7074: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7085: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7086: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7207: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7208: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7209: error: 'GLchar' has not been declared /usr/include/GL/glext.h:7219: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7220: error: expected ',' or '...' before '*' token /usr/include/GL/glext.h:7221: error: 'GLchar' has not been declared make[3]: *** [GemGLUtil.o] Error 1 make[3]: Leaving directory `/home/pd/auto-build/pd-extended-release/Gem/src/Base' make[2]: *** [Base] Error 2 make[2]: Leaving directory `/home/pd/auto-build/pd-extended-release/Gem/src' make[1]: *** [/home/pd/auto-build/pd-extended-release/Gem/src/Gem.pd_linux] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended-release/packages' make: *** [install] Error 2 upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended-release/packages/linux_make/./Pd*.deb ls: /home/pd/auto-build/pd-extended-release/packages/linux_make/./Pd*.deb: No such file or directory

1 0

externals/zexy/src lister.c,1.8,1.9
by IOhannes m zmölnig 01 Oct '07

01 Oct '07

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10739 Modified Files: lister.c Log Message: fixed bug with inline modification of buffer Index: lister.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/lister.c,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** lister.c 14 Mar 2007 09:08:56 -0000 1.8 --- lister.c 1 Oct 2007 11:12:02 -0000 1.9 *************** *** 21,55 **** #include <string.h> /* ------------------------- list ------------------------------- */ /* this is for packages, what "float" is for floats */ static t_class *mypdlist_class; static void mypdlist_secondlist(t_mypdlist *x, t_symbol *s, int argc, t_atom *argv) { ! ZEXY_USEVAR(s); ! if (argc) { ! if (x->x_n != argc) { ! freebytes(x->x_list, x->x_n * sizeof(t_atom)); ! x->x_n = argc; ! x->x_list = copybytes(argv, argc * sizeof(t_atom)); ! } else memcpy(x->x_list, argv, argc * sizeof(t_atom)); ! } } static void mypdlist_list(t_mypdlist *x, t_symbol *s, int argc, t_atom *argv) { ! ZEXY_USEVAR(s); ! if (x->x_n != argc) { ! freebytes(x->x_list, x->x_n * sizeof(t_atom)); ! x->x_n = argc; ! x->x_list = copybytes(argv, argc * sizeof(t_atom)); ! } else memcpy(x->x_list, argv, argc * sizeof(t_atom)); ! ! outlet_list(x->x_obj.ob_outlet, gensym("list"), x->x_n, x->x_list); } ! static void mypdlist_bang(t_mypdlist *x) ! { outlet_list(x->x_obj.ob_outlet, gensym("list"), x->x_n, x->x_list);} static void mypdlist_free(t_mypdlist *x) --- 21,85 ---- #include <string.h> + #ifdef HAVE_ALLOCA_H + # include <alloca.h> + #endif + /* ------------------------- list ------------------------------- */ /* this is for packages, what "float" is for floats */ + #define LIST_NGETBYTE 100 /* bigger that this we use alloc, not alloca */ + + static t_class *mypdlist_class; + #ifdef HAVE_ALLOCA_H + # define ATOMS_ALLOCA(x, n) ((x) = (t_atom *)((n) < LIST_NGETBYTE ? \ + alloca((n) * sizeof(t_atom)) : getbytes((n) * sizeof(t_atom)))) + # define ATOMS_FREEA(x, n) ( \ + ((n) < LIST_NGETBYTE || (freebytes((x), (n) * sizeof(t_atom)), 0))) + #else + # define ATOMS_ALLOCA(x, n) ((x) = (t_atom *)getbytes((n) * sizeof(t_atom))) + # define ATOMS_FREEA(x, n) (freebytes((x), (n) * sizeof(t_atom))) + #endif + + static void atoms_copy(int argc, t_atom *from, t_atom *to) + { + int i; + for (i = 0; i < argc; i++) + to[i] = from[i]; + } + + + static void mypdlist_storelist(t_mypdlist *x, int argc, t_atom *argv) + { + if(x->x_list)freebytes(x->x_list, x->x_n*sizeof(t_atom)); + x->x_n=argc; + x->x_list=(t_atom*)getbytes(x->x_n*sizeof(t_atom)); + + atoms_copy(argc, argv, x->x_list); + } static void mypdlist_secondlist(t_mypdlist *x, t_symbol *s, int argc, t_atom *argv) { ! mypdlist_storelist(x, argc, argv); ! } ! ! static void mypdlist_bang(t_mypdlist *x) ! { ! int outc=x->x_n; ! t_atom*outv; ! ATOMS_ALLOCA(outv, outc); ! atoms_copy(x->x_n, x->x_list, outv); ! outlet_list(x->x_obj.ob_outlet, gensym("list"), outc, outv); ! ATOMS_FREEA(outv, outc); } + static void mypdlist_list(t_mypdlist *x, t_symbol *s, int argc, t_atom *argv) { ! mypdlist_secondlist(x, s, argc, argv); ! mypdlist_bang(x); } ! static void mypdlist_free(t_mypdlist *x) *************** *** 59,63 **** { t_mypdlist *x = (t_mypdlist *)pd_new(mypdlist_class); - ZEXY_USEVAR(s); outlet_new(&x->x_obj, 0); --- 89,92 ---- *************** *** 67,71 **** x->x_list = 0; ! mypdlist_secondlist(x, gensym("list"), argc, argv); return (x); --- 96,101 ---- x->x_list = 0; ! if(argc) ! mypdlist_secondlist(x, gensym("list"), argc, argv); return (x);

1 0

externals/zexy/tests/lister inline2.pd, NONE, 1.1 inline.pd, 1.1, 1.2
by IOhannes m zmölnig 01 Oct '07

01 Oct '07

Update of /cvsroot/pure-data/externals/zexy/tests/lister In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10662/lister Modified Files: inline.pd Added Files: inline2.pd Log Message: added fbar's original patch to trigger the bug; layout modifications at the old trigger patch --- NEW FILE: inline2.pd --- #N canvas 109 76 453 304 10; #X obj 44 158 l; #X obj 44 215 list split 1; #X msg 69 124 1 2 3 4; #X text 11 32 I expect this to output 1 instead of 2 when first banged... ; #X obj 105 155 list split 1; #X obj 105 182 list prepend; #X obj 44 179 t a a; #X obj 44 100 t b b; #X obj 44 234 f; #X obj 44 257 == 1; #X obj 44 81 inlet; #X obj 44 277 outlet; #X connect 0 0 6 0; #X connect 1 0 8 0; #X connect 2 0 0 1; #X connect 4 0 5 0; #X connect 4 1 5 1; #X connect 5 0 0 1; #X connect 6 0 1 0; #X connect 6 1 4 0; #X connect 7 0 0 0; #X connect 7 1 2 0; #X connect 8 0 9 0; #X connect 9 0 11 0; #X connect 10 0 7 0; Index: inline.pd =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/tests/lister/inline.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** inline.pd 30 Sep 2007 14:18:57 -0000 1.1 --- inline.pd 1 Oct 2007 11:11:05 -0000 1.2 *************** *** 1,10 **** #N canvas 330 540 450 376 10; #X obj 140 166 t l l; ! #X obj 170 216 + 1; #X msg 140 118 1; ! #X msg 170 237 list \$1; #X obj 140 145 lister; #X obj 140 265 f; ! #X obj 170 188 f; #X obj 140 285 == 1; #X obj 140 47 inlet; --- 1,10 ---- #N canvas 330 540 450 376 10; #X obj 140 166 t l l; ! #X obj 210 206 + 1; #X msg 140 118 1; ! #X msg 210 227 list \$1; #X obj 140 145 lister; #X obj 140 265 f; ! #X obj 210 188 f; #X obj 140 285 == 1; #X obj 140 47 inlet;

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