World: r3wp

and for gurus - what happens here? :-)

foreach :b a [print bind b first :b]
3 3
3 3
3 3

I want to use 'X, without using 'x :-), but somehow foreach :b a 
[print get b/1]] does not return result I expected (1 2 3), it returns 
(3 3 3)

sorry, my bug - I needed to restart concosole, "get b/1" in context 
of 'foreach is unknown ...

foreach makes new context, not touching the old vars. kind of locals.

I know, I just somehow wished to abstractly use b/1, to get x in 
a

>> b: [x y]
== [x y]
>> foreach :b [1 2 3 4 5 6][bind b 'x print get b/1]

yes, I know, but you used 'x ... that is the tricky question - we 
wanted to create it dynamically, so we wanted to use bind b b/1 (we 
thought that instead of b/1 interpreter somehow will understand cleverly, 
that we mean x in context of foreach function :-)

>> foreach :b [1 2 3 4 5 6] compose/only [b: (b) print get b/1]

its ugly. problem is, the context exists only inside the foreach-body. 
here i put the same words (b) in the body and those they get rebound. 
but foreach copies the body before first run, so i have to assign 
b again.

ha, that was easy ;-) ...we tried to struggle in context  level and 
forgot about ability of dynamically building code for interpreter 
itself :-)

but i guess once you start having ideas about it you will find something 
nicer ;) - yes, like building the whole code dynamic maybe.

but you redefined original 'b block in context of foreach body ....

>> foreach :b [1 2 3 4 5 6] compose/only [b: [x y z] print get b/1]
1
3
5
>> b
== [x y z]

so 'b in context of 'foreach body is global ... so it redefines original 
'b, but it is ok for our example, thanks ...

You could use another var-name, i just reused 'b

foreach :b [1 2 3 4 5 6] compose/only [words: (b) print get words/1]
 and done ;)

but its not necceary here, as it keeps the same word-names, only 
with different bindings. so if you run the code again, the names 
are the same, the binding shall change anyway.

:-)

Oops, i completely forgot about firskip ! Which you may use instead!

>> b: [1 2 3 4 5 6]
== [1 2 3 4 5 6]
>> forskip b 2[print [b/1 b/2]]
1 2
3 4
5 6

if you really need words, these would be global and easier to reach:

>> words: [x y]
>> forskip b length? words[set words b  print[x y]]
1 2
3 4
5 6

(remember view begins with 1.3, because some little things on forskip 
have changed ;)

(but the foreach may be a little bit faster)

Hmm.  I just noticed that rebcmd comes up saying "Component: Graphics 
1.3.0 blah ... " ... what is Graphics doing in core ?

Perhaps to allow image manipulation, for example in a CGI script?

exactly (afaik).

yep, that is the 'face part without VID or X libs needed'

Use the 'draw function to handle draw blocks.

Does one can explain :

>> b: next next [1 2 3]
== [3]
>> head b
== [1 2 3]
>> head copy b
== [3]
>> c: [9]
== [9]
>> insert/only c b
== [9]
>> c
== [[3] 9]
>> d: copy/deep c
== [[3] 9]
>> head d/1
== [1 2 3]

head copy b

 show that 'copy only copy the block at the position we point into.

So why does 'copy/deep don't ?

about graphics in core: would that mean you could create graphics 
without requiring an X server if used on BSD/Linux? I believe that 
X is normally necessary...

Dide, Good question for Carl.

Henrik: yes. Command has grafx capabilities without VID and without 
requiring X. So you can typically save/png etc.

x ins necessary for fonts-handling. rest would work without it. except 
that /view does some initialisations at startup and fails without 
view.

(means without X)

Regarding the question on the mailing list on extracting a series 
of duplicates, I wonder why Rebol doesn't allow us to subtract one 
series from another.  If we are allowed to append one series to another, 
why not allow us to subtract?
But I guess the problem then is sameness.

we have that with set-operations. only it does not keep duplicates 
(i prefer it this way). And the duplicate-thing can be solved in 
a little loop, as gabriele showed.

As Volker says, exclude acts as a sort of subtract, but does not 
handle duplicates in the way the questioner needs.
>> exclude [1 2 3 4 5] [ 3 5]
== [1 2 4]

Are any technical details on encloak and decloak functions ?

I think this is as technical as it gets
http://www.rebol.net/cookbook/recipes/0023.html
Which tells you it is SHA1

thanks. The key is SHA1 encoded makes me guess that it's hard to 
break the key but not the "encrypted" content

Is there anyway to get the ip address of the local computer?  My 
problem is that I use a VPN for some functions and have other techs 
that do also and wanted to make a utility that could simply determine 
what subnet they are on.  Problem is that I get the local ip of the 
lan and not the other interface ip's.  Anyway to get those?

This is one of my more major problems with REBOL - it is an internet 
language as advertised so you assume tasks like this would be simple 
or for example enumerating connected or listening ports, retrieving 
a routing table etc.  At least I can use call to get some other application 
to do it for me.

Does this do it?
 read join dns:// read dns://

that returns local loopback on my fedora core installation

When I did the above, I was using a dhcp supplied address.  When 
I change to a static ip, I get the same result.

Sunanada - that only returned the lan interface ip but not the vpn 
interface ip that I wanted to get