Pd-cvs May 2008

pd-cvs@lists.iem.at

16 participants
271 discussions

SF.net SVN: pure-data: [9808] trunk/externals
by eighthave＠users.sourceforge.net 15 May '08

15 May '08

Revision: 9808 http://pure-data.svn.sourceforge.net/pure-data/?rev=9808&view=rev Author: eighthave Date: 2008-05-15 06:49:39 -0700 (Thu, 15 May 2008) Log Message: ----------- added example of how to change the colors of the theming from a patch Modified Paths: -------------- trunk/externals/Makefile Added Paths: ----------- trunk/externals/hcs/examples/ trunk/externals/hcs/examples/changing_the_colors.pd Modified: trunk/externals/Makefile =================================================================== --- trunk/externals/Makefile 2008-05-15 13:03:45 UTC (rev 9807) +++ trunk/externals/Makefile 2008-05-15 13:49:39 UTC (rev 9808) @@ -1061,9 +1061,9 @@ # install -d $(readmesdir) # install -p $(externals_src)/hcs/README \ # $(readmesdir)/$(HCS_NAME).txt -# install -d $(examplesdir)/$(HCS_NAME) -# install -p $(externals_src)/hcs/examples/*.pd \ -#g $(examplesdir)/$(HCS_NAME) + install -d $(examplesdir)/$(HCS_NAME) + install -p $(externals_src)/hcs/examples/*.pd \ + $(examplesdir)/$(HCS_NAME) hcs_clean: -rm -f -- $(HCS_OBJECTS:.c=.$(EXTENSION)) Added: trunk/externals/hcs/examples/changing_the_colors.pd =================================================================== --- trunk/externals/hcs/examples/changing_the_colors.pd (rev 0) +++ trunk/externals/hcs/examples/changing_the_colors.pd 2008-05-15 13:49:39 UTC (rev 9808) @@ -0,0 +1,65 @@ +#N canvas 231 465 735 462 10; +#X obj 133 416 hcs/sys_gui; +#X msg 39 15 set canvas_fill green; +#N canvas 0 22 492 479 default 0; +#X obj 84 23 inlet; +#X obj 74 366 outlet; +#X obj 83 80 bang; +#X msg 74 119 set canvas_fill "white" \, set text_color "#000" \, set +select_color "#00f" \, set dash_outline "#f00" \, set dash_fill "#f7f7f7" +\, set box_outline "#ccc" \, set graph_outline "#777" \, set atom_box_fill +"#eee" \, set msg_box_fill "#f8f8f6" \, set obj_box_fill "#f6f8f8" +\, set signal_cord_highlight "#58a" \, set signal_cord "#558" \, set +signal_nlet $signal_cord \, set msg_cord_highlight "#474" \, set msg_cord +"#565" \, set msg_nlet "white" \, set mixed_nlet "#88aaff"; +#X connect 0 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X restore 271 387 pd default color scheme; +#X msg 271 365 bang; +#X msg 47 35 set text_color grey50; +#X msg 67 76 set dash_color orange; +#X msg 57 55 set select_color magenta; +#X msg 79 95 set dash_fill green; +#X msg 87 115 set box_outline yellow; +#X msg 97 135 set graph_outline green; +#X msg 107 155 set atom_box_fill green; +#X text 268 47 changes don't always take effect immediately \, open +a new window to see the changes.; +#X msg 119 175 set msg_box_fill green; +#X msg 127 195 set obj_box_fill grey50; +#X msg 137 215 set signal_cord_highlight magenta; +#X msg 159 255 set signal_nlet green; +#X msg 167 275 set msg_cord_highlight yellow; +#X msg 177 295 set msg_cord green; +#X msg 187 315 set msg_cord_nlet green; +#X msg 197 335 set mixed_nlet green; +#X text 297 115 you can use X11 color names or web colors; +#X obj 325 144 pddp/pddplink http://en.wikipedia.org/wiki/X11_color_names +; +#X obj 326 164 pddp/pddplink http://en.wikipedia.org/wiki/Web_colors +; +#X obj 362 225 pddp/pddplink http://wiki.tcl.tk/1424; +#X text 352 185 more on using color with Tcl/Tk:; +#X obj 362 207 pddp/pddplink http://wiki.tcl.tk/3538 -text color values +available for syntactic use in Tcl scripts; +#X msg 147 236 set signal_cord #ffbb00; +#X connect 1 0 0 0; +#X connect 2 0 0 0; +#X connect 3 0 2 0; +#X connect 4 0 0 0; +#X connect 5 0 0 0; +#X connect 6 0 0 0; +#X connect 7 0 0 0; +#X connect 8 0 0 0; +#X connect 9 0 0 0; +#X connect 10 0 0 0; +#X connect 12 0 0 0; +#X connect 13 0 0 0; +#X connect 14 0 0 0; +#X connect 15 0 0 0; +#X connect 16 0 0 0; +#X connect 17 0 0 0; +#X connect 18 0 0 0; +#X connect 19 0 0 0; +#X connect 26 0 0 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9807] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 15 May '08

15 May '08

Revision: 9807 http://pure-data.svn.sourceforge.net/pure-data/?rev=9807&view=rev Author: eighthave Date: 2008-05-15 06:03:45 -0700 (Thu, 15 May 2008) Log Message: ----------- made console-window-related key bindings work when the Pd window has focus, fixing most of bug #1964296 (all except the fact the the "Pd window" menu item doesn't raise the Pd window on GNU/Linux unless that window has been iconified since the Pd window had focus.) Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-15 08:55:25 UTC (rev 9806) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-15 13:03:45 UTC (rev 9807) @@ -391,6 +391,10 @@ proc pdtk_fixwindowmenu {} { global menu_windowlist .mbar.windows delete 0 end + .mbar.windows add command -label {parent window} -state disabled + .mbar.windows add command -label {Pd window} -command menu_raise_console \ + -accelerator [accel_munge "Ctrl+r"] -state disabled + .mbar.windows add separator foreach i $menu_windowlist { .mbar.windows add command -label [lindex $i 0] \ -command [concat menu_domenuwindow [lindex $i 1]] @@ -497,6 +501,7 @@ if {$pd_window eq $top_window} { lower $pd_window } else { + wm deiconify $pd_window raise $pd_window } } @@ -840,16 +845,7 @@ -state disabled .mbar.find add command -label {Find last error} -command {menu_finderror} -#################### the "Window" menu for the Pd window ############## -# this does not show up on the Window menu, probably because it is a special -# menu that is supposed to be automatically managed by Tcl/Tk -#.mbar.find add command -label {parent window} -state disabled -#.mbar.windows add command -label {Pd window} -command menu_raise_console \ -# -accelerator [accel_munge "Ctrl+r"] -#.mbar.windows add separator - - ########### functions for menu functions on document windows ######## proc menu_save {name} { @@ -3652,19 +3648,24 @@ global pd_nt # puts stderr [concat key $key shift $shift] # .dummy itemconfig goo -text [concat ---> control-key event $key]; - if {$key == "n" || $key == "N"} {menu_new} - if {$key == "o" || $key == "O"} {menu_open} - if {$pd_nt != 2} { - # Cmd-m is minimize window on Mac OS X - if {$key == "m" || $key == "M"} {menu_send} + if {$shift == 1} { + if {$key == "l" || $key == "L"} {menu_clear_console} + if {$key == "q" || $key == "Q"} {menu_really_quit} + if {$key == "r" || $key == "R"} {menu_toggle_console} } else { - if {$key == "m" || $key == "M"} {menu_minimize} + if {$key == "n" || $key == "N"} {menu_new} + if {$key == "o" || $key == "O"} {menu_open} + if {$key == "q" || $key == "Q"} {menu_quit} + if {$key == "r" || $key == "R"} {menu_raise_console} + if {$pd_nt != 2} { + # Cmd-m is minimize window on Mac OS X + if {$key == "m" || $key == "M"} {menu_send} + } else { + if {$key == "m" || $key == "M"} {menu_minimize} + } + if {$key == "slash"} {menu_audio 1} + if {$key == "period"} {menu_audio 0} } - if {$key == "q" || $key == "Q"} { - if {$shift == 1} {menu_really_quit} else {menu_quit} - } - if {$key == "slash"} {menu_audio 1} - if {$key == "period"} {menu_audio 0} } ######### startup function. ############## This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9806] trunk/abstractions/senderfruit/core
by lukeiannini＠users.sourceforge.net 15 May '08

15 May '08

Revision: 9806 http://pure-data.svn.sourceforge.net/pure-data/?rev=9806&view=rev Author: lukeiannini Date: 2008-05-15 01:55:25 -0700 (Thu, 15 May 2008) Log Message: ----------- implemented savebang idea from HCS Added Paths: ----------- trunk/abstractions/senderfruit/core/savebang-help.pd trunk/abstractions/senderfruit/core/savebang.pd Added: trunk/abstractions/senderfruit/core/savebang-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/savebang-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/savebang-help.pd 2008-05-15 08:55:25 UTC (rev 9806) @@ -0,0 +1,9 @@ +#N canvas 976 723 373 150 10; +#X obj 102 90 savebang; +#X obj 102 116 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X text 8 8 [savebang] outputs a bang when its containing patch is +saved. The bang is output before the file is saved \, making it useful +for clearing temporary data. Original idea by Hans-Christoph Steiner +\; requires [tot]; +#X connect 0 0 1 0; Added: trunk/abstractions/senderfruit/core/savebang.pd =================================================================== --- trunk/abstractions/senderfruit/core/savebang.pd (rev 0) +++ trunk/abstractions/senderfruit/core/savebang.pd 2008-05-15 08:55:25 UTC (rev 9806) @@ -0,0 +1,11 @@ +#N canvas 736 201 223 185 10; +#X msg 26 47 capture 1; +#X obj 68 97 route menusave; +#X obj 26 21 loadbang; +#X obj 26 73 tot .parent; +#X obj 68 122 outlet; +#X text 25 155 Idea by hans-christoph steiner; +#X connect 0 0 3 0; +#X connect 1 0 4 0; +#X connect 2 0 0 0; +#X connect 3 2 1 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9805] trunk/externals/tof/src
by mrtof＠users.sourceforge.net 15 May '08

15 May '08

Revision: 9805 http://pure-data.svn.sourceforge.net/pure-data/?rev=9805&view=rev Author: mrtof Date: 2008-05-14 15:24:09 -0700 (Wed, 14 May 2008) Log Message: ----------- Fixed a bug in the width of breakpoints widget Modified Paths: -------------- trunk/externals/tof/src/breakpoints.c trunk/externals/tof/src/breakpoints~.c trunk/externals/tof/src/breakpoints~.h trunk/externals/tof/src/w_breakpoints.h Modified: trunk/externals/tof/src/breakpoints.c =================================================================== --- trunk/externals/tof/src/breakpoints.c 2008-05-14 18:59:09 UTC (rev 9804) +++ trunk/externals/tof/src/breakpoints.c 2008-05-14 22:24:09 UTC (rev 9805) @@ -14,7 +14,6 @@ #include "breakpoints~.h" -#define BACKGROUNDWIDTH "1" #include "w_breakpoints.h" static t_class *breakpoints_class; @@ -296,8 +295,8 @@ { t_breakpoints *x = (t_breakpoints *)pd_new(breakpoints_class); + x->borderwidth = 1; - x->x_f = 0; x->args = STATES; x->finalvalues = getbytes( x->args*sizeof(t_float)); Modified: trunk/externals/tof/src/breakpoints~.c =================================================================== --- trunk/externals/tof/src/breakpoints~.c 2008-05-14 18:59:09 UTC (rev 9804) +++ trunk/externals/tof/src/breakpoints~.c 2008-05-14 22:24:09 UTC (rev 9805) @@ -14,7 +14,6 @@ #include "breakpoints~.h" -#define BACKGROUNDWIDTH "2" #include "w_breakpoints.h" static t_class *breakpoints_class; @@ -327,8 +326,8 @@ { t_breakpoints *x = (t_breakpoints *)pd_new(breakpoints_class); + x->borderwidth = 2; - x->x_f = 0; x->args = STATES; x->finalvalues = getbytes( x->args*sizeof(t_float)); Modified: trunk/externals/tof/src/breakpoints~.h =================================================================== --- trunk/externals/tof/src/breakpoints~.h 2008-05-14 18:59:09 UTC (rev 9804) +++ trunk/externals/tof/src/breakpoints~.h 2008-05-14 22:24:09 UTC (rev 9805) @@ -32,7 +32,8 @@ t_float totaldur; t_int args; /* get rid of that */ t_int resizing; - t_int resizeable; + t_int resizeable; + t_int borderwidth; t_symbol* r_sym; //receive symbol t_symbol* s_sym; //send symbol Modified: trunk/externals/tof/src/w_breakpoints.h =================================================================== --- trunk/externals/tof/src/w_breakpoints.h 2008-05-14 18:59:09 UTC (rev 9804) +++ trunk/externals/tof/src/w_breakpoints.h 2008-05-14 22:24:09 UTC (rev 9805) @@ -9,9 +9,7 @@ #define BACKGROUNDCOLOR "grey86" #define LINECOLOR "grey30" -#ifndef BACKGROUNDWIDTH -#define BACKGROUNDWIDTH "1" -#endif + #define BORDER 2 @@ -238,11 +236,11 @@ ypos = (int) text_ypix(&x->x_obj,glist); x->w.numclock = clock_new(x, (t_method) breakpoints_delnum); sys_vgui(".x%x.c create rectangle \ -%d %d %d %d -tags %xS -fill "BACKGROUNDCOLOR" -width "BACKGROUNDWIDTH"\n", +%d %d %d %d -tags %xS -fill "BACKGROUNDCOLOR" -width %d\n", glist_getcanvas(glist), xpos-BORDER, ypos-BORDER, xpos + x->w.width+2*BORDER, ypos + x->w.height+2*BORDER, - x); + x,x->borderwidth); xscale = x->w.width/x->duration[x->last_state]; yscale = x->w.height; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9804] trunk/packages/patches/ add_home_end_to_obj_boxes-0.41.4.patch
by eighthave＠users.sourceforge.net 14 May '08

14 May '08

Revision: 9804 http://pure-data.svn.sourceforge.net/pure-data/?rev=9804&view=rev Author: eighthave Date: 2008-05-14 11:59:09 -0700 (Wed, 14 May 2008) Log Message: ----------- added Home/End suport to object/message boxes (and emacs home end on Mac OS X, since that is a standard binding), patch #1964023 Added Paths: ----------- trunk/packages/patches/add_home_end_to_obj_boxes-0.41.4.patch Added: trunk/packages/patches/add_home_end_to_obj_boxes-0.41.4.patch =================================================================== --- trunk/packages/patches/add_home_end_to_obj_boxes-0.41.4.patch (rev 0) +++ trunk/packages/patches/add_home_end_to_obj_boxes-0.41.4.patch 2008-05-14 18:59:09 UTC (rev 9804) @@ -0,0 +1,32 @@ +Index: u_main.tk +=================================================================== +--- u_main.tk (revision 9725) ++++ u_main.tk (working copy) +@@ -3332,7 +3332,7 @@ + # if {$font < 13} {set fontname [format -*-courier-bold----%d-* $font]} + # if {$font >= 13} {set fontname [format -*-courier-----%d-* $font]} + +- global pd_fontlist ++ global pd_fontlist pd_nt + switch -- $font { + 8 { set typeface [lindex $pd_fontlist 0] } + 9 { set typeface [lindex $pd_fontlist 1] } +@@ -3346,9 +3346,16 @@ + 36 { set typeface [lindex $pd_fontlist 9] } + } + +- $canvasname create text $x $y \ +- -font $typeface \ ++ $canvasname create text $x $y -font $typeface \ + -tags $myname -text $text -fill $color -anchor nw ++ $canvasname bind $myname <Home> [concat $canvasname icursor $myname 0] ++ $canvasname bind $myname <End> [concat $canvasname icursor $myname end] ++ if {$pd_nt == 2} { # emacs bindings for Mac OS X ++ $canvasname bind $myname <Control-a> \ ++ [concat $canvasname icursor $myname 0] ++ $canvasname bind $myname <Control-e> \ ++ [concat $canvasname icursor $myname end] ++ } + # pd [concat $myname size [$canvasname bbox $myname] \;] + } + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9803] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 14 May '08

14 May '08

Revision: 9803 http://pure-data.svn.sourceforge.net/pure-data/?rev=9803&view=rev Author: eighthave Date: 2008-05-14 11:55:12 -0700 (Wed, 14 May 2008) Log Message: ----------- added emacs home end on Mac OS X, since that is a standard binding Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-14 18:36:40 UTC (rev 9802) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-14 18:55:12 UTC (rev 9803) @@ -3613,7 +3613,7 @@ # if {$font < 13} {set fontname [format -*-courier-bold----%d-* $font]} # if {$font >= 13} {set fontname [format -*-courier-----%d-* $font]} - global pd_fontlist + global pd_fontlist pd_nt switch -- $font { 8 { set typeface [lindex $pd_fontlist 0] } 9 { set typeface [lindex $pd_fontlist 1] } @@ -3631,6 +3631,12 @@ -tags $myname -text $text -fill $color -anchor nw $canvasname bind $myname <Home> [concat $canvasname icursor $myname 0] $canvasname bind $myname <End> [concat $canvasname icursor $myname end] + if {$pd_nt == 2} { # emacs bindings for Mac OS X + $canvasname bind $myname <Control-a> \ + [concat $canvasname icursor $myname 0] + $canvasname bind $myname <Control-e> \ + [concat $canvasname icursor $myname end] + } # pd [concat $myname size [$canvasname bbox $myname] \;] } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9802] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 14 May '08

14 May '08

Revision: 9802 http://pure-data.svn.sourceforge.net/pure-data/?rev=9802&view=rev Author: eighthave Date: 2008-05-14 11:36:40 -0700 (Wed, 14 May 2008) Log Message: ----------- add Home and End support to object and message boxes Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-14 17:49:20 UTC (rev 9801) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-14 18:36:40 UTC (rev 9802) @@ -3627,9 +3627,10 @@ 36 { set typeface [lindex $pd_fontlist 9] } } - $canvasname create text $x $y \ - -font $typeface \ - -tags $myname -text $text -fill $color -anchor nw + $canvasname create text $x $y -font $typeface \ + -tags $myname -text $text -fill $color -anchor nw + $canvasname bind $myname <Home> [concat $canvasname icursor $myname 0] + $canvasname bind $myname <End> [concat $canvasname icursor $myname end] # pd [concat $myname size [$canvasname bbox $myname] \;] } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9801] branches/pd-extended/v0-40/pd/src
by eighthave＠users.sourceforge.net 14 May '08

14 May '08

Revision: 9801 http://pure-data.svn.sourceforge.net/pure-data/?rev=9801&view=rev Author: eighthave Date: 2008-05-14 10:49:20 -0700 (Wed, 14 May 2008) Log Message: ----------- - fixed crasher bug on GNU/Linux and broken help patches on Mac OS X caused by the tilde interpretation code - switched all char* operations for filenames from using MAXPDSTRING to using the POSIX FILENAME_MAX These changes are reflected in patches 1963983 and 1961878 Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/d_soundfile.c branches/pd-extended/v0-40/pd/src/g_array.c branches/pd-extended/v0-40/pd/src/g_canvas.c branches/pd-extended/v0-40/pd/src/g_editor.c branches/pd-extended/v0-40/pd/src/m_binbuf.c branches/pd-extended/v0-40/pd/src/m_class.c branches/pd-extended/v0-40/pd/src/m_pd.h branches/pd-extended/v0-40/pd/src/s_file.c branches/pd-extended/v0-40/pd/src/s_loader.c branches/pd-extended/v0-40/pd/src/s_main.c branches/pd-extended/v0-40/pd/src/s_path.c Modified: branches/pd-extended/v0-40/pd/src/d_soundfile.c =================================================================== --- branches/pd-extended/v0-40/pd/src/d_soundfile.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/d_soundfile.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -404,9 +404,9 @@ int *p_bytespersamp, int *p_bigendian, int *p_nchannels, long *p_bytelimit, long skipframes) { - char buf[OBUFSIZE], *bufptr; + char buf[FILENAME_MAX], *bufptr; int fd; - fd = open_via_path(dirname, filename, "", buf, &bufptr, MAXPDSTRING, 1); + fd = open_via_path(dirname, filename, "", buf, &bufptr, FILENAME_MAX, 1); if (fd < 0) return (-1); else return (open_soundfile_via_fd(fd, headersize, p_bytespersamp, @@ -420,9 +420,9 @@ int *p_bytespersamp, int *p_bigendian, int *p_nchannels, long *p_bytelimit, long skipframes) { - char buf[OBUFSIZE], *bufptr; + char buf[FILENAME_MAX], *bufptr; int fd; - fd = canvas_open(canvas, filename, "", buf, &bufptr, MAXPDSTRING, 1); + fd = canvas_open(canvas, filename, "", buf, &bufptr, FILENAME_MAX, 1); if (fd < 0) return (-1); else return (open_soundfile_via_fd(fd, headersize, p_bytespersamp, @@ -674,15 +674,15 @@ int filetype, int nframes, int bytespersamp, int bigendian, int nchannels, int swap, float samplerate) { - char filenamebuf[MAXPDSTRING], buf2[MAXPDSTRING]; + char filenamebuf[FILENAME_MAX], buf2[FILENAME_MAX]; char headerbuf[WRITEHDRSIZE]; t_wave *wavehdr = (t_wave *)headerbuf; t_nextstep *nexthdr = (t_nextstep *)headerbuf; t_aiff *aiffhdr = (t_aiff *)headerbuf; int fd, headersize = 0; - strncpy(filenamebuf, filename, MAXPDSTRING-10); - filenamebuf[MAXPDSTRING-10] = 0; + strncpy(filenamebuf, filename, FILENAME_MAX-10); + filenamebuf[FILENAME_MAX-10] = 0; if (filetype == FORMAT_NEXT) { @@ -748,7 +748,7 @@ headersize = sizeof(t_wave); } - canvas_makefilename(canvas, filenamebuf, buf2, MAXPDSTRING); + canvas_makefilename(canvas, filenamebuf, buf2, FILENAME_MAX); sys_bashfilename(buf2, buf2); if ((fd = open(buf2, BINCREATE, 0666)) < 0) return (-1); Modified: branches/pd-extended/v0-40/pd/src/g_array.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_array.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/g_array.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -1372,7 +1372,7 @@ { int nelem, filedesc, i; FILE *fd; - char buf[MAXPDSTRING], *bufptr; + char buf[FILENAME_MAX], *bufptr; int yonset, elemsize; t_array *array = garray_getarray_floatonly(x, &yonset, &elemsize); if (!array) @@ -1382,7 +1382,7 @@ } nelem = array->a_n; if ((filedesc = canvas_open(glist_getcanvas(x->x_glist), - filename->s_name, "", buf, &bufptr, MAXPDSTRING, 0)) < 0 + filename->s_name, "", buf, &bufptr, FILENAME_MAX, 0)) < 0 || !(fd = fdopen(filedesc, "r"))) { error("%s: can't open", filename->s_name); Modified: branches/pd-extended/v0-40/pd/src/g_canvas.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -1581,7 +1581,6 @@ { t_namelist *nl, thislist; int fd = -1; - char listbuf[MAXPDSTRING]; t_canvas *y; /* first check if "name" is absolute (and if so, try to open) */ @@ -1601,12 +1600,12 @@ dir = (x2 ? canvas_getdir(x2)->s_name : "."); for (nl = y->gl_env->ce_path; nl; nl = nl->nl_next) { - char realname[MAXPDSTRING]; - strncpy(realname, dir, MAXPDSTRING); - realname[MAXPDSTRING-3] = 0; + char realname[FILENAME_MAX]; + strncpy(realname, dir, FILENAME_MAX); + realname[FILENAME_MAX-3] = 0; strcat(realname, "/"); - strncat(realname, nl->nl_string, MAXPDSTRING-strlen(realname)); - realname[MAXPDSTRING-1] = 0; + strncat(realname, nl->nl_string, FILENAME_MAX-strlen(realname)); + realname[FILENAME_MAX-1] = 0; if ((fd = sys_trytoopenone(realname, name, ext, dirresult, nameresult, size, bin)) >= 0) return (fd); Modified: branches/pd-extended/v0-40/pd/src/g_editor.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_editor.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/g_editor.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -978,7 +978,7 @@ "open," or "help." */ static void canvas_done_popup(t_canvas *x, float which, float xpos, float ypos) { - char pathbuf[MAXPDSTRING], namebuf[MAXPDSTRING]; + char pathbuf[FILENAME_MAX], namebuf[FILENAME_MAX]; t_gobj *y; for (y = x->gl_list; y; y = y->g_next) { @@ -1010,7 +1010,7 @@ t_atom *av = binbuf_getvec(ob->te_binbuf); if (ac < 1) return; - atom_string(av, namebuf, MAXPDSTRING); + atom_string(av, namebuf, FILENAME_MAX); dir = canvas_getdir((t_canvas *)y)->s_name; } else Modified: branches/pd-extended/v0-40/pd/src/m_binbuf.c =================================================================== --- branches/pd-extended/v0-40/pd/src/m_binbuf.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/m_binbuf.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -700,7 +700,7 @@ static int binbuf_doopen(char *s, int mode) { - char namebuf[MAXPDSTRING]; + char namebuf[FILENAME_MAX]; #ifdef MSW mode |= O_BINARY; #endif @@ -710,7 +710,7 @@ static FILE *binbuf_dofopen(char *s, char *mode) { - char namebuf[MAXPDSTRING]; + char namebuf[FILENAME_MAX]; sys_bashfilename(s, namebuf); return (fopen(namebuf, mode)); } @@ -721,7 +721,7 @@ int fd; int readret; char *buf; - char namebuf[MAXPDSTRING]; + char namebuf[FILENAME_MAX]; namebuf[0] = 0; if (*dirname) @@ -774,9 +774,9 @@ int crflag) { int filedesc; - char buf[MAXPDSTRING], *bufptr; + char buf[FILENAME_MAX], *bufptr; if ((filedesc = canvas_open(canvas, filename, "", - buf, &bufptr, MAXPDSTRING, 0)) < 0) + buf, &bufptr, FILENAME_MAX, 0)) < 0) { error("%s: can't open", filename); return (1); @@ -792,9 +792,9 @@ int crflag) { int filedesc; - char buf[MAXPDSTRING], *bufptr; + char buf[FILENAME_MAX], *bufptr; if ((filedesc = open_via_path( - dirname, filename, "", buf, &bufptr, MAXPDSTRING, 0)) < 0) + dirname, filename, "", buf, &bufptr, FILENAME_MAX, 0)) < 0) { error("%s: can't open", filename); return (1); @@ -813,7 +813,7 @@ int binbuf_write(t_binbuf *x, char *filename, char *dir, int crflag) { FILE *f = 0; - char sbuf[WBUFSIZE], fbuf[MAXPDSTRING], *bp = sbuf, *ep = sbuf + WBUFSIZE; + char sbuf[WBUFSIZE], fbuf[FILENAME_MAX], *bp = sbuf, *ep = sbuf + WBUFSIZE; t_atom *ap; int indx, deleteit = 0; int ncolumn = 0; Modified: branches/pd-extended/v0-40/pd/src/m_class.c =================================================================== --- branches/pd-extended/v0-40/pd/src/m_class.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/m_class.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -520,7 +520,7 @@ static t_symbol *addfileextent(t_symbol *s) { - char namebuf[MAXPDSTRING], *str = s->s_name; + char namebuf[FILENAME_MAX], *str = s->s_name; int ln = strlen(str); if (!strcmp(str + ln - 3, ".pd")) return (s); strcpy(namebuf, str); @@ -544,7 +544,7 @@ { t_pd *current; int fd; - char dirbuf[MAXPDSTRING], *nameptr; + char dirbuf[FILENAME_MAX], *nameptr; if (tryingalready) return; newest = 0; class_loadsym = s; @@ -558,9 +558,9 @@ class_loadsym = 0; current = s__X.s_thing; if ((fd = canvas_open(canvas_getcurrent(), s->s_name, ".pd", - dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0 || + dirbuf, &nameptr, FILENAME_MAX, 0)) >= 0 || (fd = canvas_open(canvas_getcurrent(), s->s_name, ".pat", - dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0) + dirbuf, &nameptr, FILENAME_MAX, 0)) >= 0) { close (fd); if (!pd_setloadingabstraction(s)) Modified: branches/pd-extended/v0-40/pd/src/m_pd.h =================================================================== --- branches/pd-extended/v0-40/pd/src/m_pd.h 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/m_pd.h 2008-05-14 17:49:20 UTC (rev 9801) @@ -51,7 +51,7 @@ #include <stddef.h> /* just for size_t -- how lame! */ #endif -#define MAXPDSTRING 1000 /* use this for anything you want */ +#define MAXPDSTRING 1000 /* must be >= FILENAME_MAX */ #define MAXPDARG 5 /* max number of args we can typecheck today */ /* signed and unsigned integer types the size of a pointer: */ Modified: branches/pd-extended/v0-40/pd/src/s_file.c =================================================================== --- branches/pd-extended/v0-40/pd/src/s_file.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/s_file.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -48,25 +48,25 @@ static void sys_initloadpreferences( void) { - char filenamebuf[MAXPDSTRING], *homedir = getenv("HOME"); + char filenamebuf[FILENAME_MAX], *homedir = getenv("HOME"); int fd, length; - char user_prefs_file[MAXPDSTRING]; // user prefs file - char default_prefs_file[MAXPDSTRING]; // default prefs embedded in the package + char user_prefs_file[FILENAME_MAX]; // user prefs file + char default_prefs_file[FILENAME_MAX]; // default prefs embedded in the package struct stat statbuf; - snprintf(default_prefs_file, MAXPDSTRING, "%s/default.pdsettings", + snprintf(default_prefs_file, FILENAME_MAX, "%s/default.pdsettings", sys_libdir->s_name); // fprintf(stderr,"default_prefs %s\n",default_prefs_file); if (homedir) - snprintf(user_prefs_file, MAXPDSTRING, "%s/.pdsettings", homedir); + snprintf(user_prefs_file, FILENAME_MAX, "%s/.pdsettings", homedir); if (stat(user_prefs_file, &statbuf) == 0) - strncpy(filenamebuf, user_prefs_file, MAXPDSTRING); + strncpy(filenamebuf, user_prefs_file, FILENAME_MAX); else if (stat(default_prefs_file, &statbuf) == 0) - strncpy(filenamebuf, default_prefs_file, MAXPDSTRING); + strncpy(filenamebuf, default_prefs_file, FILENAME_MAX); else return; - filenamebuf[MAXPDSTRING-1] = 0; + filenamebuf[FILENAME_MAX-1] = 0; if ((fd = open(filenamebuf, 0)) < 0) { if (sys_verbose) @@ -135,17 +135,17 @@ static void sys_initsavepreferences( void) { - char filenamebuf[MAXPDSTRING], errbuf[MAXPDSTRING], + char filenamebuf[FILENAME_MAX], errbuf[FILENAME_MAX], *homedir = getenv("HOME"); FILE *fp; if (!homedir) return; - snprintf(filenamebuf, MAXPDSTRING, "%s/.pdsettings", homedir); - filenamebuf[MAXPDSTRING-1] = 0; + snprintf(filenamebuf, FILENAME_MAX, "%s/.pdsettings", homedir); + filenamebuf[FILENAME_MAX-1] = 0; if ((sys_prefsavefp = fopen(filenamebuf, "w")) == NULL) { - snprintf(errbuf, MAXPDSTRING, "%s: %s",filenamebuf, strerror(errno)); + snprintf(errbuf, FILENAME_MAX, "%s: %s",filenamebuf, strerror(errno)); pd_error(0, errbuf); } } @@ -235,19 +235,19 @@ { char cmdbuf[256]; int nread = 0, nleft = size; - char default_prefs[MAXPDSTRING]; // default prefs embedded in the package - char embedded_prefs[MAXPDSTRING]; // overrides others for standalone app - char embedded_prefs_file[MAXPDSTRING]; - char user_prefs_file[MAXPDSTRING]; + char default_prefs[FILENAME_MAX]; // default prefs embedded in the package + char embedded_prefs[FILENAME_MAX]; // overrides others for standalone app + char embedded_prefs_file[FILENAME_MAX]; + char user_prefs_file[FILENAME_MAX]; char *homedir = getenv("HOME"); struct stat statbuf; /* the 'defaults' command expects the filename without .plist at the end */ - snprintf(default_prefs, MAXPDSTRING, "%s/../org.puredata.pd.default", + snprintf(default_prefs, FILENAME_MAX, "%s/../org.puredata.pd.default", sys_libdir->s_name); - snprintf(embedded_prefs, MAXPDSTRING, "%s/../org.puredata.pd", + snprintf(embedded_prefs, FILENAME_MAX, "%s/../org.puredata.pd", sys_libdir->s_name); - snprintf(embedded_prefs_file, MAXPDSTRING, "%s.plist", embedded_prefs); - snprintf(user_prefs_file, MAXPDSTRING, + snprintf(embedded_prefs_file, FILENAME_MAX, "%s.plist", embedded_prefs); + snprintf(user_prefs_file, FILENAME_MAX, "%s/Library/Preferences/org.puredata.pd.plist", homedir); if (stat(embedded_prefs_file, &statbuf) == 0) { Modified: branches/pd-extended/v0-40/pd/src/s_loader.c =================================================================== --- branches/pd-extended/v0-40/pd/src/s_loader.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/s_loader.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -91,7 +91,7 @@ static int sys_do_load_lib(t_canvas *canvas, char *objectname) { - char symname[MAXPDSTRING], filename[MAXPDSTRING], dirbuf[MAXPDSTRING], + char symname[MAXPDSTRING], filename[FILENAME_MAX], dirbuf[FILENAME_MAX], *classname, *nameptr, altsymname[MAXPDSTRING]; void *dlobj; t_xxx makeout = NULL; @@ -142,23 +142,23 @@ #endif /* try looking in the path for (objectname).(sys_dllextent) ... */ if ((fd = canvas_open(canvas, objectname, sys_dllextent, - dirbuf, &nameptr, MAXPDSTRING, 1)) >= 0) + dirbuf, &nameptr, FILENAME_MAX, 1)) >= 0) goto gotone; /* same, with the more generic sys_dllextent2 */ if ((fd = canvas_open(canvas, objectname, sys_dllextent2, - dirbuf, &nameptr, MAXPDSTRING, 1)) >= 0) + dirbuf, &nameptr, FILENAME_MAX, 1)) >= 0) goto gotone; /* next try (objectname)/(classname).(sys_dllextent) ... */ - strncpy(filename, objectname, MAXPDSTRING); + strncpy(filename, objectname, FILENAME_MAX); filename[MAXPDSTRING-2] = 0; strcat(filename, "/"); - strncat(filename, classname, MAXPDSTRING-strlen(filename)); - filename[MAXPDSTRING-1] = 0; + strncat(filename, classname, FILENAME_MAX-strlen(filename)); + filename[FILENAME_MAX-1] = 0; if ((fd = canvas_open(canvas, filename, sys_dllextent, - dirbuf, &nameptr, MAXPDSTRING, 1)) >= 0) + dirbuf, &nameptr, FILENAME_MAX, 1)) >= 0) goto gotone; if ((fd = canvas_open(canvas, filename, sys_dllextent2, - dirbuf, &nameptr, MAXPDSTRING, 1)) >= 0) + dirbuf, &nameptr, FILENAME_MAX, 1)) >= 0) goto gotone; return (0); gotone: @@ -166,11 +166,11 @@ class_set_extern_dir(gensym(dirbuf)); /* rebuild the absolute pathname */ - strncpy(filename, dirbuf, MAXPDSTRING); - filename[MAXPDSTRING-2] = 0; + strncpy(filename, dirbuf, FILENAME_MAX); + filename[FILENAME_MAX-2] = 0; strcat(filename, "/"); - strncat(filename, nameptr, MAXPDSTRING-strlen(filename)); - filename[MAXPDSTRING-1] = 0; + strncat(filename, nameptr, FILENAME_MAX-strlen(filename)); + filename[FILENAME_MAX-1] = 0; #ifdef DL_OPEN dlobj = dlopen(filename, RTLD_NOW | RTLD_GLOBAL); Modified: branches/pd-extended/v0-40/pd/src/s_main.c =================================================================== --- branches/pd-extended/v0-40/pd/src/s_main.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/s_main.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -172,9 +172,9 @@ static void openit(const char *dirname, const char *filename) { - char dirbuf[MAXPDSTRING], *nameptr; + char dirbuf[FILENAME_MAX], *nameptr; int fd = open_via_path(dirname, filename, "", dirbuf, &nameptr, - MAXPDSTRING, 0); + FILENAME_MAX, 0); if (fd) { close (fd); Modified: branches/pd-extended/v0-40/pd/src/s_path.c =================================================================== --- branches/pd-extended/v0-40/pd/src/s_path.c 2008-05-14 17:47:05 UTC (rev 9800) +++ branches/pd-extended/v0-40/pd/src/s_path.c 2008-05-14 17:49:20 UTC (rev 9801) @@ -225,9 +225,11 @@ char *dirresult, char **nameresult, unsigned int size, int bin) { int fd; + char buf[FILENAME_MAX]; if (strlen(dir) + strlen(name) + strlen(ext) + 4 > size) return (-1); - sys_expandpath(dir, dirresult); + sys_expandpath(dir, buf); + strcpy(dirresult, buf); if (*dirresult && dirresult[strlen(dirresult)-1] != '/') strcat(dirresult, "/"); strcat(dirresult, name); @@ -285,10 +287,10 @@ #endif ) { - char dirbuf[MAXPDSTRING]; + char dirbuf[FILENAME_MAX]; int dirlen = (strrchr(name, '/') - name); - if (dirlen > MAXPDSTRING-1) - dirlen = MAXPDSTRING-1; + if (dirlen > FILENAME_MAX-1) + dirlen = FILENAME_MAX-1; strncpy(dirbuf, name, dirlen); dirbuf[dirlen] = 0; *fdp = sys_trytoopenone(dirbuf, name+(dirlen+1), ext, @@ -355,32 +357,32 @@ search attempts. */ void open_via_helppath(const char *name, const char *dir) { - char realname[MAXPDSTRING], dirbuf[MAXPDSTRING], *basename; + char realname[FILENAME_MAX], dirbuf[FILENAME_MAX], *basename; /* make up a silly "dir" if none is supplied */ const char *usedir = (*dir ? dir : "./"); int fd; /* 1. "objectname-help.pd" */ - strncpy(realname, name, MAXPDSTRING-10); - realname[MAXPDSTRING-10] = 0; + strncpy(realname, name, FILENAME_MAX-10); + realname[FILENAME_MAX-10] = 0; if (strlen(realname) > 3 && !strcmp(realname+strlen(realname)-3, ".pd")) realname[strlen(realname)-3] = 0; strcat(realname, "-help.pd"); if ((fd = do_open_via_path(dir, realname, "", dirbuf, &basename, - MAXPDSTRING, 0, sys_helppath)) >= 0) + FILENAME_MAX, 0, sys_helppath)) >= 0) goto gotone; /* 2. "help-objectname.pd" */ strcpy(realname, "help-"); - strncat(realname, name, MAXPDSTRING-10); - realname[MAXPDSTRING-1] = 0; + strncat(realname, name, FILENAME_MAX-10); + realname[FILENAME_MAX-1] = 0; if ((fd = do_open_via_path(dir, realname, "", dirbuf, &basename, - MAXPDSTRING, 0, sys_helppath)) >= 0) + FILENAME_MAX, 0, sys_helppath)) >= 0) goto gotone; /* 3. "objectname.pd" */ if ((fd = do_open_via_path(dir, name, "", dirbuf, &basename, - MAXPDSTRING, 0, sys_helppath)) >= 0) + FILENAME_MAX, 0, sys_helppath)) >= 0) goto gotone; post("sorry, couldn't find help patch for \"%s\"", name); return; @@ -408,7 +410,7 @@ int rcargc; char* rcargv[NUMARGS]; char* buffer; - char fname[MAXPDSTRING], buf[1001], *home = getenv("HOME"); + char fname[FILENAME_MAX], buf[1001], *home = getenv("HOME"); int retval = 1; /* that's what we will return at the end; for now, let's think it'll be an error */ /* initialize rc-arg-array so we can safely clean up at the end */ @@ -420,7 +422,7 @@ *fname = '\0'; - strncat(fname, home? home : ".", MAXPDSTRING-10); + strncat(fname, home? home : ".", FILENAME_MAX-10); strcat(fname, "/"); strcat(fname, STARTUPNAME); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9800] trunk/packages/patches/ use_FILENAME_MAX_for_file_operations-0.41.4.patch
by eighthave＠users.sourceforge.net 14 May '08

14 May '08

Revision: 9800 http://pure-data.svn.sourceforge.net/pure-data/?rev=9800&view=rev Author: eighthave Date: 2008-05-14 10:47:05 -0700 (Wed, 14 May 2008) Log Message: ----------- ok, this time really removed all bits of add_tilde_support_toopen-0.41.4.patch Modified Paths: -------------- trunk/packages/patches/use_FILENAME_MAX_for_file_operations-0.41.4.patch Modified: trunk/packages/patches/use_FILENAME_MAX_for_file_operations-0.41.4.patch =================================================================== --- trunk/packages/patches/use_FILENAME_MAX_for_file_operations-0.41.4.patch 2008-05-14 17:41:17 UTC (rev 9799) +++ trunk/packages/patches/use_FILENAME_MAX_for_file_operations-0.41.4.patch 2008-05-14 17:47:05 UTC (rev 9800) @@ -241,15 +241,7 @@ =================================================================== --- s_path.c (revision 9725) +++ s_path.c (working copy) -@@ -250,16 +280,16 @@ - int sys_open_absolute(const char *name, const char* ext, - char *dirresult, char **nameresult, unsigned int size, int bin, int *fdp) - { -- if (name[0] == '/' -+ if (name[0] == '/' || name[0] == '~' - #ifdef MSW -- || (name[1] == ':' && name[2] == '/') -+ || name[0] == '%' || (name[1] == ':' && name[2] == '/') +@@ -256,10 +256,10 @@ #endif ) { @@ -263,7 +255,7 @@ strncpy(dirbuf, name, dirlen); dirbuf[dirlen] = 0; *fdp = sys_trytoopenone(dirbuf, name+(dirlen+1), ext, -@@ -326,32 +356,32 @@ +@@ -326,32 +326,32 @@ search attempts. */ void open_via_helppath(const char *name, const char *dir) { @@ -304,7 +296,7 @@ goto gotone; post("sorry, couldn't find help patch for \"%s\"", name); return; -@@ -379,7 +409,7 @@ +@@ -379,7 +379,7 @@ int rcargc; char* rcargv[NUMARGS]; char* buffer; @@ -313,7 +305,7 @@ int retval = 1; /* that's what we will return at the end; for now, let's think it'll be an error */ /* initialize rc-arg-array so we can safely clean up at the end */ -@@ -391,7 +421,7 @@ +@@ -391,7 +391,7 @@ *fname = '\0'; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9799] trunk/packages/patches/ fix_encoding_bug_1572290-0.41.4.patch
by eighthave＠users.sourceforge.net 14 May '08

14 May '08

Revision: 9799 http://pure-data.svn.sourceforge.net/pure-data/?rev=9799&view=rev Author: eighthave Date: 2008-05-14 10:41:17 -0700 (Wed, 14 May 2008) Log Message: ----------- added patch to fix problems of saving patches into folders with extended chars in it Added Paths: ----------- trunk/packages/patches/fix_encoding_bug_1572290-0.41.4.patch Added: trunk/packages/patches/fix_encoding_bug_1572290-0.41.4.patch =================================================================== --- trunk/packages/patches/fix_encoding_bug_1572290-0.41.4.patch (rev 0) +++ trunk/packages/patches/fix_encoding_bug_1572290-0.41.4.patch 2008-05-14 17:41:17 UTC (rev 9799) @@ -0,0 +1,37 @@ +Index: t_tkcmd.c +=================================================================== +--- t_tkcmd.c (revision 9782) ++++ t_tkcmd.c (working copy) +@@ -509,10 +509,14 @@ + + static int pdCmd(ClientData cd, Tcl_Interp *interp, int argc, char **argv) + { ++ Tcl_DString dstring; /* used to convert the Tcl string to the OS encoding */ ++ char *dstring_char; + if (argc == 2) + { + int n = strlen(argv[1]); +- if (send(sockfd, argv[1], n, 0) < n) ++ /* NULL as first arg means use the current system encoding */ ++ dstring_char = Tcl_UtfToExternalDString(NULL, argv[1], -1, &dstring); ++ if (send(sockfd, dstring_char, n, 0) < n) + { + perror("stdout"); + tcl_mess("exit\n"); +@@ -534,12 +538,15 @@ + if (i > 1) strcat(buf, " "); + strcat(buf, argv[i]); + } +- if (send(sockfd, buf, strlen(buf), 0) < 0) ++ /* NULL as first arg means use the current system encoding */ ++ dstring_char = Tcl_UtfToExternalDString(NULL, buf, -1, &dstring); ++ if (send(sockfd, dstring_char, strlen(dstring_char), 0) < 0) + { + perror("stdout"); + tcl_mess("exit\n"); + } + } ++ Tcl_DStringFree(&dstring); + return (TCL_OK); + } + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

← Newer
1
...
15
16
17
18
19
20
21
...
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 May 2008