AltME: Rebol School

Messages

Gabriele
the code i used on R2 was:
time*: func [n block /local start] [
        start: now/precise
        loop n block
        difference now/precise start
]
time: func [block /local count time result] [
        time: 0:00
        count: 1
        while [time < 0:00:01] [
                time: time* count block
                result: divide to decimal! time count
                ; multiply by two for faster convergence
                ; (ie. aim for 2 seconds)
                count: 0:00:01 * count * 2 / time
        ]
        result
]
>> time [1 + 1]
== 7.25799625998013E-8
>> f: does [1 + 1]
>> time [f]
== 1.39604952270899E-7

Drake
How do I save the contents of  dir-list to a file from the console ?
Drake
Solved.   Checked out  http://business-programming.com/business_programming.html#section-12.8 and saw the code snippet that uses echo which I didn't know existed.
amacleod
Drake, No need to post in multiple groups...we will see it.

Endo
Does DIFFERENCE works faster on hash! than block! ?
Endo
How can I upload files to a already open FTP port?
p: open ftp://localhost/
INSERT or APPEND don't work. WRITE doesn't accept port!.
If I use WRITE ftp://test:test@localhost/ READ %file.txt then it opens a new connection each time, which I don't want.
sqlab
ftp (re)uses up to the value of cache-size different ports. If you set p/cache-size to 1, it should always use the already opened port.
sqlab
or maybe it is system/schemes/ftp/cache-size. At the moment I can not test it.
Endo
Thank you sqlab. Still is there a way to use OPEN port and upload files via already open port?
Do I remember correctly? CALL hangs on Windows only on R2/view (if no CALL/SHOW " " trick), no such bug in R2/Command right?
Gregg
I don't know if the problem affects command as well, but I would guess it does. My workaround is to make at least one CALL on startup with /SHOW, then the rest work fine without it.
reb-console-ctx: context [
    console-primed?: no
        
    set 'prime-call-console does [
        if not console-primed? [
            ; Under some versions of Windows, and recent versions of REBOL,
            ; we have to prime the console to make /output work correctly
            ; without using /show with every call (which flashes).
            ; Only do this if CALL has a /SHOW refinement though, otherwise
            ; it will crash.
            ; The /wait is important. If it isn't used, sometimes a console
            ; app will stop the windows message pump until you open a menu
            ; or something else that gets it going again.
            if find first :call /show [call/wait/show ""]
            console-primed?: yes
        ]
    ]
      
]
sqlab
@Endo, do you mean using the same port for ftp commands and data? If yes then you have to set passive to true.
Endo
@Gregg: Yes, I encapped my script with Command (no View) and it hangs when I use CALL/wait/console. I thought that the problem was on View only, but it's not.
Endo
@sqlab: I meant uploading a file via already open port!
ftp-port: open ftp://localhost/
; do something ...
; upload using ftp-port, how?
insert, poke, append etc. don't work..
@sqlab: I meant uploading a file via already open port!
ftp-port: open ftp://localhost/
; do something ...
; upload using ftp-port, how?
insert, poke, append etc. don't work..
@sqlab: I meant uploading a file via already open port!
ftp-port: open ftp://localhost/
; do something ...
; upload using ftp-port, how?
insert, poke, append etc. don't work..
@sqlab: I meant uploading a file via already open port!
ftp-port: open ftp://localhost/
; do something ...
; upload using ftp-port, how?
insert, poke, append etc. don't work..
oh my internet connection problem leads to multiple send, sorry about that.

sqlab
If I remember right, Rebol2 should cache an already opened port to the same destination an reuse it for follwing actions.

Last message posted 188 weeks ago.