Another test works
[pspp] / src / data / ods-reader.c
index 0e55eb273e0ec60e3e2069c925c3a41112e78bec..7c12af221562a00749738e05341b1f6dec366eed 100644 (file)
@@ -106,19 +106,27 @@ struct ods_reader
   xmlTextReaderPtr xtr;
 
   enum reader_state state;
-  bool sheet_found;
   int row;
   int col;
   int node_type;
-  int sheet_index;
+  int current_sheet;
+  xmlChar *current_sheet_name;
 
-  const xmlChar *target_sheet;
+  const xmlChar *target_sheet_name;
   int target_sheet_index;
 
+
+  int wanted_row_start;
+  int wanted_col_start;
+
+#if 0
   int start_row;
   int start_col;
   int stop_row;
   int stop_col;
+#endif
+
+  int col_span;
 
   struct sheet_detail *sheets;
   int n_allocated_sheets;
@@ -133,6 +141,22 @@ struct ods_reader
 };
 
 
+static bool
+reading_target_sheet (const struct ods_reader *r)
+{
+  if (r->target_sheet_name != NULL)
+    {
+      if ( 0 == xmlStrcmp (r->target_sheet_name, r->current_sheet_name))
+       return true;
+    }
+  
+  if (r->target_sheet_index == r->current_sheet + 1)
+    return true;
+
+  return false;
+}
+
+
 static void process_node (struct ods_reader *r);
 
 
@@ -224,11 +248,9 @@ process_node (struct ods_reader *r)
       if (0 == xmlStrcasecmp (name, _xml("office:spreadsheet")) &&
          XML_READER_TYPE_ELEMENT  == r->node_type)
        {
-         printf ("%s:%d Start of Workbook %d: Rows %d\n", __FILE__, __LINE__,
-                 r->sheet_index,  r->row);
-
          r->state = STATE_SPREADSHEET;
-         r->sheet_index = -1
+         r->current_sheet = -1;
+         r->current_sheet_name = NULL;
        }
       break;
     case STATE_SPREADSHEET:
@@ -236,49 +258,30 @@ process_node (struct ods_reader *r)
          && 
          (XML_READER_TYPE_ELEMENT == r->node_type))
        {
-         xmlChar *value = xmlTextReaderGetAttribute (r->xtr, _xml ("table:name"));
-
+         xmlFree (r->current_sheet_name);
+         r->current_sheet_name = xmlTextReaderGetAttribute (r->xtr, _xml ("table:name"));
 
-         ++r->sheet_index;
+         ++r->current_sheet;
 
-         printf ("%s:%d Start of SHEET %d: Allocated Sheets %d\n", __FILE__, __LINE__,
-                 r->sheet_index,  r->n_allocated_sheets);
-
-         if (r->sheet_index >= r->n_allocated_sheets)
+         if (r->current_sheet >= r->n_allocated_sheets)
            {
              r->sheets = xrealloc (r->sheets, sizeof (*r->sheets) * ++r->n_allocated_sheets);
              r->sheets[r->n_allocated_sheets - 1].start_col = -1;
              r->sheets[r->n_allocated_sheets - 1].stop_col = -1;
              r->sheets[r->n_allocated_sheets - 1].start_row = -1;
              r->sheets[r->n_allocated_sheets - 1].stop_row = -1;
-             r->sheets[r->n_allocated_sheets - 1].name = value;
+             r->sheets[r->n_allocated_sheets - 1].name = xmlStrdup (r->current_sheet_name);
            }
 
-
-
          r->col = 0;
          r->row = 0;
 
-
-         if ( r->target_sheet != NULL)
-           {
-             if ( 0 == xmlStrcmp (value, r->target_sheet))
-               {
-                 r->sheet_found = true;
-               }
-           }
-         else if (r->target_sheet_index == r->sheet_index)
-           {
-             r->sheet_found = true;
-           }
          r->state = STATE_TABLE;
        }
       else if (0 == xmlStrcasecmp (name, _xml("office:spreadsheet")) &&
               XML_READER_TYPE_ELEMENT  == r->node_type)
        {
          r->state = STATE_INIT;
-         printf ("%s:%d End of Workbook %d: Rows %d Cols %d\n", __FILE__, __LINE__,
-                 r->sheet_index,  r->row, r->col);
        }
       break;
     case STATE_TABLE:
@@ -291,7 +294,6 @@ process_node (struct ods_reader *r)
          
          int row_span = value ? _xmlchar_to_int (value) : 1;
 
-         printf ("%s:%d  Start of Row %d Span %d\n", __FILE__, __LINE__,  r->row, row_span);
          r->row += row_span;
          r->col = 0;
          
@@ -301,12 +303,11 @@ process_node (struct ods_reader *r)
       else if (0 == xmlStrcasecmp (name, _xml("table:table")) && 
               (XML_READER_TYPE_END_ELEMENT  == r->node_type))
        {
-         printf ("%s:%d End of SHEET %d %d,%d\n", __FILE__, __LINE__,  r->sheet_index,  r->row, r->col);
          r->state = STATE_SPREADSHEET;
-
        }
       break;
     case STATE_ROW:
+      //      printf ("%s:%d Name is %s\n", __FILE__, __LINE__, name);
       if ( (0 == xmlStrcasecmp (name, _xml ("table:table-cell")))
           && 
           (XML_READER_TYPE_ELEMENT  == r->node_type))
@@ -315,13 +316,11 @@ process_node (struct ods_reader *r)
            xmlTextReaderGetAttribute (r->xtr,
                                       _xml ("table:number-columns-repeated"));
          
-         int col_span = value ? _xmlchar_to_int (value) : 1;
+         r->col_span = value ? _xmlchar_to_int (value) : 1;
+         r->col += r->col_span;
 
-         r->col += col_span;
+         //      printf ("%s:%d %s\n", __FILE__, __LINE__, value);
 
-         printf ("%s:%d  (span %d) Start of Cell %d, %d\n", __FILE__, __LINE__,  
-                 col_span,
-                 r->row, r->col);
          if (! xmlTextReaderIsEmptyElement (r->xtr))
            r->state = STATE_CELL;
        }
@@ -329,8 +328,6 @@ process_node (struct ods_reader *r)
                &&
                (XML_READER_TYPE_END_ELEMENT  == r->node_type))
        {
-         /* Set the span back to the default */
-         printf ("%s:%d  End of Cell:  %d, %d\n", __FILE__, __LINE__, r->row, r->col);
          r->state = STATE_TABLE;
        }
       break;
@@ -339,7 +336,6 @@ process_node (struct ods_reader *r)
            &&
           ( XML_READER_TYPE_ELEMENT  == r->node_type))
        {
-         printf ("%s:%d  Start of Cell Contents %d\n", __FILE__, __LINE__,    r->row);
          if (! xmlTextReaderIsEmptyElement (r->xtr))
            r->state = STATE_CELL_CONTENT;
        }
@@ -349,29 +345,27 @@ process_node (struct ods_reader *r)
          (XML_READER_TYPE_END_ELEMENT  == r->node_type)
          )
        {
-         printf ("%s:%d End of Cell contents: Rows %d\n", __FILE__, __LINE__, r->row);
          r->state = STATE_ROW;
        }
       break;
     case STATE_CELL_CONTENT:
-      assert (r->sheet_index >= 0);
-      assert (r->sheet_index < r->n_allocated_sheets);
+      assert (r->current_sheet >= 0);
+      assert (r->current_sheet < r->n_allocated_sheets);
 
-      if (r->sheets[r->sheet_index].start_row == -1)
-       r->sheets[r->sheet_index].start_row = r->row - 1;
+      if (r->sheets[r->current_sheet].start_row == -1)
+       r->sheets[r->current_sheet].start_row = r->row - 1;
 
       if ( 
-         (r->sheets[r->sheet_index].start_col == -1)
+         (r->sheets[r->current_sheet].start_col == -1)
          ||
-         (r->sheets[r->sheet_index].start_col >= r->col - 1)
+         (r->sheets[r->current_sheet].start_col >= r->col - 1)
           )
-       r->sheets[r->sheet_index].start_col = r->col - 1;
+       r->sheets[r->current_sheet].start_col = r->col - 1;
 
-      r->sheets[r->sheet_index].stop_row = r->row - 1;
-      printf ("Stop Row for  %d is %d\n", r->sheet_index, r->sheets[r->sheet_index].stop_row);
+      r->sheets[r->current_sheet].stop_row = r->row - 1;
 
-      if ( r->sheets[r->sheet_index].stop_col <  r->col - 1)
-       r->sheets[r->sheet_index].stop_col = r->col - 1;
+      if ( r->sheets[r->current_sheet].stop_col <  r->col - 1)
+       r->sheets[r->current_sheet].stop_col = r->col - 1;
 
       if (XML_READER_TYPE_END_ELEMENT  == r->node_type)
        r->state = STATE_CELL;
@@ -552,20 +546,17 @@ ods_probe (const char *filename, bool report_errors)
   r = xzalloc (sizeof *r);
   r->zreader = zr;
 
-  if (! init_reader (r, false))
+  if (! init_reader (r, report_errors))
     {
       goto error;
     }
 
   r->spreadsheet.n_sheets = sheet_count;
   r->n_allocated_sheets = 0;
-  r->sheet_index = -1;
   r->sheets = NULL;
 
   ds_destroy (&errs);
 
-  printf ("%s:%d\n", __FILE__, __LINE__);
-
   r->spreadsheet.file_name = filename;
   return &r->spreadsheet;
 
@@ -596,13 +587,10 @@ ods_make_reader (struct spreadsheet *spreadsheet,
   ds_init_empty (&r->ods_errs);
 
 
-  printf ("%s:%d\n", __FILE__, __LINE__);
-
   if ( !init_reader (r, true))
     goto error;
 
-  printf ("%s:%d\n", __FILE__, __LINE__);
-
+#if 0
   if ( opts->cell_range )
     {
       if ( ! convert_cell_ref (opts->cell_range,
@@ -621,16 +609,14 @@ ods_make_reader (struct spreadsheet *spreadsheet,
       r->stop_col = -1;
       r->stop_row = -1;
     }
+#endif
 
   r->state = STATE_INIT;
-  r->target_sheet = BAD_CAST opts->sheet_name;
+  r->target_sheet_name = BAD_CAST opts->sheet_name;
   r->target_sheet_index = opts->sheet_index;
   r->row = r->col = 0;
-  r->sheet_index = 0;
-
-  printf ("%s:%d\n", __FILE__, __LINE__);
-
 
+#if 0
   /* If CELLRANGE was given, then we know how many variables should be read */
   if ( r->stop_col != -1 )
     {
@@ -639,15 +625,10 @@ ods_make_reader (struct spreadsheet *spreadsheet,
       var_spec = xrealloc (var_spec, sizeof (*var_spec) * n_var_specs);
       memset (var_spec, '\0', sizeof (*var_spec) * n_var_specs);
     }
-
-  printf ("%s:%d Number of var specs %d\n", __FILE__, __LINE__, n_var_specs);
-  printf ("%s:%d Target Sjheet %d\n", __FILE__, __LINE__, r->target_sheet_index);
-
+#endif
 
   /* Advance to the start of the cells for the target sheet */
-  while ( r->sheet_index < r->target_sheet_index - 1 ||
-         r->state != STATE_TABLE
-         )
+  while ( ! reading_target_sheet (r)  || r->state != STATE_ROW  )
     {
       if (1 != (ret = xmlTextReaderRead (r->xtr)))
           break;
@@ -655,7 +636,6 @@ ods_make_reader (struct spreadsheet *spreadsheet,
       process_node (r);
     }
 
-  printf ("%s:%d\n", __FILE__, __LINE__);
 
   if (ret < 1)
     {
@@ -664,8 +644,6 @@ ods_make_reader (struct spreadsheet *spreadsheet,
       goto error;
     }
 
-  printf ("%s:%d\n", __FILE__, __LINE__);
-
   if ( opts->read_names)
     {
       while (1 == (ret = xmlTextReaderRead (r->xtr)))
@@ -675,10 +653,10 @@ ods_make_reader (struct spreadsheet *spreadsheet,
          process_node (r);
 
          /* If the row is finished then stop for now */
-         if (r->state == STATE_TABLE && r->row > r->start_row)
+         if (r->state == STATE_TABLE && r->row > r->wanted_row_start)
            break;
-         
-         idx = r->col - r->start_col - 1;
+
+         idx = r->col - r->wanted_col_start - 1;
 
          if (r->state == STATE_CELL_CONTENT 
              &&
@@ -706,7 +684,6 @@ ods_make_reader (struct spreadsheet *spreadsheet,
        }
     }
 
-
   /* Read in the first row of data */
   while (1 == xmlTextReaderRead (r->xtr))
     {
@@ -714,10 +691,10 @@ ods_make_reader (struct spreadsheet *spreadsheet,
       process_node (r);
 
       /* If the row is finished then stop for now */
-      if (r->state == STATE_TABLE && r->row > r->start_row + 1)
+      if (r->state == STATE_TABLE && r->row > r->wanted_row_start + (opts->read_names ? 1 : 0))
        break;
 
-      idx = r->col - r->start_col - 1;
+      idx = r->col - r->wanted_col_start - 1;
 
       if ( r->state == STATE_CELL &&
           XML_READER_TYPE_ELEMENT  == r->node_type)
@@ -729,6 +706,13 @@ ods_make_reader (struct spreadsheet *spreadsheet,
       if ( r->state == STATE_CELL_CONTENT &&
           XML_READER_TYPE_TEXT  == r->node_type)
        {
+         if ( idx >= n_var_specs) 
+           {
+             var_spec = xrealloc (var_spec, sizeof (*var_spec) * (idx + 1));
+             var_spec [idx].name = NULL;
+             n_var_specs = idx + 1;
+           }
+           
          var_spec [idx].firstval.type = type;
          var_spec [idx].firstval.text = xmlTextReaderValue (r->xtr);
          var_spec [idx].firstval.value = val_string;
@@ -738,6 +722,7 @@ ods_make_reader (struct spreadsheet *spreadsheet,
        }
     }
 
+
   /* Create the dictionary and populate it */
   r->spreadsheet.dict = r->dict = dict_create (
     CHAR_CAST (const char *, xmlTextReaderConstEncoding (r->xtr)));
@@ -779,16 +764,21 @@ ods_make_reader (struct spreadsheet *spreadsheet,
   r->first_case = case_create (r->proto);
   case_set_missing (r->first_case);
 
-  printf ("%s:%d Hello %d\n", __FILE__, __LINE__, n_var_specs);
-
-  for ( i = 0 ; i < n_var_specs ; ++i )
+  for (i = 0 ; i < n_var_specs; ++i)
     {
       const struct variable *var = dict_get_var (r->dict, i);
 
       convert_xml_to_value (r->first_case, var,  &var_spec[i].firstval);
     }
 
-  printf ("%s:%d Hello %d\n", __FILE__, __LINE__, n_var_specs);
+  /* Read in the first row of data */
+  while (1 == xmlTextReaderRead (r->xtr))
+    {
+      process_node (r);
+
+      if (r->state == STATE_ROW)
+       break;
+    }
 
   //  zip_reader_destroy (zreader);
 
@@ -804,7 +794,6 @@ ods_make_reader (struct spreadsheet *spreadsheet,
   free (var_spec);
 #endif
 
-  printf ("%s:%d Creating reader\n", __FILE__, __LINE__);
   return casereader_create_sequential
     (NULL,
      r->proto,
@@ -844,54 +833,44 @@ ods_file_casereader_read (struct casereader *reader UNUSED, void *r_)
   struct ods_reader *r = r_;
   int current_row = r->row;
 
-  printf ("%s:%d Reading CASE\n", __FILE__, __LINE__);
-
-  if ( !r->used_first_case )
+  if (!r->used_first_case)
     {
       r->used_first_case = true;
       return r->first_case;
     }
 
-  printf ("%s:%d Reading CASE\n", __FILE__, __LINE__);
 
-  if ( r->state > STATE_INIT)
+  /* Advance to the start of a row. (If there is one) */
+  while (r->state != STATE_ROW && 1 == xmlTextReaderRead (r->xtr))
     {
-      c = case_create (r->proto);
-      case_set_missing (c);
+      process_node (r);
     }
 
-  if (r->state == STATE_SPREADSHEET)
+
+  if ( ! reading_target_sheet (r)  ||  r->state < STATE_TABLE)
     {
-      printf ("%s:%d CASES ARE ENDED\n", __FILE__, __LINE__);
       return NULL;
     }
 
+  c = case_create (r->proto);
+  case_set_missing (c);
+  
   while (1 == xmlTextReaderRead (r->xtr))
     {
       process_node (r);
-      if ( r->row > current_row)
-       {
-         break;
-       }
-      if ( r->col < r->start_col || (r->stop_col != -1 && r->col > r->stop_col))
-       {
-         continue;
-       }
-      if ( r->col - r->start_col >= caseproto_get_n_widths (r->proto))
-       {
-         continue;
-       }
-      if ( r->stop_row != -1 && r->row > r->stop_row)
-       {
-         continue;
-       }
-      if ( r->state == STATE_CELL &&
-          r->node_type == XML_READER_TYPE_ELEMENT )
+#if 0
+      if (r->row > current_row && r->state == STATE_ROW)
+       break;
+#endif
+      //      printf ("%s:%d\n", __FILE__, __LINE__);
+      if (r->state == STATE_CELL &&
+          r->node_type == XML_READER_TYPE_ELEMENT)
        {
          val_string = xmlTextReaderGetAttribute (r->xtr, _xml ("office:value"));
        }
 
-      if ( r->state == STATE_CELL_CONTENT && r->node_type == XML_READER_TYPE_TEXT )
+      if (r->state == STATE_CELL_CONTENT && 
+          r->node_type == XML_READER_TYPE_TEXT)
        {
          int col;
          struct xml_value *xmv = xzalloc (sizeof *xmv);
@@ -899,33 +878,21 @@ ods_file_casereader_read (struct casereader *reader UNUSED, void *r_)
          xmv->value = val_string;
          val_string = NULL;
 
-         /*
-         for (col = 0; col < r->span ; ++col)
+         for (col = 0; col < r->col_span; ++col)
            {
-             const int idx = r->col + col - r->start_col;
-
+             const int idx = r->col + col - r->wanted_col_start - 1;
              const struct variable *var = dict_get_var (r->dict, idx);
-
              convert_xml_to_value (c, var, xmv);
            }
-         */
+
          free (xmv->text);
          free (xmv->value);
          free (xmv);
        }
-
-      if ( r->state < STATE_TABLE)
+      if ( r->state <= STATE_TABLE)
        break;
     }
 
-  if (NULL == c || (r->stop_row != -1 && r->row > r->stop_row + 1))
-    {
-      case_unref (c);
-      return NULL;
-    }
-  else
-    {
-      return c;
-    }
+  return c;
 }
 #endif