lean2/src/sexpr/sexpr.cpp

/*
Copyright (c) 2013 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.

Author: Leonardo de Moura
*/
#include <cstring>
#include "rc.h"
#include "hash.h"
#include "sexpr.h"
#include "name.h"
#include "mpz.h"
#include "mpq.h"

namespace lean {

struct sexpr_cell {
    void dealloc();
    MK_LEAN_RC()
    sexpr::kind  m_kind;
    unsigned     m_hash;

    sexpr_cell(sexpr::kind k, unsigned h):m_rc(1), m_kind(k), m_hash(h) {}
};

struct sexpr_string : public sexpr_cell {
    std::string m_value;
    sexpr_string(char const * v):
        sexpr_cell(sexpr::kind::STRING, hash(v, strlen(v), 13)),
        m_value(v) {}
    sexpr_string(std::string const & v):
        sexpr_cell(sexpr::kind::STRING, hash(v.c_str(), v.size(), 13)),
        m_value(v) {}
};

struct sexpr_int : public sexpr_cell {
    int m_value;
    sexpr_int(int v):
        sexpr_cell(sexpr::kind::INT, v),
        m_value(v) {}
};

struct sexpr_double : public sexpr_cell {
    double m_value;
    sexpr_double(double v):
        sexpr_cell(sexpr::kind::DOUBLE, static_cast<unsigned>(v)),
        m_value(v) {}
};

struct sexpr_name : public sexpr_cell {
    name m_value;
    sexpr_name(name const & v):
        sexpr_cell(sexpr::kind::NAME, v.hash()),
        m_value(v) {}
};

struct sexpr_mpz : public sexpr_cell {
    mpz m_value;
    sexpr_mpz(mpz const & v):
        sexpr_cell(sexpr::kind::MPZ, v.hash()),
        m_value(v) {}
};

struct sexpr_mpq : public sexpr_cell {
    mpq m_value;
    sexpr_mpq(mpq const & v):
        sexpr_cell(sexpr::kind::MPQ, v.hash()),
        m_value(v) {}
};

struct sexpr_cons : public sexpr_cell {
    sexpr m_head;
    sexpr m_tail;
    sexpr_cons(sexpr const & h, sexpr const & t):
        sexpr_cell(sexpr::kind::CONS, hash(h.hash(), t.hash())),
        m_head(h),
        m_tail(t) {}
};

void sexpr_cell::dealloc() {
    switch (m_kind) {
    case sexpr::kind::NIL:         lean_unreachable();                      break;
    case sexpr::kind::STRING:      delete static_cast<sexpr_string*>(this); break;
    case sexpr::kind::INT:         delete static_cast<sexpr_int*>(this);    break;
    case sexpr::kind::DOUBLE:      delete static_cast<sexpr_double*>(this); break;
    case sexpr::kind::NAME:        delete static_cast<sexpr_name*>(this);   break;
    case sexpr::kind::MPZ:         delete static_cast<sexpr_mpz*>(this);    break;
    case sexpr::kind::MPQ:         delete static_cast<sexpr_mpq*>(this);    break;
    case sexpr::kind::CONS:        delete static_cast<sexpr_cons*>(this);   break;
    }
}

sexpr::sexpr(char const * v):m_ptr(new sexpr_string(v)) {}
sexpr::sexpr(std::string const & v):m_ptr(new sexpr_string(v)) {}
sexpr::sexpr(int v):m_ptr(new sexpr_int(v)) {}
sexpr::sexpr(double v):m_ptr(new sexpr_double(v)) {}
sexpr::sexpr(name const & v):m_ptr(new sexpr_name(v)) {}
sexpr::sexpr(mpz const & v):m_ptr(new sexpr_mpz(v)) {}
sexpr::sexpr(mpq const & v):m_ptr(new sexpr_mpq(v)) {}
sexpr::sexpr(sexpr const & h, sexpr const & t):m_ptr(new sexpr_cons(h, t)) {}
sexpr::sexpr(sexpr const & s):m_ptr(s.m_ptr) {
    if (m_ptr)
        m_ptr->inc_ref();
}
sexpr::sexpr(sexpr && s):m_ptr(s.m_ptr) {
    s.m_ptr = 0;
}
sexpr::~sexpr() {
    if (m_ptr)
        m_ptr->dec_ref();
}

sexpr::kind sexpr::get_kind() const { return m_ptr ? m_ptr->m_kind : kind::NIL; }
sexpr const & head(sexpr const & s) { lean_assert(is_cons(s)); return static_cast<sexpr_cons*>(s.m_ptr)->m_head; }
sexpr const & tail(sexpr const & s) { lean_assert(is_cons(s)); return static_cast<sexpr_cons*>(s.m_ptr)->m_tail; }
std::string const & sexpr::get_string() const { return static_cast<sexpr_string*>(m_ptr)->m_value; }
int sexpr::get_int() const { return static_cast<sexpr_int*>(m_ptr)->m_value; }
double sexpr::get_double() const { return static_cast<sexpr_double*>(m_ptr)->m_value; }
name const & sexpr::get_name() const { return static_cast<sexpr_name*>(m_ptr)->m_value; }
mpz const & sexpr::get_mpz() const { return static_cast<sexpr_mpz*>(m_ptr)->m_value; }
mpq const & sexpr::get_mpq() const { return static_cast<sexpr_mpq*>(m_ptr)->m_value; }

unsigned sexpr::hash() const { return m_ptr == nullptr ? 23 : m_ptr->m_hash; }

sexpr & sexpr::operator=(sexpr const & s) {
    if (s.m_ptr)
        s.m_ptr->inc_ref();
    if (m_ptr)
        m_ptr->dec_ref();
    m_ptr = s.m_ptr;
    return *this;
}

sexpr & sexpr::operator=(sexpr && s) {
    if (m_ptr)
        m_ptr->dec_ref();
    m_ptr   = s.m_ptr;
    s.m_ptr = 0;
    return *this;
}

bool is_list(sexpr const & s) {
    if (is_nil(s))
        return true;
    if (!is_cons(s))
        return false;
    sexpr const * curr = &s;
    while (true) {
        lean_assert(is_cons(*curr));
        curr = &tail(*curr);
        if (is_nil(*curr))
            return true;
        if (!is_cons(*curr))
            return false;
    }
}

unsigned length(sexpr const & s) {
    unsigned r = 0;
    sexpr const * curr = &s;
    while (true) {
        if (is_nil(*curr))
            return r;
        lean_assert(is_cons(*curr));
        r++;
        curr = &tail(*curr);
    }
}

bool operator==(sexpr const & a, sexpr const & b) {
    if (eqp(a, b))
        return true;
    sexpr::kind ka = a.get_kind();
    sexpr::kind kb = b.get_kind();
    if (ka != kb)
        return false;
    if (a.hash() != b.hash())
        return false;
    switch (ka) {
    case sexpr::kind::NIL:         return true;
    case sexpr::kind::STRING:      return to_string(a) == to_string(b);
    case sexpr::kind::INT:         return to_int(a) == to_int(b);
    case sexpr::kind::DOUBLE:      return to_double(a) == to_double(b);
    case sexpr::kind::NAME:        return to_name(a) == to_name(b);
    case sexpr::kind::MPZ:         return to_mpz(a) == to_mpz(b);
    case sexpr::kind::MPQ:         return to_mpq(a) == to_mpq(b);
    case sexpr::kind::CONS:        return head(a) == head(b) && tail(a) == tail(b);
    }
    return false;
}

bool operator<(sexpr const & a, sexpr const & b) {
    // TODO
    return false;
}

std::ostream & operator<<(std::ostream & out, sexpr const & s) {
    switch (s.get_kind()) {
    case sexpr::kind::NIL:         out << "nil"; break;
    case sexpr::kind::STRING:      out << "\"" << to_string(s) << "\""; break;
    case sexpr::kind::INT:         out << to_int(s); break;
    case sexpr::kind::DOUBLE:      out << to_double(s); break;
    case sexpr::kind::NAME:        out << to_name(s); break;
    case sexpr::kind::MPZ:         out << to_mpz(s); break;
    case sexpr::kind::MPQ:         out << to_mpq(s); break;
    case sexpr::kind::CONS: {
        out << "(";
        sexpr const * curr = &s;
        while (true) {
            out << head(*curr);
            curr = &tail(*curr);
            if (is_nil(*curr)) {
                break;
            }
            else if (!is_cons(*curr)) {
                out << " . ";
                out << *curr;
                break;
            }
            else {
                out << " ";
            }
        }
        out << ")";
    }}
    return out;
}

bool operator==(sexpr const & a, name const & b) { return is_name(a) && to_name(a) == b; }
bool operator==(sexpr const & a, mpz const & b) { return is_mpz(a) && to_mpz(a) == b; }
bool operator==(sexpr const & a, mpq const & b) { return is_mpq(a) && to_mpq(a) == b; }

}

void pp(lean::sexpr const & n) { std::cout << n << "\n"; }