1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
|
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "../machine.h"
#ifdef WIN32
#include "../os_specific/win_mem_alloc.h" /* MALLOC */
#else
#include "../os_specific/sci_mem_alloc.h" /* MALLOC */
#endif
#include "../stack-c.h"
/*---------------------------------------------------------------
Authors Pierrick Mode, Serge Steer INRIA 2005, Copyright INRIA
--------------------------------------------------------------*/
extern int ripole(char *inputfile, char *outputfile, int debug, int verbose);
extern void GetenvB( char *name,char *env, int len);
extern void C2F(mopen)(int *fd, char *file, char *status, int *f_swap, double *res, int *error);
extern int C2F(cluni0)(char *in_name, char *out_name, int *out_n, long int lin, long int lout);
/*Prototype*/
void xls_read(int *fd, int *cur_pos,double **data, int **chainesind, int *N, int *M, int *err);
void xls_open(int *err, int *fd, char ***sst, int *ns, char ***Sheetnames, int** Abspos,int *nsheets);
/*------------------------------------------------------------------*/
/*------------------------------------------------------------------*/
int C2F(intreadxls)(char *fname, long lfn)
{
int m1,n1,l1,zero=0,ierr;
double *data;
int *ind;
int M,N,MN;
int pos,fd;
CheckLhs(2,2);
CheckRhs(2,2);
/* checking variable Pos */
GetRhsVar(1,"d",&m1,&n1,&l1);
fd=(int)*stk(l1);
GetRhsVar(2,"d",&m1,&n1,&l1);
pos=(int)*stk(l1);
xls_read(&fd,&pos,&data, &ind, &N, &M, &ierr);
if (ierr == 1)
{
Scierror(999,"%s :Not enough memory to allocate results \r\n",fname);
return 0;
}
else if(ierr == 2)
{
Scierror(999,"%s :Failed to read expected data, may be invalid xls file \r\n",fname);
return 0;
}
else if(ierr == 3)
{
Scierror(999,"%s :End of File \r\n",fname);
return 0;
}
/* sciprint("readxls %d %d %d\n",M,N,ierr);*/
MN=M*N;
if (MN==0)
{
CreateVar(Rhs+1, "d", &zero,&zero, &l1);
CreateVar(Rhs+2, "d", &zero,&zero, &l1);
}
else
{
CreateVarFromPtr(Rhs+1, "d", &N,&M, &data);
CreateVarFromPtr(Rhs+2, "i", &N,&M, &ind);
FREE(data);
FREE(ind);
}
LhsVar(1)= Rhs+1;
LhsVar(2)= Rhs+2;
C2F(putlhsvar)();
return 0;
}
#include "../fileio/ole.h"
static char *xls_basename (name)
char *name;
{
char *base;
#ifdef WIN32
base = strrchr (name, '\\');
#else
base = strrchr (name, '/');
#endif
return base ? base + 1 : name;
}
int C2F(intopenxls)(char *fname, long lfn)
{
#undef IN
int i,k,m1,n1,l1,l2,one=1,fd,f_swap=0;
int ierr,ns,result;
double res;
char **sst;
char **Sheetnames;
int *Abspos;
int nsheets;
char IN[256],TMP[256];
char sep[2];
#ifdef WIN32
sep[0]='\\';
#else
sep[0]='/';
#endif
sep[1]='\0';
CheckLhs(4,4);
CheckRhs(1,1);
/* checking variable file */
GetRhsVar(1,"c",&m1,&n1,&l1);
C2F(cluni0)(cstk(l1), IN, &ns,(long int) (m1*n1),256L);
strcpy(TMP,getenv("TMPDIR"));
strcat(TMP,sep);
strcat(TMP,xls_basename(IN));
result=ripole(IN, TMP, 0, 0);
if (result != OLE_OK) {
if (result == OLEER_NO_INPUT_FILE)
Scierror(999,"%s :There is no file %s \r\n",fname,IN);
else if(result == OLEER_NOT_OLE_FILE ||
result == OLEER_INSANE_OLE_FILE ||
result == OLEER_LOADFAT_BAD_BOUNDARY ||
result == OLEER_MINIFAT_READ_FAIL ||
result == OLEER_PROPERTIES_READ_FAIL)
Scierror(999,"%s :file %s is not an ole2 file\r\n",fname,IN);
else if(result == -1)
Scierror(999,"%s :file %s exists but cannot be opened\r\n",fname,IN);
return 0;
}
strcat(TMP,sep);
strcat(TMP,"Workbook");
C2F(mopen)(&fd, TMP,"rb", &f_swap, &res, &ierr);
if (ierr != 0)
{
Scierror(999,"%s :There is no xls stream in the ole2 file %s \r\n",fname,IN);
return 0;
}
CreateVar(Rhs+1,"i",&one,&one,&l2);
*istk(l2)=fd; /* logical unit */
xls_open(&ierr, &fd, &sst ,&ns, &Sheetnames, &Abspos,&nsheets);
/*return *err:
0 = OK
1 = not an OLE file
2 = no Workbook included
3 = memory allocation problem
4 = incorrect file
5 = not a BIFF8 xls file
*/
if (ierr == 1)
{
Scierror(999,"%s :Not an ole2 file \r\n",fname);
return 0;
}
else if (ierr == 2)
{
Scierror(999,"%s : the file has no Workbook directory \r\n",fname);
return 0;
}
else if (ierr == 3)
{
Scierror(999,"%s : impossible to alloc enough memory \r\n",fname);
return 0;
}
else if (ierr == 4)
{
Scierror(990,"%s : incorrect or corrupted file \r\n",fname);
return 0;
}
else if (ierr == 3)
{
Scierror(999,"%s : Only BIFF8 file format is handled \r\n",fname);
return 0;
}
if (ns != 0) {
/* Create a typed list to return the properties */
CreateVarFromPtr(Rhs+2,"S", &one, &ns, sst);
for (k=0;k<ns;k++) FREE(sst[k]);
FREE(sst);}
else
CreateVar(Rhs+2,"d",&ns,&ns,&l2);
if (nsheets != 0) {
/* Create a typed list to return the properties */
CreateVarFromPtr(Rhs+3,"S", &one, &nsheets, Sheetnames);
for (k=0;k<nsheets;k++) FREE(Sheetnames[k]);
FREE(Sheetnames);
CreateVar(Rhs+4,"d", &one, &nsheets, &l2);
for (i=0;i<nsheets;i++) *stk(l2+i)=Abspos[i];
FREE(Abspos);
}
else {
CreateVar(Rhs+3,"d",&nsheets,&nsheets,&l2);
CreateVar(Rhs+4,"d",&nsheets,&nsheets,&l2);
}
LhsVar(1)= Rhs+1;
LhsVar(2)= Rhs+2;
LhsVar(3)= Rhs+3;
LhsVar(4)= Rhs+4;
C2F(putlhsvar)();
return 0;
}
|
