1 /* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
3 * viking -- GPS Data and Topo Analyzer, Explorer, and Manager
5 * Copyright (C) 2013, Rob Norris <rw_norris@hotmail.com>
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 2 of the License, or
10 * (at your option) any later version.
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.
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 * Dependencies in this file can be on anything.
24 * For functions with simple system dependencies put it in util.c
27 #include <glib/gstdio.h>
28 #include <glib/gi18n.h>
35 #include "preferences.h"
36 #include "vikmapslayer.h"
41 #include "misc/kdtree.h"
43 #define FMT_MAX_NUMBER_CODES 9
46 * vu_trackpoint_formatted_message:
47 * @format_code: String describing the message to generate
48 * @trkpt: The trackpoint for which the message is generated about
49 * @trkpt_prev: A trackpoint (presumed previous) for interpolating values with the other trackpoint (such as speed)
50 * @trk: The track in which the trackpoints reside
52 * TODO: One day replace this cryptic format code with some kind of tokenizer parsing
53 * thus would make it more user friendly and maybe even GUI controlable.
54 * However for now at least there is some semblance of user control
56 gchar* vu_trackpoint_formatted_message ( gchar *format_code, VikTrackpoint *trkpt, VikTrackpoint *trkpt_prev, VikTrack *trk )
63 len = strlen ( format_code );
64 if ( len > FMT_MAX_NUMBER_CODES )
65 len = FMT_MAX_NUMBER_CODES;
67 gchar* values[FMT_MAX_NUMBER_CODES];
69 for ( i = 0; i < FMT_MAX_NUMBER_CODES; i++ ) {
73 gchar *speed_units_str = NULL;
74 vik_units_speed_t speed_units = a_vik_get_units_speed ();
75 switch (speed_units) {
76 case VIK_UNITS_SPEED_MILES_PER_HOUR:
77 speed_units_str = g_strdup ( _("mph") );
79 case VIK_UNITS_SPEED_METRES_PER_SECOND:
80 speed_units_str = g_strdup ( _("m/s") );
82 case VIK_UNITS_SPEED_KNOTS:
83 speed_units_str = g_strdup ( _("knots") );
86 // VIK_UNITS_SPEED_KILOMETRES_PER_HOUR:
87 speed_units_str = g_strdup ( _("km/h") );
91 gchar *separator = g_strdup ( " | " );
93 for ( i = 0; i < len; i++ ) {
94 switch ( g_ascii_toupper ( format_code[i] ) ) {
95 case 'G': values[i] = g_strdup ( _("GPSD") ); break; // GPS Preamble
96 case 'K': values[i] = g_strdup ( _("Trkpt") ); break; // Trkpt Preamble
100 gchar *speedtype = NULL;
101 if ( isnan(trkpt->speed) && trkpt_prev ) {
102 if ( trkpt->has_timestamp && trkpt_prev->has_timestamp ) {
103 if ( trkpt->timestamp == trkpt_prev->timestamp ) {
105 // Work out from previous trackpoint location and time difference
106 speed = vik_coord_diff(&(trkpt->coord), &(trkpt_prev->coord)) / ABS(trkpt->timestamp - trkpt_prev->timestamp);
108 switch (speed_units) {
109 case VIK_UNITS_SPEED_KILOMETRES_PER_HOUR:
110 speed = VIK_MPS_TO_KPH(speed);
112 case VIK_UNITS_SPEED_MILES_PER_HOUR:
113 speed = VIK_MPS_TO_MPH(speed);
115 case VIK_UNITS_SPEED_KNOTS:
116 speed = VIK_MPS_TO_KNOTS(speed);
119 // VIK_UNITS_SPEED_METRES_PER_SECOND:
120 // Already in m/s so nothing to do
123 speedtype = g_strdup ( "*" ); // Interpolated
126 speedtype = g_strdup ( "**" );
129 speedtype = g_strdup ( "**" );
132 speed = trkpt->speed;
133 speedtype = g_strdup ( "" );
136 values[i] = g_strdup_printf ( _("%sSpeed%s %.1f%s"), separator, speedtype, speed, speed_units_str );
137 g_free ( speedtype );
142 vik_units_height_t height_units = a_vik_get_units_height ();
143 switch (height_units) {
144 case VIK_UNITS_HEIGHT_FEET:
145 values[i] = g_strdup_printf ( _("%sAlt %dfeet"), separator, (int)round(VIK_METERS_TO_FEET(trkpt->altitude)) );
148 //VIK_UNITS_HEIGHT_METRES:
149 values[i] = g_strdup_printf ( _("%sAlt %dm"), separator, (int)round(trkpt->altitude) );
156 gint heading = isnan(trkpt->course) ? 0 : (gint)round(trkpt->course);
157 values[i] = g_strdup_printf ( _("%sCourse %03d\302\260" ), separator, heading );
163 gint diff = (gint) round ( vik_coord_diff ( &(trkpt->coord), &(trkpt_prev->coord) ) );
165 gchar *dist_units_str = NULL;
166 vik_units_distance_t dist_units = a_vik_get_units_distance ();
167 // expect the difference between track points to be small hence use metres or yards
168 switch (dist_units) {
169 case VIK_UNITS_DISTANCE_MILES:
170 case VIK_UNITS_DISTANCE_NAUTICAL_MILES:
171 dist_units_str = g_strdup ( _("yards") );
174 // VIK_UNITS_DISTANCE_KILOMETRES:
175 dist_units_str = g_strdup ( _("m") );
179 values[i] = g_strdup_printf ( _("%sDistance diff %d%s"), separator, diff, dist_units_str );
181 g_free ( dist_units_str );
188 if ( trkpt->has_timestamp ) {
189 // Compact date time format
190 msg = vu_get_time_string ( &(trkpt->timestamp), "%x %X", &(trkpt->coord), NULL );
193 msg = g_strdup ("--");
194 values[i] = g_strdup_printf ( _("%sTime %s"), separator, msg );
201 if ( trkpt->has_timestamp && trkpt_prev->has_timestamp ) {
202 time_t t_diff = trkpt->timestamp - trkpt_prev->timestamp;
203 values[i] = g_strdup_printf ( _("%sTime diff %lds"), separator, t_diff );
209 case 'X': values[i] = g_strdup_printf ( _("%sNo. of Sats %d"), separator, trkpt->nsats ); break;
213 // Distance to the end 'Finish' (along the track)
214 gdouble distd = vik_track_get_length_to_trackpoint (trk, trkpt);
215 gdouble diste = vik_track_get_length_including_gaps ( trk );
216 gdouble dist = diste - distd;
217 gchar *dist_units_str = NULL;
218 vik_units_distance_t dist_units = a_vik_get_units_distance ();
219 switch (dist_units) {
220 case VIK_UNITS_DISTANCE_MILES:
221 dist_units_str = g_strdup ( _("miles") );
222 dist = VIK_METERS_TO_MILES(dist);
224 case VIK_UNITS_DISTANCE_NAUTICAL_MILES:
225 dist_units_str = g_strdup ( _("NM") );
226 dist = VIK_METERS_TO_NAUTICAL_MILES(dist);
229 // VIK_UNITS_DISTANCE_KILOMETRES:
230 dist_units_str = g_strdup ( _("km") );
231 dist = dist / 1000.0;
234 values[i] = g_strdup_printf ( _("%sTo End %.2f%s"), separator, dist, dist_units_str );
235 g_free ( dist_units_str );
242 // Distance from start (along the track)
243 gdouble distd = vik_track_get_length_to_trackpoint (trk, trkpt);
244 gchar *dist_units_str = NULL;
245 vik_units_distance_t dist_units = a_vik_get_units_distance ();
246 switch (dist_units) {
247 case VIK_UNITS_DISTANCE_MILES:
248 dist_units_str = g_strdup ( _("miles") );
249 distd = VIK_METERS_TO_MILES(distd);
251 case VIK_UNITS_DISTANCE_NAUTICAL_MILES:
252 dist_units_str = g_strdup ( _("NM") );
253 distd = VIK_METERS_TO_NAUTICAL_MILES(distd);
256 // VIK_UNITS_DISTANCE_KILOMETRES:
257 dist_units_str = g_strdup ( _("km") );
258 distd = distd / 1000.0;
261 values[i] = g_strdup_printf ( _("%sDistance along %.2f%s"), separator, distd, dist_units_str );
262 g_free ( dist_units_str );
268 // Location (Lat/Long)
269 gchar *lat = NULL, *lon = NULL;
271 vik_coord_to_latlon (&(trkpt->coord), &ll);
272 a_coords_latlon_to_string ( &ll, &lat, &lon );
273 values[i] = g_strdup_printf ( "%s%s %s", separator, lat, lon );
279 case 'N': // Name of track
280 values[i] = g_strdup_printf ( _("%sTrack: %s"), separator, trk->name );
283 case 'E': // Name of trackpoint if available
285 values[i] = g_strdup_printf ( "%s%s", separator, trkpt->name );
287 values[i] = g_strdup ( "" );
295 g_free ( separator );
296 g_free ( speed_units_str );
298 gchar *msg = g_strconcat ( values[0], values[1], values[2], values[3], values[4], values[5], values[6], values[7], values[8], NULL );
300 for ( i = 0; i < FMT_MAX_NUMBER_CODES; i++ ) {
301 if ( values[i] != '\0' )
302 g_free ( values[i] );
309 GtkWindow *window; // Layer needed for redrawing
310 gchar *version; // Image list
311 } new_version_thread_data;
313 static gboolean new_version_available_message ( new_version_thread_data *nvtd )
315 // Only a simple goto website option is offered
316 // Trying to do an installation update is platform specific
317 if ( a_dialog_yes_or_no ( nvtd->window,
318 _("There is a newer version of Viking available: %s\n\nDo you wish to go to Viking's website now?"), nvtd->version ) )
319 // NB 'VIKING_URL' redirects to the Wiki, here we want to go the main site.
320 open_url ( nvtd->window, "http://sourceforge.net/projects/viking/" );
322 g_free ( nvtd->version );
327 #define VIK_SETTINGS_VERSION_CHECKED_DATE "version_checked_date"
329 static void latest_version_thread ( GtkWindow *window )
331 // Need to allow a few redirects, as SF file is often served from different server
332 DownloadMapOptions options = { FALSE, FALSE, NULL, 5, NULL, NULL, NULL };
333 gchar *filename = a_download_uri_to_tmp_file ( "http://sourceforge.net/projects/viking/files/VERSION", &options );
334 //gchar *filename = g_strdup ( "VERSION" );
339 GMappedFile *mf = g_mapped_file_new ( filename, FALSE, NULL );
343 gchar *text = g_mapped_file_get_contents ( mf );
345 gint latest_version = viking_version_to_number ( text );
346 gint my_version = viking_version_to_number ( VIKING_VERSION );
348 g_debug ( "The lastest version is: %s", text );
350 if ( my_version < latest_version ) {
351 new_version_thread_data *nvtd = g_malloc ( sizeof(new_version_thread_data) );
352 nvtd->window = window;
353 nvtd->version = g_strdup ( text );
354 gdk_threads_add_idle ( (GSourceFunc) new_version_available_message, nvtd );
357 g_debug ( "Running the lastest version: %s", VIKING_VERSION );
359 g_mapped_file_unref ( mf );
361 g_remove ( filename );
365 // Update last checked time
367 g_get_current_time ( &time );
368 a_settings_set_string ( VIK_SETTINGS_VERSION_CHECKED_DATE, g_time_val_to_iso8601(&time) );
371 #define VIK_SETTINGS_VERSION_CHECK_PERIOD "version_check_period_days"
374 * vu_check_latest_version:
375 * @window: Somewhere where we may need use the display to inform the user about the version status
377 * Periodically checks the released latest VERSION file on the website to compare with the running version
380 void vu_check_latest_version ( GtkWindow *window )
382 if ( ! a_vik_get_check_version () )
385 gboolean do_check = FALSE;
388 if ( ! a_settings_get_integer ( VIK_SETTINGS_VERSION_CHECK_PERIOD, &check_period ) ) {
392 // Get last checked date...
393 GDate *gdate_last = g_date_new();
394 GDate *gdate_now = g_date_new();
396 gchar *last_checked_date = NULL;
398 // When no previous date available - set to do the version check
399 if ( a_settings_get_string ( VIK_SETTINGS_VERSION_CHECKED_DATE, &last_checked_date) ) {
400 if ( g_time_val_from_iso8601 ( last_checked_date, &time_last ) ) {
401 g_date_set_time_val ( gdate_last, &time_last );
410 g_get_current_time ( &time_now );
411 g_date_set_time_val ( gdate_now, &time_now );
414 // Dates available so do the comparison
415 g_date_add_days ( gdate_last, check_period );
416 if ( g_date_compare ( gdate_last, gdate_now ) < 0 )
420 g_date_free ( gdate_last );
421 g_date_free ( gdate_now );
424 #if GLIB_CHECK_VERSION (2, 32, 0)
425 g_thread_try_new ( "latest_version_thread", (GThreadFunc)latest_version_thread, window, NULL );
427 g_thread_create ( (GThreadFunc)latest_version_thread, window, FALSE, NULL );
433 * vu_set_auto_features_on_first_run:
435 * Ask the user's opinion to set some of Viking's default behaviour
437 void vu_set_auto_features_on_first_run ( void )
439 gboolean auto_features = FALSE;
440 gboolean set_defaults = FALSE;
442 if ( a_vik_very_first_run () ) {
444 GtkWidget *win = gtk_window_new ( GTK_WINDOW_TOPLEVEL );
446 if ( a_dialog_yes_or_no ( GTK_WINDOW(win),
447 _("This appears to be Viking's very first run.\n\nDo you wish to enable automatic internet features?\n\nIndividual settings can be controlled in the Preferences."), NULL ) )
448 auto_features = TRUE;
450 // Default to more standard cache layout for new users (well new installs at least)
451 maps_layer_set_cache_default ( VIK_MAPS_CACHE_LAYOUT_OSM );
455 if ( auto_features ) {
456 // Set Maps to autodownload
457 // Ensure the default is true
458 maps_layer_set_autodownload_default ( TRUE );
461 // Simplistic repeat of preference settings
462 // Only the name & type are important for setting a preference via this 'external' way
464 // Enable auto add map +
466 VikLayerParam pref_add_map[] = { { VIK_LAYER_NUM_TYPES, VIKING_PREFERENCES_STARTUP_NAMESPACE "add_default_map_layer", VIK_LAYER_PARAM_BOOLEAN, VIK_LAYER_GROUP_NONE, NULL, VIK_LAYER_WIDGET_CHECKBUTTON, NULL, NULL, NULL, NULL, NULL, NULL, }, };
467 VikLayerParam pref_startup_method[] = { { VIK_LAYER_NUM_TYPES, VIKING_PREFERENCES_STARTUP_NAMESPACE "startup_method", VIK_LAYER_PARAM_UINT, VIK_LAYER_GROUP_NONE, NULL, VIK_LAYER_WIDGET_COMBOBOX, NULL, NULL, NULL, NULL, NULL, NULL}, };
469 VikLayerParamData vlp_data;
471 a_preferences_run_setparam ( vlp_data, pref_add_map );
473 vlp_data.u = VIK_STARTUP_METHOD_AUTO_LOCATION;
474 a_preferences_run_setparam ( vlp_data, pref_startup_method );
476 // Only on Windows make checking for the latest version on by default
477 // For other systems it's expected a Package manager or similar controls the installation, so leave it off
479 VikLayerParam pref_startup_version_check[] = { { VIK_LAYER_NUM_TYPES, VIKING_PREFERENCES_STARTUP_NAMESPACE "check_version", VIK_LAYER_PARAM_BOOLEAN, VIK_LAYER_GROUP_NONE, NULL, VIK_LAYER_WIDGET_CHECKBUTTON, NULL, NULL, NULL, NULL, }, };
481 a_preferences_run_setparam ( vlp_data, pref_startup_version_check );
484 // Ensure settings are saved for next time
485 a_preferences_save_to_file ();
488 // Ensure defaults are saved if changed
490 a_layer_defaults_save ();
494 * vu_get_canonical_filename:
496 * Returns: Canonical absolute filename
498 * Any time a path may contain a relative component, so need to prepend that directory it is relative to
499 * Then resolve the full path to get the normal canonical filename
501 gchar *vu_get_canonical_filename ( VikLayer *vl, const gchar *filename )
503 gchar *canonical = NULL;
507 if ( g_path_is_absolute ( filename ) )
508 canonical = g_strdup ( filename );
510 const gchar *vw_filename = vik_window_get_filename ( VIK_WINDOW_FROM_WIDGET (vl->vvp) );
511 gchar *dirpath = NULL;
513 dirpath = g_path_get_dirname ( vw_filename );
515 dirpath = g_get_current_dir(); // Fallback - if here then probably can't create the correct path
518 if ( g_path_is_absolute ( dirpath ) )
519 full = g_strconcat ( dirpath, G_DIR_SEPARATOR_S, filename, NULL );
521 full = g_strconcat ( g_get_current_dir(), G_DIR_SEPARATOR_S, dirpath, G_DIR_SEPARATOR_S, filename, NULL );
523 canonical = file_realpath_dup ( full ); // resolved
531 static struct kdtree *kd = NULL;
533 static void load_ll_tz_dir ( const gchar *dir )
535 gchar *lltz = g_build_filename ( dir, "latlontz.txt", NULL );
536 if ( g_access(lltz, R_OK) == 0 ) {
539 FILE *ff = g_fopen ( lltz, "r" );
541 while ( fgets ( buffer, 4096, ff ) ) {
543 gchar **components = g_strsplit (buffer, " ", 3);
544 guint nn = g_strv_length ( components );
546 double pt[2] = { g_ascii_strtod (components[0], NULL), g_ascii_strtod (components[1], NULL) };
547 gchar *timezone = g_strchomp ( components[2] );
548 if ( kd_insert ( kd, pt, timezone ) )
549 g_critical ( "Insertion problem of %s for line %ld of latlontz.txt", timezone, line_num );
550 // NB Don't free timezone as it's part of the kdtree data now
551 g_free ( components[0] );
552 g_free ( components[1] );
554 g_warning ( "Line %ld of latlontz.txt does not have 3 parts", line_num );
556 g_free ( components );
564 * vu_setup_lat_lon_tz_lookup:
566 * Can be called multiple times but only initializes the lookup once
568 void vu_setup_lat_lon_tz_lookup ()
576 // Look in the directories of data path
577 gchar **data_dirs = a_get_viking_data_path();
578 // Process directories in reverse order for priority
579 guint n_data_dirs = g_strv_length ( data_dirs );
580 for (; n_data_dirs > 0; n_data_dirs--) {
581 load_ll_tz_dir(data_dirs[n_data_dirs-1]);
583 g_strfreev ( data_dirs );
587 * vu_finalize_lat_lon_tz_lookup:
589 * Clear memory used by the lookup.
590 * only call on program exit
592 void vu_finalize_lat_lon_tz_lookup ()
595 kd_data_destructor ( kd, g_free );
600 static double dist_sq( double *a1, double *a2, int dims ) {
601 double dist_sq = 0, diff;
602 while( --dims >= 0 ) {
603 diff = (a1[dims] - a2[dims]);
604 dist_sq += diff*diff;
609 static gchar* time_string_adjusted ( time_t *time, gint offset_s )
611 time_t *mytime = time;
612 *mytime = *mytime + offset_s;
613 gchar *str = g_malloc ( 64 );
614 // Append asterisks to indicate use of simplistic model (i.e. no TZ)
615 strftime ( str, 64, "%a %X %x **", gmtime(mytime) );
619 static gchar* time_string_tz ( time_t *time, const gchar *format, GTimeZone *tz )
621 GDateTime *utc = g_date_time_new_from_unix_utc (*time);
622 GDateTime *local = g_date_time_to_timezone ( utc, tz );
624 g_date_time_unref ( utc );
627 gchar *str = g_date_time_format ( local, format );
629 g_date_time_unref ( local );
630 g_date_time_unref ( utc );
634 #define VIK_SETTINGS_NEAREST_TZ_FACTOR "utils_nearest_tz_factor"
636 * vu_get_tz_at_location:
638 * @vc: Position for which the time zone is desired
640 * Returns: TimeZone string of the nearest known location. String may be NULL.
642 * Use the k-d tree method (http://en.wikipedia.org/wiki/Kd-tree) to quickly retreive
643 * the nearest location to the given position.
645 gchar* vu_get_tz_at_location ( const VikCoord* vc )
652 vik_coord_to_latlon ( vc, &ll );
653 double pt[2] = { ll.lat, ll.lon };
656 if ( !a_settings_get_double(VIK_SETTINGS_NEAREST_TZ_FACTOR, &nearest) )
659 struct kdres *presults = kd_nearest_range ( kd, pt, nearest );
660 while( !kd_res_end( presults ) ) {
662 gchar *ans = (gchar*)kd_res_item ( presults, pos );
663 // compute the distance of the current result from the pt
664 double dist = sqrt( dist_sq( pt, pos, 2 ) );
665 if ( dist < nearest ) {
666 //printf( "NEARER node at (%.3f, %.3f, %.3f) is %.3f away is %s\n", pos[0], pos[1], pos[2], dist, ans );
670 kd_res_next ( presults );
672 g_debug ( "TZ lookup found %d results - picked %s", kd_res_size(presults), tz );
673 kd_res_free ( presults );
679 * vu_get_time_string:
681 * @time_t: The time of which the string is wanted
682 * @format The format of the time string - such as "%c"
683 * @vc: Position of object for the time output - maybe NULL
684 * (only applicable for VIK_TIME_REF_WORLD)
685 * @tz: TimeZone string - maybe NULL.
686 * (only applicable for VIK_TIME_REF_WORLD)
687 * Useful to pass in the cached value from vu_get_tz_at_location() to save looking it up again for the same position
689 * Returns: A string of the time according to the time display property
691 gchar* vu_get_time_string ( time_t *time, const gchar *format, const VikCoord* vc, const gchar *tz )
693 if ( !format ) return NULL;
695 switch ( a_vik_get_time_ref_frame() ) {
696 case VIK_TIME_REF_UTC:
697 str = g_malloc ( 64 );
698 strftime ( str, 64, format, gmtime(time) ); // Always 'GMT'
700 case VIK_TIME_REF_WORLD:
702 // No timezone specified so work it out
703 gchar *mytz = vu_get_tz_at_location ( vc );
705 GTimeZone *gtz = g_time_zone_new ( mytz );
706 str = time_string_tz ( time, format, gtz );
707 g_time_zone_unref ( gtz );
710 // No results (e.g. could be in the middle of a sea)
711 // Fallback to simplistic method that doesn't take into account Timezones of countries.
713 vik_coord_to_latlon ( vc, &ll );
714 str = time_string_adjusted ( time, round ( ll.lon / 15.0 ) * 3600 );
718 // Use specified timezone
719 GTimeZone *gtz = g_time_zone_new ( tz );
720 str = time_string_tz ( time, format, gtz );
721 g_time_zone_unref ( gtz );
724 default: // VIK_TIME_REF_LOCALE
725 str = g_malloc ( 64 );
726 strftime ( str, 64, format, localtime(time) );