1 include "Simantics/DB"
\r
2 import "http://www.simantics.org/Layer0-1.1" as L0
\r
5 toResource :: Resource -> Resource
\r
9 fromResource :: Resource -> Resource
\r
12 labelOf :: Resource -> <ReadGraph> String
\r
13 labelOf entity = relatedValue2 entity L0.HasLabel
\r
15 """Renames an entity."""
\r
16 rename :: Resource -> String -> <ReadGraph,WriteGraph> ()
\r
17 rename entity newName = do
\r
18 oldName = (nameOf entity)
\r
19 claimRelatedValue entity L0.HasName newName
\r
20 addCommentMetadata ("Renamed " + oldName + " to " + newName)
\r
22 importJava "org.simantics.db.layer0.util.RemoverUtil" where
\r
23 """Removes a given entity."""
\r
25 remove :: Resource -> <WriteGraph> ()
\r
28 remove_ :: Resource -> <WriteGraph> ()
\r