forked from GitHub/gf-core
205 lines
6.8 KiB
Haskell
205 lines
6.8 KiB
Haskell
{-# LANGUAGE ForeignFunctionInterface #-}
|
|
|
|
module PGF2.FFI where
|
|
|
|
import Foreign.C
|
|
import Foreign.C.String
|
|
import Foreign.Ptr
|
|
import Foreign.ForeignPtr
|
|
import Control.Exception
|
|
|
|
------------------------------------------------------------------
|
|
-- libgu API
|
|
|
|
data GuEnum
|
|
data GuExn
|
|
data GuIn
|
|
data GuKind
|
|
data GuType
|
|
data GuString
|
|
data GuStringBuf
|
|
data GuMapItor
|
|
data GuOut
|
|
data GuPool
|
|
|
|
foreign import ccall fopen :: CString -> CString -> IO (Ptr ())
|
|
|
|
foreign import ccall "gu/mem.h gu_new_pool"
|
|
gu_new_pool :: IO (Ptr GuPool)
|
|
|
|
foreign import ccall "gu/mem.h gu_malloc"
|
|
gu_malloc :: Ptr GuPool -> CInt -> IO (Ptr a)
|
|
|
|
foreign import ccall "gu/mem.h gu_pool_free"
|
|
gu_pool_free :: Ptr GuPool -> IO ()
|
|
|
|
foreign import ccall "gu/mem.h &gu_pool_free"
|
|
gu_pool_finalizer :: FinalizerPtr GuPool
|
|
|
|
foreign import ccall "gu/exn.h gu_new_exn"
|
|
gu_new_exn :: Ptr GuExn -> Ptr GuKind -> Ptr GuPool -> IO (Ptr GuExn)
|
|
|
|
foreign import ccall "gu/exn.h gu_exn_is_raised"
|
|
gu_exn_is_raised :: Ptr GuExn -> IO Bool
|
|
|
|
foreign import ccall "gu/exn.h gu_exn_caught"
|
|
gu_exn_caught :: Ptr GuExn -> IO (Ptr GuType)
|
|
|
|
foreign import ccall "gu/type.h &gu_type__type"
|
|
gu_type__type :: Ptr GuKind
|
|
|
|
foreign import ccall "gu/type.h &gu_type__GuErrno"
|
|
gu_type__GuErrno :: Ptr GuType
|
|
|
|
foreign import ccall "gu/type.h &gu_type__PgfLinNonExist"
|
|
gu_type__PgfLinNonExist :: Ptr GuType
|
|
|
|
foreign import ccall "gu/type.h &gu_type__PgfExn"
|
|
gu_type__PgfExn :: Ptr GuType
|
|
|
|
foreign import ccall "gu/type.h &gu_type__PgfParseError"
|
|
gu_type__PgfParseError :: Ptr GuType
|
|
|
|
foreign import ccall "gu/string.h gu_string_in"
|
|
gu_string_in :: CString -> Ptr GuPool -> IO (Ptr GuIn)
|
|
|
|
foreign import ccall "gu/string.h gu_string_buf"
|
|
gu_string_buf :: Ptr GuPool -> IO (Ptr GuStringBuf)
|
|
|
|
foreign import ccall "gu/string.h gu_string_buf_out"
|
|
gu_string_buf_out :: Ptr GuStringBuf -> IO (Ptr GuOut)
|
|
|
|
foreign import ccall "gu/file.h gu_file_in"
|
|
gu_file_in :: Ptr () -> Ptr GuPool -> IO (Ptr GuIn)
|
|
|
|
foreign import ccall "gu/enum.h gu_enum_next"
|
|
gu_enum_next :: Ptr a -> Ptr (Ptr b) -> Ptr GuPool -> IO ()
|
|
|
|
foreign import ccall "gu/string.h gu_string_buf_freeze"
|
|
gu_string_buf_freeze :: Ptr GuStringBuf -> Ptr GuPool -> IO CString
|
|
|
|
foreign import ccall "gu/utf8.h gu_utf8_decode"
|
|
gu_utf8_decode :: Ptr (Ptr CChar) -> IO ()
|
|
|
|
withGuPool :: (Ptr GuPool -> IO a) -> IO a
|
|
withGuPool f = bracket gu_new_pool gu_pool_free f
|
|
|
|
|
|
------------------------------------------------------------------
|
|
-- libpgf API
|
|
|
|
data PgfPGF
|
|
data PgfApplication
|
|
data PgfConcr
|
|
type PgfExpr = Ptr ()
|
|
data PgfExprProb
|
|
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)
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_abstract_name"
|
|
pgf_abstract_name :: Ptr PgfPGF -> IO CString
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_iter_languages"
|
|
pgf_iter_languages :: Ptr PgfPGF -> Ptr GuMapItor -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_get_language"
|
|
pgf_get_language :: Ptr PgfPGF -> CString -> IO (Ptr PgfConcr)
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_concrete_name"
|
|
pgf_concrete_name :: Ptr PgfConcr -> IO CString
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_concrete_load"
|
|
pgf_concrete_load :: Ptr PgfConcr -> Ptr GuIn -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_concrete_unload"
|
|
pgf_concrete_unload :: Ptr PgfConcr -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_language_code"
|
|
pgf_language_code :: Ptr PgfConcr -> IO CString
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_iter_categories"
|
|
pgf_iter_categories :: Ptr PgfPGF -> Ptr GuMapItor -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_start_cat"
|
|
pgf_start_cat :: Ptr PgfPGF -> IO CString
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_iter_functions"
|
|
pgf_iter_functions :: Ptr PgfPGF -> Ptr GuMapItor -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_iter_functions_by_cat"
|
|
pgf_iter_functions_by_cat :: Ptr PgfPGF -> Ptr GuMapItor -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_function_type"
|
|
pgf_function_type :: Ptr PgfPGF -> CString -> IO (Ptr PgfType)
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_print_name"
|
|
pgf_print_name :: Ptr PgfConcr -> CString -> IO CString
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_linearize"
|
|
pgf_linearize :: Ptr PgfConcr -> PgfExpr -> Ptr GuOut -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_parse"
|
|
pgf_parse :: Ptr PgfConcr -> CString -> CString -> Ptr GuExn -> Ptr GuPool -> Ptr GuPool -> IO (Ptr GuEnum)
|
|
|
|
type LiteralMatchCallback = Ptr () -> CInt -> CString -> Ptr CInt -> Ptr GuPool -> IO (Ptr PgfExprProb)
|
|
|
|
foreign import ccall "wrapper"
|
|
wrapLiteralMatchCallback :: LiteralMatchCallback -> IO (FunPtr LiteralMatchCallback)
|
|
|
|
type LiteralPredictCallback = Ptr () -> CInt -> CString -> Ptr GuPool -> IO (Ptr PgfExprProb)
|
|
|
|
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 PgfLiteralCallback -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_lookup_morpho"
|
|
pgf_lookup_morpho :: Ptr PgfConcr -> CString -> Ptr PgfMorphoCallback -> Ptr GuExn -> IO ()
|
|
|
|
type LookupMorphoCallback = Ptr PgfMorphoCallback -> CString -> CString -> Float -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "wrapper"
|
|
wrapLookupMorphoCallback :: LookupMorphoCallback -> IO (FunPtr LookupMorphoCallback)
|
|
|
|
type MapItorCallback = Ptr GuMapItor -> Ptr () -> Ptr () -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "wrapper"
|
|
wrapMapItorCallback :: MapItorCallback -> IO (FunPtr MapItorCallback)
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_fullform_lexicon"
|
|
pgf_fullform_lexicon :: Ptr PgfConcr -> Ptr GuPool -> IO (Ptr GuEnum)
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_fullform_get_string"
|
|
pgf_fullform_get_string :: Ptr PgfFullFormEntry -> IO CString
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_fullform_get_analyses"
|
|
pgf_fullform_get_analyses :: Ptr PgfFullFormEntry -> Ptr PgfMorphoCallback -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_expr_unapply"
|
|
pgf_expr_unapply :: PgfExpr -> Ptr GuPool -> IO (Ptr PgfApplication)
|
|
|
|
foreign import ccall "pgf/expr.h pgf_expr_arity"
|
|
pgf_expr_arity :: PgfExpr -> IO CInt
|
|
|
|
foreign import ccall "pgf/expr.h pgf_print_expr"
|
|
pgf_print_expr :: PgfExpr -> Ptr PgfPrintContext -> CInt -> Ptr GuOut -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_generate_all"
|
|
pgf_generate_all :: Ptr PgfPGF -> CString -> Ptr GuPool -> IO (Ptr GuEnum)
|
|
|
|
foreign import ccall "pgf/pgf.h pgf_print"
|
|
pgf_print :: Ptr PgfPGF -> Ptr GuOut -> Ptr GuExn -> IO ()
|
|
|
|
foreign import ccall "pgf/expr.h pgf_read_expr"
|
|
pgf_read_expr :: Ptr GuIn -> Ptr GuPool -> Ptr GuExn -> IO PgfExpr
|