Add support for reading SPSS/PC+ system files.

[pspp] / src / ui / gui / psppire.c

diff --git a/src/ui/gui/psppire.c b/src/ui/gui/psppire.c
index 93f3f99f7b4ca40941549ce248950472fc05fcbf..5a35b52efb4a4a90ab312cabbb9e183d0c76b5e0 100644 (file)
--- a/src/ui/gui/psppire.c
+++ b/src/ui/gui/psppire.c
@@ -29,10 +29,8 @@
 #include "data/datasheet.h"
 #include "data/file-handle-def.h"
 #include "data/file-name.h"
-#include "data/por-file-reader.h"
 #include "data/session.h"
 #include "data/settings.h"
-#include "data/sys-file-reader.h"
 
 #include "language/lexer/lexer.h"
 #include "libpspp/i18n.h"
@@ -82,6 +80,7 @@ initialize (const char *data_file)
   preregister_widgets ();
 
   gsl_set_error_handler_off ();
+  output_engine_push ();
   settings_init ();
   fh_init ();
 
@@ -106,13 +105,13 @@ initialize (const char *data_file)
     {
       gchar *filename = local_to_filename_encoding (data_file);
 
-      enum detect_result res = any_reader_may_open (filename);
+      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 (res == ANY_YES)
+      if (retval == 1)
        open_data_window (NULL, filename, NULL, NULL);
-      else if (res == ANY_NO)
+      else if (retval == 0)
         {
           create_data_window ();
           open_syntax_window (filename, NULL);
@@ -129,7 +128,7 @@ void
 de_initialize (void)
 {
   settings_done ();
-  output_close ();
+  output_engine_pop ();
   i18n_done ();
 }
 
@@ -154,28 +153,28 @@ psppire_quit (void)
 struct icon_size
 {
   int resolution;  /* The dimension of the images which will be used */
-  size_t n_sizes;  /* The number of items in the array below.
-                     This may be zero, in which case the iconset will be wildcarded
-                     (used by default when no non-wildcarded set is available) */
+  size_t n_sizes;  /* The number of items in the array below. */
   const GtkIconSize *usage; /* An array determining for what the icon set is used */
 };
 
 static const GtkIconSize menus[] = {GTK_ICON_SIZE_MENU};
-static const GtkIconSize toolbar[] = {GTK_ICON_SIZE_LARGE_TOOLBAR};
+static const GtkIconSize large_toolbar[] = {GTK_ICON_SIZE_LARGE_TOOLBAR};
+static const GtkIconSize small_toolbar[] = {GTK_ICON_SIZE_SMALL_TOOLBAR};
 
 
 /* We currently have three icon sets viz: 16x16, 24x24 and 32x32
-   We use the 16x16 for menus, the 32x32 for the toolbar and 
-   the 24x24 for everything else.
+   We use the 16x16 for menus, the 32x32 for the large_toolbars and 
+   the 24x24 for small_toolbars.
 
-   Exactly one element of the following array should have its 2nd and 3rd
-   argument as zero.
+   The order of this array is pertinent.  The icons in the sets occuring
+   earlier in the array will be used a the wildcard (default) icon size,
+   if such an icon exists.
 */
 static const struct icon_size sizemap[] = 
 {
+  {24,  sizeof (small_toolbar) / sizeof (GtkIconSize), small_toolbar},
   {16,  sizeof (menus) / sizeof (GtkIconSize), menus},
-  {24, 0, 0},
-  {32,  sizeof (toolbar) / sizeof (GtkIconSize), toolbar}
+  {32,  sizeof (large_toolbar) / sizeof (GtkIconSize), large_toolbar}
 };
 
 
@@ -193,6 +192,7 @@ create_icon_factory (void)
     gint i;
     for (i = 0 ; i < ic->n_icons ; ++i)
       {
+       gboolean wildcarded = FALSE;
        GtkIconSet *icon_set = gtk_icon_set_new ();
        int r;
        for (r = 0 ; r < sizeof (sizemap) / sizeof (sizemap[0]); ++r)
@@ -204,15 +204,26 @@ create_icon_factory (void)
                                               sizemap[r].resolution, sizemap[r].resolution,
                                               ic->icon_name[i]);
            const char *relocated_filename = relocate (filename);
+           GFile *gf = g_file_new_for_path (relocated_filename);
+           if (g_file_query_exists (gf, NULL))
+             {
+               gtk_icon_source_set_filename (source, relocated_filename);
+               if (!wildcarded)
+                 {
+                   gtk_icon_source_set_size_wildcarded (source, TRUE);
+                   wildcarded = TRUE;
+                 }
+             }
+           g_object_unref (gf);
 
-           gtk_icon_source_set_filename (source, relocated_filename);
-           gtk_icon_source_set_size_wildcarded (source, sizemap[r].n_sizes <= 0);
            for (s = 0 ; s < sizemap[r].n_sizes ; ++s)
              gtk_icon_source_set_size (source, sizemap[r].usage[s]);
            if (filename != relocated_filename)
              free (CONST_CAST (char *, relocated_filename));
            g_free (filename);
-           gtk_icon_set_add_source (icon_set, source);
+
+           if ( gtk_icon_source_get_filename (source))
+             gtk_icon_set_add_source (icon_set, source);
          }
       
        gtk_icon_factory_add (factory, ic->icon_name[i], icon_set);