<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta name="robots" content="index,nofollow"> <title>Utilities - MLton Standard ML Compiler (SML Compiler)</title> <link rel="stylesheet" type="text/css" charset="iso-8859-1" media="all" href="common.css"> <link rel="stylesheet" type="text/css" charset="iso-8859-1" media="screen" href="screen.css"> <link rel="stylesheet" type="text/css" charset="iso-8859-1" media="print" href="print.css"> <link rel="Start" href="Home"> </head> <body lang="en" dir="ltr"> <script src="http://www.google-analytics.com/urchin.js" type="text/javascript"> </script> <script type="text/javascript"> _uacct = "UA-833377-1"; urchinTracker(); </script> <table bgcolor = lightblue cellspacing = 0 style = "border: 0px;" width = 100%> <tr> <td style = " border: 0px; color: darkblue; font-size: 150%; text-align: left;"> <a class = mltona href="Home">MLton MLTONWIKIVERSION</a> <td style = " border: 0px; font-size: 150%; text-align: center; width: 50%;"> Utilities <td style = " border: 0px; text-align: right;"> <table cellspacing = 0 style = "border: 0px"> <tr style = "vertical-align: middle;"> </table> <tr style = "background-color: white;"> <td colspan = 3 style = " border: 0px; font-size:70%; text-align: right;"> <a href = "Home">Home</a> <a href = "TitleIndex">Index</a> </table> <div id="content" lang="en" dir="ltr"> This page is a collection of basic utilities used in the examples on various pages. See <ul> <li> <p> <a href="InfixingOperators">InfixingOperators</a>, and </p> </li> <li> <p> <a href="ProductType">ProductType</a> </p> </li> </ul> <p> for longer discussions on some of these utilities. </p> <pre class=code> <I><FONT COLOR="#B22222">(* Operator precedence table *)</FONT></I> <B><FONT COLOR="#A020F0">infix</FONT></B> 8 * / div mod <I><FONT COLOR="#B22222">(* +1 from Basis Library *)</FONT></I> <B><FONT COLOR="#A020F0">infix</FONT></B> 7 + - ^ <I><FONT COLOR="#B22222">(* +1 from Basis Library *)</FONT></I> <B><FONT COLOR="#A020F0">infixr</FONT></B> 6 :: @ <I><FONT COLOR="#B22222">(* +1 from Basis Library *)</FONT></I> <B><FONT COLOR="#A020F0">infix</FONT></B> 5 = <> > >= < <= <I><FONT COLOR="#B22222">(* +1 from Basis Library *)</FONT></I> <B><FONT COLOR="#A020F0">infix</FONT></B> 4 <\ \> <B><FONT COLOR="#A020F0">infixr</FONT></B> 4 </ /> <B><FONT COLOR="#A020F0">infix</FONT></B> 3 o <B><FONT COLOR="#A020F0">infix</FONT></B> 2 >| <B><FONT COLOR="#A020F0">infixr</FONT></B> 2 |< <B><FONT COLOR="#A020F0">infix</FONT></B> 1 := <I><FONT COLOR="#B22222">(* -2 from Basis Library *)</FONT></I> <B><FONT COLOR="#A020F0">infix</FONT></B> 0 before & <I><FONT COLOR="#B22222">(* Some basic combinators *)</FONT></I> <B><FONT COLOR="#A020F0">fun</FONT></B> const x _ = x <B><FONT COLOR="#A020F0">fun</FONT></B> cross (f, g) (x, y) = (f x, g y) <B><FONT COLOR="#A020F0">fun</FONT></B> curry f x y = f (x, y) <B><FONT COLOR="#A020F0">fun</FONT></B> fail e _ = <B><FONT COLOR="#A020F0">raise</FONT></B> e <B><FONT COLOR="#A020F0">fun</FONT></B> id x = x <I><FONT COLOR="#B22222">(* Product type *)</FONT></I> <B><FONT COLOR="#A020F0">datatype</FONT></B><B><FONT COLOR="#228B22"> ('a, 'b) product </FONT></B>=<B><FONT COLOR="#228B22"> <FONT COLOR="#B8860B">&</FONT> <B><FONT COLOR="#A020F0">of</FONT></B> 'a * 'b <I><FONT COLOR="#B22222">(* Sum type *)</FONT></I> </FONT></B><B><FONT COLOR="#A020F0">datatype</FONT></B><B><FONT COLOR="#228B22"> ('a, 'b) sum </FONT></B>=<B><FONT COLOR="#228B22"> <FONT COLOR="#B8860B">INL</FONT> <B><FONT COLOR="#A020F0">of</FONT></B> 'a </FONT></B>|<B><FONT COLOR="#228B22"> <FONT COLOR="#B8860B">INR</FONT> <B><FONT COLOR="#A020F0">of</FONT></B> 'b <I><FONT COLOR="#B22222">(* Some type shorthands *)</FONT></I> </FONT></B><B><FONT COLOR="#A020F0">type</FONT></B><B><FONT COLOR="#228B22"> 'a uop </FONT></B>=<B><FONT COLOR="#228B22"> 'a -> 'a </FONT></B><B><FONT COLOR="#A020F0">type</FONT></B><B><FONT COLOR="#228B22"> 'a fix </FONT></B>=<B><FONT COLOR="#228B22"> 'a uop -> 'a </FONT></B><B><FONT COLOR="#A020F0">type</FONT></B><B><FONT COLOR="#228B22"> 'a thunk </FONT></B>=<B><FONT COLOR="#228B22"> unit -> 'a </FONT></B><B><FONT COLOR="#A020F0">type</FONT></B><B><FONT COLOR="#228B22"> 'a effect </FONT></B>=<B><FONT COLOR="#228B22"> 'a -> unit </FONT></B><B><FONT COLOR="#A020F0">type</FONT></B><B><FONT COLOR="#228B22"> ('a, 'b) emb </FONT></B>=<B><FONT COLOR="#228B22"> ('a -> 'b) * ('b -> 'a) <I><FONT COLOR="#B22222">(* Infixing, sectioning, and application operators *)</FONT></I> </FONT></B><B><FONT COLOR="#A020F0">fun</FONT></B> x <\ f = <B><FONT COLOR="#A020F0">fn</FONT></B> y => f (x, y) <B><FONT COLOR="#A020F0">fun</FONT></B> f \> y = f y <B><FONT COLOR="#A020F0">fun</FONT></B> f /> y = <B><FONT COLOR="#A020F0">fn</FONT></B> x => f (x, y) <B><FONT COLOR="#A020F0">fun</FONT></B> x </ f = f x <I><FONT COLOR="#B22222">(* Piping operators *)</FONT></I> <B><FONT COLOR="#A020F0">val</FONT></B> <B><FONT COLOR="#A020F0">op</FONT></B>>| = <B><FONT COLOR="#A020F0">op</FONT></B></ <B><FONT COLOR="#A020F0">val</FONT></B> <B><FONT COLOR="#A020F0">op</FONT></B>|< = <B><FONT COLOR="#A020F0">op</FONT></B>\> </PRE> <p> </p> </div> <p> <hr> Last edited on 2006-08-13 14:40:14 by <span title="cs181143070.pp.htv.fi"><a href="VesaKarvonen">VesaKarvonen</a></span>. </body></html>