haskell-bind: add function languages

2014-02-07 15:56:12 +00:00
parent 9a422839cc
commit 8de56530e0
2 changed files with 38 additions and 50 deletions
--- 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"