contrib/gdb-7/gdb/python/py-stopevent.c

   1 /* Python interface to inferior stop events.
   2
   3    Copyright (C) 2009-2012 Free Software Foundation, Inc.
   4
   5    This file is part of GDB.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  19
  20 #include "py-stopevent.h"
  21
  22 PyObject *
  23 create_stop_event_object (PyTypeObject *py_type)
  24 {
  25   PyObject *stop_event_obj = create_thread_event_object (py_type);
  26
  27   if (!stop_event_obj)
  28     goto fail;
  29
  30   return stop_event_obj;
  31
  32   fail:
  33    Py_XDECREF (stop_event_obj);
  34    return NULL;
  35 }
  36
  37 /* Callback observers when a stop event occurs.  This function will create a
  38    new Python stop event object.  If only a specific thread is stopped the
  39    thread object of the event will be set to that thread.  Otherwise, if all
  40    threads are stopped thread object will be set to None.
  41    return 0 if the event was created and emitted successfully otherwise
  42    returns -1.  */
  43
  44 int
  45 emit_stop_event (struct bpstats *bs, enum target_signal stop_signal)
  46 {
  47   PyObject *stop_event_obj = NULL; /* Appease GCC warning.  */
  48   PyObject *list = NULL;
  49   PyObject *first_bp = NULL;
  50   struct bpstats *current_bs;
  51
  52   if (evregpy_no_listeners_p (gdb_py_events.stop))
  53     return 0;
  54
  55   /* Add any breakpoint set at this location to the list.  */
  56   for (current_bs = bs; current_bs != NULL; current_bs = current_bs->next)
  57     {
  58       if (current_bs->breakpoint_at
  59           && current_bs->breakpoint_at->py_bp_object)
  60         {
  61           PyObject *current_py_bp =
  62               (PyObject *) current_bs->breakpoint_at->py_bp_object;
  63
  64           if (list == NULL)
  65             {
  66               list = PyList_New (0);
  67               if (!list)
  68                 goto fail;
  69             }
  70
  71           if (PyList_Append (list, current_py_bp))
  72             goto fail;
  73
  74           if (first_bp == NULL)
  75             first_bp = current_py_bp;
  76         }
  77     }
  78
  79   if (list != NULL)
  80     {
  81       stop_event_obj = create_breakpoint_event_object (list, first_bp);
  82       if (!stop_event_obj)
  83         goto fail;
  84     }
  85
  86   /* Check if the signal is "Signal 0" or "Trace/breakpoint trap".  */
  87   if (stop_signal != TARGET_SIGNAL_0
  88       && stop_signal != TARGET_SIGNAL_TRAP)
  89     {
  90       stop_event_obj =
  91           create_signal_event_object (stop_signal);
  92       if (!stop_event_obj)
  93         goto fail;
  94     }
  95
  96   /* If all fails emit an unknown stop event.  All event types should
  97      be known and this should eventually be unused.  */
  98   if (!stop_event_obj)
  99     {
 100       stop_event_obj = create_stop_event_object (&stop_event_object_type);
 101       if (!stop_event_obj)
 102         goto fail;
 103     }
 104
 105   return evpy_emit_event (stop_event_obj, gdb_py_events.stop);
 106
 107  fail:
 108   Py_XDECREF (list);
 109   return -1;
 110 }
 111
 112 GDBPY_NEW_EVENT_TYPE (stop,
 113                       "gdb.StopEvent",
 114                       "StopEvent",
 115                       "GDB stop event object",
 116                       thread_event_object_type,
 117                       /*no qual*/);