Support for SCL script database storage, editing and execution

[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / SCL.scl

diff --git a/bundles/org.simantics.modeling/scl/Simantics/SCL.scl b/bundles/org.simantics.modeling/scl/Simantics/SCL.scl
index 32db0f4bc6545cca456aaa697aa49477aafe1ac3..72c733a59f5999dd9c38db1be0d52bfe3474cd81 100644 (file)
--- a/bundles/org.simantics.modeling/scl/Simantics/SCL.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/SCL.scl
@@ -12,14 +12,13 @@ importJava "org.simantics.scl.ui.editor.TextAndErrors" where
     createTextAndErrors :: String -> [CompilationError] -> TextAndErrors
 
 createSCLModuleAction :: Resource -> <Proc> ()
-createSCLModuleAction res = do
-  syncWrite (\() -> createSCLModuleDefault res)
-  ()
+createSCLModuleAction res = ignore $ syncWrite (\() -> createSCLModuleDefault res)
+
+createSCLScriptAction :: Resource -> <Proc> ()
+createSCLScriptAction res = ignore $ syncWrite (\() -> createSCLScriptDefault res)
 
 createPGraphAction :: Resource -> <Proc> ()
-createPGraphAction res = do
-  syncWrite (\() -> createPGraphDefault res)
-  ()
+createPGraphAction res = ignore $ syncWrite (\() -> createPGraphDefault res)
 
 createSCLValueIndependent :: Resource -> String -> <WriteGraph> Resource
 createSCLValueIndependent valueType expression = do
@@ -41,6 +40,7 @@ setExpression self expression = do
 
 importJava "org.simantics.modeling.ModelingUtils" where
     createSCLModuleDefault :: Resource -> <WriteGraph> ()
+    createSCLScriptDefault :: Resource -> <WriteGraph> ()
     createPGraphDefault :: Resource -> <WriteGraph> ()
     createSCLModule :: Resource -> String -> <WriteGraph> ()