@@ -1,18 +1,18 @@ #include <stdio.h> #include <HsFFI.h> -#ifdef __GLASGOW_HASKELL__ -/* # - include "LibPandoc_stub.h" */ extern void __stginit_LibPandoc(void); -#endif void pandoc_init(void){ - int argc = 0; - char** argv; + int argc = 1; + char* args[] = {"libpandoc"}; + char** argv = args; hs_init(&argc, &argv); hs_add_root(__stginit_LibPandoc); } -void pandoc_end(void){ +void pandoc_exit(void){ hs_exit(); } + + pandoc.c @@ -47,7 +47,7 @@ extern void pandoc_init(); /* Shuts down the Haskell runtime. */ -extern void pandoc_end(); +extern void pandoc_exit(); /* Calls pandoc with given input and output streams. Returns a NULL on success, or a NULL-terminated error message on failure */ @@ -58,4 +58,6 @@ extern char* pandoc(int input_format, int (*reader)(char*, int), void (*writer)(char*, int)); +int one(); + #endif /* !_PANDOC_H */ pandoc.h 2dc700f09691553b79d3185f903f72ff79231468 Anton Tayanovskyy toyvo@tosh.(none) http://github.com/toyvo/libpandoc/commit/77ab7abb816b77eddbecea158c53f2cab2b6b40c 77ab7abb816b77eddbecea158c53f2cab2b6b40c 2009-10-14T16:56:27-07:00 2009-10-14T16:56:27-07:00 C interface changes - fixed a segfault on hs_init f14717618cc993d6302bd29b1edf58b0f813cdaf Anton Tayanovskyy toyvo@tosh.(none)