ltt/branches/poly/lttv/modules/gui/controlflow/processlist.c

   1 /* This file is part of the Linux Trace Toolkit viewer
   2  * Copyright (C) 2003-2004 Mathieu Desnoyers
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License Version 2 as
   6  * published by the Free Software Foundation;
   7  *
   8  * This program is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with this program; if not, write to the Free Software
  15  * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  16  * MA 02111-1307, USA.
  17  */
  18
  19 #include <gtk/gtk.h>
  20 #include <glib.h>
  21 #include <string.h>
  22 #include <stdlib.h>
  23 #include <math.h>
  24
  25 #include "processlist.h"
  26 #include "drawing.h"
  27 #include "drawitem.h"
  28
  29 #define g_info(format...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_INFO, format)
  30 #define g_debug(format...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_DEBUG, format)
  31
  32 /* Preallocated Size of the index_to_pixmap array */
  33 #define ALLOCATE_PROCESSES 1000
  34
  35 /*****************************************************************************
  36  *                       Methods to synchronize process list                 *
  37  *****************************************************************************/
  38
  39
  40 gint process_sort_func  ( GtkTreeModel *model,
  41         GtkTreeIter *it_a,
  42         GtkTreeIter *it_b,
  43         gpointer user_data)
  44 {
  45   gchar *a_name;
  46   guint a_pid, a_ppid, a_cpu;
  47   gulong a_birth_s, a_birth_ns;
  48   gulong a_trace;
  49
  50   gchar *b_name;
  51   guint b_pid, b_ppid, b_cpu;
  52   gulong b_birth_s, b_birth_ns;
  53   gulong b_trace;
  54
  55   gtk_tree_model_get(model,
  56            it_a,
  57            0, &a_name,
  58            1, &a_pid,
  59            2, &a_ppid,
  60            3, &a_cpu,
  61            4, &a_birth_s,
  62            5, &a_birth_ns,
  63            6, &a_trace,
  64            -1);
  65
  66   gtk_tree_model_get(model,
  67            it_b,
  68            0, &b_name,
  69            1, &b_pid,
  70            2, &b_ppid,
  71            3, &b_cpu,
  72            4, &b_birth_s,
  73            5, &b_birth_ns,
  74            6, &b_trace,
  75            -1);
  76
  77
  78   /* Order by PID */
  79   if(a_pid == 0 &&  b_pid == 0) {
  80     /* If 0, order by CPU */
  81     if(a_cpu > b_cpu) return 1;
  82     if(a_cpu < b_cpu) return -1;
  83
  84   } else { /* if not 0, order by pid */
  85
  86     if(a_pid > b_pid) return 1;
  87     if(a_pid < b_pid) return -1;
  88   }
  89
  90   /* Order by birth second */
  91
  92   if(a_birth_s > b_birth_s) return 1;
  93   if(a_birth_s < b_birth_s) return -1;
  94
  95
  96   /* Order by birth nanosecond */
  97   if(a_birth_ns > b_birth_ns) return 1;
  98   if(a_birth_ns < b_birth_ns) return -1;
  99
 100   /* Order by trace_num */
 101   if(a_trace > b_trace) return 1;
 102   if(a_trace < b_trace) return -1;
 103
 104   return 0;
 105
 106 }
 107
 108 static guint process_list_hash_fct(gconstpointer key)
 109 {
 110   guint pid = ((const ProcessInfo*)key)->pid;
 111   return ((pid>>8 ^ pid>>4 ^ pid>>2 ^ pid) ^ ((const ProcessInfo*)key)->cpu);
 112 }
 113
 114 /* If hash is good, should be different */
 115 static gboolean process_list_equ_fct(gconstpointer a, gconstpointer b)
 116 {
 117   const ProcessInfo *pa = (const ProcessInfo*)a;
 118   const ProcessInfo *pb = (const ProcessInfo*)b;
 119
 120   gboolean ret = TRUE;
 121
 122   if(likely(pa->pid != pb->pid))
 123     ret = FALSE;
 124   else if(likely((pa->pid == 0 && (pa->cpu != pb->cpu))))
 125     ret = FALSE;
 126   else if(unlikely(ltt_time_compare(pa->birth, pb->birth) != 0))
 127     ret = FALSE;
 128   else if(unlikely(pa->trace_num != pb->trace_num))
 129     ret = FALSE;
 130
 131   return ret;
 132 }
 133
 134 void destroy_hash_key(gpointer key);
 135
 136 void destroy_hash_data(gpointer data);
 137
 138
 139 static void update_index_to_pixmap_each(ProcessInfo *key,
 140                                         HashedProcessData *value,
 141                                         ProcessList *process_list)
 142 {
 143   guint array_index = processlist_get_index_from_data(process_list, value);
 144
 145   g_assert(array_index < process_list->index_to_pixmap->len);
 146
 147   GdkPixmap **pixmap =
 148     (GdkPixmap**)&g_ptr_array_index(process_list->index_to_pixmap, array_index);
 149
 150   *pixmap = value->pixmap;
 151 }
 152
 153
 154 void update_index_to_pixmap(ProcessList *process_list)
 155 {
 156   g_ptr_array_set_size(process_list->index_to_pixmap,
 157                        g_hash_table_size(process_list->process_hash));
 158   g_hash_table_foreach(process_list->process_hash,
 159                        (GHFunc)update_index_to_pixmap_each,
 160                        process_list);
 161 }
 162
 163
 164 static void update_pixmap_size_each(ProcessInfo *key,
 165                                     HashedProcessData *value,
 166                                     guint width)
 167 {
 168   GdkPixmap *old_pixmap = value->pixmap;
 169
 170   value->pixmap =
 171         gdk_pixmap_new(old_pixmap,
 172                        width,
 173                        value->height,
 174                        -1);
 175
 176   gdk_pixmap_unref(old_pixmap);
 177 }
 178
 179
 180 void update_pixmap_size(ProcessList *process_list, guint width)
 181 {
 182   g_hash_table_foreach(process_list->process_hash,
 183                        (GHFunc)update_pixmap_size_each,
 184                        (gpointer)width);
 185 }
 186
 187
 188 typedef struct _CopyPixmap {
 189   GdkDrawable *dest;
 190   GdkGC *gc;
 191   GdkDrawable *src;
 192   gint xsrc, ysrc, xdest, ydest, width, height;
 193 } CopyPixmap;
 194
 195 static void copy_pixmap_region_each(ProcessInfo *key,
 196                                     HashedProcessData *value,
 197                                     CopyPixmap *cp)
 198 {
 199   GdkPixmap *src = cp->src;
 200   GdkPixmap *dest = cp->dest;
 201
 202   if(dest == NULL)
 203     dest = value->pixmap;
 204   if(src == NULL)
 205     src = value->pixmap;
 206
 207   gdk_draw_drawable (dest,
 208       cp->gc,
 209       src,
 210       cp->xsrc, cp->ysrc,
 211       cp->xdest, cp->ydest,
 212       cp->width, cp->height);
 213 }
 214
 215
 216
 217
 218 void copy_pixmap_region(ProcessList *process_list, GdkDrawable *dest,
 219     GdkGC *gc, GdkDrawable *src,
 220     gint xsrc, gint ysrc,
 221     gint xdest, gint ydest, gint width, gint height)
 222 {
 223   CopyPixmap cp = { dest, gc, src, xsrc, ysrc, xdest, ydest, width, height };
 224
 225   g_hash_table_foreach(process_list->process_hash,
 226                        (GHFunc)copy_pixmap_region_each,
 227                        &cp);
 228 }
 229
 230
 231
 232 typedef struct _RectanglePixmap {
 233   gboolean filled;
 234   gint x, y, width, height;
 235   GdkGC *gc;
 236 } RectanglePixmap;
 237
 238 static void rectangle_pixmap_each(ProcessInfo *key,
 239                                   HashedProcessData *value,
 240                                   RectanglePixmap *rp)
 241 {
 242   if(rp->height == -1)
 243     rp->height = value->height;
 244
 245   gdk_draw_rectangle (value->pixmap,
 246       rp->gc,
 247       rp->filled,
 248       rp->x, rp->y,
 249       rp->width, rp->height);
 250 }
 251
 252
 253
 254
 255 void rectangle_pixmap(ProcessList *process_list, GdkGC *gc,
 256     gboolean filled, gint x, gint y, gint width, gint height)
 257 {
 258   RectanglePixmap rp = { filled, x, y, width, height, gc };
 259
 260   g_hash_table_foreach(process_list->process_hash,
 261                        (GHFunc)rectangle_pixmap_each,
 262                        &rp);
 263 }
 264
 265
 266 /* Renders each pixmaps into on big drawable */
 267 void copy_pixmap_to_screen(ProcessList *process_list,
 268     GdkDrawable *dest,
 269     GdkGC *gc,
 270     gint x, gint y,
 271     gint width, gint height)
 272 {
 273   if(process_list->index_to_pixmap->len == 0) return;
 274   guint cell_height = process_list->cell_height;
 275
 276   /* Get indexes */
 277   gint begin = floor(y/(double)cell_height);
 278   gint end = MIN(ceil((y+height)/(double)cell_height),
 279                  process_list->index_to_pixmap->len);
 280   gint i;
 281
 282   for(i=begin; i<end; i++) {
 283     g_assert(i<process_list->index_to_pixmap->len);
 284     /* Render the pixmap to the screen */
 285     GdkPixmap *pixmap =
 286       (GdkPixmap*)g_ptr_array_index(process_list->index_to_pixmap, i);
 287
 288     gdk_draw_drawable (dest,
 289         gc,
 290         pixmap,
 291         x, 0,
 292         x, i*cell_height,
 293         width, cell_height);
 294
 295   }
 296
 297
 298 }
 299
 300
 301
 302
 303
 304
 305
 306
 307
 308 ProcessList *processlist_construct(void)
 309 {
 310   GtkTreeViewColumn *column;
 311   GtkCellRenderer *renderer;
 312
 313   ProcessList* process_list = g_new(ProcessList,1);
 314
 315   process_list->number_of_process = 0;
 316
 317   process_list->current_hash_data = NULL;
 318
 319   /* Create the Process list */
 320   process_list->list_store = gtk_list_store_new (  N_COLUMNS,
 321               G_TYPE_STRING,
 322               G_TYPE_UINT,
 323               G_TYPE_UINT,
 324               G_TYPE_UINT,
 325               G_TYPE_ULONG,
 326               G_TYPE_ULONG,
 327               G_TYPE_ULONG);
 328
 329
 330   process_list->process_list_widget =
 331     gtk_tree_view_new_with_model
 332     (GTK_TREE_MODEL (process_list->list_store));
 333
 334   g_object_unref (G_OBJECT (process_list->list_store));
 335
 336   gtk_tree_sortable_set_default_sort_func(
 337       GTK_TREE_SORTABLE(process_list->list_store),
 338       process_sort_func,
 339       NULL,
 340       NULL);
 341
 342
 343   gtk_tree_sortable_set_sort_column_id(
 344       GTK_TREE_SORTABLE(process_list->list_store),
 345       GTK_TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID,
 346       GTK_SORT_ASCENDING);
 347
 348
 349   process_list->process_hash = g_hash_table_new_full(
 350       process_list_hash_fct, process_list_equ_fct,
 351       destroy_hash_key, destroy_hash_data
 352       );
 353
 354
 355   gtk_tree_view_set_headers_visible(
 356     GTK_TREE_VIEW(process_list->process_list_widget), TRUE);
 357
 358   /* Create a column, associating the "text" attribute of the
 359    * cell_renderer to the first column of the model */
 360   /* Columns alignment : 0.0 : Left    0.5 : Center   1.0 : Right */
 361   renderer = gtk_cell_renderer_text_new ();
 362   process_list->renderer = renderer;
 363
 364   gtk_cell_renderer_get_size(renderer,
 365       GTK_WIDGET(process_list->process_list_widget),
 366       NULL,
 367       NULL,
 368       NULL,
 369       NULL,
 370       &process_list->cell_height);
 371
 372   guint ypad;
 373   g_object_get(G_OBJECT(renderer), "ypad", &ypad, NULL);
 374
 375   process_list->cell_height += ypad;
 376
 377   column = gtk_tree_view_column_new_with_attributes ( "Process",
 378                 renderer,
 379                 "text",
 380                 PROCESS_COLUMN,
 381                 NULL);
 382   gtk_tree_view_column_set_alignment (column, 0.0);
 383   gtk_tree_view_column_set_fixed_width (column, 45);
 384   gtk_tree_view_append_column (
 385     GTK_TREE_VIEW (process_list->process_list_widget), column);
 386
 387   process_list->button = column->button;
 388
 389   column = gtk_tree_view_column_new_with_attributes ( "PID",
 390                 renderer,
 391                 "text",
 392                 PID_COLUMN,
 393                 NULL);
 394   gtk_tree_view_append_column (
 395     GTK_TREE_VIEW (process_list->process_list_widget), column);
 396
 397   column = gtk_tree_view_column_new_with_attributes ( "PPID",
 398                 renderer,
 399                 "text",
 400                 PPID_COLUMN,
 401                 NULL);
 402   gtk_tree_view_append_column (
 403     GTK_TREE_VIEW (process_list->process_list_widget), column);
 404
 405   column = gtk_tree_view_column_new_with_attributes ( "CPU",
 406                 renderer,
 407                 "text",
 408                 CPU_COLUMN,
 409                 NULL);
 410   gtk_tree_view_append_column (
 411     GTK_TREE_VIEW (process_list->process_list_widget), column);
 412
 413   column = gtk_tree_view_column_new_with_attributes ( "Birth sec",
 414                 renderer,
 415                 "text",
 416                 BIRTH_S_COLUMN,
 417                 NULL);
 418   gtk_tree_view_append_column (
 419     GTK_TREE_VIEW (process_list->process_list_widget), column);
 420
 421   //gtk_tree_view_column_set_visible(column, 0);
 422   //
 423   column = gtk_tree_view_column_new_with_attributes ( "Birth nsec",
 424                 renderer,
 425                 "text",
 426                 BIRTH_NS_COLUMN,
 427                 NULL);
 428   gtk_tree_view_append_column (
 429     GTK_TREE_VIEW (process_list->process_list_widget), column);
 430
 431   column = gtk_tree_view_column_new_with_attributes ( "TRACE",
 432                 renderer,
 433                 "text",
 434                 TRACE_COLUMN,
 435                 NULL);
 436   gtk_tree_view_append_column (
 437     GTK_TREE_VIEW (process_list->process_list_widget), column);
 438
 439
 440   //gtk_tree_view_column_set_visible(column, 0);
 441
 442   g_object_set_data_full(
 443       G_OBJECT(process_list->process_list_widget),
 444       "process_list_Data",
 445       process_list,
 446       (GDestroyNotify)processlist_destroy);
 447
 448   process_list->index_to_pixmap = g_ptr_array_sized_new(ALLOCATE_PROCESSES);
 449
 450   return process_list;
 451 }
 452
 453 void processlist_destroy(ProcessList *process_list)
 454 {
 455   g_debug("processlist_destroy %p", process_list);
 456   g_hash_table_destroy(process_list->process_hash);
 457   process_list->process_hash = NULL;
 458   g_ptr_array_free(process_list->index_to_pixmap, TRUE);
 459
 460   g_free(process_list);
 461   g_debug("processlist_destroy end");
 462 }
 463
 464 static gboolean remove_hash_item(ProcessInfo *process_info,
 465                                  HashedProcessData *hashed_process_data,
 466                                  ProcessList *process_list)
 467 {
 468   GtkTreeIter iter;
 469
 470   iter = hashed_process_data->y_iter;
 471
 472   gtk_list_store_remove (process_list->list_store, &iter);
 473   gdk_pixmap_unref(hashed_process_data->pixmap);
 474
 475   if(likely(process_list->current_hash_data != NULL)) {
 476     if(likely(hashed_process_data ==
 477                 process_list->current_hash_data[process_info->cpu]))
 478       process_list->current_hash_data[process_info->cpu] = NULL;
 479   }
 480   return TRUE; /* remove the element from the hash table */
 481 }
 482
 483 void processlist_clear(ProcessList *process_list)
 484 {
 485   g_info("processlist_clear %p", process_list);
 486
 487   g_hash_table_foreach_remove(process_list->process_hash,
 488                               (GHRFunc)remove_hash_item,
 489                               (gpointer)process_list);
 490   process_list->number_of_process = 0;
 491   update_index_to_pixmap(process_list);
 492 }
 493
 494
 495 GtkWidget *processlist_get_widget(ProcessList *process_list)
 496 {
 497   return process_list->process_list_widget;
 498 }
 499
 500
 501 void destroy_hash_key(gpointer key)
 502 {
 503   g_free(key);
 504 }
 505
 506 void destroy_hash_data(gpointer data)
 507 {
 508   g_free(data);
 509 }
 510
 511 int processlist_add(  ProcessList *process_list,
 512       Drawing_t *drawing,
 513       guint pid,
 514       guint cpu,
 515       guint ppid,
 516       LttTime *birth,
 517       guint trace_num,
 518       const gchar *name,
 519       guint *height,
 520       ProcessInfo **pm_process_info,
 521       HashedProcessData **pm_hashed_process_data)
 522 {
 523   ProcessInfo *Process_Info = g_new(ProcessInfo, 1);
 524   HashedProcessData *hashed_process_data = g_new(HashedProcessData, 1);
 525   *pm_hashed_process_data = hashed_process_data;
 526   *pm_process_info = Process_Info;
 527
 528   Process_Info->pid = pid;
 529   if(pid == 0)
 530     Process_Info->cpu = cpu;
 531   else
 532     Process_Info->cpu = 0;
 533   Process_Info->ppid = ppid;
 534   Process_Info->birth = *birth;
 535   Process_Info->trace_num = trace_num;
 536
 537   /* When we create it from before state update, we are sure that the
 538    * last event occured before the beginning of the global area.
 539    *
 540    * If it is created after state update, this value (0) will be
 541    * overriden by the new state before anything is drawn.
 542    */
 543   hashed_process_data->x.over = 0;
 544   hashed_process_data->x.over_used = FALSE;
 545   hashed_process_data->x.over_marked = FALSE;
 546   hashed_process_data->x.middle = 0;
 547   hashed_process_data->x.middle_used = FALSE;
 548   hashed_process_data->x.middle_marked = FALSE;
 549   hashed_process_data->x.under = 0;
 550   hashed_process_data->x.under_used = FALSE;
 551   hashed_process_data->x.under_marked = FALSE;
 552   hashed_process_data->next_good_time = ltt_time_zero;
 553
 554   /* Add a new row to the model */
 555   gtk_list_store_append ( process_list->list_store,
 556                           &hashed_process_data->y_iter);
 557
 558   gtk_list_store_set (  process_list->list_store, &hashed_process_data->y_iter,
 559         PROCESS_COLUMN, name,
 560         PID_COLUMN, pid,
 561         PPID_COLUMN, ppid,
 562         CPU_COLUMN, cpu,
 563         BIRTH_S_COLUMN, birth->tv_sec,
 564         BIRTH_NS_COLUMN, birth->tv_nsec,
 565         TRACE_COLUMN, trace_num,
 566         -1);
 567   //gtk_tree_view_set_model(GTK_TREE_VIEW(process_list->process_list_widget),
 568   //                        GTK_TREE_MODEL(process_list->list_store));
 569   //gtk_container_resize_children(GTK_CONTAINER(process_list->process_list_widget));
 570
 571   g_hash_table_insert(process_list->process_hash,
 572         (gpointer)Process_Info,
 573         (gpointer)hashed_process_data);
 574
 575   process_list->number_of_process++;
 576
 577   hashed_process_data->height = process_list->cell_height;
 578
 579   g_assert(hashed_process_data->height != 0);
 580
 581   *height = hashed_process_data->height * process_list->number_of_process;
 582
 583   hashed_process_data->pixmap =
 584         gdk_pixmap_new(drawing->drawing_area->window,
 585                        drawing->alloc_width,
 586                        hashed_process_data->height,
 587                        -1);
 588
 589   // Clear the image
 590   gdk_draw_rectangle (hashed_process_data->pixmap,
 591         drawing->drawing_area->style->black_gc,
 592         TRUE,
 593         0, 0,
 594         drawing->alloc_width,
 595         hashed_process_data->height);
 596
 597   update_index_to_pixmap(process_list);
 598
 599
 600   return 0;
 601 }
 602
 603 int processlist_remove( ProcessList *process_list,
 604       guint pid,
 605       guint cpu,
 606       LttTime *birth,
 607       guint trace_num)
 608 {
 609   ProcessInfo process_info;
 610   HashedProcessData *hashed_process_data;
 611   GtkTreeIter iter;
 612
 613   process_info.pid = pid;
 614   if(pid == 0)
 615     process_info.cpu = cpu;
 616   else
 617     process_info.cpu = 0;
 618   process_info.birth = *birth;
 619   process_info.trace_num = trace_num;
 620
 621
 622   hashed_process_data =
 623     (HashedProcessData*)g_hash_table_lookup(
 624           process_list->process_hash,
 625           &process_info);
 626   if(likely(hashed_process_data != NULL))
 627   {
 628     iter = hashed_process_data->y_iter;
 629
 630     gtk_list_store_remove (process_list->list_store, &iter);
 631
 632     g_hash_table_remove(process_list->process_hash,
 633         &process_info);
 634
 635     if(likely(process_list->current_hash_data != NULL)) {
 636       if(likely(hashed_process_data == process_list->current_hash_data[cpu])) {
 637         process_list->current_hash_data[cpu] = NULL;
 638       }
 639     }
 640
 641     gdk_pixmap_unref(hashed_process_data->pixmap);
 642
 643     update_index_to_pixmap(process_list);
 644
 645     process_list->number_of_process--;
 646
 647     return 0;
 648   } else {
 649     return 1;
 650   }
 651 }
 652
 653
 654 #if 0
 655 static inline guint get_cpu_number_from_name(GQuark name)
 656 {
 657   const gchar *string;
 658   char *begin;
 659   guint cpu;
 660
 661   string = g_quark_to_string(name);
 662
 663   begin = strrchr(string, '/');
 664   begin++;
 665
 666   g_assert(begin != '\0');
 667
 668   cpu = strtoul(begin, NULL, 10);
 669
 670   return cpu;
 671 }
 672 #endif //0