bindings/csharp/Makefile bindings/csharp/Pandoc.cs bindings/csharp/pandoc.fsx bindings/plt-scheme/Makefile bindings/plt-scheme/pandoc/info.ss bindings/plt-scheme/pandoc/pandoc.ss @@ -20,7 +20,6 @@ install: $(LIB) test: $H -lpandoc test/test.c -o test/test test/test - mzscheme test/test.ss test/README %.so: %.hs lib$(NAME)-so.c $H $F --make -no-hs-main -optl-shared -o $@ $< lib$(NAME)-so.c Makefile @@ -1,5 +1,5 @@ Name: libpandoc -Version: 0.1 +Version: 0.2 Cabal-Version: >= 1.2 License: BSD3 Author: Anton Tayanovskyy @@ -8,6 +8,6 @@ Synopsis: A configuration of Pandoc built into a shared object (dynamicall Build-Type: Simple Library - Build-Depends: pandoc + Build-Depends: pandoc, json libpandoc.cabal @@ -3,52 +3,199 @@ module LibPandoc (pandoc) where import Text.Pandoc +import Text.Pandoc.Shared +import Text.JSON import Foreign.C.Types import Foreign.C.String -convert :: String -> String -> String -> String -convert src tgt text = - case reader src of - Left e -> e - Right r -> writer tgt (r text) - -dps = defaultParserState - -reader "markdown" = Right $ readMarkdown dps -reader "html" = Right $ readHtml dps -reader "latex" = Right $ readLaTeX dps -reader "rst" = Right $ readRST dps -reader x = Left $ unwords ["unknown reader:", x, ";", - "available readers are:", - "markdown, html, latex, rst"] - -wo = defaultWriterOptions - -writer "context" = writeConTeXt wo -writer "docbook" = writeDocbook wo -writer "html" = writeHtmlString wo -writer "latex" = writeLaTeX wo -writer "man" = writeMan wo -writer "markdown" = writeMarkdown wo -writer "mediawiki" = writeMediaWiki wo -writer "opendocument" = writeOpenDocument wo -writer "rst" = writeRST wo -writer "rtf" = writeRTF wo -writer "s5" = writeS5String wo -writer "texinfo" = writeTexinfo wo -writer x = \_ -> - unwords ["unknown writer:", x, ";", - "available writers are:", - "context, docbook, html,", - "latex, man, markdown, mediawiki,", - "opendocument, rst, rtf, s5, texinfo"] - -pandoc :: CString -> CString -> CString -> IO CString -pandoc src tgt text = do - src' <- peekCString src - tgt' <- peekCString tgt - txt' <- peekCString text - newCString $ convert src' tgt' txt' - -foreign export ccall pandoc :: CString -> CString -> CString -> IO CString +pandoc_fmt_MARKDOWN = 0 +pandoc_fmt_RST = 1 +pandoc_fmt_HTML = 2 +pandoc_fmt_LATEX = 3 +pandoc_fmt_S5 = 4 +pandoc_fmt_DOCBOOK = 5 +pandoc_fmt_ODT = 6 +pandoc_fmt_CONTEXT = 7 +pandoc_fmt_TEXINFO = 8 +pandoc_fmt_MAN = 9 +pandoc_fmt_MEDIAWIKI = 10 +pandoc_fmt_RTF = 11 + +reader x | x == pandoc_fmt_MARKDOWN = Just readMarkdown + | x == pandoc_fmt_HTML = Just readHtml + | x == pandoc_fmt_LATEX = Just readLaTeX + | x == pandoc_fmt_RST = Just readRST + | otherwise = Nothing + +writer x | x == pandoc_fmt_MARKDOWN = Just writeMarkdown + | x == pandoc_fmt_RST = Just writeRST + | x == pandoc_fmt_HTML = Just writeHtmlString + | x == pandoc_fmt_LATEX = Just writeLaTeX + | x == pandoc_fmt_S5 = Just writeS5String + | x == pandoc_fmt_DOCBOOK = Just writeDocbook + | x == pandoc_fmt_ODT = Just writeOpenDocument + | x == pandoc_fmt_CONTEXT = Just writeConTeXt + | x == pandoc_fmt_TEXINFO = Just writeTexinfo + | x == pandoc_fmt_MAN = Just writeMan + | x == pandoc_fmt_MEDIAWIKI = Just writeMediaWiki + | x == pandoc_fmt_RTF = Just writeRTF + | otherwise = Nothing + +defWO = defaultWriterOptions +defMath = writerHTMLMathMethod defWO +defObfuscation = writerEmailObfuscation defWO + +instance JSON ParserContext where + showJSON _ = undefined + readJSON (JSString s) = + return $ + case fromJSString s of + "ListItemState" -> ListItemState + "NullState" -> NullState + _ -> NullState + +instance JSON QuoteContext where + showJSON = undefined + readJSON (JSString s) = + return $ + case fromJSString s of + "InSingleQuote" -> InSingleQuote + "InDoubleQuote" -> InDoubleQuote + "NoQuote" -> NoQuote + _ -> NoQuote + +instance JSON ParserState where + showJSON = undefined + readJSON (JSObject j) = + do parseRaw <- val (stateParseRaw def) "ParseRaw" + parserContext <- val (stateParserContext def) "ParserContext" + quoteContext <- val (stateQuoteContext def) "QuoteContext" + sanitizeHTML <- val (stateSanitizeHTML def) "SanitizeHTML" + keys <- return $ stateKeys def + notes <- return $ stateNotes def + tabStop <- val (stateTabStop def) "TabStop" + standalone <- val (stateStandalone def) "Standalone" + title <- return $ stateTitle def + authors <- val (stateAuthors def) "Authors" + date <- val (stateDate def) "Date" + strict <- val (stateStrict def) "Strict" + smart <- val (stateSmart def) "Smart" + literateHaskell <- val (stateLiterateHaskell def) "LiterateHaskell" + columns <- val (stateColumns def) "Columns" + headerTable <- return $ stateHeaderTable def + return (ParserState parseRaw + parserContext + quoteContext + sanitizeHTML + keys + notes + tabStop + standalone + title + authors + date + strict + smart + literateHaskell + columns + headerTable) + where + def = defaultParserState + val a n = case valFromObj n j of + Ok x -> Ok x + Error _ -> Ok a + readJSON _ = return defaultParserState + +instance JSON HTMLMathMethod where + readJSON (JSString s) = + return $ + case fromJSString s of + "PlainMath" -> PlainMath + "GladTeX" -> GladTeX + "LaTeXMathML" -> LaTeXMathML Nothing + "JsMath" -> JsMath Nothing + _ -> defMath + readJSON (JSObject j) = + return $ + case fromJSObject j of + [("MimeTeX", JSString s)] -> MimeTeX (fromJSString s) + [("LaTeXMathML", JSString s)] -> LaTeXMathML (Just (fromJSString s)) + [("JsMath", JSString s)] -> JsMath (Just (fromJSString s)) + _ -> defMath + + readJSON _ = return defMath + showJSON = undefined + +instance JSON ObfuscationMethod where + readJSON (JSString s) = + return $ + case fromJSString s of + "NoObfuscation" -> NoObfuscation + "ReferenceObfuscation" -> ReferenceObfuscation + "JavascriptObfuscation" -> JavascriptObfuscation + _ -> defObfuscation + readJSON _ = return defObfuscation + showJSON = undefined + +instance JSON WriterOptions where + readJSON (JSObject j) = + do standalone <- val (writerStandalone def) "Standalone" + header <- val (writerHeader def) "Header" + titlePrefix <- val (writerTitlePrefix def) "TitlePrefix" + tabStop <- val (writerTabStop def) "TabStop" + tableOfContents <- val (writerTableOfContents def) "TableOfContents" + s5 <- val (writerS5 def) "S5" + htmlMathMethod <- val (writerHTMLMathMethod def) "HTMLMathMethod" + ignoreNotes <- val (writerIgnoreNotes def) "IgnoreNotes" + incremental <- val (writerIncremental def) "Incremental" + numberSections <- val (writerNumberSections def) "NumberSections" + includeBefore <- val (writerIncludeBefore def) "IncludeBefore" + includeAfter <- val (writerIncludeAfter def) "IncludeAfter" + strictMarkdown <- val (writerStrictMarkdown def) "StrictMarkdown" + wrapText <- val (writerWrapText def) "WrapText" + referenceLinks <- val (writerReferenceLinks def) "ReferenceLinks" + literateHaskell <- val (writerLiterateHaskell def) "LiterateHaskell" + emailObfuscation <- + val (writerEmailObfuscation def) "EmailObfuscation" + return $ (WriterOptions standalone + header + titlePrefix + tabStop + tableOfContents + s5 + htmlMathMethod + ignoreNotes + incremental + numberSections + includeBefore + includeAfter + strictMarkdown + referenceLinks + wrapText + literateHaskell + emailObfuscation) + where + def = defWO + val a n = case valFromObj n j of + Ok x -> Ok x + Error _ -> Ok a + readJSON _ = return defWO + showJSON = undefined + +pandoc :: CInt -> CString -> CInt -> CString -> CString -> IO CString +pandoc i ps o wo t = do + ps <- fmap decode $ peekCString ps + wo <- fmap decode $ peekCString wo + t <- peekCString t + newCString $ case (reader i, writer o, wo, ps) of + (Just i, Just o, Ok wo, Ok ps) -> o wo $ i ps t + _ -> "pandoc error: invalid options" + +foreign export ccall pandoc :: + CInt -> -- input format code + CString -> -- JSON-encoded extra ParserState options + CInt -> -- output format code + CString -> -- JSON-encoded extra WriterOptions + CString -> -- input text + IO CString -- output tex libpandoc.hs @@ -1 +1,19 @@ -char* pandoc(char* src, char* tgt, char* text); +#define PANDOC_FMT_MARKDOWN 0 +#define PANDOC_FMT_RST 1 +#define PANDOC_FMT_HTML 2 +#define PANDOC_FMT_LATEX 3 +#define PANDOC_FMT_S5 4 +#define PANDOC_FMT_DOCBOOK 5 +#define PANDOC_FMT_ODT 6 +#define PANDOC_FMT_CONTEXT 7 +#define PANDOC_FMT_TEXINFO 8 +#define PANDOC_FMT_MAN 9 +#define PANDOC_FMT_MEDIAWIKI 10 +#define PANDOC_FMT_RTF 11 + +char* pandoc(int input_format, + char* parser_state_json, + int output_format, + char* writer_options_json, + char* text); + pandoc.h @@ -2,7 +2,11 @@ #include <pandoc.h> void test(void) { - printf("%s", pandoc("markdown", "html", "[hello](http://hello.com)")); + printf("%s", pandoc(PANDOC_FMT_MARKDOWN, + "null", + PANDOC_FMT_HTML, + "{\"WrapText\": false}", + "[hello](http://hello.com)")); } int main(int argc, char *argv[]) { test/test.c test/README test/test.ss 9d17cbedaa3aee05a8fb49bdf842bfdc9b5e7d4d U-tosh\toyvo toyvo@tosh.(none) http://github.com/toyvo/libpandoc/commit/0e1cb8d30d4f2d5f13dbac82e15779a7390e8d36 0e1cb8d30d4f2d5f13dbac82e15779a7390e8d36 2009-03-15T06:18:04-07:00 2009-03-15T06:18:04-07:00 added support for Pandoc options via JSON, added C# bindings, PLT Scheme bindings 790ac61613935b50364ade95452fa31c73b221bb U-tosh\toyvo toyvo@tosh.(none)