Rcpp Version 1.0.9
Nullable.h
Go to the documentation of this file.
1 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
2 //
3 // Nullable.h: Rcpp R/C++ interface class library -- SEXP container which can be NULL
4 //
5 // Copyright (C) 2015 Dirk Eddelbuettel and Daniel C. Dillon
6 //
7 // This file is part of Rcpp.
8 //
9 // Rcpp is free software: you can redistribute it and/or modify it
10 // under the terms of the GNU General Public License as published by
11 // the Free Software Foundation, either version 2 of the License, or
12 // (at your option) any later version.
13 //
14 // Rcpp is distributed in the hope that it will be useful, but
15 // WITHOUT ANY WARRANTY; without even the implied warranty of
16 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 // GNU General Public License for more details.
18 //
19 // You should have received a copy of the GNU General Public License
20 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>.
21 
22 #ifndef Rcpp_Nullable_h
23 #define Rcpp_Nullable_h
24 
25 // We looked into the safe_bool_idiom [1] but found that more trouble than is
26 // warranted here. We first and foremost want an operator SEXP() which got in
27 // the way of redefining operator bool.
28 // [1] http://www.artima.com/cppsource/safebool.html)
29 
30 namespace Rcpp {
31 
32  template<class T>
33  class Nullable {
34  public:
35 
41  inline Nullable() : m_sexp(R_NilValue), m_set(false) {}
42 
49  inline Nullable(const T &t) : m_sexp(t), m_set(true) {}
50 
56  inline Nullable(SEXP t) {
57  m_sexp = t;
58  m_set = true;
59  }
60 
61  public:
62 
68  inline Nullable &operator=(SEXP sexp) {
69  m_sexp = sexp;
70  m_set = true;
71  return *this;
72  }
73 
79  inline operator SEXP() const {
80  checkIfSet();
81  return m_sexp;
82  }
83 
89  inline SEXP get() const {
90  checkIfSet();
91  return m_sexp;
92  }
93 
97  inline bool isUsable() const {
98  return m_set && !Rf_isNull(m_sexp);
99  }
100 
106  inline bool isNull() const {
107  checkIfSet();
108  return Rf_isNull(m_sexp);
109  }
110 
116  inline bool isNotNull() const {
117  return ! isNull();
118  }
119 
124  inline bool isSet(void) const { return m_set; }
125 
129  inline T as() { return get(); }
130 
134  inline T clone() const { return Rcpp::clone(get()); }
135 
136  private:
137  SEXP m_sexp;
138  bool m_set;
139 
140  inline void checkIfSet(void) const {
141  if (!m_set) {
142  throw ::Rcpp::exception("Not initialized");
143  }
144  }
145  };
146 }
147 
148 #endif
bool isUsable() const
Definition: Nullable.h:97
SEXP get() const
Definition: Nullable.h:89
void checkIfSet(void) const
Definition: Nullable.h:140
bool isSet(void) const
Definition: Nullable.h:124
Nullable & operator=(SEXP sexp)
Definition: Nullable.h:68
bool isNotNull() const
Definition: Nullable.h:116
Nullable(const T &t)
Definition: Nullable.h:49
bool isNull() const
Definition: Nullable.h:106
Nullable(SEXP t)
Definition: Nullable.h:56
T clone() const
Definition: Nullable.h:134
Rcpp API.
Definition: algo.h:28
T clone(const T &object)
Definition: clone.h:33