diff options
| author | krasimir <krasimir@chalmers.se> | 2017-01-26 06:40:13 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2017-01-26 06:40:13 +0000 |
| commit | 14b32a115ca47c2799b292ad0777098e705247c0 (patch) | |
| tree | 7f085523a5498dc219d42b41493eaf3f10bfbf0f /src/runtime/haskell-bind/PGF2/FFI.hs | |
| parent | db0f8b0dced9a827c24842e5eeda7fbd64ef115e (diff) | |
add unStr,unInt and unFloat in the Haskell binding
Diffstat (limited to 'src/runtime/haskell-bind/PGF2/FFI.hs')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index 5e7dfe260..9e51bb34b 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -266,6 +266,9 @@ foreign import ccall "pgf/pgf.h pgf_expr_int" foreign import ccall "pgf/pgf.h pgf_expr_float" pgf_expr_float :: CDouble -> Ptr GuPool -> IO PgfExpr +foreign import ccall "pgf/pgf.h pgf_expr_unlit" + pgf_expr_unlit :: PgfExpr -> CInt -> IO (Ptr a) + foreign import ccall "pgf/pgf.h pgf_expr_unapply" pgf_expr_unapply :: PgfExpr -> Ptr GuPool -> IO (Ptr PgfApplication) |