Pd-cvs January 2009

pd-cvs@lists.iem.at

23 participants
357 discussions

autobuild: pd-extended debian-stable-i386 2009-01-24 01.51.49
by pd＠debian-stable-i386.idmi.poly.edu 24 Jan '09

24 Jan '09

/bin/sh: -c: line 1: syntax error: unexpected end of file ERROR: module is write only rsync error: syntax or usage error (code 1) at main.c(641) [sender=2.6.9] rsync error: error in rsync protocol data stream (code 12) at io.c(453) [receiver=2.6.9] the full logfile - if it has been succesfully uploaded - can be viewed at: http://autobuild.puredata.info/auto-build/2009-01-24/logs/2009-01-24_01.51.…

1 0

SF.net SVN: pure-data:[10615] branches/pd-devel/0.41.4/src
by eighthave＠users.sourceforge.net 24 Jan '09

24 Jan '09

Revision: 10615 http://pure-data.svn.sourceforge.net/pure-data/?rev=10615&view=rev Author: eighthave Date: 2009-01-24 06:42:44 +0000 (Sat, 24 Jan 2009) Log Message: ----------- moved the terminating semi-colon to pd_connect::pdsend for sending messages from pd-gui to pd Modified Paths: -------------- branches/pd-devel/0.41.4/src/apple_events.tcl branches/pd-devel/0.41.4/src/pd.tk branches/pd-devel/0.41.4/src/pd_bindings.tcl branches/pd-devel/0.41.4/src/pd_connect.tcl branches/pd-devel/0.41.4/src/pd_iemgui.tcl branches/pd-devel/0.41.4/src/pd_menucommands.tcl branches/pd-devel/0.41.4/src/pd_menus.tcl branches/pd-devel/0.41.4/src/pdtk_canvas.tcl branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl Modified: branches/pd-devel/0.41.4/src/apple_events.tcl =================================================================== --- branches/pd-devel/0.41.4/src/apple_events.tcl 2009-01-24 05:50:16 UTC (rev 10614) +++ branches/pd-devel/0.41.4/src/apple_events.tcl 2009-01-24 06:42:44 UTC (rev 10615) @@ -34,7 +34,7 @@ #proc ::tk::mac::Quit {} { # # TODO sort this out... how to quit pd-gui after sending the message # puts stderr "Custom exit proc" -# pdsend "pd verifyquit;" +# pdsend "pd verifyquit" #} # these I gleaned by reading the source (tkMacOSXHLEvents.c) Modified: branches/pd-devel/0.41.4/src/pd.tk =================================================================== --- branches/pd-devel/0.41.4/src/pd.tk 2009-01-24 05:50:16 UTC (rev 10614) +++ branches/pd-devel/0.41.4/src/pd.tk 2009-01-24 06:42:44 UTC (rev 10615) @@ -138,7 +138,7 @@ pdtk_post "args: $args" set oldtclversion 0 set fontlist "8 5 10 9 6 11 10 6 13 12 7 15 14 8 17 16 10 20 18 11 22 24 14 30 30 18 37 36 22 45" - pdsend "pd init [pdtk_enquote [pwd]] $oldtclversion $fontlist ;" + pdsend "pd init [pdtk_enquote [pwd]] $oldtclversion $fontlist" # TODO what else is needed from the original? } Modified: branches/pd-devel/0.41.4/src/pd_bindings.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_bindings.tcl 2009-01-24 05:50:16 UTC (rev 10614) +++ branches/pd-devel/0.41.4/src/pd_bindings.tcl 2009-01-24 06:42:44 UTC (rev 10615) @@ -28,15 +28,15 @@ bind $mytoplevel <$modifier-Key-n> "menu_new" bind $mytoplevel <$modifier-Key-o> "menu_open" bind $mytoplevel <$modifier-Key-p> "menu_print $mytoplevel" - bind $mytoplevel <$modifier-Key-q> "pdsend \"pd verifyquit ;\"" + bind $mytoplevel <$modifier-Key-q> "pdsend \"pd verifyquit\"" bind $mytoplevel <$modifier-Key-r> "menu_raise_pdwindow" bind $mytoplevel <$modifier-Shift-Key-L> "menu_clear_console" - bind $mytoplevel <$modifier-Shift-Key-Q> "pdsend \"pd quit ;\"" + bind $mytoplevel <$modifier-Shift-Key-Q> "pdsend \"pd quit\"" bind $mytoplevel <$modifier-Shift-Key-R> "menu_toggle_console" # DSP control - bind $mytoplevel <$modifier-Key-slash> "pdsend \"pd dsp 1 ;\"" - bind $mytoplevel <$modifier-Key-period> "pdsend \"pd dsp 0 ;\"" + bind $mytoplevel <$modifier-Key-slash> "pdsend \"pd dsp 1\"" + bind $mytoplevel <$modifier-Key-period> "pdsend \"pd dsp 0\"" } proc ::pd_bindings::pdwindow_bindings {mytoplevel} { @@ -54,7 +54,7 @@ } # Tcl event bindings - wm protocol $mytoplevel WM_DELETE_WINDOW "pdsend \"pd verifyquit ;\"" + wm protocol $mytoplevel WM_DELETE_WINDOW "pdsend \"pd verifyquit\"" # do window maintenance when entering the Pd window (Window menu, scrollbars, etc) #bind $mytoplevel <FocusIn> {pdtk_pdwindowmaintenance} @@ -79,36 +79,36 @@ window_bindings $mytoplevel # key bindings ------------------------------------------------------------- - bind $mytoplevel <$modifier-Key-1> "pdsend \"$mytoplevel obj ;\"" - bind $mytoplevel <$modifier-Key-2> "pdsend \"$mytoplevel msg ;\"" - bind $mytoplevel <$modifier-Key-3> "pdsend \"$mytoplevel floatatom ;\"" - bind $mytoplevel <$modifier-Key-4> "pdsend \"$mytoplevel symbolatom ;\"" - bind $mytoplevel <$modifier-Key-5> "pdsend \"$mytoplevel text ;\"" - bind $mytoplevel <$modifier-Key-a> "pdsend \"$mytoplevel selectall ;\"" - bind $mytoplevel <$modifier-Key-c> "pdsend \"$mytoplevel copy ;\"" - bind $mytoplevel <$modifier-Key-d> "pdsend \"$mytoplevel duplicate ;\"" - bind $mytoplevel <$modifier-Key-e> "pdsend \"$mytoplevel editmode 0 ;\"" - bind $mytoplevel <$modifier-Key-g> "pdsend \"$mytoplevel findagain ;\"" - bind $mytoplevel <$modifier-Key-s> "pdsend \"$mytoplevel menusave ;\"" - bind $mytoplevel <$modifier-Key-v> "pdsend \"$mytoplevel paste ;\"" - bind $mytoplevel <$modifier-Key-w> "pdsend \"$mytoplevel menuclose 0 ;\"" - bind $mytoplevel <$modifier-Key-x> "pdsend \"$mytoplevel cut ;\"" + bind $mytoplevel <$modifier-Key-1> "pdsend \"$mytoplevel obj\"" + bind $mytoplevel <$modifier-Key-2> "pdsend \"$mytoplevel msg\"" + bind $mytoplevel <$modifier-Key-3> "pdsend \"$mytoplevel floatatom\"" + bind $mytoplevel <$modifier-Key-4> "pdsend \"$mytoplevel symbolatom\"" + bind $mytoplevel <$modifier-Key-5> "pdsend \"$mytoplevel text\"" + bind $mytoplevel <$modifier-Key-a> "pdsend \"$mytoplevel selectall\"" + bind $mytoplevel <$modifier-Key-c> "pdsend \"$mytoplevel copy\"" + bind $mytoplevel <$modifier-Key-d> "pdsend \"$mytoplevel duplicate\"" + bind $mytoplevel <$modifier-Key-e> "pdsend \"$mytoplevel editmode 0\"" + bind $mytoplevel <$modifier-Key-g> "pdsend \"$mytoplevel findagain\"" + bind $mytoplevel <$modifier-Key-s> "pdsend \"$mytoplevel menusave\"" + bind $mytoplevel <$modifier-Key-v> "pdsend \"$mytoplevel paste\"" + bind $mytoplevel <$modifier-Key-w> "pdsend \"$mytoplevel menuclose 0\"" + bind $mytoplevel <$modifier-Key-x> "pdsend \"$mytoplevel cut\"" bind $mytoplevel <$modifier-Key-z> "menu_undo $mytoplevel" - bind $mytoplevel <$modifier-Key-slash> "pdsend \"pd dsp 1 ;\"" - bind $mytoplevel <$modifier-Key-period> "pdsend \"pd dsp 0 ;\"" + bind $mytoplevel <$modifier-Key-slash> "pdsend \"pd dsp 1\"" + bind $mytoplevel <$modifier-Key-period> "pdsend \"pd dsp 0\"" # annoying, but Tk's bind needs uppercase letter to get the Shift - bind $mytoplevel <$modifier-Shift-Key-B> "pdsend \"$mytoplevel bng 1 ;\"" - bind $mytoplevel <$modifier-Shift-Key-C> "pdsend \"$mytoplevel mycnv 1 ;\"" - bind $mytoplevel <$modifier-Shift-Key-D> "pdsend \"$mytoplevel vradio 1 ;\"" - bind $mytoplevel <$modifier-Shift-Key-H> "pdsend \"$mytoplevel hslider 1 ;\"" - bind $mytoplevel <$modifier-Shift-Key-I> "pdsend \"$mytoplevel hradio 1 ;\"" - bind $mytoplevel <$modifier-Shift-Key-N> "pdsend \"$mytoplevel numbox 1 ;\"" - bind $mytoplevel <$modifier-Shift-Key-S> "pdsend \"$mytoplevel menusaveas ;\"" - bind $mytoplevel <$modifier-Shift-Key-T> "pdsend \"$mytoplevel toggle 1 ;\"" - bind $mytoplevel <$modifier-Shift-Key-U> "pdsend \"$mytoplevel vumeter 1 ;\"" - bind $mytoplevel <$modifier-Shift-Key-V> "pdsend \"$mytoplevel vslider 1 ;\"" - bind $mytoplevel <$modifier-Shift-Key-W> "pdsend \"$mytoplevel menuclose 1 ;\"" + bind $mytoplevel <$modifier-Shift-Key-B> "pdsend \"$mytoplevel bng 1\"" + bind $mytoplevel <$modifier-Shift-Key-C> "pdsend \"$mytoplevel mycnv 1\"" + bind $mytoplevel <$modifier-Shift-Key-D> "pdsend \"$mytoplevel vradio 1\"" + bind $mytoplevel <$modifier-Shift-Key-H> "pdsend \"$mytoplevel hslider 1\"" + bind $mytoplevel <$modifier-Shift-Key-I> "pdsend \"$mytoplevel hradio 1\"" + bind $mytoplevel <$modifier-Shift-Key-N> "pdsend \"$mytoplevel numbox 1\"" + bind $mytoplevel <$modifier-Shift-Key-S> "pdsend \"$mytoplevel menusaveas\"" + bind $mytoplevel <$modifier-Shift-Key-T> "pdsend \"$mytoplevel toggle 1\"" + bind $mytoplevel <$modifier-Shift-Key-U> "pdsend \"$mytoplevel vumeter 1\"" + bind $mytoplevel <$modifier-Shift-Key-V> "pdsend \"$mytoplevel vslider 1\"" + bind $mytoplevel <$modifier-Shift-Key-W> "pdsend \"$mytoplevel menuclose 1\"" bind $mytoplevel <$modifier-Shift-Key-Z> "menu_redo $mytoplevel" if {$::windowingsystem eq "aqua"} { @@ -161,6 +161,6 @@ #bind $mytoplevel <FocusIn> {pdtk_canvaswindowmaintenance} # window protocol bindings - wm protocol $mytoplevel WM_DELETE_WINDOW "pdsend \"$mytoplevel menuclose 0 ;\"" + wm protocol $mytoplevel WM_DELETE_WINDOW "pdsend \"$mytoplevel menuclose 0\"" } Modified: branches/pd-devel/0.41.4/src/pd_connect.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_connect.tcl 2009-01-24 05:50:16 UTC (rev 10614) +++ branches/pd-devel/0.41.4/src/pd_connect.tcl 2009-01-24 06:42:44 UTC (rev 10615) @@ -50,6 +50,7 @@ # [send] in Pd, except the first argument is the name to send to. proc ::pd_connect::pdsend {message} { # 'args' is special, it gets everything variable pd_socket + append message \; if {[catch {puts $pd_socket $message} errorname]} { puts stderr "pdsend errorname: >>$errorname<<" error "Not connected to 'pd' process" Modified: branches/pd-devel/0.41.4/src/pd_iemgui.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_iemgui.tcl 2009-01-24 05:50:16 UTC (rev 10614) +++ branches/pd-devel/0.41.4/src/pd_iemgui.tcl 2009-01-24 06:42:44 UTC (rev 10615) @@ -382,11 +382,10 @@ [eval concat $$var_iemgui_bcol] \ [eval concat $$var_iemgui_fcol] \ [eval concat $$var_iemgui_lcol] \ - [eval concat $$var_iemgui_steady] \ - \;] + [eval concat $$var_iemgui_steady]] } -proc ::pd_iemgui::cancel {id} {pdsend "$id cancel ;"} +proc ::pd_iemgui::cancel {id} {pdsend "$id cancel"} proc ::pd_iemgui::ok {id} { ::pd_iemgui::apply $id Modified: branches/pd-devel/0.41.4/src/pd_menucommands.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-24 05:50:16 UTC (rev 10614) +++ branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-24 06:42:44 UTC (rev 10615) @@ -17,9 +17,9 @@ proc ::pd_menucommands::menu_new {} { variable untitled_number variable untitled_directory - pdsend "pd filename Untitled-$untitled_number $untitled_directory ;" - pdsend "#N canvas ;" - pdsend "#X pop 1 ;" + pdsend "pd filename Untitled-$untitled_number $untitled_directory" + pdsend "#N canvas" + pdsend "#X pop 1" set untitled_number [expr $untitled_number + 1] } Modified: branches/pd-devel/0.41.4/src/pd_menus.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_menus.tcl 2009-01-24 05:50:16 UTC (rev 10614) +++ branches/pd-devel/0.41.4/src/pd_menus.tcl 2009-01-24 06:42:44 UTC (rev 10615) @@ -80,10 +80,10 @@ [format build_file_menu_%s $::windowingsystem] $mymenu $mymenu entryconfigure [say "new_file"] -command "menu_new" $mymenu entryconfigure [say "Open"] -command "menu_open" - $mymenu entryconfigure [say "Save"] -command "pdsend \"$mytoplevel menusave ;\"" - $mymenu entryconfigure [say "Save As..."] -command "pdsend \"$mytoplevel menusaveas ;\"" + $mymenu entryconfigure [say "Save"] -command "pdsend \"$mytoplevel menusave\"" + $mymenu entryconfigure [say "Save As..."] -command "pdsend \"$mytoplevel menusaveas\"" # $mymenu entryconfigure "Revert*" -command "menu_revert $mytoplevel" - $mymenu entryconfigure [say "Close"] -command "pdsend \"$mytoplevel menuclose 0 ;\"" + $mymenu entryconfigure [say "Close"] -command "pdsend \"$mytoplevel menuclose 0\"" $mymenu entryconfigure [say "Message"] -command "menu_message_panel" $mymenu entryconfigure [say "Print..."] -command "menu_print $mytoplevel" } @@ -96,15 +96,15 @@ -command "menu_redo $mytoplevel" $mymenu add separator $mymenu add command -label [say "Cut"] -accelerator "$accelerator+X" \ - -command "pdsend \"$mytoplevel cut ;\"" + -command "pdsend \"$mytoplevel cut\"" $mymenu add command -label [say "Copy"] -accelerator "$accelerator+C" \ - -command "pdsend \"$mytoplevel copy ;\"" + -command "pdsend \"$mytoplevel copy\"" $mymenu add command -label [say "Paste"] -accelerator "$accelerator+V" \ - -command "pdsend \"$mytoplevel paste ;\"" + -command "pdsend \"$mytoplevel paste\"" $mymenu add command -label [say "Duplicate"] -accelerator "$accelerator+D" \ - -command "pdsend \"$mytoplevel duplicate ;\"" + -command "pdsend \"$mytoplevel duplicate\"" $mymenu add command -label [say "Select All"] -accelerator "$accelerator+A" \ - -command "pdsend \"$mytoplevel selectall ;\"" + -command "pdsend \"$mytoplevel selectall\"" $mymenu add separator if {$::windowingsystem eq "aqua"} { $mymenu add command -label [say "Text Editor"] \ @@ -118,7 +118,7 @@ -command "menu_font $mytoplevel" } $mymenu add command -label [say "Tidy Up"] \ - -command "pdsend \"$mytoplevel tidy ;\"" + -command "pdsend \"$mytoplevel tidy\"" $mymenu add command -label [say "Toggle Console"] -accelerator "Shift+$accelerator+R" \ -command {.controls.switches.console invoke} $mymenu add command -label [say "Clear Console"] -accelerator "Shift+$accelerator+L" \ @@ -126,7 +126,7 @@ $mymenu add separator $mymenu add radiobutton -label [say "Edit Mode"] -accelerator "$accelerator+E" \ -indicatoron true -selectcolor grey85 \ - -command "pdsend \"$mytoplevel editmode 0 ;\"" + -command "pdsend \"$mytoplevel editmode 0\"" # if { $editable == 0 } { # $mymenu entryconfigure "Edit Mode" -indicatoron false # } @@ -145,37 +145,37 @@ proc ::pd_menus::build_put_menu {mymenu mytoplevel} { variable accelerator $mymenu add command -label [say "Object"] -accelerator "$accelerator+1" \ - -command "pdsend \"$mytoplevel obj 0;\"" + -command "pdsend \"$mytoplevel obj 0\"" $mymenu add command -label [say "Message"] -accelerator "$accelerator+2" \ - -command "pdsend \"$mytoplevel msg 0;\"" + -command "pdsend \"$mytoplevel msg 0\"" $mymenu add command -label [say "Number"] -accelerator "$accelerator+3" \ - -command "pdsend \"$mytoplevel floatatom 0;\"" + -command "pdsend \"$mytoplevel floatatom 0\"" $mymenu add command -label [say "Symbol"] -accelerator "$accelerator+4" \ - -command "pdsend \"$mytoplevel symbolatom 0;\"" + -command "pdsend \"$mytoplevel symbolatom 0\"" $mymenu add command -label [say "Comment"] -accelerator "$accelerator+5" \ - -command "pdsend \"$mytoplevel text 0;\"" + -command "pdsend \"$mytoplevel text 0\"" $mymenu add separator $mymenu add command -label [say "Bang"] -accelerator "Shift+$accelerator+B" \ - -command "pdsend \"$mytoplevel bng 0;\"" + -command "pdsend \"$mytoplevel bng 0\"" $mymenu add command -label [say "Toggle"] -accelerator "Shift+$accelerator+T" \ - -command "pdsend \"$mytoplevel toggle 0;\"" + -command "pdsend \"$mytoplevel toggle 0\"" $mymenu add command -label [say "Number2"] -accelerator "Shift+$accelerator+N" \ - -command "pdsend \"$mytoplevel numbox 0;\"" + -command "pdsend \"$mytoplevel numbox 0\"" $mymenu add command -label [say "Vslider"] -accelerator "Shift+$accelerator+V" \ - -command "pdsend \"$mytoplevel vslider 0;\"" + -command "pdsend \"$mytoplevel vslider 0\"" $mymenu add command -label [say "Hslider"] -accelerator "Shift+$accelerator+H" \ - -command "pdsend \"$mytoplevel hslider 0;\"" + -command "pdsend \"$mytoplevel hslider 0\"" $mymenu add command -label [say "Vradio"] -accelerator "Shift+$accelerator+D" \ - -command "pdsend \"$mytoplevel vradio 0;\"" + -command "pdsend \"$mytoplevel vradio 0\"" $mymenu add command -label [say "Hradio"] -accelerator "Shift+$accelerator+I" \ - -command "pdsend \"$mytoplevel hradio 0;\"" + -command "pdsend \"$mytoplevel hradio 0\"" $mymenu add command -label [say "VU Meter"] -accelerator "Shift+$accelerator+U"\ - -command "pdsend \"$mytoplevel vumeter 0;\"" + -command "pdsend \"$mytoplevel vumeter 0\"" $mymenu add command -label [say "Canvas"] -accelerator "Shift+$accelerator+C" \ - -command "pdsend \"$mytoplevel mycnv 0;\"" + -command "pdsend \"$mytoplevel mycnv 0\"" $mymenu add separator - $mymenu add command -label Graph -command "pdsend \"$mytoplevel graph ;\"" - $mymenu add command -label Array -command "pdsend \"$mytoplevel menuarray ;\"" + $mymenu add command -label Graph -command "pdsend \"$mytoplevel graph\"" + $mymenu add command -label Array -command "pdsend \"$mytoplevel menuarray\"" } proc ::pd_menus::build_find_menu {mymenu mytoplevel} { @@ -183,17 +183,17 @@ $mymenu add command -label [say "Find..."] -accelerator "$accelerator+F" \ -command "menu_find_panel $mytoplevel" $mymenu add command -label [say "Find Again"] -accelerator "$accelerator+G" \ - -command "pdsend \"$mytoplevel findagain ;\"" + -command "pdsend \"$mytoplevel findagain\"" $mymenu add command -label [say "Find last error"] \ - -command "pdsend \"$mytoplevel finderror ;\"" + -command "pdsend \"$mytoplevel finderror\"" } proc ::pd_menus::build_media_menu {mymenu mytoplevel} { variable accelerator $mymenu add radiobutton -label [say "Compute Audio On"] -accelerator "$accelerator+/" \ - -command "pdsend \"pd dsp 1 ;\"" + -command "pdsend \"pd dsp 1\"" $mymenu add radiobutton -label [say "Compute Audio Off"] -accelerator "$accelerator+." \ - -command "pdsend \"pd dsp 0 ;\"" -indicatoron true + -command "pdsend \"pd dsp 0\"" -indicatoron true $mymenu add separator $mymenu add command -label [say "Test Audio and MIDI"] \ -command "menu_doc_open doc/7.stuff/tools testtone.pd" @@ -210,7 +210,7 @@ $mymenu add separator } $mymenu add command -label [say "Parent Window"] \ - -command "pdsend \"$mytoplevel findparent ;\"" + -command "pdsend \"$mytoplevel findparent\"" $mymenu add command -label [say "Pd window"] -command "menu_raise_pdwindow" \ -accelerator "$accelerator+R" $mymenu add separator @@ -290,7 +290,7 @@ $mymenu add separator $mymenu add command -label [say "Close"] -accelerator "$accelerator+W" $mymenu add command -label [say "Quit"] -accelerator "$accelerator+Q" \ - -command "pdsend \"pd verifyquit ;\"" + -command "pdsend \"pd verifyquit\"" } # the "Edit", "Put", and "Find" menus do not have cross-platform differences @@ -327,7 +327,7 @@ $mymenu add separator $mymenu add command -label [say "Close"] -accelerator "$accelerator+W" $mymenu add command -label [say "Quit"] -accelerator "$accelerator+Q"\ - -command "pdsend \"pd verifyquit ;\"" + -command "pdsend \"pd verifyquit\"" } # the "Edit", "Put", and "Find" menus do not have cross-platform differences Modified: branches/pd-devel/0.41.4/src/pdtk_canvas.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pdtk_canvas.tcl 2009-01-24 05:50:16 UTC (rev 10614) +++ branches/pd-devel/0.41.4/src/pdtk_canvas.tcl 2009-01-24 06:42:44 UTC (rev 10615) @@ -62,7 +62,7 @@ } set dirname [file dirname $filename] set basename [file tail $filename] - pdsend "$name savetofile [pdtk_enquote $basename] [pdtk_enquote $dirname] ;" + pdsend "$name savetofile [pdtk_enquote $basename] [pdtk_enquote $dirname]" set ::untitled_directory $dirname } @@ -71,24 +71,24 @@ proc pdtk_canvas_motion {mycanvas x y mods} { set mytoplevel [winfo toplevel $mycanvas] - pdsend "$mytoplevel motion [$mycanvas canvasx $x] [$mycanvas canvasy $y] $mods;" + pdsend "$mytoplevel motion [$mycanvas canvasx $x] [$mycanvas canvasy $y] $mods" } proc pdtk_canvas_mouse {mycanvas x y b f} { # TODO perhaps the Tcl/C function names should match "mouse" message # rather than "mousedown" function set mytoplevel [winfo toplevel $mycanvas] - pdsend "$mytoplevel mouse [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b $f;" + pdsend "$mytoplevel mouse [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b $f" } proc pdtk_canvas_mouseup {mycanvas x y b} { set mytoplevel [winfo toplevel $mycanvas] - pdsend "$mytoplevel mouseup [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b;" + pdsend "$mytoplevel mouseup [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b" } proc pdtk_canvas_rightclick {mycanvas x y b} { set mytoplevel [winfo toplevel $mycanvas] - pdsend "$mytoplevel mouse [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b 8;" + pdsend "$mytoplevel mouse [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b 8" } # on X11, button 2 pastes from X11 clipboard, so simulate normal paste actions @@ -105,11 +105,11 @@ # invisible (arg is ""). Invisibility means the Window Manager has minimized # us. We don't get a final "unmap" event when we destroy the window. proc pdtk_canvas_map {mytoplevel} { - pdsend "$mytoplevel map 1 ;" + pdsend "$mytoplevel map 1" } proc pdtk_canvas_unmap {mytoplevel} { - pdsend "$mytoplevel map 0 ;" + pdsend "$mytoplevel map 0" } # check or uncheck the "edit" menu item Modified: branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl =================================================================== --- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-24 05:50:16 UTC (rev 10614) +++ branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-24 06:42:44 UTC (rev 10615) @@ -26,7 +26,7 @@ set ::pd_opendir $directory set basename [string range $filename [expr [string last / $filename] + 1] end] if {[regexp -nocase -- "\.(pd|pat|mxt)$" $filename]} { - pdsend "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;" + pdsend "pd open [pdtk_enquote $basename] [pdtk_enquote $directory]" } } @@ -47,7 +47,7 @@ if {$iso != ""} { scan $iso %c key } - pdsend "[winfo toplevel $mycanvas] key $state $key $shift ;" + pdsend "[winfo toplevel $mycanvas] key $state $key $shift" } #array set cmd_ops {} 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:[10614] branches/pd-devel/0.41.4/src
by eighthave＠users.sourceforge.net 24 Jan '09

24 Jan '09

Revision: 10614 http://pure-data.svn.sourceforge.net/pure-data/?rev=10614&view=rev Author: eighthave Date: 2009-01-24 05:50:16 +0000 (Sat, 24 Jan 2009) Log Message: ----------- - rewrote pdtk_canvas_saveas to fully handle different cases in the file extensions, as well as the Max patch format file extensions .pat and .mxt - cleaned up pdtk_canvas_sendkey and renamed it pdsend_key to appropriately label how it is used. Modified Paths: -------------- branches/pd-devel/0.41.4/src/pd.tk branches/pd-devel/0.41.4/src/pd_bindings.tcl branches/pd-devel/0.41.4/src/pdtk_canvas.tcl branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl Modified: branches/pd-devel/0.41.4/src/pd.tk =================================================================== --- branches/pd-devel/0.41.4/src/pd.tk 2009-01-24 05:26:58 UTC (rev 10613) +++ branches/pd-devel/0.41.4/src/pd.tk 2009-01-24 05:50:16 UTC (rev 10614) @@ -70,11 +70,14 @@ # $canvasitem = 'canvas' item # # -## Prefix Names for Procs +## Prefix Names for procs #---------------------------- # pdtk called from 'pd' +# pdsend sends a message to 'pd' using pdsend # canvas manipulates a canvas +# text manipulates a Tk 'text' widget + # ------------------------------------------------------------------------------ # quoting functions @@ -105,14 +108,16 @@ # set file types that open/save recognize set ::filetypes { {{pd files} {.pd} } - {{max text files} {.pat} } + {{max patch files} {.pat} } + {{max text files} {.mxt} } } } "aqua" { # set file types that open/save recognize set ::filetypes { {{Pd Files} {.pd} } - {{Max Text Files (.pat)} {.pat} } + {{Max Patch Files (.pat)} {.pat} } + {{Max Text Files (.mxt)} {.mxt} } } } "win32" { @@ -120,7 +125,8 @@ # set file types that open/save recognize set ::filetypes { {{Pd Files} {.pd} } - {{Max Text Files} {.pat} } + {{Max Patch Files} {.pat} } + {{Max Text Files} {.mxt} } } } } @@ -150,6 +156,11 @@ } } +proc pdtk_undomenu {args} { + # TODO + puts "pdtk_undomenu $args" +} + # TODO it probably makes sense to add a new function for for "Save, Discard, # Cancel" dialogs using tk_dialog proc pdtk_check_modified {message reply_to_pd default} { @@ -187,8 +198,9 @@ # TODO move this to its own proc for clarity wm title . "Pd-devel" + wm geometry . +500+50 frame .placeholder - label .placeholder.label -text "Pd window placeholder" -width 80 -height 15 + label .placeholder.label -text "Pd window placeholder" -width 50 -height 15 pack .placeholder.label .placeholder -side top -expand yes -fill both if { $argc == 1 && [string is int [lindex $argv 0]]} { Modified: branches/pd-devel/0.41.4/src/pd_bindings.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_bindings.tcl 2009-01-24 05:26:58 UTC (rev 10613) +++ branches/pd-devel/0.41.4/src/pd_bindings.tcl 2009-01-24 05:50:16 UTC (rev 10614) @@ -120,9 +120,9 @@ bind $mytoplevel <$modifier-Key-t> "menu_texteditor" } - bind $mycanvas <Key> "pdtk_canvas_sendkey %W 1 %K %A 0" - bind $mycanvas <Shift-Key> "pdtk_canvas_sendkey %W 1 %K %A 1" - bind $mycanvas <KeyRelease> "pdtk_canvas_sendkey %W 0 %K %A 0" + bind $mycanvas <Key> "pdsend_key %W 1 %K %A 0" + bind $mycanvas <Shift-Key> "pdsend_key %W 1 %K %A 1" + bind $mycanvas <KeyRelease> "pdsend_key %W 0 %K %A 0" # mouse bindings ----------------------------------------------------------- # these need to be bound to $mytoplevel.c because %W will return $mytoplevel for Modified: branches/pd-devel/0.41.4/src/pdtk_canvas.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pdtk_canvas.tcl 2009-01-24 05:26:58 UTC (rev 10613) +++ branches/pd-devel/0.41.4/src/pdtk_canvas.tcl 2009-01-24 05:50:16 UTC (rev 10614) @@ -43,7 +43,27 @@ focus $mycanvas } -proc pdtk_canvas_saveas {name initfile initdir} { +proc pdtk_canvas_saveas {name initialfile initialdir} { + set filename [tk_getSaveFile -initialfile $initialfile -initialdir $initialdir \ + -defaultextension .pd -filetypes $::filetypes] + if {$filename eq ""} return; # they clicked cancel + + set extension [file extension $filename] + set filename [regsub -- "$extension$" $filename [string tolower $extension]] + if { ! [regexp -- "\.(pd|pat|mxt)$" $filename]} { + # we need the file extention even on Mac OS X + set filename $filename.pd + } + # test again after downcasing and maybe adding a ".pd" on the end + if {[file exists $filename]} { + set answer [tk_messageBox -type okcancel -icon question -default cancel\ + -message "\"$filename\" already exists. Do you want to replace it?"] + if {$answer eq "cancel"} return; # they clicked cancel + } + set dirname [file dirname $filename] + set basename [file tail $filename] + pdsend "$name savetofile [pdtk_enquote $basename] [pdtk_enquote $dirname] ;" + set ::untitled_directory $dirname } #------------------------------------------------------------------------------# @@ -79,36 +99,6 @@ } #------------------------------------------------------------------------------# -# key usage - -proc pdtk_canvas_sendkey {mycanvas state key iso shift} { - if {$key == "BackSpace"} { - set iso "" - set key 8 - } elseif {$key == "Tab"} { - set iso "" - set key 9 - } elseif {$key == "Return"} { - set iso "" - set key 10 - } elseif {$key == "Escape"} { - set iso "" - set key 27 - } elseif {$key == "Space"} { - set iso "" - set key 32 - } elseif {$key == "Delete" || $key == "KP_Delete"} { - set iso "" - set key 127 - } - if {$iso != ""} { - scan $iso %c key - } - puts "pdtk_canvas_sendkey $key" - pdsend "[winfo toplevel $mycanvas] key $state $key $shift ;" -} - -#------------------------------------------------------------------------------# # procs for canvas events # "map" event tells us when the canvas becomes visible (arg is "0") or Modified: branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl =================================================================== --- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-24 05:26:58 UTC (rev 10613) +++ branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-24 05:50:16 UTC (rev 10614) @@ -31,6 +31,25 @@ } +#------------------------------------------------------------------------------# +# key usage + +proc pdsend_key {mycanvas state key iso shift} { + switch -- $key { + "BackSpace" { set iso ""; set key 8 } + "Tab" { set iso ""; set key 9 } + "Return" { set iso ""; set key 10 } + "Escape" { set iso ""; set key 27 } + "Space" { set iso ""; set key 32 } + "Delete" { set iso ""; set key 127 } + "KP_Delete" { set iso ""; set key 127 } + } + if {$iso != ""} { + scan $iso %c key + } + pdsend "[winfo toplevel $mycanvas] key $state $key $shift ;" +} + #array set cmd_ops {} # the only arg for pd.tk is the port number to connect to 'pd' on, but this 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:[10613] branches/pd-extended/0.41/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 24 Jan '09

24 Jan '09

Revision: 10613 http://pure-data.svn.sourceforge.net/pure-data/?rev=10613&view=rev Author: eighthave Date: 2009-01-24 05:26:58 +0000 (Sat, 24 Jan 2009) Log Message: ----------- fix open_file's broken loading, it only would load .pd files, not .Pd/.pD/.PD or the Max format .pat/.mxt Modified Paths: -------------- branches/pd-extended/0.41/pd/src/u_main.tk Modified: branches/pd-extended/0.41/pd/src/u_main.tk =================================================================== --- branches/pd-extended/0.41/pd/src/u_main.tk 2009-01-24 05:26:47 UTC (rev 10612) +++ branches/pd-extended/0.41/pd/src/u_main.tk 2009-01-24 05:26:58 UTC (rev 10613) @@ -521,7 +521,7 @@ set directory [string range $filename 0 [expr [string last / $filename] - 1]] set pd_opendir $directory set basename [string range $filename [expr [string last / $filename] + 1] end] - if {[string last .pd $filename] >= 0} { + if {[regexp -nocase -- "\.(pd|pat|mxt)$" $filename]} { pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;" } } 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:[10612] branches/pd-devel/0.41.4/src/wheredoesthisgo. tcl
by eighthave＠users.sourceforge.net 24 Jan '09

24 Jan '09

Revision: 10612 http://pure-data.svn.sourceforge.net/pure-data/?rev=10612&view=rev Author: eighthave Date: 2009-01-24 05:26:47 +0000 (Sat, 24 Jan 2009) Log Message: ----------- fix open_file's broken loading, it only would load .pd files, not .Pd/.pD/.PD or the Max format .pat/.mxt Modified Paths: -------------- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl Modified: branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl =================================================================== --- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-24 05:21:46 UTC (rev 10611) +++ branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-24 05:26:47 UTC (rev 10612) @@ -25,7 +25,7 @@ set directory [string range $filename 0 [expr [string last / $filename] - 1]] set ::pd_opendir $directory set basename [string range $filename [expr [string last / $filename] + 1] end] - if {[string last .pd $filename] >= 0} { + if {[regexp -nocase -- "\.(pd|pat|mxt)$" $filename]} { pdsend "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;" } } 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:[10611] trunk/packages/patches/ add_mxt_file_extension_support-0.41.4.patch
by eighthave＠users.sourceforge.net 24 Jan '09

24 Jan '09

Revision: 10611 http://pure-data.svn.sourceforge.net/pure-data/?rev=10611&view=rev Author: eighthave Date: 2009-01-24 05:21:46 +0000 (Sat, 24 Jan 2009) Log Message: ----------- fixed .pat and .mxt loading, it turns out that open_file was just testing for .pd as a valid file Modified Paths: -------------- trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch Modified: trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch =================================================================== --- trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch 2009-01-24 05:13:33 UTC (rev 10610) +++ trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch 2009-01-24 05:21:46 UTC (rev 10611) @@ -70,3 +70,16 @@ canvas_savetofile(x2, x2->gl_name, canvas_getdir(x2)); else canvas_menusaveas(x2); } +Index: u_main.tk +=================================================================== +--- u_main.tk (revision 10609) ++++ u_main.tk (working copy) +@@ -521,7 +521,7 @@ + set directory [string range $filename 0 [expr [string last / $filename] - 1]] + set pd_opendir $directory + set basename [string range $filename [expr [string last / $filename] + 1] end] +- if {[string last .pd $filename] >= 0} { ++ if {[regexp -nocase -- "\.(pd|pat|mxt)$" $filename]} { + pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;" + } + } 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:[10610] trunk/packages/patches/ add_mxt_file_extension_support-0.41.4.patch
by eighthave＠users.sourceforge.net 24 Jan '09

24 Jan '09

Revision: 10610 http://pure-data.svn.sourceforge.net/pure-data/?rev=10610&view=rev Author: eighthave Date: 2009-01-24 05:13:33 +0000 (Sat, 24 Jan 2009) Log Message: ----------- add support for Max patch file .mxt file extension, which should be the same file format as a text .pat, submitted to the patch tracker as 2532431 Added Paths: ----------- trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch Added: trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch =================================================================== --- trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch (rev 0) +++ trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch 2009-01-24 05:13:33 UTC (rev 10610) @@ -0,0 +1,72 @@ +Index: u_main.tk +=================================================================== +--- u_main.tk (revision 10595) ++++ u_main.tk (working copy) +@@ -29,7 +29,8 @@ + # set file types that open/save recognize + set filetypes { + {{Pd Files} {.pd} } +- {{Max Text Files} {.pat} } ++ {{Max Patch Files} {.pat} } ++ {{Max Text Files} {.mxt} } + } + } elseif { $tcl_platform(os) == "Darwin" } { + set pd_nt 2 +@@ -47,7 +48,8 @@ + # set file types that open/save recognize + set filetypes { + {{Pd Files} {.pd} } +- {{Max Text Files (.pat)} {.pat} } ++ {{Max Patch Files (.pat)} {.pat} } ++ {{Max Text Files (.mxt)} {.mxt} } + } + } else { + set pd_nt 0 +@@ -65,7 +67,8 @@ + # set file types that open/save recognize + set filetypes { + {{pd files} {.pd} } +- {{max text files} {.pat} } ++ {{max patch files} {.pat} } ++ {{max text files} {.mxt} } + } + } + +Index: m_binbuf.c +=================================================================== +--- m_binbuf.c (revision 10506) ++++ m_binbuf.c (working copy) +@@ -870,7 +870,8 @@ + if (*dir) + strcat(fbuf, dir), strcat(fbuf, "/"); + strcat(fbuf, filename); +- if (!strcmp(filename + strlen(filename) - 4, ".pat")) ++ if (!strcmp(filename + strlen(filename) - 4, ".pat") || ++ !strcmp(filename + strlen(filename) - 4, ".mxt")) + { + x = binbuf_convert(x, 0); + deleteit = 1; +@@ -1348,7 +1349,8 @@ + void binbuf_evalfile(t_symbol *name, t_symbol *dir) + { + t_binbuf *b = binbuf_new(); +- int import = !strcmp(name->s_name + strlen(name->s_name) - 4, ".pat"); ++ int import = !strcmp(name->s_name + strlen(name->s_name) - 4, ".pat") || ++ !strcmp(name->s_name + strlen(name->s_name) - 4, ".mxt"); + /* set filename so that new canvases can pick them up */ + int dspstate = canvas_suspend_dsp(); + glob_setfilename(0, name, dir); +Index: g_readwrite.c +=================================================================== +--- g_readwrite.c (revision 10497) ++++ g_readwrite.c (working copy) +@@ -728,7 +728,8 @@ + t_canvas *x2 = canvas_getrootfor(x); + char *name = x2->gl_name->s_name; + if (*name && strncmp(name, "Untitled", 8) +- && (strlen(name) < 4 || strcmp(name + strlen(name)-4, ".pat"))) ++ && (strlen(name) < 4 || strcmp(name + strlen(name)-4, ".pat") ++ || strcmp(name + strlen(name)-4, ".mxt"))) + canvas_savetofile(x2, x2->gl_name, canvas_getdir(x2)); + else canvas_menusaveas(x2); + } 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:[10609] branches/pd-extended/0.41/pd/src
by eighthave＠users.sourceforge.net 24 Jan '09

24 Jan '09

Revision: 10609 http://pure-data.svn.sourceforge.net/pure-data/?rev=10609&view=rev Author: eighthave Date: 2009-01-24 05:10:36 +0000 (Sat, 24 Jan 2009) Log Message: ----------- add support for Max patch file .mxt file extension, which should be the same as a text .pat Modified Paths: -------------- branches/pd-extended/0.41/pd/src/g_readwrite.c branches/pd-extended/0.41/pd/src/m_binbuf.c branches/pd-extended/0.41/pd/src/u_main.tk Modified: branches/pd-extended/0.41/pd/src/g_readwrite.c =================================================================== --- branches/pd-extended/0.41/pd/src/g_readwrite.c 2009-01-24 03:21:54 UTC (rev 10608) +++ branches/pd-extended/0.41/pd/src/g_readwrite.c 2009-01-24 05:10:36 UTC (rev 10609) @@ -728,7 +728,8 @@ t_canvas *x2 = canvas_getrootfor(x); char *name = x2->gl_name->s_name; if (*name && strncmp(name, "Untitled", 8) - && (strlen(name) < 4 || strcmp(name + strlen(name)-4, ".pat"))) + && (strlen(name) < 4 || strcmp(name + strlen(name)-4, ".pat") + || strcmp(name + strlen(name)-4, ".mxt"))) canvas_savetofile(x2, x2->gl_name, canvas_getdir(x2)); else canvas_menusaveas(x2); } Modified: branches/pd-extended/0.41/pd/src/m_binbuf.c =================================================================== --- branches/pd-extended/0.41/pd/src/m_binbuf.c 2009-01-24 03:21:54 UTC (rev 10608) +++ branches/pd-extended/0.41/pd/src/m_binbuf.c 2009-01-24 05:10:36 UTC (rev 10609) @@ -870,7 +870,8 @@ if (*dir) strcat(fbuf, dir), strcat(fbuf, "/"); strcat(fbuf, filename); - if (!strcmp(filename + strlen(filename) - 4, ".pat")) + if (!strcmp(filename + strlen(filename) - 4, ".pat") || + !strcmp(filename + strlen(filename) - 4, ".mxt")) { x = binbuf_convert(x, 0); deleteit = 1; @@ -1348,7 +1349,8 @@ void binbuf_evalfile(t_symbol *name, t_symbol *dir) { t_binbuf *b = binbuf_new(); - int import = !strcmp(name->s_name + strlen(name->s_name) - 4, ".pat"); + int import = !strcmp(name->s_name + strlen(name->s_name) - 4, ".pat") || + !strcmp(name->s_name + strlen(name->s_name) - 4, ".mxt"); /* set filename so that new canvases can pick them up */ int dspstate = canvas_suspend_dsp(); glob_setfilename(0, name, dir); Modified: branches/pd-extended/0.41/pd/src/u_main.tk =================================================================== --- branches/pd-extended/0.41/pd/src/u_main.tk 2009-01-24 03:21:54 UTC (rev 10608) +++ branches/pd-extended/0.41/pd/src/u_main.tk 2009-01-24 05:10:36 UTC (rev 10609) @@ -29,7 +29,8 @@ # set file types that open/save recognize set filetypes { {{Pd Files} {.pd} } - {{Max Text Files} {.pat} } + {{Max Patch Files} {.pat} } + {{Max Text Files} {.mxt} } } } elseif { $tcl_platform(os) == "Darwin" } { set pd_nt 2 @@ -47,7 +48,8 @@ # set file types that open/save recognize set filetypes { {{Pd Files} {.pd} } - {{Max Text Files (.pat)} {.pat} } + {{Max Patch Files (.pat)} {.pat} } + {{Max Text Files (.mxt)} {.mxt} } } } else { set pd_nt 0 @@ -65,7 +67,8 @@ # set file types that open/save recognize set filetypes { {{pd files} {.pd} } - {{max text files} {.pat} } + {{max patch files} {.pat} } + {{max text files} {.mxt} } } } 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:[10608] branches/pd-devel/0.41.4/src/pd_menucommands. tcl
by eighthave＠users.sourceforge.net 24 Jan '09

24 Jan '09

Revision: 10608 http://pure-data.svn.sourceforge.net/pure-data/?rev=10608&view=rev Author: eighthave Date: 2009-01-24 03:21:54 +0000 (Sat, 24 Jan 2009) Log Message: ----------- allowed the open panel to open multiple files at the same time Modified Paths: -------------- branches/pd-devel/0.41.4/src/pd_menucommands.tcl Modified: branches/pd-devel/0.41.4/src/pd_menucommands.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-23 22:24:42 UTC (rev 10607) +++ branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-24 03:21:54 UTC (rev 10608) @@ -24,11 +24,15 @@ } proc ::pd_menucommands::menu_open {} { - set filename [tk_getOpenFile -defaultextension .pd \ - -filetypes $::filetypes \ - -initialdir $::pd_opendir] - if {$filename ne ""} { - open_file $filename + set files [tk_getOpenFile -defaultextension .pd \ + -multiple true \ + -filetypes $::filetypes \ + -initialdir $::pd_opendir] + if {$files ne ""} { + foreach filename $files { + puts "open_file $filename" + open_file $filename + } } } 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:[10607] trunk/externals/moocow
by mukau＠users.sourceforge.net 23 Jan '09

23 Jan '09

Revision: 10607 http://pure-data.svn.sourceforge.net/pure-data/?rev=10607&view=rev Author: mukau Date: 2009-01-23 22:24:42 +0000 (Fri, 23 Jan 2009) Log Message: ----------- + did basic renaming 'string' -> 'bytes' Modified Paths: -------------- trunk/externals/moocow/pdstring+wchar/configure trunk/externals/moocow/pdstring+wchar/configure.ac trunk/externals/moocow/pdstring+wchar/src/Makefile.am trunk/externals/moocow/pdstring+wchar/src/Makefile.in trunk/externals/moocow/pdstring+wchar/src/config.h.in trunk/externals/moocow/pdstring+wchar/src/pdstring-help.pd trunk/externals/moocow/pdstring+wchar/src/pdstring.c trunk/externals/moocow/pdstring+wchar/src/unsigned.pd Added Paths: ----------- trunk/externals/moocow/pdstring+wchar/src/any2bytes-help.pd trunk/externals/moocow/pdstring+wchar/src/any2bytes.c trunk/externals/moocow/pdstring+wchar/src/bytes2any-help.pd trunk/externals/moocow/pdstring+wchar/src/bytes2any.c Removed Paths: ------------- trunk/externals/moocow/pdstring+wchar/src/any2string-help.pd trunk/externals/moocow/pdstring+wchar/src/any2string.c trunk/externals/moocow/pdstring+wchar/src/any2string_static.c trunk/externals/moocow/pdstring+wchar/src/string2any-help.pd trunk/externals/moocow/pdstring+wchar/src/string2any.c Modified: trunk/externals/moocow/pdstring+wchar/configure =================================================================== --- trunk/externals/moocow/pdstring+wchar/configure 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/configure 2009-01-23 22:24:42 UTC (rev 10607) @@ -1,6 +1,6 @@ #! /bin/sh # Guess values for system-dependent variables and create Makefiles. -# Generated by GNU Autoconf 2.61 for pdstring 0.07. +# Generated by GNU Autoconf 2.61 for pdstring 0.08. # # Report bugs to <moocow(a)ling.uni-potsdam.de>. # @@ -574,8 +574,8 @@ # Identity of this package. PACKAGE_NAME='pdstring' PACKAGE_TARNAME='pdstring' -PACKAGE_VERSION='0.07' -PACKAGE_STRING='pdstring 0.07' +PACKAGE_VERSION='0.08' +PACKAGE_STRING='pdstring 0.08' PACKAGE_BUGREPORT='moocow(a)ling.uni-potsdam.de' ac_default_prefix=/usr/local @@ -1181,7 +1181,7 @@ # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF -\`configure' configures pdstring 0.07 to adapt to many kinds of systems. +\`configure' configures pdstring 0.08 to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... @@ -1247,7 +1247,7 @@ if test -n "$ac_init_help"; then case $ac_init_help in - short | recursive ) echo "Configuration of pdstring 0.07:";; + short | recursive ) echo "Configuration of pdstring 0.08:";; esac cat <<\_ACEOF @@ -1341,7 +1341,7 @@ test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF -pdstring configure 0.07 +pdstring configure 0.08 generated by GNU Autoconf 2.61 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, @@ -1355,7 +1355,7 @@ This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. -It was created by pdstring $as_me 0.07, which was +It was created by pdstring $as_me 0.08, which was generated by GNU Autoconf 2.61. Invocation command line was $ $0 $@ @@ -2030,7 +2030,7 @@ # Define the identity of the package. PACKAGE=pdstring - VERSION=0.07 + VERSION=0.08 cat >>confdefs.h <<_ACEOF @@ -3543,7 +3543,7 @@ ##------- PD externals: hack EXEEXT? PD_LIB_EXTERNALS="pdstring" -PD_OBJ_EXTERNALS="any2string string2any" +PD_OBJ_EXTERNALS="any2bytes bytes2any" # Check whether --enable-object-externals was given. if test "${enable_object_externals+set}" = set; then @@ -3687,12 +3687,12 @@ DEBUG="yes" cat >>confdefs.h <<\_ACEOF -#define ANY2STRING_DEBUG 1 +#define ANY2BYTES_DEBUG 1 _ACEOF cat >>confdefs.h <<\_ACEOF -#define STRING2ANY_DEBUG 1 +#define BYTES2ANY_DEBUG 1 _ACEOF else @@ -4198,7 +4198,7 @@ # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" -This file was extended by pdstring $as_me 0.07, which was +This file was extended by pdstring $as_me 0.08, which was generated by GNU Autoconf 2.61. Invocation command line was CONFIG_FILES = $CONFIG_FILES @@ -4251,7 +4251,7 @@ _ACEOF cat >>$CONFIG_STATUS <<_ACEOF ac_cs_version="\\ -pdstring config.status 0.07 +pdstring config.status 0.08 configured by $0, generated by GNU Autoconf 2.61, with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\" Modified: trunk/externals/moocow/pdstring+wchar/configure.ac =================================================================== --- trunk/externals/moocow/pdstring+wchar/configure.ac 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/configure.ac 2009-01-23 22:24:42 UTC (rev 10607) @@ -4,7 +4,7 @@ dnl Some handy macros define([THE_PACKAGE_NAME], [pdstring]) -define([THE_PACKAGE_VERSION], [0.07]) +define([THE_PACKAGE_VERSION], [0.08]) define([THE_PACKAGE_AUTHOR], [moocow(a)ling.uni-potsdam.de]) AC_INIT(THE_PACKAGE_NAME, THE_PACKAGE_VERSION, THE_PACKAGE_AUTHOR) @@ -88,7 +88,7 @@ ##------- PD externals: hack EXEEXT? PD_LIB_EXTERNALS="pdstring" -PD_OBJ_EXTERNALS="any2string string2any" +PD_OBJ_EXTERNALS="any2bytes bytes2any" AC_ARG_ENABLE(object-externals, AC_HELP_STRING([--enable-object-externals], [Whether to build single-object externals (default=no)]), @@ -162,10 +162,10 @@ if test "$enable_debug" = "yes" ; then AC_MSG_RESULT(yes) DEBUG="yes" - AC_DEFINE(ANY2STRING_DEBUG,1, - [Define this to include debugging code for the 'string2any' external.]) - AC_DEFINE(STRING2ANY_DEBUG,1, - [Define this to include debugging code for the 'any2string' external.]) + AC_DEFINE(ANY2BYTES_DEBUG,1, + [Define this to include debugging code for the 'bytes2any' external.]) + AC_DEFINE(BYTES2ANY_DEBUG,1, + [Define this to include debugging code for the 'any2bytes' external.]) else AC_MSG_RESULT(no) DEBUG="no" Modified: trunk/externals/moocow/pdstring+wchar/src/Makefile.am =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/Makefile.am 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/Makefile.am 2009-01-23 22:24:42 UTC (rev 10607) @@ -32,8 +32,8 @@ ## --- possible externals EXTRA_PROGRAMS = \ pdstring \ - any2string \ - string2any + any2bytes \ + bytes2any ## --- patches pdexterns_DATA = @@ -41,8 +41,8 @@ ## --- documentation pddoc_DATA = \ pdstring-help.pd \ - any2string-help.pd \ - string2any-help.pd + any2bytes-help.pd \ + bytes2any-help.pd #----------------------------------------------------------------------- @@ -51,9 +51,9 @@ pdstring_SOURCES = pdstring.c mooPdUtils.h -any2string_SOURCES = any2string.c mooPdUtils.h +any2bytes_SOURCES = any2bytes.c mooPdUtils.h -string2any_SOURCES = string2any.c mooPdUtils.h +bytes2any_SOURCES = bytes2any.c mooPdUtils.h #----------------------------------------------------------------------- # external compilation : flags @@ -74,9 +74,9 @@ pdstring_LDFLAGS = $(LFLAGS) -string2any_LDFLAGS = $(LFLAGS) +bytes2any_LDFLAGS = $(LFLAGS) -any2string_LDFLAGS = $(LFLAGS) +any2bytes_LDFLAGS = $(LFLAGS) #----------------------------------------------------------------------- # Variables: cleanup Modified: trunk/externals/moocow/pdstring+wchar/src/Makefile.in =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/Makefile.in 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/Makefile.in 2009-01-23 22:24:42 UTC (rev 10607) @@ -50,8 +50,8 @@ PRE_UNINSTALL = : POST_UNINSTALL = : pdexterns_PROGRAMS = @PD_OBJECT_EXTERNALS@ -EXTRA_PROGRAMS = pdstring$(EXEEXT) any2string$(EXEEXT) \ - string2any$(EXEEXT) +EXTRA_PROGRAMS = pdstring$(EXEEXT) any2bytes$(EXEEXT) \ + bytes2any$(EXEEXT) subdir = src SUBDIRS = DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ @@ -67,15 +67,15 @@ "$(DESTDIR)$(pdexternsdir)" pdexternsPROGRAMS_INSTALL = $(INSTALL_PROGRAM) PROGRAMS = $(pdexterns_PROGRAMS) -am_any2string_OBJECTS = any2string.$(OBJEXT) -any2string_OBJECTS = $(am_any2string_OBJECTS) -any2string_LDADD = $(LDADD) +am_any2bytes_OBJECTS = any2bytes.$(OBJEXT) +any2bytes_OBJECTS = $(am_any2bytes_OBJECTS) +any2bytes_LDADD = $(LDADD) +am_bytes2any_OBJECTS = bytes2any.$(OBJEXT) +bytes2any_OBJECTS = $(am_bytes2any_OBJECTS) +bytes2any_LDADD = $(LDADD) am_pdstring_OBJECTS = pdstring.$(OBJEXT) pdstring_OBJECTS = $(am_pdstring_OBJECTS) pdstring_LDADD = $(LDADD) -am_string2any_OBJECTS = string2any.$(OBJEXT) -string2any_OBJECTS = $(am_string2any_OBJECTS) -string2any_LDADD = $(LDADD) DEFAULT_INCLUDES = -I. -I$(srcdir) -I. depcomp = $(SHELL) $(top_srcdir)/config/depcomp am__depfiles_maybe = depfiles @@ -83,10 +83,10 @@ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ -SOURCES = $(any2string_SOURCES) $(pdstring_SOURCES) \ - $(string2any_SOURCES) -DIST_SOURCES = $(any2string_SOURCES) $(pdstring_SOURCES) \ - $(string2any_SOURCES) +SOURCES = $(any2bytes_SOURCES) $(bytes2any_SOURCES) \ + $(pdstring_SOURCES) +DIST_SOURCES = $(any2bytes_SOURCES) $(bytes2any_SOURCES) \ + $(pdstring_SOURCES) RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-exec-recursive install-info-recursive \ @@ -207,24 +207,24 @@ pdexterns_DATA = pddoc_DATA = \ pdstring-help.pd \ - any2string-help.pd \ - string2any-help.pd + any2bytes-help.pd \ + bytes2any-help.pd #----------------------------------------------------------------------- # sources #----------------------------------------------------------------------- pdstring_SOURCES = pdstring.c mooPdUtils.h -any2string_SOURCES = any2string.c mooPdUtils.h -string2any_SOURCES = string2any.c mooPdUtils.h +any2bytes_SOURCES = any2bytes.c mooPdUtils.h +bytes2any_SOURCES = bytes2any.c mooPdUtils.h #GLIB_IFLAGS = @GLIB_IFLAGS@ #GLIB_LFLAGS = @GLIB_LFLAGS@ AM_CPPFLAGS = $(IFLAGS) $(GLIB_IFLAGS) $(DFLAGS) AM_CFLAGS = $(OFLAGS) $(WFLAGS) $(AFLAGS) pdstring_LDFLAGS = $(LFLAGS) -string2any_LDFLAGS = $(LFLAGS) -any2string_LDFLAGS = $(LFLAGS) +bytes2any_LDFLAGS = $(LFLAGS) +any2bytes_LDFLAGS = $(LFLAGS) #----------------------------------------------------------------------- # Variables: cleanup @@ -332,15 +332,15 @@ clean-pdexternsPROGRAMS: -test -z "$(pdexterns_PROGRAMS)" || rm -f $(pdexterns_PROGRAMS) -any2string$(EXEEXT): $(any2string_OBJECTS) $(any2string_DEPENDENCIES) - @rm -f any2string$(EXEEXT) - $(LINK) $(any2string_LDFLAGS) $(any2string_OBJECTS) $(any2string_LDADD) $(LIBS) +any2bytes$(EXEEXT): $(any2bytes_OBJECTS) $(any2bytes_DEPENDENCIES) + @rm -f any2bytes$(EXEEXT) + $(LINK) $(any2bytes_LDFLAGS) $(any2bytes_OBJECTS) $(any2bytes_LDADD) $(LIBS) +bytes2any$(EXEEXT): $(bytes2any_OBJECTS) $(bytes2any_DEPENDENCIES) + @rm -f bytes2any$(EXEEXT) + $(LINK) $(bytes2any_LDFLAGS) $(bytes2any_OBJECTS) $(bytes2any_LDADD) $(LIBS) pdstring$(EXEEXT): $(pdstring_OBJECTS) $(pdstring_DEPENDENCIES) @rm -f pdstring$(EXEEXT) $(LINK) $(pdstring_LDFLAGS) $(pdstring_OBJECTS) $(pdstring_LDADD) $(LIBS) -string2any$(EXEEXT): $(string2any_OBJECTS) $(string2any_DEPENDENCIES) - @rm -f string2any$(EXEEXT) - $(LINK) $(string2any_LDFLAGS) $(string2any_OBJECTS) $(string2any_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) @@ -348,9 +348,9 @@ distclean-compile: -rm -f *.tab.c -@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/any2string.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/any2bytes.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bytes2any.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pdstring.Po@am__quote@ -@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/string2any.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ Copied: trunk/externals/moocow/pdstring+wchar/src/any2bytes-help.pd (from rev 10606, trunk/externals/moocow/pdstring+wchar/src/any2string-help.pd) =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/any2bytes-help.pd (rev 0) +++ trunk/externals/moocow/pdstring+wchar/src/any2bytes-help.pd 2009-01-23 22:24:42 UTC (rev 10607) @@ -0,0 +1,40 @@ +#N canvas 90 20 636 478 10; +#X msg 109 197 0; +#X msg 77 197 -1; +#X text 19 47 INLETS:; +#X text 31 61 1 - pd messages; +#X text 247 49 OUTLETS:; +#X floatatom 44 147 8 0 0 0 - - -; +#X symbolatom 34 125 10 0 0 0 - - -; +#X text 189 125 ... no special handling for symbols; +#X text 188 103 anything can be converted to a list...; +#X text 190 147 ... but "float" selector is silently dropped; +#X msg 25 104 A B C; +#X text 193 312 First argument: initial buffer size (length of object-local +text buffer). This should get re-allocated when necessary. Specify +0 (zero) to use the default value.; +#X text 195 367 Second argument: initial EOS character. See above. +; +#X text 320 458 Bryan Jurish <moocow(a)ling.uni-potsdam.de>; +#X text 19 439 SEE ALSO:; +#X msg 139 197 42; +#X text 184 194 The second inlet sets the terminating EOS ("end-of-string") +character. This value gets implicitly appended to all output lists. +Specify a negative value here to avoid implicit EOS characters entirely. +For backwards compatibility \, the default EOS character is 0 (zero). +; +#X text 31 75 2 - EOS character (float); +#X obj 100 438 pdstring; +#X obj 25 314 any2bytes 128 -1; +#X obj 25 400 print any2bytes-help; +#X text 21 29 SYNTAX: any2bytes [INITIAL_BUFSIZE [EOS_CHAR]]; +#X text 263 63 1 - lists of byte-valued floats; +#X text 49 5 any2bytes : convert pd messages to a list of byte values +; +#X connect 0 0 19 1; +#X connect 1 0 19 1; +#X connect 5 0 19 0; +#X connect 6 0 19 0; +#X connect 10 0 19 0; +#X connect 15 0 19 1; +#X connect 19 0 20 0; Copied: trunk/externals/moocow/pdstring+wchar/src/any2bytes.c (from rev 10606, trunk/externals/moocow/pdstring+wchar/src/any2string.c) =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/any2bytes.c (rev 0) +++ trunk/externals/moocow/pdstring+wchar/src/any2bytes.c 2009-01-23 22:24:42 UTC (rev 10607) @@ -0,0 +1,239 @@ +/* -*- Mode: C -*- */ +/*=============================================================================*\ + * File: any2bytes.c + * Author: Bryan Jurish <moocow(a)ling.uni-potsdam.de> + * Description: convert pd messages to strings (dynamic allocation) + * + * Copyright (c) 2004-2009 Bryan Jurish. + * + * For information on usage and redistribution, and for a DISCLAIMER OF ALL + * WARRANTIES, see the file "COPYING", in this distribution. + * + * This program is free software; you can redistribute it and/or + * modify it under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 + * of the License, or (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + *=============================================================================*/ + +#include <string.h> +#include <m_pd.h> +#include "mooPdUtils.h" + +#ifdef HAVE_CONFIG_H +# include "config.h" +#endif + +/* black magic */ +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +/*-------------------------------------------------------------------- + * DEBUG + *--------------------------------------------------------------------*/ +/*#define ANY2BYTES_DEBUG 1*/ + +#ifdef ANY2BYTES_DEBUG +# define A2SDEBUG(x) x +#else +# define A2SDEBUG(x) +#endif + +#define ANY2BYTES_DEFAULT_BUFLEN 256 + + +/*===================================================================== + * Structures and Types: any2bytes + *=====================================================================*/ +static t_class *any2bytes_class; + +typedef struct _any2bytes +{ + t_object x_obj; + int x_alloc; + int x_argc; + t_float x_eos; //-- EOS character to add (<0 for none) + char *x_text; + t_atom *x_argv; + t_binbuf *x_binbuf; + t_inlet *x_eos_in; + t_outlet *x_outlet; +} t_any2bytes; + + +/*===================================================================== + * Constants + *=====================================================================*/ +static char *any2bytes_banner = "any2bytes: pdstring version " PACKAGE_VERSION " by Bryan Jurish"; + +/*===================================================================== + * Methods + *=====================================================================*/ + +/*-------------------------------------------------------------------- + * anything + */ +static void any2bytes_anything(t_any2bytes *x, t_symbol *sel, int argc, t_atom *argv) +{ + t_atom *ap; + unsigned char *s, *s_max; + int len; + + A2SDEBUG(post("-------any2bytes_anything(%p,...)---------", x)); + + /*-- set up binbuf --*/ + A2SDEBUG(post("any2bytes[%p]: binbuf_clear()", x)); + binbuf_clear(x->x_binbuf); + + /*-- binbuf_add(): selector --*/ + if (sel != &s_float && sel != &s_list && sel != &s_) { + t_atom a; + A2SDEBUG(post("any2bytes[%p]: binbuf_add(): selector: '%s'", x, sel->s_name)); + SETSYMBOL((&a), sel); + binbuf_add(x->x_binbuf, 1, &a); + } + A2SDEBUG(else { post("any2bytes[%p]: selector: '%s': IGNORED", x, sel->s_name); }); + + /*-- binbuf_add(): arg list --*/ + A2SDEBUG(post("any2bytes[%p]: binbuf_add(): arg list", x)); + binbuf_add(x->x_binbuf, argc, argv); + A2SDEBUG(post("any2bytes[%p]: binbuf_print: ", x)); + A2SDEBUG(binbuf_print(x->x_binbuf)); + + A2SDEBUG(post("any2bytes[%p]: binbuf_gettext()", x)); + binbuf_gettext(x->x_binbuf, &(x->x_text), &len); + A2SDEBUG(post("any2bytes[%p]: binbuf_gettext() = \"%s\" ; len=%d", x, x->x_text, len)); + /*text[len] = 0;*/ /*-- ? avoid errors: "free(): invalid next size(fast): 0x..." */ + + /*-- get output atom-list length --*/ + x->x_argc = len; + if (x->x_eos >= 0) { x->x_argc++; } + A2SDEBUG(post("any2bytes[%p]: argc=%d", x, x->x_argc)); + + /*-- (re-)allocate (maybe) --*/ + if (x->x_alloc < x->x_argc) { + A2SDEBUG(post("any2bytes[%p]: reallocate(%d->%d)", x, x->x_alloc, x->x_argc)); + freebytes(x->x_argv, x->x_alloc*sizeof(t_atom)); + x->x_argv = (t_atom*)getbytes(x->x_argc * sizeof(t_atom)); + x->x_alloc = x->x_argc; + } + + /*-- atom buffer: binbuf text --*/ + A2SDEBUG(post("any2bytes[%p]: atom buffer: for {...}", x)); + ap = x->x_argv; + s_max = ((unsigned char *)x->x_text)+len; + for (s=((unsigned char *)x->x_text); s < s_max; s++, ap++) { + A2SDEBUG(post("any2bytes[%p]: atom buffer[%d]: SETFLOAT(a,%d='%c')", x, (ap-x->x_argv), *s, *s)); + SETFLOAT(ap,*s); + } + A2SDEBUG(post("any2bytes: atom buffer: DONE")); + + /*-- add EOS character (maybe) --*/ + if (x->x_eos >= 0) { SETFLOAT(ap, ((int)x->x_eos)); } + + A2SDEBUG(post("any2bytes: outlet_list(..., %d, ...)", x->x_argc)); + outlet_list(x->x_outlet, &s_list, x->x_argc, x->x_argv); +} + + +/*-------------------------------------------------------------------- + * new + */ +static void *any2bytes_new(MOO_UNUSED t_symbol *sel, int argc, t_atom *argv) +{ + t_any2bytes *x = (t_any2bytes *)pd_new(any2bytes_class); + + //-- defaults + x->x_eos = 0; + x->x_alloc = ANY2BYTES_DEFAULT_BUFLEN; + + //-- args: 0: bufsize + if (argc > 0) { + int bufsize = atom_getintarg(0, argc, argv); + if (bufsize > 0) { x->x_alloc = bufsize; } + } + //-- args: 1: eos + if (argc > 1) { + x->x_eos = atom_getfloatarg(1, argc, argv); + } + + //-- allocate + x->x_text = getbytes(x->x_alloc*sizeof(char)); + x->x_argc = 0; + x->x_argv = (t_atom *)getbytes(x->x_alloc*sizeof(t_atom)); + x->x_binbuf = binbuf_new(); + + //-- inlets + x->x_eos_in = floatinlet_new(&x->x_obj, &x->x_eos); + + //-- outlets + x->x_outlet = outlet_new(&x->x_obj, &s_list); + + //-- report + A2SDEBUG(post("any2bytes_new(): x=%p, alloc=%d, eos=%d, text=%p, argv=%p, binbuf=%p", x, x->x_alloc, x->x_eos, x->x_text, x->x_argv, x->x_binbuf)); + + return (void *)x; +} + +/*-------------------------------------------------------------------- + * free + */ +static void any2bytes_free(t_any2bytes *x) +{ + if (x->x_text) { + freebytes(x->x_text, x->x_alloc*sizeof(char)); + x->x_text = NULL; + } + if (x->x_argv) { + freebytes(x->x_argv, x->x_alloc*sizeof(t_atom)); + x->x_argv = NULL; + } + binbuf_free(x->x_binbuf); + inlet_free(x->x_eos_in); + outlet_free(x->x_outlet); + return; +} + +/*-------------------------------------------------------------------- + * setup (guts) + */ +void any2bytes_setup_guts(void) +{ + //-- class + any2bytes_class = class_new(gensym("any2bytes"), + (t_newmethod)any2bytes_new, + (t_method)any2bytes_free, + sizeof(t_any2bytes), + CLASS_DEFAULT, + A_GIMME, //-- initial_bufsize, eos_char + 0); + + //-- alias + class_addcreator((t_newmethod)any2bytes_new, gensym("any2string"), A_GIMME, 0); + + //-- methods + class_addanything(any2bytes_class, (t_method)any2bytes_anything); + + //-- help symbol + //class_sethelpsymbol(any2bytes_class, gensym("any2bytes-help.pd")); //-- breaks pd-extended help lookup +} + + +/*-------------------------------------------------------------------- + * setup + */ +void any2bytes_setup(void) +{ + post(any2bytes_banner); + any2bytes_setup_guts(); +} Deleted: trunk/externals/moocow/pdstring+wchar/src/any2string-help.pd =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/any2string-help.pd 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/any2string-help.pd 2009-01-23 22:24:42 UTC (rev 10607) @@ -1,39 +0,0 @@ -#N canvas 90 20 636 478 10; -#X obj 25 400 print any2string-help; -#X obj 25 314 any2string 128 -1; -#X msg 109 197 0; -#X msg 77 197 -1; -#X text 19 47 INLETS:; -#X text 31 61 1 - pd messages; -#X text 247 49 OUTLETS:; -#X text 263 63 1 - lists of ASCII-valued floats; -#X floatatom 44 147 8 0 0 0 - - -; -#X symbolatom 34 125 10 0 0 0 - - -; -#X text 189 125 ... no special handling for symbols; -#X text 188 103 anything can be converted to a list...; -#X text 190 147 ... but "float" selector is silently dropped; -#X msg 25 104 A B C; -#X text 193 312 First argument: initial buffer size (length of object-local -text buffer). This should get re-allocated when necessary. Specify -0 (zero) to use the default value.; -#X text 195 367 Second argument: initial EOS character. See above. -; -#X text 320 458 Bryan Jurish <moocow(a)ling.uni-potsdam.de>; -#X text 19 439 SEE ALSO:; -#X msg 139 197 42; -#X text 21 29 SYNTAX: any2string [INITIAL_BUFSIZE [EOS_CHAR]]; -#X text 184 194 The second inlet sets the terminating EOS ("end-of-string") -character. This value gets implicitly appended to all output lists. -Specify a negative value here to avoid implicit EOS characters entirely. -For backwards compatibility \, the default EOS character is 0 (zero). -; -#X text 51 5 any2string : convert pd messages to a list of floats; -#X text 31 75 2 - EOS character (float); -#X obj 100 438 pdstring; -#X connect 1 0 0 0; -#X connect 2 0 1 1; -#X connect 3 0 1 1; -#X connect 8 0 1 0; -#X connect 9 0 1 0; -#X connect 13 0 1 0; -#X connect 18 0 1 1; Deleted: trunk/externals/moocow/pdstring+wchar/src/any2string.c =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/any2string.c 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/any2string.c 2009-01-23 22:24:42 UTC (rev 10607) @@ -1,239 +0,0 @@ -/* -*- Mode: C -*- */ -/*=============================================================================*\ - * File: any2string.c - * Author: Bryan Jurish <moocow(a)ling.uni-potsdam.de> - * Description: convert pd messages to strings (dynamic allocation) - * - * Copyright (c) 2004 - 2009 Bryan Jurish. - * - * For information on usage and redistribution, and for a DISCLAIMER OF ALL - * WARRANTIES, see the file "COPYING", in this distribution. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - *=============================================================================*/ - -#include <string.h> -#include <m_pd.h> -#include "mooPdUtils.h" - -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif - -/* black magic */ -#ifdef NT -#pragma warning( disable : 4244 ) -#pragma warning( disable : 4305 ) -#endif - -/*-------------------------------------------------------------------- - * DEBUG - *--------------------------------------------------------------------*/ -/*#define ANY2STRING_DEBUG 1*/ - -#ifdef ANY2STRING_DEBUG -# define A2SDEBUG(x) x -#else -# define A2SDEBUG(x) -#endif - -#define ANY2STRING_DEFAULT_BUFLEN 256 - - -/*===================================================================== - * Structures and Types: any2string - *=====================================================================*/ -static t_class *any2string_class; - -typedef struct _any2string -{ - t_object x_obj; - int x_alloc; - int x_argc; - t_float x_eos; //-- EOS character to add (<0 for none) - char *x_text; - t_atom *x_argv; - t_binbuf *x_binbuf; - t_inlet *x_eos_in; - t_outlet *x_outlet; -} t_any2string; - - -/*===================================================================== - * Constants - *=====================================================================*/ -static char *any2string_banner = "any2string: pdstring version " PACKAGE_VERSION " by Bryan Jurish"; - -/*===================================================================== - * Methods - *=====================================================================*/ - -/*-------------------------------------------------------------------- - * anything - */ -static void any2string_anything(t_any2string *x, t_symbol *sel, int argc, t_atom *argv) -{ - t_atom *ap; - unsigned char *s, *s_max; - int len; - - A2SDEBUG(post("-------any2string_anything(%p,...)---------", x)); - - /*-- set up binbuf --*/ - A2SDEBUG(post("any2string[%p]: binbuf_clear()", x)); - binbuf_clear(x->x_binbuf); - - /*-- binbuf_add(): selector --*/ - if (sel != &s_float && sel != &s_list && sel != &s_) { - t_atom a; - A2SDEBUG(post("any2string[%p]: binbuf_add(): selector: '%s'", x, sel->s_name)); - SETSYMBOL((&a), sel); - binbuf_add(x->x_binbuf, 1, &a); - } - A2SDEBUG(else { post("any2string[%p]: selector: '%s': IGNORED", x, sel->s_name); }); - - /*-- binbuf_add(): arg list --*/ - A2SDEBUG(post("any2string[%p]: binbuf_add(): arg list", x)); - binbuf_add(x->x_binbuf, argc, argv); - A2SDEBUG(post("any2string[%p]: binbuf_print: ", x)); - A2SDEBUG(binbuf_print(x->x_binbuf)); - - A2SDEBUG(post("any2string[%p]: binbuf_gettext()", x)); - binbuf_gettext(x->x_binbuf, &(x->x_text), &len); - A2SDEBUG(post("any2string[%p]: binbuf_gettext() = \"%s\" ; len=%d", x, x->x_text, len)); - /*text[len] = 0;*/ /*-- ? avoid errors: "free(): invalid next size(fast): 0x..." */ - - /*-- get output atom-list length --*/ - x->x_argc = len; - if (x->x_eos >= 0) { x->x_argc++; } - A2SDEBUG(post("any2string[%p]: argc=%d", x, x->x_argc)); - - /*-- (re-)allocate (maybe) --*/ - if (x->x_alloc < x->x_argc) { - A2SDEBUG(post("any2string[%p]: reallocate(%d->%d)", x, x->x_alloc, x->x_argc)); - freebytes(x->x_argv, x->x_alloc*sizeof(t_atom)); - x->x_argv = (t_atom*)getbytes(x->x_argc * sizeof(t_atom)); - x->x_alloc = x->x_argc; - } - - /*-- atom buffer: binbuf text --*/ - A2SDEBUG(post("any2string[%p]: atom buffer: for {...}", x)); - ap = x->x_argv; - s_max = ((unsigned char *)x->x_text)+len; - for (s=((unsigned char *)x->x_text); s < s_max; s++, ap++) { - A2SDEBUG(post("any2string[%p]: atom buffer[%d]: SETFLOAT(a,%d='%c')", x, (ap-x->x_argv), *s, *s)); - SETFLOAT(ap,*s); - } - A2SDEBUG(post("any2string: atom buffer: DONE")); - - /*-- add EOS character (maybe) --*/ - if (x->x_eos >= 0) { SETFLOAT(ap, ((int)x->x_eos)); } - - A2SDEBUG(post("any2string: outlet_list(..., %d, ...)", x->x_argc)); - outlet_list(x->x_outlet, &s_list, x->x_argc, x->x_argv); -} - - -/*-------------------------------------------------------------------- - * new - */ -static void *any2string_new(MOO_UNUSED t_symbol *sel, int argc, t_atom *argv) -{ - t_any2string *x = (t_any2string *)pd_new(any2string_class); - - //-- defaults - x->x_eos = 0; - x->x_alloc = ANY2STRING_DEFAULT_BUFLEN; - - //-- args: 0: bufsize - if (argc > 0) { - int bufsize = atom_getintarg(0, argc, argv); - if (bufsize > 0) { x->x_alloc = bufsize; } - } - //-- args: 1: eos - if (argc > 1) { - x->x_eos = atom_getfloatarg(1, argc, argv); - } - - //-- allocate - x->x_text = getbytes(x->x_alloc*sizeof(char)); - x->x_argc = 0; - x->x_argv = (t_atom *)getbytes(x->x_alloc*sizeof(t_atom)); - x->x_binbuf = binbuf_new(); - - //-- inlets - x->x_eos_in = floatinlet_new(&x->x_obj, &x->x_eos); - - //-- outlets - x->x_outlet = outlet_new(&x->x_obj, &s_list); - - //-- report - A2SDEBUG(post("any2string_new(): x=%p, alloc=%d, eos=%d, text=%p, argv=%p, binbuf=%p", x, x->x_alloc, x->x_eos, x->x_text, x->x_argv, x->x_binbuf)); - - return (void *)x; -} - -/*-------------------------------------------------------------------- - * free - */ -static void any2string_free(t_any2string *x) -{ - if (x->x_text) { - freebytes(x->x_text, x->x_alloc*sizeof(char)); - x->x_text = NULL; - } - if (x->x_argv) { - freebytes(x->x_argv, x->x_alloc*sizeof(t_atom)); - x->x_argv = NULL; - } - binbuf_free(x->x_binbuf); - inlet_free(x->x_eos_in); - outlet_free(x->x_outlet); - return; -} - -/*-------------------------------------------------------------------- - * setup (guts) - */ -void any2string_setup_guts(void) -{ - //-- class - any2string_class = class_new(gensym("any2string"), - (t_newmethod)any2string_new, - (t_method)any2string_free, - sizeof(t_any2string), - CLASS_DEFAULT, - A_GIMME, //-- initial_bufsize, eos_char - 0); - - //-- alias - class_addcreator((t_newmethod)any2string_new, gensym("any2bytes"), A_GIMME, 0); - - //-- methods - class_addanything(any2string_class, (t_method)any2string_anything); - - //-- help symbol - //class_sethelpsymbol(any2string_class, gensym("any2string-help.pd")); //-- breaks pd-extended help lookup -} - - -/*-------------------------------------------------------------------- - * setup - */ -void any2string_setup(void) -{ - post(any2string_banner); - any2string_setup_guts(); -} Deleted: trunk/externals/moocow/pdstring+wchar/src/any2string_static.c =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/any2string_static.c 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/any2string_static.c 2009-01-23 22:24:42 UTC (rev 10607) @@ -1,246 +0,0 @@ -/* -*- Mode: C -*- */ -/*=============================================================================*\ - * File: any2string_static.c - * Author: Bryan Jurish <moocow(a)ling.uni-potsdam.de> - * Description: convert pd messages to strings (static buffer allocation) - * - * Copyright (c) 2004 - 2007 Bryan Jurish. - * - * For information on usage and redistribution, and for a DISCLAIMER OF ALL - * WARRANTIES, see the file "COPYING", in this distribution. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - *=============================================================================*/ - -#include <string.h> -#include <stdio.h> - -#include <m_pd.h> - -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif - -/* black magic */ -#ifdef NT -#pragma warning( disable : 4244 ) -#pragma warning( disable : 4305 ) -#endif - -/*-------------------------------------------------------------------- - * DEBUG - *--------------------------------------------------------------------*/ -/*#define ANY2STRING_DEBUG 1*/ -/*#undef ANY2STRING_DEBUG*/ - -#ifdef ANY2STRING_DEBUG -# define A2SDEBUG(x) x -#else -# define A2SDEBUG(x) -#endif - -#define ANY2STRING_DEFAULT_BUFLEN 512 - - -/*===================================================================== - * Structures and Types: any2string - *=====================================================================*/ -static t_class *any2string_class; - -typedef struct _any2string -{ - t_object x_obj; - int x_alloc; //-- buffer size (text, x_argv) - int x_argc; //-- current number of atoms to outlet - t_atom *x_argv; //-- float-list to outlet - t_outlet *x_outlet; //-- outlet -} t_any2string; - - -/*===================================================================== - * Utilities - *=====================================================================*/ - -/*-------------------------------------------------------------------- - * append_string - */ -static void any2string_append_string(t_any2string *x, char *s, unsigned int maxlen, int doescape) -{ - char *sp; - char *ep = s+maxlen; - - for (sp=s; *sp && sp<ep && *sp && x->x_argc<x->x_alloc; sp++, x->x_argc++) { - if (doescape && (*sp==';' || *sp==',' || *sp=='\\' - || (*sp == '$' && sp<(ep-1) && sp[1] >= '0' && sp[1] <= '9'))) - { - A2SDEBUG(post("any2string_append_string: ESCAPE: x_argv[%d] = '%c' = %d", x->x_argc, '\\', '\\')); - x->x_argv[x->x_argc++].a_w.w_float = '\\'; - if (x->x_argc >= x->x_alloc) break; - } - A2SDEBUG(post("any2string_append_string: x_argv[%d] = '%c' = %d", x->x_argc, *sp, *sp)); - x->x_argv[x->x_argc].a_w.w_float = *sp; - } -} - -/*-------------------------------------------------------------------- - * append_atom - */ -#define ANY2STRING_APPEND_BUFSIZE 30 -static void any2string_append_atom(t_any2string *x, t_atom *a) -{ - char buf[ANY2STRING_APPEND_BUFSIZE]; - A2SDEBUG(post("~~ any2string_append_atom(%p,...) ~~", x)); - - if (x->x_argc >= x->x_alloc) { return; } - - /*-- stringify a single atom (inspired by atom_string() from m_atom.c) --*/ - switch (a->a_type) { - case A_SEMI: any2string_append_string(x, ";", 1, 0); break; - case A_COMMA: any2string_append_string(x, ",", 1, 0); break; - case A_POINTER: any2string_append_string(x, "(pointer)", 9, 0); break; - case A_FLOAT: - snprintf(buf, ANY2STRING_APPEND_BUFSIZE, "%g", a->a_w.w_float); - any2string_append_string(x, buf, ANY2STRING_APPEND_BUFSIZE, 0); - break; - case A_SYMBOL: - any2string_append_string(x, a->a_w.w_symbol->s_name, strlen(a->a_w.w_symbol->s_name), 1); - break; - case A_DOLLAR: - snprintf(buf, ANY2STRING_APPEND_BUFSIZE, "$%d", a->a_w.w_index); - any2string_append_string(x, buf, ANY2STRING_APPEND_BUFSIZE, 0); - break; - case A_DOLLSYM: - any2string_append_string(x, a->a_w.w_symbol->s_name, strlen(a->a_w.w_symbol->s_name), 0); - break; - default: - pd_error(x,"any2string_append_atom: unknown atom type '%d'", a->a_type); - break; - } - - if (x->x_argc < x->x_alloc) { - A2SDEBUG(post("any2string_append_atom[%p]: x_argv[%d] = '%c' = %d", x, x->x_argc, ' ', ' ')); - x->x_argv[x->x_argc++].a_w.w_float = ' '; - } -} - -/*===================================================================== - * Methods - *=====================================================================*/ - -/*-------------------------------------------------------------------- - * anything - */ -static void any2string_anything(t_any2string *x, t_symbol *sel, int argc, t_atom *argv) -{ - t_atom *argv_end = argv+argc; - x->x_argc=0; - - A2SDEBUG(post("-------any2string_anything(%p,...) ---------", x)); - - /*-- stringify selector (maybe) --*/ - if (sel != &s_float && sel != &s_list && sel != &s_) { - t_atom a; - SETSYMBOL(&a,sel); - any2string_append_atom(x, &a); - } - - /*-- stringify arg list --*/ - for ( ; argv<argv_end && x->x_argc<x->x_alloc; argv++) { - any2string_append_atom(x, argv); - } - - /*-- add terminating NUL (if we can) --*/ - A2SDEBUG(post("any2string[%p]: terminating NUL: x_argv[%d]=0", x, x->x_argc-1)); - if (x->x_argc >= x->x_alloc) { - pd_error(x, "any2string: input length exceeds buffer size!"); - x->x_argc = x->x_alloc; - x->x_argv[x->x_argc-1].a_w.w_float = '*'; //-- simulate atom_string() behavior - } else if (x->x_argc > 0) { - x->x_argv[x->x_argc-1].a_w.w_float = 0; - } - - A2SDEBUG(post("any2string[%p]: outlet_list(..., %d, ...)", x, x->x_argc)); - outlet_list(x->x_outlet, &s_list, x->x_argc, x->x_argv); -} - - -/*-------------------------------------------------------------------- - * new - */ -static void *any2string_new(t_floatarg bufsize) -{ - t_any2string *x = (t_any2string *)pd_new(any2string_class); - int i; - - //-- bufsize - if (bufsize <= 0) { - x->x_alloc = ANY2STRING_DEFAULT_BUFLEN; - } else { - x->x_alloc = bufsize; - } - A2SDEBUG(post("any2string_new: buf_req=%g, alloc=%d", bufsize, x->x_alloc)); - - //-- defaults - x->x_argc = 0; - x->x_argv = (t_atom*)getbytes(x->x_alloc*sizeof(t_atom)); - - //-- initialize (set a_type) - for (i=0; i < x->x_alloc; i++) { - SETFLOAT((x->x_argv+i),0); - } - - //-- outlets - x->x_outlet = outlet_new(&x->x_obj, &s_list); - A2SDEBUG(post("any2string_new: x=%p, alloc=%d, argv=%p, nbytes=%d", x, x->x_alloc,x->x_argv,x->x_alloc*sizeof(t_atom))); - return (void *)x; -} - -/*-------------------------------------------------------------------- - * free - */ -static void any2string_free(t_any2string *x) -{ - A2SDEBUG(post("any2string_free(x=%p)", x)); - if (x->x_argv) { - A2SDEBUG(post("any2string_free(x=%p): x_argv=%p (size=%d)", x, x->x_argv, x->x_alloc*sizeof(t_atom))); - freebytes(x->x_argv, x->x_alloc*sizeof(t_atom)); - } - A2SDEBUG(post("any2string_free(x=%p): x_outlet=%p", x, x->x_outlet)); - outlet_free(x->x_outlet); - return; -} - -/*-------------------------------------------------------------------- - * setup - */ -void any2string_setup(void) -{ - //-- class - any2string_class = class_new(gensym("any2string"), - (t_newmethod)any2string_new, - (t_method)any2string_free, - sizeof(t_any2string), - CLASS_DEFAULT, - A_DEFFLOAT, - 0); - - //-- methods - class_addanything(any2string_class, - (t_method)any2string_anything); - - - //-- help symbol - class_sethelpsymbol(any2string_class, gensym("pdstring-help.pd")); -} Copied: trunk/externals/moocow/pdstring+wchar/src/bytes2any-help.pd (from rev 10606, trunk/externals/moocow/pdstring+wchar/src/string2any-help.pd) =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/bytes2any-help.pd (rev 0) +++ trunk/externals/moocow/pdstring+wchar/src/bytes2any-help.pd 2009-01-23 22:24:42 UTC (rev 10607) @@ -0,0 +1,47 @@ +#N canvas 179 42 612 604 10; +#X text 13 52 INLETS:; +#X text 309 54 OUTLETS:; +#X text 325 68 1 - pd messages; +#X text 325 82 2 - bang on done; +#X obj 24 350 string2any 128 0; +#X obj 24 529 print string2any-help; +#X obj 131 454 print string2any-help-done; +#X msg 24 113 97 32 98 32 99; +#X msg 39 135 97 0 98 0 99; +#X msg 99 206 0; +#X msg 67 206 -1; +#X msg 131 206 32; +#X text 166 202 The second inlet sets the message-separating EOS ("end-of-string") +character. If this character is encountered in an input list \, the +list is "split" at that point \, and two separate messages are output +at the leftmost outlet. You can specify a negative value here to avoid +implicit input splitting entirely. For backwards compatibility \, the +default EOS character is -1 \, which results in truncation of input +messages whenever a 0 (zero) is encountered.; +#X text 163 350 First argument: initial buffer size (length of object-local +text buffer). This should get re-allocated when necessary. Specify +0 (zero) to use the default value.; +#X text 165 405 Second argument: initial EOS character. See above. +; +#X text 159 477 Right outlet gives a bang after the entire input list +has been processed.; +#X text 189 531 Parsed pd messages are sent to the left outlet.; +#X text 306 580 Bryan Jurish <moocow(a)ling.uni-potsdam.de>; +#X text 27 83 2 - EOS character (float); +#X text 161 121 lists of floats are converted to pd messages.; +#X msg 54 161 StringThing 97; +#X text 168 161 ... selector is ignored ...; +#X text 21 571 SEE ALSO:; +#X obj 102 570 pdstring; +#X text 27 68 1 - byte-valued float lists; +#X text 59 7 bytes2any : convert lists of byte values to pd messages +; +#X text 13 30 SYNTAX: bytes2any [INITIAL_BUFSIZE [EOS_CHAR]]; +#X connect 4 0 5 0; +#X connect 4 1 6 0; +#X connect 7 0 4 0; +#X connect 8 0 4 0; +#X connect 9 0 4 1; +#X connect 10 0 4 1; +#X connect 11 0 4 1; +#X connect 20 0 4 0; Copied: trunk/externals/moocow/pdstring+wchar/src/bytes2any.c (from rev 10606, trunk/externals/moocow/pdstring+wchar/src/string2any.c) =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/bytes2any.c (rev 0) +++ trunk/externals/moocow/pdstring+wchar/src/bytes2any.c 2009-01-23 22:24:42 UTC (rev 10607) @@ -0,0 +1,249 @@ +/* -*- Mode: C -*- */ +/*=============================================================================*\ + * File: bytes2any.c + * Author: Bryan Jurish <moocow(a)ling.uni-potsdam.de> + * Description: convert strings to pd messages + * + * Copyright (c) 2004-2009 Bryan Jurish. + * + * For information on usage and redistribution, and for a DISCLAIMER OF ALL + * WARRANTIES, see the file "COPYING", in this distribution. + * + * This program is free software; you can redistribute it and/or + * modify it under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 + * of the License, or (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + *=============================================================================*/ + +#include <string.h> +#include <m_pd.h> +#include "mooPdUtils.h" + +#ifdef HAVE_CONFIG_H +# include "config.h" +#endif + +/* black magic */ +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +/*-------------------------------------------------------------------- + * DEBUG + *--------------------------------------------------------------------*/ +/*#define BYTES2ANY_DEBUG 1*/ +/*#undef BYTES2ANY_DEBUG*/ + +#ifdef BYTES2ANY_DEBUG +# define S2ADEBUG(x) x +#else +# define S2ADEBUG(x) +#endif + +#define BYTES2ANY_DEFAULT_BUFLEN 256 + + +/*===================================================================== + * Constants + *=====================================================================*/ +static char *bytes2any_banner = "bytes2any: pdstring version " PACKAGE_VERSION " by Bryan Jurish"; + +/*===================================================================== + * Structures and Types: any2string + *=====================================================================*/ + +static t_class *bytes2any_class; + +typedef struct _bytes2any +{ + t_object x_obj; + size_t x_size; + t_float x_eos; //-- eos character + char *x_text; + t_binbuf *x_binbuf; + t_inlet *x_eos_in; + t_outlet *x_outlet; + t_outlet *x_outlet_done; +} t_bytes2any; + + +/*===================================================================== + * Utilities + *=====================================================================*/ + +/*-------------------------------------------------------------------- + * bytes2any_atoms() + */ +static void bytes2any_atoms(t_bytes2any *x, int argc, t_atom *argv) +{ + char *s; + int x_argc, a_argc=0; + t_atom *x_argv; + + /*-- allocate --*/ + if ( ((int)x->x_size) <= (argc+1) ) { + freebytes(x->x_text, x->x_size*sizeof(char)); + x->x_size = argc+1; + x->x_text = (char *)getbytes(x->x_size*sizeof(char)); + } + + /*-- get text --*/ + for (s=x->x_text; argc > 0; argc--, a_argc++, argv++, s++) { + *s = atom_getfloat(argv); + S2ADEBUG(post("bytes2any[%p]: a_argc=%d,*s=%d", x, a_argc, *s)); + if ((x->x_eos<0 && !*s) || (*s==x->x_eos)) { break; } /*-- hack: look for eos char --*/ + } + *s = 0; + S2ADEBUG(post("bytes2any[%p]: text: \"%s\", strlen=%d, argc=%d", x, x->x_text, strlen(x->x_text), a_argc)); + + /*-- clear and fill binbuf --*/ + binbuf_clear(x->x_binbuf); + binbuf_text(x->x_binbuf, x->x_text, a_argc); //-- handle NULs if binbuf will (but it won't) ? + S2ADEBUG(post("bytes2any[%p]: binbuf_print: ", x)); + S2ADEBUG(binbuf_print(x->x_binbuf)); + + /*-- output --*/ + x_argc = binbuf_getnatom(x->x_binbuf); + x_argv = binbuf_getvec(x->x_binbuf); + if (x_argc && x_argv->a_type == A_SYMBOL) { + outlet_anything(x->x_outlet, + x_argv->a_w.w_symbol, + x_argc-1, + x_argv+1); + } + else { + outlet_anything(x->x_outlet, + &s_list, + x_argc, + x_argv); + } +} + + +/*===================================================================== + * Methods + *=====================================================================*/ + +/*-------------------------------------------------------------------- + * anything + */ +static void bytes2any_anything(t_bytes2any *x, MOO_UNUSED t_symbol *sel, int argc, t_atom *argv) +{ + int i0=0, i; + + /*-- scan & output --*/ + if (x->x_eos >= 0) { + for (i=i0; i < argc; i++) { + if (((int)atom_getfloatarg(i,argc,argv))==((int)x->x_eos)) { + bytes2any_atoms(x, i-i0, argv+i0); + i0=i+1; + } + } + } + + if (i0 < argc) { + bytes2any_atoms(x, argc-i0, argv+i0); + } + + outlet_bang(x->x_outlet_done); +} + + +/*-------------------------------------------------------------------- + * new + */ +static void *bytes2any_new(MOO_UNUSED t_symbol *sel, int argc, t_atom *argv) +{ + t_bytes2any *x = (t_bytes2any *)pd_new(bytes2any_class); + + //-- defaults + x->x_binbuf = binbuf_new(); + x->x_size = BYTES2ANY_DEFAULT_BUFLEN; + x->x_eos = -1; + + //-- args: 0: bufsize + if (argc > 0) { + int initial_bufsize = atom_getintarg(0,argc,argv); + if (initial_bufsize > 0) x->x_size = initial_bufsize; + x->x_eos = -1; //-- backwards-compatibility hack: no default eos character if only bufsize is specified + } + //-- args: 1: separator + if (argc > 1) { + x->x_eos = atom_getfloatarg(1,argc,argv); + } + + //-- allocate + x->x_text = (char *)getbytes(x->x_size*sizeof(char)); + + //-- inlets + x->x_eos_in = floatinlet_new(&x->x_obj, &x->x_eos); + + //-- outlets + x->x_outlet = outlet_new(&x->x_obj, &s_list); + x->x_outlet_done = outlet_new(&x->x_obj, &s_bang); + + //-- debug + S2ADEBUG(post("bytes2any_new: x=%p, size=%d, eos=%d, binbuf=%p, text=%p", x, x->x_size, x->x_eos, x->x_binbuf, x->x_text)); + + return (void *)x; +} + +/*-------------------------------------------------------------------- + * free + */ +static void bytes2any_free(t_bytes2any *x) +{ + if (x->x_text) { + freebytes(x->x_text, x->x_size*sizeof(char)); + x->x_text = NULL; + } + binbuf_free(x->x_binbuf); + inlet_free(x->x_eos_in); + outlet_free(x->x_outlet_done); + outlet_free(x->x_outlet); + return; +} + +/*-------------------------------------------------------------------- + * setup: guts + */ +void bytes2any_setup_guts(void) +{ + //-- class + bytes2any_class = class_new(gensym("bytes2any"), + (t_newmethod)bytes2any_new, + (t_method)bytes2any_free, + sizeof(t_bytes2any), + CLASS_DEFAULT, + A_GIMME, //-- initial_bufsize, eos_char + 0); + + //-- alias + class_addcreator((t_newmethod)bytes2any_new, gensym("bytes2any"), A_GIMME, 0); + + //-- methods + class_addanything(bytes2any_class, (t_method)bytes2any_anything); + + + //-- help symbol + //class_sethelpsymbol(bytes2any_class, gensym("bytes2any-help.pd")); //-- breaks pd-extended help lookup +} + +/*-------------------------------------------------------------------- + * setup + */ +void bytes2any_setup(void) +{ + post(bytes2any_banner); + bytes2any_setup_guts(); +} Modified: trunk/externals/moocow/pdstring+wchar/src/config.h.in =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/config.h.in 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/config.h.in 2009-01-23 22:24:42 UTC (rev 10607) @@ -1,8 +1,11 @@ /* src/config.h.in. Generated from configure.ac by autoheader. */ -/* Define this to include debugging code for the 'string2any' external. */ -#undef ANY2STRING_DEBUG +/* Define this to include debugging code for the 'bytes2any' external. */ +#undef ANY2BYTES_DEBUG +/* Define this to include debugging code for the 'any2bytes' external. */ +#undef BYTES2ANY_DEBUG + /* Define to 1 if you have the <string.h> header file. */ #undef HAVE_STRING_H @@ -33,8 +36,5 @@ /* User who configured this external */ #undef PDSTRING_USER -/* Define this to include debugging code for the 'any2string' external. */ -#undef STRING2ANY_DEBUG - /* Version number of package */ #undef VERSION Modified: trunk/externals/moocow/pdstring+wchar/src/pdstring-help.pd =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/pdstring-help.pd 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/pdstring-help.pd 2009-01-23 22:24:42 UTC (rev 10607) @@ -4,8 +4,6 @@ #X symbolatom 46 59 10 0 0 0 - - -; #X text 201 59 ... no special handling for symbols; #X text 200 37 anything can be converted to a list...; -#X obj 37 108 any2string; -#X obj 37 230 string2any; #X floatatom 54 178 4 0 0 0 - - -; #X text 213 230 string2any converts ASCII lists to Pd messages...; #X text 202 81 ... but "float" selector is silently dropped; @@ -13,7 +11,6 @@ #X obj 162 144 f 0; #X obj 134 153 + 1; #X obj 161 165 t f f f; -#X obj 133 198 string2any; #X obj 154 243 pack s 0; #X obj 162 119 until; #X obj 133 218 symbol; @@ -23,37 +20,40 @@ #X obj 162 54 t b b; #X obj 154 266 route list; #X obj 154 293 print charset; +#X obj 133 198 bytes2any; #X connect 0 0 2 0; #X connect 1 0 0 1; #X connect 2 0 1 0; -#X connect 2 1 3 0; -#X connect 2 2 4 1; -#X connect 3 0 6 0; -#X connect 4 0 11 0; -#X connect 5 0 0 0; +#X connect 2 1 12 0; +#X connect 2 2 3 1; +#X connect 3 0 10 0; +#X connect 4 0 0 0; +#X connect 5 0 3 0; #X connect 6 0 4 0; -#X connect 7 0 5 0; -#X connect 8 0 0 1; -#X connect 9 0 10 0; -#X connect 10 0 7 0; -#X connect 10 1 8 0; -#X connect 11 0 12 0; -#X connect 11 1 12 0; +#X connect 7 0 0 1; +#X connect 8 0 9 0; +#X connect 9 0 6 0; +#X connect 9 1 7 0; +#X connect 10 0 11 0; +#X connect 10 1 11 0; +#X connect 12 0 5 0; #X restore 249 144 pd ascii-table; #X msg 249 121 bang; #X text 361 143 know your charset; -#X obj 58 139 print any2string-out; -#X obj 37 254 print string2any-out; #X msg 37 38 A B C; #X msg 55 199 list 49 50 51; #X text 54 3 any2string \, string2any : ASCII conversions in [pdstring] lib; -#X connect 1 0 5 0; -#X connect 2 0 5 0; -#X connect 5 0 13 0; -#X connect 5 0 6 0; -#X connect 6 0 14 0; -#X connect 7 0 6 0; -#X connect 11 0 10 0; -#X connect 15 0 5 0; -#X connect 16 0 6 0; +#X obj 37 108 any2bytes; +#X obj 37 230 bytes2any; +#X obj 58 139 print any2bytes-out; +#X obj 37 254 print bytes2any-out; +#X connect 1 0 14 0; +#X connect 2 0 14 0; +#X connect 5 0 15 0; +#X connect 9 0 8 0; +#X connect 11 0 14 0; +#X connect 12 0 15 0; +#X connect 14 0 15 0; +#X connect 14 0 16 0; +#X connect 15 0 17 0; Modified: trunk/externals/moocow/pdstring+wchar/src/pdstring.c =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/pdstring.c 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/pdstring.c 2009-01-23 22:24:42 UTC (rev 10607) @@ -55,13 +55,8 @@ * External declarations *=====================================================================*/ #ifndef PDSTRING_OBJECT_EXTERNALS -/* -extern void any2string_setup_guts(void); -extern void string2any_setup_guts(void); -*/ -#include "any2string.c" -#include "string2any.c" - +# include "any2bytes.c" +# include "bytes2any.c" #endif /*-------------------------------------------------------------------- @@ -91,8 +86,8 @@ pdstring_help(NULL); #ifndef PDSTRING_OBJECT_EXTERNALS - any2string_setup_guts(); - string2any_setup_guts(); + any2bytes_setup_guts(); + bytes2any_setup_guts(); #endif pdstring_class = class_new(gensym("pdstring"), Deleted: trunk/externals/moocow/pdstring+wchar/src/string2any-help.pd =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/string2any-help.pd 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/string2any-help.pd 2009-01-23 22:24:42 UTC (rev 10607) @@ -1,46 +0,0 @@ -#N canvas 121 48 612 604 10; -#X text 59 7 string2any : convert lists of floats to pd messages; -#X text 13 30 SYNTAX: string2any [INITIAL_BUFSIZE [EOS_CHAR]]; -#X text 13 52 INLETS:; -#X text 27 68 1 - ASCII-valued float lists; -#X text 309 54 OUTLETS:; -#X text 325 68 1 - pd messages; -#X text 325 82 2 - bang on done; -#X obj 24 350 string2any 128 0; -#X obj 24 529 print string2any-help; -#X obj 131 454 print string2any-help-done; -#X msg 24 113 97 32 98 32 99; -#X msg 39 135 97 0 98 0 99; -#X msg 99 206 0; -#X msg 67 206 -1; -#X msg 131 206 32; -#X text 166 202 The second inlet sets the message-separating EOS ("end-of-string") -character. If this character is encountered in an input list \, the -list is "split" at that point \, and two separate messages are output -at the leftmost outlet. You can specify a negative value here to avoid -implicit input splitting entirely. For backwards compatibility \, the -default EOS character is -1 \, which results in truncation of input -messages whenever a 0 (zero) is encountered.; -#X text 163 350 First argument: initial buffer size (length of object-local -text buffer). This should get re-allocated when necessary. Specify -0 (zero) to use the default value.; -#X text 165 405 Second argument: initial EOS character. See above. -; -#X text 159 477 Right outlet gives a bang after the entire input list -has been processed.; -#X text 189 531 Parsed pd messages are sent to the left outlet.; -#X text 306 580 Bryan Jurish <moocow(a)ling.uni-potsdam.de>; -#X text 27 83 2 - EOS character (float); -#X text 161 121 lists of floats are converted to pd messages.; -#X msg 54 161 StringThing 97; -#X text 168 161 ... selector is ignored ...; -#X text 21 571 SEE ALSO:; -#X obj 102 570 pdstring; -#X connect 7 0 8 0; -#X connect 7 1 9 0; -#X connect 10 0 7 0; -#X connect 11 0 7 0; -#X connect 12 0 7 1; -#X connect 13 0 7 1; -#X connect 14 0 7 1; -#X connect 23 0 7 0; Deleted: trunk/externals/moocow/pdstring+wchar/src/string2any.c =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/string2any.c 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/string2any.c 2009-01-23 22:24:42 UTC (rev 10607) @@ -1,249 +0,0 @@ -/* -*- Mode: C -*- */ -/*=============================================================================*\ - * File: string2any.c - * Author: Bryan Jurish <moocow(a)ling.uni-potsdam.de> - * Description: convert strings to pd messages - * - * Copyright (c) 2004-2008 Bryan Jurish. - * - * For information on usage and redistribution, and for a DISCLAIMER OF ALL - * WARRANTIES, see the file "COPYING", in this distribution. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - *=============================================================================*/ - -#include <string.h> -#include <m_pd.h> -#include "mooPdUtils.h" - -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif - -/* black magic */ -#ifdef NT -#pragma warning( disable : 4244 ) -#pragma warning( disable : 4305 ) -#endif - -/*-------------------------------------------------------------------- - * DEBUG - *--------------------------------------------------------------------*/ -/*#define STRING2ANY_DEBUG 1*/ -/*#undef STRING2ANY_DEBUG*/ - -#ifdef STRING2ANY_DEBUG -# define S2ADEBUG(x) x -#else -# define S2ADEBUG(x) -#endif - -#define STRING2ANY_DEFAULT_BUFLEN 256 - - -/*===================================================================== - * Constants - *=====================================================================*/ -static char *string2any_banner = "string2any: pdstring version " PACKAGE_VERSION " by Bryan Jurish"; - -/*===================================================================== - * Structures and Types: any2string - *=====================================================================*/ - -static t_class *string2any_class; - -typedef struct _string2any -{ - t_object x_obj; - size_t x_size; - t_float x_eos; //-- eos character - char *x_text; - t_binbuf *x_binbuf; - t_inlet *x_eos_in; - t_outlet *x_outlet; - t_outlet *x_outlet_done; -} t_string2any; - - -/*===================================================================== - * Utilities - *=====================================================================*/ - -/*-------------------------------------------------------------------- - * string2any_atoms() - */ -static void string2any_atoms(t_string2any *x, int argc, t_atom *argv) -{ - char *s; - int x_argc, a_argc=0; - t_atom *x_argv; - - /*-- allocate --*/ - if ( ((int)x->x_size) <= (argc+1) ) { - freebytes(x->x_text, x->x_size*sizeof(char)); - x->x_size = argc+1; - x->x_text = (char *)getbytes(x->x_size*sizeof(char)); - } - - /*-- get text --*/ - for (s=x->x_text; argc > 0; argc--, a_argc++, argv++, s++) { - *s = atom_getfloat(argv); - S2ADEBUG(post("string2any[%p]: a_argc=%d,*s=%d", x, a_argc, *s)); - if ((x->x_eos<0 && !*s) || (*s==x->x_eos)) { break; } /*-- hack: look for eos char --*/ - } - *s = 0; - S2ADEBUG(post("string2any[%p]: text: \"%s\", strlen=%d, argc=%d", x, x->x_text, strlen(x->x_text), a_argc)); - - /*-- clear and fill binbuf --*/ - binbuf_clear(x->x_binbuf); - binbuf_text(x->x_binbuf, x->x_text, a_argc); //-- handle NULs if binbuf will (but it won't) ? - S2ADEBUG(post("string2any[%p]: binbuf_print: ", x)); - S2ADEBUG(binbuf_print(x->x_binbuf)); - - /*-- output --*/ - x_argc = binbuf_getnatom(x->x_binbuf); - x_argv = binbuf_getvec(x->x_binbuf); - if (x_argc && x_argv->a_type == A_SYMBOL) { - outlet_anything(x->x_outlet, - x_argv->a_w.w_symbol, - x_argc-1, - x_argv+1); - } - else { - outlet_anything(x->x_outlet, - &s_list, - x_argc, - x_argv); - } -} - - -/*===================================================================== - * Methods - *=====================================================================*/ - -/*-------------------------------------------------------------------- - * anything - */ -static void string2any_anything(t_string2any *x, MOO_UNUSED t_symbol *sel, int argc, t_atom *argv) -{ - int i0=0, i; - - /*-- scan & output --*/ - if (x->x_eos >= 0) { - for (i=i0; i < argc; i++) { - if (((int)atom_getfloatarg(i,argc,argv))==((int)x->x_eos)) { - string2any_atoms(x, i-i0, argv+i0); - i0=i+1; - } - } - } - - if (i0 < argc) { - string2any_atoms(x, argc-i0, argv+i0); - } - - outlet_bang(x->x_outlet_done); -} - - -/*-------------------------------------------------------------------- - * new - */ -static void *string2any_new(MOO_UNUSED t_symbol *sel, int argc, t_atom *argv) -{ - t_string2any *x = (t_string2any *)pd_new(string2any_class); - - //-- defaults - x->x_binbuf = binbuf_new(); - x->x_size = STRING2ANY_DEFAULT_BUFLEN; - x->x_eos = -1; - - //-- args: 0: bufsize - if (argc > 0) { - int initial_bufsize = atom_getintarg(0,argc,argv); - if (initial_bufsize > 0) x->x_size = initial_bufsize; - x->x_eos = -1; //-- backwards-compatibility hack: no default eos character if only bufsize is specified - } - //-- args: 1: separator - if (argc > 1) { - x->x_eos = atom_getfloatarg(1,argc,argv); - } - - //-- allocate - x->x_text = (char *)getbytes(x->x_size*sizeof(char)); - - //-- inlets - x->x_eos_in = floatinlet_new(&x->x_obj, &x->x_eos); - - //-- outlets - x->x_outlet = outlet_new(&x->x_obj, &s_list); - x->x_outlet_done = outlet_new(&x->x_obj, &s_bang); - - //-- debug - S2ADEBUG(post("string2any_new: x=%p, size=%d, eos=%d, binbuf=%p, text=%p", x, x->x_size, x->x_eos, x->x_binbuf, x->x_text)); - - return (void *)x; -} - -/*-------------------------------------------------------------------- - * free - */ -static void string2any_free(t_string2any *x) -{ - if (x->x_text) { - freebytes(x->x_text, x->x_size*sizeof(char)); - x->x_text = NULL; - } - binbuf_free(x->x_binbuf); - inlet_free(x->x_eos_in); - outlet_free(x->x_outlet_done); - outlet_free(x->x_outlet); - return; -} - -/*-------------------------------------------------------------------- - * setup: guts - */ -void string2any_setup_guts(void) -{ - //-- class - string2any_class = class_new(gensym("string2any"), - (t_newmethod)string2any_new, - (t_method)string2any_free, - sizeof(t_string2any), - CLASS_DEFAULT, - A_GIMME, //-- initial_bufsize, eos_char - 0); - - //-- alias - class_addcreator((t_newmethod)string2any_new, gensym("bytes2any"), A_GIMME, 0); - - //-- methods - class_addanything(string2any_class, (t_method)string2any_anything); - - - //-- help symbol - //class_sethelpsymbol(string2any_class, gensym("string2any-help.pd")); //-- breaks pd-extended help lookup -} - -/*-------------------------------------------------------------------- - * setup - */ -void string2any_setup(void) -{ - post(string2any_banner); - string2any_setup_guts(); -} Modified: trunk/externals/moocow/pdstring+wchar/src/unsigned.pd =================================================================== --- trunk/externals/moocow/pdstring+wchar/src/unsigned.pd 2009-01-23 21:50:38 UTC (rev 10606) +++ trunk/externals/moocow/pdstring+wchar/src/unsigned.pd 2009-01-23 22:24:42 UTC (rev 10607) @@ -1,27 +1,27 @@ #N canvas 206 54 450 300 10; -#X floatatom 105 86 5 0 0 1 byte_value - -; -#X obj 105 116 string2any; -#X obj 119 146 print s2a; -#X obj 105 176 any2string; -#X floatatom 105 208 5 0 0 0 - - -; -#X msg 105 48 -10; -#X msg 143 48 246; -#X floatatom 238 207 5 0 0 0 - - -; -#X floatatom 240 82 5 0 0 1 byte_value - -; -#X msg 240 49 -10; -#X msg 278 49 246; -#X obj 238 115 bytes2any; -#X obj 238 175 any2bytes; -#X obj 252 145 print s2b; -#X connect 0 0 1 0; -#X connect 1 0 2 0; -#X connect 1 0 3 0; -#X connect 3 0 4 0; -#X connect 5 0 0 0; -#X connect 6 0 0 0; -#X connect 8 0 11 0; -#X connect 9 0 8 0; -#X connect 10 0 8 0; -#X connect 11 0 12 0; -#X connect 11 0 13 0; -#X connect 12 0 7 0; +#X floatatom 253 98 5 0 0 1 byte_value - -; +#X obj 267 158 print s2a; +#X floatatom 253 220 5 0 0 0 - - -; +#X msg 253 60 -10; +#X msg 291 60 246; +#X floatatom 86 219 5 0 0 0 - - -; +#X floatatom 88 94 5 0 0 1 byte_value - -; +#X msg 88 61 -10; +#X msg 126 61 246; +#X obj 86 127 bytes2any; +#X obj 86 187 any2bytes; +#X obj 100 157 print s2b; +#X obj 253 128 string2any; +#X obj 253 188 any2string; +#X connect 0 0 12 0; +#X connect 3 0 0 0; +#X connect 4 0 0 0; +#X connect 6 0 9 0; +#X connect 7 0 6 0; +#X connect 8 0 6 0; +#X connect 9 0 10 0; +#X connect 9 0 11 0; +#X connect 10 0 5 0; +#X connect 12 0 1 0; +#X connect 12 0 13 0; +#X connect 13 0 2 0; 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
...
36
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 January 2009