World: r3wp

is it possible to change file permissions via FTP with rebol?

YEs.

We need to yell at Dan, and get him to post the source to FTPGadget. 
 It has examples of just about everything for FTP.

I truly don't even know what is holding that up.

that would be nice

I bitched at Cal and Dan.  I think there is nothing holding them 
up.  At one point it was that the code only ran on 1.2.5, so they 
should post this in the next few days.

put it in their Qtask queue ...

It is, but since it is not a priority it can't be given a deadline.

In fact, if you are part of the Qtask Contractors project, you can 
read everyone's tasks.

is there an easy way to print numbers with thousands separators? 
I seem to keep resorting to complex solutions that not always work.

printf ?

This may help http://www.rebol.org/cgi-bin/cgiwrap/rebol/ml-display-message.r?m=rmlVVYS

Found via the ML Topic Index under format/numbers with commas

great! thanks

quite a bit of code there. hopefully my suggestion for EXTRACT for 
REBOL3 will be accepted :-) that would make this a whole lot simpler

oh, works only on integers :-(

graham, I looked at printf and it seems to require a DLL interface?

I don't think that printf will insert comma separators from looking 
at the man page.

I have this:

>> form-decimal 10 0
== "10"
>> form-decimal 10 2
== "10,00"
>> form-decimal 100000 2
== "100'000,00"
>> form-decimal 100000 0
== "100'000"

very old... result is rebol loadable

not sure code is readable... but if you want to play with it anyway...

that looks good

as long as it's readable to rebol :-)

$ echo "1234567890" | perl -pe '1 while s/(.*)(\d)(\d\d\d)/$1$2,$3/'
   1,234,567,890

http://www.sunmanagers.org/pipermail/summaries/2002-December/002817.html
and there's an awk script on the same page

Try this thread, which includes a version of Gabriele's form-decimal 


http://www.rebol.org/cgi-bin/cgiwrap/rebol/ml-display-thread.r?m=rmlLTLK

All the versions are quite long though.

gabriele's solution works fine here :-)

Did you notice the ; ***WARNING*** positive numbers only.

the version i sent him is the older, more generic one, which uses 
italian rules for formatting (, to separate decimals, ' to separate 
groups of 3 digits)

graham, the above regexp can be written in parse as:

digits: charset "1234567890" reverse rewrite reverse "1234567890" 
[[x: 4 digits] [(copy/part x 3) "," (pick x 4)

using my rewrite function

sorry, should be: digits: charset "1234567890" reverse rewrite reverse 
"1234567890" [[x: 4 digits] [(copy/part x 3) "," (pick x 4)]]

>> digits: charset "1234567890" reverse rewrite reverse "1234567890" 
[[x: 4 digits] [(copy/part x 3) "," (pick x 4)]]
== "1,234,567,890"

i wouldn't suggest doing it this way though ;)

to-comma: func [ n [number!]
	/local tx result
][
	tx: reverse form n
	result: copy ""
	while [ not tail? tx ][
		repend result [ part: copy/part tx 3]
		tx: skip tx 3
		if all [ not tail? tx 3 = length? part ][
			append result ","
		]
	]
	reverse result
]

no decimals ...

don't forget that if you use comma to group digits, you can't load 
it back in rebol anymore.

Rebol uses ' as a separator

to-comma: func [ n [number!]
	/local tx result parts left right
][
	one-comma: func [ tx /local result ][
		result: copy ""
		while [ not tail? tx ][
			repend result [ part: copy/part tx 3]
			tx: skip tx 3
			if all [ not tail? tx 3 = length? part ][
				append result ","
			]
		]
		result
	]
	parts: parse tx: form n "."
	left: reverse one-comma reverse parts/1	
	either found? parts/2 [
		right: one-comma parts/2
		rejoin [ left "." right ]
	][
		left
	]
]

handles decimal points as well.

>> to-comma 1
== "1"
>> to-comma 1234
== "1,234"
>> to-comma .1
== "0.1"
>> to-comma .1234
== "0.123,4"
>> to-comma 1234.1234
== "1,234.123,4"

I have trouble sending a BCC email with the new send function. Can 
anybody verify ? (I am using authenticated smtp)

h: make system/standard/email [ BCC: [copy-:-domain-:-com]]

send/header [to-:-email-:-com] msg h

Vaguely I think it should be: reduce ['bcc [copy-:-domain-:-com]]

no sorry, let me try...

don't think send supports cc

Yes, that's right, SEND is BCC by default.  Note the /show refinement: 
  /show "Show all recipients in the TO field"    That means by default 
they are not shown.

looking at send source, /show just clears the header to field, so 
it works when you send to multiple recipients and each one doesn't 
see who else received the email. When a message is sent to a single 
recipient the client shows the message is directed to you anyway. 
The trouble is this is not bcc