Imported ModuleRepository.flush from Java

Change-Id: Ib0d147925995508c21d4acee7c4355feabd10f1f

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,
 module {
     export = [possibleUnsafeSclValueByName, unsafeSclValueByName, sclModuleNames, moduleByName,

-              documentationOfSCLValue, sclValueRef, possibleModuleSourceText]
+              documentationOfSCLValue, sclValueRef, possibleModuleSourceText, flushModuleRepository, 
+              flushDefaultModuleRepository]

 }
 
 include "./CurrentModuleRepository"
 }
 
 include "./CurrentModuleRepository"


@@ -30,6 +31,9 @@ importJava "org.simantics.scl.compiler.module.repository.ModuleRepository" where
     @JavaName getModule
     moduleByName_ :: ModuleRepository -> String -> <Proc> Failable Module 
     
     @JavaName getModule
     moduleByName_ :: ModuleRepository -> String -> <Proc> Failable Module 
     

+    @JavaName flush
+    flushModuleRepository :: ModuleRepository -> <Proc> ()
+    

 importJava "org.simantics.scl.compiler.source.repository.ModuleSourceRepository" where
     data ModuleSourceRepository
     
 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
 
 
 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
 
 possibleUnsafeSclValueByName :: String -> <Proc> Maybe a
 possibleUnsafeSclValueByName name = Just (unsafeSclValueByName name) `catch` \(_ :: Exception) -> Nothing