Hi all!
I have such definitions:
(class +DEnt +Entity) #Ancestor for project data classes
(rel id (+Key +String))
(rel dsc (+Idx +String))
(class +Folder +DEnt)
..
(setq +User '(+DEnt))
(extend +User)
(rel nam (+String)) # Full Name
..
Now I try to use iter, scan and collect:
: (collect 'id '+Folder)
-> ({47} {32} {40} {31} {6})
Seems OK
: (scan (tree 'id '+Folder))
-> NIL
: (iter (tree 'id '+Folder))
-> NIL
Why NILs here?
Then I tried with my ancestor class
: (iter (tree 'id '+DEnt))
{47}
{32}
{40}
{31}
{6}
-> {10}
Then I put "USER1" to id of '+User object
: (collect 'nm '+User)
-> ({20} {26} {25} {30})
: (put!> '{20} 'id "USER1")
-> USER1
: (scan (tree 'id '+DEnt))
PROJARCHIV {47}
PROJCOMMUN {32}
PROJPERSPEC {40}
ROOT {31}
USER1 {20}
USERS {6}
-> {10}
: (put!> '{26} 'id USER1)
-> USER1
#I think it should produce error "Not unique" ?
: (scan (tree 'id '+DEnt))
PROJARCHIV {47}
PROJCOMMUN {32}
PROJPERSPEC {40}
ROOT {31}
USER1 {20}
USERS {6}
-> {10}
#Index tree rests the same
So, do these results mean I should not use relation inheritance or is it
bug?
Best regards,
Mansur
--
UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
