simon/adl-support
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Allow for multiple distinct links between the same two entities

Browse source
This commit is contained in:
Simon Brooke 2018-07-07 09:04:33 +01:00
parent a855554ed8
commit 9db4e48638
1 changed files with 24 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
src/adl_support/utils.clj
View file

@ -86,15 +86,30 @@
(defn link-table-name (defn link-table-name
"Canonical name of a link table between entity `e1` and entity `e2`." "Canonical name of a link table between entity `e1` and entity `e2`. However, there
[e1 e2] may be different links between the same two tables with different semantics; if
(s/join `property` is specified, and if more than one property in `e1` links to `e2`, generate
"_" a more specific link name."
(cons ([e1 e2]
"ln" (s/join
(sort "_"
(list (cons
(:name (:attrs e1)) (:name (:attrs e2))))))) "ln"
(sort
(list
(:name (:attrs e1)) (:name (:attrs e2)))))))
([property e1 e2]
(if (count
(descendants
e1
#(and
(= (-> % :attrs :type) "link")
(=
(-> % :attrs :entity)
(-> property :attrs :entity)))))
(s/join
"_" (map #(:name (:attrs %)) (list property e1 e2)))
(link-table-name e1 e2))))
(defn children (defn children