diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2018-06-20 13:05:15 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2018-06-20 13:05:15 +0200 |
| commit | 09d576f5b4b7c450ed41e86d5cc24557a1ffba11 (patch) | |
| tree | a8b1e733d73766110f1271c59b4da05b13760ded /src/runtime/haskell-bind/PGF2 | |
| parent | 96f3484622866c156045bd1a03bb6145d2c06ba6 (diff) | |
bracketedLinearize in Haskell now emits the BIND constructor like in Java
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hsc | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/PGF2/FFI.hsc b/src/runtime/haskell-bind/PGF2/FFI.hsc index c33f1da50..39b18fcf3 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hsc +++ b/src/runtime/haskell-bind/PGF2/FFI.hsc @@ -340,6 +340,7 @@ foreign import ccall "pgf/pgf.h pgf_lzr_get_table" type SymbolTokenCallback = Ptr (Ptr PgfLinFuncs) -> CString -> IO () type PhraseCallback = Ptr (Ptr PgfLinFuncs) -> CString -> CInt -> CSizeT -> CString -> IO () type NonExistCallback = Ptr (Ptr PgfLinFuncs) -> IO () +type BindCallback = Ptr (Ptr PgfLinFuncs) -> IO () type MetaCallback = Ptr (Ptr PgfLinFuncs) -> CInt -> IO () foreign import ccall "wrapper" @@ -352,6 +353,9 @@ foreign import ccall "wrapper" wrapSymbolNonExistCallback :: NonExistCallback -> IO (FunPtr NonExistCallback) foreign import ccall "wrapper" + wrapSymbolBindCallback :: BindCallback -> IO (FunPtr BindCallback) + +foreign import ccall "wrapper" wrapSymbolMetaCallback :: MetaCallback -> IO (FunPtr MetaCallback) foreign import ccall "pgf/pgf.h pgf_align_words" |