]> gerrit.simantics Code Review - simantics/platform.git/commitdiff
Imported ModuleRepository.flush from Java 32/3132/2
authorAlpi Rimppi <alpi.rimppi@semantum.fi>
Wed, 21 Aug 2019 07:50:07 +0000 (10:50 +0300)
committerAlpi Rimppi <alpi.rimppi@semantum.fi>
Wed, 21 Aug 2019 08:08:08 +0000 (11:08 +0300)
Change-Id: Ib0d147925995508c21d4acee7c4355feabd10f1f

bundles/org.simantics.scl.compiler/scl/SCL/ModuleRepository.scl

index e8d37789b00be77a32ef8cc6306fd6ab8fa6cb16..3925450bd29c71b82bb0bf5e519d00e4155cf430 100644 (file)
@@ -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