From 35382d886800c915bbdcfd595cf7b8401413377f Mon Sep 17 00:00:00 2001
From: tuorjr <tuorjr@e36c2e66-7d30-0410-bdb2-d9e1f5a6d952>
Date: Wed, 28 Sep 2016 10:14:22 +0000
Subject: [PATCH] Some changes to Python.scl.

git-svn-id: https://www.simantics.org/svn/simantics-incubator/reino@1692 e36c2e66-7d30-0410-bdb2-d9e1f5a6d952
---
 .../scl/{Simantics => }/Python.scl            | 53 +++++++++++--------
 .../pythonlink/test/scripts/Python.sts        |  8 ++-
 2 files changed, 36 insertions(+), 25 deletions(-)
 rename org.simantics.pythonlink/scl/{Simantics => }/Python.scl (63%)

diff --git a/org.simantics.pythonlink/scl/Simantics/Python.scl b/org.simantics.pythonlink/scl/Python.scl
similarity index 63%
rename from org.simantics.pythonlink/scl/Simantics/Python.scl
rename to org.simantics.pythonlink/scl/Python.scl
index 375c549..b1ca052 100644
--- a/org.simantics.pythonlink/scl/Simantics/Python.scl
+++ b/org.simantics.pythonlink/scl/Python.scl
@@ -5,8 +5,8 @@ effect Python
     "org.simantics.pythonlink.PythonContext"
 
 class PythonCompatible a where
-    setPythonVariable :: String -> a -> <Python, Proc> ()
-    getPythonVariable :: String -> <Python, Proc> a
+    setPythonVariable :: String -> a -> <Python> ()
+    getPythonVariable :: String -> <Python> a
 
 importJava "org.simantics.pythonlink.NDArray" where
     data NDArray
@@ -39,42 +39,49 @@ importJava "org.simantics.pythonlink.NDArray" where
 instance Show NDArray where
     show = ndarrayToString
 
+instance Eq NDArray where
+    (==) = ndarrayEquals
+
 importJava "org.simantics.pythonlink.PythonContext" where
     data PythonContext
     
     @JavaName close
     closePythonContext :: PythonContext -> <Proc> ()
     
-    executePythonStatement :: String -> <Python, Proc> ()
+    executePythonStatement :: String -> <Python> ()
     
-    setPythonIntegerVariable :: String -> Integer -> <Python, Proc> ()
-    setPythonIntegerArrayVariable :: String -> Vector Integer -> <Python, Proc> ()
-    setPythonDoubleVariable :: String -> Double -> <Python, Proc> ()
-    setPythonDoubleArrayVariable :: String -> Vector Double -> <Python, Proc> ()
-    setPythonStringVariable :: String -> String -> <Python, Proc> ()
-    setPythonStringArrayVariable :: String -> Vector String -> <Python, Proc> ()
-    setPythonNDArrayVariable :: String -> NDArray -> <Python, Proc> ()
+    setPythonIntegerVariable :: String -> Integer -> <Python> ()
+    setPythonIntegerArrayVariable :: String -> Vector Integer -> <Python> ()
+    setPythonDoubleVariable :: String -> Double -> <Python> ()
+    setPythonDoubleArrayVariable :: String -> Vector Double -> <Python> ()
+    setPythonStringVariable :: String -> String -> <Python> ()
+    setPythonStringArrayVariable :: String -> Vector String -> <Python> ()
+    setPythonNDArrayVariable :: String -> NDArray -> <Python> ()
     
-    getPythonIntegerVariable :: String -> <Python, Proc> Integer
-    getPythonIntegerArrayVariable :: String -> <Python, Proc> Vector Integer
-    getPythonDoubleVariable :: String -> <Python, Proc> Double
-    getPythonDoubleArrayVariable :: String -> <Python, Proc> Vector Double
-    getPythonStringVariable :: String -> <Python, Proc> String
-    getPythonStringArrayVariable  :: String -> <Python, Proc> Vector String
-    getPythonNDArrayVariable :: String -> <Python, Proc> NDArray
+    getPythonIntegerVariable :: String -> <Python> Integer
+    getPythonIntegerArrayVariable :: String -> <Python> Vector Integer
+    getPythonDoubleVariable :: String -> <Python> Double
+    getPythonDoubleArrayVariable :: String -> <Python> Vector Double
+    getPythonStringVariable :: String -> <Python> String
+    getPythonStringArrayVariable  :: String -> <Python> Vector String
+    getPythonNDArrayVariable :: String -> <Python> NDArray
     
 importJava "org.simantics.pythonlink.Python" where
-    openPythonContext :: () -> <Proc> PythonContext
+    openPythonContext :: <Proc> PythonContext
     
-    runPythonF :: (() -> <Python, Proc> a) -> <Proc> a
-    runWithPythonContextF :: PythonContext -> (() -> <Python, Proc> a) -> <Proc> a
+    runPythonF :: (() -> <Python, e> a) -> <Proc, e> a
+    runWithPythonContextF :: PythonContext -> (() -> <Python, e> a) -> <Proc, e> a
 
-runPython :: (<Python, Proc> a) -> <Proc> a
+runPython :: (<Python, e> a) -> <Proc, e> a
 runPython v = runPythonF (\_ -> v)
 
-runWithPythonContext :: PythonContext -> (<Python, Proc> a) -> <Proc> a
+runWithPythonContext :: PythonContext -> (<Python, e> a) -> <Proc, e> a
 runWithPythonContext python v = runWithPythonContextF python (\_ -> v) 
 
+instance (VecComp a, PythonCompatible (Vector a)) => PythonCompatible [a] where
+    setPythonVariable n v = setPythonVariable n (vector v)
+    getPythonVariable = vectorToList . getPythonVariable
+    
 instance PythonCompatible Double where
     setPythonVariable = setPythonDoubleVariable
     getPythonVariable = getPythonDoubleVariable
@@ -82,7 +89,7 @@ instance PythonCompatible Double where
 instance PythonCompatible (Vector Double) where
     setPythonVariable = setPythonDoubleArrayVariable
     getPythonVariable = getPythonDoubleArrayVariable
-    
+
 instance PythonCompatible Integer where
     setPythonVariable = setPythonIntegerVariable
     getPythonVariable = getPythonIntegerVariable
diff --git a/org.simantics.pythonlink/test/org/simantics/pythonlink/test/scripts/Python.sts b/org.simantics.pythonlink/test/org/simantics/pythonlink/test/scripts/Python.sts
index 7464d73..50c0423 100644
--- a/org.simantics.pythonlink/test/org/simantics/pythonlink/test/scripts/Python.sts
+++ b/org.simantics.pythonlink/test/org/simantics/pythonlink/test/scripts/Python.sts
@@ -1,5 +1,4 @@
-> import "Simantics/Python"
-> import "Vector"
+> import "Python"
 > 
 > runPython do
 >     executePythonStatement "foo = 'bar'\nd = dir()"
@@ -46,3 +45,8 @@ vector [1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0]
 >     executePythonStatement "bar = foo.cumsum(1)"
 >     getPythonNDArrayVariable "bar"
 ndarray(2x3) [[1.0, 3.0, 6.0], [4.0, 9.0, 15.0]]
+> runPython do
+>     setPythonVariable "foo" ([1.0, 2.0, 3.0, 4.0] :: [Double])
+>     executePythonStatement "foo.append(sum(foo))"
+>     getPythonVariable "foo" :: [Double]
+[1.0, 2.0, 3.0, 4.0, 10.0]
-- 
2.45.2