libdap++  Updated for version 3.12.0
Float64.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 1994-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 // Implementation for Float64.
33 //
34 // jhrg 9/7/94
35 
36 #include "config.h"
37 
38 #include <sstream>
39 #include <iomanip>
40 
41 #include "Byte.h" // synonymous with UInt8 and Char
42 #include "Int8.h"
43 #include "Int16.h"
44 #include "UInt16.h"
45 #include "Int32.h"
46 #include "UInt32.h"
47 #include "Int64.h"
48 #include "UInt64.h"
49 #include "Float32.h"
50 #include "Float64.h"
51 #include "Str.h"
52 #include "Url.h"
53 
54 #include "DDS.h"
55 #include "Marshaller.h"
56 #include "UnMarshaller.h"
57 
58 #include "util.h"
59 #include "parser.h"
60 #include "Operators.h"
61 #include "dods-limits.h"
62 #include "InternalErr.h"
63 
64 
65 using std::cerr;
66 using std::endl;
67 
68 namespace libdap {
69 
78 Float64::Float64(const string &n)
80 {}
81 
89 Float64::Float64(const string &n, const string &d)
90  : BaseType(n, d, dods_float64_c)
91 {}
92 
93 Float64::Float64(const Float64 &copy_from) : BaseType(copy_from)
94 {
95  d_buf = copy_from.d_buf;
96 }
97 
98 BaseType *
100 {
101  return new Float64(*this);
102 }
103 
104 Float64 &
106 {
107  if (this == &rhs)
108  return *this;
109 
110  dynamic_cast<BaseType &>(*this) = rhs;
111 
112  d_buf = rhs.d_buf;
113 
114  return *this;
115 }
116 
117 unsigned int
119 {
120  return sizeof(dods_float64);
121 }
122 
123 bool
125  Marshaller &m, bool ce_eval)
126 {
127  dds.timeout_on();
128 
129  if (!read_p())
130  read(); // read() throws Error and InternalErr
131 
132 #if EVAL
133  if (ce_eval && !eval.eval_selection(dds, dataset()))
134  return true;
135 #endif
136 
137  dds.timeout_off();
138 
139  m.put_float64( d_buf ) ;
140 
141  return true;
142 }
143 
144 bool
146 {
147  um.get_float64( d_buf ) ;
148 
149  return false;
150 }
151 
152 unsigned int
153 Float64::val2buf(void *val, bool)
154 {
155  // Jose Garcia
156  // This method is public therefore and I believe it has being designed
157  // to be use by read which must be implemented on the surrogated library,
158  // thus if the pointer val is NULL, is an Internal Error.
159  if (!val)
160  throw InternalErr(__FILE__, __LINE__,
161  "The incoming pointer does not contain any data.");
162 
163  d_buf = *(dods_float64 *)val;
164 
165  return width();
166 }
167 
168 unsigned int
169 Float64::buf2val(void **val)
170 {
171  // Jose Garcia
172  // The same comment justifying throwing an Error in val2buf applies here.
173  if (!val)
174  throw InternalErr(__FILE__, __LINE__, "NULL pointer.");
175 
176  if (!*val)
177  *val = new dods_float64;
178 
179  *(dods_float64 *)*val = d_buf;
180 
181  return width();
182 }
183 
191 {
192  return d_buf;
193 }
194 
195 bool
197 {
198  d_buf = val;
199  set_read_p(true);
200 
201  return true;
202 }
203 
204 void
205 Float64::print_val(FILE *out, string space, bool print_decl_p)
206 {
207  ostringstream oss;
208  print_val(oss, space, print_decl_p);
209  fwrite(oss.str().data(), sizeof(char), oss.str().length(), out);
210 }
211 
212 void
213 Float64::print_val(ostream &out, string space, bool print_decl_p)
214 {
215  // FIX: need to set precision in the printing somehow.
216  // os.precision(DODS_DBL_DIG);
217 
218  if (print_decl_p) {
219  print_decl(out, space, false);
220  out << " = " << std::setprecision( 15 ) << d_buf << ";\n" ;
221  }
222  else
223  out << std::setprecision( 15 ) << d_buf ;
224 }
225 
226 bool
228 {
229  // Extract the Byte arg's value.
230  if (!read_p() && !read()) {
231  // Jose Garcia
232  // Since the read method is virtual and implemented outside
233  // libdap++ if we cannot read the data that is the problem
234  // of the user or of whoever wrote the surrogate library
235  // implemeting read therefore it is an internal error.
236  throw InternalErr(__FILE__, __LINE__, "This value not read!");
237  }
238 
239  // Extract the second arg's value.
240  if (!b->read_p() && !b->read()) {
241  // Jose Garcia
242  // Since the read method is virtual and implemented outside
243  // libdap++ if we cannot read the data that is the problem
244  // of the user or of whoever wrote the surrogate library
245  // implemeting read therefore it is an internal error.
246  throw InternalErr(__FILE__, __LINE__, "This value not read!");
247  }
248 
249  switch (b->type()) {
250  case dods_int8_c:
251  return Cmp<dods_float64, dods_int8>(op, d_buf, static_cast<Int8*>(b)->value());
252  case dods_byte_c:
253  return SUCmp<dods_float64, dods_byte>(op, d_buf, static_cast<Byte*>(b)->value());
254  case dods_int16_c:
255  return Cmp<dods_float64, dods_int16>(op, d_buf, static_cast<Int16*>(b)->value());
256  case dods_uint16_c:
257  return SUCmp<dods_float64, dods_uint16>(op, d_buf, static_cast<UInt16*>(b)->value());
258  case dods_int32_c:
259  return Cmp<dods_float64, dods_int32>(op, d_buf, static_cast<Int32*>(b)->value());
260  case dods_uint32_c:
261  return SUCmp<dods_float64, dods_uint32>(op, d_buf, static_cast<UInt32*>(b)->value());
262  case dods_int64_c:
263  return Cmp<dods_float64, dods_int64>(op, d_buf, static_cast<Int64*>(b)->value());
264  case dods_uint64_c:
265  return SUCmp<dods_float64, dods_uint64>(op, d_buf, static_cast<UInt64*>(b)->value());
266  case dods_float32_c:
267  return Cmp<dods_float64, dods_float32>(op, d_buf, static_cast<Float32*>(b)->value());
268  case dods_float64_c:
269  return Cmp<dods_float64, dods_float64>(op, d_buf, static_cast<Float64*>(b)->value());
270  default:
271  return false;
272  }
273 }
274 
283 void
284 Float64::dump(ostream &strm) const
285 {
286  strm << DapIndent::LMarg << "Float64::dump - ("
287  << (void *)this << ")" << endl ;
289  BaseType::dump(strm) ;
290  strm << DapIndent::LMarg << "value: " << d_buf << endl ;
292 }
293 
294 } // namespace libdap
295