D4Dimensions.cc

// -*- mode: c++; c-basic-offset:4 -*-

// This file is part of libdap, A C++ implementation of the OPeNDAP Data
// Access Protocol.

// Copyright (c) 2013 OPeNDAP, Inc.
// Author: James Gallagher <jgallagher@opendap.org>
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
// You can contact OPeNDAP, Inc. at PO Box 112, Saunderstown, RI. 02874-0112.

#include "config.h"

#include <sstream>

#include "D4Dimensions.h"
#include "D4Group.h"
#include "XMLWriter.h"

#include "Error.h"
#include "InternalErr.h"

namespace libdap {

void D4Dimension::set_size(const string &size) {
    unsigned long value = 0;
    istringstream iss(size);
    iss >> value;

    // First test if the stream is OK, then look to see if we read all
    // of the chars.
    if (!iss || !iss.eof())
        throw Error("Invalid value '" + size + "' passed to D4Dimension::set_size.");
    set_size(value);
}

/**
 * @brief Get the FQN for the dimension
 * @return The D4Dimension as a fully qualified name.
 */
string D4Dimension::fully_qualified_name() const {
    string name = d_name;

    // d_parent is the D4Dimensions container and its parent is the Group where
    // this Dimension is defined.
    D4Group *grp = d_parent->parent();
    while (grp) {
        // The root group is named "/" (always); this avoids '//name'
        name = (grp->name() == "/") ? "/" + name : grp->name() + "/" + name;

        if (grp->get_parent())
            grp = static_cast<D4Group *>(grp->get_parent());
        else
            grp = 0;
    }

    return name;
}

/**
 * @brief Print the Dimension declaration.
 * Print the Dimension in a form suitable for use in a Group definition/declaration.
 * @see print_dap4(XMLWriter &xml, bool print_fqn)
 * @param xml Print to this XMLWriter instance
 */
void D4Dimension::print_dap4(XMLWriter &xml) const {
    if (xmlTextWriterStartElement(xml.get_writer(), (const xmlChar *)"Dimension") < 0)
        throw InternalErr(__FILE__, __LINE__, "Could not write Dimension element");

    if (xmlTextWriterWriteAttribute(xml.get_writer(), (const xmlChar *)"name", (const xmlChar *)d_name.c_str()) < 0)
        throw InternalErr(__FILE__, __LINE__, "Could not write attribute for name");
#if 0
	// Use FQNs when things are referenced, not when they are defined
	if (xmlTextWriterWriteAttribute(xml.get_writer(), (const xmlChar*) "name", (const xmlChar*)fully_qualified_name().c_str()) < 0)
		throw InternalErr(__FILE__, __LINE__, "Could not write attribute for name");
#endif
    ostringstream oss;
    if (d_constrained)
        oss << (d_c_stop - d_c_start) / d_c_stride + 1;
    else
        oss << d_size;
    if (xmlTextWriterWriteAttribute(xml.get_writer(), (const xmlChar *)"size", (const xmlChar *)oss.str().c_str()) < 0)
        throw InternalErr(__FILE__, __LINE__, "Could not write attribute for size");

    if (xmlTextWriterEndElement(xml.get_writer()) < 0)
        throw InternalErr(__FILE__, __LINE__, "Could not end Dimension element");
}

#if 0
// Note that in order for this to work the second argument must not be a reference.
// jhrg 8/20/13
static bool
dim_name_eq(D4Dimension *d, const string name)
{
	return d->name() == name;
}
#endif

D4Dimension *D4Dimensions::find_dim(const string &name) {
#if 0
    D4DimensionsIter d = find_if(d_dims.begin(), d_dims.end(), bind2nd(ptr_fun(dim_name_eq), name));
#endif
    auto d = find_if(d_dims.begin(), d_dims.end(), [name](const D4Dimension *dim) { return name == dim->name(); });
    return (d != d_dims.end()) ? *d : 0;
}

void D4Dimensions::print_dap4(XMLWriter &xml, bool constrained) const {
    D4DimensionsCIter i = d_dims.begin();
    while (i != d_dims.end()) {
#if 0
    	if (!constrained || parent()->find_first_var_that_uses_dimension(*i))
            (*i)->print_dap4(xml);
#endif
        if (constrained) {
            if ((*i)->used_by_projected_var())
                (*i)->print_dap4(xml);
        } else {
            (*i)->print_dap4(xml);
        }
        ++i;
    }
}

} /* namespace libdap */