From 99f87c30d053e89e0bdb02a42fe8006904e7e9e3 Mon Sep 17 00:00:00 2001 From: hallgren Date: Thu, 19 Mar 2015 14:14:30 +0000 Subject: haskell-bind: add bindings to graphviz rendering functions for abstract&parse trees --- src/runtime/haskell-bind/PGF2/FFI.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'src/runtime/haskell-bind/PGF2') 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 () -- cgit v1.2.3