declare.c File Reference

#include <stdlib.h>
#include "intersci-n.h"
#include "declare.h"
#include <varargs.h>

Include dependency graph for declare.c:

Go to the source code of this file.

Data Structures
struct	Declare
Defines
#define	DECLAREBUF   128
Functions
void	InitDeclare ()
void	ResetDeclare ()
int	CheckDeclare (int type, char *declaration)
void	AddDeclare1 (va_alist)
void	AddDeclare (int type, char *declaration)
void	WriteInitDeclarations (FILE *f)
void	WriteDeclaration (FILE *f)
Variables
int	indent
char	target
static struct Declare	Init []

---

Define Documentation

#define DECLAREBUF   128

Definition at line 92 of file declare.c.

Referenced by AddDeclare1().

---

Function Documentation

void AddDeclare	(	int	type,
		char *	declaration
	)

Definition at line 123 of file declare.c.

References CheckDeclare(), Declare::decls, Init, j, malloc(), Declare::ndecls, and realloc().

Referenced by AddDeclare1(), Check(), CreDIMFOREXT(), CreSCALAR(), CreSTRINGMAT(), GetPOLYNOM(), OutCommon(), OutExtBMATRIX1(), OutExtCommon(), OutExtIMATRIX(), OutExtSTRING(), OutIMATRIX(), OutPOLYNOM(), WriteArgCheck(), WriteCallConvertion(), WriteCallRest(), WriteCrossCheck(), WriteExternalVariableOutput(), WriteFortranCall(), WriteFunctionCode(), WriteListAnalysis(), WriteOptArg(), WriteOutput(), and WriteVariableOutput().

{
  int j = 0;
  if ( declaration[0] == '&' ) return ;
  if ( CheckDeclare(type,declaration)== 1) return ;
  while ( Init[j].type != -1) 
    {
      if ( Init[j].type == type ) 
        {
          if ( Init[j].decls != (char **) 0) 
            {
              (Init[j].ndecls)++;
              Init[j].decls =  (char **) realloc((char *) Init[j].decls, (unsigned) (Init[j].ndecls ) *sizeof(char *));
            }
          else 
            {
              (Init[j].ndecls)++;
              Init[j].decls = (char **) malloc ( (unsigned) (Init[j].ndecls ) *sizeof(char *));
            }
          if ( Init[j].decls == ( char **) 0) 
            {
              fprintf(stderr,"No more space\n");
              exit(1);
            }
          Init[j].decls[Init[j].ndecls-1]=(char*) malloc((unsigned) (strlen(declaration)+1)*sizeof(char));
          if (    Init[j].decls[Init[j].ndecls-1] == ( char *) 0) 
            {
              fprintf(stderr,"No more space\n");
              exit(1);
            }
          strcpy(   Init[j].decls[Init[j].ndecls-1], declaration );
        }
      j++;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void AddDeclare1

(

va_alist

)

Definition at line 104 of file declare.c.

References AddDeclare(), and DECLAREBUF.

Referenced by CheckCOLUMN(), CheckPOINTER(), CheckROW(), CheckVECTOR(), CreCOLUMN(), CreCommon(), CreIMATRIX(), CrePOINTER(), CreSPARSE(), CreSTRING(), CreSTRINGMAT(), CreVECTOR(), GetCOLUMN(), GetCom(), GetDim(), GetIMATRIX(), GetPOINTER(), GetROW(), GetSPARSE(), GetSTRINGMAT(), GetVECTOR(), OptMATRIX(), OptOpointer(), OutCOLUMN(), OutLISTarg(), OutROW(), OutSCALAR(), OutSTRING(), OutVECTOR(), WriteListAnalysis(), WriteOptArg(), and WriteOptArgPhase2().

{
  char decbuf[DECLAREBUF];
  va_list ap;
#ifdef __STDC__
  va_start(ap,format);
#else 
  int type;
  char *format;
  va_start(ap);
  type = va_arg(ap, int );
  format = va_arg(ap, char *);
#endif 
  vsprintf(decbuf,format,ap);
  AddDeclare(type,decbuf);
  va_end(ap);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int CheckDeclare	(	int	type,
		char *	declaration
	)

Definition at line 68 of file declare.c.

Referenced by AddDeclare().

{
  int j = 0;
  while ( Init[j].type != -1) 
    {
      if ( Init[j].type == type ) 
        {
          int i;
          for ( i = 0 ; i < Init[j].ndecls ; i++ ) 
            {
              if ( strcmp(declaration,Init[j].decls[i])==0) 
                return(1);
            }
          return(0);
        }
      j++;
    }
  return(0);
}

Here is the caller graph for this function:

void InitDeclare

(

)

Definition at line 39 of file declare.c.

References Declare::decls, i, Init, Declare::ndecls, and type.

Referenced by Generate(), and ISCIReadFile().

{ 
  int i = 0;
  while ( Init[i].type != -1) 
    {
      Init[i].decls = (char **) 0;
      Init[i].ndecls =0 ;
      i++;
    }
}

Here is the caller graph for this function:

void ResetDeclare

(

)

Definition at line 50 of file declare.c.

References Declare::decls, free(), i, Init, j, Declare::ndecls, and type.

Referenced by Generate(), and ISCIReadFile().

{
  int j = 0;
  while ( Init[j].type != -1) 
    {
      if ( Init[j].decls != (char **) 0) 
        {
          int i;
          for ( i = 0 ; i < Init[j].ndecls ; i++ ) 
            free((char *) Init[j].decls[i]);
          free (( char *) Init[j].decls );
        }
      Init[j].decls=(char **) 0;
      Init[j].ndecls=0;
      j++;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteDeclaration

(

FILE *

f

)

Definition at line 179 of file declare.c.

References DEC_DATA, DEC_INIT, DEC_IPTR, DEC_SMAT, Fprintf(), i, indent, Init, j, Declare::ndecls, target, and WriteInitDeclarations().

Referenced by WriteHeader().

{
  int j = 0;
  int i;
  while ( Init[j].type != -1) 
    {      
      if ( Init[j].type == DEC_INIT) 
        {}
      else if( Init[j].type == DEC_DATA ) 
        {
          for (i= 0 ; i < Init[j].ndecls ; i++) 
            {
              Fprintf(f,indent,"%s ",Init[j].nameC);
              Fprintf(f,indent,"%s",Init[j].decls[i]);
              Fprintf(f,indent,";\n");
            }
        }
      else 
        {
          if ( Init[j].ndecls != 0) 
            Fprintf(f,indent,"%s ",Init[j].nameC);
          for (i= 0 ; i < Init[j].ndecls ; i++) 
            {
              if ( Init[j].type >= DEC_IPTR && target == 'C')
                {
                  /* pointers declaration */
                  Fprintf(f,indent,"*");
                }
              else if ( Init[j].type == DEC_SMAT && target == 'C')
                {
                  Fprintf(f,indent,"**");
                }
              Fprintf(f,indent,"%s",Init[j].decls[i]);
              if ( i != Init[j].ndecls -1 ) Fprintf(f,indent,",");
              else 
                {
                  Fprintf(f,indent,";\n");
                }
            }
        }
      j++;
    }
  j=0;
  WriteInitDeclarations(f);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteInitDeclarations

(

FILE *

f

)

Definition at line 160 of file declare.c.

References DEC_INIT, Fprintf(), i, indent, Init, j, and Declare::ndecls.

Referenced by WriteDeclaration().

{
  int j = 0;
  int i;
  while ( Init[j].type != -1) 
    {
      if ( Init[j].type == DEC_INIT) 
        {
          for (i= 0 ; i < Init[j].ndecls ; i++) 
            {
              Fprintf(f,indent,"%s",Init[j].decls[i]);
              Fprintf(f,indent,";\n");
            }
        }
      j++;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

int indent

Definition at line 36 of file niceprintf.c.

struct Declare Init[] [static]

Referenced by AddDeclare(), CheckDeclare(), InitDeclare(), ResetDeclare(), WriteDeclaration(), and WriteInitDeclarations().

char target

Definition at line 18 of file intersci-n.c.

Referenced by _XawTextVScroll(), do_xxprintf(), do_xxscanf(), FindFontSelection(), Generate(), main(), WriteDeclaration(), and WriteFortranCall().

---