(class +DEnt +Entity) #Ancestor for project data classes
(rel id (+Key +String))
(rel dsc (+Idx +String))
#----------------------------
(class +Folder +DEnt)
#----------------------------
(class +User +DEnt)
#(extend +User)
(rel nam (+String))

(pool (tmp "db"))

(new T '(+Folder) 'id "FOLDER1" 'dsc "Folder 1")
(new T '(+Folder) 'id "FOLDER2" 'dsc "Folder 2")
(new T '(+Folder) 'id "FOLDER3" 'dsc "Folder 3")
(new T '(+User) 'id "USER1" 'dsc "User 1")
(new T '(+User) 'id "USER2" 'dsc "User 2")
(new T '(+User) 'id "USER3" 'dsc "User 3")
(commit)
#End of file

: (scan (tree 'id '+DEnt))
"FOLDER1" {2}
"FOLDER2" {6}
"FOLDER3" {7}
"USER1" {10}
"USER2" {11}
"USER3" {12}
-> {4}
: (get '{12} 'id)
-> "USER3"
: (put!> '{12} 'id "USER1")
-> "USER1"
: (get '{12} 'id)
-> "USER1"
: (get '{10} 'id)
-> "USER1"
: (scan (tree 'id '+DEnt))
"FOLDER1" {2}
"FOLDER2" {6}
"FOLDER3" {7}
"USER1" {10}
"USER2" {11}
-> {4}