/* Name analysis.
   Copyright (C) 2025 Free Software Foundation, Inc.

GCC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.

GCC 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 GCC; see the file COPYING3.  If not see
<http://www.gnu.org/licenses/>.  */

#include "elna/boot/semantic.h"

namespace elna
{
namespace boot
{
    alias_type *type::is_alias()
    {
        return nullptr;
    }

    primitive_type *type::is_primitive()
    {
        return nullptr;
    }

    record_type *type::is_record()
    {
        return nullptr;
    }

    union_type *type::is_union()
    {
        return nullptr;
    }

    type::~type()
    {
    }

    alias_type *alias_type::is_alias()
    {
        return this;
    }

    primitive_type::primitive_type(const std::string& identifier)
        : identifier(identifier)
    {
    }

    primitive_type *primitive_type::is_primitive()
    {
        return this;
    }

    record_type *record_type::is_record()
    {
        return this;
    }

    union_type *union_type::is_union()
    {
        return this;
    }

    void declaration_visitor::visit(program *program)
    {
        for (type_definition *const type : program->types)
        {
            this->unresolved.insert({ type->identifier, new alias_type() });
        }
        for (type_definition *const type : program->types)
        {
            type->accept(this);
        }
    }

    void declaration_visitor::visit(type_definition *definition)
    {
        auto unresolved_declaration = this->unresolved.at(definition->identifier);

        definition->body().accept(this);

        if (this->current_type != nullptr)
        {
            unresolved_declaration->reference = this->current_type;
        }
        this->current_type = nullptr;
    }

    void declaration_visitor::visit(primitive_type_expression *type)
    {
        auto unresolved_alias = this->unresolved.find(type->name);

        if (unresolved_alias != this->unresolved.end())
        {
            this->current_type = unresolved_alias->second;
        }
        else
        {
            this->current_type = new primitive_type(type->name);
        }
    }

    void declaration_visitor::visit(array_type_expression *type)
    {
    }

    void declaration_visitor::visit(pointer_type_expression *type)
    {
    }

    void declaration_visitor::visit(record_type_expression *type)
    {
        this->current_type = new record_type();
    }

    void declaration_visitor::visit(union_type_expression *type)
    {
        this->current_type = new union_type();
    }

    void declaration_visitor::visit(procedure_type_expression *type)
    {
    }
}
}