-import "Simantics/Model"\r
-include "Simantics/Entity" hiding (nameOf)\r
-import "http://www.simantics.org/Layer0-1.1" as L0\r
-\r
-type Library = Resource\r
-\r
-importJava "org.simantics.modeling.ui.SCLLibrary" where\r
- @JavaName createLibrary\r
- """\r
- Creates a new Library under the given Library parameter. Returns the created Library.\r
- """\r
- createLibrary :: Library -> <Proc> Library\r
- \r
- @Javaname createLibraryInModel\r
- """\r
- Creates a new Library under the given Model parameter. Returns the created Library.\r
- """\r
- createLibraryInModel :: Model -> <Proc> Library\r
- \r
- @JavaName getLibrary\r
- getLibrary :: Model -> String -> <ReadGraph> Library\r
- \r
-librariesOf :: Model -> <ReadGraph> [Library]\r
-librariesOf model = recurse L0.Library (toResource model)\r
- where\r
- recurse t r = do\r
- cs = resourceChildrenOf r \r
- libraries = map fromResource $ filter isLibrary cs\r
- libraryGrp = filter (not . isLibrary) cs\r
- libraries + concatMap (recurse t) libraryGrp\r
+import "Simantics/Model"
+include "Simantics/Entity" hiding (nameOf)
+import "http://www.simantics.org/Layer0-1.1" as L0
+
+type Library = Resource
+
+importJava "org.simantics.modeling.ui.SCLLibrary" where
+ @JavaName createLibrary
+ """
+ Creates a new Library under the given Library parameter. Returns the created Library.
+ """
+ createLibrary :: Library -> <Proc> Library
+
+ @Javaname createLibraryInModel
+ """
+ Creates a new Library under the given Model parameter. Returns the created Library.
+ """
+ createLibraryInModel :: Model -> <Proc> Library
+
+ @JavaName getLibrary
+ getLibrary :: Model -> String -> <ReadGraph> Library
+
+librariesOf :: Model -> <ReadGraph> [Library]
+librariesOf model = recurse L0.Library model
+ where
+ recurse t r = do
+ cs = children r
+ libraries = filter isLibrary cs
+ libraryGrp = filter (not . isLibrary) cs
+ libraries + concatMap (recurse t) libraryGrp
isLibrary r = isInstanceOf r L0.Library
\ No newline at end of file