lean2/src/util/script_state.h

/*
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 <memory>
#include <lua.hpp>

namespace lean {
/**
   \brief Wrapper for lua_State objects which contains all Lean bindings.
*/
class script_state {
public:
    struct imp;
private:
    std::shared_ptr<imp> m_ptr;
    friend script_state to_script_state(lua_State * L);
    friend class data_channel;
public:
    static void set_check_interrupt_freq(unsigned count);

    typedef std::weak_ptr<imp> weak_ref;

    script_state();
    script_state(weak_ref const & r);
    ~script_state();

    weak_ref to_weak_ref() const { return weak_ref(m_ptr); }

    /**
       \brief Execute the file with the given name.
       This method throws an exception if an error occurs.
    */
    void dofile(char const * fname);
    /**
       \brief Execute the given string.
       This method throws an exception if an error occurs.
    */
    void dostring(char const * str);
    /**
       \brief Import file \c fname from the LEAN_PATH.
       If the file was already included, then nothing happens, and method returns false.
    */
    bool import(char const * fname);
    /**
       \brief Import file \c fname. \c fname is the explicit path to the file.
       If the file was already included, then nothing happens, and method returns false.
    */
    bool import_explicit(char const * fname);

    lua_State * get_state();

    typedef void (*reg_fn)(lua_State *); // NOLINT
    static void register_module(reg_fn f);
};
/**
   \brief Return a reference to the script_state object that is wrapping \c L.
*/
script_state to_script_state(lua_State * L);
void initialize_script_state();
void finalize_script_state();
}