[REBOL] Re: How to improve request-file ?
From: ryanc:iesco-dms at: 22-Jan-2002 12:32
> load/dir %. - [[dir1/ dir/2 dir/3] [file1 file2 .... fileX]]
Dont let that stop anybody. There is more than one way to skin a cat.
dir-split: func [contents [block!] /local blk][
blk: copy/deep [[] []]
foreach name contents [append either #"/" = last name [blk/1] [blk/2] name]
return blk
]
How fast?
>> t: now/time loop 1000 [dir-split read %.] now/time - t
== 0:00:04
>> length? read %.
== 79
>>
Thats was running on a 450 Mhz box, but still a blink of an eye even on a 100
Mhz box.
--Ryan