mathlink

Write Mathematica packages in Haskell.

Makes it easy to write Mathematica packages in Haskell. Just write some functions and provide a package specification in a simple DSL that mimics that of Mathematica's mprep utility.

Data marshaling is accomplished via the MLGet and MLPut classes, which specify types that that can be read from or written to the MathLink connection. Instances of these classes are provided for the obvious standard data types, including tuples, lists, and UArrays.

A Haskell function that is to be exposed to Mathematica has the type signature (MLGet a, MLPut b) => a -> ML b. The ML monad provides single-threaded access to the MathLink connection.

A simple example of a Mathematica package:

import Foreign.MathLink
-- define a function
addTwo :: (Int,Int) -> ML Int
addTwo (x,y) = return $ x+y
-- specify a package
spec :: MLSpec
spec =
-- start a package definition
[ Eval $ "BeginPackage":@[St "Test`"]
-- define a usage message for the public symbol
, DeclMsg "AddTwo" "usage" "AddTwo[..] adds a pair of numbers"
-- open a new (private) namespace
, Eval $ "Begin":@[St "`Private`"]
-- declare the function
, DeclFn {
callPattern = "AddTwo[x_Integer,y_Integer]"
, argPattern = "{x,y}"
, func = addTwo
}
-- close the namespaces
, Eval $ "End":@[]
, Eval $ "EndPackage":@[]
]
-- runs the MathLink connection
main :: IO ()
main = runMathLink spec