variables.c File Reference

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

Include dependency graph for variables.c:

Go to the source code of this file.

Data Structures
struct	btype
struct	ftype
Defines
#define	ISNONSTACK(var)
#define	FORNAME   128
Functions
int	ShowVariables ()
int	FixStackPositions ()
IVAR	GetVar (char *name, int p)
IVAR	GetExistVar (char *name)
int	CreatePredefVar (char *name)
IVAR	GetOutVar (char *name)
IVAR	GetExistOutVar ()
IVAR	CheckOutVar ()
void	AddForName (IVAR ivar, char *name, char *cname, IVAR ivar1)
void	AddForName1 (IVAR ivar, char *name, char *cname, IVAR ivar1)
void	ForNameClean ()
void	ChangeForName2 (va_alist)
void	ChangeForName1 (VARPTR var, char *name)
int	GetBasType (char *sname)
char *	SGetSciType (int type)
int	GetForType (char *type)
char *	SGetForType (int type)
char *	SGetForTypeAbrev (VARPTR var)
int	SGetForDec (int type)
char *	SGetCDec (int type)
char *	SGetForTypeStack (VARPTR var)
char *	SGetForTypeBConvert (VARPTR var)
char *	SGetExtForTypeAbrev (VARPTR var)
char *	SGetExtForTypeStack (VARPTR var)
Variables
static struct btype	SType []
static struct ftype	FType []

---

Define Documentation

#define FORNAME   128

Definition at line 382 of file variables.c.

Referenced by ChangeForName2().

#define ISNONSTACK

(

var

)

Value:

( (var)->for_type == EXTERNAL \
   || ( (var)->for_type == CSTRINGV && (var)->is_sciarg == 0  && (var)->list_el == 0 ))

Definition at line 68 of file variables.c.

Referenced by FixStackPositions().

---

Function Documentation

void AddForName	(	IVAR	ivar,
		char*	name,
		char*	cname,
		IVAR	ivar1
	)

Definition at line 288 of file variables.c.

References l, malloc(), MAXARG, NULL, var, and variables.

{
  VARPTR var;
  int l;
  var = variables[ivar-1];
  l = var->nfor_name;
  if (l == MAXARG) {
    printf("too many \"for_name\" for variable \"%s\"\n",var->name);
    printf("  augment constant \"MAXARG\" and recompile intersci\n");
    exit(1);
  }
  var->for_name[l] = (char *)malloc((unsigned)(strlen(name) + 1));
  if ( cname != NULL) 
    {
      var->C_name[l] = (char *)malloc((unsigned)(strlen(cname) + 1));
      strcpy(var->C_name[l],cname);
    }
  else 
    var->C_name[l] = NULL;
  var->for_name_orig[l] = ivar1;
  strcpy(var->for_name[l],name);
  var->nfor_name = l + 1;
}

Here is the call graph for this function:

void AddForName1	(	IVAR	ivar,
		char*	name,
		char*	cname,
		IVAR	ivar1
	)

Definition at line 323 of file variables.c.

References l, malloc(), MAXARG, NULL, pass, var, and variables.

{
  VARPTR var;
  int l;
  var = variables[ivar-1];
  l = var->nfor_name;
  if ( pass == 0 && var->kp_state == -1 ) 
    {
      var->kp_state = var->nfor_name ;
    }
  if (l == MAXARG) {
    printf("too many \"for_name\" for variable \"%s\"\n",var->name);
    printf("  augment constant \"MAXARG\" and recompile intersci\n");
    exit(1);
  }
  var->for_name[l] = (char *)malloc((unsigned)(strlen(name) + 1));
  if ( cname != NULL) 
    {
      var->C_name[l] = (char *)malloc((unsigned)(strlen(cname) + 1));
      strcpy(var->C_name[l],cname);
    }

  else 
    var->C_name[l] = NULL;
  var->for_name_orig[l] = ivar1;
  strcpy(var->for_name[l],name);
  var->nfor_name = l + 1;
}

Here is the call graph for this function:

void ChangeForName1	(	VARPTR	var,
		char*	name
	)

Definition at line 414 of file variables.c.

References i, l, and pos.

Referenced by ChangeForName2(), CreDIMFOREXT(), CreSTRINGMAT(), GetPOLYNOM(), and GetSTRINGMAT().

{
  int l,pos=0;
  l = var->nfor_name;
  if ( l  != 0)
    { 
      int i;
      for ( i=0 ; i < l ; i++) 
        {
          if ( var->for_name_orig[i] == var->stack_position ) 
            { 
              pos = i ; break;
            }
        }
    }
  var->for_name[pos] = (char *)malloc((unsigned)(strlen(name) + 1));
  strcpy(var->for_name[pos],name);
  if ( pos != 0) 
    {
      int xx;
      char *loc = var->for_name[pos];
      var->for_name[pos] =       var->for_name[0];
      var->for_name[0] = loc;
      xx= var->for_name_orig[pos];
      var->for_name_orig[pos] =       var->for_name_orig[0];
      var->for_name_orig[0] = xx;
    }
  /* we keep the C name  var->C_name[0] = NULL; */
  if (l == 0) var->nfor_name = 1;
}

Here is the caller graph for this function:

void ChangeForName2

(

va_alist

)

Definition at line 395 of file variables.c.

References ChangeForName1(), and FORNAME.

Referenced by CreCommon(), CreIMATRIX(), CrePOINTER(), CreSPARSE(), GetCom(), GetIMATRIX(), GetPOINTER(), GetSPARSE(), OptMATRIX(), and WriteOptArgPhase2().

{
  char forbuf[FORNAME];
  va_list ap;
#ifdef __STDC__ 
  va_start(ap,format);
#else 
  char *format;
  VARPTR varptr;
  va_start(ap);
  varptr = va_arg(ap, VARPTR );
  format = va_arg(ap, char *);
#endif
  vsprintf(forbuf,format,ap);
  ChangeForName1(varptr,forbuf);
  va_end(ap);
}

Here is the call graph for this function:

Here is the caller graph for this function:

IVAR CheckOutVar

(

)

Definition at line 261 of file variables.c.

References i, nVariable, str, and variables.

Referenced by WriteOutput().

{
  int i;
  char str[4];
  strcpy(str,"out");
  for (i = 0; i < nVariable; i++) {
    if (strcmp(variables[i]->name,str) == 0)
      return(i+1);
  }
  return 0;
}

Here is the caller graph for this function:

int CreatePredefVar

(

char *

name

)

Definition at line 184 of file variables.c.

References GetVar(), num, PREDEF, var, and variables.

{
  VARPTR var;
  if (strcmp(name,"err")  == 0 
      || strcmp(name,"rhs") == 0 
      || strcmp(name,"lhs") == 0 
      || strcmp(name,"fname") == 0)
    {
      int num ;
      num=GetVar(name,1);
      var = variables[num-1];
      var->for_type = PREDEF;
      return(num);
    }
  return(-1);
}

Here is the call graph for this function:

int FixStackPositions

(

)

Definition at line 71 of file variables.c.

References i, icre, ISNONSTACK, j, nVariable, var::stack_position, var, and variables.

Referenced by Generate().

{
  int i;
  VARPTR var,var1;
  for (i = nVariable-1 ; i >= 0; i--) 
    {
      int j;
      var = variables[i];
      if ( ISNONSTACK(var) )
        {
          icre--;
          for ( j = 0 ; j < nVariable ; j++ ) 
            {
              var1 = variables[j];
              if ( var1->stack_position > var->stack_position 
                   && ! (ISNONSTACK(var1)))
                var1->stack_position--;
            }
        }
    }
  return 0;
}

Here is the caller graph for this function:

void ForNameClean

(

)

Definition at line 362 of file variables.c.

References i, nVariable, var, and variables.

{
  VARPTR var;
  int i;
  for (i = 0; i < nVariable; i++) {
    var = variables[i];
    if ( var->kp_state != -1 ) 
      {
        var->nfor_name = var->kp_state ;
      }
  }
}

int GetBasType

(

char *

sname

)

Definition at line 486 of file variables.c.

References code, i, j, NULL, and SType.

{ 
  int i=0;
  while ( SType[i].sname != (char *) NULL)
    {
      int j ;
      j = strcmp(sname,SType[i].sname);
      if ( j == 0 ) 
        { 
          return(SType[i].code);
        }
      else 
        { 
          if ( j <= 0) 
            break;
          else i++;
        }
    }
  printf("the type of variable \"%s\" is unknown\n",sname);
  exit(1);
}

IVAR GetExistOutVar

(

)

Definition at line 246 of file variables.c.

References i, nVariable, str, and variables.

{
  int i;
  char str[4];
  strcpy(str,"out");
  for (i = 0; i < nVariable; i++) {
    if (strcmp(variables[i]->name,str) == 0)
      return(i+1);
  }
  printf("variable \"out\" must exist\n");
  exit(1);
}

IVAR GetExistVar

(

char *

name

)

Definition at line 154 of file variables.c.

References i, nVariable, var, and variables.

{
  int i;
  VARPTR var;
  if (strcmp(name,"out") == 0) {
    printf("the name of a variable which is not the output variable\n");
    printf("  of SCILAB function cannot be \"out\"\n");
    exit(1);
  }
  for (i = 0; i < nVariable; i++) {
    var = variables[i];
    if (strcmp(var->name,name) == 0) {
      /* always present */
      var->present = 1;
      return(i+1);
    }
  }
  i=CreatePredefVar(name);
  if ( i != -1) return(i);
  printf("variable \"%s\" must exist\n",name);
  exit(1);
}

int GetForType

(

char *

type

)

Definition at line 560 of file variables.c.

References code, EXTERNAL, fname, FType, i, j, and NULL.

{
  int i=0;
  while ( FType[i].fname != (char *) NULL)
    {
      int j;
      j = strcmp(type,FType[i].fname);
      if ( j == 0 ) 
        { 
          return(FType[i].code);
        }
      else 
        { 
          if ( j <= 0) 
            break;
          else i++;
        }
    }
  return(EXTERNAL);
}

IVAR GetOutVar

(

char *

name

)

Definition at line 207 of file variables.c.

References malloc(), MAXVAR, nVariable, var, VarAlloc(), and variables.

{
  VARPTR var;
  if (strcmp(name,"out") != 0) {
    printf("the name of output variable of SCILAB function\n");
    printf("  must be \"out\"\n");
    exit(1);
  }
  if (nVariable == MAXVAR) {
    printf("too many variables\n");
    printf("  augmente constant \"MAXVAR\" and recompile intersci\n");
    exit(1);
  }
  var = VarAlloc();
  if (var == 0) {
    printf("Running out of memory\n");
    exit(1);
  }
  var->name = (char *)malloc((unsigned)(strlen(name) + 1));
  strcpy(var->name,name);
  var->type = 0;
  var->length = 0;
  var->for_type = 0;
  var->equal = 0;
  var->nfor_name = 0;
  var->kp_state = -1;
  var->list_el = 0;
  var->opt_type = 0;
  var->present = 0;
  var->out_position = 0;
  var->stack_position = 0;
  variables[nVariable++] = var;
  return(nVariable);
}

Here is the call graph for this function:

IVAR GetVar	(	char *	name,
		int	p
	)

Definition at line 103 of file variables.c.

References i, nVariable, var, and variables.

{
  int i;
  VARPTR var;
  if (strcmp(name,"out") == 0) {
    printf("the name of a variable which is not the output variable\n");
    printf("  of SCILAB function cannot be \"out\"\n");
    exit(1);
  }
  for (i = 0; i < nVariable; i++) {
    var = variables[i];
    if (strcmp(var->name,name) == 0) {
      var->present = var->present || p;
      return(i+1);
    }
  }
  if (nVariable == MAXVAR) {
    printf("too many variables\n");
    printf("  augment constant \"MAXVAR\" and recompile intersci\n");
    exit(1);
  }
  var = VarAlloc();
  if (var == 0) {
    printf("Running out of memory\n");
    exit(1);
  }
  var->name = (char *)malloc((unsigned)(strlen(name) + 1));
  strcpy(var->name,name);
  var->type = 0;
  var->length = 0;
  var->for_type = 0;
  var->equal = 0;
  var->nfor_name = 0;
  var->kp_state = -1;
  var->list_el = 0;
  var->opt_type = 0;
  var->present = p;
  var->out_position = 0;
  var->stack_position = 0;
  var->is_sciarg = 0;
  variables[nVariable++] = var;
  var->vpos = nVariable;
  return(nVariable);
}

char* SGetCDec

(

int

type

)

Definition at line 645 of file variables.c.

References code, FType, and i.

Referenced by OptMATRIX(), and WriteOptArg().

{
  int i=0;
  while ( FType[i].code  != -1 ) 
    {
      if ( FType[i].code == type ) 
        return(FType[i].ctype);
      else 
        i++;
    }
  return("XXX");
}

Here is the caller graph for this function:

char* SGetExtForTypeAbrev

(

VARPTR

var

)

Definition at line 729 of file variables.c.

References BMATRIX.

Referenced by OutExtCommon(), and OutExtIMATRIX().

{
  if ( var->type == BMATRIX ) 
    return("b");
  else 
    {
      if ( strcmp(var->fexternal,"cintf")==0) 
        return "i";
      else 
        return("d");
    }
}

Here is the caller graph for this function:

char* SGetExtForTypeStack

(

VARPTR

var

)

Definition at line 751 of file variables.c.

References BMATRIX, and FType.

Referenced by OutExtCommon(), and OutExtIMATRIX().

{
  if ( var->type == BMATRIX ) 
    return(FType[1].st_name);
  else 
    return(FType[4].st_name);
}

Here is the caller graph for this function:

int SGetForDec

(

int

type

)

Definition at line 626 of file variables.c.

References code, FType, and i.

{
  int i=0;
  while ( FType[i].code  != -1 ) 
    {
      if ( FType[i].code == type ) 
        return(FType[i].dec);
      else 
        i++;
    }
  return(-1);
}

char* SGetForType

(

int

type

)

Definition at line 587 of file variables.c.

References code, fname, FType, and i.

{
  int i=0;
  while ( FType[i].code  != -1 ) 
    {
      if ( FType[i].code == type ) 
        return(FType[i].fname);
      else 
        i++;
    }
  return("External");
}

char* SGetForTypeAbrev

(

VARPTR

var

)

Definition at line 607 of file variables.c.

References code, FType, and i.

Referenced by CreCommon(), CreIMATRIX(), GetCom(), GetIMATRIX(), OptMATRIX(), OutCommon(), OutIMATRIX(), OutLISTarg(), WriteFunctionCode(), and WriteOptArg().

{
  int i=0;
  while ( FType[i].code  != -1 ) 
    {
      if ( FType[i].code == var->for_type ) 
        return(FType[i].abrev);
      else 
        i++;
    }
  return("XX");
}

Here is the caller graph for this function:

char* SGetForTypeBConvert

(

VARPTR

var

)

Definition at line 697 of file variables.c.

References code, FType, and i.

{
  int i=0;
  while ( FType[i].code  != -1 ) 
    {
      if ( FType[i].code == var->for_type ) 
        {
          if ( FType[i].b_convert[0] == 'X' ) 
            {
              printf("incompatibility between Scilab and Fortran type for variable \"%s\"\n",
                     var->name);   
              exit(1);
            }
          return(FType[i].b_convert);
        }
      else 
        i++;
    }
  printf("Unknown Fortran type for variable \"%s\"\n", var->name);   
  exit(1);
}

char* SGetForTypeStack

(

VARPTR

var

)

Definition at line 665 of file variables.c.

References code, FType, and i.

Referenced by CreCommon(), CreIMATRIX(), GetCom(), GetIMATRIX(), OptMATRIX(), WriteOptArg(), and WriteOptArgPhase2().

{
  int i=0;
  while ( FType[i].code  != -1 ) 
    {
      if ( FType[i].code == var->for_type ) 
        {
          if ( FType[i].st_name[0] == 'X' ) 
            {
              printf("incompatibility between Scilab and Fortran type for variable \"%s\"\n",
                     var->name);   
              exit(1);
            }
          return(FType[i].st_name);
        }
      else 
        i++;
    }
  printf("Unknown Fortran type for variable \"%s\"\n", var->name);   
  exit(1);
}

Here is the caller graph for this function:

char* SGetSciType

(

int

type

)

Definition at line 514 of file variables.c.

References code, i, and SType.

{
  int i=0;
  while ( SType[i].code  != -1 ) 
    {
      if ( SType[i].code == type ) 
        return(SType[i].sname);
      else 
        i++;
    }
  return("unknown");
}

int ShowVariables

(

)

Definition at line 9 of file variables.c.

References i, j, var::name, nVariable, SGetForType(), SGetSciType(), var, and variables.

{
  int i;
  VARPTR var;
  for (i = 0; i < nVariable; i++) 
    {
      int j;
      var = variables[i];
      fprintf(stderr,"==============variable %d : name %s\n",i+1,var->name);
      fprintf(stderr,"type %s<->%s\n",SGetSciType(var->type),
              SGetForType(var->for_type));
      fprintf(stderr,"elts : [");
      for (j=0 ; j < var->length ; j++) 
        {
          fprintf(stderr,"{var %d:%s}",var->el[j],
                  variables[var->el[j]-1]->name);
        }
      fprintf(stderr,"]\n");
      /* fprintf(stderr," name of external function when type is  char *fexternal[MAXNAM]; 
         external 
      */
      fprintf(stderr," ?  equal %d\n",var->equal);
      fprintf(stderr,"for_names [");
      if ( var->nfor_name != 0) 
        {
          for (j=0 ; j < var->nfor_name ; j++) 
            {
              fprintf(stderr,"{%s:%d}",var->for_name[j],
                      var->for_name_orig[j]);
              if ( j != var->nfor_name-1) fprintf(stderr,",");
            }
        }
      fprintf(stderr,"]\n");
      fprintf(stderr," position in a list %d\n",var->list_el);
      if ( var->list_el > 0 )
        fprintf(stderr," List name %s\n",var->list_name);
      fprintf(stderr," type of optional variable %d\n",var->opt_type);
      if ( var->opt_type != 0)
        fprintf(stderr," name or value default for optional variable %s\n",
                var->opt_name);
      fprintf(stderr," 1 if the variable is really present %d\n",var->present);
      fprintf(stderr,"sciarg %d, rhs %d, lhs %d\n",
              var->is_sciarg,
              var->stack_position,
              var->out_position);
    }
  return 0;
}

Here is the call graph for this function:

---

Variable Documentation

struct ftype FType[] [static]

struct btype SType[] [static]

---