FONcInt64.cc

// FONcInt64.cc
 
// This file is part of BES Netcdf File Out Module
 
// Copyright (c) 2004,2005 University Corporation for Atmospheric Research
// Author: Patrick West <pwest@ucar.edu> and Jose Garcia <jgarcia@ucar.edu>
//
// 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
//
// You can contact University Corporation for Atmospheric Research at
// 3080 Center Green Drive, Boulder, CO 80301
 
// (c) COPYRIGHT University Corporation for Atmospheric Research 2004-2005
// Please read the full copyright statement in the file COPYRIGHT_UCAR.
//
// Authors:
//      kyang     Kent Yang  <myang6@hdfgroup.org>
// Note: The code follows FONcUInt.cc.
 
 
#include <BESInternalError.h>
#include <BESDebug.h>
#include <libdap/Int64.h>
 
#include "FONcInt64.h"
#include "FONcUtils.h"
#include "FONcAttributes.h"

FONcInt64::FONcInt64( BaseType *b )
    : FONcBaseType(), _bt( b )
{
    Int64 *u64 = dynamic_cast<Int64 *>(b) ;
    if( !u64 )
    {
    string s = (string)"File out netcdf, FONcUInt was passed a "
           + "variable that is not a DAP Int64" ;
    throw BESInternalError( s, __FILE__, __LINE__ ) ;
    }
}

FONcInt64::~FONcInt64()
{
}

void
FONcInt64::define( int ncid )
{
    FONcBaseType::define( ncid ) ;
 
    if( !d_defined )
    {
        if(d_is_dap4) {
            D4Attributes *d4_attrs = _bt->attributes();                                                     
            updateD4AttrType(d4_attrs,NC_INT64);   
        }
        else {
            AttrTable &attrs = _bt->get_attr_table();  
            updateAttrType(attrs,NC_INT64); 
        }
 
    FONcAttributes::add_variable_attributes(ncid, d_varid, _bt , isNetCDF4_ENHANCED(), d_is_dap4) ;
    FONcAttributes::add_original_name(ncid, d_varid,
                                      d_varname, d_orig_varname ) ;
 
        d_defined = true ;
    }
}

void
FONcInt64::write( int ncid )
{
    BESDEBUG( "fonc", "FONcInt64::write for var " << d_varname << endl ) ;
    size_t var_index[] = {0} ;
    //int64_t *data = new int64_t ;
    long long  *data = new long long ;
 
    if (d_is_dap4)
        _bt->intern_data();
    else
        _bt->intern_data(*get_eval(), *get_dds());
 
    _bt->buf2val( (void**)&data ) ;
    //int stax = nc_put_var1_longlong( ncid, _varid, var_index, (const long long*)data ) ;
    int stax = nc_put_var1_longlong(ncid, d_varid, var_index, data ) ;
    if( stax != NC_NOERR )
    {
    string err = (string)"fileout.netcdf - "
                 + "Failed to write unsigned int data for "
                 + d_varname ;
    FONcUtils::handle_error( stax, err, __FILE__, __LINE__ ) ;
    }
    delete data ;
    BESDEBUG( "fonc", "FONcInt64::done write for var " << d_varname << endl ) ;
}

string
FONcInt64::name()
{
    return _bt->name() ;
}

nc_type
FONcInt64::type()
{
    return NC_INT64 ;
}

void
FONcInt64::dump( ostream &strm ) const
{
    strm << BESIndent::LMarg << "FONcInt64::dump - ("
                 << (void *)this << ")" << endl ;
    BESIndent::Indent() ;
    strm << BESIndent::LMarg << "name = " << _bt->name()  << endl ;
    BESIndent::UnIndent() ;
}