---

except.cc

Go to the documentation of this file.

// AUTOMATICALLY GENERATED -- DO NOT EDIT!         -*- c++ -*-

#include "except.h"
#include "except_i.h"


#line 99 "except.cpp"
static Ptree*
find_leaf(Ptree* tree, char** fn_out, int* fn_length_out, unsigned int* line_out);

#line 116 "except.cpp"
static void
print_location(std::ostream& os, Ptree* tree);
#line 34 "except.cpp"

#ifdef USE_BACKTRACER
#line 37 "except.cpp"
#else
#line 38 "except.cpp"
#  define printBacktrace(x)
#line 39 "except.cpp"
#endif
#line 40 "except.cpp"

bool Compile_error::had_errors = 0;

#line 42 "except.cpp"

void
compile_error(const char* str)
{
    throw Compile_error(str);
}

#line 48 "except.cpp"

void
compile_error(std::string str)
{
    throw Compile_error(str);
}

#line 54 "except.cpp"

void
bogus_ptree_error(const char* str, Ptree* tree)
{
    bogus_ptree_error(std::string(str), tree);
}

#line 60 "except.cpp"

void
bogus_ptree_error(std::string str, Ptree* tree)
{
    printBacktrace(std::cerr);
    std::ostringstream o;
    if (tree) {
        o << "Could not understand this ptree: ";
        tree->Display2(o);
    } else {
        o << "Null Ptree encountered\n";
    }
    throw Compile_error(o.str() + str);
}

#line 74 "except.cpp"

void
expect_ptree(Ptree* p, const char* str)
{
    if (!p->Eq((char*)str))
        bogus_ptree_error(std::string("expected `") + str + "'", p);
}

#line 81 "except.cpp"

void
expect_ptree(Ptree* p, char c)
{
    if (!p->Eq(c))
        bogus_ptree_error(std::string("expected `") + c + "'", p);
}

#line 88 "except.cpp"


Compile_error::Compile_error(std::string str)
    : std::runtime_error(str)
{ }

#line 93 "except.cpp"


Compile_error::Compile_error(const char* str)
    : std::runtime_error(str)
{ }

#line 98 "except.cpp"

static Ptree*
find_leaf(Ptree* tree, char** fn_out, int* fn_length_out, unsigned int* line_out)
{
    if (!tree)
        return 0;
    else if (tree->IsLeaf())
        if ((*line_out = Source::instance().program()->LineNumber(tree->GetPosition(),
                                                                  *fn_out, *fn_length_out)))
            return tree;
        else
            return 0;
    else if (Ptree* p = find_leaf(tree->Car(), fn_out, fn_length_out, line_out))
        return p;
    else
        return find_leaf(tree->Cdr(), fn_out, fn_length_out, line_out);
}

#line 115 "except.cpp"

static void
print_location(std::ostream& os, Ptree* tree)
{
    unsigned int line;
    char* fn;
    int fn_length;
    
    tree = find_leaf(tree, &fn, &fn_length, &line);
    if (tree) {
        if (line) {
            os.write(fn, fn_length);
            os << ":" << line;
        } else {
            os << "<replaced>";
        }
    } else {
        os << "<unknown>";
    }
}

#line 135 "except.cpp"

void
Compile_error::print(std::ostream& os, Ptree* tree)
{
    print_location(os, tree);
    os << ": " << what() << "\n";
    had_errors = true;
}

#line 143 "except.cpp"

void
compile_warning(const char* str, Ptree* tree)
{
    print_location(std::cerr, tree);
    std::cerr << ": warning: " << str << "\n";
}

#line 150 "except.cpp"

void
compile_warning(std::string str, Ptree* tree)
{
    print_location(std::cerr, tree);
    std::cerr << ": warning: " << str << "\n";
}

---