libdap++  Updated for version 3.12.0
RValue.cc
Go to the documentation of this file.
1 
2 // -*- mode: c++; c-basic-offset:4 -*-
3 
4 // This file is part of libdap, A C++ implementation of the OPeNDAP Data
5 // Access Protocol.
6 
7 // Copyright (c) 2002,2003 OPeNDAP, Inc.
8 // Author: James Gallagher <jgallagher@opendap.org>
9 //
10 // This library is free software; you can redistribute it and/or
11 // modify it under the terms of the GNU Lesser General Public
12 // License as published by the Free Software Foundation; either
13 // version 2.1 of the License, or (at your option) any later version.
14 //
15 // This library is distributed in the hope that it will be useful,
16 // but WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 // Lesser General Public License for more details.
19 //
20 // You should have received a copy of the GNU Lesser General Public
21 // License along with this library; if not, write to the Free Software
22 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
23 //
24 // You can contact OPeNDAP, Inc. at PO Box 112, Saunderstown, RI. 02874-0112.
25 
26 // (c) COPYRIGHT URI/MIT 1996-1999
27 // Please read the full copyright statement in the file COPYRIGHT_URI.
28 //
29 // Authors:
30 // jhrg,jimg James Gallagher <jgallagher@gso.uri.edu>
31 
32 // This file contains mfuncs defined for struct rvalue (see expr.h) that
33 // *cannot* be included in that struct's declaration because their
34 // definitions must follow *both* rvalue's and func_rvalue's declarations.
35 // jhrg 3/4/96
36 
37 #include "config.h"
38 
39 static char rcsid[] not_used =
40  {"$Id: RValue.cc 27197 2013-10-01 21:29:54Z jimg $"
41  };
42 
43 #include <cassert>
44 #include <iostream>
45 
46 #include "BaseType.h"
47 #include "expr.h"
48 #include "RValue.h"
49 #include "DDS.h"
50 #include "dods-limits.h"
51 #include "util.h"
52 
53 using namespace std;
54 
55 namespace libdap {
56 
59 {
60  assert(rv);
61 
62  rvalue_list *rvals = new rvalue_list;
63 
64  return append_rvalue_list(rvals, rv);
65 }
66 
67 // Given a rvalue_list pointer RVALS and a value pointer VAL, make a variable
68 // to hold VAL and append that variable to the list RVALS.
69 //
70 // Returns: A pointer to the updated rvalue_list.
71 
74 {
75  rvals->push_back(rv);
76 
77  return rvals;
78 }
79 
80 
91 BaseType **
93 {
94  int argc = 0;
95 
96  if (args)
97  argc = args->size();
98 
99  // Sanitize allocation size
100  if (!size_ok(sizeof(BaseType*), argc + 1))
101  throw Error(malformed_expr, string("Malformed argument list (")
102  + long_to_string(argc) + string(")."));
103 
104  // Add space for a null terminator
105  BaseType **argv = new BaseType*[argc + 1];
106 
107  int index = 0;
108  if (argv && argc) {
109  for (rvalue::Args_iter i = args->begin(); i != args->end() && index
110  < argc + 1; ++i)
111  argv[index++] = (*i)->bvalue(dds);
112 
113  argv[index] = 0; // Add the null terminator.
114  }
115 
116  if (index != argc) {
117  delete[] argv;
118  throw InternalErr(__FILE__, __LINE__, "index out of range.");
119  }
120 #if 0
121  argv[index] = 0; // Add the null terminator.
122 #endif
123  return argv;
124 }
125 
126 rvalue::rvalue(BaseType *bt): d_value(bt), d_func(0), d_args(0)
127 {}
128 
129 rvalue::rvalue(btp_func f, vector<rvalue *> *a) : d_value(0), d_func(f), d_args(a)
130 {}
131 
132 rvalue::rvalue(): d_value(0), d_func(0), d_args(0)
133 {}
134 
136 {
137  // Deleting the BaseType pointers in value and args is a bad idea since
138  // those might be variables in the dataset. The DDS dtor will take care
139  // of deleting them. The constants wrapped in BaseType objects should be
140  // pushed on the list of CE-allocated temp objects which the CE frees.
141 }
142 
143 string
145 {
146  assert(d_value);
147 
148  return d_value->name();
149 }
150 
158 BaseType *
160 {
161  if (d_value) { // i.e., if this RValue is a BaseType
162  return d_value;
163  }
164  else if (d_func) {
165  // If func is true, then args must be set. See the constructor.
166  // 12/23/04 jhrg
167  BaseType **argv = build_btp_args(d_args, dds);
168  BaseType *ret_val;
169  (*d_func)(d_args->size(), argv, dds, &ret_val);
170  delete[] argv;
171  return ret_val;
172  }
173  else {
174  return 0;
175  }
176 }
177 
178 } // namespace libdap
179 
BaseType * bvalue(DDS &dds)
Definition: RValue.cc:159
rvalue_list * append_rvalue_list(rvalue_list *rvals, rvalue *rv)
Definition: RValue.cc:73
std::vector< rvalue * > rvalue_list
Definition: RValue.h:67
#define not_used
Definition: config.h:1106
#define malformed_expr
Definition: Error.h:64
virtual ~rvalue()
Definition: RValue.cc:135
bool size_ok(unsigned int sz, unsigned int nelem)
sanitize the size of an array. Test for integer overflow when dynamically allocating an array...
Definition: util.cc:978
A class for software fault reporting.
Definition: InternalErr.h:64
string value_name()
Definition: RValue.cc:144
string name() const
Returns the name of the class instance.
Definition: BaseType.cc:254
BaseType ** build_btp_args(rvalue_list *args, DDS &dds)
Definition: RValue.cc:92
string long_to_string(long val, int base)
Definition: util.cc:773
rvalue_list * make_rvalue_list(rvalue *rv)
Definition: RValue.cc:58
The basic data type for the DODS DAP types.
Definition: BaseType.h:199
A class for error processing.
Definition: Error.h:90
std::vector< rvalue * >::iterator Args_iter
Definition: RValue.h:52