1 //===-- BreakpointOptions.cpp -----------------------------------*- C++ -*-===//
2 //
3 //                     The LLVM Compiler Infrastructure
4 //
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
7 //
8 //===----------------------------------------------------------------------===//
9 
10 #include "lldb/Breakpoint/BreakpointOptions.h"
11 
12 // C Includes
13 // C++ Includes
14 // Other libraries and framework includes
15 // Project includes
16 #include "lldb/Core/Stream.h"
17 #include "lldb/Core/StringList.h"
18 #include "lldb/Core/Value.h"
19 #include "lldb/Breakpoint/StoppointCallbackContext.h"
20 #include "lldb/Target/Process.h"
21 #include "lldb/Target/Target.h"
22 #include "lldb/Target/ThreadSpec.h"
23 #include "lldb/Target/ThreadPlanTestCondition.h"
24 
25 using namespace lldb;
26 using namespace lldb_private;
27 
28 bool
29 BreakpointOptions::NullCallback (void *baton, StoppointCallbackContext *context, lldb::user_id_t break_id, lldb::user_id_t break_loc_id)
30 {
31     return true;
32 }
33 
34 //----------------------------------------------------------------------
35 // BreakpointOptions constructor
36 //----------------------------------------------------------------------
37 BreakpointOptions::BreakpointOptions() :
38     m_callback (BreakpointOptions::NullCallback),
39     m_callback_baton_sp (),
40     m_callback_is_synchronous (false),
41     m_enabled (true),
42     m_ignore_count (0),
43     m_thread_spec_ap (NULL),
44     m_condition_ap()
45 {
46 }
47 
48 //----------------------------------------------------------------------
49 // BreakpointOptions copy constructor
50 //----------------------------------------------------------------------
51 BreakpointOptions::BreakpointOptions(const BreakpointOptions& rhs) :
52     m_callback (rhs.m_callback),
53     m_callback_baton_sp (rhs.m_callback_baton_sp),
54     m_callback_is_synchronous (rhs.m_callback_is_synchronous),
55     m_enabled (rhs.m_enabled),
56     m_ignore_count (rhs.m_ignore_count),
57     m_thread_spec_ap (NULL),
58     m_condition_ap (NULL)
59 {
60     if (rhs.m_thread_spec_ap.get() != NULL)
61         m_thread_spec_ap.reset (new ThreadSpec(*rhs.m_thread_spec_ap.get()));
62     if (rhs.m_condition_ap.get())
63         m_condition_ap.reset (new ClangUserExpression (rhs.m_condition_ap->GetUserText(), NULL));
64 }
65 
66 //----------------------------------------------------------------------
67 // BreakpointOptions assignment operator
68 //----------------------------------------------------------------------
69 const BreakpointOptions&
70 BreakpointOptions::operator=(const BreakpointOptions& rhs)
71 {
72     m_callback = rhs.m_callback;
73     m_callback_baton_sp = rhs.m_callback_baton_sp;
74     m_callback_is_synchronous = rhs.m_callback_is_synchronous;
75     m_enabled = rhs.m_enabled;
76     m_ignore_count = rhs.m_ignore_count;
77     if (rhs.m_thread_spec_ap.get() != NULL)
78         m_thread_spec_ap.reset(new ThreadSpec(*rhs.m_thread_spec_ap.get()));
79     if (rhs.m_condition_ap.get())
80         m_condition_ap.reset (new ClangUserExpression (rhs.m_condition_ap->GetUserText(), NULL));
81     return *this;
82 }
83 
84 BreakpointOptions *
85 BreakpointOptions::CopyOptionsNoCallback (BreakpointOptions &orig)
86 {
87     BreakpointHitCallback orig_callback = orig.m_callback;
88     lldb::BatonSP orig_callback_baton_sp = orig.m_callback_baton_sp;
89     bool orig_is_sync = orig.m_callback_is_synchronous;
90 
91     orig.ClearCallback();
92     BreakpointOptions *ret_val = new BreakpointOptions(orig);
93 
94     orig.SetCallback (orig_callback, orig_callback_baton_sp, orig_is_sync);
95 
96     return ret_val;
97 }
98 
99 //----------------------------------------------------------------------
100 // Destructor
101 //----------------------------------------------------------------------
102 BreakpointOptions::~BreakpointOptions()
103 {
104 }
105 
106 //------------------------------------------------------------------
107 // Callbacks
108 //------------------------------------------------------------------
109 void
110 BreakpointOptions::SetCallback (BreakpointHitCallback callback, const BatonSP &callback_baton_sp, bool callback_is_synchronous)
111 {
112     m_callback_is_synchronous = callback_is_synchronous;
113     m_callback = callback;
114     m_callback_baton_sp = callback_baton_sp;
115 }
116 
117 void
118 BreakpointOptions::ClearCallback ()
119 {
120     m_callback = BreakpointOptions::NullCallback;
121     m_callback_is_synchronous = false;
122     m_callback_baton_sp.reset();
123 }
124 
125 Baton *
126 BreakpointOptions::GetBaton ()
127 {
128     return m_callback_baton_sp.get();
129 }
130 
131 const Baton *
132 BreakpointOptions::GetBaton () const
133 {
134     return m_callback_baton_sp.get();
135 }
136 
137 bool
138 BreakpointOptions::InvokeCallback (StoppointCallbackContext *context,
139                                    lldb::user_id_t break_id,
140                                    lldb::user_id_t break_loc_id)
141 {
142     if (m_callback && context->is_synchronous == IsCallbackSynchronous())
143     {
144         return m_callback (m_callback_baton_sp ? m_callback_baton_sp->m_data : NULL,
145                            context,
146                            break_id,
147                            break_loc_id);
148     }
149     else
150         return true;
151 }
152 
153 bool
154 BreakpointOptions::HasCallback ()
155 {
156     return m_callback != BreakpointOptions::NullCallback;
157 }
158 
159 void
160 BreakpointOptions::SetCondition (const char *condition)
161 {
162     if (condition == NULL || condition[0] == '\0')
163     {
164         if (m_condition_ap.get())
165             m_condition_ap.reset();
166     }
167     else
168     {
169         m_condition_ap.reset(new ClangUserExpression (condition, NULL));
170     }
171 }
172 
173 ThreadPlan *
174 BreakpointOptions::GetThreadPlanToTestCondition (ExecutionContext &exe_ctx,
175                                                  lldb::BreakpointLocationSP break_loc_sp,
176                                                  Stream &error_stream)
177 {
178     // No condition means we should stop, so return NULL.
179     if (!m_condition_ap.get())
180         return NULL;
181 
182     // FIXME: I shouldn't have to do this, the process should handle it for me:
183     if (!exe_ctx.process->GetDynamicCheckers())
184     {
185         DynamicCheckerFunctions *dynamic_checkers = new DynamicCheckerFunctions();
186 
187         StreamString install_errors;
188 
189         if (!dynamic_checkers->Install(install_errors, exe_ctx))
190         {
191             error_stream.Printf("Couldn't install dynamic checkers into the execution context: %s\n", install_errors.GetData());
192             return NULL;
193         }
194 
195         exe_ctx.process->SetDynamicCheckers(dynamic_checkers);
196     }
197 
198     // Get the boolean type from the process's scratch AST context
199     ClangASTContext *ast_context = exe_ctx.target->GetScratchClangASTContext();
200     TypeFromUser bool_type(ast_context->GetBuiltInType_bool(), ast_context->getASTContext());
201 
202     if (!m_condition_ap->Parse (error_stream, exe_ctx, bool_type, false /* keep_in_memory */))
203     {
204         // Errors mean we should stop.
205         return NULL;
206     }
207     // FIXME: When we can execute static expressions without running the target, we should check that here,
208     // and return something to indicate we should stop or just continue.
209 
210     ThreadPlan *new_plan = new ThreadPlanTestCondition (*exe_ctx.thread,
211                                                         exe_ctx,
212                                                         m_condition_ap.get(),
213                                                         break_loc_sp,
214                                                         true);
215 
216     return new_plan;
217 }
218 
219 const char *
220 BreakpointOptions::GetConditionText ()
221 {
222     if (m_condition_ap.get())
223         return m_condition_ap->GetUserText();
224     else
225         return "<No Condition>";
226 }
227 
228 //------------------------------------------------------------------
229 // Enabled/Ignore Count
230 //------------------------------------------------------------------
231 bool
232 BreakpointOptions::IsEnabled () const
233 {
234     return m_enabled;
235 }
236 
237 void
238 BreakpointOptions::SetEnabled (bool enabled)
239 {
240     m_enabled = enabled;
241 }
242 
243 uint32_t
244 BreakpointOptions::GetIgnoreCount () const
245 {
246     return m_ignore_count;
247 }
248 
249 void
250 BreakpointOptions::SetIgnoreCount (uint32_t n)
251 {
252     m_ignore_count = n;
253 }
254 
255 const ThreadSpec *
256 BreakpointOptions::GetThreadSpecNoCreate () const
257 {
258     return m_thread_spec_ap.get();
259 }
260 
261 ThreadSpec *
262 BreakpointOptions::GetThreadSpec ()
263 {
264     if (m_thread_spec_ap.get() == NULL)
265         m_thread_spec_ap.reset (new ThreadSpec());
266 
267     return m_thread_spec_ap.get();
268 }
269 
270 void
271 BreakpointOptions::SetThreadID (lldb::tid_t thread_id)
272 {
273     GetThreadSpec()->SetTID(thread_id);
274 }
275 
276 void
277 BreakpointOptions::GetDescription (Stream *s, lldb::DescriptionLevel level) const
278 {
279 
280     // Figure out if there are any options not at their default value, and only print
281     // anything if there are:
282 
283     if (m_ignore_count != 0 || !m_enabled || (GetThreadSpecNoCreate() != NULL && GetThreadSpecNoCreate()->HasSpecification ()))
284     {
285         if (level == lldb::eDescriptionLevelVerbose)
286         {
287             s->EOL ();
288             s->IndentMore();
289             s->Indent();
290             s->PutCString("Breakpoint Options:\n");
291             s->IndentMore();
292             s->Indent();
293         }
294         else
295             s->PutCString(" Options: ");
296 
297         if (m_ignore_count > 0)
298             s->Printf("ignore: %d ", m_ignore_count);
299         s->Printf("%sabled ", m_enabled ? "en" : "dis");
300 
301         if (m_thread_spec_ap.get())
302             m_thread_spec_ap->GetDescription (s, level);
303         else if (level == eDescriptionLevelBrief)
304             s->PutCString ("thread spec: no ");
305         if (level == lldb::eDescriptionLevelFull)
306         {
307             s->IndentLess();
308             s->IndentMore();
309         }
310     }
311 
312     if (m_callback_baton_sp.get())
313     {
314         if (level != eDescriptionLevelBrief)
315         {
316             s->EOL();
317             m_callback_baton_sp->GetDescription (s, level);
318         }
319     }
320     if (m_condition_ap.get())
321     {
322        if (level != eDescriptionLevelBrief)
323        {
324             s->EOL();
325             s->Printf("Condition: %s\n", m_condition_ap->GetUserText());
326         }
327     }
328 }
329 
330 void
331 BreakpointOptions::CommandBaton::GetDescription (Stream *s, lldb::DescriptionLevel level) const
332 {
333     CommandData *data = (CommandData *)m_data;
334 
335     if (level == eDescriptionLevelBrief)
336     {
337         s->Printf (", commands = %s", (data && data->user_source.GetSize() > 0) ? "yes" : "no");
338         return;
339     }
340 
341     s->IndentMore ();
342     s->Indent("Breakpoint commands:\n");
343 
344     s->IndentMore ();
345     if (data && data->user_source.GetSize() > 0)
346     {
347         const size_t num_strings = data->user_source.GetSize();
348         for (size_t i = 0; i < num_strings; ++i)
349         {
350             s->Indent(data->user_source.GetStringAtIndex(i));
351             s->EOL();
352         }
353     }
354     else
355     {
356         s->PutCString ("No commands.\n");
357     }
358     s->IndentLess ();
359     s->IndentLess ();
360 }
361 
362