X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fspreadsheet-reader.c;h=294b93cec5d3f5190d5bddde902ea6e0c0d273d5;hb=8d6ff8a6bd25b184474a117c8332275b5add2d2b;hp=3572a03ce49bdac5e27fc320d3afa980dba89601;hpb=7f8a1592964567db640915d3019af0e25e30bbb6;p=pspp

diff --git a/src/data/spreadsheet-reader.c b/src/data/spreadsheet-reader.c
index 3572a03ce4..294b93cec5 100644
--- 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 Free Software Foundation, Inc.
+   Copyright (C) 2007, 2009, 2010, 2011, 2013 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
@@ -18,27 +18,102 @@
 
 #include "spreadsheet-reader.h"
 
+#include <libpspp/assertion.h>
+#include "gnumeric-reader.h"
+#include "ods-reader.h"
+
 #include <libpspp/str.h>
 #include <stdio.h>
 #include <string.h>
+#include <gl/xalloc.h>
+#include <gl/c-xvasprintf.h>
+#include <stdlib.h>
 
 
-struct spreadsheet * 
-spreadsheet_open (const char *filename)
+void 
+spreadsheet_destroy (struct spreadsheet *s)
 {
-  struct spreadsheet *ss = NULL;
+  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;
+    }
+}
+
 
-  ss = gnumeric_probe (filename);
-  
-  return ss;
+struct casereader * 
+spreadsheet_make_reader (struct spreadsheet *s UNUSED,
+                         const struct spreadsheet_read_options *opts UNUSED)
+{
+#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;
 }
 
-void 
-spreadsheet_close (struct spreadsheet *spreadsheet)
+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;
+}
+
+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
+
+#ifdef GNM_READ_SUPPORT
+  if ( s->type == SPREADSHEET_GNUMERIC)
+    return gnumeric_get_sheet_range (s, n);
+#endif
+
+  return NULL;
 }
 
 
+#define RADIX 26
+
+static void
+reverse (char *s, int len)
+{
+  int i;
+  for (i = 0; i < len / 2; ++i)
+    {
+      char tmp = s[len - i - 1];
+      s[len - i -1] = s[i];
+      s[i] = tmp;
+    }
+}
+
 
 /* Convert a string, which is an integer encoded in base26
    IE, A=0, B=1, ... Z=25 to the integer it represents.
@@ -48,31 +123,100 @@ spreadsheet_close (struct spreadsheet *spreadsheet)
    ABC = 2 + 2*26 + 1*26^2 ....
 */
 int
-pseudo_base26 (const char *str)
+ps26_to_int (const char *str)
 {
   int i;
   int multiplier = 1;
   int result = 0;
   int len = strlen (str);
 
-  for ( i = len - 1 ; i >= 0; --i)
+  for (i = len - 1 ; i >= 0; --i)
     {
       int mantissa = (str[i] - 'A');
 
-      if ( mantissa < 0 || mantissa > 25 )
-	return -1;
+      assert (mantissa >= 0);
+      assert (mantissa < RADIX);
 
-      if ( i != len - 1)
+      if (i != len - 1)
 	mantissa++;
 
       result += mantissa * multiplier;
-
-      multiplier *= 26;
+      multiplier *= RADIX;
     }
 
   return result;
 }
 
+char *
+int_to_ps26 (int i)
+{
+  char *ret = NULL;
+
+  int lower = 0;
+  long long int base = RADIX;
+  int exp = 1;
+
+  assert (i >= 0);
+
+  while (i > lower + base - 1)
+    {
+      lower += base;
+      base *= RADIX;      
+      assert (base > 0);
+      exp++;
+    }
+
+  i -= lower;
+  i += base;
+
+  ret = xmalloc (exp + 1);
+
+  exp = 0;
+  do
+    {
+      ret[exp++] = (i % RADIX) + 'A';
+      i /= RADIX;
+    }
+  while (i > 1);
+
+  ret[exp]='\0';
+
+  reverse (ret, exp);
+  return ret;
+}
+
+
+char *
+create_cell_ref (int col0, int row0)
+{
+  char *cs0 ;
+  char *s ;
+
+  if ( col0 < 0) return NULL;
+  if ( row0 < 0) return NULL;
+
+  cs0 =  int_to_ps26 (col0);
+  s =  c_xasprintf ("%s%d", cs0, row0 + 1);
+
+  free (cs0);
+
+  return s;
+}
+
+char *
+create_cell_range (int col0, int row0, int coli, int rowi)
+{
+  char *s0 = create_cell_ref (col0, row0);
+  char *si = create_cell_ref (coli, rowi);
+
+  char *s =  c_xasprintf ("%s:%s", s0, si);
+
+  free (s0);
+  free (si);
+
+  return s;
+}
+
 
 /* Convert a cell reference in the form "A1:B2", to
    integers.  A1 means column zero, row zero.
@@ -96,9 +240,9 @@ convert_cell_ref (const char *ref,
     return false;
 
   str_uppercase (startcol);
-  *col0 = pseudo_base26 (startcol);
+  *col0 = ps26_to_int (startcol);
   str_uppercase (stopcol);
-  *coli = pseudo_base26 (stopcol);
+  *coli = ps26_to_int (stopcol);
   *row0 = startrow - 1;
   *rowi = stoprow - 1 ;