NAME ^

src/mmd.c - Multimethod dispatch for binary opcode functions

SYNOPSIS ^

This system is set up to handle type-based dispatching for binary (i.e. two-arg) functions. This includes, though isn't necessarily limited to, binary operators such as addition or subtraction.

DESCRIPTION ^

The MMD system is straightforward, and currently must be explicitly invoked, for example by a vtable function. (We may reserve the right to use MMD in all circumstances, but currently do not).

API ^

For the purposes of the API, each MMD-able function is assigned a unique number which is used to find the correct function table. This is the func_num parameter in the following functions. While Parrot isn't restricted to a predefined set of functions, it does set things up so that all the binary vtable functions have a MMD table preinstalled for them, with default behaviour.

Remarks ^

binop_mmd_funcs->x and ->y are table sizes not highest type in table.

Functions ^

static void dump_mmd(PARROT_INTERP, INTVAL function)

RT#48260: Not yet documented!!!

PARROT_API PARROT_WARN_UNUSED_RESULT PARROT_CANNOT_RETURN_NULL funcptr_t get_mmd_dispatch_type(PARROT_INTERP, INTVAL func_nr, INTVAL left_type, INTVAL right_type, NOTNULL(int *is_pmc))

RT#48260: Not yet documented!!!

PARROT_WARN_UNUSED_RESULT PARROT_CANNOT_RETURN_NULL static funcptr_t get_mmd_dispatcher(PARROT_INTERP, NOTNULL(PMC *left), NOTNULL(PMC *right), INTVAL function, NOTNULL(int *is_pmc))

RT#48260: Not yet documented!!!

PARROT_CANNOT_RETURN_NULL static PMC *mmd_deref(PARROT_INTERP, NOTNULL(PMC *value))

If value is a reference-like PMC, dereference it so we can make an MMD call on the 'real' value.

static void mmd_ensure_writable(PARROT_INTERP, INTVAL function, NULLOK(PMC *pmc))

Make sure pmc is writable enough for function.

PARROT_API PARROT_WARN_UNUSED_RESULT PARROT_CANNOT_RETURN_NULL PMC *mmd_dispatch_p_ppp(PARROT_INTERP, NOTNULL(PMC *left), NOTNULL(PMC *right), NULLOK(PMC *dest), INTVAL func_nr)

Dispatch to a multimethod that returns a PMC. left, right, and dest are all PMC pointers, while func_num is the MMD table that should be used to do the dispatching. If the dest pointer is NULL, it dispatches two a two-argument function that returns a new dest always.

The MMD system will figure out which function should be called based on the types of left and right and call it, passing in left, right, and possibly dest like any other binary vtable function.

PARROT_API PARROT_CAN_RETURN_NULL PMC *mmd_dispatch_p_pip(PARROT_INTERP, NOTNULL(PMC *left), INTVAL right, NULLOK(PMC *dest), INTVAL func_nr)

Like mmd_dispatch_p_ppp, right argument is a native INTVAL.

PARROT_API PARROT_CAN_RETURN_NULL PMC *mmd_dispatch_p_pnp(PARROT_INTERP, NOTNULL(PMC *left), FLOATVAL right, NULLOK(PMC *dest), INTVAL func_nr)

Like mmd_dispatch_p_ppp, right argument is a native FLOATVAL.

PARROT_API PARROT_CAN_RETURN_NULL PMC *mmd_dispatch_p_psp(PARROT_INTERP, NOTNULL(PMC *left), NOTNULL(STRING *right), NULLOK(PMC *dest), INTVAL func_nr)

Like mmd_dispatch_p_ppp, right argument is a native STRING *.

PARROT_API void mmd_dispatch_v_pp(PARROT_INTERP, NOTNULL(PMC *left), NOTNULL(PMC *right), INTVAL func_nr)

Inplace dispatch function for left <op=> right.

PARROT_API void mmd_dispatch_v_pi(PARROT_INTERP, NOTNULL(PMC *left), INTVAL right, INTVAL func_nr)

Inplace dispatch function for left <op=> right.

PARROT_API void mmd_dispatch_v_pn(PARROT_INTERP, NOTNULL(PMC *left), FLOATVAL right, INTVAL func_nr)

Inplace dispatch function for left <op=> right.

PARROT_API void mmd_dispatch_v_ps(PARROT_INTERP, NOTNULL(PMC *left), NOTNULL(STRING *right), INTVAL func_nr)

Inplace dispatch function for left <op=> right.

PARROT_API INTVAL mmd_dispatch_i_pp(PARROT_INTERP, NOTNULL(PMC *left), NOTNULL(PMC *right), INTVAL func_nr)

Like mmd_dispatch_p_ppp(), only it returns an INTVAL. This is used by MMD compare functions.

PARROT_API void mmd_add_function(PARROT_INTERP, INTVAL func_nr, SHIM(funcptr_t function))

Add a new binary MMD function to the list of functions the MMD system knows of. func_num is the number of the new function. function is ignored.

RT#45941 change this to a MMD register interface that takes a function *name*.

static void mmd_expand_x(PARROT_INTERP, INTVAL func_nr, INTVAL new_x)

Expands the function table in the X dimension to include new_x.

static void mmd_expand_y(PARROT_INTERP, INTVAL func_nr, INTVAL new_y)

Expands the function table in the Y direction.

PARROT_API void mmd_add_by_class(PARROT_INTERP, INTVAL functype, NOTNULL(STRING *left_class), NOTNULL(STRING *right_class), NULLOK(funcptr_t funcptr))

Add a function to the MMD table by class name, rather than class number. Handles the case where the named class isn't loaded yet.

Adds a new MMD function funcptr to the func_num function table that will be invoked when the left parameter is of class left_class and the right parameter is of class right_class. Both classes are STRING *s that hold the PMC class names for the left and right sides. If either class isn't yet loaded, Parrot will cache the information such that the function will be installed if at some point in the future both classes are available.

Currently this is done by just assigning class numbers to the classes, which the classes will pick up and use if they're later loaded, but we may later put the functions into a deferred table that we scan when PMC classes are loaded. Either way, the function will be guaranteed to be installed when it's needed.

The function table must exist, but if it is too small, it will automatically be expanded.

PARROT_API void mmd_register(PARROT_INTERP, INTVAL func_nr, INTVAL left_type, INTVAL right_type, NULLOK(funcptr_t funcptr))

Register a function funcptr for MMD function table func_num for classes left_type and right_type. The left and right types are INTVALs that represent the class ID numbers.

The function table must exist, but if it is too small, it will automatically be expanded.

Adding a new function to the table can be interestingly non-trivial, so we get to be tricky.

If the left or right types are larger than anything we've seen so far, it means that we have to expand the table. Making Y larger is simple -- just realloc with some more rows. Making X larger is less simple. In either case, we punt to other functions.

RT#45943 - Currently the MMD system doesn't handle inheritance and best match searching, as it assumes that all PMC types have no parent type. This can be considered a bug, and will be resolved at some point in the future.

PARROT_API void mmd_register_sub(PARROT_INTERP, INTVAL func_nr, INTVAL left_type, INTVAL right_type, NOTNULL(PMC *sub))

RT#48260: Not yet documented!!!

PARROT_API void mmd_destroy(PARROT_INTERP)

Frees all the memory allocated used the MMD subsystem.

PARROT_API PARROT_CANNOT_RETURN_NULL PARROT_WARN_UNUSED_RESULT PMC *mmd_vtfind(PARROT_INTERP, INTVAL func_nr, INTVAL left, INTVAL right)

Return an MMD PMC function for the given data types. The return result is either a Sub PMC (for PASM MMD functions) or a NCI PMC holding the C function pointer in PMC_struct_val.

PARROT_API PARROT_CANNOT_RETURN_NULL PARROT_WARN_UNUSED_RESULT PMC *Parrot_MMD_search_default_infix(PARROT_INTERP, NOTNULL(STRING *meth), INTVAL left_type, INTVAL right_type)

RT#48260: Not yet documented!!!

PARROT_API PARROT_CAN_RETURN_NULL PARROT_WARN_UNUSED_RESULT PMC *Parrot_mmd_sort_candidate_list(PARROT_INTERP, NOTNULL(PMC *candidates))

Given an array PMC (usually a MultiSub) sort the mmd candidates by their manhatten distance to the current args.

PARROT_CANNOT_RETURN_NULL PARROT_WARN_UNUSED_RESULT static PMC *mmd_arg_tuple_inline(PARROT_INTERP, NOTNULL(STRING *signature), va_list args)

Return a list of argument types. PMC arguments are specified as function arguments.

PARROT_WARN_UNUSED_RESULT PARROT_CANNOT_RETURN_NULL static PMC *mmd_arg_tuple_func(PARROT_INTERP)

Return a list of argument types. PMC arguments are take from registers according to calling conventions.

PARROT_CAN_RETURN_NULL PARROT_WARN_UNUSED_RESULT static PMC *mmd_search_default(PARROT_INTERP, NOTNULL(STRING *meth), NOTNULL(PMC *arg_tuple))

Default implementation of MMD search. Search scopes for candidates, walk the class hierarchy, sort all candidates by their Manhattan distance, and return result

static void mmd_search_classes(PARROT_INTERP, NOTNULL(STRING *meth), NOTNULL(PMC *arg_tuple), NOTNULL(PMC *cl), INTVAL start_at_parent)

Search all the classes in all MultiSubs of the candidates cl and return a list of all candidates. start_at_parent is 0 to start at the class itself or 1 to search from the first parent class.

static INTVAL distance_cmp(SHIM_INTERP, INTVAL a, INTVAL b)

RT#48260: Not yet documented!!!

PARROT_CANNOT_RETURN_NULL PARROT_WARN_UNUSED_RESULT static PMC *mmd_cvt_to_types(PARROT_INTERP, NOTNULL(PMC *multi_sig))

RT#48260: Not yet documented!!!

static UINTVAL mmd_distance(PARROT_INTERP, NOTNULL(PMC *pmc), NOTNULL(PMC *arg_tuple))

Create Manhattan Distance of sub pmc against given argument types. 0xffff is the maximum distance

static void mmd_sort_candidates(PARROT_INTERP, NOTNULL(PMC *arg_tuple), NOTNULL(PMC *cl))

Sort the candidate list cl by Manhattan Distance

PARROT_CANNOT_RETURN_NULL PARROT_WARN_UNUSED_RESULT static PMC *mmd_search_scopes(PARROT_INTERP, NOTNULL(STRING *meth))

Search all scopes for MMD candidates matching the arguments given in arg_tuple.

PARROT_WARN_UNUSED_RESULT static int mmd_is_hidden(PARROT_INTERP, NOTNULL(PMC *multi), NOTNULL(PMC *cl))

Check if the given multi sub is hidden by any inner multi sub (already in the candidate list cl.

static int mmd_maybe_candidate(PARROT_INTERP, NOTNULL(PMC *pmc), NOTNULL(PMC *cl))

If the candidate pmc is a Sub PMC, push it on the candidate list and return TRUE to stop further search.

If the candidate is a MultiSub remember all matching Subs and return FALSE to continue searching outer scopes.

static int mmd_search_cur_namespace(PARROT_INTERP, NOTNULL(STRING *meth), NOTNULL(PMC *cl))

Search the current package namespace for matching candidates. Return TRUE if the MMD search should stop.

PARROT_CANNOT_RETURN_NULL PARROT_WARN_UNUSED_RESULT static PMC *mmd_get_ns(PARROT_INTERP)

RT#48260: Not yet documented!!!

PARROT_CANNOT_RETURN_NULL PARROT_WARN_UNUSED_RESULT static PMC *mmd_make_ns(PARROT_INTERP)

RT#48260: Not yet documented!!!

static void mmd_search_builtin(PARROT_INTERP, NOTNULL(STRING *meth), NOTNULL(PMC *cl))

Search the builtin namespace for matching candidates. This is the last search in all the namespaces.

void mmd_create_builtin_multi_stub(PARROT_INTERP, NOTNULL(PMC *ns), INTVAL func_nr)

RT#48260: Not yet documented!!!

static void mmd_create_builtin_multi_meth_2(PARROT_INTERP, NOTNULL(PMC *ns), INTVAL func_nr, INTVAL type, INTVAL right, funcptr_t func_ptr)

RT#48260: Not yet documented!!!

static void mmd_create_builtin_multi_meth(PARROT_INTERP, NOTNULL(PMC *ns), INTVAL type, ARGIN(const MMD_init *entry))

RT#48260: Not yet documented!!!

PARROT_API void Parrot_mmd_register_table(PARROT_INTERP, INTVAL type, ARGIN(const MMD_init *mmd_table), INTVAL n)

Register MMD functions for this PMC type.

PARROT_API void Parrot_mmd_rebuild_table(PARROT_INTERP, INTVAL type, INTVAL func_nr)

Rebuild the static MMD_table for the given class type and MMD function number. If type is negative all classes are rebuilt. If func_nr is negative all MMD functions are rebuilt.

SEE ALSO ^

include/parrot/mmd.h, http://svn.perl.org/perl6/doc/trunk/design/apo/A12.pod, http://svn.perl.org/perl6/doc/trunk/design/syn/S12.pod


parrot