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
  17 importGenericFileToResource :: String -> String -> <Proc> Resource
  18 importGenericFileToResource path extension = do
  19     resourceId = importGenericFileWithExtension path extension
  20     syncRead (\_ -> resourceFromId (read resourceId :: Long))
  21
  22 getUploadedDropinFiles :: () -> <Proc> [Long]
  23 getUploadedDropinFiles dummy = do
  24     files = getUploadedFiles ()
  25     MMap.values files