diff options
| author | hallgren <hallgren@chalmers.se> | 2015-03-19 14:14:30 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2015-03-19 14:14:30 +0000 |
| commit | 99f87c30d053e89e0bdb02a42fe8006904e7e9e3 (patch) | |
| tree | 95778ac146e522176a3160f92294ca82782fd456 /src/runtime/haskell-bind/PGF2 | |
| parent | e72fcb1513024e192eb112005da5e8586f517620 (diff) | |
haskell-bind: add bindings to graphviz rendering functions for abstract&parse trees
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index 9de76fb51..d78502561 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -3,7 +3,7 @@ module PGF2.FFI where import Foreign.C -import Foreign.C.String +--import Foreign.C.String import Foreign.Ptr import Foreign.ForeignPtr import Control.Exception @@ -206,3 +206,10 @@ foreign import ccall "pgf/pgf.h pgf_print" foreign import ccall "pgf/expr.h pgf_read_expr" pgf_read_expr :: Ptr GuIn -> Ptr GuPool -> Ptr GuExn -> IO PgfExpr + + +foreign import ccall "pgf/graphviz.h pgf_graphviz_abstract_tree" + pgf_graphviz_abstract_tree :: Ptr PgfPGF -> PgfExpr -> Ptr GuOut -> Ptr GuExn -> IO () + +foreign import ccall "pgf/graphviz.h pgf_graphviz_parse_tree" + pgf_graphviz_parse_tree :: Ptr PgfConcr -> PgfExpr -> Ptr GuOut -> Ptr GuExn -> IO () |