1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 2007, 2009, 2010, 2011, 2013 Free Software Foundation, Inc.
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.
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.
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/>. */
19 #include "spreadsheet-reader.h"
21 #include <libpspp/str.h>
27 spreadsheet_open (const char *filename)
29 struct spreadsheet *ss = NULL;
31 ss = gnumeric_probe (filename);
37 spreadsheet_close (struct spreadsheet *spreadsheet)
44 reverse (char *s, int len)
47 for (i = 0; i < len / 2; ++i)
49 char tmp = s[len - i - 1];
56 /* Convert a string, which is an integer encoded in base26
57 IE, A=0, B=1, ... Z=25 to the integer it represents.
58 ... except that in this scheme, digits with an exponent
59 greater than 1 are implicitly incremented by 1, so
60 AA = 0 + 1*26, AB = 1 + 1*26,
61 ABC = 2 + 2*26 + 1*26^2 ....
64 ps26_to_int (const char *str)
69 int len = strlen (str);
71 for (i = len - 1 ; i >= 0; --i)
73 int mantissa = (str[i] - 'A');
75 assert (mantissa >= 0);
76 assert (mantissa < RADIX);
81 result += mantissa * multiplier;
94 long long int base = RADIX;
99 while (i > lower + base - 1)
115 ret[exp++] = (i % RADIX) + 'A';
127 create_cell_ref (int col0, int row0, int coli, int rowi)
133 if ( col0 < 0) return NULL;
134 if ( rowi < 0) return NULL;
135 if ( coli < 0) return NULL;
136 if ( row0 < 0) return NULL;
138 cs0 = int_to_ps26 (col0);
139 csi = int_to_ps26 (coli);
140 s = c_xasprintf ("%s%d:%s%ld",
150 /* Convert a cell reference in the form "A1:B2", to
151 integers. A1 means column zero, row zero.
152 B1 means column 1 row 0. AA1 means column 26, row 0.
155 convert_cell_ref (const char *ref,
156 int *col0, int *row0,
157 int *coli, int *rowi)
165 int n = sscanf (ref, "%4[a-zA-Z]%d:%4[a-zA-Z]%d",
171 str_uppercase (startcol);
172 *col0 = ps26_to_int (startcol);
173 str_uppercase (stopcol);
174 *coli = ps26_to_int (stopcol);
175 *row0 = startrow - 1;
176 *rowi = stoprow - 1 ;