diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-09-10 15:41:53 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-09-10 15:41:53 +0000 |
| commit | df0602723dcb0dd9a558aba9b29cdde8e7c4f6c9 (patch) | |
| tree | 7e363176c26b16f6f56b280153db12af0c254e3f /src/runtime/haskell-bind/PGF2 | |
| parent | 80725e872be76ce713fe34c72f6df42e2dd644ed (diff) | |
now release the FunPtr:s that are allocated for each literal callback
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index 9b0f9961e..a467f7ddc 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -97,6 +97,7 @@ data PgfFullFormEntry data PgfMorphoCallback data PgfPrintContext data PgfType +data PgfLiteralCallback foreign import ccall "pgf/pgf.h pgf_read" pgf_read :: CString -> Ptr GuPool -> Ptr GuExn -> IO (Ptr PgfPGF) @@ -146,9 +147,6 @@ foreign import ccall "pgf/pgf.h pgf_linearize" foreign import ccall "pgf/pgf.h pgf_parse" pgf_parse :: Ptr PgfConcr -> CString -> CString -> Ptr GuExn -> Ptr GuPool -> Ptr GuPool -> IO (Ptr GuEnum) -foreign import ccall "pgf/pgf.h pgf_concr_get_pool" - pgf_concr_get_pool :: Ptr PgfConcr -> IO (Ptr GuPool) - type LiteralMatchCallback = Ptr () -> CInt -> CString -> Ptr CInt -> Ptr GuPool -> IO (Ptr PgfExprProb) foreign import ccall "wrapper" @@ -159,8 +157,11 @@ type LiteralPredictCallback = Ptr () -> CInt -> CString -> Ptr GuPool -> IO (Ptr foreign import ccall "wrapper" wrapLiteralPredictCallback :: LiteralPredictCallback -> IO (FunPtr LiteralPredictCallback) +foreign import ccall + hspgf_new_literal_callback :: Ptr PgfConcr -> IO (Ptr PgfLiteralCallback) + foreign import ccall "pgf/pgf.h pgf_concr_add_literal" - pgf_concr_add_literal :: Ptr PgfConcr -> CString -> Ptr () -> Ptr GuExn -> IO () + pgf_concr_add_literal :: Ptr PgfConcr -> CString -> Ptr PgfLiteralCallback -> Ptr GuExn -> IO () foreign import ccall "pgf/pgf.h pgf_lookup_morpho" pgf_lookup_morpho :: Ptr PgfConcr -> CString -> Ptr PgfMorphoCallback -> Ptr GuExn -> IO () |