contrib/haskell/src/Hkl/C/Detector.hsc

   1 {-# LANGUAGE CPP #-}
   2 {-# LANGUAGE ForeignFunctionInterface #-}
   3 {-# LANGUAGE GADTs #-}
   4
   5 module Hkl.C.Detector
   6        ( HklDetector
   7        , newDetector
   8        , withDetector
   9        ) where
  10
  11 import Prelude hiding (min, max)
  12
  13 import Foreign ( ForeignPtr
  14                , FunPtr
  15                , Ptr
  16                , newForeignPtr
  17                , withForeignPtr)
  18 import Foreign.C (CInt(..))
  19
  20 import Hkl.Detector
  21
  22 #include "hkl.h"
  23
  24 data HklDetector
  25
  26 -- Detector
  27
  28 withDetector :: Detector a -> (Ptr HklDetector -> IO b) -> IO b
  29 withDetector d func = do
  30   fptr <- newDetector d
  31   withForeignPtr fptr func
  32
  33 newDetector :: Detector a -> IO (ForeignPtr HklDetector)
  34 newDetector ZeroD = c_hkl_detector_new 0 >>= newForeignPtr c_hkl_detector_free
  35 newDetector _ = error "Can not use 2D detector with the hkl library"
  36
  37 foreign import ccall unsafe "hkl.h hkl_detector_new"
  38   c_hkl_detector_new:: CInt -> IO (Ptr HklDetector)
  39
  40 foreign import ccall unsafe "hkl.h &hkl_detector_free"
  41   c_hkl_detector_free :: FunPtr (Ptr HklDetector -> IO ())