]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - bundles/org.simantics.modeling/scl/Simantics/Entity.scl
Fixed all line endings of the repository
[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Entity.scl
index 0857e00e2e01aea74f02384b50dc37da005ea5c3..7426c2d5f8d0a706947a943cabecf2d8bd657437 100644 (file)
@@ -1,29 +1,29 @@
-include "Simantics/DB"\r
-import "http://www.simantics.org/Layer0-1.1" as L0\r
-\r
-@deprecated\r
-toResource :: Resource -> Resource\r
-toResource = id\r
-\r
-@deprecated\r
-fromResource :: Resource -> Resource\r
-fromResource = id\r
-\r
-labelOf :: Resource -> <ReadGraph> String\r
-labelOf entity = relatedValue2 entity L0.HasLabel\r
-\r
-"""Renames an entity."""\r
-rename :: Resource -> String -> <ReadGraph,WriteGraph> ()\r
-rename entity newName = do\r
-    oldName = (nameOf entity)\r
-    claimRelatedValue entity L0.HasName newName\r
-    addCommentMetadata ("Renamed " + oldName + " to " + newName)\r
-\r
-importJava "org.simantics.db.layer0.util.RemoverUtil" where\r
-    """Removes a given entity."""\r
-    @JavaName remove\r
-    remove :: Resource -> <WriteGraph> ()\r
-\r
-@deprecated\r
-remove_ :: Resource -> <WriteGraph> ()\r
-remove_ = remove\r
+include "Simantics/DB"
+import "http://www.simantics.org/Layer0-1.1" as L0
+
+@deprecated
+toResource :: Resource -> Resource
+toResource = id
+
+@deprecated
+fromResource :: Resource -> Resource
+fromResource = id
+
+labelOf :: Resource -> <ReadGraph> String
+labelOf entity = relatedValue2 entity L0.HasLabel
+
+"""Renames an entity."""
+rename :: Resource -> String -> <ReadGraph,WriteGraph> ()
+rename entity newName = do
+    oldName = (nameOf entity)
+    claimRelatedValue entity L0.HasName newName
+    addCommentMetadata ("Renamed " + oldName + " to " + newName)
+
+importJava "org.simantics.db.layer0.util.RemoverUtil" where
+    """Removes a given entity."""
+    @JavaName remove
+    remove :: Resource -> <WriteGraph> ()
+
+@deprecated
+remove_ :: Resource -> <WriteGraph> ()
+remove_ = remove