pintos-os.org Git - pspp/blob - src/data/spreadsheet-reader.c

   1 /* PSPP - a program for statistical analysis.
   2    Copyright (C) 2007, 2009, 2010, 2011 Free Software Foundation, Inc.
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  16
  17 #include <config.h>
  18
  19 #include "spreadsheet-reader.h"
  20
  21 #include <libpspp/str.h>
  22 #include <stdio.h>
  23 #include <string.h>
  24
  25
  26 struct spreadsheet *
  27 spreadsheet_open (const char *filename)
  28 {
  29   struct spreadsheet *ss = NULL;
  30
  31   ss = gnumeric_probe (filename);
  32
  33   return ss;
  34 }
  35
  36 void
  37 spreadsheet_close (struct spreadsheet *spreadsheet)
  38 {
  39 }
  40
  41
  42
  43 /* Convert a string, which is an integer encoded in base26
  44    IE, A=0, B=1, ... Z=25 to the integer it represents.
  45    ... except that in this scheme, digits with an exponent
  46    greater than 1 are implicitly incremented by 1, so
  47    AA  = 0 + 1*26, AB = 1 + 1*26,
  48    ABC = 2 + 2*26 + 1*26^2 ....
  49 */
  50 int
  51 pseudo_base26 (const char *str)
  52 {
  53   int i;
  54   int multiplier = 1;
  55   int result = 0;
  56   int len = strlen (str);
  57
  58   for ( i = len - 1 ; i >= 0; --i)
  59     {
  60       int mantissa = (str[i] - 'A');
  61
  62       if ( mantissa < 0 || mantissa > 25 )
  63         return -1;
  64
  65       if ( i != len - 1)
  66         mantissa++;
  67
  68       result += mantissa * multiplier;
  69
  70       multiplier *= 26;
  71     }
  72
  73   return result;
  74 }
  75
  76
  77 /* Convert a cell reference in the form "A1:B2", to
  78    integers.  A1 means column zero, row zero.
  79    B1 means column 1 row 0. AA1 means column 26, row 0.
  80 */
  81 bool
  82 convert_cell_ref (const char *ref,
  83                   int *col0, int *row0,
  84                   int *coli, int *rowi)
  85 {
  86   char startcol[5];
  87   char stopcol [5];
  88
  89   int startrow;
  90   int stoprow;
  91
  92   int n = sscanf (ref, "%4[a-zA-Z]%d:%4[a-zA-Z]%d",
  93               startcol, &startrow,
  94               stopcol, &stoprow);
  95   if ( n != 4)
  96     return false;
  97
  98   str_uppercase (startcol);
  99   *col0 = pseudo_base26 (startcol);
 100   str_uppercase (stopcol);
 101   *coli = pseudo_base26 (stopcol);
 102   *row0 = startrow - 1;
 103   *rowi = stoprow - 1 ;
 104
 105   return true;
 106 }
 107