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

19
src/adl_support/utils.clj
View file

@ -86,8 +86,11 @@
(defn link-table-name
"Canonical name of a link table between entity `e1` and entity `e2`."
[e1 e2]
"Canonical name of a link table between entity `e1` and entity `e2`. However, there
may be different links between the same two tables with different semantics; if
`property` is specified, and if more than one property in `e1` links to `e2`, generate
a more specific link name."
([e1 e2]
(s/join
"_"
(cons
@ -95,6 +98,18 @@
(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