intreadxls.h File Reference

#include "machine.h"

Include dependency graph for intreadxls.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
int C2F()	intreadxls (char *fname, long lfn)
int C2F()	intopenxls (char *fname, long lfn)

---

Function Documentation

int C2F() intopenxls	(	char *	fname,
		long	lfn
	)

Definition at line 101 of file intreadxls.c.

References C2F, CheckLhs, CheckRhs, cluni0(), CreateVar, CreateVarFromPtr, cstk, fd, fname, FREE, getenv(), GetRhsVar, i, ierr, int, istk, L, LhsVar, m1, mopen(), n1, NULL, OLE_OK, OLEER_INSANE_OLE_FILE, OLEER_LOADFAT_BAD_BOUNDARY, OLEER_MINIFAT_READ_FAIL, OLEER_NO_INPUT_FILE, OLEER_NOT_OLE_FILE, OLEER_PROPERTIES_READ_FAIL, putlhsvar(), res, result, Rhs, ripole(), stk, xls_basename(), and xls_open().

Referenced by C2F().

{
#undef IN
  int i,k,m1,n1,l1,l2,one=1,fd,f_swap=0;
  int ierr,ns,result;
  double res;
  char **sst=NULL;
  char **Sheetnames=NULL;
  int *Abspos=NULL;
  int nsheets;
  char IN[256],TMP[256];
  char sep[2];
#ifdef _MSC_VER
  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  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++) 
        {
                if ( (sst) && (sst[k]))
                {
                        FREE(sst[k]);
                        sst[k]=NULL;
                }
        }
        if (sst)
        {
                FREE(sst);
                sst=NULL;
        }
  }
  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);
        
        if (Sheetnames)
        {
                for (k=0;k<nsheets;k++) 
                {
                        if (Sheetnames[k])
                        {
                                FREE(Sheetnames[k]);
                                Sheetnames[k]=NULL;
                        }
                }
                FREE(Sheetnames);
                Sheetnames=NULL;
        }

    
    
    CreateVar(Rhs+4,"d", &one, &nsheets, &l2);
    for (i=0;i<nsheets;i++) *stk(l2+i)=Abspos[i];
        if (Abspos)
        {
                FREE(Abspos);
                Abspos=NULL;
        }
  }
  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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() intreadxls	(	char *	fname,
		long	lfn
	)

Definition at line 28 of file intreadxls.c.

References C2F, CheckLhs, CheckRhs, CreateVar, CreateVarFromPtr, data, fd, fname, FREE, GetRhsVar, ierr, ind, int, LhsVar, M, m1, N, n1, NULL, pos, putlhsvar(), Rhs, stk, and xls_read().

Referenced by C2F().

{
  int m1,n1,l1,zero=0,ierr;
  double *data=NULL;
  int *ind=NULL;
  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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---