[PD] comport and bascom avr / ascii2any

[Frank Barknecht]

Hallo,
Hans-Christoph Steiner hat gesagt: // Hans-Christoph Steiner wrote:

> On Nov 17, 2005, at 1:47 PM, Marc Lavallée wrote:
> >Good good, but then, how to combine those single characters into useful
> >messages and lists for PD? That's not an easy task, and that's why I
> >programmed the ascii2any and any2ascii externals. I hope to update  
> >them to
> >the latest Flext, and maybe compile it for Windows...
> 
> You could change [makefilename]s together, or something with the new  
> [list] object would probably be possible.

At first I thought: No way, you'd need at least [list2symbol] for
that, which is impossible to build with just internal objects. Then I
said to myself: Hm, maybe it's not impossible? Then I said down and it
wasn't even that hard to do a [list2symbol] clone using just builtins:
list-2s.pd is attached. Oops, there goes another external previously
used in RRADical ... ;)

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N canvas 424 382 729 381 10;
#X msg 327 196 set %s;
#X obj 235 244 t a;
#X obj 118 252 makefilename %s;
#X obj 96 62 t b a b;
#X obj 96 283 symbol;
#X msg 142 22 a b c d 1 2;
#X obj 118 158 route symbol float;
#X obj 118 186 symbol;
#X obj 178 190 makefilename %d;
#X obj 96 21 inlet;
#X obj 96 313 outlet;
#X obj 395 192 makefilename 1%s%%s;
#X obj 395 165 symbol \$1;
#X msg 405 123 bang;
#X obj 395 89 loadbang;
#X msg 395 228 set set \, adddollsym \$1;
#X msg 235 265 set \$1%s;
#N canvas 0 0 533 407 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 118 123 pd drip;
#X obj 447 124 inlet;
#X connect 0 0 2 0;
#X connect 1 0 16 0;
#X connect 2 0 1 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 3 1 17 0;
#X connect 3 2 0 0;
#X connect 4 0 10 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 6 1 8 0;
#X connect 7 0 2 0;
#X connect 8 0 2 0;
#X connect 9 0 3 0;
#X connect 11 0 15 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 12 0;
#X connect 15 0 16 0;
#X connect 16 0 2 0;
#X connect 17 0 6 0;
#X connect 18 0 12 0;
-------------- next part --------------
#N canvas 333 384 543 295 10;
#X msg 52 90 a b c d 1 2;
#X msg 165 90 a b c d 1 2;
#X msg 288 91 a b c d 1 2;
#X symbolatom 165 154 15 0 0 0 - - -;
#X symbolatom 52 155 10 0 0 0 - - -;
#X symbolatom 288 154 25 0 0 0 - - -;
#X obj 52 127 list-2s;
#X obj 165 126 list-2s -;
#X obj 288 124 list-2s _|_;
#X msg 395 90 symbol PD;
#X connect 0 0 6 0;
#X connect 1 0 7 0;
#X connect 2 0 8 0;
#X connect 6 0 4 0;
#X connect 7 0 3 0;
#X connect 8 0 5 0;
#X connect 9 0 8 1;