diff options
| author | krasimir <krasimir@chalmers.se> | 2017-01-26 10:17:02 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2017-01-26 10:17:02 +0000 |
| commit | 6af632dd185b176222724cce47a49428f1301752 (patch) | |
| tree | 2fea848701ca17de3365b5d5621c085de1fbdaa2 /src/runtime/haskell-bind/PGF2/FFI.hs | |
| parent | be43d5dfdc777995d237e224da7f627426774527 (diff) | |
added mkMeta and unMeta in the Haskell binding
Diffstat (limited to 'src/runtime/haskell-bind/PGF2/FFI.hs')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index 0e5ba250c..9051b1465 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -266,6 +266,12 @@ foreign import ccall "pgf/pgf.h pgf_expr_abs" foreign import ccall "pgf/pgf.h pgf_expr_unabs" pgf_expr_unabs :: PgfExpr -> IO (Ptr a) +foreign import ccall "pgf/pgf.h pgf_expr_meta" + pgf_expr_meta :: CInt -> Ptr GuPool -> IO PgfExpr + +foreign import ccall "pgf/pgf.h pgf_expr_unmeta" + pgf_expr_unmeta :: PgfExpr -> IO (Ptr a) + foreign import ccall "pgf/pgf.h pgf_expr_string" pgf_expr_string :: CString -> Ptr GuPool -> IO PgfExpr |