You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by nw...@apache.org on 2014/08/31 15:34:05 UTC
[6/8] git commit: Add Perl binding for CFCClass_get_parcel
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 <we...@aevum.de>
Authored: Sun Aug 31 14:41:41 2014 +0200
Committer: Nick Wellnhofer <we...@aevum.de>
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
}