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
|
// cpp11 version: 0.3.1.1
// vendored on: 2021-08-11
#pragma once
#include "Rversion.h"
#if defined(R_VERSION) && R_VERSION >= R_Version(3, 5, 0)
#define HAS_ALTREP
#endif
#ifndef HAS_ALTREP
#define ALTREP(x) false
#define REAL_ELT(x, i) REAL(x)[i]
#define INTEGER_ELT(x, i) INTEGER(x)[i]
#define LOGICAL_ELT(x, i) LOGICAL(x)[i]
#define RAW_ELT(x, i) RAW(x)[i]
#define SET_REAL_ELT(x, i, val) REAL(x)[i] = val
#define SET_INTEGER_ELT(x, i, val) INTEGER(x)[i] = val
#define SET_LOGICAL_ELT(x, i, val) LOGICAL(x)[i] = val
#define SET_RAW_ELT(x, i, val) RAW(x)[i] = val
#define REAL_GET_REGION(...) \
do { \
} while (false)
#define INTEGER_GET_REGION(...) \
do { \
} while (false)
#endif
#if !defined HAS_ALTREP || (defined(R_VERSION) && R_VERSION < R_Version(3, 6, 0))
#define LOGICAL_GET_REGION(...) \
do { \
} while (false)
#define RAW_GET_REGION(...) \
do { \
} while (false)
#endif
|
