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