Merge 'master' into 'gtk3'.
[pspp] / src / ui / gui / main.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2004, 2005, 2006, 2010, 2011, 2012, 2013  Free Software Foundation
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 as published by
6    the Free Software Foundation, either version 3 of the License, or
7    (at your option) any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program.  If not, see <http://www.gnu.org/licenses/>. */
16
17 #include <config.h>
18
19 #include "ui/gui/psppire.h"
20
21 #include <gtk/gtk.h>
22 #include <stdlib.h>
23
24 #include "language/lexer/include-path.h"
25 #include "libpspp/argv-parser.h"
26 #include "libpspp/array.h"
27 #include "libpspp/assertion.h"
28 #include "libpspp/cast.h"
29 #include "libpspp/copyleft.h"
30 #include "libpspp/str.h"
31 #include "libpspp/string-array.h"
32 #include "libpspp/version.h"
33 #include "ui/source-init-opts.h"
34
35 #include "gl/configmake.h"
36 #include "gl/progname.h"
37 #include "gl/relocatable.h"
38 #include "gl/version-etc.h"
39 #include "gl/xalloc.h"
40
41 #include "gettext.h"
42 #define _(msgid) gettext (msgid)
43 #define N_(msgid) msgid
44
45 \f
46 /* Arguments to be interpreted before the X server gets initialised */
47
48 enum
49   {
50     OPT_HELP,
51     OPT_VERSION,
52     OPT_NO_SPLASH,
53     OPT_MEASURE_STARTUP,
54     N_STARTUP_OPTIONS
55   };
56
57 static const struct argv_option startup_options[N_STARTUP_OPTIONS] =
58   {
59     {"help",      'h', no_argument, OPT_HELP},
60     {"version",   'V', no_argument, OPT_VERSION},
61     {"no-splash", 'q', no_argument, OPT_NO_SPLASH},
62     {"measure-startup", 0, no_argument, OPT_MEASURE_STARTUP},
63   };
64
65 /* --measure-startup: Prints the elapsed time to start up and load any file
66    specified on the command line. */
67 static gboolean measure_startup;
68 static GTimer *startup;
69
70 static void
71 usage (void)
72 {
73   char *inc_path = string_array_join (include_path_default (), " ");
74   GOptionGroup *gtk_options;
75   GOptionContext *ctx;
76   gchar *gtk_help_base, *gtk_help;
77
78   /* Get help text for GTK+ options.  */
79   ctx = g_option_context_new ("psppire");
80   gtk_options = gtk_get_option_group (FALSE);
81   gtk_help_base = g_option_context_get_help (ctx, FALSE, gtk_options);
82   g_option_context_free (ctx);
83
84   /* The GTK+ help text starts with usage instructions that we don't want,
85      followed by a blank line.  Trim off everything up to and including the
86      first blank line. */
87   gtk_help = strstr (gtk_help_base, "\n\n");
88   gtk_help = gtk_help != NULL ? gtk_help + 2 : gtk_help_base;
89
90   printf (_("\
91 PSPPIRE, a GUI for PSPP, a program for statistical analysis of sampled data.\n\
92 Usage: %s [OPTION]... FILE\n\
93 \n\
94 Arguments to long options also apply to equivalent short options.\n\
95 \n\
96 GUI options:\n\
97   -q, --no-splash           don't show splash screen during startup\n\
98 \n\
99 %s\
100 Language options:\n\
101   -I, --include=DIR         append DIR to search path\n\
102   -I-, --no-include         clear search path\n\
103   -a, --algorithm={compatible|enhanced}\n\
104                             set to `compatible' if you want output\n\
105                             calculated from broken algorithms\n\
106   -x, --syntax={compatible|enhanced}\n\
107                             set to `compatible' to disable PSPP extensions\n\
108   -i, --interactive         interpret syntax in interactive mode\n\
109   -s, --safer               don't allow some unsafe operations\n\
110 Default search path: %s\n\
111 \n\
112 Informative output:\n\
113   -h, --help                display this help and exit\n\
114   -V, --version             output version information and exit\n\
115 \n\
116 A non-option argument is interpreted as a data file in .sav or .zsav or .por\n\
117 format or a syntax file to load.\n"),
118           program_name, gtk_help, inc_path);
119
120   free (inc_path);
121   g_free (gtk_help_base);
122
123   emit_bug_reporting_address ();
124   exit (EXIT_SUCCESS);
125 }
126
127 static void
128 startup_option_callback (int id, void *show_splash_)
129 {
130   gboolean *show_splash = show_splash_;
131
132   switch (id)
133     {
134     case OPT_HELP:
135       usage ();
136       break;
137
138     case OPT_VERSION:
139       version_etc (stdout, "psppire", PACKAGE_NAME, PACKAGE_VERSION,
140                    "Ben Pfaff", "John Darrington", "Jason Stover",
141                    NULL_SENTINEL);
142       exit (EXIT_SUCCESS);
143
144     case OPT_NO_SPLASH:
145       *show_splash = FALSE;
146       break;
147
148     case OPT_MEASURE_STARTUP:
149       measure_startup = TRUE;
150       break;
151
152     default:
153       NOT_REACHED ();
154     }
155 }
156 \f
157 static GtkWidget *
158 create_splash_window (void)
159 {
160   GtkWidget *splash ;
161   GtkWidget *image;
162
163   gtk_window_set_auto_startup_notification (FALSE);
164
165   splash = gtk_window_new (GTK_WINDOW_POPUP);
166
167   gtk_window_set_position (GTK_WINDOW (splash),
168                            GTK_WIN_POS_CENTER_ALWAYS);
169
170   gtk_window_set_type_hint (GTK_WINDOW (splash),
171                             GDK_WINDOW_TYPE_HINT_SPLASHSCREEN);
172
173   image = gtk_image_new_from_file (relocate (PKGDATADIR "/splash.png"));
174
175   gtk_container_add (GTK_CONTAINER (splash), image);
176
177   gtk_widget_show (image);
178
179   return splash;
180 }
181
182 static gboolean
183 hide_splash_window (gpointer data)
184 {
185   GtkWidget *splash = data;
186   gtk_widget_destroy (splash);
187   gtk_window_set_auto_startup_notification (TRUE);
188   return FALSE;
189 }
190
191 static gboolean
192 print_startup_time (gpointer data)
193 {
194   g_timer_stop (startup);
195   printf ("%.3f seconds elapsed\n", g_timer_elapsed (startup, NULL));
196   g_timer_destroy (startup);
197   startup = NULL;
198
199   return FALSE;
200 }
201
202 /*
203 static gboolean
204 quit_one_loop (gpointer data)
205 {
206   gtk_main_quit ();
207   return FALSE;
208 }
209 */
210
211 struct initialisation_parameters
212 {
213   const char *data_file;
214   GtkWidget *splash_window;
215 };
216
217
218 static gboolean
219 run_inner_loop (gpointer data)
220 {
221   struct initialisation_parameters *ip = data;
222   initialize (ip->data_file);
223
224   g_timeout_add (500, hide_splash_window, ip->splash_window);
225
226   if (measure_startup)
227     {
228       GSource *source = g_idle_source_new ();
229       g_source_set_priority (source, G_PRIORITY_LOW);
230       g_source_set_callback (source, print_startup_time, NULL, NULL);
231       g_source_attach (source, NULL);
232       g_source_unref (source);
233     }
234
235   gtk_main ();
236
237   de_initialize ();
238
239   return FALSE;
240 }
241
242
243 static GMemVTable vtable =
244   {
245     xmalloc,
246     xrealloc,
247     free,
248     xcalloc,
249     malloc,
250     realloc
251   };
252
253 #ifdef __APPLE__
254 static const bool apple = true;
255 #else
256 static const bool apple = false;
257 #endif
258
259 /* Searches ARGV for the -psn_xxxx option that the desktop application
260    launcher passes in, and removes it if it finds it.  Returns the new value
261    of ARGC. */
262 static inline int
263 remove_psn (int argc, char **argv)
264 {
265   if (apple)
266     {
267       int i;
268
269       for (i = 0; i < argc; i++)
270         {
271           if (!strncmp (argv[i], "-psn", 4))
272             {
273               remove_element (argv, argc + 1, sizeof *argv, i);
274               return argc - 1;
275             }
276         }
277     }
278   return argc;
279 }
280
281 int
282 main (int argc, char *argv[])
283 {
284   struct initialisation_parameters init_p;
285   gboolean show_splash = TRUE;
286   struct argv_parser *parser;
287   const gchar *vers;
288
289   set_program_name (argv[0]);
290
291   g_mem_set_vtable (&vtable);
292   g_thread_init (NULL);
293
294   gtk_disable_setlocale ();
295
296   startup = g_timer_new ();
297   g_timer_start (startup);
298
299   if ( ! gtk_parse_args (&argc, &argv) )
300     {
301       perror ("Error parsing arguments");
302       exit (1);
303     }
304
305   if ( (vers = gtk_check_version (GTK_MAJOR_VERSION,
306                                  GTK_MINOR_VERSION,
307                                  GTK_MICRO_VERSION)) )
308     {
309       g_warning ("%s", vers);
310     }
311
312   argc = remove_psn (argc, argv);
313
314   /* Parse our own options. 
315      This must come BEFORE gdk_init otherwise options such as 
316      --help --version which ought to work without an X server, won't.
317   */
318   parser = argv_parser_create ();
319   argv_parser_add_options (parser, startup_options, N_STARTUP_OPTIONS,
320                            startup_option_callback, &show_splash);
321   source_init_register_argv_parser (parser);
322   if (!argv_parser_run (parser, argc, argv))
323     exit (EXIT_FAILURE);
324   argv_parser_destroy (parser);
325
326   /* Initialise GDK.  Theoretically this call can remove options from argc,argv if
327      it thinks they are gdk options.
328      However there shouldn't be any here because of the gtk_parse_args call above. */
329   gdk_init (&argc, &argv);
330
331   init_p.splash_window = create_splash_window ();
332   init_p.data_file = optind < argc ? argv[optind] : NULL;
333
334   //  if ( show_splash )
335   //    gtk_widget_show (init_p.splash_window);
336
337   //  g_idle_add (quit_one_loop, 0);
338
339   //  gtk_quit_add (0, run_inner_loop, &init_p);
340   run_inner_loop (&init_p);
341   //  gtk_main ();
342
343   return 0;
344 }