A polyglot's guide to multiple dispatch – part 3
eli.thegreenplace.net
eli.thegreenplace.net
role Foo { multi method go { 1 } }
role Bar { multi method go { 2 } }
my $t = (class :: { }).new;
$t does Foo;
say $t.*go; # (1)
$t does Bar;
say $t.*go; # (2, 1)
[0]: https://design.perl6.org/S12.html#Calling_sets_of_methodsMethod combination has an overarching theory behind it. My take is as follows: Methods are by definition associated with a set of constraints on the arguments. The constraints are, for the most part, specified by their class. Because classes form a mathematical lattice, we have the notion of "more and less specifically applicable methods" for a set of arguments, and so the aforementioned constraints can be ordered and usually the most specific method is called, as the article explains. But the key thing to notice here is that if we remove the notion of "more or less applicable", and replace it with just the notion of "applicable", then we can do some interesting things.
For a particular generic function (Lisp parlance for a method with unspecified constraints), and for a given set of arguments to the function, there is a set of applicable methods. How we arrange to execute these applicable methods, and how we arrange to use the results of the executions, is what constitutes method combination.
There are two trivial ways to arrange what gets executed. The popular way is to just execute the most specific only. The other trivial way is to just execute everything. Many kinds of non-default method combinations (like the LIST method combination) do this. Another one, which I find generally more useful, is the + method combination. (This sums all of the results of the applicable methods. One usual example is calculating prices with additive taxes.)
Many problems can be decomposed into one which sounds like the following: 1. Classify your objects into a (multiple-inheritance) class hierarchy. 2. Write down the behavior that is applicable to products of these objects.
If you can do 1 & 2, then these aspects of CLOS and method combination can solve your problem in a clean way.
* * *
There were a few nits I had with the article otherwise. What he calls "forms" are not forms. "Forms" are memory representations of the syntax. The syntax is called "symbolic expressions" or "S-expressions" or "S-exprs". An even more pedantic nit is that IF is not called a "special form", it is called a "special operator". The combination of a special operator and its arguments make a "special form". (But who cares. Even seasoned Lispers say "special form" for operators.)
"these features are too advanced to be useful in 99% of the cases"
I'm pretty sure when I wrote CLOS for a living (mind you, not recently) that I used :before, :around and :after rather more than that - they are a very natural and pretty simple extension to the basic method dispatch mechanism.
That is, there's quite a lot of Perl 5 out there that makes extensive use of method modifiers[1] like before, after, around and friends.
1: http://search.cpan.org/dist/Moose/lib/Moose/Manual/MethodMod...
I used a generic function with list combination to collect from the mixins only the slots that should be reported over RPC. The user is not among them since it is always reported to the user that triggered the error.
Here's a suitably abstracted implementation of the idea: https://gist.github.com/spacebat/dbad3b50684b3a516071abb3757...
Yes I am likening RPC programming to dealing with monsters in the darkness.
https://dl.dropboxusercontent.com/u/734346/JIT-Compilation-o...
Postmodern[0] defines simple wrapper objects so that you can access databases rows as objects. The same goes for the Elephant persistent database[1]. Cells[2] define metaobjects for classes with dataflow dependencies where slots can be automatically updated in a reactive fashion.
:AROUND methods and the like are used quite often. In fact, the default way of defining a "constructor" function for your class is to specialize "initialize-instance" with an :after qualifier, so that you can fill slots that could not be initialized with the arguments to "make-instance" or the default initargs.
[0] http://marijnhaverbeke.nl/postmodern/
Design by contract implemented via method combinations / MOP.
I wrote a project skeleton generator[0] whose functionality is provided by progn-composable plugins, implemented as mixin classes.
Every bit of functionality, like adding a README.md file to a project skeleton, adding a .gitignore file, adding stub unit tests, etc. is implemented as a mixin class. A full template inherits[1] all the mixins it needs.
There is a generic function, render-template[1], that takes a template, some options, and the target directory, and uses the progn method combination. Meaning: every method in the chain is called in succession, and each method adds its own thing to the generated project. The render-template method for the gitignore mixin adds a .gitignore file, for instance. When render template is called on an instance of a class that inherits a bunch of template mixins, it runs all of those mixins in addition to the render-template method of that class itself (if any).
In a sense, this is basically the entity-component pattern[3] implemented in the object system itself, with the caveat that you can't have "multiple instances" of the same component -- you can't inherit a class twice.
[0]: https://github.com/roswell/mystic
[1]: https://github.com/roswell/mystic/blob/2d0fd8e401d50893b4a15...
[2]: https://github.com/roswell/mystic/blob/2d0fd8e401d50893b4a15...