/*
 * Copyright CERN 2015
 * @author Maciej Suminski (maciej.suminski@cern.ch)
 *
 *    This source code is free software; you can redistribute it
 *    and/or modify it in source code form under the terms of the GNU
 *    General Public License as published by the Free Software
 *    Foundation; either version 2 of the License, or (at your option)
 *    any later version.
 *
 *    This program 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 General Public License for more details.
 *
 *    You should have received a copy of the GNU General Public License
 *    along with this program; if not, write to the Free Software
 *    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 */

#include "std_types.h"
#include "scope.h"

static std::map<perm_string, VTypeDef*> std_types;
// this list contains enums used by typedefs in the std_types map
static std::list<const VTypeEnum*> std_enums;

const VTypePrimitive primitive_BIT(VTypePrimitive::BIT, true);
const VTypePrimitive primitive_INTEGER(VTypePrimitive::INTEGER);
const VTypePrimitive primitive_NATURAL(VTypePrimitive::NATURAL);
const VTypePrimitive primitive_REAL(VTypePrimitive::REAL);
const VTypePrimitive primitive_STDLOGIC(VTypePrimitive::STDLOGIC, true);
const VTypePrimitive primitive_CHARACTER(VTypePrimitive::CHARACTER);
const VTypePrimitive primitive_TIME(VTypePrimitive::TIME);

VTypeDef type_BOOLEAN(perm_string::literal("boolean"));

const VTypeArray primitive_BIT_VECTOR(&primitive_BIT,           vector<VTypeArray::range_t> (1));
const VTypeArray primitive_BOOL_VECTOR(&type_BOOLEAN,           vector<VTypeArray::range_t> (1));
const VTypeArray primitive_STDLOGIC_VECTOR(&primitive_STDLOGIC, vector<VTypeArray::range_t> (1));
const VTypeArray primitive_STRING(&primitive_CHARACTER,         vector<VTypeArray::range_t> (1));
const VTypeArray primitive_SIGNED(&primitive_STDLOGIC,          vector<VTypeArray::range_t> (1), true);
const VTypeArray primitive_UNSIGNED(&primitive_STDLOGIC,        vector<VTypeArray::range_t> (1), false);

void generate_global_types(ActiveScope*res)
{
    // boolean
      std::list<perm_string>*enum_BOOLEAN_vals = new std::list<perm_string>;
      enum_BOOLEAN_vals->push_back(perm_string::literal("false"));
      enum_BOOLEAN_vals->push_back(perm_string::literal("true"));
      VTypeEnum*enum_BOOLEAN = new VTypeEnum(enum_BOOLEAN_vals);
      type_BOOLEAN.set_definition(enum_BOOLEAN);
      std_types[type_BOOLEAN.peek_name()] = &type_BOOLEAN;
      std_enums.push_back(enum_BOOLEAN);

      res->use_name(type_BOOLEAN.peek_name(),           &type_BOOLEAN);
      res->use_name(perm_string::literal("bit"),        &primitive_BIT);
      res->use_name(perm_string::literal("bit_vector"), &primitive_BIT_VECTOR);
      res->use_name(perm_string::literal("integer"),    &primitive_INTEGER);
      res->use_name(perm_string::literal("real"),       &primitive_REAL);
      res->use_name(perm_string::literal("std_logic"),  &primitive_STDLOGIC);
      res->use_name(perm_string::literal("character"),  &primitive_CHARACTER);
      res->use_name(perm_string::literal("string"),     &primitive_STRING);
      res->use_name(perm_string::literal("natural"),    &primitive_NATURAL);
      res->use_name(perm_string::literal("time"),       &primitive_TIME);
}

void delete_global_types()
{
    typedef_context_t typedef_ctx;
    for(map<perm_string, VTypeDef*>::iterator cur = std_types.begin();
            cur != std_types.end() ; ++ cur) {
        delete cur->second->peek_definition();
        delete cur->second;
    }
}

const VTypeEnum*find_std_enum_name(perm_string name)
{
    for(list<const VTypeEnum*>::const_iterator it = std_enums.begin();
            it != std_enums.end(); ++it) {
        if((*it)->has_name(name))
            return *it;
    }

    return NULL;
}

void emit_std_types(ostream&fd)
{
    fd << "`ifndef __VHDL_STD_TYPES" << endl;
    fd << "`define __VHDL_STD_TYPES" << endl;
    typedef_context_t typedef_ctx;
    for(map<perm_string, VTypeDef*>::iterator cur = std_types.begin();
            cur != std_types.end() ; ++ cur) {
        cur->second->emit_typedef(fd, typedef_ctx);
    }
    fd << "`endif" << endl;
}

bool is_global_type(perm_string name)
{
      if (name == "boolean") return true;
      if (name == "bit") return true;
      if (name == "bit_vector") return true;
      if (name == "integer") return true;
      if (name == "real") return true;
      if (name == "std_logic") return true;
      if (name == "std_logic_vector") return true;
      if (name == "character") return true;
      if (name == "string") return true;
      if (name == "natural") return true;
      if (name == "signed") return true;
      if (name == "unsigned") return true;
      if (name == "time") return true;

      return std_types.count(name) > 0;
}