The R Project SVN R

Rev

Rev 89002 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89002 Rev 89507
Line 94... Line 94...
94 
#define INTEGER_POINTER(x)	INTEGER(x)
 94 
#define INTEGER_POINTER(x)	INTEGER(x)
95 
#define NUMERIC_POINTER(x)	REAL(x)
 95 
#define NUMERIC_POINTER(x)	REAL(x)
96 
/* Writable pointers to string data ar not safe eo use in packages. */
 96 
/* Writable pointers to string data ar not safe eo use in packages. */
97 
#define CHARACTER_POINTER(x)	STRING_PTR_RO(x)
 97 
#define CHARACTER_POINTER(x)	STRING_PTR_RO(x)
98 
#define COMPLEX_POINTER(x)	COMPLEX(x)
 98 
#define COMPLEX_POINTER(x)	COMPLEX(x)
99 
/* Use of VECTOR_PTR will fail; This is probably unused. */
 - 
 
100 
#define LIST_POINTER(x)		VECTOR_PTR(x)
 99 
#define LIST_POINTER(x)		VECTOR_PTR_RO(x)
101 
#define RAW_POINTER(x)		RAW(x)
 100 
#define RAW_POINTER(x)		RAW(x)
102 
 
 101 
 
103 
/* The following are not defined in `Programming with Data' but are
 102 
/* The following are not defined in `Programming with Data' but are
104 
   defined in S.h in Svr4 */
 103 
   defined in S.h in Svr4 */
105 
 
 104 
 
Line 113... Line 112...
113 
#define DOUBLE_DATA(x)		(REAL(x))
 112 
#define DOUBLE_DATA(x)		(REAL(x))
114 
#define NUMERIC_DATA(x)		(REAL(x))
 113 
#define NUMERIC_DATA(x)		(REAL(x))
115 
/* Writable pointers to string data ar not safe eo use in packages. */
 114 
/* Writable pointers to string data ar not safe eo use in packages. */
116 
#define CHARACTER_DATA(x)	(STRING_PTR_RO(x))
 115 
#define CHARACTER_DATA(x)	(STRING_PTR_RO(x))
117 
#define COMPLEX_DATA(x)		(COMPLEX(x))
 116 
#define COMPLEX_DATA(x)		(COMPLEX(x))
118 
/* Use of VECTOR_PTR will now always fail in packages.
 - 
 
119 
   VECTOR_DATA seems unused, and RECURSIVE_DATA is used only in
 - 
 
120 
   the Expat part of XML.
 - 
 
121 
*/
 - 
 
122 
#define RECURSIVE_DATA(x)	(VECTOR_PTR(x))
 117 
#define RECURSIVE_DATA(x)	(VECTOR_PTR_RO(x))
123 
#define VECTOR_DATA(x)		(VECTOR_PTR(x))
 - 
 
124 
 
 118 
 
125 
#define LOGICAL_VALUE(x)	Rf_asLogical(x)
 119 
#define LOGICAL_VALUE(x)	Rf_asLogical(x)
126 
#define INTEGER_VALUE(x)	Rf_asInteger(x)
 120 
#define INTEGER_VALUE(x)	Rf_asInteger(x)
127 
#define NUMERIC_VALUE(x)	Rf_asReal(x)
 121 
#define NUMERIC_VALUE(x)	Rf_asReal(x)
128 
#define CHARACTER_VALUE(x)	CHAR(Rf_asChar(x))
 122 
#define CHARACTER_VALUE(x)	CHAR(Rf_asChar(x))