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