Merge pull request #74 from fremling/master

Added empryo of W2Julia : converter from MathLink to julia code.

Author: fremling

src/MathLink.jl

@@ -29,5 +29,5 @@ include("extras.jl")
 include("eval.jl")
 include("display.jl")
 include("operators.jl")
-
+include("W2Julia.jl")
 end

src/W2Julia.jl

@@ -0,0 +1,37 @@
+
+
+export W2Julia
+
+W2Julia(X::Number) = X
+W2Julia(X::MathLink.WSymbol) = X
+function W2Julia(X::MathLink.WExpr)
+    if X.head == W"List"
+        return [W2Julia(x) for x in X.args]
+    elseif X.head == W"Association"
+        W2JuliaAccociation(X)
+    else
+        return X
+    end
+end
+
+
+function W2JuliaAccociation(Asso::MathLink.WExpr)
+    if Asso.head != W"Association"
+        error("Not an Association")
+    end
+    ##Wprint(Asso)
+    if Asso.head != W"Association"
+        error("Not an association")
+    end
+    D=Dict()
+    for Rule in Asso.args
+        if Rule.head != W"Rule"
+            error("not a rule")
+        end
+        if length(Rule.args) != 2
+            error("Bad rule")
+        end
+        D[Rule.args[1]]=Rule.args[2]
+    end
+    return D
+end

test/runtests.jl

@@ -4,6 +4,19 @@ using Test
 import MathLink: WExpr, WSymbol
 
 
+@testset "W2Julia" begin
+    ###Test of a simple MathLink to Julia converter. It converts MathLink expressions to the correcsponding Julia constructions
+
+    @testset "Lists to Lists" begin
+        @test W2Julia(W`{1,2,3}`) == [1,2,3]
+        @test W2Julia(W`{1,a,3}`) == [1,W"a",3]
+        @test W2Julia(W`{1,a,{1,2}}`) == [1,W"a",[1,2]]
+    end
+    @testset "Association to Dict" begin
+        @test W2Julia(W`Association["team" -> "HOU", "lastName" -> "Ching"]`) == Dict( "team" => "HOU" , "lastName" => "Ching")
+    end
+end
+
 
 @testset "W2Mstr" begin
     ###Test of a naive MathLink to Mathematica converter function (the results can be copied into mathematica directly)