World: r3wp

to-local-file what-dir

it removes the trailing "/"

Yep, the DOS/Windows way of representing directories is buggy. Rebol 
is not at fault here.

what's the easiest equivalent to:

>> set to-path [a b c] 7 ; doesn't work

where the block may be a set of arbitrary words in an arbitrary object.

Certainly not the most elegant sollution:
set-path: func [pth val /local rslt][
	rslt: copy []
	head insert/dup head rslt [in get] -1 + length? pth

 repeat i length? pth [append rslt to block! form to path! reduce 
 ['pth i]]
	set do bind rslt 'pth val 
]

>> a: context [b: context [c: 0]]
>> a/b/c
== 0
>> set-path [a b c] 7
== 7
>> a/b/c
== 7

wow, that's a lot of stuff alright...

well, it seems to work, thanks :-)

do reduce [to set-path! [a b c] 7]

hehe I knew there's some simple way :)

ladislav, I did that one, but somehow I have trouble binding the 
result to the original object

yes, the word 'a must have proper context for this to work

do reduce bind [to set-path! [a b c] 7] 'a does not seem to work

rebolek: it doesn't handle paths with indexes in them. I don't always 
store objects inside objects, but also blocks of objects. are there 
ways around that?

do reduce bind [to set-path! [a b c] 7] 'a does not seem to work

 - right, that is not supposed to do anything meaningful, it simply 
 keeps the context the word 'a had

>> a: context [b: context [c: 0]]
>> do reduce [to set-path! [a b c] 7]
== 7
>> a/b/c
== 7

If 'a does not have meaningful context, then bind [...] 'a cannot 
repair the situation

but 'a does have a meaningful context. I'll have to try a different 
approach.

load mold reduce [to set-path! ... ] seemed to work

You shouldn't have to do that (load mold). Can we see a bit more 
of your code ?

rel-obj: make object! []

add-relation: func [path-block [block!] /local p v w] [
  p: to-block 'rel-obj
  parse path-block [
    any [
      [set w word! (
        unless all [

          find either object? do to-path p [first do to-path p][[]] w
          insert tail p w
        ] [

          do load mold reduce [to set-path! p make do to-path p reduce [to-set-word 
          w none]]
        ]
      ]
   ]
]

I'm not sure it's enough...

it's only a small part of the function

usage example of add-relation ?

eg..  add-relation [...]   <-- what's in the block.
And what's the result supposed to be ?

I'm rewriting my relations engine, if you remember that one.


I need to traverse rel-obj via paths, so I store the path as words 
in a block. This is in order to maintain the current position in 
a deep object.


The input can be any arbitrary path of words and values. If the values 
or words don't exist, they will be created on the fly. That's what 
I use 'p for.

Ah I see.

the code with the do load mold... is supposed to insert a new object 
at the path position if the current value at that point is 'none. 
I removed some of that "if none?" logic for clarity.

So rel-obj can start out completely empty, but fill with values afterwards 
?

yes. an example could be if rel-obj was empty:

add-relation [users male "Joe"]
add-relation [users female "Jenny"]

later on, when you look it up, it's supposed to look like:

get-relation [users]
== [male female]
get-relation [users male]
== ["Joe"]

You can go deep:

add-relation [users male "Joe" age-group "Senior"]

And you can do reverse relations:

add-relation [age-group "Senior" users "Joe"]

the rules and structure is completely arbitrary, which is one of 
the stronger points of the relations engine.

however the current version forces you to use a path block structure 
of [word value word value word value...] which forces you to choose 
a value that will not be used for branches where only one path should 
exist. that's why I'm doing a rewrite.

I suspect you are assuming you can extend objects, which cannot be 
done in rebol currently.

the relations engine already does that :-)

but I need some more freedom in the path block

No, I mean extending objects and keeping the same object.

>> a: make object! []
>> b: make a [new: none]
>> same? a b
== false

yes, but that problem was solved long ago.

ok.

I simply re-make the object with itself plus the new branch inside 
rel-obj. works fine, but there's some stuff to manage.

I think you might have found a bug. I see something which I find 
hard to explain:

oh?

well, I have to go to bed now, so good luck with the bug hunting 
:-)

>> obj: none
== none
>> path: [obj]
== [obj]
>> code: reduce [to-set-path path 'make to-path path [new: 123]]
== [obj: make obj [new: 123]]
>> print code/1/1 = 'obj
true
>> ?? code
code: [obj: make obj [new: 123]]
== [obj: make obj [new: 123]]
>> do code
== none ; <-- what a strange result !
>> ?? obj
obj: none

Same here. Sleepies :)

a path with only one element is probably not supported.

(btw, you're doing make none [new: 123] so obviously you get none, 
Anton :)

isn't a path with one element pretty useless then? I just wish that 
set would work on paths. it makes sense to me.

+1 for set on paths!

a path with one element is useless indeed. you cannot create it normally; 
it's like words with a space, or issues with a space, and so on. 
they exist, but they are not "valid" in a strict sense.

%/C/
Pretty useless directory path - it's only got one element.