MAge unknownfuctions into lower case.

Author: fremling

src/W2JuliaExpr.jl

@@ -8,9 +8,11 @@ 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)
+        ####Use the alias
         Operator=funcDict[wexpr.head.name]
     else
-        Operator=Symbol(wexpr.head.name)
+        ####Use the name directly as a symbol (but in lowercase)
+        Operator=Symbol(lowercase(wexpr.head.name))
     end
     return Expr(:call,Operator,[W2JuliaExpr(arg) for arg in wexpr.args]...)
 end
@@ -23,6 +25,4 @@ funcDict=Dict("Plus"=>:+,
               "Minus"=>:-,
               "Power"=>:^,
               "Times"=>:*,
-              "Sin"=>:sin,
-              "Cos"=>:cos,
               )

test/runtests.jl

@@ -18,6 +18,7 @@ import MathLink: WExpr, WSymbol
         @test W2JuliaExpr(W`Cos[a^b]`) == :(cos(a^b))
         @test W2JuliaExpr(W`a/b`) == :(a*(b^-1))
         @test W2JuliaExpr(W`a^b`) == :(a^b)
+        @test W2JuliaExpr(W`Exp[a]`) == :(exp(a))
     end
 end