Adding the backbone of juilia expresisons.

Author: fremling

src/MathLink.jl

@@ -30,4 +30,5 @@ include("eval.jl")
 include("display.jl")
 include("operators.jl")
 include("W2JuliaStruct.jl")
+include("W2JuliaExpr.jl")
 end

src/W2JuliaExpr.jl

@@ -0,0 +1,28 @@
+
+
+export W2JuliaExpr
+
+"""
+Converts MathLink `WExpr`essions to Julia `Expr`essions
+"""
+function W2JuliaExpr(wexpr::WExpr)
+    ####Check if the operator has an alias
+    if haskey(funcDict, wexpr.head.name)
+        Operator=funcDict[wexpr.head.name]
+    else
+        Operator=Symbol(wexpr.head.name)
+    end
+    return Expr(:call,Operator,[W2JuliaExpr(arg) for arg in wexpr.args]...)
+end
+W2JuliaExpr(wexpr::WSymbol) = Symbol(wexpr.name)
+W2JuliaExpr(wexpr::Number) = wexpr
+
+
+###Dictionary with known funcitons and their translations
+funcDict=Dict("Plus"=>:+,
+              "Minus"=>:-,
+              "Power"=>:^,
+              "Times"=>:*,
+              "Sin"=>:sin,
+              "Cos"=>:cos,
+              )

test/runtests.jl

@@ -4,6 +4,25 @@ using Test
 import MathLink: WExpr, WSymbol
 
 
+@testset "W2JuliaExpr" begin
+    ###Test of a simple MathLink to Julia converter. It converts MathLink expressions to the correcsponding Julia constructions
+    @testset "Variables" begin
+        @test W2JuliaExpr(W"a") == :a
+        @test W2JuliaExpr(W`a`) == :a
+        @test W2JuliaExpr(W"a"+W"b") == :(a+b)
+        @test W2JuliaExpr(W`sin`) == :sin
+        @test W2JuliaExpr(W`a+b`) == :(a+b)
+        @test W2JuliaExpr(W`a*b`) == :(a*b)
+        @test W2JuliaExpr(W`Sin[a]`) == :(sin(a))
+        @test W2JuliaExpr(W`Sin[a+b]`) == :(sin(a+b))
+        @test W2JuliaExpr(W`Cos[a^b]`) == :(cos(a^b))
+        @test W2JuliaExpr(W`a/b`) == :(a*(b^-1))
+        @test W2JuliaExpr(W`a^b`) == :(a^b)
+    end
+end
+
+
+
 @testset "W2JuliaStruct" begin
     ###Test of a simple MathLink to Julia converter. It converts MathLink expressions to the correcsponding Julia constructions
     @testset "Lists to Lists" begin