1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
#ifndef __XML2_XML2_TYPES__
#define __XML2_XML2_TYPES__
#include <libxml/tree.h>
#include <Rinternals.h>
template <typename T> class XPtr {
protected:
SEXP data_;
public:
XPtr(SEXP x) : data_(x) {
if (TYPEOF(data_) != EXTPTRSXP) {
Rf_error("Expecting an external pointer: [type=%s]", Rf_type2char(TYPEOF(data_)));
}
R_PreserveObject(data_);
}
XPtr(T* p) {
data_ = R_MakeExternalPtr((void *) p, R_NilValue, R_NilValue);
R_PreserveObject(data_);
}
XPtr(const XPtr<T> &old) {
data_ = old.data_;
R_PreserveObject(data_);
}
XPtr& operator=(const XPtr<T> &other) {
R_PreserveObject(other.data_);
if (data_ != NULL) {
R_ReleaseObject(data_);
}
data_ = other.data_;
return *this;
}
operator SEXP() const { return data_; }
T* get() const {
return (T*)(R_ExternalPtrAddr(data_));
}
T* checked_get() const {
T* ptr = get();
if (ptr == NULL) {
Rf_error("external pointer is not valid");
}
return ptr;
}
operator T*() {
return checked_get();
}
T* operator->() const {
return checked_get();
}
~XPtr() {
R_ReleaseObject(data_);
}
};
class XPtrDoc : public ::XPtr<xmlDoc> {
static void finalizeXPtrDoc(SEXP p) {
if (TYPEOF(p) != EXTPTRSXP) {
return;
}
xmlDoc* ptr = (xmlDoc*) R_ExternalPtrAddr(p);
if (ptr == NULL) {
return;
}
R_ClearExternalPtr(p);
xmlFreeDoc(ptr);
}
public:
XPtrDoc(xmlDoc* p) : ::XPtr<xmlDoc>(p) {
R_RegisterCFinalizerEx(data_, finalizeXPtrDoc, (Rboolean) false);
}
XPtrDoc(SEXP x) : ::XPtr<xmlDoc>(x) {}
};
typedef ::XPtr<xmlNode> XPtrNode;
typedef ::XPtr<xmlNs> XPtrNs;
#endif
|
