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

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

// Copyright (c) 2005 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
//
// You can contact OPeNDAP, Inc. at PO Box 112, Saunderstown, RI. 02874-0112.

#include "config.h"

#include <string>

#include "BaseType.h"
#include "Type.h"

#include "Byte.h"
#include "Int8.h"
#include "Int16.h"
#include "UInt16.h"
#include "Int32.h"
#include "UInt32.h"

#include "Int64.h"
#include "UInt64.h"

#include "Float32.h"
#include "Float64.h"

#include "D4Enum.h"

#include "Str.h"
#include "Url.h"

#include "D4Opaque.h"

#include "Array.h"

#include "Structure.h"
#include "D4Sequence.h"

#include "D4Group.h"

#include "D4BaseTypeFactory.h"
#include "debug.h"

namespace libdap {

BaseType *D4BaseTypeFactory::NewVariable(Type t, const string &name) const
{
    switch (t) {
        case dods_byte_c:
            return NewByte(name);
        case dods_char_c:
        	return NewChar(name);
        case dods_uint8_c:
            return NewUInt8(name);
        case dods_int8_c:
            return NewInt8(name);

        case dods_int16_c:
            return NewInt16(name);
        case dods_uint16_c:
            return NewUInt16(name);
        case dods_int32_c:
            return NewInt32(name);
        case dods_uint32_c:
            return NewUInt32(name);

        case dods_int64_c:
            return NewInt64(name);
        case dods_uint64_c:
            return NewUInt64(name);

        case dods_float32_c:
            return NewFloat32(name);
        case dods_float64_c:
            return NewFloat64(name);

        case dods_enum_c:
            return NewEnum(name);

        case dods_str_c:
            return NewStr(name);
        case dods_url_c:
            return NewURL(name);

        case dods_opaque_c:
            return NewOpaque(name);

        case dods_structure_c:
            return NewStructure(name);

        case dods_sequence_c:
            return NewD4Sequence(name);

        case dods_array_c:
            return NewArray(name);

        case dods_group_c:
            return NewGroup(name);

        default:
            throw InternalErr(__FILE__, __LINE__, "Unimplemented type in DAP4");
    }
}

Byte *
D4BaseTypeFactory::NewByte(const string &n) const
{
    Byte *b = new Byte(n);
    b->set_is_dap4(true);
    return b;
}

// Use the type constants specific to Char and UInt8 so the print reps will
// match the server's idea of the types.
Byte *
D4BaseTypeFactory::NewChar(const string &n) const
{
    Byte *b = new Byte(n);
    b->set_type(dods_char_c);
    b->set_is_dap4(true);
    return b;
}

Byte *
D4BaseTypeFactory::NewUInt8(const string &n) const
{
    Byte *b = new Byte(n);
    b->set_type(dods_uint8_c);
    b->set_is_dap4(true);
    return b;
}

Int8 *
D4BaseTypeFactory::NewInt8(const string &n) const
{
    Int8 *b = new Int8(n);
    b->set_is_dap4(true);
    return b;
}

Int16 *
D4BaseTypeFactory::NewInt16(const string &n) const
{
    Int16 *b = new Int16(n);
    b->set_is_dap4(true);
    return b;
}

UInt16 *
D4BaseTypeFactory::NewUInt16(const string &n) const
{
    UInt16 *b = new UInt16(n);
    b->set_is_dap4(true);
    return b;
}

Int32 *
D4BaseTypeFactory::NewInt32(const string &n) const
{
    DBG(cerr << "Inside DAP4BaseTypeFactory::NewInt32" << endl);
    Int32 *b = new Int32(n);
    b->set_is_dap4(true);
    return b;
}

UInt32 *
D4BaseTypeFactory::NewUInt32(const string &n) const
{
    UInt32 *b = new UInt32(n);
    b->set_is_dap4(true);
    return b;
}

Int64 *
D4BaseTypeFactory::NewInt64(const string &n) const
{
    DBG(cerr << "Inside DAP4BaseTypeFactory::NewInt64" << endl);
    Int64 *b = new Int64(n);
    b->set_is_dap4(true);
    return b;
}

UInt64 *
D4BaseTypeFactory::NewUInt64(const string &n) const
{
    UInt64 *b = new UInt64(n);
    b->set_is_dap4(true);
    return b;
}

Float32 *
D4BaseTypeFactory::NewFloat32(const string &n) const
{
    Float32 *b = new Float32(n);
    b->set_is_dap4(true);
    return b;
}

Float64 *
D4BaseTypeFactory::NewFloat64(const string &n) const
{
    Float64 *b = new Float64(n);
    b->set_is_dap4(true);
    return b;
}

/**
 * Enums need a name and the name of an enumeration that was defined by the
 * dataset. If the later is not known, it must be set before the enum is used.
 * @param name
 * @param enum_name
 * @return
 */
D4Enum *
D4BaseTypeFactory::NewEnum(const string &name, Type type) const
{
    return new D4Enum(name, type);
}


Str *
D4BaseTypeFactory::NewStr(const string &n) const
{
    Str *b = new Str(n);
    b->set_is_dap4(true);
    return b;
}

Url *
D4BaseTypeFactory::NewUrl(const string &n) const
{
    Url *b = new Url(n);
    b->set_is_dap4(true);
    return b;
}

D4Opaque *
D4BaseTypeFactory::NewOpaque(const string &n) const
{
    return new D4Opaque(n);
}

/** Note that this method is called NewURL - URL in caps.
 */
Url *
D4BaseTypeFactory::NewURL(const string &n) const
{
    Url *b = new Url(n);
    b->set_is_dap4(true);
    return b;
}

Array *
D4BaseTypeFactory::NewArray(const string &n, BaseType *v) const
{
	return new Array(n, v, true /* is_dap4 */);
}

Structure *
D4BaseTypeFactory::NewStructure(const string &n) const
{
    Structure *b = new Structure(n);
    b->set_is_dap4(true);
    return b;
}

D4Sequence *
D4BaseTypeFactory::NewD4Sequence(const string &n) const
{
	return new D4Sequence(n);
}

D4Group *
D4BaseTypeFactory::NewGroup(const string &n) const
{
    return new D4Group(n);
}

} // namespace libdap