Pd-cvs November 2008

pd-cvs@lists.iem.at

13 participants
111 discussions

SF.net SVN: pure-data:[10368] trunk/abstractions/nqpoly/nqpoly4/nqpoly4.pd
by fbar＠users.sourceforge.net 07 Nov '08

07 Nov '08

Revision: 10368 http://pure-data.svn.sourceforge.net/pure-data/?rev=10368&view=rev Author: fbar Date: 2008-11-07 20:06:13 +0000 (Fri, 07 Nov 2008) Log Message: ----------- undid the additional loadbang Modified Paths: -------------- trunk/abstractions/nqpoly/nqpoly4/nqpoly4.pd Modified: trunk/abstractions/nqpoly/nqpoly4/nqpoly4.pd =================================================================== --- trunk/abstractions/nqpoly/nqpoly4/nqpoly4.pd 2008-11-06 12:31:50 UTC (rev 10367) +++ trunk/abstractions/nqpoly/nqpoly4/nqpoly4.pd 2008-11-07 20:06:13 UTC (rev 10368) @@ -90,6 +90,7 @@ #X obj 220 526 r \$0-subname; #X msg 139 577 \; \$1 loadbang; #X text 140 618 Final loadbang; +#X text 139 497 No loadbang here for backwards compatibility!; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 3 0 8 0; @@ -104,7 +105,6 @@ #X connect 11 0 0 1; #X connect 13 0 14 0; #X connect 14 1 17 0; -#X connect 17 0 18 0; #X connect 17 1 6 0; #X connect 17 2 1 0; #X connect 18 0 20 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-main planetccrma6-i386 2008-11-07 04.31.11
by pd＠planetccrma6-i386.idmi.poly.edu 07 Nov '08

07 Nov '08

make[1]: Entering directory `/home/pd/auto-build/pd-main/pd/extra/lrshift~' make[1]: Nothing to be done for `current'. make[1]: Leaving directory `/home/pd/auto-build/pd-main/pd/extra/lrshift~' make -C ../extra/pique make[1]: Entering directory `/home/pd/auto-build/pd-main/pd/extra/pique' make[1]: Nothing to be done for `current'. make[1]: Leaving directory `/home/pd/auto-build/pd-main/pd/extra/pique' make -C ../extra/sigmund~ make[1]: Entering directory `/home/pd/auto-build/pd-main/pd/extra/sigmund~' make[1]: Nothing to be done for `current'. make[1]: Leaving directory `/home/pd/auto-build/pd-main/pd/extra/sigmund~' make -C ../extra/pd~ make[1]: Entering directory `/home/pd/auto-build/pd-main/pd/extra/pd~' make[1]: Nothing to be done for `current'. make[1]: Leaving directory `/home/pd/auto-build/pd-main/pd/extra/pd~' make -C ../extra/stdout make[1]: Entering directory `/home/pd/auto-build/pd-main/pd/extra/stdout' make[1]: Nothing to be done for `current'. make[1]: Leaving directory `/home/pd/auto-build/pd-main/pd/extra/stdout' /home/pd/auto-build/pd-main/scripts/auto-build/pd-main-auto-builder.sh: line 66: rsync: command not found the full logfile can be viewed at http://autobuild.puredata.info/auto-build/2008-11-07/logs/2008-11-07_04.31.…

1 0

autobuild: pd-extended planetccrma6-i386 2008-11-07 04.31.11
by pd＠planetccrma6-i386.idmi.poly.edu 07 Nov '08

07 Nov '08

ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/examples/postlude/*: No such file or directory ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/manuals/py/scripts/*: No such file or directory ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/examples/hardware/*: No such file or directory ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/examples/postlude/*: No such file or directory ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/manuals/py/scripts/*: No such file or directory mv -i tarbz2Makefile /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/Makefile install -d /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local rm /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/README.txt rm: cannot remove `/home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/README.txt': No such file or directory make: [installer_readme] Error 1 (ignored) sed 's|PACKAGE_NAME|Pd-0.40.3-extended-20081107|' /home/pd/auto-build/pd-extended/packages/linux_make/README > \ /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/README.txt install -p /home/pd/auto-build/pd-extended/packages/linux_make/default.pdsettings /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd mv /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd-0.40.3-extended-20081107 cd /home/pd/auto-build/pd-extended/packages/linux_make/build/ && \ tar cjf Pd-0.40.3-extended-20081107.tar.bz2 Pd-0.40.3-extended-20081107 mv /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd-0.40.3-extended-20081107 /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local upload specs linux_make build tar.bz2 Uploading /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd-0.40.3-extended-20081107.tar.bz2 /home/pd/auto-build/pd-extended/scripts/auto-build/pd-extended-auto-builder.sh: line 82: rsync: command not found the full logfile can be viewed at http://autobuild.puredata.info/auto-build/2008-11-07/logs/2008-11-07_04.31.…

1 0

SF.net SVN: pure-data:[10367] trunk/abstractions/footils/list-abs/list-sort .pd
by fbar＠users.sourceforge.net 06 Nov '08

06 Nov '08

Revision: 10367 http://pure-data.svn.sourceforge.net/pure-data/?rev=10367&view=rev Author: fbar Date: 2008-11-06 12:31:50 +0000 (Thu, 06 Nov 2008) Log Message: ----------- replaced once Modified Paths: -------------- trunk/abstractions/footils/list-abs/list-sort.pd Modified: trunk/abstractions/footils/list-abs/list-sort.pd =================================================================== --- trunk/abstractions/footils/list-abs/list-sort.pd 2008-11-06 10:47:07 UTC (rev 10366) +++ trunk/abstractions/footils/list-abs/list-sort.pd 2008-11-06 12:31:50 UTC (rev 10367) @@ -27,7 +27,6 @@ #N canvas 111 181 880 518 test 0; #X obj 391 210 list-find; #X msg 391 189 1; -#X obj 391 263 once; #X obj 45 143 list-len; #X obj 45 459 outlet; #X obj 45 307 list; @@ -45,15 +44,15 @@ #X obj 114 66 r \$0-newelementtotest; #X text 351 91 <- the position of the new element must be between the 0 and 1 returned by [list-apply]; -#X text 460 207 <- find the first 1 in the list returned by [list-apply] +#X text 468 208 <- find the first 1 in the list returned by [list-apply] and return its position; #X obj 181 426 s \$0-sort; #X text 769 468 2008 Jack/RYBN; -#X text 521 262 <- the 1 exist or not ? if it exist then sort the list +#X text 537 258 <- the 1 exist or not ? if it exist then sort the list (red part) if not do nothing (green part); #X obj 391 165 t b b a; -#X obj 482 263 == 0; -#X obj 442 263 != 0; +#X obj 491 259 == 0; +#X obj 451 259 != 0; #X obj 174 294 cnv 15 200 125 empty empty empty 20 12 0 14 -258113 -66577 0; #X obj 384 294 cnv 15 100 50 empty empty empty 20 12 0 14 -4034 -66577 @@ -74,48 +73,64 @@ or green part; #X obj 90 42 r \$0-isasc; #X obj 308 42 r \$0-isdesc; +#N canvas 0 0 450 300 once 0; +#X obj 119 106 inlet; +#X obj 119 206 outlet; +#X obj 119 155 spigot 1; +#X obj 172 105 inlet; +#X msg 172 125 1; +#X obj 119 176 t a b; +#X msg 189 156 0; #X connect 0 0 2 0; +#X connect 2 0 5 0; +#X connect 3 0 4 0; +#X connect 4 0 2 1; +#X connect 5 0 1 0; +#X connect 5 1 6 0; +#X connect 6 0 2 1; +#X restore 391 258 pd once; +#X connect 0 0 41 0; +#X connect 0 1 23 0; #X connect 0 1 24 0; -#X connect 0 1 25 0; #X connect 1 0 0 0; -#X connect 2 0 32 1; -#X connect 3 0 8 0; -#X connect 5 0 4 0; -#X connect 6 0 7 1; -#X connect 7 0 5 0; -#X connect 8 0 7 0; -#X connect 8 1 31 0; -#X connect 9 0 5 1; -#X connect 10 0 3 0; -#X connect 10 1 23 0; +#X connect 2 0 7 0; +#X connect 4 0 3 0; +#X connect 5 0 6 1; +#X connect 6 0 4 0; +#X connect 7 0 6 0; +#X connect 7 1 30 0; +#X connect 8 0 4 1; +#X connect 9 0 2 0; +#X connect 9 1 22 0; +#X connect 10 0 9 0; #X connect 11 0 10 0; -#X connect 12 0 11 0; -#X connect 13 0 10 0; +#X connect 12 0 9 0; +#X connect 13 0 12 0; +#X connect 14 0 11 0; #X connect 14 0 13 0; -#X connect 15 0 12 0; -#X connect 15 0 14 0; -#X connect 16 0 13 2; -#X connect 17 0 11 2; -#X connect 23 0 1 0; -#X connect 23 1 2 1; -#X connect 23 2 0 1; -#X connect 24 0 38 1; -#X connect 25 0 34 1; -#X connect 28 0 30 0; -#X connect 28 1 29 1; -#X connect 29 0 32 0; -#X connect 30 0 34 0; -#X connect 30 0 38 0; -#X connect 31 0 28 0; -#X connect 32 0 33 0; -#X connect 33 0 20 0; -#X connect 34 0 29 0; -#X connect 35 0 30 1; -#X connect 36 0 30 1; -#X connect 37 0 32 2; -#X connect 38 0 20 0; -#X connect 40 0 12 1; -#X connect 41 0 14 1; +#X connect 15 0 12 2; +#X connect 16 0 10 2; +#X connect 22 0 1 0; +#X connect 22 1 41 1; +#X connect 22 2 0 1; +#X connect 23 0 37 1; +#X connect 24 0 33 1; +#X connect 27 0 29 0; +#X connect 27 1 28 1; +#X connect 28 0 31 0; +#X connect 29 0 33 0; +#X connect 29 0 37 0; +#X connect 30 0 27 0; +#X connect 31 0 32 0; +#X connect 32 0 19 0; +#X connect 33 0 28 0; +#X connect 34 0 29 1; +#X connect 35 0 29 1; +#X connect 36 0 31 2; +#X connect 37 0 19 0; +#X connect 39 0 11 1; +#X connect 40 0 13 1; +#X connect 41 0 31 1; #X restore 55 331 pd test; #X obj 87 181 s \$0-newelementtotest; #X text 489 344 2008 Jack/RYBN; 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:[10366] trunk/abstractions/footils/list-abs
by fbar＠users.sourceforge.net 06 Nov '08

06 Nov '08

Revision: 10366 http://pure-data.svn.sourceforge.net/pure-data/?rev=10366&view=rev Author: fbar Date: 2008-11-06 10:47:07 +0000 (Thu, 06 Nov 2008) Log Message: ----------- added list sort from Jack Added Paths: ----------- trunk/abstractions/footils/list-abs/list-sort-help.pd trunk/abstractions/footils/list-abs/list-sort.pd Added: trunk/abstractions/footils/list-abs/list-sort-help.pd =================================================================== --- trunk/abstractions/footils/list-abs/list-sort-help.pd (rev 0) +++ trunk/abstractions/footils/list-abs/list-sort-help.pd 2008-11-06 10:47:07 UTC (rev 10366) @@ -0,0 +1,50 @@ +#N canvas 420 190 744 496 10; +#X text 431 386 2008 Jack/RYBN; +#X msg 85 77 10; +#X text 188 249 Descendent; +#X text 175 227 Ascendent (default); +#X msg 85 340 44 39 27 10 10 8 5 -4 -14 -36; +#X text 123 76 <- generate a random list with 10 elements; +#X obj 85 311 prepent set; +#X msg 85 151 -36 5 44 8 39 -14 10 -4 27 10; +#X text 62 27 [list-sort] : sort a list of numbers. Elements of other +type (symbols \, ...) are removed from the list.; +#N canvas 0 0 450 300 mklist 0; +#X obj 109 146 random 100; +#X obj 109 124 until; +#X msg 215 150 set; +#X msg 109 188 add2 \$1; +#X obj 86 94 t b f b; +#X obj 109 167 - 50; +#X obj 86 63 inlet; +#X obj 86 237 outlet; +#X connect 0 0 5 0; +#X connect 1 0 0 0; +#X connect 2 0 7 0; +#X connect 3 0 7 0; +#X connect 4 0 7 0; +#X connect 4 1 1 0; +#X connect 4 2 2 0; +#X connect 5 0 3 0; +#X connect 6 0 4 0; +#X restore 85 116 pd mklist; +#X msg 371 338 44 39 27 10 10 8 5 -4 -14 -36; +#X obj 371 309 prepent set; +#X msg 145 228 asc; +#X msg 153 249 desc; +#X obj 466 192 hradio 15 1 0 2 empty empty empty 0 -8 0 10 -262144 +-1 -1 0; +#X obj 85 283 list-sort; +#X text 485 217 Arg can be "asc"/0 or "desc"/1; +#X obj 371 221 list-sort desc; +#X connect 1 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 15 0; +#X connect 7 0 17 0; +#X connect 9 0 7 0; +#X connect 11 0 10 0; +#X connect 12 0 15 1; +#X connect 13 0 15 1; +#X connect 14 0 17 1; +#X connect 15 0 6 0; +#X connect 17 0 11 0; Added: trunk/abstractions/footils/list-abs/list-sort.pd =================================================================== --- trunk/abstractions/footils/list-abs/list-sort.pd (rev 0) +++ trunk/abstractions/footils/list-abs/list-sort.pd 2008-11-06 10:47:07 UTC (rev 10366) @@ -0,0 +1,166 @@ +#N canvas 395 80 787 477 10; +#X obj 55 40 inlet; +#N canvas 452 289 450 300 init 0; +#X obj 122 56 inlet; +#X obj 122 197 outlet; +#X obj 122 84 t a a b; +#X obj 161 111 s \$0-init; +#X obj 141 142 list-len; +#X obj 141 167 s \$0-len; +#X text 231 110 <- send bang to init some objects; +#X text 205 166 <- send the length of the list; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X connect 2 1 4 0; +#X connect 2 2 3 0; +#X connect 4 0 5 0; +#X restore 55 70 pd init; +#X text 112 68 <- init; +#X obj 55 270 t a a; +#X obj 55 99 list-drip; +#X obj 136 210 r \$0-init; +#X obj 212 210 r \$0-sort; +#X obj 581 45 inlet; +#X obj 55 155 t f f; +#X obj 55 359 outlet; +#X obj 87 292 s \$0-listtosort; +#N canvas 111 181 880 518 test 0; +#X obj 391 210 list-find; +#X msg 391 189 1; +#X obj 391 263 once; +#X obj 45 143 list-len; +#X obj 45 459 outlet; +#X obj 45 307 list; +#X obj 60 200 r \$0-len; +#X obj 45 225 sel; +#X obj 45 165 t f f; +#X obj 66 277 r \$0-sort; +#X obj 45 122 t a a; +#X obj 45 92 list-apply >; +#X obj 45 66 spigot 1; +#X obj 263 92 list-apply <; +#X obj 263 66 spigot 0; +#X obj 45 16 inlet; +#X obj 332 66 r \$0-newelementtotest; +#X obj 114 66 r \$0-newelementtotest; +#X text 351 91 <- the position of the new element must be between the +0 and 1 returned by [list-apply]; +#X text 460 207 <- find the first 1 in the list returned by [list-apply] +and return its position; +#X obj 181 426 s \$0-sort; +#X text 769 468 2008 Jack/RYBN; +#X text 521 262 <- the 1 exist or not ? if it exist then sort the list +(red part) if not do nothing (green part); +#X obj 391 165 t b b a; +#X obj 482 263 == 0; +#X obj 442 263 != 0; +#X obj 174 294 cnv 15 200 125 empty empty empty 20 12 0 14 -258113 +-66577 0; +#X obj 384 294 cnv 15 100 50 empty empty empty 20 12 0 14 -4034 -66577 +0; +#X obj 181 223 t b f; +#X obj 181 326 list-idx 2; +#X obj 181 267 list; +#X obj 181 202 - 1; +#X obj 181 371 list-insert; +#X obj 181 394 list-delete -1 1; +#X obj 181 302 spigot; +#X obj 202 246 r \$0-init; +#X obj 264 246 r \$0-listtosort; +#X obj 244 347 r \$0-listtosort; +#X obj 391 301 spigot; +#X text 96 459 <- when all elements have been sent by [list-drip] \, +a bang is sent to [list] to output the last list send by the red part +or green part; +#X obj 90 42 r \$0-isasc; +#X obj 308 42 r \$0-isdesc; +#X connect 0 0 2 0; +#X connect 0 1 24 0; +#X connect 0 1 25 0; +#X connect 1 0 0 0; +#X connect 2 0 32 1; +#X connect 3 0 8 0; +#X connect 5 0 4 0; +#X connect 6 0 7 1; +#X connect 7 0 5 0; +#X connect 8 0 7 0; +#X connect 8 1 31 0; +#X connect 9 0 5 1; +#X connect 10 0 3 0; +#X connect 10 1 23 0; +#X connect 11 0 10 0; +#X connect 12 0 11 0; +#X connect 13 0 10 0; +#X connect 14 0 13 0; +#X connect 15 0 12 0; +#X connect 15 0 14 0; +#X connect 16 0 13 2; +#X connect 17 0 11 2; +#X connect 23 0 1 0; +#X connect 23 1 2 1; +#X connect 23 2 0 1; +#X connect 24 0 38 1; +#X connect 25 0 34 1; +#X connect 28 0 30 0; +#X connect 28 1 29 1; +#X connect 29 0 32 0; +#X connect 30 0 34 0; +#X connect 30 0 38 0; +#X connect 31 0 28 0; +#X connect 32 0 33 0; +#X connect 33 0 20 0; +#X connect 34 0 29 0; +#X connect 35 0 30 1; +#X connect 36 0 30 1; +#X connect 37 0 32 2; +#X connect 38 0 20 0; +#X connect 40 0 12 1; +#X connect 41 0 14 1; +#X restore 55 331 pd test; +#X obj 87 181 s \$0-newelementtotest; +#X text 489 344 2008 Jack/RYBN; +#X text 114 329 <- test position of the new value and sort it if needed +; +#X text 125 97 <- send elements one after another; +#X text 152 245 <- place the new element from [list-drip] to the end +of the new sorted list; +#X obj 55 243 list prepend; +#X text 294 211 <- receive the new list sorted; +#X obj 55 128 route float; +#X obj 129 150 print Warning:_Only_float_lists_can_be_sorted; +#X obj 634 76 list append \$1; +#X obj 634 100 list trim; +#X obj 634 52 loadbang; +#X obj 581 278 s \$0-isasc; +#X obj 648 258 s \$0-isdesc; +#X obj 581 230 unpack 0 0; +#X msg 581 197 1 0; +#X msg 628 196 0 1; +#X obj 581 132 route asc desc; +#X obj 676 153 route 0 1; +#X connect 0 0 1 0; +#X connect 1 0 4 0; +#X connect 3 0 11 0; +#X connect 3 1 10 0; +#X connect 4 0 19 0; +#X connect 5 0 17 1; +#X connect 6 0 17 1; +#X connect 7 0 29 0; +#X connect 8 0 17 0; +#X connect 8 1 12 0; +#X connect 11 0 9 0; +#X connect 17 0 3 0; +#X connect 19 0 8 0; +#X connect 19 1 20 0; +#X connect 21 0 22 0; +#X connect 22 0 29 0; +#X connect 23 0 21 0; +#X connect 26 0 24 0; +#X connect 26 1 25 0; +#X connect 27 0 26 0; +#X connect 28 0 26 0; +#X connect 29 0 27 0; +#X connect 29 1 28 0; +#X connect 29 2 30 0; +#X connect 30 0 27 0; +#X connect 30 1 28 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-main planetccrma6-i386 2008-11-06 04.31.10
by pd＠planetccrma6-i386.idmi.poly.edu 06 Nov '08

06 Nov '08

1 0

autobuild: pd-extended planetccrma6-i386 2008-11-06 04.31.10
by pd＠planetccrma6-i386.idmi.poly.edu 06 Nov '08

06 Nov '08

ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/examples/postlude/*: No such file or directory ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/manuals/py/scripts/*: No such file or directory ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/examples/hardware/*: No such file or directory ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/examples/postlude/*: No such file or directory ls: /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/doc/manuals/py/scripts/*: No such file or directory mv -i tarbz2Makefile /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/Makefile install -d /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local rm /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/README.txt rm: cannot remove `/home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/README.txt': No such file or directory make: [installer_readme] Error 1 (ignored) sed 's|PACKAGE_NAME|Pd-0.40.3-extended-20081106|' /home/pd/auto-build/pd-extended/packages/linux_make/README > \ /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/README.txt install -p /home/pd/auto-build/pd-extended/packages/linux_make/default.pdsettings /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd mv /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd-0.40.3-extended-20081106 cd /home/pd/auto-build/pd-extended/packages/linux_make/build/ && \ tar cjf Pd-0.40.3-extended-20081106.tar.bz2 Pd-0.40.3-extended-20081106 mv /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd-0.40.3-extended-20081106 /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local upload specs linux_make build tar.bz2 Uploading /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd-0.40.3-extended-20081106.tar.bz2 /home/pd/auto-build/pd-extended/scripts/auto-build/pd-extended-auto-builder.sh: line 82: rsync: command not found the full logfile can be viewed at http://autobuild.puredata.info/auto-build/2008-11-06/logs/2008-11-06_04.31.…

1 0

SF.net SVN: pure-data:[10365] trunk/externals/mrpeach/net/tcpreceive-help. pd
by mrpeach＠users.sourceforge.net 05 Nov '08

05 Nov '08

Revision: 10365 http://pure-data.svn.sourceforge.net/pure-data/?rev=10365&view=rev Author: mrpeach Date: 2008-11-05 19:58:34 +0000 (Wed, 05 Nov 2008) Log Message: ----------- Updated to add port number to list on right outlet Modified Paths: -------------- trunk/externals/mrpeach/net/tcpreceive-help.pd Modified: trunk/externals/mrpeach/net/tcpreceive-help.pd =================================================================== --- trunk/externals/mrpeach/net/tcpreceive-help.pd 2008-11-05 19:58:02 UTC (rev 10364) +++ trunk/externals/mrpeach/net/tcpreceive-help.pd 2008-11-05 19:58:34 UTC (rev 10365) @@ -1,20 +1,22 @@ -#N canvas 713 11 478 294 12; -#X obj 212 117 unpack 0 0 0 0; -#X floatatom 212 140 3 0 0 0 - - -; -#X floatatom 247 140 3 0 0 0 - - -; -#X floatatom 283 140 3 0 0 0 - - -; -#X floatatom 319 140 3 0 0 0 - - -; -#X text 169 139 from; -#X obj 155 185 print message; -#X obj 155 57 tcpreceive 9997; -#X floatatom 270 96 5 0 0 0 - - -; -#X text 316 94 connections; -#X text 32 16 tcpreceive receives bytes over a tcp connection.; -#X text 265 235 Martin Peach 2006/04/21; -#X connect 0 0 1 0; -#X connect 0 1 2 0; -#X connect 0 2 3 0; -#X connect 0 3 4 0; -#X connect 7 0 6 0; -#X connect 7 1 0 0; -#X connect 7 2 8 0; +#N canvas 713 11 478 294 12; +#X floatatom 206 144 3 0 0 0 - - -; +#X floatatom 233 144 3 0 0 0 - - -; +#X floatatom 260 144 3 0 0 0 - - -; +#X floatatom 287 144 3 0 0 0 - - -; +#X text 163 143 from; +#X obj 155 185 print message; +#X obj 155 57 tcpreceive 9997; +#X floatatom 257 96 5 0 0 0 - - -; +#X text 303 94 connections; +#X text 32 16 tcpreceive receives bytes over a tcp connection.; +#X floatatom 315 144 5 0 0 0 - - -; +#X obj 206 117 unpack 0 0 0 0 0; +#X text 265 235 Martin Peach 2008/11/05; +#X connect 6 0 5 0; +#X connect 6 1 11 0; +#X connect 6 2 7 0; +#X connect 11 0 0 0; +#X connect 11 1 1 0; +#X connect 11 2 2 0; +#X connect 11 3 3 0; +#X connect 11 4 10 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10364] trunk/externals/mrpeach/net/tcpreceive.c
by mrpeach＠users.sourceforge.net 05 Nov '08

05 Nov '08

Revision: 10364 http://pure-data.svn.sourceforge.net/pure-data/?rev=10364&view=rev Author: mrpeach Date: 2008-11-05 19:58:02 +0000 (Wed, 05 Nov 2008) Log Message: ----------- Added port number output to ip list on right outlet as suggested by zmoelnig Modified Paths: -------------- trunk/externals/mrpeach/net/tcpreceive.c Modified: trunk/externals/mrpeach/net/tcpreceive.c =================================================================== --- trunk/externals/mrpeach/net/tcpreceive.c 2008-11-05 19:35:09 UTC (rev 10363) +++ trunk/externals/mrpeach/net/tcpreceive.c 2008-11-05 19:58:02 UTC (rev 10364) @@ -28,8 +28,9 @@ typedef struct _tcpconnection { - long addr; - int socket; + long addr; + unsigned short port; + int socket; } t_tcpconnection; typedef struct _tcpreceive @@ -41,7 +42,7 @@ int x_connectsocket; int x_nconnections; t_tcpconnection x_connection[MAX_CONNECTIONS]; - t_atom x_addrbytes[4]; + t_atom x_addrbytes[5]; t_atom x_msgoutbuf[MAX_UDP_RECEIVE]; char x_msginbuf[MAX_UDP_RECEIVE]; } t_tcpreceive; @@ -51,15 +52,17 @@ static void *tcpreceive_new(t_floatarg fportno); static void tcpreceive_read(t_tcpreceive *x, int sockfd); static void tcpreceive_connectpoll(t_tcpreceive *x); -static int tcpreceive_addconnection(t_tcpreceive * x, int fd, long addr); +static int tcpreceive_addconnection(t_tcpreceive * x, int fd, long addr, unsigned short port); static int tcpreceive_removeconnection(t_tcpreceive * x, int fd); static void tcpreceive_closeall(t_tcpreceive *x); static long tcpreceive_getconnection(t_tcpreceive * x, int fd); +static unsigned short tcpreceive_getconnectionport(t_tcpreceive * x, int fd); static void tcpreceive_read(t_tcpreceive *x, int sockfd) { - int i, read = 0; - long addr; + int i, read = 0; + long addr; + unsigned short port; // read = recvfrom(sockfd, x->x_msginbuf, MAX_UDP_RECEIVE, 0, (struct sockaddr *)&from, &fromlen); read = recv(sockfd, x->x_msginbuf, MAX_UDP_RECEIVE, 0); @@ -92,11 +95,13 @@ } /* find sender's ip address and output it */ addr = tcpreceive_getconnection(x, sockfd); + port = tcpreceive_getconnectionport(x, sockfd); x->x_addrbytes[0].a_w.w_float = (addr & 0xFF000000)>>24; x->x_addrbytes[1].a_w.w_float = (addr & 0x0FF0000)>>16; x->x_addrbytes[2].a_w.w_float = (addr & 0x0FF00)>>8; x->x_addrbytes[3].a_w.w_float = (addr & 0x0FF); - outlet_list(x->x_addrout, &s_list, 4L, x->x_addrbytes); + x->x_addrbytes[4].a_w.w_float = port; + outlet_list(x->x_addrout, &s_list, 5L, x->x_addrbytes); /* send the list out the outlet */ if (read > 1) outlet_list(x->x_msgout, &s_list, read, x->x_msgoutbuf); else outlet_float(x->x_msgout, x->x_msgoutbuf[0].a_w.w_float); @@ -153,6 +158,7 @@ { x->x_connection[i].socket = -1; x->x_connection[i].addr = 0L; + x->x_connection[i].port = 0; } /* convert the bytes in the buffer to floats in a list */ for (i = 0; i < MAX_UDP_RECEIVE; ++i) @@ -160,7 +166,7 @@ x->x_msgoutbuf[i].a_type = A_FLOAT; x->x_msgoutbuf[i].a_w.w_float = 0; } - for (i = 0; i < 4; ++i) + for (i = 0; i < 5; ++i) { x->x_addrbytes[i].a_type = A_FLOAT; x->x_addrbytes[i].a_w.w_float = 0; @@ -191,6 +197,7 @@ struct sockaddr_in from; socklen_t fromlen = sizeof(from); long addr; + unsigned short port; int fd; fd = accept(x->x_connectsocket, (struct sockaddr *)&from, &fromlen); @@ -203,7 +210,8 @@ /* get the sender's ip */ addr = ntohl(from.sin_addr.s_addr); - if (tcpreceive_addconnection(x, fd, addr)) + port = ntohs(from.sin_port); + if (tcpreceive_addconnection(x, fd, addr, port)) { sys_addpollfn(fd, (t_fdpollfn)tcpreceive_read, x); outlet_float(x->x_connectout, ++x->x_nconnections); @@ -211,7 +219,8 @@ x->x_addrbytes[1].a_w.w_float = (addr & 0x0FF0000)>>16; x->x_addrbytes[2].a_w.w_float = (addr & 0x0FF00)>>8; x->x_addrbytes[3].a_w.w_float = (addr & 0x0FF); - outlet_list(x->x_addrout, &s_list, 4L, x->x_addrbytes); + x->x_addrbytes[4].a_w.w_float = port; + outlet_list(x->x_addrout, &s_list, 5L, x->x_addrbytes); } else { @@ -223,7 +232,7 @@ /* tcpreceive_addconnection tries to add the socket fd to the list */ /* returns 1 on success, else 0 */ -static int tcpreceive_addconnection(t_tcpreceive *x, int fd, long addr) +static int tcpreceive_addconnection(t_tcpreceive *x, int fd, long addr, unsigned short port) { int i; for (i = 0; i < MAX_CONNECTIONS; ++i) @@ -232,6 +241,7 @@ { x->x_connection[i].socket = fd; x->x_connection[i].addr = addr; + x->x_connection[i].port = port; return 1; } } @@ -252,6 +262,7 @@ sys_closesocket(x->x_connection[i].socket); x->x_connection[i].socket = -1; x->x_connection[i].addr = 0L; + x->x_connection[i].port = 0; outlet_float(x->x_connectout, --x->x_nconnections); } } @@ -268,12 +279,26 @@ { x->x_connection[i].socket = -1; x->x_connection[i].addr = 0L; + x->x_connection[i].port = 0; return 1; } } return 0; } +/* tcpreceive_getconnectionport tries to find the socket fd in the list */ +/* returns port on success, else 0 */ +static u_short tcpreceive_getconnectionport(t_tcpreceive *x, int fd) +{ + int i; + for (i = 0; i < MAX_CONNECTIONS; ++i) + { + if (x->x_connection[i].socket == fd) + return x->x_connection[i].port; + } + return 0; +} + /* tcpreceive_getconnection tries to find the socket fd in the list */ /* returns addr on success, else 0 */ static long tcpreceive_getconnection(t_tcpreceive *x, int fd) 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:[10363] trunk/externals/mrpeach/net/udpreceive-help. pd
by mrpeach＠users.sourceforge.net 05 Nov '08

05 Nov '08

Revision: 10363 http://pure-data.svn.sourceforge.net/pure-data/?rev=10363&view=rev Author: mrpeach Date: 2008-11-05 19:35:09 +0000 (Wed, 05 Nov 2008) Log Message: ----------- Updated to add port number on ip (right) outlet Modified Paths: -------------- trunk/externals/mrpeach/net/udpreceive-help.pd Modified: trunk/externals/mrpeach/net/udpreceive-help.pd =================================================================== --- trunk/externals/mrpeach/net/udpreceive-help.pd 2008-11-05 19:34:15 UTC (rev 10362) +++ trunk/externals/mrpeach/net/udpreceive-help.pd 2008-11-05 19:35:09 UTC (rev 10363) @@ -1,17 +1,19 @@ -#N canvas 658 564 478 294 12; -#X obj 222 119 unpack 0 0 0 0; -#X floatatom 222 142 3 0 0 0 - - -; -#X floatatom 257 142 3 0 0 0 - - -; -#X floatatom 293 142 3 0 0 0 - - -; -#X floatatom 329 142 3 0 0 0 - - -; -#X text 179 141 from; -#X obj 107 194 print message; -#X obj 107 91 udpreceive 9997; -#X text 32 16 udpreceive receives bytes over a udp connection.; -#X text 265 235 Martin Peach 2006/04/21; -#X connect 0 0 1 0; -#X connect 0 1 2 0; -#X connect 0 2 3 0; -#X connect 0 3 4 0; -#X connect 7 0 6 0; -#X connect 7 1 0 0; +#N canvas 187 585 478 280 12; +#X floatatom 209 142 3 0 0 0 - - -; +#X floatatom 236 142 3 0 0 0 - - -; +#X floatatom 263 142 3 0 0 0 - - -; +#X floatatom 290 142 3 0 0 0 - - -; +#X text 166 141 from; +#X obj 107 186 print message; +#X obj 107 91 udpreceive 9997; +#X text 32 16 udpreceive receives bytes over a udp connection.; +#X floatatom 318 142 5 0 0 0 - - -; +#X obj 209 116 unpack 0 0 0 0 0; +#X text 265 235 Martin Peach 2008/11/05; +#X connect 6 0 5 0; +#X connect 6 1 9 0; +#X connect 9 0 0 0; +#X connect 9 1 1 0; +#X connect 9 2 2 0; +#X connect 9 3 3 0; +#X connect 9 4 8 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

← Newer
1
...
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs November 2008