mathlink

Write Mathematica packages in Haskell

http://community.haskell.org/~TracyWadleigh/mathlink

Latest on Hackage:2.0.1.1

This package is not currently in any snapshots. If you're interested in using it, we recommend adding it to Stackage Nightly. Doing so will make builds more reliable, and allow stackage.org to host generated Haddocks.

BSD-3-Clause licensed by Tracy Wadleigh
Maintained by <[email protected]>

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