Some fixes for resource cleaning spreadsheets in simupedia

[simantics/platform.git] / bundles / org.simantics.document.server / scl / Document / All.scl

diff --git a/bundles/org.simantics.document.server/scl/Document/All.scl b/bundles/org.simantics.document.server/scl/Document/All.scl
index fa83a224acfc2d7076af4417e2f2e181680e93e7..98a63269978b01597d1d5ea7fb14628f39fec688 100644 (file)
--- a/bundles/org.simantics.document.server/scl/Document/All.scl
+++ b/bundles/org.simantics.document.server/scl/Document/All.scl
@@ -150,3 +150,15 @@ consoleLog state message = do
 
 contextDocument :: CommandContext -> <Proc> IDocument
 contextDocument ctx = justValue ctx "__document__"
 
 contextDocument :: CommandContext -> <Proc> IDocument
 contextDocument ctx = justValue ctx "__document__"

+
+importJava "org.simantics.document.server.io.IRequest" where
+    @private
+    data IRequest
+    
+    @private
+    getParameter :: IRequest -> String -> <Proc> Maybe String
+
+possibleQueryParameterFromContext :: CommandContext -> String -> <Proc> Maybe String
+possibleQueryParameterFromContext context parameter = do
+    request = fromJust $ possibleValue context "__request__"
+    getParameter request parameter