source: src/Common/SemanticError.cc

//
// 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.
//
// SemanticError.cc --
//
// Author           : Thierry Delisle
// Created On       : Mon May 18 07:44:20 2015
// Last Modified By : Peter A. Buhr
// Last Modified On : Thu Dec 14 13:45:28 2023
// Update Count     : 34
//

#include <cstdarg>
#include <cstdio>                                                                               // for fileno, stderr
#include <cstring>
#include <unistd.h>                                                                             // for isatty
#include <iostream>                                                                             // for basic_ostream, operator<<, ostream
#include <list>                                                                                 // for list, _List_iterator
#include <string>                                                                               // for string, operator<<, operator+, to_string
#include <vector>

using namespace std;

#include "Common/utility.h"                                                             // for to_string, CodeLocation (ptr only)
#include "SemanticError.h"

//-----------------------------------------------------------------------------
// Severity Handling
vector<Severity> & get_severities() {
        static vector<Severity> severities;
        if(severities.empty()) {
                severities.reserve((size_t)Warning::NUMBER_OF_WARNINGS);
                for ( const auto w : WarningFormats ) {
                        severities.push_back( w.default_severity );
                } // for
        }
        return severities;
}

void SemanticWarning_SuppressAll() {
        for( auto & s : get_severities() ) {
                s = Severity::Suppress;
        }
}

void SemanticWarning_EnableAll() {
        for( auto & s : get_severities() ) {
                s = Severity::Warn;
        }
}

void SemanticWarning_WarningAsError() {
        for( auto & s : get_severities() ) {
                if(s == Severity::Warn) s = Severity::Error;
        }
}

void SemanticWarning_Set(const char * const name, Severity s) {
        size_t idx = 0;
        for ( const auto & w : WarningFormats ) {
                if ( strcmp( name, w.name ) == 0 ) {
                        get_severities()[idx] = s;
                        break;
                }
                idx++;
        }
}

//-----------------------------------------------------------------------------
// Semantic Error

bool SemanticErrorThrow = false;

SemanticErrorException::SemanticErrorException( CodeLocation location, string error ) {
        append( location, error );
}

void SemanticErrorException::append( SemanticErrorException &other ) {
        errors.splice( errors.end(), other.errors );
}

void SemanticErrorException::append( CodeLocation location, const string & msg ) {
        errors.emplace_back( location, msg );
}

bool SemanticErrorException::isEmpty() const {
        return errors.empty();
}

void SemanticErrorException::print() {
//      using to_string;

        errors.sort([](const error & lhs, const error & rhs) -> bool {
                if(lhs.location.startsBefore(rhs.location)) return true;
                if(rhs.location.startsBefore(lhs.location)) return false;

                return lhs.description < rhs.description;
        });

        for( auto err : errors ) {
                cerr << ErrorHelpers::bold() << err.location << ErrorHelpers::error_str() << ErrorHelpers::reset_font() << err.description << endl;
        }
}

void SemanticError( CodeLocation location, const char * fmt, ... ) {
        char msg[2048];                                                                         // worst-case error-message buffer
        va_list args;
        va_start( args, fmt );
        vsnprintf( msg, sizeof(msg), fmt, args );                       // always null terminated, but may be truncated
        va_end( args );

        SemanticErrorThrow = true;
        throw SemanticErrorException( location, msg );          // convert msg to string
}

void SemanticWarning( CodeLocation location, Warning warning, ... ) {
        Severity severity = get_severities()[(int)warning];

        switch ( severity ) {
        case Severity::Suppress :
                break;
        case Severity::Warn :
        case Severity::Error :
                {
                        char msg[2048];                                                         // worst-case error-message buffer
                        va_list args;
                        va_start( args, warning );
                        vsnprintf( msg, sizeof(msg), WarningFormats[(int)warning].message, args ); // always null terminated, but may be truncated
                        va_end( args );

                        if ( severity == Severity::Warn ) {
                                cerr << ErrorHelpers::bold() << location << ErrorHelpers::warning_str() << ErrorHelpers::reset_font() << msg << endl;
                        } else {
                                SemanticError( location, string( msg ) );
                        }
                }
                break;
        case Severity::Critical :
                assertf(false, "Critical errors not implemented yet");
                break;
        }
}

//-----------------------------------------------------------------------------
// Helpers
namespace ErrorHelpers {
        Colors colors = Colors::Auto;

        static inline bool with_colors() {
                return colors == Colors::Auto ? isatty( STDERR_FILENO ) : bool(colors);
        }

        const string & error_str() {
                static string str = with_colors() ? "\e[31merror:\e[39m " : "error: ";
                return str;
        }

        const string & warning_str() {
                static string str = with_colors() ? "\e[95mwarning:\e[39m " : "warning: ";
                return str;
        }

        const string & bold_ttycode() {
                static string str = with_colors() ? "\e[1m" : "";
                return str;
        }

        const string & reset_font_ttycode() {
                static string str = with_colors() ? "\e[0m" : "";
                return str;
        }

        string make_bold( const string & str ) {
                return bold_ttycode() + str + reset_font_ttycode();
        }

        ostream & operator<<(ostream & os, bold) {
                os << bold_ttycode();
                return os;
        }

        ostream & operator<<(ostream & os, reset_font) {
                os << reset_font_ttycode();
                return os;
        }
}

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