diff options
| author | krasimir <krasimir@chalmers.se> | 2015-11-19 13:18:19 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2015-11-19 13:18:19 +0000 |
| commit | 9f9b23d0dddd3b61e4289cfbcf08241deddc65de (patch) | |
| tree | fea7f97a8c55e97ed30493cc464b14ff095ed751 /src/runtime/haskell-bind/PGF2/FFI.hs | |
| parent | fe7397efe4403f94797203e6bf00daa95d749618 (diff) | |
added mkInt and mkFloat in the Haskell binding to make it easy to create literal expressions
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 15001c2c9..6321067c2 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -204,6 +204,12 @@ foreign import ccall "pgf/pgf.h pgf_expr_apply" foreign import ccall "pgf/pgf.h pgf_expr_string" pgf_expr_string :: CString -> Ptr GuPool -> IO PgfExpr +foreign import ccall "pgf/pgf.h pgf_expr_int" + pgf_expr_int :: CInt -> Ptr GuPool -> IO PgfExpr + +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_unapply" pgf_expr_unapply :: PgfExpr -> Ptr GuPool -> IO (Ptr PgfApplication) |