<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Easy_format" rel="Chapter" href="Easy_format.html"><title>Easy_format</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> wrap =<br> [ <span class="keywordsign">`</span><span class="constructor">Always_wrap</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Force_breaks</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Never_wrap</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">No_breaks</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Wrap_atoms</span> ]<br> <span class="keyword">type</span> style_name = string<br> <span class="keyword">type</span> style = { tag_open : string; tag_close : string; }<br> <span class="keyword">type</span> atom_param = { atom_style : <span class="constructor">Easy_format</span>.style_name option; }<br> <span class="keyword">val</span> atom : <span class="constructor">Easy_format</span>.atom_param<br> <span class="keyword">type</span> list_param = {<br> space_after_opening : bool;<br> space_after_separator : bool;<br> space_before_separator : bool;<br> separators_stick_left : bool;<br> space_before_closing : bool;<br> stick_to_label : bool;<br> align_closing : bool;<br> wrap_body : <span class="constructor">Easy_format</span>.wrap;<br> indent_body : int;<br> list_style : <span class="constructor">Easy_format</span>.style_name option;<br> opening_style : <span class="constructor">Easy_format</span>.style_name option;<br> body_style : <span class="constructor">Easy_format</span>.style_name option;<br> separator_style : <span class="constructor">Easy_format</span>.style_name option;<br> closing_style : <span class="constructor">Easy_format</span>.style_name option;<br> }<br> <span class="keyword">val</span> list : <span class="constructor">Easy_format</span>.list_param<br> <span class="keyword">type</span> label_param = {<br> space_after_label : bool;<br> indent_after_label : int;<br> label_style : <span class="constructor">Easy_format</span>.style_name option;<br> }<br> <span class="keyword">val</span> label : <span class="constructor">Easy_format</span>.label_param<br> <span class="keyword">type</span> t =<br> <span class="constructor">Atom</span> <span class="keyword">of</span> string * <span class="constructor">Easy_format</span>.atom_param<br> <span class="keywordsign">|</span> <span class="constructor">List</span> <span class="keyword">of</span> (string * string * string * <span class="constructor">Easy_format</span>.list_param) *<br> <span class="constructor">Easy_format</span>.t list<br> <span class="keywordsign">|</span> <span class="constructor">Label</span> <span class="keyword">of</span> (<span class="constructor">Easy_format</span>.t * <span class="constructor">Easy_format</span>.label_param) * <span class="constructor">Easy_format</span>.t<br> <span class="keywordsign">|</span> <span class="constructor">Custom</span> <span class="keyword">of</span> (<span class="constructor">Format</span>.formatter <span class="keywordsign">-></span> unit)<br> <span class="keyword">type</span> escape =<br> [ <span class="keywordsign">`</span><span class="constructor">Escape</span> <span class="keyword">of</span><br> (string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Escape_string</span> <span class="keyword">of</span> string <span class="keywordsign">-></span> string<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">None</span> ]<br> <span class="keyword">type</span> styles = (<span class="constructor">Easy_format</span>.style_name * <span class="constructor">Easy_format</span>.style) list<br> <span class="keyword">module</span> <span class="constructor">Pretty</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> define_styles :<br> <span class="constructor">Format</span>.formatter <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.escape <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.styles <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_formatter : <span class="constructor">Format</span>.formatter <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_buffer :<br> ?escape:<span class="constructor">Easy_format</span>.escape <span class="keywordsign">-></span><br> ?styles:<span class="constructor">Easy_format</span>.styles <span class="keywordsign">-></span> <span class="constructor">Buffer</span>.t <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_string :<br> ?escape:<span class="constructor">Easy_format</span>.escape <span class="keywordsign">-></span><br> ?styles:<span class="constructor">Easy_format</span>.styles <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> to_channel :<br> ?escape:<span class="constructor">Easy_format</span>.escape <span class="keywordsign">-></span><br> ?styles:<span class="constructor">Easy_format</span>.styles <span class="keywordsign">-></span><br> <span class="constructor">Pervasives</span>.out_channel <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_stdout :<br> ?escape:<span class="constructor">Easy_format</span>.escape <span class="keywordsign">-></span><br> ?styles:<span class="constructor">Easy_format</span>.styles <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_stderr :<br> ?escape:<span class="constructor">Easy_format</span>.escape <span class="keywordsign">-></span><br> ?styles:<span class="constructor">Easy_format</span>.styles <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Compact</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> to_buffer : <span class="constructor">Buffer</span>.t <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_string : <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> to_channel : <span class="constructor">Pervasives</span>.out_channel <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_stdout : <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_stderr : <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_formatter : <span class="constructor">Format</span>.formatter <span class="keywordsign">-></span> <span class="constructor">Easy_format</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Param</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> list_true : <span class="constructor">Easy_format</span>.list_param<br> <span class="keyword">val</span> label_true : <span class="constructor">Easy_format</span>.label_param<br> <span class="keyword">val</span> list_false : <span class="constructor">Easy_format</span>.list_param<br> <span class="keyword">val</span> label_false : <span class="constructor">Easy_format</span>.label_param<br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>