<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="pa_monad.html"> <link title="Index of types" rel=Appendix href="pa_monad_types.html"> <link title="Index of exceptions" rel=Appendix href="pa_monad_exceptions.html"> <link title="Index of values" rel=Appendix href="pa_monad_values.html"> <link title="Index of modules" rel=Appendix href="pa_monad_modules.html"> <link title="Pa_monad" rel="Chapter" href="Pa_monad.html"> <link title="Cc" rel="Chapter" href="Cc.html"> <link title="Exception" rel="Chapter" href="Exception.html"> <link title="Io" rel="Chapter" href="Io.html"> <link title="Utest" rel="Chapter" href="Utest.html"><title>Io</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> error = <span class="constructor">EndOfFile</span> <span class="keywordsign">|</span> <span class="constructor">IntOfString</span> <span class="keywordsign">|</span> <span class="constructor">SysError</span> <span class="keyword">of</span> string<br> <span class="keyword">type</span> world<br> <span class="keyword">type</span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) either<br> <span class="keyword">type</span> <span class="keywordsign">'</span>a t = <span class="constructor">Io</span>.world <span class="keywordsign">-></span> (<span class="constructor">Io</span>.error, <span class="keywordsign">'</span>a) <span class="constructor">Io</span>.either * <span class="constructor">Io</span>.world<br> <span class="keyword">val</span> __conjure_up : unit <span class="keywordsign">-></span> <span class="constructor">Io</span>.world<br> <span class="keyword">val</span> bind : <span class="keywordsign">'</span>a <span class="constructor">Io</span>.t <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>b <span class="constructor">Io</span>.t) <span class="keywordsign">-></span> <span class="keywordsign">'</span>b <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> return : <span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> throw : <span class="constructor">Io</span>.error <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> catch : <span class="keywordsign">'</span>a <span class="constructor">Io</span>.t <span class="keywordsign">-></span> (<span class="constructor">Io</span>.error <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Io</span>.t) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> print_char : char <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> print_string : string <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> print_int : int <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> print_float : float <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> print_endline : string <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> print_newline : unit <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> prerr_char : char <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> prerr_string : string <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> prerr_int : int <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> prerr_float : float <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> prerr_endline : string <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> prerr_newline : unit <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> read_line : unit <span class="keywordsign">-></span> string <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> read_int : unit <span class="keywordsign">-></span> int <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> read_float : unit <span class="keywordsign">-></span> float <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> open_out : string <span class="keywordsign">-></span> <span class="constructor">Pervasives</span>.out_channel <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> output_char : <span class="constructor">Pervasives</span>.out_channel <span class="keywordsign">-></span> char <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> output_string : <span class="constructor">Pervasives</span>.out_channel <span class="keywordsign">-></span> string <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">val</span> close_out : <span class="constructor">Pervasives</span>.out_channel <span class="keywordsign">-></span> unit <span class="constructor">Io</span>.t<br> <span class="keyword">end</span></code></body></html>