-import "MMap" as MMap\r
-\r
-importJava "org.simantics.fileimport.scl.DropinsSCL" where\r
- uploadToDropinsBase64 :: String -> String -> <Proc> ()\r
- getUploadedFiles :: () -> <Proc> MMap.T String Long\r
- removeFileForId :: Long -> <Proc> ()\r
-\r
-getUploadedDropinFiles :: () -> <Proc> [Long]\r
-getUploadedDropinFiles dummy = do\r
- files = getUploadedFiles ()\r
+import "Simantics/DB"
+import "MMap" as MMap
+
+importJava "org.simantics.fileimport.scl.DropinsSCL" where
+ watchDropinsFolder :: () -> <Proc> ()
+ unwatchDropinsFolder :: () -> <Proc> ()
+ uploadToDropinsBase64 :: String -> String -> <Proc> ()
+ getUploadedFiles :: () -> <Proc> MMap.T String Long
+ removeFileForId :: Long -> <Proc> ()
+
+
+importJava "org.simantics.fileimport.FileImportService" where
+ performFileImport :: String -> String -> <Proc> String
+ importGenericFileWithExtension :: String -> String -> <Proc> String
+ importGenericFileWithExtensionAndParent :: Resource -> String -> String -> <Proc> Resource
+ filterSupportedExtensions :: String -> <Proc> [String]
+
+importGenericFileToResource :: String -> String -> <Proc> Resource
+importGenericFileToResource path extension = do
+ resourceId = importGenericFileWithExtension path extension
+ syncRead (\_ -> resourceFromId (read resourceId :: Long))
+
+getUploadedDropinFiles :: () -> <Proc> [Long]
+getUploadedDropinFiles dummy = do
+ files = getUploadedFiles ()
MMap.values files
\ No newline at end of file