Note:

You are viewing a development version of the library. Goto the latest version.

let rec pp_print fmt =
  function
    | [Para str] ->
        pp_print_para fmt ~end_para:false str
    | [Verbatim str] ->
        pp_print_verbatim fmt str
    | [Para str; BlankLine->
        pp_print_para fmt ~end_para:false str;
        pp_print_newline fmt ()
    | [Verbatim str; BlankLine->
        pp_print_verbatim fmt str;
        pp_print_newline fmt ()
    | Para str :: BlankLine :: ((Verbatim _ :: _) as tl) ->
        pp_print_para fmt str;
        pp_print fmt tl
    | Para str :: ((Verbatim _ :: _) as tl) ->
        pp_print_para ~end_para:false fmt str;
        pp_print_newline fmt ();
        pp_print fmt tl
    | Para str :: tl  ->
        pp_print_para fmt str;
        pp_print fmt tl
    | Verbatim str :: tl ->
        pp_print_verbatim fmt str;
        pp_print_newline fmt ();
        pp_print fmt tl
    | BlankLine :: tl ->
        pp_print_newline fmt ();
        pp_print fmt tl
    | [] ->
        ()