File: ms_transform.html

package info (click to toggle)
erlang-doc-html 1%3A11.b.2-1
links: PTS
area: main
in suites: etch, etch-m68k
size: 23,284 kB
ctags: 10,724
sloc: erlang: 505; ansic: 323; makefile: 62; perl: 61; sh: 45
file content (863 lines) | stat: -rw-r--r-- 34,650 bytes
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!-- This document was generated using DocBuilder 3.3.3 -->
<HTML>
<HEAD>
  <TITLE>ms_transform</TITLE>
  <SCRIPT type="text/javascript" src="../../../../doc/erlresolvelinks.js">
</SCRIPT>
  <STYLE TYPE="text/css">
<!--
    .REFBODY     { margin-left: 13mm }
    .REFTYPES    { margin-left: 8mm }
-->
  </STYLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#FF00FF"
      ALINK="#FF0000">
<!-- refpage -->
<CENTER>
<A HREF="http://www.erlang.se">
  <IMG BORDER=0 ALT="[Ericsson AB]" SRC="min_head.gif">
</A>
<H1>ms_transform</H1>
</CENTER>

<H3>MODULE</H3>
<DIV CLASS=REFBODY>
ms_transform
</DIV>

<H3>MODULE SUMMARY</H3>
<DIV CLASS=REFBODY>
Parse_transform that translates fun syntax into match
specifications. 
</DIV>

<H3>DESCRIPTION</H3>
<DIV CLASS=REFBODY>
<A NAME="top"><!-- Empty --></A>
<P> This module implements the parse_transform that makes calls to
<CODE>ets</CODE> and <CODE>dbg</CODE>:<CODE>fun2ms/1</CODE> translate into literal
match specifications. It also implements the back end for the same
functions when called from the Erlang shell.

<P> The translations from fun's to match_specs 
is accessed through the two &#34;pseudo
functions&#34; <CODE>ets:fun2ms/1</CODE> and <CODE>dbg:fun2ms/1</CODE>.

<P>Actually this introduction is more or less an introduction to the
whole concept of match specifications. Since everyone trying to use
<CODE>ets:select</CODE> or <CODE>dbg</CODE> seems to end up reading
this page, it seems in good place to explain a little more than
just what this module does.
<P>There are some caveats one should be aware of, please read through
the whole manual page if it's the first time you're using the
transformations. 
<P>Match specifications are used more or less as filters. 
They resemble usual Erlang matching in a list comprehension or in
a <CODE>fun</CODE> used in conjunction with <CODE>lists:foldl</CODE> etc. The
syntax of pure match specifications is somewhat awkward though, as
they are made up purely by Erlang terms and there is no syntax in the
language to make the match specifications more readable.
<P>As the match specifications execution and structure is quite like
that of a fun, it would for most programmers be more straight forward
to simply write it using the familiar fun syntax and having that
translated into a match specification automatically. Of course a real
fun is more powerful than the match specifications allow, but bearing
the match specifications in mind, and what they can do, it's still
more convenient to write it all as a fun. This module contains the
code that simply translates the fun syntax into match_spec terms.
<P>Let's start with an ets example. Using <CODE>ets:select</CODE> and
a match specification, one can filter out rows of a table and construct
a list of tuples containing relevant parts of the data in these
rows. Of course one could use <CODE>ets:foldl</CODE> instead, but the
select call is far more efficient. Without the translation, one has to
struggle with writing match specifications terms to accommodate this,
or one has to resort to the less powerful
<CODE>ets:match(_object)</CODE> calls, or simply give up and use
the more inefficient method of <CODE>ets:foldl</CODE>. Using the
<CODE>ets:fun2ms</CODE> transformation, a <CODE>ets:select</CODE> call
is at least as easy to write as any of the alternatives.
<P>As an example, consider a simple table of employees:
<PRE>
-record(emp, {empno,     %Employee number as a string, the key
              surname,   %Surname of the employee
              givenname, %Given name of employee
              dept,      %Department one of {dev,sales,prod,adm}
              empyear}). %Year the employee was employed
</PRE>

<P>We create the table using:
<PRE>
ets:new(emp_tab,[{keypos,#emp.empno},named_table,ordered_set]).
</PRE>

<P>Let's also fill it with some randomly chosen data for the examples:
<PRE>
[{emp,&#34;011103&#34;,&#34;Black&#34;,&#34;Alfred&#34;,sales,2000},
 {emp,&#34;041231&#34;,&#34;Doe&#34;,&#34;John&#34;,prod,2001},
 {emp,&#34;052341&#34;,&#34;Smith&#34;,&#34;John&#34;,dev,1997},
 {emp,&#34;076324&#34;,&#34;Smith&#34;,&#34;Ella&#34;,sales,1995},
 {emp,&#34;122334&#34;,&#34;Weston&#34;,&#34;Anna&#34;,prod,2002},
 {emp,&#34;535216&#34;,&#34;Chalker&#34;,&#34;Samuel&#34;,adm,1998},
 {emp,&#34;789789&#34;,&#34;Harrysson&#34;,&#34;Joe&#34;,adm,1996},
 {emp,&#34;963721&#34;,&#34;Scott&#34;,&#34;Juliana&#34;,dev,2003},
 {emp,&#34;989891&#34;,&#34;Brown&#34;,&#34;Gabriel&#34;,prod,1999}]
</PRE>

<P>
Now, the amount of data in the table is of course to small to justify
complicated ets searches, but on real tables, using <CODE>select</CODE> to get
exactly the data you want will increase efficiency remarkably.
<P>Lets say for example that we'd want the employee numbers of
everyone in the sales department. One might use <CODE>ets:match</CODE>
in such a situation:
<PRE>
1&#62; ets:match(emp_tab, {'_', '$1', '_', '_', sales, '_'}).
[[&#34;011103&#34;],[&#34;076324&#34;]]
</PRE>

<P>Even though <CODE>ets:match</CODE> does not require a full match
specification, but a simpler type, it's still somewhat unreadable, and
one has little control over the returned result, it's always a list of
lists. OK, one might use <CODE>ets:foldl</CODE> or
<CODE>ets:foldr</CODE> instead:
<PRE>
ets:foldr(fun(#emp{empno = E, dept = sales},Acc) -&#62; [E | Acc];
             (_,Acc) -&#62; Acc
          end,
          [],
          emp_tab).
</PRE>

<P>Running that would result in <CODE>[&#34;011103&#34;,&#34;076324&#34;]</CODE>
, which at least gets rid of the extra lists. The fun is also quite
straightforward, so the only problem is that all the data from the
table has to be transferred from the table to the calling process for
filtering. That's inefficient compared to the <CODE>ets:match</CODE>
call where the filtering can be done &#34;inside&#34; the emulator and only
the result is transferred to the process. Remember that ets tables are
all about efficiency, if it wasn't for efficiency all of ets could be
implemented in Erlang, as a process receiving requests and sending
answers back. One uses ets because one wants performance, and
therefore one wouldn't want all of the table transferred to the
process for filtering. OK, let's look at a pure
<CODE>ets:select</CODE> call that does what the <CODE>ets:foldr</CODE>
does:
<PRE>
ets:select(emp_tab,[{#emp{empno = '$1', dept = sales, _='_'},[],['$1']}]).
</PRE>

<P>
Even though the record syntax is used, it's still somewhat hard to
read and even harder to write. The first element of the tuple,
<CODE>#emp{empno = '$1', dept = sales, _='_'}</CODE> tells what to
match, elements not matching this will not be returned at all, as in
the <CODE>ets:match</CODE> example. The second element, the empty list
is a list of guard expressions, which we need none, and the third
element is the list of expressions constructing the return value (in
ets this almost always is a list containing one single term). In our
case <CODE>'$1'</CODE> is bound to the employee number in the head
(first element of tuple), and hence it is the employee number that is
returned. The result is <CODE>[&#34;011103&#34;,&#34;076324&#34;]</CODE>, just as in
the <CODE>ets:foldr</CODE> example, but the result is retrieved much
more efficiently in terms of execution speed and memory consumption.
<P>We have one efficient but hardly readable way of doing it and one
inefficient but fairly readable (at least to the skilled Erlang
programmer) way of doing it. With the use of <CODE>ets:fun2ms</CODE>,
one could have something that is as efficient as possible but still is
written as a filter using the fun syntax:
<PRE>
-include_lib(&#34;stdlib/include/ms_transform.hrl&#34;).

% ...

ets:select(emp_tab, ets:fun2ms(
                      fun(#emp{empno = E, dept = sales}) -&#62;
                              E
                      end)).
</PRE>

<P>This may not be the shortest of the expressions, but it requires no
special knowledge of match specifications to read. The fun's head
should simply match what you want to filter out and the body returns
what you want returned. As long as the fun can be kept within the
limits of the match specifications, there is no need to transfer all
data of the table to the process for filtering as in the
<CODE>ets:foldr</CODE> example. In fact it's even easier to read then
the <CODE>ets:foldr</CODE> example, as the select call in itself
discards anything that doesn't match, while the fun of the
<CODE>foldr</CODE> call needs to handle both the elements matching and
the ones not matching.
<P>It's worth noting in the above <CODE>ets:fun2ms</CODE> example that one
needs to include <CODE>ms_transform.hrl</CODE> in the source code, as this is
what triggers the parse transformation of the <CODE>ets:fun2ms</CODE> call
to a valid match specification. This also implies that the
transformation is done at compile time (except when called from the
shell of course) and therefore will take no resources at all in
runtime. So although you use the more intuitive fun syntax, it gets as
efficient in runtime as writing match specifications by hand.
<P>Let's look at some more <CODE>ets</CODE> examples. Let's say one
wants to get all the employee numbers of any employee hired before the
year 2000. Using <CODE>ets:match</CODE> isn't an alternative here as
relational operators cannot be expressed there. Once again, an
<CODE>ets:foldr</CODE> could do it (slowly, but correct):
<PRE>
ets:foldr(fun(#emp{empno = E, empyear = Y},Acc) when Y &#60; 2000 -&#62; [E | Acc];
                  (_,Acc) -&#62; Acc
          end,
          [],
          emp_tab).
</PRE>

<P>The result will be
<CODE>[&#34;052341&#34;,&#34;076324&#34;,&#34;535216&#34;,&#34;789789&#34;,&#34;989891&#34;]</CODE>, as
expected. Now the equivalent expression using a handwritten match
specification would look something like this:
<PRE>
ets:select(emp_tab,[{#emp{empno = '$1', empyear = '$2', _='_'},
                     [{'&#60;', '$2', 2000}],
                     ['$1']}]).
</PRE>

<P>This gives the same result, the <CODE>[{'&#60;', '$2', 2000}]</CODE> is in
the guard part and therefore discards anything that does not have a
empyear (bound to '$2' in the head) less than 2000, just as the guard
in the <CODE>foldl</CODE> example. Lets jump on to writing it using 
<CODE>ets:fun2ms</CODE>
<PRE>
 
-include_lib(&#34;stdlib/include/ms_transform.hrl&#34;).

% ...

ets:select(emp_tab, ets:fun2ms(
                      fun(#emp{empno = E, empyear = Y}) when Y &#60; 2000 -&#62;
                              E
                      end)).
</PRE>

<P>Obviously readability is gained by using the parse transformation.
<P>I'll show some more examples without the tiresome
comparing-to-alternatives stuff. Let's say we'd want the whole object
matching instead of only one element. We could of course assign a
variable to every part of the record and build it up once again in the
body of the <CODE>fun</CODE>, but it's easier to do like this:
<PRE>
ets:select(emp_tab, ets:fun2ms(
                      fun(Obj = #emp{empno = E, empyear = Y}) 
                         when Y &#60; 2000 -&#62;
                              Obj
                      end)).
</PRE>

<P>Just as in ordinary Erlang matching, you can bind a variable to the
whole matched object using a &#34;match in then match&#34;, i.e. a
<CODE>=</CODE>. Unfortunately this is not general in <CODE>fun's</CODE> translated
to match specifications, only on the &#34;top level&#34;, i.e. matching the
<STRONG>whole</STRONG> object arriving to be matched into a separate variable,
is it allowed. For the one's used to writing match specifications by
hand, I'll have to mention that the variable A will simply be
translated into '$_'. It's not general, but it has very common usage,
why it is handled as a special, but useful, case. If this bothers you,
the pseudo function <CODE>object</CODE> also returns the whole matched
object, see the part about caveats and limitations below.
<P>Let's do something in the <CODE>fun</CODE>'s body too: Let's say
that someone realizes that there are a few people having an employee
number beginning with a zero (<CODE>0</CODE>), which shouldn't be
allowed. All those should have their numbers changed to begin with a
one (<CODE>1</CODE>) instead and one wants the
list <CODE>[{&#60;Old empno&#62;,&#60;New empno&#62;}]</CODE> created:
<PRE>
ets:select(emp_tab, ets:fun2ms(
                      fun(#emp{empno = [$0 | Rest] }) -&#62;
                              {[$0|Rest],[$1|Rest]}
                      end)).
</PRE>

<P>As a matter of fact, this query hit's the feature of partially bound
keys in the table type <CODE>ordered_set</CODE>, so that not the whole
table need be searched, only the part of the table containing keys
beginning with <CODE>0</CODE> is in fact looked into. 
<P>The fun of course can have several clauses, so that if one could do
the following: For each employee, if he or she is hired prior to 1997,
return the tuple <CODE>{inventory, &#60;employee number&#62;}</CODE>, for each hired 1997
or later, but before 2001, return <CODE>{rookie, &#60;employee
number&#62;}</CODE>, for all others return <CODE>{newbie, &#60;employee
number&#62;}</CODE>. All except for the ones named <CODE>Smith</CODE> as
they would be affronted by anything other than the tag
<CODE>guru</CODE> and that is also what's returned for their numbers; 
<CODE>{guru, &#60;employee number&#62;}</CODE>:
<PRE>
ets:select(emp_tab, ets:fun2ms(
                      fun(#emp{empno = E, surname = &#34;Smith&#34; }) -&#62;
                              {guru,E};
                         (#emp{empno = E, empyear = Y}) when Y &#60; 1997  -&#62;
                              {inventory, E};
                         (#emp{empno = E, empyear = Y}) when Y &#62; 2001  -&#62;
                              {newbie, E};
                         (#emp{empno = E, empyear = Y}) -&#62; % 1997 -- 2001
                              {rookie, E}
                      end)).
</PRE>

<P>The result will be:
<PRE>
[{rookie,&#34;011103&#34;},
 {rookie,&#34;041231&#34;},
 {guru,&#34;052341&#34;},
 {guru,&#34;076324&#34;},
 {newbie,&#34;122334&#34;},
 {rookie,&#34;535216&#34;},
 {inventory,&#34;789789&#34;},
 {newbie,&#34;963721&#34;},
 {rookie,&#34;989891&#34;}]
</PRE>

<P>and so the Smith's will be happy...
<P>So, what more can you do? Well, the simple answer would be; look
in the documentation of match specifications in ERTS users
guide. However let's briefly go through the most useful &#34;built in
functions&#34; that you can use when the <CODE>fun</CODE> is to be
translated into a match specification by <CODE>ets:fun2ms</CODE> (it's
worth mentioning, although it might be obvious to some, that calling
other functions than the one's allowed in match specifications cannot
be done. No &#34;usual&#34; Erlang code can be executed by the <CODE>fun</CODE> being
translated by <CODE>fun2ms</CODE>, the <CODE>fun</CODE> is after all limited
exactly to the power of the match specifications, which is
unfortunate, but the price one has to pay for the execution speed of
an <CODE>ets:select</CODE> compared to <CODE>ets:foldl/foldr</CODE>).
<P>The head of the <CODE>fun</CODE> is obviously a head matching (or mismatching) 
<STRONG>one</STRONG> parameter, one object of the table we <CODE>select</CODE>
from. The object is always a single variable (can be <CODE>_</CODE>) or
a tuple, as that's what's in <CODE>ets, dets</CODE> and
<CODE>mnesia</CODE> tables (the match specification returned by
<CODE>ets:fun2ms</CODE> can of course be used with
<CODE>dets:select</CODE> and <CODE>mnesia:select</CODE> as well as
with <CODE>ets:select</CODE>). The use of <CODE>=</CODE> in the head
is allowed (and encouraged) on the top level.
<P>The guard section can contain any guard expression of Erlang.
Even the &#34;old&#34; type test are allowed on the toplevel of the guard 
(<CODE>integer(X)</CODE> instead of <CODE>is_integer(X)</CODE>). As the new type tests (the
<CODE>is_</CODE> tests) are in practice just guard bif's they can also
be called from within the body of the fun, but so they can in ordinary
Erlang code. Also arithmetics is allowed, as well as ordinary guard
bif's. Here's a list of bif's and expressions:
<P>
<UL>

<LI>
The type tests: is_atom, is_constant, is_float, is_integer,
is_list, is_number, is_pid, is_port, is_reference, is_tuple,
is_binary, is_function, is_record
</LI>


<LI>
The boolean operators: not, and, or, andalso, orelse 
</LI>


<LI>
The relational operators: &#62;, &#62;=, &#60;, =&#60;, =:=, ==, =/=, /=
</LI>


<LI>
Arithmetics: +, -, *, div, rem
</LI>


<LI>
Bitwise operators: band, bor, bxor, bnot, bsl, bsr
</LI>


<LI>
The guard bif's: abs, element, hd, length, node, round, size, tl, 
trunc, self
</LI>


<LI>
The obsolete type test (only in guards):
        atom, constant, float, integer,
        list, number, pid, port, reference, tuple,
        binary, function, record
</LI>


</UL>

<P>Contrary to the fact with &#34;handwritten&#34; match specifications, the
<CODE>is_record</CODE> guard works as in ordinary Erlang code.
<P>Semicolons (<CODE>;</CODE>) in guards are allowed, the result will be (as
expected) one &#34;match_spec-clause&#34; for each semicolon-separated
part of the guard. The semantics beeing identical to the Erlang
semantics.
<P> The body of the <CODE>fun</CODE> is used to construct the
resulting value. When selecting from tables one usually just construct
a suiting term here, using ordinary Erlang term construction, like
tuple parentheses, list brackets and variables matched out in the
head, possibly in conjunction with the occasional constant. Whatever
expressions are allowed in guards are also allowed here, but there are
no special functions except <CODE>object</CODE> and
<CODE>bindings</CODE> (see further down), which returns the whole
matched object and all known variable bindings respectively.
<P>The <CODE>dbg</CODE> variants of match specifications have an
imperative approach to the match specification body, the ets dialect
hasn't. The fun body for <CODE>ets:fun2ms</CODE> returns the result
without side effects, and as matching (<CODE>=</CODE>) in the body of
the match specifications is not allowed (for performance reasons) the
only thing left, more or less, is term construction...
<P>Let's move on to the <CODE>dbg</CODE> dialect, the slightly
different match specifications translated by <CODE>dbg:fun2ms</CODE>. 
<P>The same reasons for using the parse transformation applies to
<CODE>dbg</CODE>, maybe even more so as filtering using Erlang code is
simply not a good idea when tracing (except afterwards, if you trace
to file). The concept is similar to that of <CODE>ets:fun2ms</CODE>
except that you usually use it directly from the shell (which can also
be done with <CODE>ets:fun2ms</CODE>). 
<P>Let's manufacture a toy module to trace on 
<PRE>
-module(toy).

-export([start/1, store/2, retrieve/1]).

start(Args) -&#62;
    toy_table = ets:new(toy_table,Args).

store(Key, Value) -&#62;
    ets:insert(toy_table,{Key,Value}).

retrieve(Key) -&#62;
    [{Key, Value}] = ets:lookup(toy_table,Key),
    Value.
</PRE>

<P>During model testing, the first test bails out with a
<CODE>{badmatch,16}</CODE> in <CODE>{toy,start,1}</CODE>, why?
<P>We suspect the ets call, as we match hard on the return value, but
want only the particular <CODE>new</CODE> call with
<CODE>toy_table</CODE> as first parameter.
So we start a default tracer on the node:
<PRE>
1&#62; dbg:tracer().
{ok,&#60;0.88.0&#62;}
</PRE>

<P>And so we turn on call tracing for all processes, we are going to
make a pretty restrictive trace pattern, so there's no need to call
trace only a few processes (it usually isn't):
<PRE>
2&#62; dbg:p(all,call).
{ok,[{matched,nonode@nohost,25}]}
</PRE>

<P>It's time to specify the filter. We want to view calls that resemble
<CODE>ets:new(toy_table,&#60;something&#62;)</CODE>:
<PRE>
3&#62; dbg:tp(ets,new,dbg:fun2ms(fun([toy_table,_]) -&#62; true end)).
{ok,[{matched,nonode@nohost,1},{saved,1}]}
</PRE>

<P>As can be seen, the <CODE>fun</CODE>'s used with
<CODE>dbg:fun2ms</CODE> takes a single list as parameter instead of a
single tuple. The list matches a list of the parameters to the traced
function. A single variable may also be used of course. The body
of the fun expresses in a more imperative way actions to be taken if
the fun head (and the guards) matches. I return <CODE>true</CODE> here, but it's
only because the body of a fun cannot be empty, the return value will
be discarded. 
<P>When we run the test of our module now, we get the following trace
output:
<PRE>
(&#60;0.86.0&#62;) call ets:new(toy_table,[ordered_set])
</PRE>

<P>Let's play we haven't spotted the problem yet, and want to see what 
<CODE>ets:new</CODE> returns. We do a slightly different trace
pattern:
<PRE>
4&#62; dbg:tp(ets,new,dbg:fun2ms(fun([toy_table,_]) -&#62; return_trace() end)).
</PRE>

<P>Resulting in the following trace output when we run the test:
<PRE>
(&#60;0.86.0&#62;) call ets:new(toy_table,[ordered_set])
(&#60;0.86.0&#62;) returned from ets:new/2 -&#62; 24
</PRE>

<P>The call to <CODE>return_trace</CODE>, makes a trace message appear
when the function returns. It applies only to the specific function call
triggering the match specification (and matching the head/guards of
the match specification). This is the by far the most common call in the
body of a <CODE>dbg</CODE> match specification.
<P>As the test now fails with <CODE>{badmatch,24}</CODE>, it's obvious 
that the badmatch is because the atom <CODE>toy_table</CODE> does not
match the number returned for an unnamed table. So we spotted the
problem, the table should be named and the arguments supplied by our
test program does not include <CODE>named_table</CODE>. We rewrite the
start function to:
<PRE>
start(Args) -&#62;
    toy_table = ets:new(toy_table,[named_table |Args]).
</PRE>

<P>And with the same tracing turned on, we get the following trace
output:
<PRE>
(&#60;0.86.0&#62;) call ets:new(toy_table,[named_table,ordered_set])
(&#60;0.86.0&#62;) returned from ets:new/2 -&#62; toy_table
</PRE>

<P>Very well. Let's say the module now passes all testing and goes into
the system. After a while someone realizes that the table
<CODE>toy_table</CODE> grows while the system is running and that for some
reason there are a lot of elements with atom's as keys. You had
expected only integer keys and so does the rest of the system. Well,
obviously not all of the system. You turn on call tracing and try to
see calls to your module with an atom as the key:
<PRE>
1&#62; dbg:tracer().
{ok,&#60;0.88.0&#62;}
2&#62; dbg:p(all,call).
{ok,[{matched,nonode@nohost,25}]}
3&#62; dbg:tpl(toy,store,dbg:fun2ms(fun([A,_]) when is_atom(A) -&#62; true end)).
{ok,[{matched,nonode@nohost,1},{saved,1}]}
</PRE>

<P>We use <CODE>dbg:tpl</CODE> here to make sure to catch local calls
(let's say the module has grown since the smaller version and we're
not sure this inserting of atoms is not done locally...). When in
doubt always use local call tracing.
<P>Let's say nothing happens when we trace in this way. Our function
is never called with these parameters. We make the conclusion that
someone else (some other module) is doing it and we realize that we
must trace on ets:insert and want to see the calling function. The
calling function may be retrieved using the match specification
function <CODE>caller</CODE> and to get it into the trace message, one
has to use the match spec function <CODE>message</CODE>. The filter
call looks like this (looking for calls to <CODE>ets:insert</CODE>):
<PRE>
4&#62; dbg:tpl(ets,insert,dbg:fun2ms(fun([toy_table,{A,_}]) when is_atom(A) -&#62; 
                                    message(caller()) 
                                  end)). 
{ok,[{matched,nonode@nohost,1},{saved,2}]}
</PRE>

<P>The caller will now appear in the &#34;additional message&#34; part of the
trace output, and so after a while, the following output comes:
<PRE>
(&#60;0.86.0&#62;) call ets:insert(toy_table,{garbage,can}) ({evil_mod,evil_fun,2})
</PRE>

<P>You have found out that the function <CODE>evil_fun</CODE> of the
module <CODE>evil_mod</CODE>, with arity <CODE>2</CODE>, is the one
causing all this trouble.
<P> This was just a toy example, but it illustrated the most used
calls in match specifications for <CODE>dbg</CODE> The other, more
esotherical calls are listed and explained in the <STRONG>Users guide of
the ERTS application</STRONG>, they really are beyond the scope of this
document.
<P>To end this chatty introduction with something more precise, here
follows some parts about caveats and restrictions concerning the fun's
used in conjunction with <CODE>ets:fun2ms</CODE> and
<CODE>dbg:fun2ms</CODE>:
<P>
<TABLE CELLPADDING=4>
  <TR>
    <TD VALIGN=TOP><IMG ALT="Warning!" SRC="warning.gif"></TD>
    <TD>

<P> To use the pseudo functions triggering the translation, one
<STRONG>has to</STRONG> include the header file <CODE>ms_transform.hrl</CODE>
in the source code. Failure to do so will possibly result in
runtime errors rather than compile time, as the expression may
be valid as a plain Erlang program without translation.
    </TD>
  </TR>
</TABLE>

<P>
<TABLE CELLPADDING=4>
  <TR>
    <TD VALIGN=TOP><IMG ALT="Warning!" SRC="warning.gif"></TD>
    <TD>

<P>     The <CODE>fun</CODE> has to be literally constructed inside the
        parameter list to the pseudo functions. The <CODE>fun</CODE> cannot
        be bound to a variable first and then passed to
        <CODE>ets:fun2ms</CODE> or <CODE>dbg:fun2ms</CODE>, i.e this
        will work: <CODE>ets:fun2ms(fun(A) -&#62; A end)</CODE> but not this:
        <CODE>F = fun(A) -&#62; A end, ets:fun2ms(F)</CODE>. The later will result
        in a compile time error if the header is included, otherwise a
        runtime error. Even if the later construction would ever
        appear to work, it really doesn't, so don't ever use it.
    </TD>
  </TR>
</TABLE>

<P> Several restrictions apply to the fun that is being translated
into a match_spec. To put it simple you cannot use anything in
the fun that you cannot use in a match_spec. This means that,
among others, the following restrictions apply to the fun itself:

<P>
<UL>

<LI>
 Functions written in Erlang cannot be called, neither
local functions, global functions or real fun's
</LI>


<LI>
Everything that is written as a function call will be
        translated into a match_spec call to a builtin function, so that
the call <CODE>is_list(X)</CODE> will be translated to <CODE>{'is_list',
'$1'}</CODE> (<CODE>'$1'</CODE> is just an example, the numbering may
vary). If one tries to call a function that is not a match_spec
builtin, it will cause an error.
</LI>


<LI>
Variables occurring in the head of the <CODE>fun</CODE> will be
        replaced by match_spec variables in the order of occurrence, so
        that the fragment <CODE>fun({A,B,C})</CODE> will be replaced by
        <CODE>{'$1', '$2', '$3'}</CODE> etc. Every occurrence of such a
        variable later in the match_spec will be replaced by a
        match_spec variable in the same way, so that the fun
        <CODE>fun({A,B}) when is_atom(A) -&#62; B end</CODE> will be translated into
        <CODE>[{{'$1','$2'},[{is_atom,'$1'}],['$2']}]</CODE>.
</LI>


<LI>
Variables that are not appearing in the head are imported 
        from the environment and made into
        match_spec <CODE>const</CODE> expressions. Example from the shell:
        
<PRE>
1&#62; X = 25.
25
2&#62; ets:fun2ms(fun({A,B}) when A &#62; X -&#62; B end).      
[{{'$1','$2'},[{'&#62;','$1',{const,25}}],['$2']}]
        
</PRE>


</LI>


<LI>
        Matching with <CODE>=</CODE> cannot be used in the body. It can only
        be used on the top level in the head of the fun. 
        Example from the shell again:

<PRE>
1&#62; ets:fun2ms(fun({A,[B|C]} = D) when A &#62; B -&#62; D end).
[{{'$1',['$2'|'$3']},[{'&#62;','$1','$2'}],['$_']}]
2&#62; ets:fun2ms(fun({A,[B|C]=D}) when A &#62; B -&#62; D end).
Error: fun with head matching ('=' in head) cannot be translated into 
match_spec 
{error,transform_error}
3&#62; ets:fun2ms(fun({A,[B|C]}) when A &#62; B -&#62; D = [B|C], D end).
Error: fun with body matching ('=' in body) is illegal as match_spec
{error,transform_error}
</PRE>

        All variables are bound in the head of a match_spec, so the 
        translator can not allow multiple bindings. The special case
        when matching is done on the top level makes the variable bind
        to <CODE>'$_'</CODE> in the resulting match_spec, it is to allow a more
        natural access to the whole matched object. The pseudo
        function <CODE>object()</CODE> could be used instead, see below. 
        The following expressions are translated equally: 

<PRE>
ets:fun2ms(fun({a,_} = A) -&#62; A end).
ets:fun2ms(fun({a,_}) -&#62; object() end).     
</PRE>
        

</LI>


<LI>
        The special match_spec variables <CODE>'$_'</CODE> and <CODE>'$*'</CODE>
        can be accessed through the pseudo functions <CODE>object()</CODE>
        (for <CODE>'$_'</CODE>) and <CODE>bindings()</CODE> (for <CODE>'$*'</CODE>).
        as an example, one could translate the following
        <CODE>ets:match_object/2</CODE> call to a <CODE>ets:select</CODE> call:
        
<PRE>
ets:match_object(Table, {'$1',test,'$2'}).
        
</PRE>

        ...is the same as...
        
<PRE>
ets:select(Table, ets:fun2ms(fun({A,test,B}) -&#62; object() end)).
        
</PRE>

        (This was just an example, in this simple case the former
        expression is probably preferable in terms of readability).
        The <CODE>ets:select/2</CODE> call will conceptually look like this
        in the resulting code:
        
<PRE>
ets:select(Table, [{{'$1',test,'$2'},[],['$_']}]).
        
</PRE>

        Matching on the top level of the fun head might feel like a
        more natural way to access <CODE>'$_'</CODE>, see above.

</LI>


<LI>
        Term constructions/literals are translated as much as is
        needed to get them into valid match_specs, so that tuples are
        made into match_spec tuple constructions (a one element tuple
        containing the tuple) and constant expressions are used when
        importing variables from the environment. Records are also
        translated into plain tuple constructions, calls to element
        etc. The guard test <CODE>is_record/2</CODE> is translated into
        match_spec code using the three parameter version that's built
        into match_specs, so that <CODE>is_record(A,t)</CODE> is translated
        into <CODE>{is_record,'$1',t,5}</CODE> given that the record size of
        record type <CODE>t</CODE> is 5.

</LI>


<LI>
        Language constructions like <CODE>case</CODE>, <CODE>if</CODE>,
        <CODE>catch</CODE> etc that are not present in match_specs are not
        allowed.

</LI>


<LI>
        If the header file <CODE>ms_transform.hrl</CODE> is not included,
        the fun won't be translated, which may result in a
        <STRONG>runtime error</STRONG> (depending on if the fun is valid in a
        pure Erlang context). Be absolutely sure that the header is
        included when using <CODE>ets</CODE> and <CODE>dbg:fun2ms/1</CODE> in
        compiled code.

</LI>


<LI>
 
        If the pseudo function triggering the translation is
        <CODE>ets:fun2ms/1</CODE>, the fun's head must contain a single
        variable or a single tuple. If the pseudo function is
        <CODE>dbg:fun2ms/1</CODE> the fun's head must contain a single
        variable or a single list.

</LI>


</UL>

<P> The translation from fun's to match_specs is done at compile
time, so runtime performance is not affected by using these pseudo
functions. The compile time might be somewhat longer though. 

<P> For more information about match_specs, please read about them
in <STRONG>ERTS users guide</STRONG>.

</DIV>

<H3>EXPORTS</H3>

<P><A NAME="parse_transform/2"><STRONG><CODE>parse_transform(Forms,_Options) -&#62; Forms</CODE></STRONG></A><BR>

<DIV CLASS=REFBODY><P>Types:
  <DIV CLASS=REFTYPES>
<P>
<STRONG><CODE>Forms = Erlang abstract code format, see the
         erl_parse module description </CODE></STRONG><BR>
<STRONG><CODE>_Options = Option list, required but not used</CODE></STRONG><BR>

  </DIV>
</DIV>

<DIV CLASS=REFBODY>

<P>Implements the actual transformation at compile time. This
        function is called by the compiler to do the source code
        transformation if and when the <CODE>ms_transform.hrl</CODE> header
        file is included in your source code. See the <CODE>ets</CODE> and
        <CODE>dbg</CODE>:<CODE>fun2ms/1</CODE> function manual pages for
        documentation on how to use this parse_transform, see the
        <CODE>match_spec</CODE> chapter in <CODE>ERTS</CODE> users guide for a
        description of match specifications. 
        
</DIV>

<P><A NAME="transform_from_shell/3"><STRONG><CODE>transform_from_shell(Dialect,Clauses,BoundEnvironment) -&#62; term()</CODE></STRONG></A><BR>

<DIV CLASS=REFBODY><P>Types:
  <DIV CLASS=REFTYPES>
<P>
<STRONG><CODE>Dialect = ets | dbg</CODE></STRONG><BR>
<STRONG><CODE>Clauses = Erlang abstract form for a single fun</CODE></STRONG><BR>
<STRONG><CODE>BoundEnvironment = [{atom(), term()}, ...], list of
        variable bindings in the shell environment</CODE></STRONG><BR>

  </DIV>
</DIV>

<DIV CLASS=REFBODY>

<P>Implements the actual transformation when the <CODE>fun2ms</CODE>
        functions are called from the shell. In this case the abstract
        form is for one single fun (parsed by the Erlang shell), and
        all imported variables should be in the key-value list passed
        as <CODE>BoundEnvironment</CODE>. The result is a term, normalized,
        i.e. not in abstract format.
        
</DIV>

<P><A NAME="format_error/1"><STRONG><CODE>format_error(Errcode) -&#62; ErrMessage</CODE></STRONG></A><BR>

<DIV CLASS=REFBODY><P>Types:
  <DIV CLASS=REFTYPES>
<P>
<STRONG><CODE>Errcode = term()</CODE></STRONG><BR>
<STRONG><CODE>ErrMessage = string()</CODE></STRONG><BR>

  </DIV>
</DIV>

<DIV CLASS=REFBODY>

<P>Takes an error code returned by one of the other functions
        in the module and creates a textual description of the
        error. Fairly uninteresting function actually.
        
</DIV>

<H3>AUTHORS</H3>
<DIV CLASS=REFBODY>
 Patrik Nyblom - support@erlang.ericsson.se<BR>

</DIV>
<CENTER>
<HR>
<SMALL>stdlib 1.14.2<BR>
Copyright &copy; 1991-2006
<A HREF="http://www.erlang.se">Ericsson AB</A><BR>
</SMALL>
</CENTER>
</BODY>
</HTML>