World: r3wp

to do what is explained here http://www.smackfu.com/stuff/programming/shoutcast.html

oldes ?

you can use something like:

 maxlen: 20 * 4096
 p: open/no-wait/direct tcp://ifb.impek.com:8000
 insert p "GET / HTTP/1.0 ^/Icy-MetaData:1 ^/^/"
 data: copy #{}
 while [not none? buf: copy/part p 2048][
 	append data buf
 	if maxlen <= length? data [break]
 ]
;do something with data 
 close p

but why? You get the ICY using the method above as well. And if yu 
need song data, these will be in ID3 tags.

and the ID3 will be on the song start so this would require to listen 
the stream for some time and parse it

also instead of:
 while [not none? buf: copy/part p 2048][
using:
while [buf: copy/part p 2048][
which is more ROBOLious :)

I just don't get why REBOL is changing the LF to CRLF, but I was 
not doing network coding for a very long time.

in fact the ICY we get with your method is a warning notice inviting 
you to use winamp and not the ICY with the song title and artist 
name wich are the information i want ...

anyway i can work with the HTML version ...

oldes have you read the  site i gave earlier ?

oh osrry i didn't read the whole replies ...

ok thank you very much i will try that

no.. I don't have much time now.. I don't think it's warning. I can 
try to sniff real winamp communitacion later. Also we are really 
off topic here

but with the request injection the reply is the data ....

rhat's what the PHP script does it  get the raw data tehn locate 
the metatag part and extract the needed data

check this:
 maxlen: 20 * 4096
 p: open/direct/binary tcp://ifb.impek.com:8000
 insert p "GET / HTTP/1.0 ^/Icy-MetaData:1 ^/^/"
 data: copy #{}
 while [buf: copy/part p 20048][
 	append data buf
 	probe length? buf
 	if f: find buf "StreamTitle" [
 		probe as-string copy/part f find f ";"
 		break
 	]
 	if maxlen <= length? data [break]
 ]
 probe length? data
 close p

oldes with you last methode we get the information i want 
oldes with you last methode we get the information i want 

StreamTitle='RACHID TAHA   �  BONJOUR';StreamUrl='';            �v�M�Q��(�@K�� 
�����                 ���@  �abm@]�k���
�az�� 
��

I know:) but you should parse it using some better way, if you want 
to also store the MP3

so i do a find "StreamTitle=" or a parse data [ some [ "StreamTile=" 
 copy artistsong thru ";StreamUrl="]

in  order to isolate the  inforation i want

oldes i don't care the MP3 i can't decode it with rebol ....

no.. the StreamTitle is just a part of the ICY info

i just want the StreamTitle information ...

ok, if you need only the name, than it should be enough, if you don't 
get the info just in the buf border

btw, I like Rachid Taha's music:)

yeah that's the new one  ok i made a HTML version oldes if you want 
to see the bot

irc.quoimagueule.com:6667 #maurice

ok it work perfect thank you oldes  ^^

hum the HTML modeparsing is faster than the binary version T___T 
at least i learned many things on the net area...

thank you very much for your time oldes

because the binary is used for player, and zou first get about 40kB 
of data before the name.

yeah

oldes one day we will do a winamp streaming player  using Rebol 3 
 in only 10 lines :P

About comparing pairs, currently we've got an error...
>> 1x1 < 2x2
== script error! cannot compare pair! with pair!

Is that "y" must take precedence over "x" (as in R2), or not. 
But a default behavior must be taken.


Personnaly I prefer no coordinate precedence (i don't really care).
i.e. :
>> pair1 < pair2
as
>> pair1 = min pair1 pair2

I agree

Isn't this more correct?
(pair1 = min pair1 pair2) and (pair1 <> pair2)

Yours is the same as:
pair1 <= pair2

correct

IMO both coordinates should be lesser for < to return true. If you 
want to compare the x or y coordinates on their own, do so.

So p1 < p2 would be the same thing as (p1/x < p2/x) and (p1/y < p2/y).

It's also problematic using MIN with pairs to make some rules, as 
can be seen with this example:

>> min 2x2 3x1
== 2x1


It seems, MIN can create a new value, that isn't among the input 
values. Related to this is complex numbers, that have a real and 
an imaginary part (like 2D coords have two parts). In e.g. Python, 
you get an error, when using inequalities (<, >, <= and >=) with 
complex numbers. In math, it doesn't really make sense to use an 
equality with two complex numbers. You can do that with the absolute 
value (like length of a vector).


So maybe it's more correct to give an error, when comparing pairs 
this way, like R3 does now.

or use the rules found here:

http://en.wikipedia.org/wiki/Inequality#Complex_numbers_and_inequalities
and here:
http://en.wikipedia.org/wiki/Inequality#Vector_inequalities

http://www.rebol.net/r3blogs/0299.html

Juicy stuff now.

what is command! type ?

This is a function exported from extension, becaouse you can write 
different function using differend type of arguments it is globally 
called command! Another thing is some abstraction in names used in 
future things in (Carl's) mind.

http://www.rebol.net/r3blogs/0300.html

New 'export method.

http://paste.factorcode.org/paste?id=1057Is this dumb proposition 
?

Janko, I don't see the need, we can do that easly, using bindology.

make-report: func [ data ]  bind [
    p: new-page
    f: font "arial" 12
    goto p 100 100
    print p f data/title newline
    row p f [ "item" "qty" "price" ]
    save p %file.pdf
] haru-pdf

even better then :) .. but what is haru-pdf in this case ? is it 
a module?

and can you put more than one in-there?  for example two modules 
[ haru-pdf image-loader ]  ?