On 03/08/07, Dave Bayer <[EMAIL PROTECTED]> wrote:
>  I'm actually calling
> Markdown.pl on tiny files (source code of lengths a human would read), and
> it is certainly sluggish enough to be a fair test.)

I had to do this recently, so you might be interested in my approach:

<http://193.219.108.225/code/blogpost/BlogPost.hs>

The idea here is to run arbitrary text (blog posts) through Markdown
and Smartypants before sending them out to the wider world. The code
should be pretty self-contained and easy to follow. It does use
waitForProcess but I've done my best to keep it clean. (It could still
do with being refactored though; there are still bits or repeated
code.)

The part you want is about 80% of the way down and looks like this:

educate = \s -> markdown s >>= smartypants

markdown = convert "Markdown"
smartypants = convert "SmartyPants"

convertWith conv str = do
    (hin, hout, herr, proc) <- runInteractiveProcess conv [] Nothing Nothing
    forkIO $ hPutStr hin str >> hClose hin
    str' <- hGetContents hout
    return (str', proc)

convert conv input = do
    bracket
        (convertWith conv input)
        (\(_,pc) -> do
            ret <- waitForProcess pc
            return (ret==ExitSuccess))
        (return . fst)


Cheers,

D.
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to