World: r3wp

use append copy path word

also, you need to reduce your blocks above, because you have words 
in them, not subblocks.

Thanks.  I should also have used a type block in my func 

   augpath: func [ {augment a path with a word} path [path!] functor 
   [ word! ] /local p ] [

Once there are only subblocks it becomes trivial;  I have been trying 
to augment a path! series which starts with a block in which a tagged-word 
is bound to a block .  By augment the path I mean to return a path, 
not the result of evaluating the path
  t1: [ a-word-with-no-value-functor "one" ]

  t2: [ functor t1 ]  ; t1 is a word, not a block, but is bound to 
  a block at the time the path is extended into it ( if possible without 
  t2 being an object! )
  t2: context [ functor t1] ; also trivial

; this work fine for traversal
>> navpath: func [ pth [path!] 'wrd [word!] /local p42 ] [
[    p42: do pth
[    to-path reduce [p42 :wrd]]
>> pp: navpath path a
== t1/a
>> do pp
== "one"

where path was
path: to-path [ t2 f ]

>> t1
== [a "one"]
>> t2: context [f: t1]
>> t2/f
== [a "one"]
>> t2/f/a
== "one"
>> first t1
== a
>> get first t1
** Script Error: a has no value
** Where: halt-view
** Near: get first t1
>> get first third t2
== [a "one"]

>> do append copy 't2/f 'a
== "one"

if you want to have words instead of the actual blocks in your blocks, 
then you need to "evaluate" the path yourself, which is not too hard.

>> b1: [a b2 c b3]
== [a b2 c b3]
>> b2: [d b3]
== [d b3]
>> b3: [e 4]
== [e 4]
>> eval-path: func [path /local val] [
[    val: get first path
[    foreach elem next path [
[        val: select val elem
[        if word? val [val: get val]
[        ]
[    val
[    ]
>> eval-path 'b1/a/d/e
== 4

(this assumes all elements of the path are blocks)

I realized there was this traversal option using a lit-path! treated 
as a series! but it did not seem to if what I already had was a path! 
 held by a word and I wanted to 'extend' that value with a word.

This arises when the embedded word becomes bound to a different block. 
 In that case an OBJECT! looks to be the only option but then the 
WORDSs in the PATH come already bound to values and so are not 'functors' 
as are 'a 'd and 'e in your example.

I  want to construct a resultant valid path! from a valid path! + 
a lit-word where that word has no value but serves only as functor.

I had hoped that the func to-lit-path would be the answer, but I 
see now that the default Rebol DO path! evaluation precludes this 
kind of 'append'.

I should be able to use a modified version of your eval-path func 
to take as args a valid path! and a word!

My path idea is more like a 'tilde' than our '/' such that I can 
have
        ; blk/key~wrd1~wrd2~wrd3 ... ~wrd-n     ; e.g.,  
    path~wrd1~wrd-i~wrd-j ~wrd-k    ; becomes
; ...
    path2~wrd-m~wrd-n  ;  i.e.,
        ; blk/key/putative-confirmed-key~wrd-m~wrd-n   
PARSE is likely part of the answer if I go that TILDE route.
Once I have a lit-path! your eval-path is the traversal.
A blk of args to a func such as

  construct_dpath: func  [ dpath [lit-path!]  functor-words-blk  [block! 
  ]  /local v1 v2] [ 

should model my case OK and that dpath can be constructed by modified 
versions of your eval-path.  Thanks

hmm, i'm not really sure what your final goal is.

>> p: 'b1/a/d
== b1/a/d
>> append p 'e
== b1/a/d/e

then you can call eval-path on p

i still think it would be much simpler if you just had blocks instead 
of words there :-)

I have this harmless fixation on Oz, the language ;-)
It was a kinda prologue to my coming to Rebol   lol

i'll need to look at it someday... ;)

Hello, I'm trying to write my first program in REBOL, besides "Hello, 
World!", heh. Anyway, I am trying to take the output of the DOS ipconfig 
command and only grab the IP address for my local NIC out of it. 
I would like to display the IP address only in a window in a large 
font. I have played with the call command in REBOL and have been 
able to use call/output to write the output of the command to a text 
file. My question is what would be the best way of grabbing the IP 
address I need out of this text file? Maybe there is another way 
I should be approaching this too, I'm not sure? Your thoughts and 
suggestions are appreciated. :)

Paul;  For one you can skip the intermediate file.  Try
>> res: make string! 80   call/output "ipconfig" res
it'll place the stdout results right in the string res.

Then you have some options.  REBOL has  (to name but two) find and 
parse for this kind of work.

Also take a look at the following functions:

>> system/network/host
>> system/network/host-address

Great, thank you for the quick answers! I'll take a look at this 
new information. :)

Hey!  I was just about to show some parse code and then you come 
along and make it a freebie.  :)  


Paul;  A good lesson right off the bat.  How ever easy REBOL code 
looks.  There is probably something built-in already.  REBOL is definitely 
a blinders off language.  Then again ... I think Ashley has something 
approaching a super power when it comes to quickly seeing alternate 
solutions and big picture implications.  :)

Wow, I just tried Ashley's suggestion, bingo the IP I was looking 
for!

I am actually writing this for use in my job. I am a network support/programmer 
and I work for Nuns. I have been connecting to their computers using 
VNC. I always have to try and tell them how to give me the address 
of their machine after I get them to start VNC. They always have 
trouble. So I thought I could write something in REBOL do they could 
just double click and read it clearly on the screen. That is why 
I mentioned the large font.

do=so

Just for fun; here is one way of pulling the output from ipconfig.

parse res [to "IPv4 Address" thru  ": " copy ip to newline to end]
And that is just one way of many.

Oh, the variable ip has the ip address as string! after the parse.

Paul;  If you are still reading.  You owe it to yourself to check 
out  http://www.dobeash.comAshley has offered the community some 
real killer development tools; RebGUI and RebDB being but two ... 
seperately both wonderful tookits, together, a very powerful combination.

Cool, I will definitely check that out. I just bookmarked it. Thank 
you!

http://www.compkarori.com/cgi-local/whatismyip.r

but that's the outside address

which is what I guess you need for logmein, vnc and remote desktop 
etc

ah, good to know. But actually, I don't want the outside IP, because 
the computers I am connecting too are on our LAN on the same campus. 
But I appreciate the information, it may be helpful later.  :)

You work in a convent ?  :)

Yes.

there is also a college on the same campus that the nuns started 
a long time ago.

why not just assign a static ip address?

Well, there are about 200 computers I would have to do that too.

oh :(

Hehe, thats okay, this was more about me learning REBOL, I just figured 
if I could use it for work, that would be a bonus!

I just wanted simple to start with.

Other way: 
read dns://
read join dns:// read dns://

also:

>> probe get-modes tcp:// 'interfaces
[make object! [
        name: "lo"
        addr: 127.0.0.1
        netmask: 255.0.0.0
        broadcast: none
        dest-addr: none
        flags: [loopback]
    ] make object! [
        name: "eth0"
        addr: 192.168.1.4
        netmask: 255.255.255.0
        broadcast: 192.168.1.255
        dest-addr: none
        flags: [broadcast multicast]
    ]]

Very interesting guys, thanks for all the great comments. You are 
showing me a lot of options in REBOL for this kind of stuff, I like 
it.

Gabriele, when you have multiple alias per nic and multiple nics, 
how do you go about picking a specific interface for a network connection

afaik, you can't with rebol. the os picks the interface for you.

(and when listening, rebol alwasy binds to all interfaces)