fileio.h File Reference

#include <stdio.h>
#include "machine.h"
#include "stack-c.h"
#include "do_xxscanf.h"

Include dependency graph for fileio.h:

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

Go to the source code of this file.

Functions
int StringConvert	__PARAMS ((char *str))
void Free_Scan	__PARAMS ((int rowcount, int ncol, sfdir *type_s, entry **data))
int Sci_Store	__PARAMS ((int nrow, int ncol, entry *data, sfdir *type, int retval))
int Store_Scan	__PARAMS ((int *nrow, int *ncol, sfdir *type_s, sfdir *type, int *retval, int *retval_s, rec_entry *buf, entry **data, int rowcount, int n))
int SciStrtoStr	__PARAMS ((int *Scistring, int *nstring, int *ptrstrings, char **strh))

---

Function Documentation

int SciStrtoStr __PARAMS

(

(int *Scistring, int *nstring, int *ptrstrings, char **strh)

)

Definition at line 335 of file fileio.c.

References cvstr(), F2C(), i, int, job, MALLOC, MEM_LACK, NULL, p, and s.

{
  char *s,*p;
  int li,ni,*SciS,i,job=1;
  
  li=ptrstrings[0];
  ni=ptrstrings[*nstring] - li + *nstring +1;
  p=(char *) MALLOC(ni);
  if (p ==NULL)  return MEM_LACK;
  SciS= Scistring;
  s=p;
  for ( i=1 ; i<*nstring+1 ; i++) 
    {
      ni=ptrstrings[i]-li;
      li=ptrstrings[i];
      F2C(cvstr)(&ni,SciS,s,&job,(long int)ni);
      SciS += ni;
      s += ni;
      if (i<*nstring) {
        *s='\n';
        s++;
      }
    }
  *s='\0';
  *strh=p;
  return 0;
}

Here is the call graph for this function:

int Store_Scan __PARAMS

(

(int *nrow, int *ncol, sfdir *type_s, sfdir *type, int *retval, int *retval_s, rec_entry *buf, entry **data, int rowcount, int n)

)

Definition at line 218 of file fileio.c.

References buf, entry::d, data, err, f(), FREE, i, j, MALLOC, MAXSCAN, MEM_LACK, MISMATCH, nc, nr, NULL, REALLOC, s, SF_C, SF_F, SF_I, SF_LF, SF_LI, SF_LUI, SF_S, SF_SI, SF_SUI, SF_UI, and si.

{ 
  int i,j,nr,nc,err;
  entry * Data;
  int blk=20; /* block size for memory allocation */
  nr=*nrow;
  nc=*ncol;

  if (rowcount==0) {
    for ( i=0 ; i < MAXSCAN ; i++) type_s[i]=SF_F; /* initialisation */
    if (nr<0) nr=blk;
    nc=n;
    *ncol=nc;
    *retval_s=*retval;
    if (n==0) {
      return 0;
    }
    if ( (*data = (entry *) MALLOC(nc*nr*sizeof(entry)))==NULL) {
      err= MEM_LACK;
      goto bad1;
    }
    for ( i=0 ; i < nc ; i++) type_s[i]=type[i];

  }
  else {
    /* check if number of data read match with previous number */
    if ( (n !=nc ) || (*retval_s != *retval) ){
      err=MISMATCH;
      goto bad2;
    }
    /* check if types of data read match with previous types */
    for ( i=0 ; i < nc ; i++)
      if (type[i] != type_s[i]) {
        err=MISMATCH;
        goto bad2;
      }

    /* check for memory and REALLOC if necessary*/
    if (rowcount>= nr) {
      nr=nr+blk;
      *nrow=nr;
      if ( (*data = (entry *) REALLOC(*data,nc*nr*sizeof(entry)))==NULL) {
        err= MEM_LACK;
        goto bad2;
      }
    }
  } 
  Data=*data;
  /* store values scanned in a new row */
  for ( i=0 ; i < nc ; i++) 
    {
      switch ( type_s[i] )
        {
        case SF_C:
        case SF_S:
          Data[i+nc*rowcount].s=buf[i].c;
          break;
        case SF_LUI:
          Data[i+nc*rowcount].d=(double)buf[i].lui;
          break;
        case SF_SUI:
          Data[i+nc*rowcount].d=(double)buf[i].sui;
          break;
        case SF_UI:
          Data[i+nc*rowcount].d=(double)buf[i].ui;
          break;
        case SF_LI:
          Data[i+nc*rowcount].d=(double)buf[i].li;
          break;
        case SF_SI:
          Data[i+nc*rowcount].d=(double)buf[i].si;
          break;
        case SF_I:
          Data[i+nc*rowcount].d=(double)buf[i].i;
          break;
        case SF_LF:
          Data[i+nc*rowcount].d=buf[i].lf;
          break;
        case SF_F:
          Data[i+nc*rowcount].d=(double)buf[i].f;
          break;
        }
    } /* rowcount */
  return 0;
 bad1:
  /* FREE allocated strings in scan buffer */
  for ( j=0 ; j < MAXSCAN ; j++)
    if ( (type_s[j] ==  SF_C) || (type_s[j] ==  SF_S))  FREE(buf[j].c);
  
 bad2: 
  return err;
}

Here is the call graph for this function:

int Sci_Store __PARAMS

(

(int nrow, int ncol, entry *data, sfdir *type, int retval)

)

void Free_Scan __PARAMS

(

(int rowcount, int ncol, sfdir *type_s, entry **data)

)

int StringConvert __PARAMS

(

(char *str)

)

---