From 8de56530e03c768614fc98505b91fd55dd34c1b6 Mon Sep 17 00:00:00 2001 From: inari Date: Fri, 7 Feb 2014 15:56:12 +0000 Subject: haskell-bind: add function languages --- src/runtime/haskell-bind/PgfLow.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/runtime/haskell-bind/PgfLow.hs') diff --git a/src/runtime/haskell-bind/PgfLow.hs b/src/runtime/haskell-bind/PgfLow.hs index 1eb45b54e..0caad1ab9 100644 --- a/src/runtime/haskell-bind/PgfLow.hs +++ b/src/runtime/haskell-bind/PgfLow.hs @@ -92,6 +92,10 @@ type Callback = Ptr PgfMorphoCallback -> CString -> CString -> Float -> Ptr GuEx foreign import ccall "wrapper" wrapLookupMorpho :: Callback -> IO (FunPtr Callback) +type Languages = Ptr GuMapItor -> Ptr () -> Ptr () -> Ptr GuExn -> IO () + +foreign import ccall "wrapper" + wrapLanguages :: Languages -> IO (FunPtr Languages) --GuEnum* pgf_fullform_lexicon(PgfConcr *concr, GuPool* pool); foreign import ccall "pgf/pgf.h pgf_fullform_lexicon" -- cgit v1.2.3