plugins/profiler/gprof-call-graph-block.c

   1 /* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
   2 /*
   3  * gprof-call-graph-block.c
   4  * Copyright (C) James Liggett 2006 <jrliggett@cox.net>
   5  *
   6  * gprof-call-graph-block.c is free software.
   7  *
   8  * You may redistribute it and/or modify it under the terms of the
   9  * GNU General Public License, as published by the Free Software
  10  * Foundation; either version 2, or (at your option) any later version.
  11  *
  12  * plugin.c 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.
  15  * See the GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with plugin.c.  See the file "COPYING".  If not,
  19  * write to:  The Free Software Foundation, Inc.,
  20  *            51 Franklin Street, Fifth Floor,
  21  *            Boston,  MA  02110-1301, USA.
  22  */
  23
  24 #include "gprof-call-graph-block.h"
  25
  26 struct _GProfCallGraphBlockPriv
  27 {
  28         GProfCallGraphBlockEntry *primary_entry;  /* Function this block refers to */
  29         GList *parents;                                                   /* Functions that call this one */
  30         GList *children;                                                  /* Function that this one calls */
  31         GHashTable *lookup_set;                                   /* Used to determine if this
  32                                                                                            * function is recursive */
  33 };
  34
  35 static void
  36 gprof_call_graph_block_init (GProfCallGraphBlock *self)
  37 {
  38         self->priv = g_new0 (GProfCallGraphBlockPriv, 1);
  39
  40         self->priv->lookup_set = g_hash_table_new (g_str_hash, g_str_equal);
  41 }
  42
  43 static void
  44 gprof_call_graph_block_finalize (GObject *obj)
  45 {
  46         GProfCallGraphBlock *self;
  47         GList *current;
  48
  49         self = (GProfCallGraphBlock *) obj;
  50
  51         gprof_call_graph_block_entry_free (self->priv->primary_entry);
  52
  53         current = self->priv->parents;
  54
  55         while (current)
  56         {
  57                 gprof_call_graph_block_entry_free (GPROF_CALL_GRAPH_BLOCK_ENTRY (current->data));
  58                 current = g_list_next (current);
  59         }
  60
  61         g_list_free (self->priv->parents);
  62
  63         current = self->priv->children;
  64
  65         while (current)
  66         {
  67                 gprof_call_graph_block_entry_free (GPROF_CALL_GRAPH_BLOCK_ENTRY (current->data));
  68                 current = g_list_next (current);
  69         }
  70
  71         g_list_free (self->priv->children);
  72
  73         g_hash_table_destroy (self->priv->lookup_set);
  74
  75         g_free (self->priv);
  76 }
  77
  78 static void
  79 gprof_call_graph_block_class_init (GProfCallGraphBlockClass *klass)
  80 {
  81         GObjectClass *object_class;
  82
  83         object_class = (GObjectClass *) klass;
  84
  85         object_class->finalize = gprof_call_graph_block_finalize;
  86 }
  87
  88 GType
  89 gprof_call_graph_block_get_type (void)
  90 {
  91         static GType obj_type = 0;
  92
  93         if (!obj_type)
  94         {
  95                 static const GTypeInfo obj_info =
  96                 {
  97                         sizeof (GProfCallGraphBlockClass),
  98                         (GBaseInitFunc) NULL,
  99                         (GBaseFinalizeFunc) NULL,
 100                         (GClassInitFunc) gprof_call_graph_block_class_init,
 101                         (GClassFinalizeFunc) NULL,
 102                         NULL,           /* class_data */
 103                         sizeof (GProfCallGraphBlock),
 104                         0,              /* n_preallocs */
 105                         (GInstanceInitFunc) gprof_call_graph_block_init,
 106                         NULL            /* value_table */
 107                 };
 108                 obj_type = g_type_register_static (G_TYPE_OBJECT,
 109                                                    "GProfCallGraphBlock", &obj_info,
 110                                                                                         0);
 111         }
 112         return obj_type;
 113 }
 114
 115 GProfCallGraphBlock *
 116 gprof_call_graph_block_new (void)
 117 {
 118         return g_object_new (GPROF_CALL_GRAPH_BLOCK_TYPE, NULL);
 119 }
 120
 121 void
 122 gprof_call_graph_block_free (GProfCallGraphBlock *self)
 123 {
 124         g_object_unref (self);
 125 }
 126
 127 void
 128 gprof_call_graph_block_add_primary_entry (GProfCallGraphBlock *self,
 129                                                                                   GProfCallGraphBlockEntry *entry)
 130 {
 131         if (!self->priv->primary_entry)
 132                 self->priv->primary_entry = entry;
 133 }
 134
 135 void
 136 gprof_call_graph_block_add_parent_entry (GProfCallGraphBlock *self,
 137                                                                                  GProfCallGraphBlockEntry *entry)
 138 {
 139         self->priv->parents = g_list_append (self->priv->parents, entry);
 140         g_hash_table_insert (self->priv->lookup_set,
 141                                                  gprof_call_graph_block_entry_get_name (entry), NULL);
 142 }
 143
 144 void
 145 gprof_call_graph_block_add_child_entry (GProfCallGraphBlock *self,
 146                                                                                 GProfCallGraphBlockEntry *entry)
 147 {
 148         self->priv->children = g_list_append (self->priv->children, entry);
 149         g_hash_table_insert (self->priv->lookup_set,
 150                                                  gprof_call_graph_block_entry_get_name (entry), NULL);
 151 }
 152
 153 GProfCallGraphBlockEntry *
 154 gprof_call_graph_block_get_primary_entry (GProfCallGraphBlock *self)
 155 {
 156         return self->priv->primary_entry;
 157 }
 158
 159 gboolean
 160 gprof_call_graph_block_has_parents (GProfCallGraphBlock *self)
 161 {
 162         return (self->priv->parents != NULL);
 163 }
 164
 165 gboolean
 166 gprof_call_graph_block_has_children (GProfCallGraphBlock *self)
 167 {
 168         return (self->priv->children != NULL);
 169 }
 170
 171 GProfCallGraphBlockEntry *
 172 gprof_call_graph_block_get_first_child (GProfCallGraphBlock *self,
 173                                                                                 GList **iter)
 174 {
 175         *iter = self->priv->children;
 176
 177         if (self->priv->children)
 178                 return GPROF_CALL_GRAPH_BLOCK_ENTRY ((*iter)->data);
 179         else
 180                 return NULL;
 181 }
 182
 183 GProfCallGraphBlockEntry *
 184 gprof_call_graph_block_get_first_parent (GProfCallGraphBlock *self,
 185                                                                                  GList **iter)
 186 {
 187         *iter = self->priv->parents;
 188
 189         if (self->priv->parents)
 190                 return GPROF_CALL_GRAPH_BLOCK_ENTRY ((*iter)->data);
 191         else
 192                 return NULL;
 193 }
 194
 195 gboolean
 196 gprof_call_graph_block_is_recursive (GProfCallGraphBlock *self)
 197 {
 198         gchar *name;
 199
 200         name = gprof_call_graph_block_entry_get_name (self->priv->primary_entry);
 201
 202         /* Determine if this block refers to a recursive function.
 203          * Recursive blocks are those whose primary entry also is a parent
 204          * or child of the primary. */
 205         return g_hash_table_lookup_extended (self->priv->lookup_set, name, NULL,
 206                                                                                  NULL);
 207 }
 208
 209 GProfCallGraphBlock *
 210 gprof_call_graph_block_get_next (GList *current_iter, GList **next_iter)
 211 {
 212         *next_iter = g_list_next (current_iter);
 213
 214         if (*next_iter)
 215                 return GPROF_CALL_GRAPH_BLOCK ((*next_iter)->data);
 216         else
 217                 return NULL;
 218 }