<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/> <title>libdap++: Array.cc Source File</title> <link href="tabs.css" rel="stylesheet" type="text/css"/> <link href="navtree.css" rel="stylesheet" type="text/css"/> <script type="text/javascript" src="jquery.js"></script> <script type="text/javascript" src="navtree.js"></script> <script type="text/javascript" src="resize.js"></script> <script type="text/javascript"> $(document).ready(initResizable); </script> <link href="doxygen.css" rel="stylesheet" type="text/css"/> </head> <body> <!-- Generated by Doxygen 1.7.3 --> <div id="top"> <div id="titlearea"> <table cellspacing="0" cellpadding="0"> <tbody> <tr style="height: 56px;"> <td style="padding-left: 0.5em;"> <div id="projectname">libdap++ <span id="projectnumber">Updated for version 3.8.2</span></div> </td> </tr> </tbody> </table> </div> <div id="navrow1" class="tabs"> <ul class="tablist"> <li><a href="index.html"><span>Main Page</span></a></li> <li><a href="pages.html"><span>Related Pages</span></a></li> <li><a href="namespaces.html"><span>Namespaces</span></a></li> <li><a href="annotated.html"><span>Classes</span></a></li> <li class="current"><a href="files.html"><span>Files</span></a></li> </ul> </div> <div id="navrow2" class="tabs2"> <ul class="tablist"> <li><a href="files.html"><span>File List</span></a></li> <li><a href="globals.html"><span>File Members</span></a></li> </ul> </div> </div> <div id="side-nav" class="ui-resizable side-nav-resizable"> <div id="nav-tree"> <div id="nav-tree-contents"> </div> </div> <div id="splitbar" style="-moz-user-select:none;" class="ui-resizable-handle"> </div> </div> <script type="text/javascript"> initNavTree('Array_8cc.html',''); </script> <div id="doc-content"> <div class="header"> <div class="headertitle"> <h1>Array.cc</h1> </div> </div> <div class="contents"> <a href="Array_8cc.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <a name="l00002"></a>00002 <span class="comment">// -*- mode: c++; c-basic-offset:4 -*-</span> <a name="l00003"></a>00003 <a name="l00004"></a>00004 <span class="comment">// This file is part of libdap, A C++ implementation of the OPeNDAP Data</span> <a name="l00005"></a>00005 <span class="comment">// Access Protocol.</span> <a name="l00006"></a>00006 <a name="l00007"></a>00007 <span class="comment">// Copyright (c) 2002,2003 OPeNDAP, Inc.</span> <a name="l00008"></a>00008 <span class="comment">// Author: James Gallagher <jgallagher@opendap.org></span> <a name="l00009"></a>00009 <span class="comment">//</span> <a name="l00010"></a>00010 <span class="comment">// This library is free software; you can redistribute it and/or</span> <a name="l00011"></a>00011 <span class="comment">// modify it under the terms of the GNU Lesser General Public</span> <a name="l00012"></a>00012 <span class="comment">// License as published by the Free Software Foundation; either</span> <a name="l00013"></a>00013 <span class="comment">// version 2.1 of the License, or (at your option) any later version.</span> <a name="l00014"></a>00014 <span class="comment">//</span> <a name="l00015"></a>00015 <span class="comment">// This library is distributed in the hope that it will be useful,</span> <a name="l00016"></a>00016 <span class="comment">// but WITHOUT ANY WARRANTY; without even the implied warranty of</span> <a name="l00017"></a>00017 <span class="comment">// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU</span> <a name="l00018"></a>00018 <span class="comment">// Lesser General Public License for more details.</span> <a name="l00019"></a>00019 <span class="comment">//</span> <a name="l00020"></a>00020 <span class="comment">// You should have received a copy of the GNU Lesser General Public</span> <a name="l00021"></a>00021 <span class="comment">// License along with this library; if not, write to the Free Software</span> <a name="l00022"></a>00022 <span class="comment">// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA</span> <a name="l00023"></a>00023 <span class="comment">//</span> <a name="l00024"></a>00024 <span class="comment">// You can contact OPeNDAP, Inc. at PO Box 112, Saunderstown, RI. 02874-0112.</span> <a name="l00025"></a>00025 <a name="l00026"></a>00026 <span class="comment">// (c) COPYRIGHT URI/MIT 1994-1999</span> <a name="l00027"></a>00027 <span class="comment">// Please read the full copyright statement in the file COPYRIGHT_URI.</span> <a name="l00028"></a>00028 <span class="comment">//</span> <a name="l00029"></a>00029 <span class="comment">// Authors:</span> <a name="l00030"></a>00030 <span class="comment">// jhrg,jimg James Gallagher <jgallagher@gso.uri.edu></span> <a name="l00031"></a>00031 <a name="l00032"></a>00032 <span class="comment">// Implementation for Array.</span> <a name="l00033"></a>00033 <span class="comment">//</span> <a name="l00034"></a>00034 <span class="comment">// jhrg 9/13/94</span> <a name="l00035"></a>00035 <a name="l00036"></a>00036 <a name="l00037"></a>00037 <span class="preprocessor">#include "<a class="code" href="config_8h.html">config.h</a>"</span> <a name="l00038"></a>00038 <a name="l00039"></a>00039 <span class="preprocessor">#include "<a class="code" href="Array_8h.html">Array.h</a>"</span> <a name="l00040"></a>00040 <span class="preprocessor">#include "<a class="code" href="util_8h.html">util.h</a>"</span> <a name="l00041"></a>00041 <span class="preprocessor">#include "<a class="code" href="debug_8h.html">debug.h</a>"</span> <a name="l00042"></a>00042 <span class="preprocessor">#include "<a class="code" href="InternalErr_8h.html">InternalErr.h</a>"</span> <a name="l00043"></a>00043 <span class="preprocessor">#include "<a class="code" href="escaping_8h.html">escaping.h</a>"</span> <a name="l00044"></a>00044 <a name="l00045"></a>00045 <span class="preprocessor">#include <algorithm></span> <a name="l00046"></a>00046 <span class="preprocessor">#include <functional></span> <a name="l00047"></a>00047 <a name="l00048"></a>00048 <span class="keyword">using namespace </span>std; <a name="l00049"></a>00049 <a name="l00050"></a>00050 <span class="keyword">namespace </span>libdap { <a name="l00051"></a>00051 <a name="l00052"></a>00052 <span class="keywordtype">void</span> <a name="l00053"></a><a class="code" href="classlibdap_1_1Array.html#afc1bc92f368ea3a8b136dd751d79752e">00053</a> Array::_duplicate(<span class="keyword">const</span> <a class="code" href="classlibdap_1_1Array.html" title="A multidimensional array of identical data types.">Array</a> &a) <a name="l00054"></a>00054 { <a name="l00055"></a>00055 _shape = a._shape; <a name="l00056"></a>00056 } <a name="l00057"></a>00057 <a name="l00058"></a>00058 <span class="comment">// The first method of calculating length works when only one dimension is</span> <a name="l00059"></a>00059 <span class="comment">// constrained and you want the others to appear in total. This is important</span> <a name="l00060"></a>00060 <span class="comment">// when selecting from grids since users may not select from all dimensions</span> <a name="l00061"></a>00061 <span class="comment">// in which case that means they want the whole thing. Array projection</span> <a name="l00062"></a>00062 <span class="comment">// should probably work this way too, but it doesn't. 9/21/2001 jhrg</span> <a name="l00063"></a>00063 <a name="l00071"></a>00071 <span class="keywordtype">void</span> <a name="l00072"></a><a class="code" href="classlibdap_1_1Array.html#a2b1f0cb764aac18ca06e4c7bc1942064">00072</a> Array::update_length(<span class="keywordtype">int</span>) <a name="l00073"></a>00073 { <a name="l00074"></a>00074 <span class="keywordtype">int</span> length = 1; <a name="l00075"></a>00075 <span class="keywordflow">for</span> (<a class="code" href="classlibdap_1_1Array.html#aa36e3487697c25295d1b74a346b82720">Dim_citer</a> i = _shape.begin(); i != _shape.end(); i++) { <a name="l00076"></a>00076 length *= (*i).c_size > 0 ? (*i).c_size : 1; <a name="l00077"></a>00077 } <a name="l00078"></a>00078 <a name="l00079"></a>00079 set_length(length); <a name="l00080"></a>00080 } <a name="l00081"></a>00081 <a name="l00082"></a>00082 <span class="comment">// Construct an instance of Array. The (BaseType *) is assumed to be</span> <a name="l00083"></a>00083 <span class="comment">// allocated using new - The dtor for Vector will delete this object.</span> <a name="l00084"></a>00084 <a name="l00100"></a><a class="code" href="classlibdap_1_1Array.html#af72de85ed39eb9b2a89f2cb27f5fb724">00100</a> Array::Array(<span class="keyword">const</span> <span class="keywordtype">string</span> &n, <a class="code" href="classlibdap_1_1BaseType.html" title="The basic data type for the DODS DAP types.">BaseType</a> *v) : <a class="code" href="classlibdap_1_1Vector.html" title="Holds a one-dimensional collection of DAP2 data types.">Vector</a>(n, 0, <a class="code" href="namespacelibdap.html#a05ca706d4539ae7b750c3bc7066ab6e6ada8f5df7bb2bc72327fcd16af811562f">dods_array_c</a>) <a name="l00101"></a>00101 { <a name="l00102"></a>00102 <a class="code" href="classlibdap_1_1Array.html#ac9a68fa480403f9b80285073c653570c" title="Add the BaseType pointer to this constructor type instance.">add_var</a>(v); <span class="comment">// Vector::add_var() stores null is v is null</span> <a name="l00103"></a>00103 } <a name="l00104"></a>00104 <a name="l00118"></a><a class="code" href="classlibdap_1_1Array.html#a1980e62ce7031fa0d280a469a89a0b72">00118</a> <a class="code" href="classlibdap_1_1Array.html#af72de85ed39eb9b2a89f2cb27f5fb724" title="Array constructor.">Array::Array</a>(<span class="keyword">const</span> <span class="keywordtype">string</span> &n, <span class="keyword">const</span> <span class="keywordtype">string</span> &d, <a class="code" href="classlibdap_1_1BaseType.html" title="The basic data type for the DODS DAP types.">BaseType</a> *v) <a name="l00119"></a>00119 : <a class="code" href="classlibdap_1_1Vector.html" title="Holds a one-dimensional collection of DAP2 data types.">Vector</a>(n, d, 0, <a class="code" href="namespacelibdap.html#a05ca706d4539ae7b750c3bc7066ab6e6ada8f5df7bb2bc72327fcd16af811562f">dods_array_c</a>) <a name="l00120"></a>00120 { <a name="l00121"></a>00121 <a class="code" href="classlibdap_1_1Array.html#ac9a68fa480403f9b80285073c653570c" title="Add the BaseType pointer to this constructor type instance.">add_var</a>(v); <span class="comment">// Vector::add_var() stores null is v is null</span> <a name="l00122"></a>00122 } <a name="l00123"></a>00123 <a name="l00125"></a><a class="code" href="classlibdap_1_1Array.html#a893a3fa9df80aae3ec926037fd2debea">00125</a> <a class="code" href="classlibdap_1_1Array.html#af72de85ed39eb9b2a89f2cb27f5fb724" title="Array constructor.">Array::Array</a>(<span class="keyword">const</span> <a class="code" href="classlibdap_1_1Array.html" title="A multidimensional array of identical data types.">Array</a> &rhs) : <a class="code" href="classlibdap_1_1Vector.html" title="Holds a one-dimensional collection of DAP2 data types.">Vector</a>(rhs) <a name="l00126"></a>00126 { <a name="l00127"></a>00127 <a class="code" href="classlibdap_1_1Array.html#afc1bc92f368ea3a8b136dd751d79752e">_duplicate</a>(rhs); <a name="l00128"></a>00128 } <a name="l00129"></a>00129 <a name="l00131"></a><a class="code" href="classlibdap_1_1Array.html#ad30dc4754b0040a453d00cf5e0b4ddb7">00131</a> <a class="code" href="classlibdap_1_1Array.html#ad30dc4754b0040a453d00cf5e0b4ddb7" title="The Array destructor.">Array::~Array</a>() <a name="l00132"></a>00132 { <a name="l00133"></a>00133 <a class="code" href="debug_8h.html#a32adf79142f0a426b5e782fb7cd4cad3">DBG</a>(cerr << <span class="stringliteral">"Entering ~Array ("</span> << <span class="keyword">this</span> << <span class="stringliteral">")"</span> << endl); <a name="l00134"></a>00134 <a class="code" href="debug_8h.html#a32adf79142f0a426b5e782fb7cd4cad3">DBG</a>(cerr << <span class="stringliteral">"Exiting ~Array"</span> << endl); <a name="l00135"></a>00135 } <a name="l00136"></a>00136 <a name="l00137"></a>00137 <a class="code" href="classlibdap_1_1BaseType.html" title="The basic data type for the DODS DAP types.">BaseType</a> * <a name="l00138"></a><a class="code" href="classlibdap_1_1Array.html#a31dc321bd9314239474f30d290e0599a">00138</a> <a class="code" href="classlibdap_1_1Array.html#a31dc321bd9314239474f30d290e0599a">Array::ptr_duplicate</a>() <a name="l00139"></a>00139 { <a name="l00140"></a>00140 <span class="keywordflow">return</span> <span class="keyword">new</span> <a class="code" href="classlibdap_1_1Array.html#af72de85ed39eb9b2a89f2cb27f5fb724" title="Array constructor.">Array</a>(*<span class="keyword">this</span>); <a name="l00141"></a>00141 } <a name="l00142"></a>00142 <a name="l00143"></a>00143 <a class="code" href="classlibdap_1_1Array.html" title="A multidimensional array of identical data types.">Array</a> & <a name="l00144"></a><a class="code" href="classlibdap_1_1Array.html#afc4c6d411b46e29214c9b19fb7fb28c1">00144</a> <a class="code" href="classlibdap_1_1Array.html#afc4c6d411b46e29214c9b19fb7fb28c1">Array::operator=</a>(<span class="keyword">const</span> <a class="code" href="classlibdap_1_1Array.html" title="A multidimensional array of identical data types.">Array</a> &rhs) <a name="l00145"></a>00145 { <a name="l00146"></a>00146 <span class="keywordflow">if</span> (<span class="keyword">this</span> == &rhs) <a name="l00147"></a>00147 <span class="keywordflow">return</span> *<span class="keyword">this</span>; <a name="l00148"></a>00148 <a name="l00149"></a>00149 <span class="keyword">dynamic_cast<</span><a class="code" href="classlibdap_1_1Vector.html" title="Holds a one-dimensional collection of DAP2 data types.">Vector</a> &<span class="keyword">></span>(*this) = rhs; <a name="l00150"></a>00150 <a name="l00151"></a>00151 <a class="code" href="classlibdap_1_1Array.html#afc1bc92f368ea3a8b136dd751d79752e">_duplicate</a>(rhs); <a name="l00152"></a>00152 <a name="l00153"></a>00153 <span class="keywordflow">return</span> *<span class="keyword">this</span>; <a name="l00154"></a>00154 } <a name="l00155"></a>00155 <a name="l00175"></a>00175 <span class="keywordtype">void</span> <a name="l00176"></a><a class="code" href="classlibdap_1_1Array.html#ac9a68fa480403f9b80285073c653570c">00176</a> <a class="code" href="classlibdap_1_1Array.html#ac9a68fa480403f9b80285073c653570c" title="Add the BaseType pointer to this constructor type instance.">Array::add_var</a>(<a class="code" href="classlibdap_1_1BaseType.html" title="The basic data type for the DODS DAP types.">BaseType</a> *v, <a class="code" href="namespacelibdap.html#addcb1d714cdecb877c65ff6d2fde0695" title="Names the parts of multi-section constructor data types.">Part</a>) <a name="l00177"></a>00177 { <a name="l00178"></a>00178 <span class="keywordflow">if</span> (v && v-><a class="code" href="classlibdap_1_1BaseType.html#abc6b2d7099f00bb5f324ec129bff2a17" title="Returns the type of the class instance.">type</a>() == <a class="code" href="namespacelibdap.html#a05ca706d4539ae7b750c3bc7066ab6e6ada8f5df7bb2bc72327fcd16af811562f">dods_array_c</a>) { <a name="l00179"></a>00179 <a class="code" href="classlibdap_1_1Array.html" title="A multidimensional array of identical data types.">Array</a> &a = <span class="keyword">dynamic_cast<</span><a class="code" href="classlibdap_1_1Array.html" title="A multidimensional array of identical data types.">Array</a>&<span class="keyword">></span>(*v); <a name="l00180"></a>00180 <a class="code" href="classlibdap_1_1Array.html#ac9a68fa480403f9b80285073c653570c" title="Add the BaseType pointer to this constructor type instance.">Vector::add_var</a>(a.<a class="code" href="classlibdap_1_1Vector.html#aa5ccb30d1f27ae587f35216b859feec7">var</a>()); <a name="l00181"></a>00181 <a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i = a.<a class="code" href="classlibdap_1_1Array.html#ae6e6943cd895fa8dc1c58621ffad42a0">dim_begin</a>(); <a name="l00182"></a>00182 <a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i_end = a.<a class="code" href="classlibdap_1_1Array.html#a1e6b13c4a5d3e825df7ebae3a9dc300d">dim_end</a>(); <a name="l00183"></a>00183 <span class="keywordflow">while</span> (i != i_end) { <a name="l00184"></a>00184 <a class="code" href="classlibdap_1_1Array.html#a00eedc1b0f4739c3624d9d3e2998f322" title="Add a dimension of a given size.">append_dim</a>(a.<a class="code" href="classlibdap_1_1Array.html#a8f29497af9c33c0d66939d5f9a16d92a" title="Returns the size of the dimension.">dimension_size</a>(i), a.<a class="code" href="classlibdap_1_1Array.html#a594eec9c83ef39c93f735e6cc3216c8b" title="Returns the name of the specified dimension.">dimension_name</a>(i)); <a name="l00185"></a>00185 ++i; <a name="l00186"></a>00186 } <a name="l00187"></a>00187 } <a name="l00188"></a>00188 <span class="keywordflow">else</span> { <a name="l00189"></a>00189 <a class="code" href="classlibdap_1_1Array.html#ac9a68fa480403f9b80285073c653570c" title="Add the BaseType pointer to this constructor type instance.">Vector::add_var</a>(v); <a name="l00190"></a>00190 } <a name="l00191"></a>00191 } <a name="l00192"></a>00192 <a name="l00204"></a>00204 <span class="keywordtype">void</span> <a name="l00205"></a><a class="code" href="classlibdap_1_1Array.html#a00eedc1b0f4739c3624d9d3e2998f322">00205</a> <a class="code" href="classlibdap_1_1Array.html#a00eedc1b0f4739c3624d9d3e2998f322" title="Add a dimension of a given size.">Array::append_dim</a>(<span class="keywordtype">int</span> size, <span class="keywordtype">string</span> name) <a name="l00206"></a>00206 { <a name="l00207"></a>00207 <a class="code" href="structlibdap_1_1Array_1_1dimension.html">dimension</a> d; <a name="l00208"></a>00208 <a name="l00209"></a>00209 <span class="comment">// This is invariant</span> <a name="l00210"></a>00210 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a9755d2f4f1ee36ef45c6d72ab2231841" title="The unconstrained dimension size.">size</a> = size; <a name="l00211"></a>00211 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a3a669f3c6655d1abe8d425ea2ee9b6f1" title="The name of this dimension.">name</a> = <a class="code" href="namespacelibdap.html#a376f9593431111a80ef78c98b8f4a0e2">www2id</a>(name); <a name="l00212"></a>00212 <a name="l00213"></a>00213 <span class="comment">// this information changes with each constraint expression</span> <a name="l00214"></a>00214 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a6f00f58d28ba435d093c5e7f1683dde3" title="The constraint start index.">start</a> = 0; <a name="l00215"></a>00215 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#ac5f0e3960dde02014e031d6a3e457c4c" title="The constraint end index.">stop</a> = size - 1; <a name="l00216"></a>00216 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a056a67e3c91acd7c815f279c2dab2ea8" title="The constraint stride.">stride</a> = 1; <a name="l00217"></a>00217 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#afe3967fd170363af8cf22785e500e6e6" title="Size of dimension once constrained.">c_size</a> = size; <a name="l00218"></a>00218 <a name="l00219"></a>00219 _shape.push_back(d); <a name="l00220"></a>00220 <a name="l00221"></a>00221 <a class="code" href="classlibdap_1_1Array.html#a2b1f0cb764aac18ca06e4c7bc1942064">update_length</a>(size); <a name="l00222"></a>00222 } <a name="l00223"></a>00223 <a name="l00229"></a>00229 <span class="keywordtype">void</span> <a name="l00230"></a><a class="code" href="classlibdap_1_1Array.html#adcb475b8a855515df7d9ddd254c3f08a">00230</a> <a class="code" href="classlibdap_1_1Array.html#adcb475b8a855515df7d9ddd254c3f08a">Array::prepend_dim</a>(<span class="keywordtype">int</span> size, <span class="keyword">const</span> <span class="keywordtype">string</span>& name<span class="comment">/* = "" */</span>) <a name="l00231"></a>00231 { <a name="l00232"></a>00232 <a class="code" href="structlibdap_1_1Array_1_1dimension.html">dimension</a> d; <a name="l00233"></a>00233 <a name="l00234"></a>00234 <span class="comment">// This is invariant</span> <a name="l00235"></a>00235 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a9755d2f4f1ee36ef45c6d72ab2231841" title="The unconstrained dimension size.">size</a> = size; <a name="l00236"></a>00236 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a3a669f3c6655d1abe8d425ea2ee9b6f1" title="The name of this dimension.">name</a> = <a class="code" href="namespacelibdap.html#a376f9593431111a80ef78c98b8f4a0e2">www2id</a>(name); <a name="l00237"></a>00237 <a name="l00238"></a>00238 <span class="comment">// this information changes with each constraint expression</span> <a name="l00239"></a>00239 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a6f00f58d28ba435d093c5e7f1683dde3" title="The constraint start index.">start</a> = 0; <a name="l00240"></a>00240 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#ac5f0e3960dde02014e031d6a3e457c4c" title="The constraint end index.">stop</a> = size - 1; <a name="l00241"></a>00241 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a056a67e3c91acd7c815f279c2dab2ea8" title="The constraint stride.">stride</a> = 1; <a name="l00242"></a>00242 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#afe3967fd170363af8cf22785e500e6e6" title="Size of dimension once constrained.">c_size</a> = size; <a name="l00243"></a>00243 <a name="l00244"></a>00244 <span class="comment">// Shifts the whole array, but it's tiny in general</span> <a name="l00245"></a>00245 _shape.insert(_shape.begin(), d); <a name="l00246"></a>00246 <a name="l00247"></a>00247 <a class="code" href="classlibdap_1_1Array.html#a2b1f0cb764aac18ca06e4c7bc1942064">update_length</a>(size); <span class="comment">// the number is ignored...</span> <a name="l00248"></a>00248 } <a name="l00249"></a>00249 <a name="l00256"></a>00256 <span class="keywordtype">void</span> <a name="l00257"></a><a class="code" href="classlibdap_1_1Array.html#ac375d728d50c8b27422c766c84e12300">00257</a> <a class="code" href="classlibdap_1_1Array.html#ac375d728d50c8b27422c766c84e12300" title="Reset constraint to select entire array.">Array::reset_constraint</a>() <a name="l00258"></a>00258 { <a name="l00259"></a>00259 <a class="code" href="classlibdap_1_1Vector.html#a05a61e24fd295934dfc3c37c9f55ca57">set_length</a>(-1); <a name="l00260"></a>00260 <a name="l00261"></a>00261 <span class="keywordflow">for</span> (<a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i = _shape.begin(); i != _shape.end(); i++) { <a name="l00262"></a>00262 (*i).start = 0; <a name="l00263"></a>00263 (*i).stop = (*i).size - 1; <a name="l00264"></a>00264 (*i).stride = 1; <a name="l00265"></a>00265 (*i).c_size = (*i).size; <a name="l00266"></a>00266 <a name="l00267"></a>00267 <a class="code" href="classlibdap_1_1Array.html#a2b1f0cb764aac18ca06e4c7bc1942064">update_length</a>((*i).size); <a name="l00268"></a>00268 } <a name="l00269"></a>00269 } <a name="l00270"></a>00270 <a name="l00271"></a>00271 <a name="l00281"></a>00281 <span class="keywordtype">void</span> <a name="l00282"></a><a class="code" href="classlibdap_1_1Array.html#a151f9eaea5f7b22980b1ef86c75723ce">00282</a> <a class="code" href="classlibdap_1_1Array.html#a151f9eaea5f7b22980b1ef86c75723ce" title="Clears the projection; add each projected dimension explicitly using add_constraint.">Array::clear_constraint</a>() <a name="l00283"></a>00283 { <a name="l00284"></a>00284 <a class="code" href="classlibdap_1_1Array.html#ac375d728d50c8b27422c766c84e12300" title="Reset constraint to select entire array.">reset_constraint</a>(); <a name="l00285"></a>00285 } <a name="l00286"></a>00286 <a name="l00287"></a>00287 <span class="comment">// Note: MS VC++ won't tolerate embedded newlines in strings, hence the \n</span> <a name="l00288"></a>00288 <span class="comment">// is explicit.</span> <a name="l00289"></a>00289 <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> *array_sss = \ <a name="l00290"></a>00290 <span class="stringliteral">"Invalid constraint parameters: At least one of the start, stride or stop \n\</span> <a name="l00291"></a>00291 <span class="stringliteral">specified do not match the array variable."</span>; <a name="l00292"></a>00292 <a name="l00312"></a>00312 <span class="keywordtype">void</span> <a name="l00313"></a><a class="code" href="classlibdap_1_1Array.html#a538f7c336e26b873f50e033d553bba26">00313</a> <a class="code" href="classlibdap_1_1Array.html#a538f7c336e26b873f50e033d553bba26" title="Adds a constraint to an Array dimension.">Array::add_constraint</a>(<a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i, <span class="keywordtype">int</span> start, <span class="keywordtype">int</span> stride, <span class="keywordtype">int</span> stop) <a name="l00314"></a>00314 { <a name="l00315"></a>00315 <a class="code" href="structlibdap_1_1Array_1_1dimension.html">dimension</a> &d = *i ; <a name="l00316"></a>00316 <a name="l00317"></a>00317 <span class="comment">// Check for bad constraints.</span> <a name="l00318"></a>00318 <span class="comment">// Jose Garcia</span> <a name="l00319"></a>00319 <span class="comment">// Usually invalid data for a constraint is the user's mistake</span> <a name="l00320"></a>00320 <span class="comment">// because they build a wrong URL in the client side.</span> <a name="l00321"></a>00321 <span class="keywordflow">if</span> (start >= d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a9755d2f4f1ee36ef45c6d72ab2231841" title="The unconstrained dimension size.">size</a> || stop >= d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a9755d2f4f1ee36ef45c6d72ab2231841" title="The unconstrained dimension size.">size</a> || stride > d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a9755d2f4f1ee36ef45c6d72ab2231841" title="The unconstrained dimension size.">size</a> || stride <= 0) <a name="l00322"></a>00322 <span class="keywordflow">throw</span> <a class="code" href="classlibdap_1_1Error.html" title="A class for error processing.">Error</a>(<a class="code" href="Error_8h.html#a5806d25bc779e86c285438e687669803">malformed_expr</a>, array_sss); <a name="l00323"></a>00323 <a name="l00324"></a>00324 <span class="keywordflow">if</span> (((stop - start) / stride + 1) > d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a9755d2f4f1ee36ef45c6d72ab2231841" title="The unconstrained dimension size.">size</a>) <a name="l00325"></a>00325 <span class="keywordflow">throw</span> <a class="code" href="classlibdap_1_1Error.html" title="A class for error processing.">Error</a>(<a class="code" href="Error_8h.html#a5806d25bc779e86c285438e687669803">malformed_expr</a>, array_sss); <a name="l00326"></a>00326 <a name="l00327"></a>00327 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a6f00f58d28ba435d093c5e7f1683dde3" title="The constraint start index.">start</a> = start; <a name="l00328"></a>00328 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#ac5f0e3960dde02014e031d6a3e457c4c" title="The constraint end index.">stop</a> = stop; <a name="l00329"></a>00329 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#a056a67e3c91acd7c815f279c2dab2ea8" title="The constraint stride.">stride</a> = stride; <a name="l00330"></a>00330 <a name="l00331"></a>00331 d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#afe3967fd170363af8cf22785e500e6e6" title="Size of dimension once constrained.">c_size</a> = (stop - start) / stride + 1; <a name="l00332"></a>00332 <a name="l00333"></a>00333 <a class="code" href="debug_8h.html#a32adf79142f0a426b5e782fb7cd4cad3">DBG</a>(cerr << <span class="stringliteral">"add_constraint: c_size = "</span> << d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#afe3967fd170363af8cf22785e500e6e6" title="Size of dimension once constrained.">c_size</a> << endl); <a name="l00334"></a>00334 <a name="l00335"></a>00335 <a class="code" href="classlibdap_1_1Array.html#a2b1f0cb764aac18ca06e4c7bc1942064">update_length</a>(d.<a class="code" href="structlibdap_1_1Array_1_1dimension.html#afe3967fd170363af8cf22785e500e6e6" title="Size of dimension once constrained.">c_size</a>); <a name="l00336"></a>00336 } <a name="l00337"></a>00337 <a name="l00339"></a>00339 <a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Array::Dim_iter</a> <a name="l00340"></a><a class="code" href="classlibdap_1_1Array.html#ae6e6943cd895fa8dc1c58621ffad42a0">00340</a> <a class="code" href="classlibdap_1_1Array.html#ae6e6943cd895fa8dc1c58621ffad42a0">Array::dim_begin</a>() <a name="l00341"></a>00341 { <a name="l00342"></a>00342 <span class="keywordflow">return</span> _shape.begin() ; <a name="l00343"></a>00343 } <a name="l00344"></a>00344 <a name="l00346"></a>00346 <a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Array::Dim_iter</a> <a name="l00347"></a><a class="code" href="classlibdap_1_1Array.html#a1e6b13c4a5d3e825df7ebae3a9dc300d">00347</a> <a class="code" href="classlibdap_1_1Array.html#a1e6b13c4a5d3e825df7ebae3a9dc300d">Array::dim_end</a>() <a name="l00348"></a>00348 { <a name="l00349"></a>00349 <span class="keywordflow">return</span> _shape.end() ; <a name="l00350"></a>00350 } <a name="l00351"></a>00351 <a name="l00361"></a>00361 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> <a name="l00362"></a><a class="code" href="classlibdap_1_1Array.html#afa75d1ff3c75b8359d03b3f382bfd179">00362</a> <a class="code" href="classlibdap_1_1Array.html#afa75d1ff3c75b8359d03b3f382bfd179" title="Return the total number of dimensions in the array.">Array::dimensions</a>(<span class="keywordtype">bool</span> <span class="comment">/*constrained*/</span>) <a name="l00363"></a>00363 { <a name="l00364"></a>00364 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> dim = 0; <a name="l00365"></a>00365 <span class="keywordflow">for</span> (<a class="code" href="classlibdap_1_1Array.html#aa36e3487697c25295d1b74a346b82720">Dim_citer</a> i = _shape.begin(); i != _shape.end(); i++) { <a name="l00366"></a>00366 dim++; <a name="l00367"></a>00367 } <a name="l00368"></a>00368 <a name="l00369"></a>00369 <span class="keywordflow">return</span> dim; <a name="l00370"></a>00370 } <a name="l00371"></a>00371 <a name="l00389"></a>00389 <span class="keywordtype">int</span> <a name="l00390"></a><a class="code" href="classlibdap_1_1Array.html#a8f29497af9c33c0d66939d5f9a16d92a">00390</a> <a class="code" href="classlibdap_1_1Array.html#a8f29497af9c33c0d66939d5f9a16d92a" title="Returns the size of the dimension.">Array::dimension_size</a>(<a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i, <span class="keywordtype">bool</span> constrained) <a name="l00391"></a>00391 { <a name="l00392"></a>00392 <span class="keywordtype">int</span> size = 0; <a name="l00393"></a>00393 <a name="l00394"></a>00394 <span class="keywordflow">if</span> (!_shape.empty()) { <a name="l00395"></a>00395 <span class="keywordflow">if</span> (constrained) <a name="l00396"></a>00396 size = (*i).c_size; <a name="l00397"></a>00397 <span class="keywordflow">else</span> <a name="l00398"></a>00398 size = (*i).size; <a name="l00399"></a>00399 } <a name="l00400"></a>00400 <a name="l00401"></a>00401 <span class="keywordflow">return</span> size; <a name="l00402"></a>00402 } <a name="l00403"></a>00403 <a name="l00422"></a>00422 <span class="keywordtype">int</span> <a name="l00423"></a><a class="code" href="classlibdap_1_1Array.html#a12084880777d27d782b0e1f2f4d5ae01">00423</a> <a class="code" href="classlibdap_1_1Array.html#a12084880777d27d782b0e1f2f4d5ae01" title="Return the start index of a dimension.">Array::dimension_start</a>(<a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i, <span class="keywordtype">bool</span> <span class="comment">/*constrained*/</span>) <a name="l00424"></a>00424 { <a name="l00425"></a>00425 <span class="keywordflow">return</span> (!_shape.empty()) ? (*i).start : 0; <a name="l00426"></a>00426 } <a name="l00427"></a>00427 <a name="l00446"></a>00446 <span class="keywordtype">int</span> <a name="l00447"></a><a class="code" href="classlibdap_1_1Array.html#a446f239be3ef678a4476058c8041552a">00447</a> <a class="code" href="classlibdap_1_1Array.html#a446f239be3ef678a4476058c8041552a" title="Return the stop index of the constraint.">Array::dimension_stop</a>(<a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i, <span class="keywordtype">bool</span> <span class="comment">/*constrained*/</span>) <a name="l00448"></a>00448 { <a name="l00449"></a>00449 <span class="keywordflow">return</span> (!_shape.empty()) ? (*i).stop : 0; <a name="l00450"></a>00450 } <a name="l00451"></a>00451 <a name="l00471"></a>00471 <span class="keywordtype">int</span> <a name="l00472"></a><a class="code" href="classlibdap_1_1Array.html#afc530e71ace953992a5b314a6f885d31">00472</a> <a class="code" href="classlibdap_1_1Array.html#afc530e71ace953992a5b314a6f885d31" title="Returns the stride value of the constraint.">Array::dimension_stride</a>(<a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i, <span class="keywordtype">bool</span> <span class="comment">/*constrained*/</span>) <a name="l00473"></a>00473 { <a name="l00474"></a>00474 <span class="keywordflow">return</span> (!_shape.empty()) ? (*i).stride : 0; <a name="l00475"></a>00475 } <a name="l00476"></a>00476 <a name="l00487"></a>00487 <span class="keywordtype">string</span> <a name="l00488"></a><a class="code" href="classlibdap_1_1Array.html#a594eec9c83ef39c93f735e6cc3216c8b">00488</a> <a class="code" href="classlibdap_1_1Array.html#a594eec9c83ef39c93f735e6cc3216c8b" title="Returns the name of the specified dimension.">Array::dimension_name</a>(<a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i) <a name="l00489"></a>00489 { <a name="l00490"></a>00490 <span class="comment">// Jose Garcia</span> <a name="l00491"></a>00491 <span class="comment">// Since this method is public, it is possible for a user</span> <a name="l00492"></a>00492 <span class="comment">// to call it before the Array object has been properly set</span> <a name="l00493"></a>00493 <span class="comment">// this will cause an exception which is the user's fault.</span> <a name="l00494"></a>00494 <span class="comment">// (User in this context is the developer of the surrogate library.)</span> <a name="l00495"></a>00495 <span class="keywordflow">if</span> (_shape.empty()) <a name="l00496"></a>00496 <span class="keywordflow">throw</span> <a class="code" href="classlibdap_1_1InternalErr.html" title="A class for software fault reporting.">InternalErr</a>(__FILE__, __LINE__, <a name="l00497"></a>00497 <span class="stringliteral">"*This* array has no dimensions."</span>); <a name="l00498"></a>00498 <span class="keywordflow">return</span> (*i).name; <a name="l00499"></a>00499 } <a name="l00500"></a>00500 <a name="l00501"></a>00501 <span class="preprocessor">#if FILE_METHODS</span> <a name="l00502"></a>00502 <span class="preprocessor"></span> <a name="l00519"></a>00519 <span class="keywordtype">void</span> <a name="l00520"></a>00520 <a class="code" href="classlibdap_1_1Array.html#a62456490e14832bd55b9b79d6e37397a" title="Prints a DDS entry for the Array.">Array::print_decl</a>(FILE *out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> print_semi, <a name="l00521"></a>00521 <span class="keywordtype">bool</span> constraint_info, <span class="keywordtype">bool</span> constrained) <a name="l00522"></a>00522 { <a name="l00523"></a>00523 <span class="keywordflow">if</span> (constrained && !<a class="code" href="classlibdap_1_1BaseType.html#a980c0013817836aa77ef74aeec7fb192" title="Should this variable be sent?">send_p</a>()) <a name="l00524"></a>00524 <span class="keywordflow">return</span>; <a name="l00525"></a>00525 <a name="l00526"></a>00526 <span class="comment">// print it, but w/o semicolon</span> <a name="l00527"></a>00527 <a class="code" href="classlibdap_1_1Vector.html#aa5ccb30d1f27ae587f35216b859feec7">var</a>()-><a class="code" href="classlibdap_1_1BaseType.html#afd744b0ddeb04e7b173c9e83423ec572" title="Print an ASCII representation of the variable structure.">print_decl</a>(out, space, <span class="keyword">false</span>, constraint_info, constrained); <a name="l00528"></a>00528 <a name="l00529"></a>00529 <span class="keywordflow">for</span> (<a class="code" href="classlibdap_1_1Array.html#aa36e3487697c25295d1b74a346b82720">Dim_citer</a> i = _shape.begin(); i != _shape.end(); i++) { <a name="l00530"></a>00530 fprintf(out, <span class="stringliteral">"["</span>) ; <a name="l00531"></a>00531 <span class="keywordflow">if</span> ((*i).name != <span class="stringliteral">""</span>) { <a name="l00532"></a>00532 fprintf(out, <span class="stringliteral">"%s = "</span>, <a class="code" href="namespacelibdap.html#afbd709ed83699c11234a213463d16b9c">id2www</a>((*i).name).c_str()) ; <a name="l00533"></a>00533 } <a name="l00534"></a>00534 <span class="keywordflow">if</span> (constrained) { <a name="l00535"></a>00535 fprintf(out, <span class="stringliteral">"%d]"</span>, (*i).c_size) ; <a name="l00536"></a>00536 } <a name="l00537"></a>00537 <span class="keywordflow">else</span> { <a name="l00538"></a>00538 fprintf(out, <span class="stringliteral">"%d]"</span>, (*i).size) ; <a name="l00539"></a>00539 } <a name="l00540"></a>00540 } <a name="l00541"></a>00541 <a name="l00542"></a>00542 <span class="keywordflow">if</span> (print_semi) { <a name="l00543"></a>00543 fprintf(out, <span class="stringliteral">";\n"</span>) ; <a name="l00544"></a>00544 } <a name="l00545"></a>00545 } <a name="l00546"></a>00546 <span class="preprocessor">#endif</span> <a name="l00547"></a>00547 <span class="preprocessor"></span> <a name="l00565"></a>00565 <span class="keywordtype">void</span> <a name="l00566"></a><a class="code" href="classlibdap_1_1Array.html#a62456490e14832bd55b9b79d6e37397a">00566</a> <a class="code" href="classlibdap_1_1Array.html#a62456490e14832bd55b9b79d6e37397a" title="Prints a DDS entry for the Array.">Array::print_decl</a>(ostream &out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> print_semi, <a name="l00567"></a>00567 <span class="keywordtype">bool</span> constraint_info, <span class="keywordtype">bool</span> constrained) <a name="l00568"></a>00568 { <a name="l00569"></a>00569 <span class="keywordflow">if</span> (constrained && !<a class="code" href="classlibdap_1_1BaseType.html#a980c0013817836aa77ef74aeec7fb192" title="Should this variable be sent?">send_p</a>()) <a name="l00570"></a>00570 <span class="keywordflow">return</span>; <a name="l00571"></a>00571 <a name="l00572"></a>00572 <span class="comment">// print it, but w/o semicolon</span> <a name="l00573"></a>00573 <a class="code" href="classlibdap_1_1Vector.html#aa5ccb30d1f27ae587f35216b859feec7">var</a>()-><a class="code" href="classlibdap_1_1BaseType.html#afd744b0ddeb04e7b173c9e83423ec572" title="Print an ASCII representation of the variable structure.">print_decl</a>(out, space, <span class="keyword">false</span>, constraint_info, constrained); <a name="l00574"></a>00574 <a name="l00575"></a>00575 <span class="keywordflow">for</span> (<a class="code" href="classlibdap_1_1Array.html#aa36e3487697c25295d1b74a346b82720">Dim_citer</a> i = _shape.begin(); i != _shape.end(); i++) { <a name="l00576"></a>00576 out << <span class="stringliteral">"["</span> ; <a name="l00577"></a>00577 <span class="keywordflow">if</span> ((*i).name != <span class="stringliteral">""</span>) { <a name="l00578"></a>00578 out << <a class="code" href="namespacelibdap.html#afbd709ed83699c11234a213463d16b9c">id2www</a>((*i).name) << <span class="stringliteral">" = "</span> ; <a name="l00579"></a>00579 } <a name="l00580"></a>00580 <span class="keywordflow">if</span> (constrained) { <a name="l00581"></a>00581 out << (*i).c_size << <span class="stringliteral">"]"</span> ; <a name="l00582"></a>00582 } <a name="l00583"></a>00583 <span class="keywordflow">else</span> { <a name="l00584"></a>00584 out << (*i).size << <span class="stringliteral">"]"</span> ; <a name="l00585"></a>00585 } <a name="l00586"></a>00586 } <a name="l00587"></a>00587 <a name="l00588"></a>00588 <span class="keywordflow">if</span> (print_semi) { <a name="l00589"></a>00589 out << <span class="stringliteral">";\n"</span> ; <a name="l00590"></a>00590 } <a name="l00591"></a>00591 } <a name="l00592"></a>00592 <span class="preprocessor">#if FILE_METHODS</span> <a name="l00593"></a>00593 <span class="preprocessor"></span><span class="keywordtype">void</span> <a name="l00594"></a>00594 <a class="code" href="classlibdap_1_1Array.html#a3ce1bd161426e6950dc97511f33b2845">Array::print_xml</a>(FILE *out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> constrained) <a name="l00595"></a>00595 { <a name="l00596"></a>00596 <a class="code" href="classlibdap_1_1Array.html#a29755e9dcff905940b9ee6138ee556be">print_xml_core</a>(out, space, constrained, <span class="stringliteral">"Array"</span>); <a name="l00597"></a>00597 } <a name="l00598"></a>00598 <span class="preprocessor">#endif</span> <a name="l00599"></a>00599 <span class="preprocessor"></span><span class="keywordtype">void</span> <a name="l00600"></a><a class="code" href="classlibdap_1_1Array.html#a3ce1bd161426e6950dc97511f33b2845">00600</a> <a class="code" href="classlibdap_1_1Array.html#a3ce1bd161426e6950dc97511f33b2845">Array::print_xml</a>(ostream &out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> constrained) <a name="l00601"></a>00601 { <a name="l00602"></a>00602 <a class="code" href="classlibdap_1_1Array.html#a29755e9dcff905940b9ee6138ee556be">print_xml_core</a>(out, space, constrained, <span class="stringliteral">"Array"</span>); <a name="l00603"></a>00603 } <a name="l00604"></a>00604 <span class="preprocessor">#if FILE_METHODS</span> <a name="l00605"></a>00605 <span class="preprocessor"></span><span class="keywordtype">void</span> <a name="l00606"></a>00606 <a class="code" href="classlibdap_1_1Array.html#abafb35e8c77673793f2d3897ca1eec4b">Array::print_as_map_xml</a>(FILE *out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> constrained) <a name="l00607"></a>00607 { <a name="l00608"></a>00608 <a class="code" href="classlibdap_1_1Array.html#a29755e9dcff905940b9ee6138ee556be">print_xml_core</a>(out, space, constrained, <span class="stringliteral">"Map"</span>); <a name="l00609"></a>00609 } <a name="l00610"></a>00610 <span class="preprocessor">#endif</span> <a name="l00611"></a>00611 <span class="preprocessor"></span><span class="keywordtype">void</span> <a name="l00612"></a><a class="code" href="classlibdap_1_1Array.html#abafb35e8c77673793f2d3897ca1eec4b">00612</a> <a class="code" href="classlibdap_1_1Array.html#abafb35e8c77673793f2d3897ca1eec4b">Array::print_as_map_xml</a>(ostream &out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> constrained) <a name="l00613"></a>00613 { <a name="l00614"></a>00614 <a class="code" href="classlibdap_1_1Array.html#a29755e9dcff905940b9ee6138ee556be">print_xml_core</a>(out, space, constrained, <span class="stringliteral">"Map"</span>); <a name="l00615"></a>00615 } <a name="l00616"></a>00616 <span class="preprocessor">#if FILE_METHODS</span> <a name="l00617"></a>00617 <span class="preprocessor"></span><span class="keyword">class </span>PrintArrayDim : <span class="keyword">public</span> unary_function<Array::dimension&, void> <a name="l00618"></a>00618 { <a name="l00619"></a>00619 FILE *d_out; <a name="l00620"></a>00620 <span class="keywordtype">string</span> d_space; <a name="l00621"></a>00621 <span class="keywordtype">bool</span> d_constrained; <a name="l00622"></a>00622 <span class="keyword">public</span>: <a name="l00623"></a>00623 PrintArrayDim(FILE *o, <span class="keywordtype">string</span> s, <span class="keywordtype">bool</span> c) <a name="l00624"></a>00624 : d_out(o), d_space(s), d_constrained(c) <a name="l00625"></a>00625 {} <a name="l00626"></a>00626 <a name="l00627"></a>00627 <span class="keywordtype">void</span> operator()(Array::dimension &d) <a name="l00628"></a>00628 { <a name="l00629"></a>00629 <span class="keywordtype">int</span> size = d_constrained ? d.c_size : d.size; <a name="l00630"></a>00630 <span class="keywordflow">if</span> (d.name.empty()) <a name="l00631"></a>00631 fprintf(d_out, <span class="stringliteral">"%s<dimension size=\"%d\"/>\n"</span>, d_space.c_str(), <a name="l00632"></a>00632 size); <a name="l00633"></a>00633 <span class="keywordflow">else</span> <a name="l00634"></a>00634 fprintf(d_out, <span class="stringliteral">"%s<dimension name=\"%s\" size=\"%d\"/>\n"</span>, <a name="l00635"></a>00635 d_space.c_str(), <a class="code" href="namespacelibdap.html#a62463a13bf510db3a14c0053fea14f4d">id2xml</a>(d.name).c_str(), size); <a name="l00636"></a>00636 } <a name="l00637"></a>00637 }; <a name="l00638"></a>00638 <a name="l00639"></a>00639 <span class="keywordtype">void</span> <a name="l00640"></a>00640 <a class="code" href="classlibdap_1_1Array.html#a29755e9dcff905940b9ee6138ee556be">Array::print_xml_core</a>(FILE *out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> constrained, <span class="keywordtype">string</span> tag) <a name="l00641"></a>00641 { <a name="l00642"></a>00642 <span class="keywordflow">if</span> (constrained && !<a class="code" href="classlibdap_1_1BaseType.html#a980c0013817836aa77ef74aeec7fb192" title="Should this variable be sent?">send_p</a>()) <a name="l00643"></a>00643 <span class="keywordflow">return</span>; <a name="l00644"></a>00644 <a name="l00645"></a>00645 fprintf(out, <span class="stringliteral">"%s<%s"</span>, space.c_str(), tag.c_str()); <a name="l00646"></a>00646 <span class="keywordflow">if</span> (!<a class="code" href="classlibdap_1_1BaseType.html#a0a0c6b5d57813607dc06255b8e0b9bdc" title="Returns the name of the class instance.">name</a>().empty()) <a name="l00647"></a>00647 fprintf(out, <span class="stringliteral">" name=\"%s\""</span>, <a class="code" href="namespacelibdap.html#a62463a13bf510db3a14c0053fea14f4d">id2xml</a>(<a class="code" href="classlibdap_1_1BaseType.html#a0a0c6b5d57813607dc06255b8e0b9bdc" title="Returns the name of the class instance.">name</a>()).c_str()); <a name="l00648"></a>00648 fprintf(out , <span class="stringliteral">">\n"</span>); <a name="l00649"></a>00649 <a name="l00650"></a>00650 <a class="code" href="classlibdap_1_1BaseType.html#a1fcd9537c67e3bf88964b2656ff5bac1">get_attr_table</a>().print_xml(out, space + <span class="stringliteral">" "</span>, constrained); <a name="l00651"></a>00651 <a name="l00652"></a>00652 <a class="code" href="classlibdap_1_1BaseType.html#a85729dec5e1c563a06bff3f3ec660822" title="The BaseType constructor.">BaseType</a> *btp = <a class="code" href="classlibdap_1_1Vector.html#aa5ccb30d1f27ae587f35216b859feec7">var</a>(); <a name="l00653"></a>00653 <span class="keywordtype">string</span> tmp_name = btp->name(); <a name="l00654"></a>00654 btp->set_name(<span class="stringliteral">""</span>); <a name="l00655"></a>00655 btp->print_xml(out, space + <span class="stringliteral">" "</span>, constrained); <a name="l00656"></a>00656 btp->set_name(tmp_name); <a name="l00657"></a>00657 <a name="l00658"></a>00658 for_each(<a class="code" href="classlibdap_1_1Array.html#ae6e6943cd895fa8dc1c58621ffad42a0">dim_begin</a>(), <a class="code" href="classlibdap_1_1Array.html#a1e6b13c4a5d3e825df7ebae3a9dc300d">dim_end</a>(), <a name="l00659"></a>00659 PrintArrayDim(out, space + <span class="stringliteral">" "</span>, constrained)); <a name="l00660"></a>00660 <a name="l00661"></a>00661 fprintf(out, <span class="stringliteral">"%s</%s>\n"</span>, space.c_str(), tag.c_str()); <a name="l00662"></a>00662 } <a name="l00663"></a>00663 <span class="preprocessor">#endif</span> <a name="l00664"></a>00664 <span class="preprocessor"></span> <a name="l00665"></a>00665 <span class="keyword">class </span>PrintArrayDimStrm : <span class="keyword">public</span> unary_function<Array::dimension&, void> <a name="l00666"></a>00666 { <a name="l00667"></a>00667 ostream &d_out; <a name="l00668"></a>00668 <span class="keywordtype">string</span> d_space; <a name="l00669"></a>00669 <span class="keywordtype">bool</span> d_constrained; <a name="l00670"></a>00670 <span class="keyword">public</span>: <a name="l00671"></a>00671 PrintArrayDimStrm(ostream &o, <span class="keywordtype">string</span> s, <span class="keywordtype">bool</span> c) <a name="l00672"></a>00672 : d_out(o), d_space(s), d_constrained(c) <a name="l00673"></a>00673 {} <a name="l00674"></a>00674 <a name="l00675"></a>00675 <span class="keywordtype">void</span> operator()(Array::dimension &d) <a name="l00676"></a>00676 { <a name="l00677"></a>00677 <span class="keywordtype">int</span> size = d_constrained ? d.c_size : d.size; <a name="l00678"></a>00678 <span class="keywordflow">if</span> (d.name.empty()) <a name="l00679"></a>00679 d_out << d_space << <span class="stringliteral">"<dimension size=\""</span> << size << <span class="stringliteral">"\"/>\n"</span> ; <a name="l00680"></a>00680 <span class="keywordflow">else</span> <a name="l00681"></a>00681 d_out << d_space << <span class="stringliteral">"<dimension name=\""</span> << <a class="code" href="namespacelibdap.html#a62463a13bf510db3a14c0053fea14f4d">id2xml</a>(d.name) <a name="l00682"></a>00682 << <span class="stringliteral">"\" size=\""</span> << size << <span class="stringliteral">"\"/>\n"</span> ; <a name="l00683"></a>00683 } <a name="l00684"></a>00684 }; <a name="l00685"></a>00685 <a name="l00686"></a>00686 <span class="keywordtype">void</span> <a name="l00687"></a><a class="code" href="classlibdap_1_1Array.html#a29755e9dcff905940b9ee6138ee556be">00687</a> <a class="code" href="classlibdap_1_1Array.html#a29755e9dcff905940b9ee6138ee556be">Array::print_xml_core</a>(ostream &out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> constrained, <span class="keywordtype">string</span> tag) <a name="l00688"></a>00688 { <a name="l00689"></a>00689 <span class="keywordflow">if</span> (constrained && !<a class="code" href="classlibdap_1_1BaseType.html#a980c0013817836aa77ef74aeec7fb192" title="Should this variable be sent?">send_p</a>()) <a name="l00690"></a>00690 <span class="keywordflow">return</span>; <a name="l00691"></a>00691 <a name="l00692"></a>00692 out << space << <span class="stringliteral">"<"</span> << tag ; <a name="l00693"></a>00693 <span class="keywordflow">if</span> (!<a class="code" href="classlibdap_1_1BaseType.html#a0a0c6b5d57813607dc06255b8e0b9bdc" title="Returns the name of the class instance.">name</a>().empty()) <a name="l00694"></a>00694 out << <span class="stringliteral">" name=\""</span> << <a class="code" href="namespacelibdap.html#a62463a13bf510db3a14c0053fea14f4d">id2xml</a>(<a class="code" href="classlibdap_1_1BaseType.html#a0a0c6b5d57813607dc06255b8e0b9bdc" title="Returns the name of the class instance.">name</a>()) << <span class="stringliteral">"\""</span> ; <a name="l00695"></a>00695 out << <span class="stringliteral">">\n"</span> ; <a name="l00696"></a>00696 <a name="l00697"></a>00697 <a class="code" href="classlibdap_1_1BaseType.html#a1fcd9537c67e3bf88964b2656ff5bac1">get_attr_table</a>().<a class="code" href="classlibdap_1_1AttrTable.html#a5e27ea09f83831eded1b3d86de7f4534">print_xml</a>(out, space + <span class="stringliteral">" "</span>, constrained); <a name="l00698"></a>00698 <a name="l00699"></a>00699 <a class="code" href="classlibdap_1_1BaseType.html" title="The basic data type for the DODS DAP types.">BaseType</a> *btp = <a class="code" href="classlibdap_1_1Vector.html#aa5ccb30d1f27ae587f35216b859feec7">var</a>(); <a name="l00700"></a>00700 <span class="keywordtype">string</span> tmp_name = btp-><a class="code" href="classlibdap_1_1BaseType.html#a0a0c6b5d57813607dc06255b8e0b9bdc" title="Returns the name of the class instance.">name</a>(); <a name="l00701"></a>00701 btp-><a class="code" href="classlibdap_1_1BaseType.html#a86504564f45a3e6748c6f1cc0ff4e9fa" title="Sets the name of the class instance.">set_name</a>(<span class="stringliteral">""</span>); <a name="l00702"></a>00702 btp-><a class="code" href="classlibdap_1_1BaseType.html#a8bd2c7682edd48c64b210bdf247bdef7">print_xml</a>(out, space + <span class="stringliteral">" "</span>, constrained); <a name="l00703"></a>00703 btp-><a class="code" href="classlibdap_1_1BaseType.html#a86504564f45a3e6748c6f1cc0ff4e9fa" title="Sets the name of the class instance.">set_name</a>(tmp_name); <a name="l00704"></a>00704 <a name="l00705"></a>00705 for_each(<a class="code" href="classlibdap_1_1Array.html#ae6e6943cd895fa8dc1c58621ffad42a0">dim_begin</a>(), <a class="code" href="classlibdap_1_1Array.html#a1e6b13c4a5d3e825df7ebae3a9dc300d">dim_end</a>(), <a name="l00706"></a>00706 PrintArrayDimStrm(out, space + <span class="stringliteral">" "</span>, constrained)); <a name="l00707"></a>00707 <a name="l00708"></a>00708 out << space << <span class="stringliteral">"</"</span> << tag << <span class="stringliteral">">\n"</span> ; <a name="l00709"></a>00709 } <a name="l00710"></a>00710 <a name="l00711"></a>00711 <span class="preprocessor">#if FILE_METHODS</span> <a name="l00712"></a>00712 <span class="preprocessor"></span> <a name="l00722"></a>00722 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> <a name="l00723"></a>00723 <a class="code" href="classlibdap_1_1Array.html#a88a4492771892695010496d2dfb6071e" title="Print the value given the current constraint.">Array::print_array</a>(FILE *out, <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> index, <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> dims, <a name="l00724"></a>00724 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> shape[]) <a name="l00725"></a>00725 { <a name="l00726"></a>00726 <span class="keywordflow">if</span> (dims == 1) { <a name="l00727"></a>00727 fprintf(out, <span class="stringliteral">"{"</span>) ; <a name="l00728"></a>00728 <span class="keywordflow">for</span> (<span class="keywordtype">unsigned</span> i = 0; i < shape[0] - 1; ++i) { <a name="l00729"></a>00729 <a class="code" href="classlibdap_1_1Vector.html#aa5ccb30d1f27ae587f35216b859feec7">var</a>(index++)-><a class="code" href="classlibdap_1_1BaseType.html#a94edd5b610afb1432144158740710488" title="Prints the value of the variable.">print_val</a>(out, <span class="stringliteral">""</span>, <span class="keyword">false</span>); <a name="l00730"></a>00730 fprintf(out, <span class="stringliteral">", "</span>) ; <a name="l00731"></a>00731 } <a name="l00732"></a>00732 <a class="code" href="classlibdap_1_1Vector.html#aa5ccb30d1f27ae587f35216b859feec7">var</a>(index++)->print_val(out, <span class="stringliteral">""</span>, <span class="keyword">false</span>); <a name="l00733"></a>00733 fprintf(out, <span class="stringliteral">"}"</span>) ; <a name="l00734"></a>00734 <a name="l00735"></a>00735 <span class="keywordflow">return</span> index; <a name="l00736"></a>00736 } <a name="l00737"></a>00737 <span class="keywordflow">else</span> { <a name="l00738"></a>00738 fprintf(out, <span class="stringliteral">"{"</span>) ; <a name="l00739"></a>00739 <span class="comment">// Fixed an off-by-one error in the following loop. Since the array</span> <a name="l00740"></a>00740 <span class="comment">// length is shape[dims-1]-1 *and* since we want one less dimension</span> <a name="l00741"></a>00741 <span class="comment">// than that, the correct limit on this loop is shape[dims-2]-1. From</span> <a name="l00742"></a>00742 <span class="comment">// Todd Karakasian.</span> <a name="l00743"></a>00743 <span class="comment">// The saga continues; the loop test should be `i < shape[0]-1'. jhrg</span> <a name="l00744"></a>00744 <span class="comment">// 9/12/96.</span> <a name="l00745"></a>00745 <span class="keywordflow">for</span> (<span class="keywordtype">unsigned</span> i = 0; i < shape[0] - 1; ++i) { <a name="l00746"></a>00746 index = <a class="code" href="classlibdap_1_1Array.html#a88a4492771892695010496d2dfb6071e" title="Print the value given the current constraint.">print_array</a>(out, index, dims - 1, shape + 1); <a name="l00747"></a>00747 fprintf(out, <span class="stringliteral">","</span>) ; <span class="comment">// Removed the extra `}'. Also from Todd</span> <a name="l00748"></a>00748 } <a name="l00749"></a>00749 index = <a class="code" href="classlibdap_1_1Array.html#a88a4492771892695010496d2dfb6071e" title="Print the value given the current constraint.">print_array</a>(out, index, dims - 1, shape + 1); <a name="l00750"></a>00750 fprintf(out, <span class="stringliteral">"}"</span>) ; <a name="l00751"></a>00751 <a name="l00752"></a>00752 <span class="keywordflow">return</span> index; <a name="l00753"></a>00753 } <a name="l00754"></a>00754 } <a name="l00755"></a>00755 <span class="preprocessor">#endif</span> <a name="l00756"></a>00756 <span class="preprocessor"></span> <a name="l00767"></a>00767 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> <a name="l00768"></a><a class="code" href="classlibdap_1_1Array.html#a88a4492771892695010496d2dfb6071e">00768</a> <a class="code" href="classlibdap_1_1Array.html#a88a4492771892695010496d2dfb6071e" title="Print the value given the current constraint.">Array::print_array</a>(ostream &out, <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> index, <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> dims, <a name="l00769"></a>00769 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> shape[]) <a name="l00770"></a>00770 { <a name="l00771"></a>00771 <span class="keywordflow">if</span> (dims == 1) { <a name="l00772"></a>00772 out << <span class="stringliteral">"{"</span> ; <a name="l00773"></a>00773 <span class="keywordflow">for</span> (<span class="keywordtype">unsigned</span> i = 0; i < shape[0] - 1; ++i) { <a name="l00774"></a>00774 <a class="code" href="classlibdap_1_1Vector.html#aa5ccb30d1f27ae587f35216b859feec7">var</a>(index++)-><a class="code" href="classlibdap_1_1BaseType.html#a94edd5b610afb1432144158740710488" title="Prints the value of the variable.">print_val</a>(out, <span class="stringliteral">""</span>, <span class="keyword">false</span>); <a name="l00775"></a>00775 out << <span class="stringliteral">", "</span> ; <a name="l00776"></a>00776 } <a name="l00777"></a>00777 <a class="code" href="classlibdap_1_1Vector.html#aa5ccb30d1f27ae587f35216b859feec7">var</a>(index++)-><a class="code" href="classlibdap_1_1BaseType.html#a94edd5b610afb1432144158740710488" title="Prints the value of the variable.">print_val</a>(out, <span class="stringliteral">""</span>, <span class="keyword">false</span>); <a name="l00778"></a>00778 out << <span class="stringliteral">"}"</span> ; <a name="l00779"></a>00779 <a name="l00780"></a>00780 <span class="keywordflow">return</span> index; <a name="l00781"></a>00781 } <a name="l00782"></a>00782 <span class="keywordflow">else</span> { <a name="l00783"></a>00783 out << <span class="stringliteral">"{"</span> ; <a name="l00784"></a>00784 <span class="comment">// Fixed an off-by-one error in the following loop. Since the array</span> <a name="l00785"></a>00785 <span class="comment">// length is shape[dims-1]-1 *and* since we want one less dimension</span> <a name="l00786"></a>00786 <span class="comment">// than that, the correct limit on this loop is shape[dims-2]-1. From</span> <a name="l00787"></a>00787 <span class="comment">// Todd Karakasian.</span> <a name="l00788"></a>00788 <span class="comment">// The saga continues; the loop test should be `i < shape[0]-1'. jhrg</span> <a name="l00789"></a>00789 <span class="comment">// 9/12/96.</span> <a name="l00790"></a>00790 <span class="keywordflow">for</span> (<span class="keywordtype">unsigned</span> i = 0; i < shape[0] - 1; ++i) { <a name="l00791"></a>00791 index = <a class="code" href="classlibdap_1_1Array.html#a88a4492771892695010496d2dfb6071e" title="Print the value given the current constraint.">print_array</a>(out, index, dims - 1, shape + 1); <a name="l00792"></a>00792 out << <span class="stringliteral">","</span> ; <a name="l00793"></a>00793 } <a name="l00794"></a>00794 index = <a class="code" href="classlibdap_1_1Array.html#a88a4492771892695010496d2dfb6071e" title="Print the value given the current constraint.">print_array</a>(out, index, dims - 1, shape + 1); <a name="l00795"></a>00795 out << <span class="stringliteral">"}"</span> ; <a name="l00796"></a>00796 <a name="l00797"></a>00797 <span class="keywordflow">return</span> index; <a name="l00798"></a>00798 } <a name="l00799"></a>00799 } <a name="l00800"></a>00800 <a name="l00801"></a>00801 <span class="preprocessor">#if FILE_METHODS</span> <a name="l00802"></a>00802 <span class="preprocessor"></span><span class="keywordtype">void</span> <a name="l00803"></a>00803 <a class="code" href="classlibdap_1_1Array.html#af7bdf05ad5a57a517aa6b122b03f06df" title="Prints the value of the variable.">Array::print_val</a>(FILE *out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> print_decl_p) <a name="l00804"></a>00804 { <a name="l00805"></a>00805 <span class="comment">// print the declaration if print decl is true.</span> <a name="l00806"></a>00806 <span class="comment">// for each dimension,</span> <a name="l00807"></a>00807 <span class="comment">// for each element,</span> <a name="l00808"></a>00808 <span class="comment">// print the array given its shape, number of dimensions.</span> <a name="l00809"></a>00809 <span class="comment">// Add the `;'</span> <a name="l00810"></a>00810 <a name="l00811"></a>00811 <span class="keywordflow">if</span> (print_decl_p) { <a name="l00812"></a>00812 <a class="code" href="classlibdap_1_1Array.html#a62456490e14832bd55b9b79d6e37397a" title="Prints a DDS entry for the Array.">print_decl</a>(out, space, <span class="keyword">false</span>, <span class="keyword">false</span>, <span class="keyword">false</span>); <a name="l00813"></a>00813 fprintf(out, <span class="stringliteral">" = "</span>) ; <a name="l00814"></a>00814 } <a name="l00815"></a>00815 <a name="l00816"></a>00816 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> *shape = <span class="keyword">new</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>[_shape.size()]; <a name="l00817"></a>00817 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> index = 0; <a name="l00818"></a>00818 <span class="keywordflow">for</span> (<a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i = _shape.begin(); i != _shape.end() && index < _shape.size(); i++) <a name="l00819"></a>00819 shape[index++] = <a class="code" href="classlibdap_1_1Array.html#a8f29497af9c33c0d66939d5f9a16d92a" title="Returns the size of the dimension.">dimension_size</a>(i, <span class="keyword">true</span>); <a name="l00820"></a>00820 <a name="l00821"></a>00821 <a class="code" href="classlibdap_1_1Array.html#a88a4492771892695010496d2dfb6071e" title="Print the value given the current constraint.">print_array</a>(out, 0, _shape.size(), shape); <a name="l00822"></a>00822 <a name="l00823"></a>00823 <span class="keyword">delete</span> [] shape; shape = 0; <a name="l00824"></a>00824 <a name="l00825"></a>00825 <span class="keywordflow">if</span> (print_decl_p) { <a name="l00826"></a>00826 fprintf(out, <span class="stringliteral">";\n"</span>) ; <a name="l00827"></a>00827 } <a name="l00828"></a>00828 } <a name="l00829"></a>00829 <span class="preprocessor">#endif</span> <a name="l00830"></a>00830 <span class="preprocessor"></span> <a name="l00831"></a>00831 <span class="keywordtype">void</span> <a name="l00832"></a><a class="code" href="classlibdap_1_1Array.html#af7bdf05ad5a57a517aa6b122b03f06df">00832</a> <a class="code" href="classlibdap_1_1Array.html#af7bdf05ad5a57a517aa6b122b03f06df" title="Prints the value of the variable.">Array::print_val</a>(ostream &out, <span class="keywordtype">string</span> space, <span class="keywordtype">bool</span> print_decl_p) <a name="l00833"></a>00833 { <a name="l00834"></a>00834 <span class="comment">// print the declaration if print decl is true.</span> <a name="l00835"></a>00835 <span class="comment">// for each dimension,</span> <a name="l00836"></a>00836 <span class="comment">// for each element,</span> <a name="l00837"></a>00837 <span class="comment">// print the array given its shape, number of dimensions.</span> <a name="l00838"></a>00838 <span class="comment">// Add the `;'</span> <a name="l00839"></a>00839 <a name="l00840"></a>00840 <span class="keywordflow">if</span> (print_decl_p) { <a name="l00841"></a>00841 <a class="code" href="classlibdap_1_1Array.html#a62456490e14832bd55b9b79d6e37397a" title="Prints a DDS entry for the Array.">print_decl</a>(out, space, <span class="keyword">false</span>, <span class="keyword">false</span>, <span class="keyword">false</span>); <a name="l00842"></a>00842 out << <span class="stringliteral">" = "</span> ; <a name="l00843"></a>00843 } <a name="l00844"></a>00844 <a name="l00845"></a>00845 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> *shape = <span class="keyword">new</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>[<a class="code" href="classlibdap_1_1Array.html#afa75d1ff3c75b8359d03b3f382bfd179" title="Return the total number of dimensions in the array.">dimensions</a>(<span class="keyword">true</span>)]; <a name="l00846"></a>00846 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> index = 0; <a name="l00847"></a>00847 <span class="keywordflow">for</span> (<a class="code" href="classlibdap_1_1Array.html#a7a557c05085a83d1501dbfa249d3cc52">Dim_iter</a> i = _shape.begin(); i != _shape.end() && index < <a class="code" href="classlibdap_1_1Array.html#afa75d1ff3c75b8359d03b3f382bfd179" title="Return the total number of dimensions in the array.">dimensions</a>(<span class="keyword">true</span>); ++i) <a name="l00848"></a>00848 shape[index++] = <a class="code" href="classlibdap_1_1Array.html#a8f29497af9c33c0d66939d5f9a16d92a" title="Returns the size of the dimension.">dimension_size</a>(i, <span class="keyword">true</span>); <a name="l00849"></a>00849 <a name="l00850"></a>00850 <a class="code" href="classlibdap_1_1Array.html#a88a4492771892695010496d2dfb6071e" title="Print the value given the current constraint.">print_array</a>(out, 0, <a class="code" href="classlibdap_1_1Array.html#afa75d1ff3c75b8359d03b3f382bfd179" title="Return the total number of dimensions in the array.">dimensions</a>(<span class="keyword">true</span>), shape); <a name="l00851"></a>00851 <a name="l00852"></a>00852 <span class="keyword">delete</span> [] shape; shape = 0; <a name="l00853"></a>00853 <a name="l00854"></a>00854 <span class="keywordflow">if</span> (print_decl_p) { <a name="l00855"></a>00855 out << <span class="stringliteral">";\n"</span> ; <a name="l00856"></a>00856 } <a name="l00857"></a>00857 } <a name="l00858"></a>00858 <a name="l00868"></a>00868 <span class="keywordtype">bool</span> <a name="l00869"></a><a class="code" href="classlibdap_1_1Array.html#aa2dcec843f64da6142a7a3208651a5e4">00869</a> <a class="code" href="classlibdap_1_1Array.html#aa2dcec843f64da6142a7a3208651a5e4" title="Check semantic features of the Array.">Array::check_semantics</a>(<span class="keywordtype">string</span> &msg, <span class="keywordtype">bool</span>) <a name="l00870"></a>00870 { <a name="l00871"></a>00871 <span class="keywordtype">bool</span> sem = <a class="code" href="classlibdap_1_1Array.html#aa2dcec843f64da6142a7a3208651a5e4" title="Check semantic features of the Array.">BaseType::check_semantics</a>(msg) && !_shape.empty(); <a name="l00872"></a>00872 <a name="l00873"></a>00873 <span class="keywordflow">if</span> (!sem) <a name="l00874"></a>00874 msg = <span class="stringliteral">"An array variable must have dimensions"</span>; <a name="l00875"></a>00875 <a name="l00876"></a>00876 <span class="keywordflow">return</span> sem; <a name="l00877"></a>00877 } <a name="l00878"></a>00878 <a name="l00887"></a>00887 <span class="keywordtype">void</span> <a name="l00888"></a><a class="code" href="classlibdap_1_1Array.html#a292d09e6995cbe722e92973c9dc98c7f">00888</a> <a class="code" href="classlibdap_1_1Array.html#a292d09e6995cbe722e92973c9dc98c7f" title="dumps information about this object">Array::dump</a>(ostream &strm)<span class="keyword"> const</span> <a name="l00889"></a>00889 <span class="keyword"></span>{ <a name="l00890"></a>00890 strm << <a class="code" href="classlibdap_1_1DapIndent.html#a45ca36e552f70fbdbca0599da4320aab">DapIndent::LMarg</a> << <span class="stringliteral">"Array::dump - ("</span> <a name="l00891"></a>00891 << (<span class="keywordtype">void</span> *)<span class="keyword">this</span> << <span class="stringliteral">")"</span> << endl ; <a name="l00892"></a>00892 <a class="code" href="classlibdap_1_1DapIndent.html#a4ed2cce66dbff9ad4320e89142103c6c">DapIndent::Indent</a>() ; <a name="l00893"></a>00893 <a class="code" href="classlibdap_1_1Array.html#a292d09e6995cbe722e92973c9dc98c7f" title="dumps information about this object">Vector::dump</a>(strm) ; <a name="l00894"></a>00894 strm << <a class="code" href="classlibdap_1_1DapIndent.html#a45ca36e552f70fbdbca0599da4320aab">DapIndent::LMarg</a> << <span class="stringliteral">"shape:"</span> << endl ; <a name="l00895"></a>00895 DapIndent::Indent() ; <a name="l00896"></a>00896 <a class="code" href="classlibdap_1_1Array.html#aa36e3487697c25295d1b74a346b82720">Dim_citer</a> i = _shape.begin() ; <a name="l00897"></a>00897 <a class="code" href="classlibdap_1_1Array.html#aa36e3487697c25295d1b74a346b82720">Dim_citer</a> ie = _shape.end() ; <a name="l00898"></a>00898 <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> dim_num = 0 ; <a name="l00899"></a>00899 <span class="keywordflow">for</span> (; i != ie; i++) { <a name="l00900"></a>00900 strm << <a class="code" href="classlibdap_1_1DapIndent.html#a45ca36e552f70fbdbca0599da4320aab">DapIndent::LMarg</a> << <span class="stringliteral">"dimension "</span> << dim_num++ << <span class="stringliteral">":"</span> <a name="l00901"></a>00901 << endl ; <a name="l00902"></a>00902 DapIndent::Indent() ; <a name="l00903"></a>00903 strm << <a class="code" href="classlibdap_1_1DapIndent.html#a45ca36e552f70fbdbca0599da4320aab">DapIndent::LMarg</a> << <span class="stringliteral">"name: "</span> << (*i).name << endl ; <a name="l00904"></a>00904 strm << <a class="code" href="classlibdap_1_1DapIndent.html#a45ca36e552f70fbdbca0599da4320aab">DapIndent::LMarg</a> << <span class="stringliteral">"size: "</span> << (*i).size << endl ; <a name="l00905"></a>00905 strm << <a class="code" href="classlibdap_1_1DapIndent.html#a45ca36e552f70fbdbca0599da4320aab">DapIndent::LMarg</a> << <span class="stringliteral">"start: "</span> << (*i).start << endl ; <a name="l00906"></a>00906 strm << <a class="code" href="classlibdap_1_1DapIndent.html#a45ca36e552f70fbdbca0599da4320aab">DapIndent::LMarg</a> << <span class="stringliteral">"stop: "</span> << (*i).stop << endl ; <a name="l00907"></a>00907 strm << <a class="code" href="classlibdap_1_1DapIndent.html#a45ca36e552f70fbdbca0599da4320aab">DapIndent::LMarg</a> << <span class="stringliteral">"stride: "</span> << (*i).stride << endl ; <a name="l00908"></a>00908 strm << <a class="code" href="classlibdap_1_1DapIndent.html#a45ca36e552f70fbdbca0599da4320aab">DapIndent::LMarg</a> << <span class="stringliteral">"constrained size: "</span> << (*i).c_size <a name="l00909"></a>00909 << endl ; <a name="l00910"></a>00910 <a class="code" href="classlibdap_1_1DapIndent.html#a65c519d0916b031bcf60ca8d26fc82f8">DapIndent::UnIndent</a>() ; <a name="l00911"></a>00911 } <a name="l00912"></a>00912 <a class="code" href="classlibdap_1_1DapIndent.html#a65c519d0916b031bcf60ca8d26fc82f8">DapIndent::UnIndent</a>() ; <a name="l00913"></a>00913 <a class="code" href="classlibdap_1_1DapIndent.html#a65c519d0916b031bcf60ca8d26fc82f8">DapIndent::UnIndent</a>() ; <a name="l00914"></a>00914 } <a name="l00915"></a>00915 <a name="l00916"></a>00916 } <span class="comment">// namespace libdap</span> <a name="l00917"></a>00917 </pre></div></div> </div> <div id="nav-path" class="navpath"> <ul> <li class="navelem"><a class="el" href="Array_8cc.html">Array.cc</a> </li> <li class="footer">Generated on Tue Feb 8 2011 for libdap++ by  <a href="http://www.doxygen.org/index.html"> <img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.7.3 </li> </ul> </div> </body> </html>