World: r3wp
[Core] Discuss core issues
older newer | first last |
Louis 11-May-2006 [4351] | Thanks Jaime, I'll check that out. |
Henrik 12-May-2006 [4352] | is it possible to change file permissions via FTP with rebol? |
[unknown: 9] 12-May-2006 [4353x3] | 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. | |
Henrik 12-May-2006 [4356] | that would be nice |
[unknown: 9] 12-May-2006 [4357] | 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. |
Tomc 13-May-2006 [4358] | put it in their Qtask queue ... |
[unknown: 9] 13-May-2006 [4359x2] | 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. | |
Henrik 14-May-2006 [4361] | is there an easy way to print numbers with thousands separators? I seem to keep resorting to complex solutions that not always work. |
Graham 14-May-2006 [4362] | printf ? |
PeterWood 14-May-2006 [4363] | 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 |
Henrik 14-May-2006 [4364x4] | 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? | |
PeterWood 14-May-2006 [4368] | I don't think that printf will insert comma separators from looking at the man page. |
Gabriele 14-May-2006 [4369x4] | 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... | |
Henrik 14-May-2006 [4373x2] | that looks good |
as long as it's readable to rebol :-) | |
Graham 14-May-2006 [4375x2] | $ 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 | |
PeterWood 14-May-2006 [4377x2] | 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. | |
Henrik 14-May-2006 [4379] | gabriele's solution works fine here :-) |
PeterWood 14-May-2006 [4380] | Did you notice the ; ***WARNING*** positive numbers only. |
Gabriele 14-May-2006 [4381x7] | 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 ;) | |
Graham 14-May-2006 [4388x2] | 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 ... | |
Gabriele 14-May-2006 [4390] | don't forget that if you use comma to group digits, you can't load it back in rebol anymore. |
Graham 14-May-2006 [4391x3] | 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" | |
Joe 15-May-2006 [4394x3] | 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 | |
Anton 15-May-2006 [4397x2] | Vaguely I think it should be: reduce ['bcc [copy-:-domain-:-com]] |
no sorry, let me try... | |
Graham 15-May-2006 [4399] | don't think send supports cc |
Anton 15-May-2006 [4400] | 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. |
older newer | first last |