bundles/org.simantics.fileimport/scl/Dropins/Core.scl

   1 import "Simantics/DB"
   2 import "MMap" as MMap
   3
   4 importJava "org.simantics.fileimport.scl.DropinsSCL" where
   5     watchDropinsFolder :: () -> <Proc> ()
   6     unwatchDropinsFolder :: () -> <Proc> ()
   7     uploadToDropinsBase64 :: String -> String -> <Proc> ()
   8     getUploadedFiles :: () -> <Proc> MMap.T String Long
   9     removeFileForId :: Long -> <Proc> ()
  10
  11
  12 importJava "org.simantics.fileimport.FileImportService" where
  13     performFileImport :: String -> String -> <Proc> String
  14     importGenericFileWithExtension :: String -> String -> <Proc> String
  15     importGenericFileWithExtensionAndParent :: Resource -> String -> String -> <Proc> Resource
  16     filterSupportedExtensions :: String -> <Proc> [String]
  17
  18 importGenericFileToResource :: String -> String -> <Proc> Resource
  19 importGenericFileToResource path extension = do
  20     resourceId = importGenericFileWithExtension path extension
  21     syncRead (\_ -> resourceFromId (read resourceId :: Long))
  22
  23 getUploadedDropinFiles :: () -> <Proc> [Long]
  24 getUploadedDropinFiles dummy = do
  25     files = getUploadedFiles ()
  26     MMap.values files