AltME: Rebol School

Messages

Gregg
COMP n arg needs to be integer!, not int!.
>> comp 100000 [to integer! 8.0][to-integer 8.0]
atronix-view 3.0.91.3.3 Windows win32-x64 2-Dec-2014/18:03:44
[to integer! 8.0]
0:00:00.046459
[to-integer 8.0]
0:00:00.028882
== -37%
>> comp 100000 [to integer! 8.0][to-integer 8.0]
atronix-view 3.0.91.3.3 Windows win32-x64 2-Dec-2014/18:03:44
[to integer! 8.0]
0:00:00.021502
[to-integer 8.0]
0:00:00.029488
== 37%
>> comp 100000 [to integer! 8.0][to-integer 8.0]
atronix-view 3.0.91.3.3 Windows win32-x64 2-Dec-2014/18:03:44
[to integer! 8.0]
0:00:00.024317
[to-integer 8.0]
0:00:00.028619
== 17%
>> comp 100000 [to integer! 8.0][to-integer 8.0]
atronix-view 3.0.91.3.3 Windows win32-x64 2-Dec-2014/18:03:44
[to integer! 8.0]
0:00:00.04053
[to-integer 8.0]
0:00:00.038208
== -5%

Gabriele
make it run for at least a couple seconds each if you want a stable result.
DideC
Gregg: it seems your machine has several process that take CPU in the background. Hence the funny results.
Has Gab say: make a longer loop (1M) to reduce this effect... or kill process ;-)
Could be funny to 'comp the exact same code and has so different results.
Pekr
Maybe Gregg's machine is reporting to NSA, FBI, CIA and other agencies in the background? :-)

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..

Last message posted 184 weeks ago.