World: r3wp

http://vbnet.mvps.org/index.html?code/fileapi/folderdatetime.htm
for visual basic, googled "windows change directory date api"

can zip do it?

>> to-block %test
== [test]
>> to-block %test/
** Syntax Error: Invalid path -- test/
** Near: (line 1) test/

>> b: copy [] insert b %test/
== []
>> b
== [%test/]

file! is an any-string and thus sourced. probe to-block %"1 + 2"

only usable for loading from strings, or with some caution IMHO.
  probe to-block mold/only %test/

Hi, is it possible to restore the date of a file which was read via 
ftp?

How about not using ftp and try Coyote :)

>> foo: [a [does this]]
== [a [does this]]
>> bar: [b [does that]]
== [b [does that]]
>> rejoin [foo bar]
== [a [does this] [b [does that]]]

Is there an equivelant function that would give me:
== [a [does this] b [does that]]

>> A: []
== []
>> insert A bar
== []
>> insert A foo
== [b [does that]]
>> ? A
A is a block of value: [a [does this] b [does that]]

Yep, I can fudge it that way, but I was looking for a single function, 
like 'rejoin or 'reduce

Or, if you don't mind changing 'bar:
>> insert bar foo
== [b [does that]]
>> ? bar
BAR is a block of value: [a [does this] b [does that]]

There probably is, but I prefer simpler commands so I know what's 
going on  (^.-)

ah

compose [(foo) (bar)]

How about...

>> foo: [a [does this]]
== [a [does this]]
>> bar: [b [does that]]
== [b [does that]]
>> append copy foo bar
== [a [does this] b [does that]]
>> compose [(foo) (bar)]
== [a [does this] b [does that]]

ugghhh I still needa get used to 'copy

No, specifically looking for -- word [foo bar]

I have a feeling that if 'reduce doesn't do it, then nothing will...

>> one-word: func [block /local val][val: copy [] foreach word block 
[append val get word]val]
>> one-word [foo bar]
== [a [does this] b [does that]]

;~>

I should have specified built-in...

Hehe, I expected that. ;~>

Although, I don't understand why.  It is a one-line solution so I 
don't see why it should make a difference if it is built in or not...

I was thinking (name pending) --

one-word: func [blk][head while [not tail? blk][blk: change/part 
blk get blk/1 1]]

I'm not partial to creating new values when I don't have to :^)

I think I like that better.

I think that this functionality should be added to GET

There are quite a few words in REBOL that, IMHO, should have automatic 
block handling.

Hmm, and I was thinking of a refinement to 'reduce.  'Get makes more 
sense...

... Is there a quick trick to compare 2 pairs??  Seems 'lesser? or 
greater? dont work on pairs...

Tell me, is 10x0 or 0x10 greater?

from my point of view its equal ;-)

Thansk for the wakeup call ;-)

Are you thinking about this?
>> data: 10x0
== 10x0
>> data/x
== 10
>> data/y
== 0
>>

I'd just compare X and Y values separately...

perhpas yes...

Yes thats what i do currently...

Are you trying to compare area?  -- greater-pair?: func [p1 p2 /local 
ps][ps: reduce [p1 p2] pick ps (p1/x * p1/y) > (p2/x * p2/y)] -- 
which can be tweaked for when p1 and p2 are equal...

Thanks Chris... i worked it out by splitting the pair into parts...

Chris:

>> foo: [a [does this]]
== [a [does this]]
>>  bar: [b [does that]]
== [b [does that]]
>> foobar: compose [(foo) (bar)]
== [a [does this] b [does that]]

ah, it's there already

Yes it is - but he wants [foo bar] to become  [a [does this] b [does 
that]] without the () or anything else inside..

I think the answer is: it's not in current rebol.

Yep, I'm resigned to that.  (and I'll word my queries a little better 
next time :^)

http://www.rebolforces.com/articles/pairs/

A nice one...

how does one find out the currrent secure level?

secure query

a nice 1x1...