Go to the documentation of this file.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037 #include "config.h"
00038
00039 static char rcsid[] not_used =
00040 {"$Id: RValue.cc 21699 2009-11-05 00:06:01Z jimg $"
00041 };
00042
00043 #include <cassert>
00044 #include <iostream>
00045
00046 #include "BaseType.h"
00047 #include "expr.h"
00048 #include "RValue.h"
00049 #include "DDS.h"
00050 #include "dods-limits.h"
00051 #include "util.h"
00052
00053 using namespace std;
00054
00055 namespace libdap {
00056
00057 rvalue_list *
00058 make_rvalue_list(rvalue *rv)
00059 {
00060 assert(rv);
00061
00062 rvalue_list *rvals = new rvalue_list;
00063
00064 return append_rvalue_list(rvals, rv);
00065 }
00066
00067
00068
00069
00070
00071
00072 rvalue_list *
00073 append_rvalue_list(rvalue_list *rvals, rvalue *rv)
00074 {
00075 rvals->push_back(rv);
00076
00077 return rvals;
00078 }
00079
00080
00092 BaseType **
00093 build_btp_args(rvalue_list *args, DDS &dds)
00094 {
00095 int argc = 0;
00096
00097 if (args)
00098 argc = args->size();
00099
00100
00101 if (!size_ok(sizeof(BaseType*), argc + 1))
00102 throw Error(malformed_expr, string("Malformed argument list (")
00103 + long_to_string(argc) + string(")."));
00104
00105
00106 BaseType **argv = new BaseType*[argc + 1];
00107
00108 int index = 0;
00109 if (argv && argc) {
00110 for (rvalue::Args_iter i = args->begin(); i != args->end() && index
00111 < argc + 1; ++i)
00112 argv[index++] = (*i)->bvalue(dds);
00113 }
00114
00115 if (index != argc) {
00116 delete[] argv;
00117 throw InternalErr(__FILE__, __LINE__, "index out of range.");
00118 }
00119
00120 argv[index] = 0;
00121
00122 return argv;
00123 }
00124
00125 rvalue::rvalue(BaseType *bt): d_value(bt), d_func(0), d_args(0)
00126 {}
00127
00128 rvalue::rvalue(btp_func f, vector<rvalue *> *a) : d_value(0), d_func(f), d_args(a)
00129 {}
00130
00131 rvalue::rvalue(): d_value(0), d_func(0), d_args(0)
00132 {}
00133
00134 rvalue::~rvalue()
00135 {
00136
00137
00138
00139
00140 }
00141
00142 string
00143 rvalue::value_name()
00144 {
00145 assert(d_value);
00146
00147 return d_value->name();
00148 }
00149
00159 BaseType *
00160 rvalue::bvalue(DDS &dds)
00161 {
00162 if (d_value) {
00163 return d_value;
00164 }
00165 else if (d_func) {
00166
00167
00168 BaseType **argv = build_btp_args(d_args, dds);
00169 BaseType *ret_val;
00170 (*d_func)(d_args->size(), argv, dds, &ret_val);
00171 delete[] argv;
00172 return ret_val;
00173 }
00174 else {
00175 return 0;
00176 }
00177 }
00178
00179 }
00180