Pd-cvs April 2006

pd-cvs@lists.iem.at

15 participants
271 discussions

pd/src m_hash.c,NONE,1.1.2.1 SConscript,1.1.4.45,1.1.4.46
by Mathieu Bouchard 22 Apr '06

22 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21698 Modified Files: Tag: devel_0_39 SConscript Added Files: Tag: devel_0_39 m_hash.c Log Message: hashtable (for e.g. classlist) --- NEW FILE: m_hash.c --- /* independent hash table for PureData */ /* Copyright (c) 2006 Mathieu Bouchard */ /* Part of PureData devel_0_39 */ /* Licensed under SIBSD */ #include "m_pd.h" #include <malloc.h> typedef struct _hashentry { hashkey k; hashvalue v; struct _hashentry *next; } t_hashentry; struct _hash { long capa; t_hashentry **tab; }; t_hash *hash_new(long capa) { long i; t_hash *self = (t_hash *)malloc(sizeof(t_hash)); self->capa = capa; self->tab = (t_hashentry **)malloc(capa*sizeof(void*)); for (i=0; i<capa; i++) self->tab[i]=0; return self; } //t_hashentry *hash_find(t_hash *self, hashkey k) {} static long hash_hash(t_hash *self, hashkey k) { long h = ((long)k*0x54321) & 0x7FFFFFFF; return h%self->capa; } int hash_exists(t_hash *self, hashkey k) { long h = hash_hash(self,k); t_hashentry *e; for (e=self->tab[h]; e; e=e->next) {if (e->k==k) return 1;} return 0; } hashvalue hash_get(t_hash *self, hashkey k) { long h = hash_hash(self,k); t_hashentry *e; for (e=self->tab[h]; e; e=e->next) {if (e->k==k) return e->v;} return 0; } void hash_set(t_hash *self, hashkey k, hashvalue v) { long h = hash_hash(self,k); t_hashentry *e; for (e=self->tab[h]; e; e=e->next) {if (e->k==k) {e->v=v; return;}} t_hashentry *nu = malloc(sizeof(t_hashentry)); nu->k=k; nu->v=v; nu->next=self->tab[h]; self->tab[h] = nu; } hashvalue hash_delete(t_hash *self, hashkey k) { long h = hash_hash(self,k); t_hashentry **ep; for (ep=&self->tab[h]; *ep; ep=&(*ep)->next) { if ((*ep)->k==k) { hashvalue v=(*ep)->v; t_hashentry *next=(*ep)->next; free(*ep); *ep = next; return v; } } return 0; } Index: SConscript =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/SConscript,v retrieving revision 1.1.4.45 retrieving revision 1.1.4.46 diff -C2 -d -r1.1.4.45 -r1.1.4.46 *** SConscript 20 Apr 2006 13:32:33 -0000 1.1.4.45 --- SConscript 21 Apr 2006 22:54:56 -0000 1.1.4.46 *************** *** 77,81 **** if pdenv['desire']: sources += Split(""" ! desire.c """) else: --- 77,81 ---- if pdenv['desire']: sources += Split(""" ! desire.c m_hash.c """) else: *************** *** 179,183 **** # ! add_cpppath = [] if pdenv['PLATFORM'] != 'win32': --- 179,183 ---- # ! add_cpppath = ["/usr/include/tcl8.4"] if pdenv['PLATFORM'] != 'win32': *************** *** 202,206 **** print "can't find tk" ! if not ( conf.CheckHeader('tcl.h') or conf.CheckHeader('tcl/tcl.h') ): --- 202,206 ---- print "can't find tk" ! if not (conf.CheckHeader('tcl.h') or conf.CheckHeader('tcl/tcl.h') ): *************** *** 211,215 **** else: print "can't find tcl header" ! if not ( conf.CheckHeader('tk.h') or conf.CheckHeader('tk/tk.h') --- 211,215 ---- else: print "can't find tcl header" ! if not ( conf.CheckHeader('tk.h') or conf.CheckHeader('tk/tk.h') *************** *** 225,229 **** else: print "can't find tk header" ! if not conf.CheckLib(pthreadLib, 'pthread_create'): --- 225,229 ---- else: print "can't find tk header" ! if not conf.CheckLib(pthreadLib, 'pthread_create'):

1 0

pd/src desire.tk,1.1.2.172,1.1.2.173
by Mathieu Bouchard 21 Apr '06

21 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11622 Modified Files: Tag: devel_0_39 desire.tk Log Message: class name completions Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.172 retrieving revision 1.1.2.173 diff -C2 -d -r1.1.2.172 -r1.1.2.173 *** desire.tk 21 Apr 2006 09:03:20 -0000 1.1.2.172 --- desire.tk 21 Apr 2006 21:41:07 -0000 1.1.2.173 *************** *** 42,45 **** --- 42,56 ---- } + proc luniq {a} { + set r {} + set last "" + set i 0 + foreach x $a { + if {$i && [string compare $last $x]} {lappend r $x} + incr i; set last $x + } + return $r + } + #-----------------------------------------------------------------------------------# # Observer pattern *************** *** 1339,1345 **** --- 1350,1360 ---- def* textbox key {widget x y key iso shift} { after 0 "$self after_key $widget" + switch -- $key { + Tab {$self propose_completions; $widget configure -state disabled} + } } def* textbox after_key {widget} { + $widget configure -state normal set @text [$widget get 1.0 1.end] $self update_size *************** *** 3167,3174 **** set tooltip(visible) 0 set tooltip(text) "" ! def Canvas show_tooltip {x y text} { global tooltip ! if {$tooltip(visible) && [string compare $text $tooltip(text)==0]} {return} $self hide_tooltip set border 4 --- 3182,3190 ---- set tooltip(visible) 0 set tooltip(text) "" + set tooltip(on_hide) "" ! def* Canvas show_tooltip {x y text {on_hide ""}} { global tooltip ! if {$tooltip(visible) && [string compare $text $tooltip(text)]==0} {return} $self hide_tooltip set border 4 *************** *** 3189,3192 **** --- 3205,3209 ---- set tooltip(visible) 1 set tooltip(text) $text + set tooltip(on_hide) $on_hide } *************** *** 3196,3199 **** --- 3213,3217 ---- $c delete tooltip_bg tooltip_fg set tooltip(visible) 0 + if {$tooltip(on_hide) != ""} {$self $tooltip(on_hide)} } *************** *** 3211,3215 **** set n 0 $f.1 delete 0 end ! foreach class [lsort $class_list] { if {[string length $s]==0 || [string first $s $class]>=0} { $f.1 insert end "$class" --- 3229,3233 ---- set n 0 $f.1 delete 0 end ! foreach class [luniq [lsort $class_list]] { if {[string length $s]==0 || [string first $s $class]>=0} { $f.1 insert end "$class" *************** *** 3245,3249 **** frame $f.5 ! button $f.5.help -text [say help] -command {pd pd help [$f.1 get [$f.1 curselection]]} pack $f.5.help -side top pack $f.5 -side left -fill y -expand no --- 3263,3267 ---- frame $f.5 ! button $f.5.help -text [say help] -command "pd pd help \[$f.1 get \[$f.1 curselection\]\]" pack $f.5.help -side top pack $f.5 -side left -fill y -expand no *************** *** 3288,3321 **** ############ completions ! set completion_closure {} ! ! proc propose_completions {self canvas x y text} { ! global class_list completion_closure ! set completion_closure [list $self $canvas $x $y $text] ! pd pd update-class-list propose_completions2 if {![info exists class_list]} { post_to_gui "loading class list..." ! ! } else { ! propose_completions2 } - } - - proc propose_completions2 {} { - global class_list completion_closure - mset {self canvas x y text} $completion_closure set r {} set n 0 ! foreach class [lsort $class_list] { ! if {[string length $text]==0 || [string first $text $class]>=0} { ! lappend r $class incr n } ! if {$n > 20} {lappend r ...; break} } #post_to_gui "$r\n" ! set r [string map {" " "\n"} $r] ! global tooltip ! show_canvas_tooltip $self $canvas $x $y $r } --- 3306,3334 ---- ############ completions ! def textbox propose_completions {} { ! global class_list if {![info exists class_list]} { + pd pd update-class-list $self propose_completions post_to_gui "loading class list..." ! return } set r {} set n 0 ! set prev "" ! foreach class [luniq [lsort $class_list]] { ! if {[string length $@text]==0 || [string first $@text $class]>=0} { ! if {[string compare [say $class] "{{$class}}"]} { ! lappend r "$class : [say $class]" ! } { ! lappend r $class ! } incr n } ! if {$n > 16} {lappend r ...; break} } #post_to_gui "$r\n" ! set r [join $r "\n"] ! mset {x1 y1 x2 y2} [$self bbox] ! $@canvas show_tooltip $x2 $y1 $r }

1 0

pd/src desire.c,1.1.2.68,1.1.2.69
by Mathieu Bouchard 21 Apr '06

21 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24147 Modified Files: Tag: devel_0_39 desire.c Log Message: glob_redraw Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.68 retrieving revision 1.1.2.69 diff -C2 -d -r1.1.2.68 -r1.1.2.69 *** desire.c 18 Apr 2006 23:30:49 -0000 1.1.2.68 --- desire.c 21 Apr 2006 15:26:00 -0000 1.1.2.69 *************** *** 749,752 **** --- 749,761 ---- } + void glob_redraw(void) { + t_canvas *x = canvas_list; + while (x) { + canvas_redraw(x); + x->gl_mapped=0; canvas_map(x,1); + x=x->gl_next; + } + } + void canvas_redraw(t_canvas *x) { if (glist_isvisible(x)) {canvas_map(x,0); canvas_map(x, 1);}

1 0

pd/src s_audio.c, 1.5.4.16.2.16, 1.5.4.16.2.17 s_stuff.h, 1.5.4.10.2.6, 1.5.4.10.2.7 s_audio_portaudio.c, 1.1.2.1, 1.1.2.2
by Tim Blechmann 21 Apr '06

21 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6657/src Modified Files: Tag: devel_0_39 s_audio.c s_stuff.h s_audio_portaudio.c Log Message: index fixes Index: s_audio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio.c,v retrieving revision 1.5.4.16.2.16 retrieving revision 1.5.4.16.2.17 diff -C2 -d -r1.5.4.16.2.16 -r1.5.4.16.2.17 *** s_audio.c 20 Apr 2006 15:34:15 -0000 1.5.4.16.2.16 --- s_audio.c 21 Apr 2006 14:03:17 -0000 1.5.4.16.2.17 *************** *** 30,34 **** #define DEVDESCSIZE 80 ! EXTERN void audio_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int *canmulti, int maxndev, int devdescsize); --- 30,34 ---- #define DEVDESCSIZE 80 ! static void audio_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int *canmulti, int maxndev, int devdescsize); *************** *** 592,596 **** ! /*static*/ void audio_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int *canmulti, int maxndev, int devdescsize) --- 592,596 ---- ! static void audio_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int *canmulti, int maxndev, int devdescsize) Index: s_audio_portaudio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/s_audio_portaudio.c,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** s_audio_portaudio.c 20 Apr 2006 13:32:33 -0000 1.1.2.1 --- s_audio_portaudio.c 21 Apr 2006 14:03:20 -0000 1.1.2.2 *************** *** 112,130 **** if (inchans > 0) { ! for (j = 0, devno = 0; j < Pa_GetDeviceCount(); j++) { ! const PaDeviceInfo *info = Pa_GetDeviceInfo(j); ! int maxchans = info->maxInputChannels; ! if (maxchans > 0) ! { ! if (devno == indeviceno) ! { ! if (maxchans < inchans) ! inchans = maxchans; ! pa_indev = j; ! break; ! } ! devno++; ! } } } --- 112,120 ---- if (inchans > 0) { ! const PaDeviceInfo *info = Pa_GetDeviceInfo(indeviceno); ! int maxchans = info->maxOutputChannels; ! if (maxchans > 0) { ! pa_indev = indeviceno; } } *************** *** 132,150 **** if (outchans > 0) { ! for (j = 0, devno = 0; j < Pa_GetDeviceCount(); j++) { ! const PaDeviceInfo *info = Pa_GetDeviceInfo(j); ! int maxchans = info->maxOutputChannels; ! if (maxchans > 0) ! { ! if (devno == outdeviceno) ! { ! if (maxchans < outchans) ! outchans = maxchans; ! pa_outdev = j; ! break; ! } ! devno++; ! } } } --- 122,130 ---- if (outchans > 0) { ! const PaDeviceInfo *info = Pa_GetDeviceInfo(outdeviceno); ! int maxchans = info->maxOutputChannels; ! if (maxchans > 0) { ! pa_outdev = outdeviceno; } } *************** *** 452,456 **** { const PaDeviceInfo *pdi = Pa_GetDeviceInfo(i); ! if (pdi->maxInputChannels > 0 && nin < maxndev) { PaHostApiIndex api = pdi->hostApi; --- 432,436 ---- { const PaDeviceInfo *pdi = Pa_GetDeviceInfo(i); ! if (nin < maxndev) { PaHostApiIndex api = pdi->hostApi; *************** *** 463,467 **** nin++; } ! if (pdi->maxOutputChannels > 0 && nout < maxndev) { PaHostApiIndex api = pdi->hostApi; --- 443,447 ---- nin++; } ! if (nout < maxndev) { PaHostApiIndex api = pdi->hostApi; Index: s_stuff.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_stuff.h,v retrieving revision 1.5.4.10.2.6 retrieving revision 1.5.4.10.2.7 diff -C2 -d -r1.5.4.10.2.6 -r1.5.4.10.2.7 *** s_stuff.h 14 Apr 2006 18:35:44 -0000 1.5.4.10.2.6 --- s_stuff.h 21 Apr 2006 14:03:20 -0000 1.5.4.10.2.7 *************** *** 263,266 **** --- 263,277 ---- int maxndev, int devdescsize); + /* tb { */ + void pa_test_setting (int ac, t_atom *av); + void pa_getcurrent_devices(void); + void pa_getaudiooutdevinfo(t_float f); + void pa_getaudioindevinfo(t_float f); + /* } tb */ + + + + + int oss_open_audio(int naudioindev, int *audioindev, int nchindev, int *chindev, int naudiooutdev, int *audiooutdev, int nchoutdev,

1 0

pd/src desire.tk, 1.1.2.171, 1.1.2.172 m_class.c, 1.3.4.7.2.14, 1.3.4.7.2.15
by Mathieu Bouchard 21 Apr '06

21 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31936 Modified Files: Tag: devel_0_39 desire.tk m_class.c Log Message: class browser Index: m_class.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_class.c,v retrieving revision 1.3.4.7.2.14 retrieving revision 1.3.4.7.2.15 diff -C2 -d -r1.3.4.7.2.14 -r1.3.4.7.2.15 *** m_class.c 21 Apr 2006 08:46:14 -0000 1.3.4.7.2.14 --- m_class.c 21 Apr 2006 09:03:20 -0000 1.3.4.7.2.15 *************** *** 27,30 **** --- 27,39 ---- #endif + #ifdef DESIRE + typedef struct t_class_list { + t_class *head; + struct t_class_list *tail; + } t_class_list; + static t_class_list *class_list = 0; + #endif + + static t_symbol *class_loadsym; /* name under which an extern is invoked */ static void pd_defaultfloat(t_pd *x, t_float f); *************** *** 257,261 **** } #endif ! return (c); } --- 266,278 ---- } #endif ! ! #ifdef DESIRE ! { ! t_class_list *tc = (t_class_list *) malloc(sizeof(t_class_list)); ! tc->head = c; ! tc->tail = class_list; ! class_list=tc; ! } ! #endif return (c); } *************** *** 1005,1015 **** } - typedef struct t_class_list { - t_class *head; - struct t_class_list *tail; - } t_class_list; - - static t_class_list *class_list = 0; - /* O(n) asymptotic time :-} */ /* only looks for already loaded classes though. */ --- 1022,1025 ---- Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.171 retrieving revision 1.1.2.172 diff -C2 -d -r1.1.2.171 -r1.1.2.172 *** desire.tk 21 Apr 2006 08:49:35 -0000 1.1.2.171 --- desire.tk 21 Apr 2006 09:03:20 -0000 1.1.2.172 *************** *** 3262,3271 **** bind $f.1 <Button-1> { after 1 { set i [$f.1 curselection] set class [$f.1 get $i] ! pd pd update-class-info $class } } ! bind $b.2 <KeyPress> {after 1 "$self fill_box [.browser.butt.2 get]"} after 1 "focus $b.2" } --- 3262,3274 ---- bind $f.1 <Button-1> { after 1 { + set self browser + set f .$self.cl set i [$f.1 curselection] set class [$f.1 get $i] ! pd pd update-class-info $class $self info_callback } } ! #bind $b.2 <KeyPress> {after 1 " $self fill_box [.browser.butt.2 get]"} ! bind $b.2 <KeyPress> {after 1 "browser fill_box \[.browser.butt.2 get\]"} after 1 "focus $b.2" }

1 0

pd/src desire.tk,1.1.2.170,1.1.2.171
by Mathieu Bouchard 21 Apr '06

21 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24388 Modified Files: Tag: devel_0_39 desire.tk Log Message: class browser Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.170 retrieving revision 1.1.2.171 diff -C2 -d -r1.1.2.170 -r1.1.2.171 *** desire.tk 21 Apr 2006 07:17:53 -0000 1.1.2.170 --- desire.tk 21 Apr 2006 08:49:35 -0000 1.1.2.171 *************** *** 637,641 **** # } ! # for audio switch on/off #switch -- $key { # slash {menu_audio 1} --- 637,641 ---- # } ! # for audio switch on/off #switch -- $key { # slash {menu_audio 1} *************** *** 660,666 **** $self eval% [dict get $@accels $key] return ! } { ! puts "ctrlkey: unknown $key" ! } } --- 660,664 ---- $self eval% [dict get $@accels $key] return ! } {puts "ctrlkey: unknown $key"} } *************** *** 672,678 **** $self eval% [dict get $@accels $key] return ! } { ! puts "altkey: unknown $key" ! } } --- 670,674 ---- $self eval% [dict get $@accels $key] return ! } {puts "altkey: unknown $key"} } *************** *** 919,922 **** --- 915,920 ---- } + def Client class_browser {} {ClassBrowser new_as browser browser} + proc menu_audio {flag} {pd pd dsp $flag} *************** *** 962,979 **** #-----------------------------------------------------------------------------------# - # .xc47f00d.c -> .xc47f00d (tk canvas to tk toplevel) - proc canvastosym {name} { - regsub {.c$} $name "" name - return $name - } - - # .xc47f00d.c -> xc47f00d (tk canvas to $_ canvas) - proc c2self {name} { - regsub {.c$} $name "" name - regsub {^\.} $name "" name - return $name - } - - #-----------------------------------------------------------------------------------# # check or uncheck the "edit" menu item def Canvas editmode {} {return $@editmode} --- 960,963 ---- *************** *** 3214,3224 **** } ! ############ class list ! proc class_browser_new {name} { ! pd "pd update-path ; pd update-class-list class_list_callback" } ! proc class_list_fill_box {s} { set f .browser.cl global class_list --- 3198,3210 ---- } ! ############ class browser ! class_new ClassBrowser {Dialog} ! def ClassBrowser init {name} { ! set @name $name ! pd "pd update-path ; pd update-class-list $self list_callback" } ! def ClassBrowser fill_box {s} { set f .browser.cl global class_list *************** *** 3235,3239 **** } ! proc search_for_externs {} { global pd_path global class_list --- 3221,3225 ---- } ! def ClassBrowser search_for_externs {} { global pd_path global class_list *************** *** 3246,3252 **** } ! proc class_list_callback {} { global class_list ! search_for_externs toplevel .browser set f .browser.cl --- 3232,3238 ---- } ! def ClassBrowser list_callback {} { global class_list ! $self search_for_externs toplevel .browser set f .browser.cl *************** *** 3273,3277 **** pack [button $b.close -text [say close] -command "destroy .browser"] -side right pack $b -side bottom -fill x -expand no ! class_list_fill_box "" bind $f.1 <Button-1> { after 1 { --- 3259,3263 ---- pack [button $b.close -text [say close] -command "destroy .browser"] -side right pack $b -side bottom -fill x -expand no ! $self fill_box "" bind $f.1 <Button-1> { after 1 { *************** *** 3281,3289 **** } } ! bind $b.2 <KeyPress> {after 1 {class_list_fill_box [.browser.butt.2 get]}} after 1 "focus $b.2" } ! proc class_info_callback {class} { global class_info set f .browser.cl --- 3267,3275 ---- } } ! bind $b.2 <KeyPress> {after 1 "$self fill_box [.browser.butt.2 get]"} after 1 "focus $b.2" } ! def ClassBrowser info_callback {class} { global class_info set f .browser.cl

1 0

pd/src m_pd.h, 1.4.4.11.2.17, 1.4.4.11.2.18 m_class.c, 1.3.4.7.2.13, 1.3.4.7.2.14 m_glob.c, 1.4.4.2.2.5, 1.4.4.2.2.6 s_path.c, 1.3.4.6.2.5, 1.3.4.6.2.6
by Mathieu Bouchard 21 Apr '06

21 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22638 Modified Files: Tag: devel_0_39 m_pd.h m_class.c m_glob.c s_path.c Log Message: class browser code, server side Index: m_class.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_class.c,v retrieving revision 1.3.4.7.2.13 retrieving revision 1.3.4.7.2.14 diff -C2 -d -r1.3.4.7.2.13 -r1.3.4.7.2.14 *** m_class.c 14 Mar 2006 13:17:35 -0000 1.3.4.7.2.13 --- m_class.c 21 Apr 2006 08:46:14 -0000 1.3.4.7.2.14 *************** *** 1004,1006 **** --- 1004,1050 ---- return -1; } + + typedef struct t_class_list { + t_class *head; + struct t_class_list *tail; + } t_class_list; + + static t_class_list *class_list = 0; + + /* O(n) asymptotic time :-} */ + /* only looks for already loaded classes though. */ + t_class *class_find (t_symbol *s) { + t_class_list *me = class_list; + for (; me; me=me->tail) if (me->head->c_name == s) return me->head; + return 0; + } + + void glob_update_class_info (t_pd *bogus, t_symbol *s, t_symbol *cb_recv, t_symbol *cb_sel) { + t_class *c = class_find(s); + if (!c) { post("class not found!"); return; } + sys_vgui("global class_info; set class_info(%s) [list " + "helpname \"%s\" externdir \"%s\" size \"%d\" " + /* + t_methodentry *c_methods; int c_nmethod; + t_method c_freemethod; + struct _widgetbehavior *c_wb; + struct _parentwidgetbehavior *c_pwb; + t_savefn c_savefn; + t_propertiesfn c_propertiesfn; + int c_floatsignalin; + */ + "gobj \"%d\" patchable \"%d\" firstin \"%d\" " + "firsttip \"%s\" methods {",s->s_name,c->c_helpname->s_name,c->c_externdir->s_name, + c->c_size,c->c_gobj,c->c_patchable,c->c_firstin,c->c_firsttip->s_name); + if (c-> c_bangmethod != pd_defaultbang) sys_vgui("<bang> "); + if (c->c_pointermethod != pd_defaultpointer) sys_vgui("<pointer> "); + if (c-> c_floatmethod != pd_defaultfloat) sys_vgui("<float> "); + if (c-> c_symbolmethod != pd_defaultsymbol) sys_vgui("<symbol> "); + if (c-> c_listmethod != pd_defaultlist) sys_vgui("<list> "); + if (c-> c_anymethod != pd_defaultanything) sys_vgui("<any> "); + {int i; for (i=0; i<c->c_nmethod; i++) sys_vgui("%s ",c->c_methods[i].me_name->s_name);} + sys_vgui("}]; %s %s %s\n",cb_recv->s_name, cb_sel->s_name, s->s_name); + } + + #endif Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.4.4.11.2.17 retrieving revision 1.4.4.11.2.18 diff -C2 -d -r1.4.4.11.2.17 -r1.4.4.11.2.18 *** m_pd.h 9 Mar 2006 14:22:51 -0000 1.4.4.11.2.17 --- m_pd.h 21 Apr 2006 08:46:14 -0000 1.4.4.11.2.18 *************** *** 445,448 **** --- 445,449 ---- #endif + EXTERN t_class *class_find (t_symbol *s); EXTERN t_class *class_new(t_symbol *name, t_newmethod newmethod, t_method freemethod, size_t size, int flags, t_atomtypearg arg1, ...); Index: s_path.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_path.c,v retrieving revision 1.3.4.6.2.5 retrieving revision 1.3.4.6.2.6 diff -C2 -d -r1.3.4.6.2.5 -r1.3.4.6.2.6 *** s_path.c 30 Nov 2005 13:36:58 -0000 1.3.4.6.2.5 --- s_path.c 21 Apr 2006 08:46:14 -0000 1.3.4.6.2.6 *************** *** 615,616 **** --- 615,624 ---- + #ifdef DESIRE + void glob_update_path (void) { + t_namelist *nl; + sys_vgui("global pd_path; set pd_path {"); + for (nl=sys_searchpath; nl; nl=nl->nl_next) sys_vgui("%s ",nl->nl_string); + sys_vgui("}\n"); + } + #endif Index: m_glob.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_glob.c,v retrieving revision 1.4.4.2.2.5 retrieving revision 1.4.4.2.2.6 diff -C2 -d -r1.4.4.2.2.5 -r1.4.4.2.2.6 *** m_glob.c 20 Apr 2006 13:32:33 -0000 1.4.4.2.2.5 --- m_glob.c 21 Apr 2006 08:46:14 -0000 1.4.4.2.2.6 *************** *** 93,96 **** --- 93,126 ---- } + #ifdef DESIRE + char *class_gethelpdir(t_class *c); + #include <string.h> + /* see also canvas_done_popup */ + void glob_help(t_pd *bogus, t_symbol *s) { + char namebuf[MAXPDSTRING], *dir; + t_class *c = class_find(s); + if (!c) { post("HUH? no help because no class. (!)"); return; } + strcpy(namebuf, class_gethelpname(c)); + dir = class_gethelpdir(c); + if (strcmp(namebuf + strlen(namebuf) - 3, ".pd")) strcat(namebuf, ".pd"); + open_via_helppath(namebuf, dir); + } + + void glob_update_class_list (t_pd *self, t_symbol *cb_recv, t_symbol *cb_sel) { + int i; + int n = pd_objectmaker->c_nmethod; + sys_gui("global class_list; set class_list {"); + for (i=0; i<n; i++) { + sys_vgui("%s ", pd_objectmaker->c_methods[i].me_name->s_name); + } + sys_gui("}\n"); + sys_vgui("%s %s\n",cb_recv->s_name, cb_sel->s_name); + } + #endif + + EXTERN void glob_update_class_info (t_pd *bogus, t_symbol *s, t_symbol *cb_recv, t_symbol *cb_sel); + EXTERN void glob_update_path (void); + EXTERN void glob_redraw (void); + void glob_init(void) { *************** *** 173,176 **** --- 203,218 ---- gensym("getaudiodevice"), 0); /* tb } */ + #ifdef DESIRE + class_addmethod(glob_pdobject, (t_method)glob_update_class_list, + gensym("update-class-list"), A_SYMBOL, A_SYMBOL, 0); + class_addmethod(glob_pdobject, (t_method)glob_update_class_info, + gensym("update-class-info"), A_SYMBOL, A_SYMBOL, A_SYMBOL, 0); + class_addmethod(glob_pdobject, (t_method)glob_update_path, + gensym("update-path"), 0); + class_addmethod(glob_pdobject, (t_method)glob_help, + gensym("help"), A_SYMBOL, 0); + class_addmethod(glob_pdobject, (t_method)glob_redraw, + gensym("redraw"), 0); + #endif #ifdef UNIX class_addmethod(glob_pdobject, (t_method)glob_watchdog,

1 0

externals/nusmuk msd.h,1.12,1.13
by Thomas Grill 21 Apr '06

21 Apr '06

Update of /cvsroot/pure-data/externals/nusmuk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26623 Modified Files: msd.h Log Message: (ugly) fix for gcc 4 Index: msd.h =================================================================== RCS file: /cvsroot/pure-data/externals/nusmuk/msd.h,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** msd.h 30 Jul 2005 11:19:34 -0000 1.12 --- msd.h 21 Apr 2006 07:54:41 -0000 1.13 *************** *** 1898,1900 **** #define MSD(NAME,CLASS,N) \ typedef msdN<N> CLASS; \ ! FLEXT_NEW_V(NAME,CLASS) --- 1898,1900 ---- #define MSD(NAME,CLASS,N) \ typedef msdN<N> CLASS; \ ! template<> FLEXT_NEW_V(NAME,CLASS)

1 0

pd/src desire.tk,1.1.2.169,1.1.2.170
by Mathieu Bouchard 21 Apr '06

21 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6493 Modified Files: Tag: devel_0_39 desire.tk Log Message: canvas quit Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.169 retrieving revision 1.1.2.170 diff -C2 -d -r1.1.2.169 -r1.1.2.170 *** desire.tk 21 Apr 2006 01:38:41 -0000 1.1.2.169 --- desire.tk 21 Apr 2006 07:17:53 -0000 1.1.2.170 *************** *** 868,871 **** --- 868,872 ---- if {$filename != ""} {.$self.c postscript -file $filename} } + def Canvas quit {} {global main; $main quit} def* Canvas eval% {code} { *************** *** 3560,3564 **** set pdrc_options { ! section "" "Audio DSP" integer -r "sample rate" devlist -soundindev|-audioindev "audio in devices" --- 3561,3565 ---- set pdrc_options { ! section audio "Audio DSP" integer -r "sample rate" devlist -soundindev|-audioindev "audio in devices" *************** *** 3585,3589 **** void -32bit "allow 32 bit OSS audio (for RME Hammerfall)" ! section "" "MIDI" void -nomidiin "suppress MIDI input" void -nomidiout "suppress MIDI output" --- 3586,3590 ---- void -32bit "allow 32 bit OSS audio (for RME Hammerfall)" ! section midi "MIDI" void -nomidiin "suppress MIDI input" void -nomidiout "suppress MIDI output" *************** *** 3593,3602 **** alias -mididev {list -midindev %1 -midioutdev %1} ! section "" "Externals" folders -path "add to file search path" folders -helppath "add to help file search path" files -lib "load object library(s)" ! section "" "Gooey" void -nogui "suppress starting the GUI (caution)" string -guicmd "substitute another GUI program (e.g., rsh)" --- 3594,3603 ---- alias -mididev {list -midindev %1 -midioutdev %1} ! section externals "Externals" folders -path "add to file search path" folders -helppath "add to help file search path" files -lib "load object library(s)" ! section gui "Gooey" void -nogui "suppress starting the GUI (caution)" string -guicmd "substitute another GUI program (e.g., rsh)" *************** *** 3606,3610 **** integer -font "specify default font size in points" ! section "" "Other" files -open "open file(s) on startup" void -verbose "extra printout on startup and when searching for files" --- 3607,3611 ---- integer -font "specify default font size in points" ! section other "Other" files -open "open file(s) on startup" void -verbose "extra printout on startup and when searching for files" *************** *** 3614,3619 **** void -listdev "list audio and MIDI devices upon startup" void -rt|-realtime "use real-time priority (needs root privilege)" ! ! section "" "Look" files -open "open file(s) on startup" void -verbose "extra printout on startup and when searching for files" --- 3615,3620 ---- void -listdev "list audio and MIDI devices upon startup" void -rt|-realtime "use real-time priority (needs root privilege)" ! ! section look "Look" files -open "open file(s) on startup" void -verbose "extra printout on startup and when searching for files"

1 0

pd/src/locale english.tcl,1.1.2.6,1.1.2.7
by chunlee 21 Apr '06

21 Apr '06

Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32720/locale Modified Files: Tag: devel_0_39 english.tcl Log Message: oops, forgot this.... Index: english.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/english.tcl,v retrieving revision 1.1.2.6 retrieving revision 1.1.2.7 diff -C2 -d -r1.1.2.6 -r1.1.2.7 *** english.tcl 20 Apr 2006 16:03:34 -0000 1.1.2.6 --- english.tcl 21 Apr 2006 01:44:04 -0000 1.1.2.7 *************** *** 9,12 **** --- 9,13 ---- say open_file "Open File..." say pdrc_editor ".pdrc Editor" + say ddrc_editor ".ddrc Editor" say send_message "Send Message..." say paths "Paths..."

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
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 April 2006