source: src/AST/Decl.cpp

//
// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// Decl.cpp --
//
// Author           : Aaron B. Moss
// Created On       : Thu May 9 10:00:00 2019
// Last Modified By : Peter A. Buhr
// Last Modified On : Sat Dec  9 16:28:51 2023
// Update Count     : 31
//

#include "Decl.hpp"

#include <cassert>             // for assert, strict_dynamic_cast
#include <iostream>
#include <unordered_map>

#include "Common/Eval.h"       // for eval
#include "Common/SemanticError.h"

#include "Fwd.hpp"             // for UniqueId
#include "Init.hpp"
#include "Node.hpp"            // for readonly
#include "Type.hpp"            // for readonly
#include "Expr.hpp"

namespace ast {

// To canonicalize declarations
static UniqueId lastUniqueId = 0;

void Decl::fixUniqueId() {
        if ( uniqueId ) return;  // ensure only set once
        uniqueId = ++lastUniqueId;
}

// --- FunctionDecl

FunctionDecl::FunctionDecl( const CodeLocation & loc, const std::string & name,
        std::vector<ptr<DeclWithType>>&& params, std::vector<ptr<DeclWithType>>&& returns,
        CompoundStmt * stmts, Storage::Classes storage, Linkage::Spec linkage,
        std::vector<ptr<Attribute>>&& attrs, Function::Specs fs, ArgumentFlag isVarArgs )
: FunctionDecl( loc, name, {}, {}, std::move(params), std::move(returns),
                stmts, storage, linkage, std::move(attrs), fs, isVarArgs ) {
}

FunctionDecl::FunctionDecl( const CodeLocation & location, const std::string & name,
        std::vector<ptr<TypeDecl>>&& forall, std::vector<ptr<DeclWithType>>&& assertions,
        std::vector<ptr<DeclWithType>>&& params, std::vector<ptr<DeclWithType>>&& returns,
        CompoundStmt * stmts, Storage::Classes storage, Linkage::Spec linkage,
        std::vector<ptr<Attribute>>&& attrs, Function::Specs fs, ArgumentFlag isVarArgs )
: DeclWithType( location, name, storage, linkage, std::move(attrs), fs ),
                type_params( std::move( forall) ), assertions( std::move( assertions ) ),
                params( std::move(params) ), returns( std::move(returns) ),
                type( nullptr ), stmts( stmts ) {
        FunctionType * type = new FunctionType( isVarArgs );
        for ( auto & param : this->params ) {
                type->params.emplace_back( param->get_type() );
        }
        for ( auto & ret : this->returns ) {
                type->returns.emplace_back( ret->get_type() );
        }
        for ( auto & param : this->type_params ) {
                type->forall.emplace_back( new TypeInstType( param ) );
        }
        for ( auto & assertion : this->assertions ) {
                type->assertions.emplace_back(
                        new VariableExpr( assertion->location, assertion ) );
        }
        this->type = type;
}


const Type * FunctionDecl::get_type() const { return type.get(); }
void FunctionDecl::set_type( const Type * t ) {
        type = strict_dynamic_cast< const FunctionType * >( t );
}

// --- TypeDecl

const char * TypeDecl::typeString() const {
        static const char * kindNames[] = { "sized data type", "sized data type", "sized object type", "sized function type", "sized tuple type", "sized length value" };
        static_assert( sizeof(kindNames) / sizeof(kindNames[0]) == TypeDecl::NUMBER_OF_KINDS, "typeString: kindNames is out of sync." );
        assertf( kind < TypeDecl::NUMBER_OF_KINDS, "TypeDecl kind is out of bounds." );
        // sizeof("sized") includes '\0' and gives the offset to remove "sized ".
        return sized ? kindNames[ kind ] : &kindNames[ kind ][ sizeof("sized") ];
}

const char * TypeDecl::genTypeString() const {
        static const char * kindNames[] = { "T &", "T *", "T", "(*)", "T ...", "[T]" };
        static_assert( sizeof(kindNames) / sizeof(kindNames[0]) == TypeDecl::NUMBER_OF_KINDS, "genTypeString: kindNames is out of sync." );
        assertf( kind < TypeDecl::NUMBER_OF_KINDS, "TypeDecl kind is out of bounds." );
        return kindNames[ kind ];
}

std::ostream & operator<< ( std::ostream & out, const TypeData & data ) {
        return out << data.kind << ", " << data.isComplete;
}

// --- AggregateDecl

// These must harmonize with the corresponding AggregateDecl::Aggregate enumerations.
static const char * aggregateNames[] = { "struct", "union", "enum", "exception", "trait", "generator", "coroutine", "monitor", "thread", "NoAggregateName" };

const char * AggregateDecl::aggrString( AggregateDecl::Aggregate aggr ) {
        return aggregateNames[aggr];
}

// --- EnumDecl

bool EnumDecl::valueOf( const Decl * enumerator, long long & value ) const {
        if ( enumValues.empty() ) {
                Evaluation crntVal = {0, true, true};  // until expression is given, we know to start counting from 0
                for ( const Decl * member : members ) {
                        const ObjectDecl * field = strict_dynamic_cast< const ObjectDecl * >( member );
                        if ( field->init ) {
                                const SingleInit * init = strict_dynamic_cast< const SingleInit * >( field->init.get() );
                                crntVal = eval( init->value );
                                if ( ! crntVal.isEvaluableInGCC ) {
                                        SemanticError( init->location, "Non-constexpr in initialization of enumerator %s", field->name.c_str() );
                                }
                        }
                        if ( enumValues.count( field->name ) != 0 ) {
                                SemanticError( location, "Enum %s has multiple members with %s", name.c_str(), field->name.c_str() );
                        }
                        if (crntVal.hasKnownValue) {
                                enumValues[ field->name ] = crntVal.knownValue;
                        }
                        ++crntVal.knownValue;
                }
        }

        auto it = enumValues.find( enumerator->name );

        if ( it != enumValues.end() ) {

                // Handle typed enum by casting the value in (C++) compiler
                // if ( base ) { // A typed enum
                //      if ( const BasicType * bt = dynamic_cast<const BasicType *>(base) ) {
                //              switch( bt->kind ) {
                //                      case BasicType::Kind::Bool:     value = (bool) it->second; break;
                //                      case BasicType::Kind::Char: value = (char) it->second; break;
                //                      case BasicType::Kind::SignedChar: value = (signed char) it->second; break;
                //                      case BasicType::Kind::UnsignedChar: value = (unsigned char) it->second; break;
                //                      case BasicType::Kind::ShortSignedInt: value = (short signed int) it->second; break;
                //                      case BasicType::Kind::SignedInt: value = (signed int) it->second; break;
                //                      case BasicType::Kind::UnsignedInt: value = (unsigned int) it->second; break;
                //                      case BasicType::Kind::LongSignedInt: value = (long signed int) it->second; break;
                //                      case BasicType::Kind::LongUnsignedInt: value = (long unsigned int) it->second; break;
                //                      case BasicType::Kind::LongLongSignedInt: value = (long long signed int) it->second; break;
                //                      case BasicType::Kind::LongLongUnsignedInt: value = (long long unsigned int) it->second; break;
                //                      // TODO: value should be able to handle long long unsigned int

                //                      default:
                //                      value = it->second;
                //              }
                //      }
                // } else {
                        value = it->second;
                //}

                return true;
        }
        return false;
}

const std::string EnumDecl::getUnmangeldArrayName( const ast::EnumAttribute attr ) const {
                switch( attr ) {
                        case ast::EnumAttribute::Value: return "values_" + name ;
                        case ast::EnumAttribute::Label: return "labels_" + name;
                        default: /* Posn does not generate array */ 
                                return "";
                }
        }

}

// Local Variables: //
// tab-width: 4 //
// mode: c++ //
// compile-command: "make install" //
// End: //