lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From nwelln...@apache.org
Subject [2/3] git commit: Autogenerate Class#Make_Obj binding
Date Sun, 06 Jul 2014 17:21:22 GMT
Autogenerate Class#Make_Obj binding

Now that Make_Obj is marked as incremented, the Perl binding can be
autogenerated.


Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/f3c09817
Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/f3c09817
Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/f3c09817

Branch: refs/heads/master
Commit: f3c09817240f4f797bdfa36316b57e867542c014
Parents: 2a4e641
Author: Nick Wellnhofer <wellnhofer@aevum.de>
Authored: Sun Jul 6 17:54:40 2014 +0200
Committer: Nick Wellnhofer <wellnhofer@aevum.de>
Committed: Sun Jul 6 17:57:06 2014 +0200

----------------------------------------------------------------------
 runtime/perl/buildlib/Clownfish/Build/Binding.pm | 11 -----------
 1 file changed, 11 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/f3c09817/runtime/perl/buildlib/Clownfish/Build/Binding.pm
----------------------------------------------------------------------
diff --git a/runtime/perl/buildlib/Clownfish/Build/Binding.pm b/runtime/perl/buildlib/Clownfish/Build/Binding.pm
index 7593d32..3fc9bf1 100644
--- a/runtime/perl/buildlib/Clownfish/Build/Binding.pm
+++ b/runtime/perl/buildlib/Clownfish/Build/Binding.pm
@@ -554,8 +554,6 @@ END_XS_CODE
 }
 
 sub bind_class {
-    my @hand_rolled = qw( Make_Obj );
-
     my $xs_code = <<'END_XS_CODE';
 MODULE = Clownfish   PACKAGE = Clownfish::Class
 
@@ -606,21 +604,12 @@ CODE:
     RETVAL = (SV*)CFISH_Class_To_Host(singleton);
 }
 OUTPUT: RETVAL
-
-SV*
-make_obj(self)
-    cfish_Class *self;
-CODE:
-    cfish_Obj *blank = CFISH_Class_Make_Obj(self);
-    RETVAL = CFISH_OBJ_TO_SV_NOINC(blank);
-OUTPUT: RETVAL
 END_XS_CODE
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Clownfish",
         class_name => "Clownfish::Class",
     );
-    $binding->exclude_method($_) for @hand_rolled;
     $binding->append_xs($xs_code);
 
     Clownfish::CFC::Binding::Perl::Class->register($binding);


Mime
View raw message