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.
debug(void)47 lutok::debug::debug(void) :
48 _pimpl(new impl())
49 {
50 }
51
52
53 /// Destructor.
~debug(void)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
get_info(state & s,const std::string & what_)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
get_stack(state & s,const int level)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
event(void) const93 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
name(void) const103 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
name_what(void) const114 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
what(void) const125 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
source(void) const136 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
current_line(void) const147 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
n_ups(void) const157 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
line_defined(void) const167 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
last_line_defined(void) const178 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
short_src(void) const188 lutok::debug::short_src(void) const
189 {
190 assert(_pimpl->lua_debug.short_src != NULL);
191 return _pimpl->lua_debug.short_src;
192 }
193