- PsppireDict *dictionary = 0;
-
- /* gtk_init messes with the locale.
- So unset the bits we want to control ourselves */
- setlocale (LC_NUMERIC, "C");
-
- bindtextdomain (PACKAGE, locale_dir);
-
-
- preregister_widgets ();
-
- gsl_set_error_handler_off ();
- fn_init ();
- outp_init ();
- settings_init (&viewer_width, &viewer_length);
- fh_init ();
- the_source_stream =
- create_source_stream (
- fn_getenv_default ("STAT_INCLUDE_PATH", include_path)
- );
-
- the_dataset = create_dataset ();
-
-
- message_dialog_init (the_source_stream);
-
- dictionary = psppire_dict_new_from_dict (dataset_dict (the_dataset));
-
- bind_textdomain_codeset (PACKAGE, "UTF-8");
-
- /* Create the model for the var_sheet */
- the_var_store = psppire_var_store_new (dictionary);
-
- the_data_store = psppire_data_store_new (dictionary);
- replace_casereader (NULL);
-
- create_icon_factory ();
-
- {
- const char *filename = output_file_name ();
-
- struct string config_string;
-
- ds_init_empty (&config_string);
-
- ds_put_format (&config_string,
- "gui:ascii:screen:squeeze=on headers=off top-margin=0 "
- "bottom-margin=0 paginate=off length=auto width=auto "
- "emphasis=none "
- "output-file=\"%s\" append=yes", filename);
-
- outp_configure_driver_line (ds_ss (&config_string));
-
- unlink (filename);
-
- ds_destroy (&config_string);
- }
-
- journal_enable ();
- textdomain (PACKAGE);
-
-
- the_recent_mgr = gtk_recent_manager_get_default ();
-
- the_data_window = psppire_data_window_new ();
-
- command_line_processor_replace_aux (clp, &post_init_argp, the_source_stream);
- command_line_processor_replace_aux (clp, &non_option_argp, the_source_stream);
-
- command_line_processor_parse (clp, argc, argv);
-
- execute_syntax (create_syntax_string_source (""));
-
- gtk_widget_show (the_data_window);
+ switch (is->state)
+ {
+ case 0:
+ i18n_init ();
+ break;
+ case 1:
+ preregister_widgets ();
+ break;
+ case 2:
+ gsl_set_error_handler_off ();
+ break;
+ case 3:
+ output_engine_push ();
+ break;
+ case 4:
+ settings_init ();
+ break;
+ case 5:
+ fh_init ();
+ break;
+ case 6:
+ psppire_set_lexer (NULL);
+ break;
+ case 7:
+ bind_textdomain_codeset (PACKAGE, "UTF-8");
+ break;
+ case 8:
+ if ( ! gtk_parse_args (is->argc, is->argv) )
+ {
+ perror ("Error parsing arguments");
+ exit (1);
+ }
+ break;
+ case 9:
+ create_icon_factory ();
+ break;
+ case 10:
+ psppire_output_window_setup ();
+ break;
+ case 11:
+ journal_init ();
+ break;
+ case 12:
+ textdomain (PACKAGE);
+ break;
+ case 13:
+ /* FIXME: This should be implemented with a GtkInterface */
+ psppire_selector_set_default_selection_func (GTK_TYPE_ENTRY, insert_source_row_into_entry);
+ psppire_selector_set_default_selection_func (PSPPIRE_VAR_VIEW_TYPE, insert_source_row_into_tree_view);
+ psppire_selector_set_default_selection_func (GTK_TYPE_TREE_VIEW, insert_source_row_into_tree_view);
+ psppire_selector_set_default_selection_func (PSPPIRE_TYPE_MEANS_LAYER, insert_source_row_into_layers);
+ break;
+ case 14:
+ {
+ if (is->file)
+ {
+ gchar *filename = local_to_filename_encoding (is->file);
+
+ int retval = any_reader_detect (filename, NULL);
+
+ /* Check to see if the file is a .sav or a .por file. If not
+ assume that it is a syntax file */
+ if (retval == 1)
+ open_data_window (NULL, filename, NULL, NULL);
+ else if (retval == 0)
+ {
+ create_data_window ();
+ open_syntax_window (filename, NULL);
+ }
+ g_free (filename);
+ }
+ else
+ {
+ create_data_window ();
+ }
+ return TRUE;
+ }
+ break;
+ default:
+ return TRUE;
+ break;
+ }
+ return FALSE;