Skip to content

Commit

Permalink
Updated links to Perl 6 synopsis and apocalypse 12. Also deleted a fe…
Browse files Browse the repository at this point in the history
…w duplicate blank lines
  • Loading branch information
soh-cah-toa committed Jun 20, 2011
1 parent 4b296a2 commit cb9eaf0
Showing 1 changed file with 2 additions and 29 deletions.
31 changes: 2 additions & 29 deletions src/multidispatch.c
Original file line number Diff line number Diff line change
Expand Up @@ -206,10 +206,8 @@ static PMC * Parrot_mmd_sort_candidates(PARROT_INTERP,
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
/* HEADERIZER END: static */


#define MMD_DEBUG 0


/*
=item C<PMC* Parrot_mmd_find_multi_from_sig_obj(PARROT_INTERP, STRING *name, PMC
Expand Down Expand Up @@ -305,7 +303,6 @@ Parrot_mmd_multi_dispatch_from_c_args(PARROT_INTERP,
va_end(args);
}


/*
=item C<PMC * Parrot_mmd_find_multi_from_long_sig(PARROT_INTERP, STRING *name,
Expand Down Expand Up @@ -342,7 +339,6 @@ Parrot_mmd_find_multi_from_long_sig(PARROT_INTERP, ARGIN(STRING *name),
}
}


/*
=item C<PMC * Parrot_mmd_sort_manhattan_by_sig_pmc(PARROT_INTERP, PMC
Expand Down Expand Up @@ -417,7 +413,6 @@ mmd_build_type_tuple_from_type_list(PARROT_INTERP, ARGIN(PMC *type_list))
return multi_sig;
}


/*
=item C<static PMC* mmd_build_type_tuple_from_long_sig(PARROT_INTERP, STRING
Expand All @@ -441,7 +436,6 @@ mmd_build_type_tuple_from_long_sig(PARROT_INTERP, ARGIN(STRING *long_sig))
return mmd_build_type_tuple_from_type_list(interp, type_list);
}


/*
=item C<PMC* Parrot_mmd_build_type_tuple_from_sig_obj(PARROT_INTERP, PMC
Expand All @@ -464,7 +458,6 @@ Parrot_mmd_build_type_tuple_from_sig_obj(PARROT_INTERP, ARGIN(PMC *sig_obj))
return VTABLE_get_pmc(interp, sig_obj);
}


/*
=item C<static PMC* mmd_cvt_to_types(PARROT_INTERP, PMC *multi_sig)>
Expand Down Expand Up @@ -526,7 +519,6 @@ mmd_cvt_to_types(PARROT_INTERP, ARGIN(PMC *multi_sig))
return ar;
}


/*
=item C<static PMC * Parrot_mmd_get_cached_multi_sig(PARROT_INTERP, PMC
Expand Down Expand Up @@ -569,7 +561,6 @@ Parrot_mmd_get_cached_multi_sig(PARROT_INTERP, ARGIN(PMC *sub_pmc))
return PMCNULL;
}


#define MMD_BIG_DISTANCE 0x7fff

/*
Expand Down Expand Up @@ -747,7 +738,6 @@ mmd_distance(PARROT_INTERP, ARGIN(PMC *pmc), ARGIN(PMC *arg_tuple))
return dist;
}


/*
=item C<static PMC * Parrot_mmd_sort_candidates(PARROT_INTERP, PMC *arg_tuple,
Expand Down Expand Up @@ -782,7 +772,6 @@ Parrot_mmd_sort_candidates(PARROT_INTERP, ARGIN(PMC *arg_tuple), ARGIN(PMC *cl))
return best_candidate;
}


/*
=item C<static int Parrot_mmd_maybe_candidate(PARROT_INTERP, PMC *pmc, PMC *cl)>
Expand Down Expand Up @@ -827,7 +816,6 @@ Parrot_mmd_maybe_candidate(PARROT_INTERP, ARGIN(PMC *pmc), ARGIN(PMC *cl))
return 0;
}


/*
=item C<static void mmd_search_by_sig_obj(PARROT_INTERP, STRING *name, PMC
Expand Down Expand Up @@ -864,7 +852,6 @@ mmd_search_by_sig_obj(PARROT_INTERP, ARGIN(STRING *name),
Parrot_mmd_maybe_candidate(interp, multi_sub, candidates);
}


/*
=item C<static void mmd_search_global(PARROT_INTERP, STRING *name, PMC *cl)>
Expand All @@ -890,7 +877,6 @@ mmd_search_global(PARROT_INTERP, ARGIN(STRING *name), ARGIN(PMC *cl))
Parrot_mmd_maybe_candidate(interp, multi_sub, cl);
}


/*
=item C<static void mmd_add_multi_global(PARROT_INTERP, STRING *sub_name, PMC
Expand Down Expand Up @@ -921,7 +907,6 @@ mmd_add_multi_global(PARROT_INTERP, ARGIN(STRING *sub_name), ARGIN(PMC *sub_obj)
VTABLE_push_pmc(interp, multi_sub, sub_obj);
}


/*
=item C<static void mmd_add_multi_to_namespace(PARROT_INTERP, STRING *ns_name,
Expand Down Expand Up @@ -954,7 +939,6 @@ mmd_add_multi_to_namespace(PARROT_INTERP, ARGIN(STRING *ns_name),
VTABLE_push_pmc(interp, multi_sub, sub_obj);
}


/*
=item C<void Parrot_mmd_add_multi_from_long_sig(PARROT_INTERP, STRING *sub_name,
Expand Down Expand Up @@ -998,7 +982,6 @@ Parrot_mmd_add_multi_from_long_sig(PARROT_INTERP,
mmd_add_multi_global(interp, sub_name, sub_obj);
}


/*
=item C<void Parrot_mmd_add_multi_from_c_args(PARROT_INTERP, const char
Expand Down Expand Up @@ -1091,7 +1074,6 @@ Parrot_mmd_add_multi_list_from_c_args(PARROT_INTERP,
}
}


/*
=item C<MMD_Cache * Parrot_mmd_cache_create(PARROT_INTERP)>
Expand All @@ -1113,7 +1095,6 @@ Parrot_mmd_cache_create(PARROT_INTERP)
return cache;
}


/*
=item C<static STRING * mmd_cache_key_from_values(PARROT_INTERP, const char
Expand Down Expand Up @@ -1161,7 +1142,6 @@ mmd_cache_key_from_values(PARROT_INTERP, ARGIN(const char *name),
return key;
}


/*
=item C<PMC * Parrot_mmd_cache_lookup_by_values(PARROT_INTERP, MMD_Cache *cache,
Expand Down Expand Up @@ -1189,7 +1169,6 @@ Parrot_mmd_cache_lookup_by_values(PARROT_INTERP, ARGMOD(MMD_Cache *cache),
return PMCNULL;
}


/*
=item C<void Parrot_mmd_cache_store_by_values(PARROT_INTERP, MMD_Cache *cache,
Expand All @@ -1214,7 +1193,6 @@ Parrot_mmd_cache_store_by_values(PARROT_INTERP, ARGMOD(MMD_Cache *cache),
VTABLE_set_pmc_keyed_str(interp, cache, key, chosen);
}


/*
=item C<static STRING * mmd_cache_key_from_types(PARROT_INTERP, const char
Expand Down Expand Up @@ -1264,7 +1242,6 @@ mmd_cache_key_from_types(PARROT_INTERP, ARGIN(const char *name),
return key;
}


/*
=item C<PMC * Parrot_mmd_cache_lookup_by_types(PARROT_INTERP, MMD_Cache *cache,
Expand Down Expand Up @@ -1292,7 +1269,6 @@ Parrot_mmd_cache_lookup_by_types(PARROT_INTERP, ARGMOD(MMD_Cache *cache),
return PMCNULL;
}


/*
=item C<void Parrot_mmd_cache_store_by_types(PARROT_INTERP, MMD_Cache *cache,
Expand All @@ -1318,7 +1294,6 @@ Parrot_mmd_cache_store_by_types(PARROT_INTERP, ARGMOD(MMD_Cache *cache),
VTABLE_set_pmc_keyed_str(interp, cache, key, chosen);
}


/*
=item C<void Parrot_mmd_cache_mark(PARROT_INTERP, MMD_Cache *cache)>
Expand All @@ -1340,22 +1315,20 @@ Parrot_mmd_cache_mark(PARROT_INTERP, ARGMOD(MMD_Cache *cache))
Parrot_gc_mark_PMC_alive(interp, cache);
}


/*
=back
=head1 SEE ALSO
F<include/parrot/multidispatch.h>,
L<http://svn.perl.org/perl6/doc/trunk/design/apo/A12.pod>,
L<http://svn.perl.org/perl6/doc/trunk/design/syn/S12.pod>
L<http://perlcabal.org/syn/S12.html>,
L<http://dev.perl.org/perl6/doc/design/apo/A12.html>
=cut
*/


/*
* Local variables:
* c-file-style: "parrot"
Expand Down

0 comments on commit cb9eaf0

Please sign in to comment.