docs

[pspp] / src / data / spreadsheet-reader.c

diff --git a/src/data/spreadsheet-reader.c b/src/data/spreadsheet-reader.c
index 76dbe8cd11f2fdec1f8f35f8eb2ed63f6d81173a..a16b430a52367fd9a670516f04b8eb0e4457e9e0 100644 (file)
--- a/src/data/spreadsheet-reader.c
+++ b/src/data/spreadsheet-reader.c
@@ -1,5 +1,5 @@
 /* PSPP - a program for statistical analysis.
-   Copyright (C) 2007, 2009, 2010, 2011, 2013 Free Software Foundation, Inc.
+   Copyright (C) 2007, 2009, 2010, 2011, 2013, 2020 Free Software Foundation, Inc.
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -29,73 +29,63 @@
 #include <gl/c-xvasprintf.h>
 #include <stdlib.h>
 
+struct spreadsheet *
+spreadsheet_ref (struct spreadsheet *s)
+{
+  s->ref_cnt++;
+  return s;
+}
 
-void 
-spreadsheet_destroy (struct spreadsheet *s)
+void
+spreadsheet_unref (struct spreadsheet *s)
 {
-  switch (s->type)
-    {
-#ifdef ODF_READ_SUPPORT
-    case SPREADSHEET_ODS:
-      ods_destroy (s);
-      break;
-#endif
-#ifdef GNM_READ_SUPPORT
-    case SPREADSHEET_GNUMERIC:
-      gnumeric_destroy (s);
-      break;
-#endif
-    default:
-      NOT_REACHED ();
-      break;
-    }
+  if (--s->ref_cnt == 0)
+    s->destroy (s);
 }
 
 
-struct casereader * 
-spreadsheet_make_reader (struct spreadsheet *s, const struct spreadsheet_read_options *opts)
+struct casereader *
+spreadsheet_make_reader (struct spreadsheet *s,
+                         const struct spreadsheet_read_options *opts)
 {
-#ifdef ODS_READ_SUPPORT
-  if ( s->type == SPREADSHEET_ODS)
-    return ods_make_reader (s, opts);
-#endif
-#ifdef GNM_READ_SUPPORT
-  if ( s->type == SPREADSHEET_GNUMERIC)
-    return gnumeric_make_reader (s, opts);
-#endif
-
-  return NULL;
+  return s->make_reader (s, opts);
 }
 
-const char * 
+const char *
 spreadsheet_get_sheet_name (struct spreadsheet *s, int n)
 {
-#ifdef ODF_READ_SUPPORT
-  if ( s->type == SPREADSHEET_ODS)
-    return ods_get_sheet_name (s, n);
-#endif
-#ifdef GNM_READ_SUPPORT
-  if ( s->type == SPREADSHEET_GNUMERIC)
-    return gnumeric_get_sheet_name (s, n);
-#endif
-
-  return NULL;
+  return s->get_sheet_name (s, n);
 }
 
-char * 
+
+char *
 spreadsheet_get_sheet_range (struct spreadsheet *s, int n)
 {
-#ifdef ODF_READ_SUPPORT
-  if ( s->type == SPREADSHEET_ODS)
-    return ods_get_sheet_range (s, n);
-#endif
+  return s->get_sheet_range (s, n);
+}
+
+int
+spreadsheet_get_sheet_n_sheets (struct spreadsheet *s)
+{
+  return s->get_sheet_n_sheets (s);
+}
+
+unsigned int
+spreadsheet_get_sheet_n_rows (struct spreadsheet *s, int n)
+{
+  return s->get_sheet_n_rows (s, n);
+}
 
-#ifdef GNM_READ_SUPPORT
-  if ( s->type == SPREADSHEET_GNUMERIC)
-    return gnumeric_get_sheet_range (s, n);
-#endif
+unsigned int
+spreadsheet_get_sheet_n_columns (struct spreadsheet *s, int n)
+{
+  return s->get_sheet_n_columns (s, n);
+}
 
-  return NULL;
+char *
+spreadsheet_get_cell (struct spreadsheet *s, int n, int row, int column)
+{
+  return s->get_sheet_cell (s, n, row, column);
 }
 
 
@@ -120,6 +110,7 @@ reverse (char *s, int len)
    greater than 1 are implicitly incremented by 1, so
    AA  = 0 + 1*26, AB = 1 + 1*26,
    ABC = 2 + 2*26 + 1*26^2 ....
+   On error, this function returns -1
 */
 int
 ps26_to_int (const char *str)
@@ -131,7 +122,10 @@ ps26_to_int (const char *str)
 
   for (i = len - 1 ; i >= 0; --i)
     {
-      int mantissa = (str[i] - 'A');
+      char c = str[i];
+      if (c < 'A' || c > 'Z')
+       return -1;
+      int mantissa = (c - 'A');
 
       assert (mantissa >= 0);
       assert (mantissa < RADIX);
@@ -146,6 +140,9 @@ ps26_to_int (const char *str)
   return result;
 }
 
+/* Convert an integer, which must be non-negative,
+   to pseudo base 26.
+   The caller must free the return value when no longer required.  */
 char *
 int_to_ps26 (int i)
 {
@@ -155,12 +152,13 @@ int_to_ps26 (int i)
   long long int base = RADIX;
   int exp = 1;
 
-  assert (i >= 0);
+  if (i < 0)
+    return NULL;
 
   while (i > lower + base - 1)
     {
       lower += base;
-      base *= RADIX;      
+      base *= RADIX;
       assert (base > 0);
       exp++;
     }
@@ -191,10 +189,10 @@ create_cell_ref (int col0, int row0)
   char *cs0 ;
   char *s ;
 
-  if ( col0 < 0) return NULL;
-  if ( row0 < 0) return NULL;
+  if (col0 < 0) return NULL;
+  if (row0 < 0) return NULL;
 
-  cs0 =  int_to_ps26 (col0);
+  cs0 = int_to_ps26 (col0);
   s =  c_xasprintf ("%s%d", cs0, row0 + 1);
 
   free (cs0);
@@ -235,7 +233,7 @@ convert_cell_ref (const char *ref,
   int n = sscanf (ref, "%4[a-zA-Z]%d:%4[a-zA-Z]%d",
              startcol, &startrow,
              stopcol, &stoprow);
-  if ( n != 4)
+  if (n != 4)
     return false;
 
   str_uppercase (startcol);
@@ -247,4 +245,3 @@ convert_cell_ref (const char *ref,
 
   return true;
 }
-