World: r3wp

What did i write? Trying explanation again.. We need do/next to know 
which blocks are in the next expression. Then expand only these. 
But by using do/next, we have already used the old, unreduced blocks..

So the workarounds is to expand all blocks at once, either before 
reducing that level or after. breaks a bit semantic, means do not 
depend on evaluation-order.

thanks...sorry, got pulled off by my daughter to google when her 
power would be restored...your thoughts here are greatly appreciated, 
as always, Volker.

I went down this road once. Using do/next terribly slows things down. 
I think that you need parse for this.

Just passing. Thought that the function would be interesting, came 
up with this draft.

reduce-deep: func [
	block [block!]
	/local queue result file eval-state sub-result
][

	; Initialise
	queue: make list! 10
	result: reduce []


 ; Loop until we exhaust all unfinished blocks and we exhaust current 
 block.
	until [

		either empty? :block [
			; If finished this block, but more to process - add our
			; result to higher block result and set that block as current.
			if not empty? queue [
				set/any 'sub-result get/any 'result
				set [result block] queue/1
				insert/only tail result get/any 'sub-result
				queue: remove queue
			]
		][

			; Process current block item.

			either block? block/1 [
				; Save current level to process later,
				; set this new block as current.
				queue: head insert/only queue reduce [result next block]
				result: reduce []
				block: block/1
			][
				; Evaluate item.
				eval-state: do/next block
				insert/only tail result eval-state/1
				block: eval-state/2
			]
		]

		all [tail? block tail? queue]
	]

	; Return final result
	result
]

Not robustly tested.

How can I access a network drive?

I'm sure it's just  %uncname/

Humm. Not working here.

perhaps it's %/uncname

IIRC /myserver/volker/...

umm.. tried leading double slash ? eg. %//uncname/

My primary scsi hard drive in my server killed windows 2003 somehow. 
 It fails the seagate diagnostics though the seatools can't identify 
the drive.  I put in another scsi drive but even though they all 
have different ids, the new windows 2003 server dies when I reattach 
the old drive ( i want to recover files off it ).  It just reboots 
even in safe mode.  Anyone any ideas as to why it should do that?

Unfortunately BartPE doesn't have the driver for the scsi controller 
so I can't use that to examine the drive.

oops .. wrong channel.

Not of the suggested ways work for me. I am using XP.

Maybe you can read a file directly from the share, but it looks like 
you can't access it because you can't CHANGE-DIR to it ?:

http://www.rebol.org/cgi-bin/cgiwrap/rebol/ml-display-thread.r?m=rmlPCHJ

Hey! The rebol.org mail search is pretty good ! Faster than my computer. 
:)

Thanks Anton! We had some fun tuning it (it's done with just REBOL 
objects and blocks by the way)--- It should be even faster if implemented 
on your computer as REBOL.org runs (as far as I can tell) on a shared 
1ghz machine with the slowest hard drives outside of a museum.

context question:
If I inside a context block (an object) in one program write:
do %some-program.r

then I can't reach words and functions in the first program from 
the second. I've also tried to bind words to the first context, but 
without luck. Any ideas? Maybe I should put 2 small test-scripts 
here:

prg1.r:

REBOL []
mycontext: context [
do %prg2.r
o: context [
	f: does [print "Hello World!"]
]
f2
]

prg2.r: 

REBOL[]
f2: does [o/f]

I get this error:

>> do %prg1.r
** Script Error: o has no value
** Where: f2
** Near: o/f

If I exclude mycontext from prg1.r binding the words to the global 
context, then it works. But that's not a nice solution.

this may work:

prg1.r:

REBOL []
mycontext: context [
#include %prg2.r
o: context [
	f: does [print "Hello World!"]
]
f2
]

include %prg1.r

you just have to use my INCLUDE function

Okay, taking a look...

http://www.fm.vslib.cz/~ladislav/rebol/include.r

Hmm, still doesn't work.

checking

REBOL []

do %include.r

mycontext: context [

include %prg2.r

o: context [
	f: does [print "Hej!"]
]

f2
]	; context

That was prg1.r

wrong

do %include.r can be only in your user.r

okay

and, moreover, copy the example I posted, don't forget #include !

So I do
#include %prg2.r
inside mycontext in prg1.r? And then write
include %prg1.r
to run it?

>> include %prg1.r
** Script Error: o has no value
** Where: f2
** Near: o/f

oops sorry, forgot something. I got it working now.

Thanks!

you are welcome, what did you forget, btw? (asking to be able to 
warn other users)

Mixed include with #include

yes, that is a gotcha

I should probably write some instructions

do you find INCLUDE useful?

I wish, something like your include would be part of core. I'm about 
to use such a functionality with my Canvas project, but it's not 
optimal, as it is now.

INCLUDE is available for you, it would be even better if you wrote 
a few usage notes

The functionality is very usefull. (Maybe your include can do a bit 
too much. I like it simple.) Maybe I could just do %include.r at 
the start of canvas.r, so people doesn't have to do it in their user.r 
files. Or I should go another way and make it one big file for now!? 
Hmmm well, I would like to do modules later on, so only the parts 
needed is included.