divelist.c

   1 /* divelist.c */
   2 /* this creates the UI for the dive list -
   3  * controlled through the following interfaces:
   4  *
   5  * void flush_divelist(struct dive *dive)
   6  * GtkWidget dive_list_create(void)
   7  * void dive_list_update_dives(void)
   8  * void update_dive_list_units(void)
   9  * void set_divelist_font(const char *font)
  10  * void mark_divelist_changed(int changed)
  11  * int unsaved_changes()
  12  */
  13 #include <stdio.h>
  14 #include <stdlib.h>
  15 #include <string.h>
  16 #include <time.h>
  17 #include <math.h>
  18
  19 #include "divelist.h"
  20 #include "dive.h"
  21 #include "display.h"
  22 #include "display-gtk.h"
  23
  24 struct DiveList {
  25         GtkWidget    *tree_view;
  26         GtkWidget    *container_widget;
  27         GtkListStore *model;
  28         GtkTreeViewColumn *nr, *date, *depth, *duration, *location;
  29         GtkTreeViewColumn *temperature, *cylinder, *nitrox, *sac, *otu;
  30         int changed;
  31 };
  32
  33 static struct DiveList dive_list;
  34
  35 /*
  36  * The dive list has the dive data in both string format (for showing)
  37  * and in "raw" format (for sorting purposes)
  38  */
  39 enum {
  40         DIVE_INDEX = 0,
  41         DIVE_NR,                /* int: dive->nr */
  42         DIVE_DATE,              /* time_t: dive->when */
  43         DIVE_DEPTH,             /* int: dive->maxdepth in mm */
  44         DIVE_DURATION,          /* int: in seconds */
  45         DIVE_TEMPERATURE,       /* int: in mkelvin */
  46         DIVE_CYLINDER,
  47         DIVE_NITROX,            /* int: in permille */
  48         DIVE_SAC,               /* int: in ml/min */
  49         DIVE_OTU,               /* int: in OTUs */
  50         DIVE_LOCATION,          /* "2nd Cathedral, Lanai" */
  51         DIVELIST_COLUMNS
  52 };
  53
  54 static GList *selected_dives;
  55
  56 static void selection_cb(GtkTreeSelection *selection, GtkTreeModel *model)
  57 {
  58         GtkTreeIter iter;
  59         GValue value = {0, };
  60         GtkTreePath *path;
  61
  62         int nr_selected = gtk_tree_selection_count_selected_rows(selection);
  63
  64         if (selected_dives) {
  65                 g_list_foreach (selected_dives, (GFunc) gtk_tree_path_free, NULL);
  66                 g_list_free (selected_dives);
  67         }
  68         selected_dives = gtk_tree_selection_get_selected_rows(selection, NULL);
  69
  70         switch (nr_selected) {
  71         case 0: /* keep showing the last selected dive */
  72                 return;
  73         case 1:
  74                 /* just pick that dive as selected */
  75                 path = g_list_nth_data(selected_dives, 0);
  76                 if (gtk_tree_model_get_iter(model, &iter, path)) {
  77                         gtk_tree_model_get_value(model, &iter, DIVE_INDEX, &value);
  78                         selected_dive = g_value_get_int(&value);
  79                         repaint_dive();
  80                 }
  81                 return;
  82         default: /* multiple selections - what now? At this point I
  83                   * don't want to change the selected dive unless
  84                   * there is exactly one dive selected; not sure this
  85                   * is the most intuitive solution.
  86                   * I do however want to keep around which dives have
  87                   * been selected */
  88                 return;
  89         }
  90 }
  91
  92 static void date_data_func(GtkTreeViewColumn *col,
  93                            GtkCellRenderer *renderer,
  94                            GtkTreeModel *model,
  95                            GtkTreeIter *iter,
  96                            gpointer data)
  97 {
  98         int val;
  99         struct tm *tm;
 100         time_t when;
 101         char buffer[40];
 102
 103         gtk_tree_model_get(model, iter, DIVE_DATE, &val, -1);
 104
 105         /* 2038 problem */
 106         when = val;
 107
 108         tm = gmtime(&when);
 109         snprintf(buffer, sizeof(buffer),
 110                 "%s, %s %d, %d %02d:%02d",
 111                 weekday(tm->tm_wday),
 112                 monthname(tm->tm_mon),
 113                 tm->tm_mday, tm->tm_year + 1900,
 114                 tm->tm_hour, tm->tm_min);
 115         g_object_set(renderer, "text", buffer, NULL);
 116 }
 117
 118 static void depth_data_func(GtkTreeViewColumn *col,
 119                             GtkCellRenderer *renderer,
 120                             GtkTreeModel *model,
 121                             GtkTreeIter *iter,
 122                             gpointer data)
 123 {
 124         int depth, integer, frac, len;
 125         char buffer[40];
 126
 127         gtk_tree_model_get(model, iter, DIVE_DEPTH, &depth, -1);
 128
 129         switch (output_units.length) {
 130         case METERS:
 131                 /* To tenths of meters */
 132                 depth = (depth + 49) / 100;
 133                 integer = depth / 10;
 134                 frac = depth % 10;
 135                 if (integer < 20)
 136                         break;
 137                 frac = -1;
 138                 /* Rounding? */
 139                 break;
 140         case FEET:
 141                 integer = mm_to_feet(depth) + 0.5;
 142                 frac = -1;
 143                 break;
 144         default:
 145                 return;
 146         }
 147         len = snprintf(buffer, sizeof(buffer), "%d", integer);
 148         if (frac >= 0)
 149                 len += snprintf(buffer+len, sizeof(buffer)-len, ".%d", frac);
 150
 151         g_object_set(renderer, "text", buffer, NULL);
 152 }
 153
 154 static void duration_data_func(GtkTreeViewColumn *col,
 155                                GtkCellRenderer *renderer,
 156                                GtkTreeModel *model,
 157                                GtkTreeIter *iter,
 158                                gpointer data)
 159 {
 160         unsigned int sec;
 161         char buffer[16];
 162
 163         gtk_tree_model_get(model, iter, DIVE_DURATION, &sec, -1);
 164         snprintf(buffer, sizeof(buffer), "%d:%02d", sec / 60, sec % 60);
 165
 166         g_object_set(renderer, "text", buffer, NULL);
 167 }
 168
 169 static void temperature_data_func(GtkTreeViewColumn *col,
 170                                   GtkCellRenderer *renderer,
 171                                   GtkTreeModel *model,
 172                                   GtkTreeIter *iter,
 173                                   gpointer data)
 174 {
 175         int value;
 176         char buffer[80];
 177
 178         gtk_tree_model_get(model, iter, DIVE_TEMPERATURE, &value, -1);
 179
 180         *buffer = 0;
 181         if (value) {
 182                 double deg;
 183                 switch (output_units.temperature) {
 184                 case CELSIUS:
 185                         deg = mkelvin_to_C(value);
 186                         break;
 187                 case FAHRENHEIT:
 188                         deg = mkelvin_to_F(value);
 189                         break;
 190                 default:
 191                         return;
 192                 }
 193                 snprintf(buffer, sizeof(buffer), "%.1f", deg);
 194         }
 195
 196         g_object_set(renderer, "text", buffer, NULL);
 197 }
 198
 199 static void nitrox_data_func(GtkTreeViewColumn *col,
 200                              GtkCellRenderer *renderer,
 201                              GtkTreeModel *model,
 202                              GtkTreeIter *iter,
 203                              gpointer data)
 204 {
 205         int value;
 206         char buffer[80];
 207
 208         gtk_tree_model_get(model, iter, DIVE_NITROX, &value, -1);
 209
 210         if (value)
 211                 snprintf(buffer, sizeof(buffer), "%.1f", value/10.0);
 212         else
 213                 strcpy(buffer, "air");
 214
 215         g_object_set(renderer, "text", buffer, NULL);
 216 }
 217
 218 /* Render the SAC data (integer value of "ml / min") */
 219 static void sac_data_func(GtkTreeViewColumn *col,
 220                           GtkCellRenderer *renderer,
 221                           GtkTreeModel *model,
 222                           GtkTreeIter *iter,
 223                           gpointer data)
 224 {
 225         int value;
 226         const double liters_per_cuft = 28.317;
 227         const char *fmt;
 228         char buffer[16];
 229         double sac;
 230
 231         gtk_tree_model_get(model, iter, DIVE_SAC, &value, -1);
 232
 233         if (!value) {
 234                 g_object_set(renderer, "text", "", NULL);
 235                 return;
 236         }
 237
 238         sac = value / 1000.0;
 239         switch (output_units.volume) {
 240         case LITER:
 241                 fmt = "%4.1f";
 242                 break;
 243         case CUFT:
 244                 fmt = "%4.2f";
 245                 sac /= liters_per_cuft;
 246                 break;
 247         }
 248         snprintf(buffer, sizeof(buffer), fmt, sac);
 249
 250         g_object_set(renderer, "text", buffer, NULL);
 251 }
 252
 253 /* Render the OTU data (integer value of "OTU") */
 254 static void otu_data_func(GtkTreeViewColumn *col,
 255                           GtkCellRenderer *renderer,
 256                           GtkTreeModel *model,
 257                           GtkTreeIter *iter,
 258                           gpointer data)
 259 {
 260         int value;
 261         char buffer[16];
 262
 263         gtk_tree_model_get(model, iter, DIVE_OTU, &value, -1);
 264
 265         if (!value) {
 266                 g_object_set(renderer, "text", "", NULL);
 267                 return;
 268         }
 269
 270         snprintf(buffer, sizeof(buffer), "%d", value);
 271
 272         g_object_set(renderer, "text", buffer, NULL);
 273 }
 274
 275 /* calculate OTU for a dive */
 276 static int calculate_otu(struct dive *dive)
 277 {
 278         int i;
 279         double otu = 0.0;
 280
 281         for (i = 1; i < dive->samples; i++) {
 282                 int t;
 283                 double po2;
 284                 struct sample *sample = dive->sample + i;
 285                 struct sample *psample = sample - 1;
 286                 t = sample->time.seconds - psample->time.seconds;
 287                 po2 = dive->cylinder[sample->cylinderindex].gasmix.o2.permille / 1000.0 *
 288                         (sample->depth.mm + 10000) / 10000.0;
 289                 if (po2 >= 0.5)
 290                         otu += pow(po2 - 0.5, 0.83) * t / 30.0;
 291         }
 292         return otu + 0.5;
 293 }
 294 /*
 295  * Return air usage (in liters).
 296  */
 297 static double calculate_airuse(struct dive *dive)
 298 {
 299         double airuse = 0;
 300         int i;
 301
 302         for (i = 0; i < MAX_CYLINDERS; i++) {
 303                 cylinder_t *cyl = dive->cylinder + i;
 304                 int size = cyl->type.size.mliter;
 305                 double kilo_atm;
 306
 307                 if (!size)
 308                         continue;
 309
 310                 kilo_atm = (cyl->start.mbar - cyl->end.mbar) / 1013250.0;
 311
 312                 /* Liters of air at 1 atm == milliliters at 1k atm*/
 313                 airuse += kilo_atm * size;
 314         }
 315         return airuse;
 316 }
 317
 318 static void get_sac(struct dive *dive, int *val)
 319 {
 320         double airuse, pressure, sac;
 321
 322         *val = 0;
 323         airuse = calculate_airuse(dive);
 324         if (!airuse)
 325                 return;
 326         if (!dive->duration.seconds)
 327                 return;
 328
 329         /* Mean pressure in atm: 1 atm per 10m */
 330         pressure = 1 + (dive->meandepth.mm / 10000.0);
 331         sac = airuse / pressure * 60 / dive->duration.seconds;
 332
 333         /* milliliters per minute.. */
 334         *val = sac * 1000;
 335 }
 336
 337 static void get_string(char **str, const char *s)
 338 {
 339         int len;
 340         char *n;
 341
 342         if (!s)
 343                 s = "";
 344         len = strlen(s);
 345         if (len > 40)
 346                 len = 40;
 347         n = malloc(len+1);
 348         memcpy(n, s, len);
 349         n[len] = 0;
 350         *str = n;
 351 }
 352
 353 static void get_location(struct dive *dive, char **str)
 354 {
 355         get_string(str, dive->location);
 356 }
 357
 358 static void get_cylinder(struct dive *dive, char **str)
 359 {
 360         get_string(str, dive->cylinder[0].type.description);
 361 }
 362
 363 static void fill_one_dive(struct dive *dive,
 364                           GtkTreeModel *model,
 365                           GtkTreeIter *iter)
 366 {
 367         int sac;
 368         char *location, *cylinder;
 369
 370         get_cylinder(dive, &cylinder);
 371         get_location(dive, &location);
 372         get_sac(dive, &sac);
 373
 374         /*
 375          * We only set the fields that changed: the strings.
 376          * The core data itself is unaffected by units
 377          */
 378         gtk_list_store_set(GTK_LIST_STORE(model), iter,
 379                 DIVE_NR, dive->number,
 380                 DIVE_LOCATION, location,
 381                 DIVE_CYLINDER, cylinder,
 382                 DIVE_SAC, sac,
 383                 DIVE_OTU, dive->otu,
 384                 -1);
 385 }
 386
 387 static gboolean set_one_dive(GtkTreeModel *model,
 388                              GtkTreePath *path,
 389                              GtkTreeIter *iter,
 390                              gpointer data)
 391 {
 392         GValue value = {0, };
 393         struct dive *dive;
 394
 395         /* Get the dive number */
 396         gtk_tree_model_get_value(model, iter, DIVE_INDEX, &value);
 397         dive = get_dive(g_value_get_int(&value));
 398         if (!dive)
 399                 return TRUE;
 400         if (data && dive != data)
 401                 return FALSE;
 402
 403         fill_one_dive(dive, model, iter);
 404         return dive == data;
 405 }
 406
 407 void flush_divelist(struct dive *dive)
 408 {
 409         GtkTreeModel *model = GTK_TREE_MODEL(dive_list.model);
 410
 411         gtk_tree_model_foreach(model, set_one_dive, dive);
 412 }
 413
 414 void set_divelist_font(const char *font)
 415 {
 416         PangoFontDescription *font_desc = pango_font_description_from_string(font);
 417         gtk_widget_modify_font(dive_list.tree_view, font_desc);
 418         pango_font_description_free(font_desc);
 419 }
 420
 421 void update_dive_list_units(void)
 422 {
 423         const char *unit;
 424         GtkTreeModel *model = GTK_TREE_MODEL(dive_list.model);
 425
 426         switch (output_units.length) {
 427         case METERS:
 428                 unit = "m";
 429                 break;
 430         case FEET:
 431                 unit = "ft";
 432                 break;
 433         }
 434         gtk_tree_view_column_set_title(dive_list.depth, unit);
 435
 436         switch (output_units.temperature) {
 437         case CELSIUS:
 438                 unit = UTF8_DEGREE "C";
 439                 break;
 440         case FAHRENHEIT:
 441                 unit = UTF8_DEGREE "F";
 442                 break;
 443         case KELVIN:
 444                 unit = "Kelvin";
 445                 break;
 446         }
 447         gtk_tree_view_column_set_title(dive_list.temperature, unit);
 448
 449         gtk_tree_model_foreach(model, set_one_dive, NULL);
 450 }
 451
 452 void update_dive_list_col_visibility(void)
 453 {
 454         gtk_tree_view_column_set_visible(dive_list.cylinder, visible_cols.cylinder);
 455         gtk_tree_view_column_set_visible(dive_list.temperature, visible_cols.temperature);
 456         gtk_tree_view_column_set_visible(dive_list.nitrox, visible_cols.nitrox);
 457         gtk_tree_view_column_set_visible(dive_list.sac, visible_cols.sac);
 458         gtk_tree_view_column_set_visible(dive_list.otu, visible_cols.otu);
 459         return;
 460 }
 461
 462 static void fill_dive_list(void)
 463 {
 464         int i;
 465         GtkTreeIter iter;
 466         GtkListStore *store;
 467
 468         store = GTK_LIST_STORE(dive_list.model);
 469
 470         for (i = 0; i < dive_table.nr; i++) {
 471                 struct dive *dive = dive_table.dives[i];
 472
 473                 dive->otu = calculate_otu(dive);
 474                 gtk_list_store_append(store, &iter);
 475                 gtk_list_store_set(store, &iter,
 476                         DIVE_INDEX, i,
 477                         DIVE_NR, dive->number,
 478                         DIVE_DATE, dive->when,
 479                         DIVE_DEPTH, dive->maxdepth,
 480                         DIVE_DURATION, dive->duration.seconds,
 481                         DIVE_LOCATION, "location",
 482                         DIVE_TEMPERATURE, dive->watertemp.mkelvin,
 483                         DIVE_NITROX, dive->cylinder[0].gasmix.o2,
 484                         DIVE_SAC, 0,
 485                         -1);
 486         }
 487
 488         update_dive_list_units();
 489         if (gtk_tree_model_get_iter_first(GTK_TREE_MODEL(dive_list.model), &iter)) {
 490                 GtkTreeSelection *selection;
 491                 selection = gtk_tree_view_get_selection(GTK_TREE_VIEW(dive_list.tree_view));
 492                 gtk_tree_selection_select_iter(selection, &iter);
 493         }
 494 }
 495
 496 void dive_list_update_dives(void)
 497 {
 498         gtk_list_store_clear(GTK_LIST_STORE(dive_list.model));
 499         fill_dive_list();
 500         repaint_dive();
 501 }
 502
 503 static GtkTreeViewColumn *divelist_column(struct DiveList *dl, int index, const char *title,
 504                                 data_func_t data_func, PangoAlignment align, gboolean visible)
 505 {
 506         return tree_view_column(dl->tree_view, index, title, data_func, align, visible);
 507 }
 508
 509 /*
 510  * This is some crazy crap. The only way to get default focus seems
 511  * to be to grab focus as the widget is being shown the first time.
 512  */
 513 static void realize_cb(GtkWidget *tree_view, gpointer userdata)
 514 {
 515         gtk_widget_grab_focus(tree_view);
 516 }
 517
 518 GtkWidget *dive_list_create(void)
 519 {
 520         GtkTreeSelection  *selection;
 521
 522         dive_list.model = gtk_list_store_new(DIVELIST_COLUMNS,
 523                                 G_TYPE_INT,                     /* index */
 524                                 G_TYPE_INT,                     /* nr */
 525                                 G_TYPE_INT,                     /* Date */
 526                                 G_TYPE_INT,                     /* Depth */
 527                                 G_TYPE_INT,                     /* Duration */
 528                                 G_TYPE_INT,                     /* Temperature */
 529                                 G_TYPE_STRING,                  /* Cylinder */
 530                                 G_TYPE_INT,                     /* Nitrox */
 531                                 G_TYPE_INT,                     /* SAC */
 532                                 G_TYPE_INT,                     /* OTU */
 533                                 G_TYPE_STRING                   /* Location */
 534                                 );
 535         dive_list.tree_view = gtk_tree_view_new_with_model(GTK_TREE_MODEL(dive_list.model));
 536         set_divelist_font(divelist_font);
 537
 538         selection = gtk_tree_view_get_selection(GTK_TREE_VIEW(dive_list.tree_view));
 539
 540         gtk_tree_selection_set_mode(GTK_TREE_SELECTION(selection), GTK_SELECTION_MULTIPLE);
 541         gtk_widget_set_size_request(dive_list.tree_view, 200, 200);
 542
 543         dive_list.nr = divelist_column(&dive_list, DIVE_NR, "#", NULL, PANGO_ALIGN_RIGHT, TRUE);
 544         gtk_tree_view_column_set_sort_column_id(dive_list.nr, -1);
 545         dive_list.date = divelist_column(&dive_list, DIVE_DATE, "Date", date_data_func, PANGO_ALIGN_LEFT, TRUE);
 546         dive_list.depth = divelist_column(&dive_list, DIVE_DEPTH, "ft", depth_data_func, PANGO_ALIGN_RIGHT, TRUE);
 547         dive_list.duration = divelist_column(&dive_list, DIVE_DURATION, "min", duration_data_func, PANGO_ALIGN_RIGHT, TRUE);
 548         dive_list.temperature = divelist_column(&dive_list, DIVE_TEMPERATURE, UTF8_DEGREE "F", temperature_data_func, PANGO_ALIGN_RIGHT, visible_cols.temperature);
 549         dive_list.cylinder = divelist_column(&dive_list, DIVE_CYLINDER, "Cyl", NULL, PANGO_ALIGN_CENTER, visible_cols.cylinder);
 550         dive_list.nitrox = divelist_column(&dive_list, DIVE_NITROX, "O" UTF8_SUBSCRIPT_2 "%", nitrox_data_func, PANGO_ALIGN_CENTER, visible_cols.nitrox);
 551         dive_list.sac = divelist_column(&dive_list, DIVE_SAC, "SAC", sac_data_func, PANGO_ALIGN_CENTER, visible_cols.sac);
 552         dive_list.otu = divelist_column(&dive_list, DIVE_OTU, "OTU", otu_data_func, PANGO_ALIGN_CENTER, visible_cols.otu);
 553         dive_list.location = divelist_column(&dive_list, DIVE_LOCATION, "Location", NULL, PANGO_ALIGN_LEFT, TRUE);
 554
 555         fill_dive_list();
 556
 557         g_object_set(G_OBJECT(dive_list.tree_view), "headers-visible", TRUE,
 558                                           "search-column", DIVE_LOCATION,
 559                                           "rules-hint", TRUE,
 560                                           NULL);
 561
 562         g_signal_connect_after(dive_list.tree_view, "realize", G_CALLBACK(realize_cb), NULL);
 563         g_signal_connect(selection, "changed", G_CALLBACK(selection_cb), dive_list.model);
 564
 565         dive_list.container_widget = gtk_scrolled_window_new(NULL, NULL);
 566         gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(dive_list.container_widget),
 567                                GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
 568         gtk_container_add(GTK_CONTAINER(dive_list.container_widget), dive_list.tree_view);
 569
 570         dive_list.changed = 0;
 571
 572         return dive_list.container_widget;
 573 }
 574
 575 void mark_divelist_changed(int changed)
 576 {
 577         dive_list.changed = changed;
 578 }
 579
 580 int unsaved_changes()
 581 {
 582         return dive_list.changed;
 583 }