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

   1 /* Python interface to inferior threads.
   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 "defs.h"
  21 #include "exceptions.h"
  22 #include "gdbthread.h"
  23 #include "inferior.h"
  24 #include "python-internal.h"
  25
  26 static PyTypeObject thread_object_type;
  27
  28 /* Require that INFERIOR be a valid inferior ID.  */
  29 #define THPY_REQUIRE_VALID(Thread)                              \
  30   do {                                                          \
  31     if (!Thread->thread)                                        \
  32       {                                                         \
  33         PyErr_SetString (PyExc_RuntimeError,                    \
  34                          _("Thread no longer exists."));        \
  35         return NULL;                                            \
  36       }                                                         \
  37   } while (0)
  38
  39
  40
  41 thread_object *
  42 create_thread_object (struct thread_info *tp)
  43 {
  44   thread_object *thread_obj;
  45
  46   thread_obj = PyObject_New (thread_object, &thread_object_type);
  47   if (!thread_obj)
  48     return NULL;
  49
  50   thread_obj->thread = tp;
  51   thread_obj->inf_obj = find_inferior_object (PIDGET (tp->ptid));
  52
  53   return thread_obj;
  54 }
  55
  56
  57
  58 static void
  59 thpy_dealloc (PyObject *self)
  60 {
  61   Py_DECREF (((thread_object *) self)->inf_obj);
  62   self->ob_type->tp_free (self);
  63 }
  64
  65 static PyObject *
  66 thpy_get_name (PyObject *self, void *ignore)
  67 {
  68   thread_object *thread_obj = (thread_object *) self;
  69   char *name;
  70
  71   THPY_REQUIRE_VALID (thread_obj);
  72
  73   name = thread_obj->thread->name;
  74   if (name == NULL)
  75     name = target_thread_name (thread_obj->thread);
  76
  77   if (name == NULL)
  78     Py_RETURN_NONE;
  79
  80   return PyString_FromString (name);
  81 }
  82
  83 static int
  84 thpy_set_name (PyObject *self, PyObject *newvalue, void *ignore)
  85 {
  86   thread_object *thread_obj = (thread_object *) self;
  87   char *name;
  88
  89   if (! thread_obj->thread)
  90     {
  91       PyErr_SetString (PyExc_RuntimeError, _("Thread no longer exists."));
  92       return -1;
  93     }
  94
  95   if (newvalue == NULL)
  96     {
  97       PyErr_SetString (PyExc_TypeError,
  98                        _("Cannot delete `name' attribute."));
  99       return -1;
 100     }
 101   else if (newvalue == Py_None)
 102     name = NULL;
 103   else if (! gdbpy_is_string (newvalue))
 104     {
 105       PyErr_SetString (PyExc_TypeError,
 106                        _("The value of `name' must be a string."));
 107       return -1;
 108     }
 109   else
 110     {
 111       name = python_string_to_host_string (newvalue);
 112       if (! name)
 113         return -1;
 114     }
 115
 116   xfree (thread_obj->thread->name);
 117   thread_obj->thread->name = name;
 118
 119   return 0;
 120 }
 121
 122 static PyObject *
 123 thpy_get_num (PyObject *self, void *closure)
 124 {
 125   thread_object *thread_obj = (thread_object *) self;
 126
 127   THPY_REQUIRE_VALID (thread_obj);
 128
 129   return PyLong_FromLong (thread_obj->thread->num);
 130 }
 131
 132 /* Getter for InferiorThread.ptid  -> (pid, lwp, tid).
 133    Returns a tuple with the thread's ptid components.  */
 134 static PyObject *
 135 thpy_get_ptid (PyObject *self, void *closure)
 136 {
 137   int pid;
 138   long tid, lwp;
 139   thread_object *thread_obj = (thread_object *) self;
 140   PyObject *ret;
 141
 142   THPY_REQUIRE_VALID (thread_obj);
 143
 144   ret = PyTuple_New (3);
 145   if (!ret)
 146     return NULL;
 147
 148   pid = ptid_get_pid (thread_obj->thread->ptid);
 149   lwp = ptid_get_lwp (thread_obj->thread->ptid);
 150   tid = ptid_get_tid (thread_obj->thread->ptid);
 151
 152   PyTuple_SET_ITEM (ret, 0, PyInt_FromLong (pid));
 153   PyTuple_SET_ITEM (ret, 1, PyInt_FromLong (lwp));
 154   PyTuple_SET_ITEM (ret, 2, PyInt_FromLong (tid));
 155
 156   return ret;
 157 }
 158
 159 /* Implementation of InferiorThread.switch ().
 160    Makes this the GDB selected thread.  */
 161 static PyObject *
 162 thpy_switch (PyObject *self, PyObject *args)
 163 {
 164   thread_object *thread_obj = (thread_object *) self;
 165   struct cleanup *cleanup;
 166   volatile struct gdb_exception except;
 167
 168   THPY_REQUIRE_VALID (thread_obj);
 169
 170   TRY_CATCH (except, RETURN_MASK_ALL)
 171     {
 172       switch_to_thread (thread_obj->thread->ptid);
 173     }
 174   GDB_PY_HANDLE_EXCEPTION (except);
 175
 176   Py_RETURN_NONE;
 177 }
 178
 179 /* Implementation of InferiorThread.is_stopped () -> Boolean.
 180    Return whether the thread is stopped.  */
 181 static PyObject *
 182 thpy_is_stopped (PyObject *self, PyObject *args)
 183 {
 184   thread_object *thread_obj = (thread_object *) self;
 185
 186   THPY_REQUIRE_VALID (thread_obj);
 187
 188   if (is_stopped (thread_obj->thread->ptid))
 189     Py_RETURN_TRUE;
 190
 191   Py_RETURN_FALSE;
 192 }
 193
 194 /* Implementation of InferiorThread.is_running () -> Boolean.
 195    Return whether the thread is running.  */
 196 static PyObject *
 197 thpy_is_running (PyObject *self, PyObject *args)
 198 {
 199   thread_object *thread_obj = (thread_object *) self;
 200
 201   THPY_REQUIRE_VALID (thread_obj);
 202
 203   if (is_running (thread_obj->thread->ptid))
 204     Py_RETURN_TRUE;
 205
 206   Py_RETURN_FALSE;
 207 }
 208
 209 /* Implementation of InferiorThread.is_exited () -> Boolean.
 210    Return whether the thread is exited.  */
 211 static PyObject *
 212 thpy_is_exited (PyObject *self, PyObject *args)
 213 {
 214   thread_object *thread_obj = (thread_object *) self;
 215
 216   THPY_REQUIRE_VALID (thread_obj);
 217
 218   if (is_exited (thread_obj->thread->ptid))
 219     Py_RETURN_TRUE;
 220
 221   Py_RETURN_FALSE;
 222 }
 223
 224 /* Implementation of gdb.InfThread.is_valid (self) -> Boolean.
 225    Returns True if this inferior Thread object still exists
 226    in GDB.  */
 227
 228 static PyObject *
 229 thpy_is_valid (PyObject *self, PyObject *args)
 230 {
 231   thread_object *thread_obj = (thread_object *) self;
 232
 233   if (! thread_obj->thread)
 234     Py_RETURN_FALSE;
 235
 236   Py_RETURN_TRUE;
 237 }
 238
 239 /* Implementation of gdb.selected_thread () -> gdb.InferiorThread.
 240    Returns the selected thread object.  */
 241 PyObject *
 242 gdbpy_selected_thread (PyObject *self, PyObject *args)
 243 {
 244   PyObject *thread_obj;
 245
 246   thread_obj = (PyObject *) find_thread_object (inferior_ptid);
 247   if (thread_obj)
 248     {
 249       Py_INCREF (thread_obj);
 250       return thread_obj;
 251     }
 252
 253   Py_RETURN_NONE;
 254 }
 255
 256
 257
 258 void
 259 gdbpy_initialize_thread (void)
 260 {
 261   if (PyType_Ready (&thread_object_type) < 0)
 262     return;
 263
 264   Py_INCREF (&thread_object_type);
 265   PyModule_AddObject (gdb_module, "InferiorThread",
 266                       (PyObject *) &thread_object_type);
 267 }
 268
 269
 270
 271 static PyGetSetDef thread_object_getset[] =
 272 {
 273   { "name", thpy_get_name, thpy_set_name,
 274     "The name of the thread, as set by the user or the OS.", NULL },
 275   { "num", thpy_get_num, NULL, "ID of the thread, as assigned by GDB.", NULL },
 276   { "ptid", thpy_get_ptid, NULL, "ID of the thread, as assigned by the OS.",
 277     NULL },
 278
 279   { NULL }
 280 };
 281
 282 static PyMethodDef thread_object_methods[] =
 283 {
 284   { "is_valid", thpy_is_valid, METH_NOARGS,
 285     "is_valid () -> Boolean.\n\
 286 Return true if this inferior thread is valid, false if not." },
 287   { "switch", thpy_switch, METH_NOARGS,
 288     "switch ()\n\
 289 Makes this the GDB selected thread." },
 290   { "is_stopped", thpy_is_stopped, METH_NOARGS,
 291     "is_stopped () -> Boolean\n\
 292 Return whether the thread is stopped." },
 293   { "is_running", thpy_is_running, METH_NOARGS,
 294     "is_running () -> Boolean\n\
 295 Return whether the thread is running." },
 296   { "is_exited", thpy_is_exited, METH_NOARGS,
 297     "is_exited () -> Boolean\n\
 298 Return whether the thread is exited." },
 299
 300   { NULL }
 301 };
 302
 303 static PyTypeObject thread_object_type =
 304 {
 305   PyObject_HEAD_INIT (NULL)
 306   0,                              /*ob_size*/
 307   "gdb.InferiorThread",           /*tp_name*/
 308   sizeof (thread_object),         /*tp_basicsize*/
 309   0,                              /*tp_itemsize*/
 310   thpy_dealloc,                   /*tp_dealloc*/
 311   0,                              /*tp_print*/
 312   0,                              /*tp_getattr*/
 313   0,                              /*tp_setattr*/
 314   0,                              /*tp_compare*/
 315   0,                              /*tp_repr*/
 316   0,                              /*tp_as_number*/
 317   0,                              /*tp_as_sequence*/
 318   0,                              /*tp_as_mapping*/
 319   0,                              /*tp_hash */
 320   0,                              /*tp_call*/
 321   0,                              /*tp_str*/
 322   0,                              /*tp_getattro*/
 323   0,                              /*tp_setattro*/
 324   0,                              /*tp_as_buffer*/
 325   Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_ITER,  /*tp_flags*/
 326   "GDB thread object",            /* tp_doc */
 327   0,                              /* tp_traverse */
 328   0,                              /* tp_clear */
 329   0,                              /* tp_richcompare */
 330   0,                              /* tp_weaklistoffset */
 331   0,                              /* tp_iter */
 332   0,                              /* tp_iternext */
 333   thread_object_methods,          /* tp_methods */
 334   0,                              /* tp_members */
 335   thread_object_getset,           /* tp_getset */
 336   0,                              /* tp_base */
 337   0,                              /* tp_dict */
 338   0,                              /* tp_descr_get */
 339   0,                              /* tp_descr_set */
 340   0,                              /* tp_dictoffset */
 341   0,                              /* tp_init */
 342   0                               /* tp_alloc */
 343 };