Changeset 3739 for branches/1.3/lang/R/Rappture/src/RpLibraryRInterface.cc

Timestamp:

Jul 3, 2013, 8:39:28 AM (11 years ago)

Author:

gah

Message:

bandaid R bindings for R 3.0.1

File:

• branches/1.3/lang/R/Rappture/src/RpLibraryRInterface.cc (modified) (3 diffs)

branches/1.3/lang/R/Rappture/src/RpLibraryRInterface.cc

@@ -24 +24 @@
 rp_lib_finalizer(SEXP ptr)
 {
-    RpLibrary* lib = NULL;
     if (!R_ExternalPtrAddr(ptr)) {
         return;
     }
-    lib = (RpLibrary *) R_ExternalPtrAddr(ptr);
+#ifdef notdef
+    /* Until we figure this out, don't delete the library object.  R is
+     * calling the finalizer on every method of the library object.  This is a
+     * problem only if someone explicitly deletes the library object from
+     * R. */
+    RpLibrary* lib;
+    lib = (RpLibrary *)R_ExternalPtrAddr(ptr);
     if (lib != NULL) {
         delete lib;
-        lib = NULL;
-    }
+    }
+#endif
     R_ClearExternalPtr(ptr);
-
 }
 
@@ -92 +96 @@
     SEXP path)              // null terminated path
 {
-    RpLibrary* lib = NULL;
+    RpLibrary* lib;
     SEXP ans;
     int handleVal = -1;
@@ -123 +127 @@
 
     lib = (RpLibrary*) getObject_Void(handleVal);
-
     if (lib == NULL) {
         error("invalid Rappture Library Object");