Fixed all line endings of the repository

[simantics/platform.git] / bundles / org.simantics.document.ui / scl / Simantics / Document.scl

diff --git a/bundles/org.simantics.document.ui/scl/Simantics/Document.scl b/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
index 1c1b6cc6daa22b075e76cd9625a738d3d63fd69e..2493b1c2c1d58b501858d653ce256f30860e9e16 100644 (file)
--- a/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
+++ b/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
@@ -1,40 +1,40 @@
-import "Simantics/Model"\r
-import "Simantics/Ontologies"\r
-import "UI/Progress"\r
-    \r
-importJava "org.simantics.document.ui.actions.ImportDocumentWithDetail" where\r
-    importDocumentWithDetailSCL :: Resource -> String -> <WriteGraph> Resource\r
-    \r
-importJava "org.simantics.document.ui.graphfile.FileDocumentUtil" where\r
-    importFolderWithName :: String -> Resource -> Resource -> Resource -> ProgressMonitor -> <WriteGraph> Resource\r
-    \r
-importJava "org.simantics.document.ui.actions.AddUrlDocumentWithDetail" where\r
-    addUrlDocumentWithDetailSCL :: Resource -> String -> String -> <WriteGraph> Resource\r
-    \r
-importJava "org.simantics.document.ui.actions.ExportDocumentFile" where\r
-    exportDocument :: Resource -> String -> <Proc> ()\r
-\r
-documentsFolders :: Model -> <ReadGraph> [Resource]\r
-documentsFolders model = recurse DOCUMENT.DocumentLibrary (toResource model)\r
-  where\r
-    recurse t r = do\r
-        cs = resourceChildrenOf r \r
-        libraries = filter isLibrary cs\r
-        libraryGrp = filter (not . isLibrary) cs\r
-        libraries + concatMap (recurse t) libraryGrp\r
-    isLibrary r = isInstanceOf r DOCUMENT.DocumentLibrary\r
-\r
-documents :: Model -> <ReadGraph> [Resource]\r
-documents model = recurse DOCUMENT.Document (toResource model)\r
-  where\r
-    recurse t r = do\r
-        cs = resourceChildrenOf r \r
-        documents = filter isDocument cs\r
-        documentFolder = filter (not . isDocument) cs\r
-        documents + concatMap (recurse t) documentFolder\r
-    isDocument r = isInstanceOf r DOCUMENT.Document\r
-    \r
-document :: Model -> String -> <ReadGraph> [Resource]\r
-document model name = do\r
-    docs = documents model\r
-    filter (\x -> (relatedValue2 x L0.HasName :: String) == name) docs\r
+import "Simantics/Model"
+import "Simantics/Ontologies"
+import "UI/Progress"
+    
+importJava "org.simantics.document.ui.actions.ImportDocumentWithDetail" where
+    importDocumentWithDetailSCL :: Resource -> String -> <WriteGraph> Resource
+    
+importJava "org.simantics.document.ui.graphfile.FileDocumentUtil" where
+    importFolderWithName :: String -> Resource -> Resource -> Resource -> ProgressMonitor -> <WriteGraph> Resource
+    
+importJava "org.simantics.document.ui.actions.AddUrlDocumentWithDetail" where
+    addUrlDocumentWithDetailSCL :: Resource -> String -> String -> <WriteGraph> Resource
+    
+importJava "org.simantics.document.ui.actions.ExportDocumentFile" where
+    exportDocument :: Resource -> String -> <Proc> ()
+
+documentsFolders :: Model -> <ReadGraph> [Resource]
+documentsFolders model = recurse DOCUMENT.DocumentLibrary (toResource model)
+  where
+    recurse t r = do
+        cs = resourceChildrenOf r 
+        libraries = filter isLibrary cs
+        libraryGrp = filter (not . isLibrary) cs
+        libraries + concatMap (recurse t) libraryGrp
+    isLibrary r = isInstanceOf r DOCUMENT.DocumentLibrary
+
+documents :: Model -> <ReadGraph> [Resource]
+documents model = recurse DOCUMENT.Document (toResource model)
+  where
+    recurse t r = do
+        cs = resourceChildrenOf r 
+        documents = filter isDocument cs
+        documentFolder = filter (not . isDocument) cs
+        documents + concatMap (recurse t) documentFolder
+    isDocument r = isInstanceOf r DOCUMENT.Document
+    
+document :: Model -> String -> <ReadGraph> [Resource]
+document model name = do
+    docs = documents model
+    filter (\x -> (relatedValue2 x L0.HasName :: String) == name) docs