<!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>OptionalArguments - 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">
<link rel="Appendix" title="optionalargs.sml" href="http://mlton.org/pages/OptionalArguments/attachments/optionalargs.sml">
</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%;">
OptionalArguments
<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">
<a href="StandardML">Standard ML</a> does not have built-in support for optional arguments. Nevertheless, using <a href="Fold">Fold</a>, it is easy to define functions that take optional arguments. <p>
For example, suppose that we have the following definition of a function <tt>f</tt>.
</p>
<pre class=code>
<B><FONT COLOR="#A020F0">fun</FONT></B> f (i, r, s) =
concat [Int.toString i, <B><FONT COLOR="#BC8F8F">", "</FONT></B>, Real.toString r, <B><FONT COLOR="#BC8F8F">", "</FONT></B>, s]
</PRE>
<p>
</p>
<p>
Using the <tt>OptionalArg</tt> structure described below, we can define a function <tt>f'</tt>, an optionalized version of <tt>f</tt>, that takes 0, 1, 2, or 3 arguments. Embedded within <tt>f'</tt> will be default values for <tt>i</tt>, <tt>r</tt>, and <tt>s</tt>. If <tt>f'</tt> gets no arguments, then all the defaults are used. If <tt>f'</tt> gets one argument, then that will be used for <tt>i</tt>. Two arguments will be used for <tt>i</tt> and <tt>r</tt> respectively. Three arguments will override all default values. Calls to <tt>f'</tt> will look like the following.
</p>
<pre class=code>
f' $
f' `<B><FONT COLOR="#5F9EA0">2</FONT></B> $
f' `<B><FONT COLOR="#5F9EA0">2</FONT></B> `<B><FONT COLOR="#5F9EA0">3.0</FONT></B> $
f' `<B><FONT COLOR="#5F9EA0">2</FONT></B> `<B><FONT COLOR="#5F9EA0">3.0</FONT></B> `<B><FONT COLOR="#BC8F8F">"four"</FONT></B> $
</PRE>
<p>
</p>
<p>
The optional argument indicator, "`", is not special syntax -- it is a normal SML value, defined in the <tt>OptionalArg</tt> structure below.
</p>
<p>
Here is the definition of <tt>f'</tt> using the <tt>OptionalArg</tt> structure, in particular, <tt>OptionalArg.make</tt> and <tt>OptionalArg.D</tt>.
</p>
<pre class=code>
<B><FONT COLOR="#A020F0">val</FONT></B> f' =
<B><FONT COLOR="#A020F0">fn</FONT></B> z =>
<B><FONT COLOR="#A020F0">let</FONT></B> <B><FONT COLOR="#0000FF">open</FONT></B> OptionalArg <B><FONT COLOR="#A020F0">in</FONT></B>
make (D <B><FONT COLOR="#5F9EA0">1</FONT></B>) (D <B><FONT COLOR="#5F9EA0">2.0</FONT></B>) (D <B><FONT COLOR="#BC8F8F">"three"</FONT></B>) $
<B><FONT COLOR="#A020F0">end</FONT></B> (<B><FONT COLOR="#A020F0">fn</FONT></B> i & r & s => f (i, r, s))
z
</PRE>
<p>
</p>
<p>
The definition of <tt>f'</tt> is eta expanded as with all uses of fold. A call to <tt>OptionalArg.make</tt> is supplied with a variable number of defaults (in this case, three), the end-of-arguments terminator, <tt>$</tt>, and the function to run, taking its arguments as an n-ary <a href="ProductType">product</a>. In this case, the function simply converts the product to an ordinary tuple and calls <tt>f</tt>. Often, the function body will simply be written directly.
</p>
<p>
In general, the definition of an optional-argument function looks like the following.
</p>
<pre class=code>
<B><FONT COLOR="#A020F0">val</FONT></B> f =
<B><FONT COLOR="#A020F0">fn</FONT></B> z =>
<B><FONT COLOR="#A020F0">let</FONT></B> <B><FONT COLOR="#0000FF">open</FONT></B> OptionalArg <B><FONT COLOR="#A020F0">in</FONT></B>
make (D <default1>) (D <default2>) ... (D <defaultn>) $
<B><FONT COLOR="#A020F0">end</FONT></B> (<B><FONT COLOR="#A020F0">fn</FONT></B> x1 & x2 & ... & xn =>
<function code goes here>)
z
</PRE>
<p>
</p>
<p>
Here is the definition of <tt>OptionalArg</tt>.
</p>
<pre class=code>
<B><FONT COLOR="#0000FF">structure</FONT></B> OptionalArg =
<B><FONT COLOR="#0000FF">struct</FONT></B>
<B><FONT COLOR="#A020F0">val</FONT></B> make =
<B><FONT COLOR="#A020F0">fn</FONT></B> z =>
Fold.fold
((id, <B><FONT COLOR="#A020F0">fn</FONT></B> (f, x) => f x),
<B><FONT COLOR="#A020F0">fn</FONT></B> (d, r) => <B><FONT COLOR="#A020F0">fn</FONT></B> func =>
Fold.fold ((id, d ()), <B><FONT COLOR="#A020F0">fn</FONT></B> (f, d) =>
<B><FONT COLOR="#A020F0">let</FONT></B>
<B><FONT COLOR="#A020F0">val</FONT></B> d & () = r (id, f d)
<B><FONT COLOR="#A020F0">in</FONT></B>
func d
<B><FONT COLOR="#A020F0">end</FONT></B>))
z
<B><FONT COLOR="#A020F0">fun</FONT></B> D d = Fold.step0 (<B><FONT COLOR="#A020F0">fn</FONT></B> (f, r) =>
(<B><FONT COLOR="#A020F0">fn</FONT></B> ds => f (d & ds),
<B><FONT COLOR="#A020F0">fn</FONT></B> (f, a & b) => r (<B><FONT COLOR="#A020F0">fn</FONT></B> x => f a & x, b)))
<B><FONT COLOR="#A020F0">val</FONT></B> ` =
<B><FONT COLOR="#A020F0">fn</FONT></B> z =>
Fold.step1 (<B><FONT COLOR="#A020F0">fn</FONT></B> (x, (f, _ & d)) => (<B><FONT COLOR="#A020F0">fn</FONT></B> d => f (x & d), d))
z
<B><FONT COLOR="#0000FF">end</FONT></B>
</PRE>
<p>
</p>
<p>
<tt>OptionalArg.make</tt> uses a nested fold. The first <tt>fold</tt> accumulates the default values in a product, associated to the right, and a reversal function that converts a product (of the same arity as the number of defaults) from right associativity to left associativity. The accumulated defaults are used by the second fold, which recurs over the product, replacing the appropriate component as it encounters optional arguments. The second fold also constructs a "fill" function, <tt>f</tt>, that is used to reconstruct the product once the end-of-arguments is reached. Finally, the finisher reconstructs the product and uses the reversal function to convert the product from right associative to left associative, at which point it is passed to the user-supplied function.
</p>
<p>
Much of the complexity comes from the fact that while recurring over a product from left to right, one wants it to be right-associative, e.g. look like
<pre class=code>
a & (b & (c & d))
</PRE>
but the user function in the end wants the product to be left associative, so that the product argument pattern can be written without parentheses (since <tt>&</tt> is left associative).
</p>
<h2 id="head-bdcc5ca8c9a34bead29282d453a2db99bcecf045">Labelled optional arguments</h2>
<p>
In addition to the positional optional arguments described above, it is sometimes useful to have labelled optional arguments. These allow one to define a function, <tt>f</tt>, with defaults, say <tt>a</tt> and <tt>b</tt>. Then, a caller of <tt>f</tt> can supply values for <tt>a</tt> and <tt>b</tt> by name. If no value is supplied then the default is used.
</p>
<p>
Labelled optional arguments are a simple extension of <a href="FunctionalRecordUpdate">FunctionalRecordUpdate</a> using post composition. Suppose, for example, that one wants a function <tt>f</tt> with labelled optional arguments <tt>a</tt> and <tt>b</tt> with default values <tt>0</tt> and <tt>0.0</tt> respectively. If one has a functional-record-update function <tt>updateAB</tt> for records with <tt>a</tt> and <tt>b</tt> fields, then one can define <tt>f</tt> in the following way.
</p>
<pre class=code>
<B><FONT COLOR="#A020F0">val</FONT></B> f =
<B><FONT COLOR="#A020F0">fn</FONT></B> z =>
Fold.post
(updateAB {a = <B><FONT COLOR="#5F9EA0">0</FONT></B>, b = <B><FONT COLOR="#5F9EA0">0.0</FONT></B>},
<B><FONT COLOR="#A020F0">fn</FONT></B> {a, b} => print (concat [Int.toString a, <B><FONT COLOR="#BC8F8F">" "</FONT></B>,
Real.toString b, <B><FONT COLOR="#BC8F8F">"\n"</FONT></B>]))
z
</PRE>
<p>
</p>
<p>
The idea is that <tt>f</tt> is the post composition (using <tt>Fold.post</tt>) of the actual code for the function with a functional-record updater that starts with the defaults.
</p>
<p>
Here are some example calls to <tt>f</tt>.
<pre class=code>
<B><FONT COLOR="#A020F0">val</FONT></B> () = f $
<B><FONT COLOR="#A020F0">val</FONT></B> () = f (U#a <B><FONT COLOR="#5F9EA0">13</FONT></B>) $
<B><FONT COLOR="#A020F0">val</FONT></B> () = f (U#a <B><FONT COLOR="#5F9EA0">13</FONT></B>) (U#b <B><FONT COLOR="#5F9EA0">17.5</FONT></B>) $
<B><FONT COLOR="#A020F0">val</FONT></B> () = f (U#b <B><FONT COLOR="#5F9EA0">17.5</FONT></B>) (U#a <B><FONT COLOR="#5F9EA0">13</FONT></B>) $
</PRE>
</p>
<p>
Notice that a caller can supply neither of the arguments, either of the arguments, or both of the arguments, and in either order. All that matter is that the arguments be labelled correctly (and of the right type, of course).
</p>
<p>
Here is another example.
<pre class=code>
<B><FONT COLOR="#A020F0">val</FONT></B> f =
<B><FONT COLOR="#A020F0">fn</FONT></B> z =>
Fold.post
(updateBCD {b = <B><FONT COLOR="#5F9EA0">0</FONT></B>, c = <B><FONT COLOR="#5F9EA0">0.0</FONT></B>, d = <B><FONT COLOR="#BC8F8F">"<>"</FONT></B>},
<B><FONT COLOR="#A020F0">fn</FONT></B> {b, c, d} =>
print (concat [Int.toString b, <B><FONT COLOR="#BC8F8F">" "</FONT></B>,
Real.toString c, <B><FONT COLOR="#BC8F8F">" "</FONT></B>,
d, <B><FONT COLOR="#BC8F8F">"\n"</FONT></B>]))
z
</PRE>
</p>
<p>
Here are some example calls.
<pre class=code>
<B><FONT COLOR="#A020F0">val</FONT></B> () = f $
<B><FONT COLOR="#A020F0">val</FONT></B> () = f (U#d <B><FONT COLOR="#BC8F8F">"goodbye"</FONT></B>) $
<B><FONT COLOR="#A020F0">val</FONT></B> () = f (U#d <B><FONT COLOR="#BC8F8F">"hello"</FONT></B>) (U#b <B><FONT COLOR="#5F9EA0">17</FONT></B>) (U#c <B><FONT COLOR="#5F9EA0">19.3</FONT></B>) $
</PRE>
</p>
</div>
<p>
<hr>
Last edited on 2007-08-15 22:06:57 by <span title="fenrir.uchicago.edu"><a href="MatthewFluet">MatthewFluet</a></span>.
</body></html>
