Add Perl binding for CFCClass_get_parcel
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/898e6c11 Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/898e6c11 Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/898e6c11 Branch: refs/heads/documentation Commit: 898e6c1114d427b26d02aa5bcf0ca6bb800712b6 Parents: 9a4a214 Author: Nick Wellnhofer <[email protected]> Authored: Sun Aug 31 14:41:41 2014 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Sun Aug 31 15:32:22 2014 +0200 ---------------------------------------------------------------------- compiler/perl/lib/Clownfish/CFC.xs | 6 ++++++ 1 file changed, 6 insertions(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/898e6c11/compiler/perl/lib/Clownfish/CFC.xs ---------------------------------------------------------------------- diff --git a/compiler/perl/lib/Clownfish/CFC.xs b/compiler/perl/lib/Clownfish/CFC.xs index a306b68..bdc91b2 100644 --- a/compiler/perl/lib/Clownfish/CFC.xs +++ b/compiler/perl/lib/Clownfish/CFC.xs @@ -301,6 +301,7 @@ ALIAS: fresh_member_vars = 46 privacy_symbol = 48 included = 50 + get_parcel = 52 PPCODE: { START_SET_OR_GET_SWITCH @@ -413,6 +414,11 @@ PPCODE: case 50: retval = newSViv(CFCClass_included(self)); break; + case 52: { + CFCParcel *parcel = CFCClass_get_parcel(self); + retval = S_cfcbase_to_perlref(parcel); + } + break; END_SET_OR_GET_SWITCH }
