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