external/bsd/lutok/dist/debug.cpp

   1 // Copyright 2011 Google Inc.
   2 // All rights reserved.
   3 //
   4 // Redistribution and use in source and binary forms, with or without
   5 // modification, are permitted provided that the following conditions are
   6 // met:
   7 //
   8 // * Redistributions of source code must retain the above copyright
   9 //   notice, this list of conditions and the following disclaimer.
  10 // * Redistributions in binary form must reproduce the above copyright
  11 //   notice, this list of conditions and the following disclaimer in the
  12 //   documentation and/or other materials provided with the distribution.
  13 // * Neither the name of Google Inc. nor the names of its contributors
  14 //   may be used to endorse or promote products derived from this software
  15 //   without specific prior written permission.
  16 //
  17 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  18 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  19 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  20 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
  21 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  22 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  23 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  24 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  25 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  26 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  27 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28
  29 #include <cassert>
  30
  31 #include <lua.hpp>
  32
  33 #include <lutok/c_gate.hpp>
  34 #include <lutok/debug.hpp>
  35 #include <lutok/exceptions.hpp>
  36 #include <lutok/state.ipp>
  37
  38
  39 /// Internal implementation for lutok::debug.
  40 struct lutok::debug::impl {
  41     /// The Lua internal debug state.
  42     lua_Debug lua_debug;
  43 };
  44
  45
  46 /// Constructor for an empty debug structure.
  47 lutok::debug::debug(void) :
  48     _pimpl(new impl())
  49 {
  50 }
  51
  52
  53 /// Destructor.
  54 lutok::debug::~debug(void)
  55 {
  56 }
  57
  58
  59 /// Wrapper around lua_getinfo.
  60 ///
  61 /// \param s The Lua state.
  62 /// \param what_ The second parameter to lua_getinfo.
  63 ///
  64 /// \warning Terminates execution if there is not enough memory to manipulate
  65 /// the Lua stack.
  66 void
  67 lutok::debug::get_info(state& s, const std::string& what_)
  68 {
  69     lua_State* raw_state = state_c_gate(s).c_state();
  70
  71     if (lua_getinfo(raw_state, what_.c_str(), &_pimpl->lua_debug) == 0)
  72         throw lutok::api_error::from_stack(s, "lua_getinfo");
  73 }
  74
  75
  76 /// Wrapper around lua_getstack.
  77 ///
  78 /// \param s The Lua state.
  79 /// \param level The second parameter to lua_getstack.
  80 void
  81 lutok::debug::get_stack(state& s, const int level)
  82 {
  83     lua_State* raw_state = state_c_gate(s).c_state();
  84
  85     lua_getstack(raw_state, level, &_pimpl->lua_debug);
  86 }
  87
  88
  89 /// Accessor for the 'event' field of lua_Debug.
  90 ///
  91 /// \return Returns the 'event' field of the internal lua_Debug structure.
  92 int
  93 lutok::debug::event(void) const
  94 {
  95     return _pimpl->lua_debug.event;
  96 }
  97
  98
  99 /// Accessor for the 'name' field of lua_Debug.
 100 ///
 101 /// \return Returns the 'name' field of the internal lua_Debug structure.
 102 std::string
 103 lutok::debug::name(void) const
 104 {
 105     assert(_pimpl->lua_debug.name != NULL);
 106     return _pimpl->lua_debug.name;
 107 }
 108
 109
 110 /// Accessor for the 'namewhat' field of lua_Debug.
 111 ///
 112 /// \return Returns the 'namewhat' field of the internal lua_Debug structure.
 113 std::string
 114 lutok::debug::name_what(void) const
 115 {
 116     assert(_pimpl->lua_debug.namewhat != NULL);
 117     return _pimpl->lua_debug.namewhat;
 118 }
 119
 120
 121 /// Accessor for the 'what' field of lua_Debug.
 122 ///
 123 /// \return Returns the 'what' field of the internal lua_Debug structure.
 124 std::string
 125 lutok::debug::what(void) const
 126 {
 127     assert(_pimpl->lua_debug.what != NULL);
 128     return _pimpl->lua_debug.what;
 129 }
 130
 131
 132 /// Accessor for the 'source' field of lua_Debug.
 133 ///
 134 /// \return Returns the 'source' field of the internal lua_Debug structure.
 135 std::string
 136 lutok::debug::source(void) const
 137 {
 138     assert(_pimpl->lua_debug.source != NULL);
 139     return _pimpl->lua_debug.source;
 140 }
 141
 142
 143 /// Accessor for the 'currentline' field of lua_Debug.
 144 ///
 145 /// \return Returns the 'currentline' field of the internal lua_Debug structure.
 146 int
 147 lutok::debug::current_line(void) const
 148 {
 149     return _pimpl->lua_debug.currentline;
 150 }
 151
 152
 153 /// Accessor for the 'nups' field of lua_Debug.
 154 ///
 155 /// \return Returns the 'nups' field of the internal lua_Debug structure.
 156 int
 157 lutok::debug::n_ups(void) const
 158 {
 159     return _pimpl->lua_debug.nups;
 160 }
 161
 162
 163 /// Accessor for the 'linedefined' field of lua_Debug.
 164 ///
 165 /// \return Returns the 'linedefined' field of the internal lua_Debug structure.
 166 int
 167 lutok::debug::line_defined(void) const
 168 {
 169     return _pimpl->lua_debug.linedefined;
 170 }
 171
 172
 173 /// Accessor for the 'lastlinedefined' field of lua_Debug.
 174 ///
 175 /// \return Returns the 'lastlinedefined' field of the internal lua_Debug
 176 /// structure.
 177 int
 178 lutok::debug::last_line_defined(void) const
 179 {
 180     return _pimpl->lua_debug.lastlinedefined;
 181 }
 182
 183
 184 /// Accessor for the 'short_src' field of lua_Debug.
 185 ///
 186 /// \return Returns the 'short_src' field of the internal lua_Debug structure.
 187 std::string
 188 lutok::debug::short_src(void) const
 189 {
 190     assert(_pimpl->lua_debug.short_src != NULL);
 191     return _pimpl->lua_debug.short_src;
 192 }