Fixed many warnings
[pspp] / src / ui / gui / text-data-import-dialog.c
index 7aeee411a3106aba58a25728d8bd25500591866c..412af5b8f4a1c0e1ac12f5de8c2ff2d55e90e1d8 100644 (file)
 
 #include "ui/gui/text-data-import-dialog.h"
 
+#include "page-intro.h"
+#include "page-sheet-spec.h"
+#include "page-first-line.h"
+#include "page-separators.h"
+#include "page-formats.h"
+
 #include <errno.h>
 #include <fcntl.h>
 #include <gtk-contrib/psppire-sheet.h>
@@ -71,30 +77,28 @@ void
 text_data_import_assistant (PsppireDataWindow *dw)
 {
   GtkWindow *parent_window = GTK_WINDOW (dw);
-  struct import_assistant *ia;
+  struct import_assistant *ia = init_assistant (parent_window);
+  struct sheet_spec_page *ssp ;
 
-  ia = xzalloc (sizeof *ia);
   if (!init_file (ia, parent_window))
     {
       free (ia);
       return;
     }
 
-  printf ("%s:%d %s\n", __FILE__, __LINE__, ia->file.file_name);
+  ssp = ia->sheet_spec;
 
-  init_assistant (ia, parent_window);
-  if ( ia->file.type == FTYPE_TEXT)
+  if (ia->spreadsheet)
     {
-      init_intro_page (ia);
-      init_first_line_page (ia);
-      init_separators_page (ia);
+      ia->sheet_spec = sheet_spec_page_create (ia);
     }
   else
     {
-      init_sheet_spec_page (ia);
+      ia->intro = intro_page_create (ia);
+      ia->separators = separators_page_create (ia);
+      ia->first_line = first_line_page_create (ia);
     }
-
-  init_formats_page (ia);
+  ia->formats = formats_page_create (ia);
 
   gtk_widget_show_all (GTK_WIDGET (ia->asst.assistant));
 
@@ -114,7 +118,7 @@ text_data_import_assistant (PsppireDataWindow *dw)
       break;
     }
 
-  if ( ia->file.type == FTYPE_TEXT)
+  if (ssp) 
     {
       destroy_formats_page (ia);
       destroy_separators_page (ia);
@@ -215,91 +219,65 @@ generate_syntax (const struct import_assistant *ia)
 {
   struct string s = DS_EMPTY_INITIALIZER;
 
-  switch (ia->file.type)
+  if (ia->spreadsheet == NULL)
     {
-    case FTYPE_TEXT:
-      {
-       size_t var_cnt;
-       size_t i;
-       syntax_gen_pspp (&s,
-                        "GET DATA"
-                        "\n  /TYPE=TXT"
-                        "\n  /FILE=%sq\n",
-                        ia->file.file_name);
-       if (ia->file.encoding && strcmp (ia->file.encoding, "Auto"))
-         syntax_gen_pspp (&s, "  /ENCODING=%sq\n", ia->file.encoding);
-       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (
-                                                            ia->intro.n_cases_button)))
-         ds_put_format (&s, "  /IMPORTCASES=FIRST %d\n",
-                        gtk_spin_button_get_value_as_int (
-                                                          GTK_SPIN_BUTTON (ia->intro.n_cases_spin)));
-       else if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (
-                                                                 ia->intro.percent_button)))
-         ds_put_format (&s, "  /IMPORTCASES=PERCENT %d\n",
-                        gtk_spin_button_get_value_as_int (
-                                                          GTK_SPIN_BUTTON (ia->intro.percent_spin)));
-       else
-         ds_put_cstr (&s, "  /IMPORTCASES=ALL\n");
-       ds_put_cstr (&s,
-                    "  /ARRANGEMENT=DELIMITED\n"
-                    "  /DELCASE=LINE\n");
-       if (ia->first_line.skip_lines > 0)
-         ds_put_format (&s, "  /FIRSTCASE=%d\n", ia->first_line.skip_lines + 1);
-       ds_put_cstr (&s, "  /DELIMITERS=\"");
-       if (ds_find_byte (&ia->separators.separators, '\t') != SIZE_MAX)
-         ds_put_cstr (&s, "\\t");
-       if (ds_find_byte (&ia->separators.separators, '\\') != SIZE_MAX)
-         ds_put_cstr (&s, "\\\\");
-       for (i = 0; i < ds_length (&ia->separators.separators); i++)
-         {
-           char c = ds_at (&ia->separators.separators, i);
-           if (c == '"')
-             ds_put_cstr (&s, "\"\"");
-           else if (c != '\t' && c != '\\')
-             ds_put_byte (&s, c);
-         }
-       ds_put_cstr (&s, "\"\n");
-       if (!ds_is_empty (&ia->separators.quotes))
-         syntax_gen_pspp (&s, "  /QUALIFIER=%sq\n", ds_cstr (&ia->separators.quotes));
-       if (!ds_is_empty (&ia->separators.quotes) && ia->separators.escape)
-         ds_put_cstr (&s, "  /ESCAPE\n");
-       ds_put_cstr (&s, "  /VARIABLES=\n");
-
-       var_cnt = dict_get_var_cnt (ia->formats.dict);
-       for (i = 0; i < var_cnt; i++)
-         {
-           struct variable *var = dict_get_var (ia->formats.dict, i);
-           char format_string[FMT_STRING_LEN_MAX + 1];
-           fmt_to_string (var_get_print_format (var), format_string);
-           ds_put_format (&s, "    %s %s%s\n",
-                          var_get_name (var), format_string,
-                          i == var_cnt - 1 ? "." : "");
-         }
-
-       apply_dict (ia->formats.dict, &s);
-      }
-      break;
-    case FTYPE_GNUMERIC:
-    case FTYPE_ODS:
-      {
-       const struct sheet_spec_page *ssp = &ia->sheet_spec;
-
-       syntax_gen_pspp (&s,
-                        "GET DATA"
-                        "\n  /TYPE=%ss"
-                        "\n  /FILE=%sq"
-                        "\n  /SHEET=index %d"
-                        ".",
-                        (ia->file.type == FTYPE_GNUMERIC) ? "GNM" : "ODS",
-                        ia->file.file_name,                     
-                        ssp->opts.sheet_index);
-      }
-      break;
-    
-    default:
-      g_assert_not_reached ();
+      syntax_gen_pspp (&s,
+                      "GET DATA"
+                      "\n  /TYPE=TXT"
+                      "\n  /FILE=%sq\n",
+                      ia->file.file_name);
+      if (ia->file.encoding && strcmp (ia->file.encoding, "Auto"))
+       syntax_gen_pspp (&s, "  /ENCODING=%sq\n", ia->file.encoding);
+
+#if 0
+      intro_append_syntax (ia->intro, &s);
+
+      ds_put_cstr (&s,
+                  "  /ARRANGEMENT=DELIMITED\n"
+                  "  /DELCASE=LINE\n");
+
+
+      if (ia->first_line->skip_lines > 0)
+       ds_put_format (&s, "  /FIRSTCASE=%d\n", ia->first_line->skip_lines + 1);
+      ds_put_cstr (&s, "  /DELIMITERS=\"");
+      if (ds_find_byte (&ia->separators->separators, '\t') != SIZE_MAX)
+       ds_put_cstr (&s, "\\t");
+      if (ds_find_byte (&ia->separators->separators, '\\') != SIZE_MAX)
+       ds_put_cstr (&s, "\\\\");
+      for (i = 0; i < ds_length (&ia->separators->separators); i++)
+       {
+         char c = ds_at (&ia->separators->separators, i);
+         if (c == '"')
+           ds_put_cstr (&s, "\"\"");
+         else if (c != '\t' && c != '\\')
+           ds_put_byte (&s, c);
+       }
+      ds_put_cstr (&s, "\"\n");
+      if (!ds_is_empty (&ia->separators->quotes))
+       syntax_gen_pspp (&s, "  /QUALIFIER=%sq\n", ds_cstr (&ia->separators->quotes));
+      if (!ds_is_empty (&ia->separators->quotes) && ia->separators->escape)
+       ds_put_cstr (&s, "  /ESCAPE\n");
+      ds_put_cstr (&s, "  /VARIABLES=\n");
+
+      var_cnt = dict_get_var_cnt (ia->formats->dict);
+      for (i = 0; i < var_cnt; i++)
+       {
+         struct variable *var = dict_get_var (ia->formats->dict, i);
+         char format_string[FMT_STRING_LEN_MAX + 1];
+         fmt_to_string (var_get_print_format (var), format_string);
+         ds_put_format (&s, "    %s %s%s\n",
+                        var_get_name (var), format_string,
+                        i == var_cnt - 1 ? "." : "");
+       }
+
+
+      apply_dict (ia->formats->dict, &s);
+#endif
+    }
+  else
+    {
+      return sheet_spec_gen_syntax (ia);
     }
-
 
   return ds_cstr (&s);
 }
@@ -332,8 +310,8 @@ render_input_cell (GtkTreeViewColumn *tree_column, GtkCellRenderer *cell,
 
   column = GPOINTER_TO_INT (g_object_get_data (G_OBJECT (tree_column),
                                                "column-number"));
-  row = empty_list_store_iter_to_row (iter) + ia->first_line.skip_lines;
-  field = ia->separators.columns[column].contents[row];
+  row = empty_list_store_iter_to_row (iter) + ia->skip_lines;
+  field = ia->columns[column].contents[row];
   if (field.string != NULL)
     {
       GValue text = {0, };
@@ -369,7 +347,7 @@ on_query_input_tooltip (GtkWidget *widget, gint wx, gint wy,
   if (!get_tooltip_location (widget, wx, wy, ia, &row, &column))
     return FALSE;
 
-  if (ia->separators.columns[column].contents[row].string != NULL)
+  if (ia->columns[column].contents[row].string != NULL)
     return FALSE;
 
   gtk_tooltip_set_text (tooltip,
@@ -391,16 +369,15 @@ parse_field (struct import_assistant *ia,
              size_t row, size_t column,
              char **outputp, char **tooltipp)
 {
-  struct substring field;
-  union value val;
-  struct variable *var;
   const struct fmt_spec *in;
   struct fmt_spec out;
   char *tooltip;
   bool ok;
 
-  field = ia->separators.columns[column].contents[row];
-  var = dict_get_var (ia->formats.dict, column);
+  struct substring field = ia->columns[column].contents[row];
+  struct variable *var = dict_get_var (ia->dict, column);
+  union value val;
+
   value_init (&val, var_get_width (var));
   in = var_get_print_format (var);
   out = fmt_for_output_from_input (in);
@@ -410,7 +387,7 @@ parse_field (struct import_assistant *ia,
       char *error;
 
       error = data_in (field, "UTF-8", in->type, &val, var_get_width (var),
-                       dict_get_encoding (ia->formats.dict));
+                       dict_get_encoding (ia->dict));
       if (error != NULL)
         {
           tooltip = xasprintf (_("Cannot parse field content `%.*s' as "
@@ -428,7 +405,7 @@ parse_field (struct import_assistant *ia,
     }
   if (outputp != NULL)
     {
-      *outputp = data_out (&val, dict_get_encoding (ia->formats.dict),  &out);
+      *outputp = data_out (&val, dict_get_encoding (ia->dict),  &out);
     }
   value_destroy (&val, var_get_width (var));
 
@@ -456,7 +433,7 @@ render_output_cell (GtkTreeViewColumn *tree_column,
 
   ok = parse_field (ia,
                     (empty_list_store_iter_to_row (iter)
-                     + ia->first_line.skip_lines),
+                     + ia->skip_lines),
                     GPOINTER_TO_INT (g_object_get_data (G_OBJECT (tree_column),
                                                         "column-number")),
                     &output, NULL);
@@ -539,7 +516,7 @@ get_tooltip_location (GtkWidget *widget, gint wx, gint wy,
   if (!ok)
     return FALSE;
 
-  *row = empty_list_store_iter_to_row (&iter) + ia->first_line.skip_lines;
+  *row = empty_list_store_iter_to_row (&iter) + ia->skip_lines;
   return TRUE;
 }
 
@@ -635,9 +612,9 @@ make_data_column (struct import_assistant *ia, GtkTreeView *tree_view,
   char *name;
 
   if (input)
-    column = &ia->separators.columns[dict_idx];
+    column = &ia->columns[dict_idx];
   else
-    var = dict_get_var (ia->formats.dict, dict_idx);
+    var = dict_get_var (ia->dict, dict_idx);
 
   name = escape_underscores (input ? column->name : var_get_name (var));
   char_cnt = input ? column->width : var_get_print_format (var)->w;
@@ -671,11 +648,11 @@ create_data_tree_view (bool input, GtkContainer *parent,
   GtkTreeView *tree_view;
   gint i;
 
-  make_tree_view (ia, ia->first_line.skip_lines, &tree_view);
+  make_tree_view (ia, ia->skip_lines, &tree_view);
   gtk_tree_selection_set_mode (gtk_tree_view_get_selection (tree_view),
                                GTK_SELECTION_NONE);
 
-  for (i = 0; i < ia->separators.column_cnt; i++)
+  for (i = 0; i < ia->column_cnt; i++)
     gtk_tree_view_append_column (tree_view,
                                  make_data_column (ia, tree_view, input, i));