No changes from hackage v0.1

Author: bmsherman

Foreign/Matlab.hs

@@ -0,0 +1,23 @@
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
+
+{-|
+  Bundles Matlab data structure and general-purpose routines.
+-}
+
+module Foreign.Matlab
+  ( module Foreign.Matlab.Types
+  , module Foreign.Matlab.Array
+  , module Foreign.Matlab.Array.Auto
+  --, module Foreign.Matlab.Array.MArray
+  , module Foreign.Matlab.Array.IMX
+  , module Foreign.Matlab.Array.Able
+  , module Foreign.Matlab.MAT
+  ) where
+
+import Foreign.Matlab.Types
+import Foreign.Matlab.Array
+import Foreign.Matlab.Array.Auto
+--import Foreign.Matlab.Array.MArray
+import Foreign.Matlab.Array.IMX
+import Foreign.Matlab.Array.Able
+import Foreign.Matlab.MAT

Foreign/Matlab/Array.hsc

@@ -0,0 +1,53 @@
+{-|
+  Direct conversion between Haskell data structures and 'IMXData'.
+
+  In general, scalars convert to the obvious, and lists to row vectors.
+-}
+module Foreign.Matlab.Array.Able (
+    Matlabable,
+    toMatlab, fromMatlab,
+    withMatlabArray, fromMatlabArray
+  ) where
+
+import Foreign.Matlab.Util
+import Foreign.Matlab.Types
+import Foreign.Matlab.Array.IMX
+
+class Matlabable a where
+  toMatlab :: a -> IMXData
+  fromMatlab :: IMXData -> Maybe a
+
+--instance (MScalar a, IMXArrayElem a) => Matlabable a where { toMatlab = scalarIMX ; fromMatlab = imxScalar }
+instance Matlabable Bool   where { toMatlab = scalarIMX ; fromMatlab = imxScalar }
+instance Matlabable Char   where { toMatlab = scalarIMX ; fromMatlab = imxScalar }
+instance Matlabable Float  where { toMatlab = scalarIMX ; fromMatlab = imxScalar }
+instance Matlabable Double where { toMatlab = scalarIMX ; fromMatlab = imxScalar }
+
+instance Matlabable Int where 
+  toMatlab = scalarIMX . (ii :: Int -> MInt32)
+  fromMatlab = fmap (ii :: MInt32 -> Int) . imxScalar
+
+instance Matlabable String where
+  toMatlab = listIMX [1,-1]
+  fromMatlab = imxList 
+
+instance Matlabable [Double] where
+  toMatlab = listIMX [1,-1]
+  fromMatlab = imxList 
+
+instance Matlabable [Int] where
+  toMatlab = listIMX [1,-1] . map (ii :: Int -> MInt32)
+  fromMatlab = fmap (map (ii :: MInt32 -> Int)) . imxList
+
+instance Matlabable () where
+  toMatlab () = IMXNull
+  fromMatlab IMXNull = Just ()
+  fromMatlab _ = Nothing
+
+-- |Generate a temporary 'MXArray'
+withMatlabArray :: Matlabable a => a -> (MAnyArray -> IO a) -> IO a
+withMatlabArray = withIMXData . toMatlab
+
+-- |Convert directly from 'MXArray' (without freeing the original array)
+fromMatlabArray :: Matlabable a => MAnyArray -> IO (Maybe a)
+fromMatlabArray = fromMatlab .=< imxData

Foreign/Matlab/Array/Able.hs

@@ -0,0 +1,33 @@
+{-|
+  'MXArray' 'ForeignPtr' wrapper.
+
+  A 'MXArray' that is automatically freed.  These arrays must never be put inside other arrays or used as function results.
+-}
+module Foreign.Matlab.Array.Auto (
+    MXAuto,
+    mxAuto,
+    withMXAuto,
+    MAnyAuto
+  ) where
+
+import Foreign
+import Foreign.Matlab.Util
+import Foreign.Matlab.Internal
+import Foreign.Matlab.Types
+
+-- |A 'MXArray' that is automatically freed with 'Foreign.Matlab.Array.freeMXArray'
+newtype MXAuto a = MXAuto (ForeignPtr MXArrayType)
+
+foreign import ccall unsafe "&mxDestroyArray" mxDestroyArray_ptr :: FunPtr (MXArrayPtr -> IO ())
+
+-- |Turn an 'MXArray' into an 'MXAuto'.  The original 'MXArray' should not be used after this operation.
+mxAuto :: MXArray a -> MIO (MXAuto a)
+mxAuto (MXArray a)
+  | a == nullPtr = MXAuto =.< newForeignPtr_ a
+  | otherwise = MXAuto =.< newForeignPtr mxDestroyArray_ptr a
+
+-- |Use a 'MXAuto'
+withMXAuto :: MXAuto a -> (MXArray a -> IO b) -> IO b
+withMXAuto (MXAuto a) f = withForeignPtr a (f . MXArray)
+
+type MAnyAuto = MXAuto MAny