/* PSPPIRE - a graphical user interface for PSPP.
- Copyright (C) 2004, 2005, 2006 Free Software Foundation
+ Copyright (C) 2004, 2005, 2006, 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include <config.h>
-#include <gtk/gtk.h>
-#include "psppire.h"
-#include "progname.h"
-#include <stdlib.h>
-#include <getopt.h>
-
-#include <libpspp/version.h>
-#include <libpspp/copyleft.h>
-
-static gboolean parse_command_line (int *argc, char ***argv, gchar **filename,
- gboolean *show_splash, GError **err);
+#include "ui/gui/psppire.h"
+#include <gtk/gtk.h>
+#include <stdlib.h>
-static GtkWidget *
-create_splash_window (void)
+#include "language/lexer/include-path.h"
+#include "libpspp/argv-parser.h"
+#include "libpspp/array.h"
+#include "libpspp/assertion.h"
+#include "libpspp/cast.h"
+#include "libpspp/copyleft.h"
+#include "libpspp/str.h"
+#include "libpspp/string-array.h"
+#include "libpspp/version.h"
+#include "ui/source-init-opts.h"
+
+#include "gl/configmake.h"
+#include "gl/progname.h"
+#include "gl/relocatable.h"
+#include "gl/version-etc.h"
+#include "gl/xalloc.h"
+
+#include "gettext.h"
+#define _(msgid) gettext (msgid)
+#define N_(msgid) msgid
+
+
+GdkWindow *create_splash_window (GMainContext *context);
+gboolean destroy_splash_window (gpointer ud);
+
+
+
+\f
+/* Arguments to be interpreted before the X server gets initialised */
+
+enum
+ {
+ OPT_HELP,
+ OPT_VERSION,
+ OPT_NO_SPLASH,
+ OPT_MEASURE_STARTUP,
+ N_STARTUP_OPTIONS
+ };
+
+static const struct argv_option startup_options[N_STARTUP_OPTIONS] =
+ {
+ {"help", 'h', no_argument, OPT_HELP},
+ {"version", 'V', no_argument, OPT_VERSION},
+ {"no-splash", 'q', no_argument, OPT_NO_SPLASH},
+ {"measure-startup", 0, no_argument, OPT_MEASURE_STARTUP},
+ };
+
+/* --measure-startup: Prints the elapsed time to start up and load any file
+ specified on the command line. */
+static gboolean measure_startup;
+static GTimer *startup;
+
+static void
+usage (void)
{
- GtkWidget *splash ;
- GtkWidget *image;
-
- gtk_window_set_auto_startup_notification (FALSE);
-
- splash = gtk_window_new (GTK_WINDOW_POPUP);
+ char *inc_path = string_array_join (include_path_default (), " ");
+ GOptionGroup *gtk_options;
+ GOptionContext *ctx;
+ gchar *gtk_help_base, *gtk_help;
+
+ /* Get help text for GTK+ options. */
+ ctx = g_option_context_new ("psppire");
+ gtk_options = gtk_get_option_group (FALSE);
+ gtk_help_base = g_option_context_get_help (ctx, FALSE, gtk_options);
+ g_option_context_free (ctx);
+
+ /* The GTK+ help text starts with usage instructions that we don't want,
+ followed by a blank line. Trim off everything up to and including the
+ first blank line. */
+ gtk_help = strstr (gtk_help_base, "\n\n");
+ gtk_help = gtk_help != NULL ? gtk_help + 2 : gtk_help_base;
+
+ printf (_("\
+PSPPIRE, a GUI for PSPP, a program for statistical analysis of sampled data.\n\
+Usage: %s [OPTION]... FILE\n\
+\n\
+Arguments to long options also apply to equivalent short options.\n\
+\n\
+GUI options:\n\
+ -q, --no-splash don't show splash screen during startup\n\
+\n\
+%s\
+Language options:\n\
+ -I, --include=DIR append DIR to search path\n\
+ -I-, --no-include clear search path\n\
+ -a, --algorithm={compatible|enhanced}\n\
+ set to `compatible' if you want output\n\
+ calculated from broken algorithms\n\
+ -x, --syntax={compatible|enhanced}\n\
+ set to `compatible' to disable PSPP extensions\n\
+ -i, --interactive interpret syntax in interactive mode\n\
+ -s, --safer don't allow some unsafe operations\n\
+Default search path: %s\n\
+\n\
+Informative output:\n\
+ -h, --help display this help and exit\n\
+ -V, --version output version information and exit\n\
+\n\
+A non-option argument is interpreted as a data file in .sav or .zsav or .por\n\
+format or a syntax file to load.\n"),
+ program_name, gtk_help, inc_path);
+
+ free (inc_path);
+ g_free (gtk_help_base);
+
+ emit_bug_reporting_address ();
+ exit (EXIT_SUCCESS);
+}
- gtk_window_set_position (GTK_WINDOW (splash),
- GTK_WIN_POS_CENTER_ALWAYS);
+static void
+startup_option_callback (int id, void *show_splash_)
+{
+ gboolean *show_splash = show_splash_;
- gtk_window_set_type_hint (GTK_WINDOW (splash),
- GDK_WINDOW_TYPE_HINT_SPLASHSCREEN);
+ switch (id)
+ {
+ case OPT_HELP:
+ usage ();
+ break;
+
+ case OPT_VERSION:
+ version_etc (stdout, "psppire", PACKAGE_NAME, PACKAGE_VERSION,
+ "Ben Pfaff", "John Darrington", "Jason Stover",
+ NULL_SENTINEL);
+ exit (EXIT_SUCCESS);
+
+ case OPT_NO_SPLASH:
+ *show_splash = FALSE;
+ break;
+
+ case OPT_MEASURE_STARTUP:
+ measure_startup = TRUE;
+ break;
+
+ default:
+ NOT_REACHED ();
+ }
+}
- image = gtk_image_new_from_file (PKGDATADIR "/splash.png");
+static gboolean UNUSED
+print_startup_time (gpointer data)
+{
+ g_timer_stop (startup);
+ printf ("%.3f seconds elapsed\n", g_timer_elapsed (startup, NULL));
+ g_timer_destroy (startup);
+ startup = NULL;
- gtk_container_add (GTK_CONTAINER (splash), image);
+ return FALSE;
+}
- gtk_widget_show (image);
+static GMemVTable vtable =
+ {
+ xmalloc,
+ xrealloc,
+ free,
+ xcalloc,
+ malloc,
+ realloc
+ };
+
+#ifdef __APPLE__
+static const bool apple = true;
+#else
+static const bool apple = false;
+#endif
+
+/* Searches ARGV for the -psn_xxxx option that the desktop application
+ launcher passes in, and removes it if it finds it. Returns the new value
+ of ARGC. */
+static inline int
+remove_psn (int argc, char **argv)
+{
+ if (apple)
+ {
+ int i;
- return splash;
+ for (i = 0; i < argc; i++)
+ {
+ if (!strncmp (argv[i], "-psn", 4))
+ {
+ remove_element (argv, argc + 1, sizeof *argv, i);
+ return argc - 1;
+ }
+ }
+ }
+ return argc;
}
-static gboolean
-hide_splash_window (gpointer data)
+\f
+gboolean
+init_prepare (GSource *source, gint *timeout_)
{
- GtkWidget *splash = data;
- gtk_widget_destroy (splash);
- gtk_window_set_auto_startup_notification (TRUE);
- return FALSE;
+ return TRUE;
}
-static gboolean
-quit_one_loop (gpointer data)
+
+gboolean
+init_check (GSource *source)
{
- gtk_main_quit ();
- return FALSE;
+ return TRUE;
}
-static gboolean
-run_inner_loop (gpointer data)
+gboolean
+init_dispatch (GSource *ss,
+ GSourceFunc callback,
+ gpointer user_data)
{
- initialize ();
-
- g_timeout_add (500, hide_splash_window, data);
+ struct init_source *is = (struct init_source *)ss;
- gtk_main ();
-
- de_initialize ();
+ bool finished = initialize (is);
+ is->state++;
+
+ if (finished)
+ {
+ g_main_loop_quit (is->loop);
+ return FALSE;
+ }
- return FALSE;
+ return TRUE;
}
+static GSourceFuncs init_funcs = {init_prepare, init_check, init_dispatch, NULL};
+\f
int
main (int argc, char *argv[])
{
- GtkWidget *splash_window;
- gchar *filename = 0;
gboolean show_splash = TRUE;
- GError *err = 0;
+ struct argv_parser *parser;
const gchar *vers;
set_program_name (argv[0]);
- if ( ! gtk_parse_args (&argc, &argv) )
- {
- perror ("Error parsing arguments");
- exit (1);
- }
+ g_mem_set_vtable (&vtable);
+
+#if !GLIB_CHECK_VERSION(2,32,0)
+ /* g_thread_init() was required before glib 2.32, but it is deprecated since
+ then and calling it yields a compile-time warning. */
+ g_thread_init (NULL);
+#endif
+
+ gtk_disable_setlocale ();
+
+ startup = g_timer_new ();
+ g_timer_start (startup);
if ( (vers = gtk_check_version (GTK_MAJOR_VERSION,
GTK_MINOR_VERSION,
GTK_MICRO_VERSION)) )
{
- g_warning (vers);
- }
-
- /* Deal with options like --version, --help etc */
- if ( ! parse_command_line (&argc, &argv, &filename, &show_splash, &err) )
- {
- g_clear_error (&err);
- return 0;
+ g_warning ("%s", vers);
}
+ argc = remove_psn (argc, argv);
+
+ /* Parse our own options.
+ This must come BEFORE gdk_init otherwise options such as
+ --help --version which ought to work without an X server, won't.
+ */
+ parser = argv_parser_create ();
+ argv_parser_add_options (parser, startup_options, N_STARTUP_OPTIONS,
+ startup_option_callback, &show_splash);
+ source_init_register_argv_parser (parser);
+ if (!argv_parser_run (parser, argc, argv))
+ exit (EXIT_FAILURE);
+ argv_parser_destroy (parser);
+
+ /* Initialise GDK. GTK gets initialized later. */
gdk_init (&argc, &argv);
- splash_window = create_splash_window ();
- if ( show_splash )
- gtk_widget_show (splash_window);
+ GMainContext *context = g_main_context_new ();
+
+ GdkWindow *win = show_splash ? create_splash_window (context) : NULL;
- g_idle_add (quit_one_loop, 0);
+ GMainLoop *loop = g_main_loop_new (context, FALSE);
- gtk_quit_add (0, run_inner_loop, splash_window);
- gtk_main ();
+ GSource *ss = g_source_new (&init_funcs,
+ sizeof (struct init_source));
+
+ ((struct init_source *) ss)->state = 0;
+
+ g_source_set_priority (ss, G_PRIORITY_DEFAULT);
+
+ g_source_attach (ss, context);
+
+ ((struct init_source *) ss)->argc = &argc;
+ ((struct init_source *) ss)->argv = &argv;
+ ((struct init_source *) ss)->loop = loop;
+ ((struct init_source *) ss)->file = optind < argc ? argv[optind] : NULL;
+
+ g_source_unref (ss);
+
+ g_main_loop_run (loop);
+ g_main_loop_unref (loop);
+ g_main_context_unref (context);
+
+ if (win)
+ g_timeout_add (500, destroy_splash_window, win);
+
+ gtk_main ();
+ /* Not much point in this except to check for memory leaks */
+ de_initialize ();
+
return 0;
}
-/* Parses the command line specified by ARGC and ARGV as received by
- main (). Returns true if normal execution should proceed,
- false if the command-line indicates that PSPP should exit. */
-static gboolean
-parse_command_line (int *argc, char ***argv, gchar **filename,
- gboolean *show_splash, GError **err)
+
+\f
+
+struct splash_source
{
+ GSource parent;
+ cairo_surface_t *sfc;
+};
- static struct option long_options[] =
- {
- {"help", no_argument, NULL, 'h'},
- {"version", no_argument, NULL, 'V'},
- {"no-splash", no_argument, NULL, 'q'},
- {0, 0, 0, 0},
- };
+void
+fill_splash_window (GdkWindow *win, cairo_surface_t *sfce)
+{
+ cairo_t *cr = gdk_cairo_create (win);
+
+ cairo_set_source_surface (cr, sfce, 0, 0);
+
+ cairo_paint (cr);
+ cairo_destroy (cr);
+}
- int c;
+gboolean
+splash_prepare (GSource *source,
+ gint *timeout_)
+{
+ GdkEvent *e = gdk_event_peek ();
+ if (!e)
+ return FALSE;
- for (;;)
- {
- c = getopt_long (*argc, *argv, "hVq", long_options, NULL);
- if (c == -1)
- break;
+ gdk_event_free (e);
+ return TRUE;
+}
- switch (c)
- {
- case 'h':
- g_print ("Usage: psppire {|--help|--version|--no-splash}\n");
- return FALSE;
- case 'V':
- g_print (version);
- g_print ("\n");
- g_print (legal);
- return FALSE;
- case 'q':
- *show_splash = FALSE;
- break;
- default:
- return FALSE;
- }
- }
+gboolean
+splash_check (GSource *source)
+{
+ GdkEvent *e = gdk_event_peek ();
+ if (!e)
+ return FALSE;
- if ( optind < *argc)
+ gdk_event_free (e);
+ return TRUE;
+}
+
+
+gboolean
+splash_dispatch (GSource *ss,
+ GSourceFunc callback,
+ gpointer user_data)
+{
+ struct splash_source *source = (struct splash_source *) ss;
+ GdkEvent *e = gdk_event_get ();
+ if (!e)
+ return TRUE;
+
+ GdkWindow *w = ((GdkEventAny *)e)->window;
+
+ if (!w)
{
- *filename = (*argv)[optind];
+ gdk_event_free (e);
+ return TRUE;
}
+ fill_splash_window (w, source->sfc);
+ gdk_display_flush (gdk_window_get_display (w));
+
+ gdk_event_free (e);
+
return TRUE;
}
+
+
+gboolean
+destroy_splash_window (gpointer ud)
+{
+ GdkWindow *win = GDK_WINDOW (ud);
+ gdk_window_withdraw (win);
+ gdk_display_flush (gdk_window_get_display (win));
+ gdk_window_destroy (win);
+
+ return FALSE;
+}
+
+GSourceFuncs splash_funcs = {splash_prepare, splash_check, splash_dispatch, NULL};
+
+
+GdkWindow *
+create_splash_window (GMainContext *context)
+{
+ const gchar *filename = PKGDATADIR "/splash.png";
+
+ const char *relocated_filename = relocate (filename);
+ cairo_surface_t *the_surface =
+ cairo_image_surface_create_from_png (relocated_filename);
+
+ if (filename != relocated_filename)
+ free (CONST_CAST (char *, relocated_filename));
+
+
+ g_return_val_if_fail (the_surface, NULL);
+
+ int attr_mask = GDK_WA_TYPE_HINT;
+ GdkWindowAttr attr;
+
+ attr.width = cairo_image_surface_get_width (the_surface);
+ attr.height = cairo_image_surface_get_height (the_surface);
+ attr.wclass = GDK_INPUT_OUTPUT;
+ attr.window_type = GDK_WINDOW_TOPLEVEL;
+
+ attr.type_hint = GDK_WINDOW_TYPE_HINT_SPLASHSCREEN;
+
+ GdkWindow *win = gdk_window_new (NULL, &attr, attr_mask);
+
+ gdk_window_set_events (win, GDK_EXPOSURE_MASK);
+ gdk_window_set_keep_above (win, TRUE);
+ gdk_window_show (win);
+
+
+ GSource *ss = g_source_new (&splash_funcs,
+ sizeof (struct splash_source));
+
+ ((struct splash_source *) ss)->sfc = the_surface;
+ g_source_set_priority (ss, G_PRIORITY_HIGH);
+
+ g_source_attach (ss, context);
+
+ g_source_unref (ss);
+
+ return win;
+}
+
+