ParserPlayground.fsx

#r @"packages/FParsec.1.0.2/lib/net40-client/FParsecCS.dll"
#r @"packages/FParsec.1.0.2/lib/net40-client/FParsec.dll"

#load "Markdown.fs"
#load "Parser.fs"
#load "WithParsec.fs"
#load "HTMLFormat.fs"

open MarkdownWithFs

let sample = """
# Visual F#
 
> This is a blockquote with two paragraphs. Lorem ipsum dolor sit amet,
> consectetuer adipiscing elit. Aliquam hendrerit mi posuere lectus.
> Vestibulum enim wisi, viverra nec, fringilla in, laoreet vitae, risus.
> 
> Donec sit amet nisl. Aliquam semper ipsum sit amet velit. Suspendisse
> id sem consectetuer libero luctus adipiscing.
 
> This is a blockquote with two paragraphs. Lorem ipsum dolor sit amet,
consectetuer adipiscing elit. Aliquam hendrerit mi posuere lectus.
Vestibulum enim wisi, viverra nec, fringilla in, laoreet vitae, risus.
 
> Donec sit amet nisl. Aliquam semper ipsum sit amet velit. Suspendisse
id sem consectetuer libero luctus adipiscing.
 
> ## This is a header.
> 
> 1.   This is the first list item.
> 2.   This is the second list item.
> 
> Here's some example code:
> 
>     return shell_exec("echo $input | $markdown_script");
 
F# is a **programming language** that supports _functional_, as       
well as _object-oriented_ and _imperative_ programming styles.     
   
Hello world can be written as follows:  
                              
    printfn "Hello world!"
    printfn "Hello world! once again"        
          
For more information, see the [F# home page](http://fsharp.net) or 
read [Real-World Func tional Programming](http://manning.com/petricek) 
published by [Manning](http://manning.com).
"""

let parsecSample = """
Visual F#
==========
 
F# is a **programming language** that supports _functional_, as       
well as _object-oriented_ and _imperative_ programming styles.        
Hello world can be written as follows:   
                                 
    printfn "Hello world!"
    printfn "Hello world!"
                         
For more information, see the [F# home page] (http://fsharp.net) or 
read [Real-World Func tional Programming] (http://manning.com/petricek) 
published by [Manning] (http://manning.com)."""

let parsecSample2 = """
Hello world can be written as follows:
 
    printfn "Hello world!"
 
This is the end"""

sample |> Parser.parseMarkdown |> Seq.iter(fun x -> printfn "%A" x)

parsecSample |> WithParsec.parseMarkdown |> HTMLFormat.exportToHTML