xls.c File Reference

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "machine.h"
#include "MALLOC.h"
#include "sciprint.h"

Include dependency graph for xls.c:

Go to the source code of this file.

Defines
#define	typ_short   "s"
#define	typ_ushort   "us"
#define	typ_char   "c"
#define	typ_uchar   "uc"
#define	typ_double   "d"
#define	typ_int   "i"
#define	Min(x, y)   ((x) < (y) ? (x) : (y))
Functions
int	ripole (char *inputfile, char *outputfile, int debug, int verbose)
void C2F()	mgetnc (integer *fd, void *res, integer *n, char *type, integer *ierr)
void C2F()	mtell (integer *fd, double *offset, integer *err)
void C2F()	mseek (integer *fd, integer *offset, char *flag, integer *err)
FILE *	GetFile (integer *fd)
int	GetSwap (integer *fd)
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)
static double	NumFromRk2 (long rk)
static void	getBoundsheets (int *fd, char ***Sheetnames, int **Abspos, int *nsheets, int *cur_pos, int *err)
static void	getSST (int *fd, short Len, int BIFF, int *ns, char ***sst, int *err)
static void	getBOF (int *fd, int *Data, int *err)
static void	getString (int *fd, short *count, short *Len, int flag, char **str, int *err)
static int	get_oleheader (int *fd)
static double	return_a_nan ()

---

Define Documentation

#define Min	(	x,
		y		)	((x) < (y) ? (x) : (y))

Definition at line 17 of file xls.c.

#define typ_char   "c"

Definition at line 13 of file xls.c.

Referenced by getBoundsheets(), and getString().

#define typ_double   "d"

Definition at line 15 of file xls.c.

Referenced by xls_read().

#define typ_int   "i"

Definition at line 16 of file xls.c.

Referenced by getBOF(), getBoundsheets(), getSST(), getString(), and xls_read().

#define typ_short   "s"

Definition at line 11 of file xls.c.

Referenced by getBOF(), getString(), and xls_read().

#define typ_uchar   "uc"

Definition at line 14 of file xls.c.

Referenced by get_oleheader().

#define typ_ushort   "us"

Definition at line 12 of file xls.c.

Referenced by getBOF(), getBoundsheets(), getString(), xls_open(), and xls_read().

---

Function Documentation

static int get_oleheader

(

int *

fd

)

[static]

Definition at line 744 of file xls.c.

References C2F, ierr, memcmp(), mgetnc(), and typ_uchar.

{
  unsigned char MAGIC[8] = { 0xd0, 0xcf, 0x11, 0xe0, 0xa1, 0xb1, 0x1a, 0xe1 };
  unsigned char header[512];
  int c,ierr;

  C2F(mgetnc) (fd, (void *)header,(c=512,&c), typ_uchar, &ierr);
  if (ierr !=0)  return 1;
  if (memcmp (header, MAGIC, sizeof (MAGIC)) != 0) return 1;
  return 0;
}

Here is the call graph for this function:

static void getBOF	(	int *	fd,
		int *	Data,
		int *	err
	)			[static]

Definition at line 361 of file xls.c.

References C2F, Len(), mgetnc(), typ_int, typ_short, and typ_ushort.

Referenced by xls_open(), and xls_read().

{
  /* return Data a vector [BIFF  Version DataType Identifier Year HistoryFlags LowestXlsVersion]
   * works for BIFF2 to BIFF8 records */
  int BIFF;
  short Version;
  short DataType;
  short Identifier=0;
  short Year=0;
  int HistoryFlags=0;
  int LowestXlsVersion=0;

  unsigned short Opcode;
  unsigned short Len;
  int one=1;

  C2F(mgetnc) (fd, (void*)&Opcode, &one, typ_ushort, err);
  if (*err > 0) return;
  C2F(mgetnc) (fd, (void*)&Len, &one, typ_ushort, err);
  if (*err > 0) return;

  switch(Opcode) {
  case 2057:     /*Begin of file, BOF for BIFF5 BIFF7 BIFF8 BIFF8X*/
    C2F(mgetnc) (fd, (void*)&Version, &one, typ_short, err);
    if (*err > 0) return;
    C2F(mgetnc) (fd, (void*)&DataType, &one, typ_short, err);
    if (*err > 0) return;
    C2F(mgetnc) (fd, (void*)&Identifier, &one, typ_short, err);
    if (*err > 0) return;
    C2F(mgetnc) (fd, (void*)&Year, &one, typ_short, err);
    if (*err > 0) return;
    if (Len==16) {
      C2F(mgetnc) (fd, (void*)&HistoryFlags, &one, typ_int, err);
      if (*err > 0) return;
      C2F(mgetnc) (fd, (void*)&LowestXlsVersion, &one, typ_int, err);
      if (*err > 0) return;
      BIFF=8;
      if (Version != 1536) return;
    }
    else
      BIFF=7;
    break;
  case 1033 : /*Interprétation du BIFF4  0409 H*/
    C2F(mgetnc) (fd, (void*)&Version, &one, typ_short, err);
    if (*err > 0) return;
    C2F(mgetnc) (fd, (void*)&DataType, &one, typ_short, err);
    if (*err > 0) return;
    BIFF=4;
    break;
  case 521 : /*Interprétation du BIFF3  0209 H*/
    C2F(mgetnc) (fd, (void*)&Version, &one, typ_short, err);
    if (*err > 0) return;
    C2F(mgetnc) (fd, (void*)&DataType, &one, typ_short, err);
    if (*err > 0) return;
    BIFF=3;
    break;
  case 9 : /*Interprétation du BIFF2  0009 H*/
    C2F(mgetnc) (fd, (void*)&Version, &one, typ_short, err);
    if (*err > 0) return;
    C2F(mgetnc) (fd, (void*)&DataType, &one, typ_short, err);
    if (*err > 0) return;
    BIFF=2;
    break;
  default:
    BIFF=-1; /* not a BOF record */
    Version=0;
    DataType=0;
  }
  Data[0]=BIFF;
  Data[1]=Version;
  Data[2]=DataType;
  Data[3]=Identifier;
  Data[4]=Year;
  Data[5]=HistoryFlags;
  Data[6]=LowestXlsVersion;

}

Here is the call graph for this function:

Here is the caller graph for this function:

static void getBoundsheets	(	int *	fd,
		char ***	Sheetnames,
		int **	Abspos,
		int *	nsheets,
		int *	cur_pos,
		int *	err
	)			[static]

Definition at line 657 of file xls.c.

References C2F, count, FREE, getString(), i, Len(), MALLOC, mgetnc(), mseek(), NULL, pos, typ_char, typ_int, and typ_ushort.

Referenced by xls_open().

{/* the global workbook contains a sequence of boudsheets this procedure reads all
 * the sequence and returns a vector o sheetnames, a vector of absolute sheet positions*/
  int abspos; /* Absolute stream position of BoF*/
  char visibility,sheettype;/*Visiblity , Sheet type*/
  int pos;
  unsigned short Opcode;
  unsigned short Len;
  int one=1;
  int ns,i;

  *Sheetnames=(char **)NULL;
  *Abspos=(int *)NULL;
  *err=0;

  /* memorize the first boundsheet beginning */
  pos=*cur_pos;
  /* Count number of boundsheets */
  ns=0;
  while(1) {
    C2F(mseek) (fd, cur_pos, "set", err);
    if (*err > 0) goto ErrL;
    C2F(mgetnc) (fd, &Opcode, &one, typ_ushort, err);
    if (*err > 0) goto ErrL;
    C2F(mgetnc) (fd, &Len, &one, typ_ushort, err);
    if (*err > 0) goto ErrL;
    if (Opcode==133) {
      C2F(mgetnc) (fd, (void*)&abspos, &one, typ_int, err);
      if (*err > 0) goto ErrL;
      C2F(mgetnc) (fd, (void*)&visibility, &one, typ_char, err);
      if (*err > 0) goto ErrL;
      C2F(mgetnc) (fd, (void*)&sheettype, &one, typ_char, err);
      if (sheettype==0) {/* worksheet */
        ns++;
      }
      *cur_pos=*cur_pos+4+Len;
    }
    else
      break;

    }

  *nsheets=ns;
  /*alloc the Sheetnames ans Abspos arrays */
   if( (*Sheetnames=(char **)MALLOC(ns*sizeof(char*)))==NULL)  goto ErrL;
   if( (*Abspos=(int *)MALLOC(ns*sizeof(int)))==NULL)  goto ErrL;

   /* rescan boundsheet sequence to get the data */
   *cur_pos=pos;
   i=-1;
   while(1) {
     C2F(mseek) (fd, cur_pos, "set", err);
     if (*err > 0) goto ErrL;
     C2F(mgetnc) (fd, &Opcode, &one, typ_ushort, err);
     C2F(mgetnc) (fd, &Len, &one, typ_ushort, err);
     if (Opcode==133) {
       C2F(mgetnc) (fd, (void*)&abspos, &one, typ_int, err);
       if (*err > 0) goto ErrL;
       C2F(mgetnc) (fd, (void*)&visibility, &one, typ_char, err);
       if (*err > 0) goto ErrL;
       C2F(mgetnc) (fd, (void*)&sheettype, &one, typ_char, err);
       if (sheettype==0) {/* worksheet */
         short count=0;
         i++;
         (*Abspos)[i]=abspos;
         getString(fd,&count,&Len, 0,&((*Sheetnames)[i]),err);
         if (*err > 0) goto ErrL;
       }
       *cur_pos=*cur_pos+4+Len;
     }
     else
       break;

   }
   return;
 ErrL:
   if (*Sheetnames != NULL) {
     for (i=0;i<ns;i++)
       if ( (*Sheetnames)[i]!= NULL ) FREE((*Sheetnames)[i]);
     FREE(*Sheetnames);
   }
   FREE(*Abspos);
   if (*err==0)
     *err=3; /* malloc problem */
   else
     *err=4; /* read problem */
}

Here is the call graph for this function:

Here is the caller graph for this function:

FILE* GetFile

(

integer *

fd

)

Definition at line 181 of file files.c.

References Max, MAXF, and Min.

{
  int fd1;
  fd1 = (*fd != -1) ?  Min(Max(*fd,0),MAXF-1) : CurFile ;
  if ( fd1 != -1 ) 
    return(ftformat[fd1]);
  else
    return((FILE *) 0);
}

static void getSST	(	int *	fd,
		short	Len,
		int	BIFF,
		int *	ns,
		char ***	sst,
		int *	err
	)			[static]

Definition at line 439 of file xls.c.

References C2F, count, FREE, getString(), i, MALLOC, mgetnc(), NULL, and typ_int.

Referenced by xls_open().

{
  int i,one=1;
  /* SST data */
  int ntot; /*total number of strings */
  int nm;/*Number of following strings*/
  short count=0;

  char *transfert;  /*temp*/
  transfert=(char *)NULL;
  *ns=0;
  *sst=NULL;

  if(BIFF==8) {
    /*Total number of strings in the workbook*/
    C2F(mgetnc) (fd, (void*)&ntot, &one, typ_int, err);
    if (*err > 0) goto ErrL;
    C2F(mgetnc) (fd, (void*)&nm, &one, typ_int, err);
    if (*err > 0) goto ErrL;
    *ns=nm;
    count+=8;
    if (nm !=0) {
      if( (*sst=(char **)MALLOC(nm*sizeof(char*)))==NULL)  goto ErrL;
      for (i=0;i<nm;i++) (*sst)[i]=NULL;
      for(i=0;i<nm;i++) {/* LOOP ON STRINGS */
        *err=i;/*for debug*/
        getString(fd,&count,&Len,1,&((*sst)[i]),err);
        if (*err > 0) goto ErrL;
        /*printf("i=%d, %s\n",i,(*sst)[i]);*/
      }
    }
  }
  return;
 ErrL:
  if (*sst != NULL) {
    for (i=0;i<nm;i++)
      if ( (*sst)[i]!= NULL ) FREE((*sst)[i]);
    FREE(*sst);
  }

  if (*err==0)
    *err=3; /* malloc problem */
  else
    *err=4; /* read problem */
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void getString	(	int *	fd,
		short *	count,
		short *	Len,
		int	flag,
		char **	str,
		int *	err
	)			[static]

Definition at line 485 of file xls.c.

References C2F, FREE, j, ln, MALLOC, mgetnc(), Min, mseek(), NULL, str1, strindex(), sz, typ_char, typ_int, typ_short, and typ_ushort.

Referenced by getBoundsheets(), and getSST().

{
  short ln=0;
  short Opcode;/* to store tag information */
  int BytesToBeRead,one=1,strindex;
  char OptionFlag=0;
  int sz; /* for extended string data */
  short rt;/* for rich string data */
  int UTFEncoding,extendedString,richString;
  int j,l1;

  *str=(char *)NULL;
  *err=0;
  ln=0;

  /*check for continue tag */
 if (flag&&(*PosInRecord==*RecordLen)) {/* data limit encountered */
    /*check for continue tag */
      /*lecture de l'Opcode et de la RecordLen du tag*/
      C2F(mgetnc) (fd, &Opcode, &one, typ_ushort, err);
      if ((*err > 0)||(Opcode!=60)) goto ErrL;
      C2F(mgetnc) (fd, RecordLen, &one, typ_ushort, err);
      if (*err > 0) goto ErrL;
      *PosInRecord=0;
  }

 /* get the number of characters included in the string (number of bytes or number of couple of bytes) */
  if (flag){  /* getString called by getSST */
    C2F(mgetnc) (fd, (void*)&ln, &one, typ_short, err);
    if (*err > 0) goto ErrL;
    *PosInRecord+=2;
  }
  else { /* getString called by getBoundsheets */
    C2F(mgetnc) (fd, (void*)&ln, &one, typ_char, err);
    if (*err > 0) goto ErrL;
    *PosInRecord+=1;
  }

  /*get the encoding options */
  C2F(mgetnc) (fd, (void*)&OptionFlag, &one, typ_char, err);
  if (*err > 0) goto ErrL;
  *PosInRecord+=1;

  UTFEncoding = (OptionFlag&0x01) == 1;
  extendedString = (OptionFlag & 0x04) != 0;
  richString = (OptionFlag & 0x08) != 0;

 if (richString) { /*richString*/
    C2F(mgetnc) (fd, (void*)&rt, &one, typ_short, err);
    *PosInRecord+=2;
    if (*err > 0) goto ErrL;
  }

  if (extendedString) {/* extendedString */
    C2F(mgetnc) (fd, (void*)&sz, &one, typ_int, err);
    if (*err > 0) goto ErrL;
    *PosInRecord+=4;
  }

  /* number of bytes to be read */
  BytesToBeRead = (UTFEncoding)? ln*2 : ln;


  if ((*str= (char*) MALLOC((BytesToBeRead+1)*sizeof(char)))==NULL)  goto ErrL;
  /* read the bytes */

  if (!flag||(*PosInRecord+BytesToBeRead<=*RecordLen)) {        
    /* all bytes are in the same record */
    C2F(mgetnc) (fd, (void*)*str, &BytesToBeRead, typ_char, err);
    if (*err > 0) goto ErrL;
    *PosInRecord+=BytesToBeRead;
  }
  else {/* char stream contains at least one "continue" */
    int bytesRead = *RecordLen-*PosInRecord; /* number of bytes before continue */
    strindex=0; /*current position in str*/
    /* read bytes before the "continue"  */
    /* according to documentation  bytesRead should be strictly positive */
    C2F(mgetnc) (fd, (void*)(*str+strindex), &bytesRead, typ_char, err);
    if (*err > 0) goto ErrL;
    strindex+=bytesRead;
    *PosInRecord+=bytesRead;
    while (BytesToBeRead-bytesRead > 0){
      /*"continue" tag assumed, verify */
      C2F(mgetnc) (fd, &Opcode, &one, typ_ushort, err);
      if ((*err > 0)||(Opcode!=60)) goto ErrL;
      C2F(mgetnc) (fd, RecordLen, &one, typ_ushort, err);
      if (*err > 0) goto ErrL;
      *PosInRecord=0;
      /* encoding option may change !!!! */
      C2F(mgetnc) (fd, (void*)&OptionFlag, &one, typ_char, err);
      if (*err > 0) goto ErrL;
      *PosInRecord+=1;

      if ((!UTFEncoding && (OptionFlag == 0))||(UTFEncoding && (OptionFlag != 0))) {
        /*string encoding does not change */
        l1=Min(BytesToBeRead-bytesRead,*RecordLen-*PosInRecord);
        C2F(mgetnc) (fd, (void*)(*str+strindex), &l1, typ_char, err);
        if (*err > 0) goto ErrL;
        bytesRead+=l1;
        strindex+=l1;
        *PosInRecord+=l1;
      }
      else if (UTFEncoding && (OptionFlag  == 0)) {
        /* character  encoding changes from twobytes to a single byte*/
        /* may this happen ???? */
        l1=Min(BytesToBeRead-bytesRead,*RecordLen-*PosInRecord);
        for (j=0;j<l1;j++){
          C2F(mgetnc) (fd, (void*)(*str+strindex), &one, typ_char, err);
          if (*err > 0) goto ErrL;
          (*str)[strindex+1]='\0';
          strindex+=2;
          *PosInRecord+=2;
          UTFEncoding =0;
        }
      }
      else {
        /* character encoding changes from a single byte to two bytes */
        /* first, convert read characters to two bytes*/
        char *str1=*str;
        strindex=0;
        if ((str= (char*) MALLOC((2*BytesToBeRead+1)*sizeof(char)))==NULL)  goto ErrL;
        for (j=0;j<bytesRead;j++) {
          (*str)[strindex]=str1[j];
          (*str)[strindex+1]='\0';
          strindex+=2;
        }
        FREE(str1);
        BytesToBeRead=BytesToBeRead*2;
        bytesRead=bytesRead*2;
        /* read following two bytes characters */
        l1=Min((BytesToBeRead-bytesRead)*2,*RecordLen-*PosInRecord);
        C2F(mgetnc) (fd, (void*)(*str+strindex), &l1, typ_char, err);
        if (*err > 0) goto ErrL;
        bytesRead+=l1;
        strindex+=l1;
        *PosInRecord+=l1;
        UTFEncoding =1;
      }

    }

  } /*all character read */

  /* For extended strings, skip over the extended string data*/
  /* may continuation records appear here? */
  l1=4*rt;
  if (richString) {C2F(mseek) (fd, &l1, "cur", err);*PosInRecord+=l1;}
  if (extendedString) {C2F(mseek) (fd, &sz, "cur", err);*PosInRecord+=sz;}

  /* add string terminaison */
  if (UTFEncoding) {
    /* Scilab currently do not support unicode, so we remove the second byte*/
    strindex=0;
    for (j=0;j<BytesToBeRead;j+=2) {
      (*str)[strindex]=(*str)[j];
      strindex++;
    }
    BytesToBeRead=BytesToBeRead/2;
  }
  (*str)[BytesToBeRead]='\0';


  return;
 ErrL:
  if (*err == 0) {
    FREE(*str);
    *err=3; /* malloc problem */
  }
  else
    *err=4; /* read problem */
}       

Here is the call graph for this function:

Here is the caller graph for this function:

int GetSwap

(

integer *

fd

)

Definition at line 195 of file files.c.

References Max, MAXF, and Min.

{
  int fd1;
  fd1 = (*fd != -1) ?  Min(Max(*fd,0),MAXF-1) : CurFile ;
  if ( fd1 != -1 ) 
    return(ftswap[fd1]);
  else
    return(0);
}

void C2F() mgetnc	(	integer *	fd,
		void *	res,
		integer *	n,
		char *	type,
		integer *	ierr
	)

Definition at line 642 of file files.c.

References c1, GetFile(), GetSwap(), i, ierr, MGET_CHAR_NC, MGET_GEN_NC, NULL, sciprint(), swapd(), swapf(), swapi(), swapl(), and swapw().

Referenced by get_oleheader(), getBOF(), getBoundsheets(), getSST(), getString(), xls_open(), and xls_read().

{  
  char c1,c2;
  int i,items=*n1,n=*n1;
  FILE *fa;


  *ierr=0;
  if ((fa = GetFile(fd)) ==NULL) {
    sciprint("No input file associated to logical unit %d\r\n",*fd);
    *ierr=3;
    return;
  }
  swap = GetSwap(fd);
  c1 = ( strlen(type) > 1) ? type[1] : ' '; 
  c2 = ( strlen(type) > 2) ? type[2] : ' '; 
  switch ( type[0] )
    {
    case 'i' : MGET_GEN_NC(int,swapi,c1);break;
    case 'l' : MGET_GEN_NC(long,swapl,c1);break;
    case 's' : MGET_GEN_NC(short,swapw,c1);break;
    case 'c' : MGET_CHAR_NC(char) ; break;
    case 'd' : MGET_GEN_NC(double,swapd,c1);break;
    case 'f' : MGET_GEN_NC(float,swapf,c1);break;
    case 'u' :
      switch ( c1 )
        {
        case 'i' :  MGET_GEN_NC(unsigned int,swapi,c2); break;
        case 'l' :  MGET_GEN_NC(unsigned long,swapl,c2); break;
        case 's' :  MGET_GEN_NC(unsigned short,swapw,c2); break;
        case ' ' :  MGET_GEN_NC(unsigned int,swapi,' '); break;
        case 'c' :  MGET_CHAR_NC(unsigned char); break;
        default : *ierr=1; return; break;
        }
      break;
    default :
      *ierr=1;
      return ;
    }
  if ( items != n ) 
    {
      *ierr = -(items) -1 ;
    }
  return;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() mseek	(	integer *	fd,
		integer *	offset,
		char *	flag,
		integer *	err
	)

Definition at line 362 of file files.c.

References err, GetFile(), iflag, irep, sciprint(), SEEK_CUR, SEEK_END, SEEK_SET, and strerror().

Referenced by getBoundsheets(), getString(), intsmseek(), xls_open(), and xls_read().

{     
  int iflag;
#if (defined(sun) && !defined(SYSV)) || defined(sgi)
  int irep;
#endif
  FILE *fa= GetFile(fd);
  *err=0;
  if ( fa == (FILE *) 0 ) 
    {
      sciprint("mseek: wrong file logical unit \r\n");
      *err=1;
      return;
    }
  if ( strncmp(flag,"set",3)==0 ) 
    iflag = SEEK_SET;
  else if ( strncmp(flag,"cur",3)==0 ) 
    iflag = SEEK_CUR;
  else if ( strncmp(flag,"end",3)==0 ) 
    iflag = SEEK_END;
  else 
    {
      sciprint("mseek : flag = %s not recognized \r\n");
      *err=1;
      return;
    }
#if (defined(sun) && !defined(SYSV)) || defined(sgi)
  irep = fseek(fa,(long) *offset,iflag) ;
  if ( irep != 0 ) 
    {
      sciprint(strerror(irep));
      *err=1;
    }
  else
    *err=0;
#else
  if (fseek(fa,(long) *offset,iflag) == -1 ) 
    {
      sciprint("mseek: error\r\n");
      *err=1;
    }
  else 
    *err=0;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() mtell	(	integer *	fd,
		double *	offset,
		integer *	err
	)

Definition at line 412 of file files.c.

References err, GetFile(), and sciprint().

Referenced by intsmtell(), xls_open(), and xls_read().

{     
  FILE *fa= GetFile(fd);
  if ( fa == (FILE *) 0 ) 
    {
      sciprint("mtell: wrong file logical unit \r\b");
      *err=1;
      return;
    }
  *err=0;
  *offset = (double) ftell(fa) ;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static double NumFromRk2

(

long

rk

)

[static]

Definition at line 341 of file xls.c.

References num.

Referenced by xls_read().

{
  double num;
  if(rk & 0x02)
    {
      /* int*/
      num = (double) (rk >> 2);
    }
  else
    {
      /* hi words of IEEE num*/
      *((int *)&num+1) = rk & 0xfffffffc;
      *((int *)&num) = 0;
    }
  if(rk & 0x01)
    /* divide by 100*/
    num /= 100;
  return num;
}

Here is the caller graph for this function:

static double return_a_nan

(

)

[static]

Definition at line 39 of file xls.c.

References first.

Referenced by xls_read().

{
  static int first = 1;
  static double nan = 1.0;

  if ( first )
    {
      nan = (nan - (double) first)/(nan - (double) first);
      first = 0;
    }
  return (nan);
}

Here is the caller graph for this function:

int ripole	(	char *	inputfile,
		char *	outputdir,
		int	debug,
		int	verbose
	)

end of ripOLE

Definition at line 369 of file ripole.c.

References _LOGGER_STDOUT, LOGGER_log(), LOGGER_set_output_mode(), OLE_DEBUG_NORMAL, OLE_decode_file(), OLE_decode_file_done(), OLE_init(), OLE_set_debug(), OLE_set_filename_report_fn(), OLE_set_save_unknown_streams(), OLE_set_verbose(), OLE_VERBOSE_NORMAL, and ROLE_report_filename_decoded().

Referenced by intopenxls().

{
  /*struct OLE_object *ole = NULL;*/
  struct OLE_object ole;
       int result = 0;

       /*ole = MALLOC(sizeof(struct OLE_object));
       if (ole == NULL)
       {
               LOGGER_log("ripOLE: Cannot allocate memory for OLE object");
               return 1;
       }*/

       LOGGER_set_output_mode(_LOGGER_STDOUT);

       OLE_init(&ole);
       if (debug ==1 ) OLE_set_debug(&ole, OLE_DEBUG_NORMAL);
       if (verbose == 1) OLE_set_verbose(&ole, OLE_VERBOSE_NORMAL);
       /*ole->save_unknown_streams==2 added for Scilab to extract onlyexcel streams
         see  OLE_decode_stream in ole.c file */
       OLE_set_save_unknown_streams(&ole, 2); /* get only excel streams */

       OLE_set_filename_report_fn(&ole, ROLE_report_filename_decoded );

       result = OLE_decode_file( &ole, inputfile, outputdir);
       OLE_decode_file_done(&ole);


       if ((result != 0)&&(verbose==1))
         LOGGER_log("ripOLE: decoding of %s resulted in error %d\n", inputfile, result );

       /*if (ole != NULL) FREE(ole);*/
       return result;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void xls_open	(	int *	err,
		int *	fd,
		char ***	sst,
		int *	ns,
		char ***	Sheetnames,
		int **	Abspos,
		int *	nsheets
	)

void xls_read	(	int *	fd,
		int *	cur_pos,
		double **	data,
		int **	chainesind,
		int *	N,
		int *	M,
		int *	err
	)

---