Imported ModuleRepository.flush from Java

[simantics/platform.git] / bundles / org.simantics.scl.compiler / scl / SCL / ModuleRepository.scl

diff --git a/bundles/org.simantics.scl.compiler/scl/SCL/ModuleRepository.scl b/bundles/org.simantics.scl.compiler/scl/SCL/ModuleRepository.scl
index e8d37789b00be77a32ef8cc6306fd6ab8fa6cb16..3925450bd29c71b82bb0bf5e519d00e4155cf430 100644 (file)
--- a/bundles/org.simantics.scl.compiler/scl/SCL/ModuleRepository.scl
+++ b/bundles/org.simantics.scl.compiler/scl/SCL/ModuleRepository.scl
@@ -1,6 +1,7 @@
 module {
     export = [possibleUnsafeSclValueByName, unsafeSclValueByName, sclModuleNames, moduleByName,
-              documentationOfSCLValue, sclValueRef, possibleModuleSourceText]
+              documentationOfSCLValue, sclValueRef, possibleModuleSourceText, flushModuleRepository, 
+              flushDefaultModuleRepository]
 }
 
 include "./CurrentModuleRepository"
@@ -30,6 +31,9 @@ importJava "org.simantics.scl.compiler.module.repository.ModuleRepository" where
     @JavaName getModule
     moduleByName_ :: ModuleRepository -> String -> <Proc> Failable Module 
     
+    @JavaName flush
+    flushModuleRepository :: ModuleRepository -> <Proc> ()
+    
 importJava "org.simantics.scl.compiler.source.repository.ModuleSourceRepository" where
     data ModuleSourceRepository
     
@@ -50,6 +54,9 @@ unsafeSclValueByName = unsafeSclValueByName_ MODULE_REPOSITORY
 
 sclValueRef name = sclValueRef_ MODULE_REPOSITORY name
 
+flushDefaultModuleRepository :: <Proc> ()
+flushDefaultModuleRepository = flushModuleRepository MODULE_REPOSITORY
+
 possibleUnsafeSclValueByName :: String -> <Proc> Maybe a
 possibleUnsafeSclValueByName name = Just (unsafeSclValueByName name) `catch` \(_ :: Exception) -> Nothing