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

Author: Leonardo de Moura
*/
#pragma once
#include "sexpr.h"
#include "format.h"
#include "name.h"

namespace lean {
/** \brief Configuration options. */
class options {
    sexpr m_value;
    options(sexpr const & v):m_value(v) {}
public:
    options() {}
    options(options const & o):m_value(o.m_value) {}
    options(options && o):m_value(std::move(o.m_value)) {}
    ~options() {}

    options & operator=(options const & o) { m_value = o.m_value; return *this; }

    bool empty() const;
    bool size() const;
    bool contains(name const & n) const;
    bool contains(char const * n) const;

    bool          get_bool(name const & n, bool default_value=false) const;
    int           get_int(name const & n, int default_value=0) const;
    double        get_double(name const & n, double default_value=0.0) const;
    sexpr const & get_sexpr(name const & n, sexpr const & default_value=sexpr()) const;

    bool          get_bool(char const * n, bool default_value=false) const;
    int           get_int(char const * n, int default_value=0) const;
    double        get_double(char const * n, double default_value=0.0) const;
    sexpr const & get_sexpr(char const * n, sexpr const & default_value=sexpr()) const;

    options update(name const & n, sexpr const & v) const;
    template<typename T> options update(name const & n, T v) const { return update(n, sexpr(v)); }
    options update(char const * n, sexpr const & v) const { return update(name(n), v); }
    template<typename T> options update(char const * n, T v) const { return update(n, sexpr(v)); }

    friend format pp(options const & o);
    friend std::ostream & operator<<(std::ostream & out, options const & o);
};
template<typename T> options update(options const & o, name const & n, T const & v) { return o.update(n, sexpr(v)); }
template<typename T> options update(options const & o, char const * n, T const & v) { return o.update(name(n), sexpr(v)); }
}