World: r3wp

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.

generally #include %something means "put here the contents of %something", 
while include %something means "find %something, process it and do 
the result"

regarding your questions: you can use INCLUDE to make a one big file 
if you like

But as I understand it, rebol doesn't allow contexts to be mix-matched, 
like I would like to do with a simple: do %something.r

There is a way how to do %include in your files, if required, of 
course

DO doesn't work as that, it simply does the file without including 
its contents

in this case holds, that DO isn't the instrument that can be used 
for this kind of work

How do I use INCLUDE to make one big file from scripts?

include/link %input-file %output-file will create a big %output-file

(which contains everything necessary to DO it)

you can try it on your example to see the difference

Like:
include/link %prg1.r %output.r
include/line %prg2.r %output.r
?

line = link

It just makes %output.r the same as %prg2.r

include/link %prg1.r %complete-prg.r is enough

the %complete-prg.r will contain %prg2.r

ah! :-)

one possible "simple" way:

do bind load %prg2.r self

but if you have nexting contexts, you're going to need multiple binds. 
also, while DO changes dir to the script's location, LOAD doesn't. 
so there is a difference. but, you can get into this kind of problems 
with #include too.

yes, that is another variant, although I prefer #include in this 
case (it changes dir, btw.)

(but only when doing preprocessing, i.e. some care needed anyway)

Gabriele, thanks! That "do bind load <something> self" is, what I'm 
after. :-)

That should be in the "Idiom Dictionary", Carl was talking about: 
http://www.rebol.net/article/0113.html
(When REBOL/Services or LNS is out.)

anyone got a definition for ++ ?  I thought I had seen one before 
but google failed me :(

; original simple functions
;;++: func ['a][do compose [(to-set-word a) (a) + 1]]
;;--: func ['a][do compose [(to-set-word a) (a) - 1]]
;;+=: func ['a 'b][do compose [(to-set-word a) (a) + (b)]]
;;-=: func ['a 'b][do compose [(to-set-word a) (a) - (b)]]

;++: func ['word][set word 1 + get word]
;--: func ['word][set word -1 + get word]

; handles paths 

++: func ['v [word! path!]][do reduce [either path? v [to-set-path 
v][to-set-word v] v '+ 1]]

--: func ['v [word! path!]][do reduce [either path? v [to-set-path 
v][to-set-word v] v '- 1]]

+=: func ['v [word! path!] value][do reduce [either path? v [to-set-path 
v][to-set-word v] v '+ value]]

-=: func ['v [word! path!] value][do reduce [either path? v [to-set-path 
v][to-set-word v] v '- value]]

Gee, you've got a few piled away there!

I don't actually use them. (maybe in one old program somewhere).

Just a small question: is it possible to delete directories from 
Rebol? 'delete seems not to work, or is it because the dir is not 
empty?

Try placing a "/" at the end of the dir:  make-dir %test  delete 
%test/

Oh, and yes, it needs to be empty.

There's also DELETE-DIR.

See Gregg, another secret solved. I didn't see that in the dictionary.