lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mar...@apache.org
Subject [lucy-commits] [4/7] git commit: refs/heads/method-imp-names - Migrate Clownfish runtime Perl bindings to _IMP.
Date Fri, 09 Aug 2013 02:15:08 GMT
Migrate Clownfish runtime Perl bindings to _IMP.


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

Branch: refs/heads/method-imp-names
Commit: e797381d77c380c31e85db4b124be2660a54c04a
Parents: 45c6219
Author: Marvin Humphrey <marvin@rectangular.com>
Authored: Thu Aug 8 19:10:53 2013 -0700
Committer: Marvin Humphrey <marvin@rectangular.com>
Committed: Thu Aug 8 19:13:34 2013 -0700

----------------------------------------------------------------------
 .../perl/buildlib/Clownfish/Build/Binding.pm    |  8 ++++----
 clownfish/runtime/perl/xs/XSBind.c              | 20 ++++++++++----------
 2 files changed, 14 insertions(+), 14 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/lucy/blob/e797381d/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm
----------------------------------------------------------------------
diff --git a/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm b/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm
index fd02a6b..6a7d22b 100644
--- a/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm
+++ b/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm
@@ -168,7 +168,7 @@ SV*
 _clone(self)
     cfish_CharBuf *self;
 CODE:
-    RETVAL = CFISH_OBJ_TO_SV_NOINC(cfish_CB_clone(self));
+    RETVAL = CFISH_OBJ_TO_SV_NOINC(Cfish_CB_Clone_IMP(self));
 OUTPUT: RETVAL
 
 SV*
@@ -268,7 +268,7 @@ _fetch(self, key)
     cfish_Hash *self;
     const cfish_CharBuf *key;
 CODE:
-    RETVAL = CFISH_OBJ_TO_SV(cfish_Hash_fetch(self, (cfish_Obj*)key));
+    RETVAL = CFISH_OBJ_TO_SV(Cfish_Hash_Fetch_IMP(self, (cfish_Obj*)key));
 OUTPUT: RETVAL
 
 void
@@ -279,7 +279,7 @@ store(self, key, value);
 PPCODE:
 {
     if (value) { CFISH_INCREF(value); }
-    cfish_Hash_store(self, (cfish_Obj*)key, value);
+    Cfish_Hash_Store_IMP(self, (cfish_Obj*)key, value);
 }
 
 void
@@ -549,7 +549,7 @@ store(self, tick, value);
 PPCODE:
 {
     if (value) { CFISH_INCREF(value); }
-    cfish_VA_store(self, tick, value);
+    Cfish_VA_Store_IMP(self, tick, value);
 }
 
 SV*

http://git-wip-us.apache.org/repos/asf/lucy/blob/e797381d/clownfish/runtime/perl/xs/XSBind.c
----------------------------------------------------------------------
diff --git a/clownfish/runtime/perl/xs/XSBind.c b/clownfish/runtime/perl/xs/XSBind.c
index 092b5e9..c0a5f28 100644
--- a/clownfish/runtime/perl/xs/XSBind.c
+++ b/clownfish/runtime/perl/xs/XSBind.c
@@ -620,14 +620,14 @@ S_lazy_init_host_obj(cfish_Obj *self) {
 }
 
 uint32_t
-cfish_Obj_get_refcount(cfish_Obj *self) {
+Cfish_Obj_Get_RefCount_IMP(cfish_Obj *self) {
     return self->ref.count & XSBIND_REFCOUNT_FLAG
            ? self->ref.count >> XSBIND_REFCOUNT_SHIFT
            : SvREFCNT((SV*)self->ref.host_obj);
 }
 
 cfish_Obj*
-cfish_Obj_inc_refcount(cfish_Obj *self) {
+Cfish_Obj_Inc_RefCount_IMP(cfish_Obj *self) {
     if (self->ref.count & XSBIND_REFCOUNT_FLAG) {
         if (self->ref.count == XSBIND_REFCOUNT_FLAG) {
             CFISH_THROW(CFISH_ERR, "Illegal refcount of 0");
@@ -641,7 +641,7 @@ cfish_Obj_inc_refcount(cfish_Obj *self) {
 }
 
 uint32_t
-cfish_Obj_dec_refcount(cfish_Obj *self) {
+Cfish_Obj_Dec_RefCount_IMP(cfish_Obj *self) {
     uint32_t modified_refcount = I32_MAX;
     if (self->ref.count & XSBIND_REFCOUNT_FLAG) {
         if (self->ref.count == XSBIND_REFCOUNT_FLAG) {
@@ -667,7 +667,7 @@ cfish_Obj_dec_refcount(cfish_Obj *self) {
 }
 
 void*
-cfish_Obj_to_host(cfish_Obj *self) {
+Cfish_Obj_To_Host_IMP(cfish_Obj *self) {
     if (self->ref.count & XSBIND_REFCOUNT_FLAG) { S_lazy_init_host_obj(self); }
     return newRV_inc((SV*)self->ref.host_obj);
 }
@@ -675,7 +675,7 @@ cfish_Obj_to_host(cfish_Obj *self) {
 /*************************** Clownfish::VTable ******************************/
 
 cfish_Obj*
-cfish_VTable_make_obj(cfish_VTable *self) {
+Cfish_VTable_Make_Obj_IMP(cfish_VTable *self) {
     cfish_Obj *obj
         = (cfish_Obj*)cfish_Memory_wrapped_calloc(self->obj_alloc_size, 1);
     obj->vtable = self;
@@ -684,7 +684,7 @@ cfish_VTable_make_obj(cfish_VTable *self) {
 }
 
 cfish_Obj*
-cfish_VTable_init_obj(cfish_VTable *self, void *allocation) {
+Cfish_VTable_Init_Obj_IMP(cfish_VTable *self, void *allocation) {
     cfish_Obj *obj = (cfish_Obj*)allocation;
     obj->vtable = self;
     obj->ref.count = (1 << XSBIND_REFCOUNT_SHIFT) | XSBIND_REFCOUNT_FLAG;
@@ -692,7 +692,7 @@ cfish_VTable_init_obj(cfish_VTable *self, void *allocation) {
 }
 
 cfish_Obj*
-cfish_VTable_foster_obj(cfish_VTable *self, void *host_obj) {
+Cfish_VTable_Foster_Obj_IMP(cfish_VTable *self, void *host_obj) {
     cfish_Obj *obj
         = (cfish_Obj*)cfish_Memory_wrapped_calloc(self->obj_alloc_size, 1);
     SV *inner_obj = SvRV((SV*)host_obj);
@@ -756,7 +756,7 @@ cfish_VTable_find_parent_class(const cfish_CharBuf *class_name) {
 }
 
 void*
-cfish_VTable_to_host(cfish_VTable *self) {
+Cfish_VTable_To_Host_IMP(cfish_VTable *self) {
     bool first_time = self->ref.count & XSBIND_REFCOUNT_FLAG ? true : false;
     Cfish_VTable_To_Host_t to_host
         = CFISH_SUPER_METHOD_PTR(CFISH_VTABLE, Cfish_VTable_To_Host);
@@ -847,7 +847,7 @@ cfish_Err_do_throw(cfish_Err *err) {
 }
 
 void*
-cfish_Err_to_host(cfish_Err *self) {
+Cfish_Err_To_Host_IMP(cfish_Err *self) {
     Cfish_Err_To_Host_t super_to_host
         = CFISH_SUPER_METHOD_PTR(CFISH_ERR, Cfish_Err_To_Host);
     SV *perl_obj = (SV*)super_to_host(self);
@@ -921,7 +921,7 @@ cfish_Err_trap(Cfish_Err_Attempt_t routine, void *context) {
 /*********************** Clownfish::LockFreeRegistry ************************/
 
 void*
-cfish_LFReg_to_host(cfish_LockFreeRegistry *self) {
+Cfish_LFReg_To_Host_IMP(cfish_LockFreeRegistry *self) {
     bool first_time = self->ref.count & XSBIND_REFCOUNT_FLAG ? true : false;
     Cfish_LFReg_To_Host_t to_host
         = CFISH_SUPER_METHOD_PTR(CFISH_LOCKFREEREGISTRY, Cfish_LFReg_To_Host);


Mime
View raw message