intersci-n.c File Reference

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

Include dependency graph for intersci-n.c:

Go to the source code of this file.

Defines
#define	MAXBUF   4096
Functions
static void GenBuilder	__PARAMS ((char *file, char *files, char *libs))
void	CheckCreateOrder (void)
int	main (int argc, char **argv)
void	Generate (char *file)
void	WriteMain (FILE *f, char *file)
void	WriteAddInter (char *file)
void	Copyright ()
void	WriteHeader (FILE *f, char *fname0, char *fname)
void	WriteFunctionCode (FILE *f)
void	WriteInfoCode (FILE *f)
void	WriteArgCheck (FILE *f, int i)
void	WriteCrossCheck (FILE *f)
void	WriteEqualCheck (FILE *f)
void	WriteListAnalysis (FILE *f, int i, char *list_type)
void	WriteFortranCall (FILE *f)
void	WriteOutput (FILE *f)
void	WriteVariable (FILE *f, VARPTR var, IVAR ivar, int insidelist, int nel)
int	GetNumberInScilabCall (int ivar)
int	GetNumberInFortranCall (int ivar)
char *	Forname2Int (VARPTR var, int i)
void	GenFundef (char *file, int interf)
static void	GenBuilder (char *file, char *files, char *libs)
void	Fprintf (FILE *f, int indent2, char *format,...)
void	white (FILE *f, int ind)
void	FCprintf (FILE *f, char *format,...)
VARPTR	VarAlloc ()
BASFUNPTR	BasfunAlloc ()
FORSUBPTR	ForsubAlloc ()
Variables
int	icre = 1
int	indent = 0
int	pass = 0
char	target = 'C'
VARPTR	variables [MAXVAR]
int	nVariable
BASFUNPTR	basfun
FORSUBPTR	forsub
int	nFun
char *	funNames [MAXFUN]
char	str1 [4 *MAXNAM]
char	str2 [4 *MAXNAM]
char	unknown [] = "ukn"
char	sbuf [MAXBUF]

---

Define Documentation

#define MAXBUF   4096

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

---

Function Documentation

static void GenBuilder __PARAMS

(

(char *file, char *files, char *libs)

)

[static]

BASFUNPTR BasfunAlloc

(

)

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

References malloc().

Referenced by main().

{
  return((BASFUNPTR) malloc(sizeof(BASFUN)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

void CheckCreateOrder

(

void

)

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

References forsub::arg, count, CSTRINGV, EXTERNAL, forsub, i, min, name, forsub::narg, var::stack_position, and variables.

Referenced by WriteFortranCall().

{
  int ivar,min= 10000;
  int i,count=0;
  if ( forsub->narg == 0) return ;
  for (i = 0; i < forsub->narg; i++) 
    {
      ivar = forsub->arg[i];
      if (variables[ivar-1]->list_el == 0 
          &&  variables[ivar-1]->is_sciarg == 0 
          &&  variables[ivar-1]->for_type != EXTERNAL 
          &&  variables[ivar-1]->for_type != CSTRINGV ) 
        {
          count++;
          if ( min != 10000 && variables[ivar-1]->stack_position !=0 
               && variables[ivar-1]->stack_position < min) 
            {
              fprintf(stderr,"Error: declaration for local variables \n");
              fprintf(stderr,"\t must respect the order given in the calling sequence\n");
              fprintf(stderr,"\t declaration for %s must be moved downward\n",
                      variables[ivar-1]->name);
              exit(1);
            }
          if (  variables[ivar-1]->stack_position !=0 )
            min = variables[ivar-1]->stack_position;
        }
    }
}

Here is the caller graph for this function:

void Copyright

(

)

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

References DATE, and VERSION.

Referenced by Generate(), and ISCIReadFile().

{
  printf("\nINTERSCI Version %s (%s)\n",VERSION,DATE);
  printf("    Copyright (C) INRIA/ENPC All rights reserved\n\n");
}

Here is the caller graph for this function:

void FCprintf	(	FILE *	f,
		char *	format,
			...
	)

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

Referenced by WriteArgCheck(), WriteCrossCheck(), WriteFunctionCode(), WriteHeader(), WriteListAnalysis(), WriteMain(), WriteMainHeader(), and WriteOutput().

{
  va_list ap;
#ifdef __STDC__
  va_start(ap,format);
#else 
  FILE *f;
  char *format;
  va_start(ap);
  f = va_arg(ap, FILE *);
  format = va_arg(ap, char *);
#endif
  vfprintf(f,format,ap);
  va_end(ap);
}

Here is the caller graph for this function:

char* Forname2Int	(	VARPTR	var,
		int	i
	)

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

References l, malloc(), p, and var.

Referenced by GetDim(), OutBMATRIX(), OutCOLUMN(), OutExtBMATRIX(), OutExtBMATRIX1(), OutExtCOLUMN(), OutExtIMATRIX(), OutExtMATRIX(), OutExtPOLYNOM(), OutExtROW(), OutExtSPARSE(), OutExtSTRING(), OutExtSTRINGMAT(), OutExtVECTOR(), OutIMATRIX(), OutLISTarg(), OutMATRIX(), OutPOLYNOM(), OutROW(), OutSPARSE(), OutSTRING(), OutSTRINGMAT(), OutVECTOR(), WriteCallRest(), WriteCrossCheck(), WriteExternalVariableOutput(), and WriteVariableOutput().

{
  int l;
  char *p;
  if ( var->for_name[i] == (char *) 0) 
    {
      printf("Error in Forname2Int for variable %s \n",var->name);
      printf("Maybe an internal variable has a dimension\n");
      printf("which can't be evaluated\n");
      abort();
      return(unknown);
    }
  if ( var->C_name[i] != (char *) 0) 
    return var->C_name[i];
  if (strncmp(var->for_name[i],"stk",3) == 0) {
    l = strlen(var->for_name[i]);
    p = (char *)malloc((unsigned)(l + 6));
    sprintf(p,"int(%s)",var->for_name[i]);
    return p;
  }
  else return var->for_name[i];
}

Here is the call graph for this function:

Here is the caller graph for this function:

FORSUBPTR ForsubAlloc

(

)

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

References malloc().

Referenced by main().

{
  return((FORSUBPTR) malloc(sizeof(FORSUB)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Fprintf	(	FILE *	f,
		int	indent2,
		char *	format,
			...
	)

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

Referenced by Check(), CheckCOLUMN(), CheckOptDim(), CheckOptSquare(), CheckROW(), CheckSCALAR(), CheckSquare(), CheckVECTOR(), CreCommon(), CreDIMFOREXT(), CreIMATRIX(), CrePOINTER(), CreSPARSE(), CreSTRINGMAT(), Generate(), GetCOLUMN(), GetCom(), GetIMATRIX(), GetPOINTER(), GetPOLYNOM(), GetROW(), GetSCALAR(), GetSPARSE(), GetSTRINGMAT(), GetVECTOR(), OptMATRIX(), OptOpointer(), OutCommon(), OutExtBMATRIX1(), OutExtCommon(), OutExtIMATRIX(), OutExtPOLYNOM(), OutExtSPARSE(), OutExtSTRING(), OutExtSTRINGMAT(), OutIMATRIX(), OutLISTarg(), OutPOLYNOM(), OutSPARSE(), OutSTRINGMAT(), WriteArgCheck(), WriteCallConvertion(), WriteCallRest(), WriteCallRestCheck(), WriteCrossCheck(), WriteDeclaration(), WriteExternalVariableOutput(), WriteFortranCall(), WriteFunctionCode(), WriteHeader(), WriteInitDeclarations(), WriteListAnalysis(), WriteMain(), WriteMainHeader(), WriteOptArg(), WriteOptArgPhase2(), WriteOutput(), WriteVariable(), and WriteVariableOutput().

{
  int i;
  static int count=0;
  va_list ap;
  va_start(ap,format);

  vsprintf(sbuf,format,ap);

  for ( i = 0 ; i < (int) strlen(sbuf); i++) 
    {
      if ( count == 0)  
        {
          white(f,indent2);
          count = indent2;
        }
      if ( count >= 100 && sbuf[i] != '\n' && (sbuf[i] == ' ' || sbuf[i]== ',' || sbuf[i] == ';' || sbuf[i] == '(' ) ) 
        { 
          fprintf(f,"\n");
          white(f,indent2);count=indent2;
        }
      if ( sbuf[i] == '\n') count = -1 ;
      fprintf(f,"%c",sbuf[i]);
      count++;
    }
  va_end(ap);
}

Here is the caller graph for this function:

static void GenBuilder	(	char *	file,
		char *	files,
		char *	libs
	)			[static]

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

References first, funNames, i, MAXNAM, nFun, and NULL.

Referenced by main().

{
  FILE *fout;
  char filout[MAXNAM];
  int i;
  strcpy(filout,file);
  strcat(filout,"_builder.sce");
  fout = fopen(filout,"w");
  fprintf(fout,"// generated with intersci \n");
  fprintf(fout,"ilib_name = 'lib%s'\t\t// interface library name\n",file);

  /* files = 'file1.o file2.o ....' delimiter = ' ' */
  while ( files != NULL)
    {
      static int first =1; 
      if ( first ==1 ) { fprintf(fout,"files =['%s.o';\n\t'",file);first ++;} 
      else { fprintf(fout,"\t'");}
      while ( *files != 0 && *files != ' ' ) { fprintf(fout,"%c",*files); files++;}
      while ( *files == ' ') files++;
      if ( *files == 0 ) { fprintf(fout,"'];\n"); break;}
      else {  fprintf(fout,"'\n");} ;
    }

  while ( libs != NULL)
    {
      static int first =1; 
      if ( first ==1 ) { fprintf(fout,"libs =['");first ++;} 
      else { fprintf(fout,"\t'");}
      while ( *libs != 0 && *libs != ' ' ) { fprintf(fout,"%c",*libs); libs++;}
      while ( *libs == ' ') libs++;
      if ( *libs == 0 ) { fprintf(fout,"'];\n"); break;}
      else {  fprintf(fout,"'\n");} ;
    }

  fprintf(fout,"\ntable =[");
  i=0;
  if ( nFun == 1) 
    fprintf(fout,"\"%s\",\"ints%s\"];\n",funNames[i],funNames[i]);
  else 
    {
      fprintf(fout,"\"%s\",\"ints%s\";\n",funNames[i],funNames[i]);
      for (i = 1; i < nFun-1; i++) {
        fprintf(fout,"\t\"%s\",\"ints%s\";\n",funNames[i],funNames[i]);
      }
      i=nFun-1;
      fprintf(fout,"\t\"%s\",\"ints%s\"];\n",funNames[i],funNames[i]);
    }
  fprintf(fout,"ilib_build(ilib_name,table,files,libs);\n");
  printf("\nfile \"%s\" has been created\n",filout);
  fclose(fout);
}

Here is the caller graph for this function:

void Generate

(

char *

file

)

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

References Copyright(), fin, FixForNames(), FixStackPositions(), ForNameClean(), Fprintf(), icre, indent, InitDeclare(), MAXFUN, MAXNAM, nFun, pass, ReadFunction(), ResetDeclare(), target, and WriteFunctionCode().

Referenced by main().

{
  int icrekp;
  FILE *fin, *fout, *foutv;
  char filout[MAXNAM];
  char filin[MAXNAM];
  sprintf(filin,"%s.desc",file);
  fin = fopen(filin,"r");
  if (fin == 0) {
    printf("interface file \"%s\" does not exist\n",filin);
    exit(1);
  }
  Copyright();
  strcpy(filout,file);
  strcat(filout,(target == 'F' ) ? ".f" : ".c" );
  fout = fopen(filout,"w");
  strcpy(filout,file);
  strcat(filout,".tmp");
  foutv = fopen(filout,"w");
  InitDeclare();
  nFun = 0;
  Fprintf(fout,indent,"#include \"stack-c.h\"\n");
  while(ReadFunction(fin)) {
    nFun++;
    if (nFun > MAXFUN) {
      printf("Too many SCILAB functions. The maximum is %d\n",MAXFUN);
      exit(1);
    }
    pass=0;
    FixStackPositions();
    icrekp=icre;
    FixForNames();
    ResetDeclare();
    /* first pass to collect declarations */
    WriteFunctionCode(foutv);
    /* cleaning added Fornames before pass 2 */
    ForNameClean();
    FixForNames();
    /* scond pass to produce code */
    pass=1;
    icre=icrekp;
    WriteFunctionCode(fout);
  }
  /* WriteMain(fout,file); */ 
  printf("C file \"%s.c\" has been created\n",file);
  /* WriteAddInter(file) ; */
  printf("Scilab file \"%s.sce\" has been created\n",file);
  fclose(fout);
  fclose(fin);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void GenFundef	(	char *	file,
		int	interf
	)

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

References funNames, i, int, j, MAXNAM, and nFun.

Referenced by main().

{
  FILE *fout;
  char filout[MAXNAM];
  int i,j;
  if (interf != 0 ) 
    {
      strcpy(filout,file);
      strcat(filout,".fundef");
      fout = fopen(filout,"w");
      fprintf(fout,"#define IN_%s %.2d\n",file,interf);
      for (i = 0; i < nFun; i++) {
        fprintf(fout,"{\"%s\",",funNames[i]);
        for (j = 0; j < 25 - (int)strlen(funNames[i]); j++) fprintf(fout," ");
        fprintf(fout,"\t\tIN_%s,\t%d,\t3},\n",file,i+1);
      }
      printf("\nfile \"%s\" has been created\n",filout);
      fclose(fout);
    }
}

Here is the caller graph for this function:

int GetNumberInFortranCall

(

int

ivar

)

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

References forsub::arg, forsub, j, and forsub::narg.

Referenced by WriteVariable(), and WriteVariableOutput().

{
  int j;
  for (j = 0; j < forsub->narg; j++) 
    {
      if (ivar == forsub->arg[j]) 
        {
          return( j + 1);
          break;
        }
    }
  return(0);
}

Here is the caller graph for this function:

int GetNumberInScilabCall

(

int

ivar

)

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

References basfun, basfun::in, j, and basfun::nin.

Referenced by WriteVariable(), and WriteVariableOutput().

{
  int j;
  for (j = 0; j < basfun->nin; j++) 
    {
      if (ivar == basfun->in[j]) {
        return(j+1);
        break;
      }
    }
  return(0);
}

Here is the caller graph for this function:

int main	(	int	argc,
		char **	argv
	)

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

References basfun, BasfunAlloc(), file, forsub, ForsubAlloc(), GenBuilder(), Generate(), GenFundef(), NULL, and target.

{ 
  char *files,*libs;
  char *file;
  int SciLabinterface = 0 ;
  switch (argc) 
    {
    case 2:
      file = argv[1];
      target =  'C';
      SciLabinterface =  0; 
      files = NULL;
      libs = NULL;
      break;
    case 3:
      file = argv[1];
      target = 'C';
      SciLabinterface = 0; 
      files = argv[2];
      libs = NULL;
      break;
    case 4:
      file = argv[1];
      target = 'C';
      SciLabinterface = 0; 
      files = argv[2];
      libs = argv[3];
      break;
    default:
      printf("usage:  intersci <interface file> 'files' 'libs' \n");
      exit(1);
      break;
    }
  basfun = BasfunAlloc();
  if (basfun == 0) {
    printf("Running out of memory\n");
    exit(1);
  }
  forsub = ForsubAlloc();
  if (forsub == 0) {
    printf("Running out of memory\n");
    exit(1);
  }
  Generate(file);
  GenFundef(file,SciLabinterface);
  GenBuilder(file,files,libs);
  exit(0);
}

Here is the call graph for this function:

VARPTR VarAlloc

(

)

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

References malloc().

Referenced by GetOutVar().

{
  return((VARPTR) malloc(sizeof(VAR)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

void white	(	FILE *	f,
		int	ind
	)

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

References i.

Referenced by Fprintf(), and main().

{
  int i ;
  for (i =0 ; i < ind ; i++) fprintf(f," ");
}

Here is the caller graph for this function:

void WriteAddInter

(

char *

file

)

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

References funNames, i, MAXNAM, and nFun.

Referenced by ISCIReadFile().

{
  FILE *fout;
  int i;
  char filout[MAXNAM];
  strcpy(filout,file);
  strcat(filout,".sce");
  fout = fopen(filout,"w");
  if ( fout != (FILE*) 0) 
    {
      fprintf(fout,"// Addinter for file %s\n",file);
      fprintf(fout,"// for hppa/sun-solaris/linux/dec\n");
      fprintf(fout,"//--------------------------------\n");
      fprintf(fout,"//Scilab functions \n");
      fprintf(fout,"%s_funs=[...\n",file);
      for (i = 0; i < nFun -1; i++) 
        fprintf(fout,"  '%s';\n",funNames[i]);
      fprintf(fout,"  '%s']\n",funNames[nFun-1]);
      fprintf(fout,"// interface file to link: ifile='%s.o' \n",file);
      fprintf(fout,"// user's files to link: ufiles=['file1.o','file2.o',....] \n");
      fprintf(fout,"addinter([files],'%s',%s_funs);\n",file,file);
      fclose(fout);
    }
  else
    fprintf(stderr,"Can't open file %s\n",file);
}

Here is the caller graph for this function:

void WriteArgCheck	(	FILE *	f,
		int	i
	)

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

References basfun, Fprintf(), i1, basfun::in, indent, RHSTAB, GetRhsTab::type, var, variables, and WriteOptArg().

Referenced by WriteFunctionCode().

{
  int i1;
  VARPTR var = variables[basfun->in[i]-1];

  i1 = i + 1;
  
  Fprintf(f,indent,"/*  checking variable %s */\n",var->name);
  
  if (var->opt_type != 0) 
    {
      /* Optional Arguments */ 
      WriteOptArg(f,var);
    }
  else 
    {
      if (RHSTAB[var->type].type != var->type ) 
        {
          fprintf(stderr,"Bug in intersci : Something wrong in RHSTAB\n");
        }
      (*(RHSTAB[var->type].fonc))(f,var,0);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteCrossCheck

(

FILE *

f

)

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

References DIMFOREXT, Fprintf(), i, indent, j, nVariable, var, and variables.

Referenced by WriteFunctionCode().

{
  int i, j;
  VARPTR var;
  Fprintf(f,indent,"/* cross variable size checking */\n");
  for (i = 0; i < nVariable; i++) 
    {
      var = variables[i];
      if ( var->type == DIMFOREXT ) 
        {
          if ( var->nfor_name > 1) 
            {
              for ( j = 1 ; j < var->nfor_name ; j++) 
                {
                  /* we do not check external values since they are not known here */
                  if ( (var->for_name_orig[j] != var->for_name_orig[j-1]) 
                       && ( var->for_name[j-1][1] != 'e' &&  var->for_name[j][1] != 'e' ))
                    {
                      Fprintf(f,indent,"CheckDimProp(%d,%d,%s != %s);\n",
                              var->for_name_orig[j-1], var->for_name_orig[j],
                              var->for_name[j-1],   var->for_name[j]);
                    }
                }
            }
        }
      else if (var->type == SCALAR) 
        {
          if ( var->nfor_name > 1) 
            {
              for ( j = 1 ; j < var->nfor_name ; j++) 
                {
                  int dim=2;
                  if ( var->for_name[j][0]=='m') dim=1;
                  if ( var->for_name[j][1] != 'e' )  /* do not check external variables */
                    {
                      if ( strncmp(var->for_name[0],"istk",4)==0) 
                        Fprintf(f,indent,"CheckOneDim(%d,%d,%s,*%s);\n",
                                var->for_name_orig[j], dim ,  var->for_name[j],var->for_name[0]);
                      else
                        Fprintf(f,indent,"CheckOneDim(%d,%d,%s,%s);\n",
                                var->for_name_orig[j], dim ,  var->for_name[j],var->for_name[0]);
                    }
                }
            }
        }
    }
  /* 
     FCprintf(f,"/ *       cross formal parameter checking\n");
     FCprintf(f," *      not implemented yet * /\n");  */
}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteEqualCheck

(

FILE *

f

)

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

Referenced by WriteFunctionCode().

{
  /*Fprintf(f,indent,"/ * cross equal output variable checking\n");
    Fprintf(f,indent,"   not implemented yet* /\n"); */
}

Here is the caller graph for this function:

void WriteFortranCall

(

FILE *

f

)

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

References AddDeclare(), forsub::arg, CheckCreateOrder(), CRERHSTAB, DEC_INT, forsub, Fprintf(), GetExistVar(), i, ind, indent, MAXCALL, name, forsub::name, forsub::narg, NULL, nVariable, target, var::type, and variables.

Referenced by WriteFunctionCode().

{
  int i, ind;
  IVAR ivar, iivar;
  char call[MAXCALL];

  sprintf(call,"C2F(%s)(",forsub->name);

  CheckCreateOrder();

  /* loop on FORTRAN arguments */

  for (i = 0; i < forsub->narg; i++) 
    {
      ivar = forsub->arg[i];
      ind = 0;
      if (variables[ivar-1]->list_el != 0) 
        {
          /* FORTRAN argument is a list element */
          iivar = GetExistVar(variables[ivar-1]->list_name);
          if ( variables[iivar-1]->is_sciarg == 0) 
            {
              printf("list or tlist \"%s\" must be an argument of SCILAB function\n",
                     variables[ivar-1]->list_name);
              exit(1);      
            }
          strcat(call,variables[ivar-1]->for_name[0]);
          strcat(call,",");
        }
      else 
        {

          if ( variables[ivar-1]->is_sciarg == 1)
            {
                #ifdef WIN32
                        _try
                        {
                                if (target == 'C' && variables[ivar-1]->C_name[0] != NULL) 
                                {
                                        strcat(call,"&");
                                        strcat(call,variables[ivar-1]->C_name[0]);
                                }
                                else strcat(call,variables[ivar-1]->for_name[0]);
                                strcat(call,",");
                        }

                        _except (EXCEPTION_EXECUTE_HANDLER)
                        {
                          printf("Error EXCEPTION_EXECUTE_HANDLER %s %d\n",__FILE__,__LINE__);
                          exit(1);
                        }
                #else
                        if (target == 'C' && variables[ivar-1]->C_name[0] != NULL) 
                        {
                                strcat(call,"&");
                                strcat(call,variables[ivar-1]->C_name[0]);
                        }
                        else strcat(call,variables[ivar-1]->for_name[0]);
                        strcat(call,",");
                #endif
                  
                }


              
          else 
            {
              /* FORTRAN argument is not a SCILAB argument */
              /* a new variable is created on the stack for each 
                 Fortran argument */
              (*(CRERHSTAB[variables[ivar-1]->type].fonc))(f,variables[ivar-1]);
                #ifdef _MSC_VER
                  _try
                  {
              if (target == 'C' && variables[ivar-1]->C_name[0] != NULL) 
                        {
                                strcat(call,"&");
                                strcat(call,variables[ivar-1]->C_name[0]);
                        }
              else strcat(call,variables[ivar-1]->for_name[0]);
              strcat(call,",");
                  }
                  _except (EXCEPTION_EXECUTE_HANDLER)
                  {
                          printf("Error EXCEPTION_EXECUTE_HANDLER %s %d\n",__FILE__,__LINE__);
                          exit(1);
                  }
                #else
                  if (target == 'C' && variables[ivar-1]->C_name[0] != NULL) 
                  {
                          strcat(call,"&");
                          strcat(call,variables[ivar-1]->C_name[0]);
                  }
                  else strcat(call,variables[ivar-1]->for_name[0]);
                  strcat(call,",");
                #endif
            }
        }
    }
  if  (forsub->narg == 0) 
    strcat(call,")");
  else 
    call[strlen(call)-1] = ')';

  if (target == 'C' ) strcat(call,";\n");
  Fprintf(f,indent,call);

  for ( i=0 ; i < nVariable ; i++) 
    {
      if ( strcmp(variables[i]->name,"err")==0)
        {
          AddDeclare(DEC_INT,"err=0");
          Fprintf(f,indent++,"if (err >  0) {\n");  
          Fprintf(f,indent,"Scierror(999,\"%%s: Internal Error \\r\\n\",fname);\n");
          Fprintf(f,indent,"return 0;\n");
          Fprintf(f,--indent,"};\n");
          break;
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteFunctionCode

(

FILE *

f

)

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

References AddDeclare(), basfun, DEC_DATA, DEC_INT, FCprintf(), forsub, Fprintf(), i, indent, LIST, basfun::maxOpt, MLIST, name, basfun::name, forsub::name, basfun::NewMaxOpt, nFun, basfun::nin, basfun::out, pass, SGetForTypeAbrev(), str1, str2, TLIST, type, variables, WriteArgCheck(), WriteCrossCheck(), WriteEqualCheck(), WriteFortranCall(), WriteHeader(), WriteListAnalysis(), WriteOptArgPhase2(), and WriteOutput().

Referenced by Generate(), and ISCIReadFile().

{
  int i;
  IVAR ivar;
  if ( pass == 1) 
    {
      printf("  generating C interface for function (%s) Scilab function\"%s\"\n",
             forsub->name,
             basfun->name);
    }
  FCprintf(f,"/******************************************\n");
  FCprintf(f," * SCILAB function : %s, fin = %d\n",basfun->name,nFun);
  FCprintf(f," ******************************************/\n");

  WriteHeader(f,"ints",basfun->name);

  /* optional arguments : new style */
  basfun->NewMaxOpt= basfun->maxOpt;
  if ( basfun->NewMaxOpt > 0 ) 
    {
      AddDeclare(DEC_INT,"nopt");
      AddDeclare(DEC_INT,"iopos");
      Fprintf(f,indent,"nopt=NumOpt();\n");
    }

  /* rhs argument number checking */

  if ( basfun->NewMaxOpt > 0 ) 
    Fprintf(f,indent,"CheckRhs(%d,%d+nopt);\n",basfun->nin - basfun->maxOpt,
            basfun->nin-basfun->maxOpt);
  else 
    Fprintf(f,indent,"CheckRhs(%d,%d);\n",basfun->nin - basfun->maxOpt,basfun->nin);

  
  /* lhs argument number checking */
  ivar = basfun->out;
  if ( ivar == 0) 
    {
      Fprintf(f,indent,"CheckLhs(0,1);\n");
    }
  else 
    {
      if ((variables[ivar-1]->length == 0) 
          || (variables[ivar-1]->type == LIST)
          || (variables[ivar-1]->type == TLIST))
        {
          Fprintf(f,indent,"CheckLhs(1,1);\n");
        }
      else 
        {
          Fprintf(f,indent,"CheckLhs(1,%d);\n",variables[ivar-1]->length);
        }
    }
  /* SCILAB argument checking */
  for (i = 0; i < basfun->nin - basfun->NewMaxOpt ; i++)
    {
      switch ( variables[i]->type ) 
        {
        case LIST : 
          WriteListAnalysis(f,i,"l");
          break;
        case TLIST:
          WriteListAnalysis(f,i,"t");
          break;
        case MLIST :
          WriteListAnalysis(f,i,"m");
          break;
        default:
          WriteArgCheck(f,i);
          break;
        }
    }

  if ( basfun->NewMaxOpt != 0) 
    {
      sprintf(str1,"rhs_opts opts[]={\n");
      for (i = basfun->nin -basfun->NewMaxOpt ; i < basfun->nin ; i++)
        {
          sprintf(str2,"\t{-1,\"%s\",\"%s\",0,0,0},\n",variables[i]->name,
                  SGetForTypeAbrev(variables[i]));
          strcat(str1,str2);
        }
      strcat(str1,"\t{-1,NULL,NULL,NULL,0,0}}");
      AddDeclare(DEC_DATA,str1); 
      Fprintf(f,indent,"iopos=Rhs;\n");
      Fprintf(f,indent,"if ( get_optionals(fname,opts) == 0) return 0;\n");
      for (i = basfun->nin -basfun->NewMaxOpt ; i < basfun->nin ; i++)
        {
          WriteOptArgPhase2(f,i);
        }
    }
  
  /* SCILAB cross checking */
  WriteCrossCheck(f);

  /* SCILAB equal output variable checking */
  WriteEqualCheck(f);
  
  /* FORTRAN call */
  WriteFortranCall(f);
  
  /* FORTRAN output to SCILAB */
  WriteOutput(f);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteHeader	(	FILE *	f,
		char *	fname0,
		char *	fname
	)

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

References Fprintf(), indent, and WriteDeclaration().

Referenced by WriteFunctionCode().

{
  Fprintf(f,indent,"\nint %s%s(fname)\n",fname0,fname);
  Fprintf(f,indent+3,"char *fname;\n");
  Fprintf(f,indent,"{\n");indent++;
  WriteDeclaration(f);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteInfoCode

(

FILE *

f

)

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

References basfun, var::el, EMPTY, GetExistOutVar(), i, var::length, LIST, name, basfun::name, basfun::nin, SEQUENCE, SGetSciType(), TLIST, type, var::type, var, and variables.

{
  int i,iout;
  IVAR ivar;
  VARPTR var,vout;

  iout = GetExistOutVar();
  vout = variables[iout -1];

  switch (vout->type) {
  case LIST:
  case TLIST:
    /* loop on output variables */
    printf("list(");
    for (i = 0; i < vout->length; i++) 
      {
        ivar = vout->el[i];
        var = variables[ivar-1];
        printf("%s",var->name);
        if ( i != vout->length -1 ) 
          printf(",");
        else
          printf(")");
      }
    break ;
  case SEQUENCE:
    /* loop on output variables */
    printf("[");
    for (i = 0; i < vout->length; i++) 
      {
        ivar = vout->el[i];
        var = variables[ivar-1];
        printf("%s",var->name);
        if ( i != vout->length -1 ) 
          printf(",");
        else
          printf("]");
      }
    break;
  case EMPTY:
    printf("[]\n");
    break;
  }

  printf("=%s(",basfun->name);
  for (i = 0; i < basfun->nin; i++)
    {
      printf("%s(%s)",variables[i]->name,SGetSciType(variables[i]->type));
      if ( i != basfun->nin -1 ) 
        printf(",");
    }
  printf(")\n");

}

Here is the call graph for this function:

void WriteListAnalysis	(	FILE *	f,
		int	i,
		char *	list_type
	)

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

References AddDeclare1(), DEC_INT, Fprintf(), i1, indent, var::name, nVariable, RHSTAB, GetRhsTab::type, var, and variables.

Referenced by WriteFunctionCode().

{
  int k,i1;
  VARPTR var;
  i1=i+1;

  AddDeclare1(DEC_INT,"m%d",i1);
  AddDeclare1(DEC_INT,"n%d",i1);
  AddDeclare1(DEC_INT,"l%d",i1);
  Fprintf(f,indent,"GetRhsVar(%d,\"%s\",&m%d,&n%d,&l%d);\n",
          i1,list_type,i1,i1,i1);
  for (k = 0; k < nVariable ; k++) 
    {
      var = variables[k];
      if ((var->list_el != 0) &&
          (strcmp(var->list_name,variables[i]->name) == 0) &&
          var->present)
        {
          Fprintf(f,indent,"/* list element %d %s */\n",var->list_el,var->name);
          if (RHSTAB[var->type].type != var->type ) 
            {
              fprintf(stderr,"Bug in intersci : Something wrong in RHSTAB\n");
            }
          (*(RHSTAB[var->type].fonc))(f,var,0);
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteMain	(	FILE *	f,
		char *	file
	)

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

References FCprintf(), Fprintf(), funNames, i, indent, and nFun.

Referenced by ISCIReadFile().

{
  int i;
  FCprintf(f,"\n/**********************\n");
  FCprintf(f," *  interface function \n");
  FCprintf(f," ********************/\n");
  Fprintf(f,indent++,"static TabF Tab[]={\n");
  for (i = 0; i < nFun; i++) {
    Fprintf(f,indent,"{ ints%s, \"%s\"},\n",funNames[i],funNames[i]);
  }
  Fprintf(f,--indent,"};\n\n");
  Fprintf(f,indent,"int C2F(%s)()\n",file);
  Fprintf(f,indent++,"{\n");
  Fprintf(f,indent,"Rhs=Max(0,Rhs);\n");
  Fprintf(f,indent,"(*(Tab[Fin-1].f))(Tab[Fin-1].name);\n");
  Fprintf(f,indent,"return 0;\n");
  Fprintf(f,--indent,"};\n");

}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteOutput

(

FILE *

f

)

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

References CheckOutVar(), var::el, EMPTY, Fprintf(), i, icre, indent, var::length, LIST, MLIST, SEQUENCE, SGetSciType(), var::stack_position, TLIST, var::type, var, variables, and WriteVariable().

Referenced by WriteFunctionCode().

{
  IVAR iout,ivar;
  VARPTR var,vout;
  int i;
  
  iout = CheckOutVar();
  
  if ( iout == 0) 
    {
      Fprintf(f,indent,"LhsVar(1)=0;\n;return 0;\n");
    }
  else 
    {
      vout = variables[iout-1];
      switch (vout->type) 
        {
        case LIST:
        case TLIST:
        case MLIST:
          Fprintf(f,indent,"/* Creation of output %s of length %d*/\n",
                  SGetSciType(vout->type),vout->length);
          vout->stack_position = icre;
          icre++;
          Fprintf(f,indent,"Create%s(%d,%d);\n",
                  SGetSciType(vout->type),
                  vout->stack_position,
                  vout->length);
          /* loop on output variables */
          for (i = 0; i < vout->length; i++) 
            {
              ivar = vout->el[i];
              var = variables[ivar-1];
              Fprintf(f,indent,"/* Element %d: %s*/\n",i+1,var->name);
              WriteVariable(f,var,ivar,1,i+1);
            }
          Fprintf(f,indent,"LhsVar(1)= %d;\nreturn 0;",vout->stack_position);
          break;
        case SEQUENCE:
          /* loop on output variables */
          for (i = 0; i < vout->length; i++) 
            {
              ivar = vout->el[i];
              var = variables[ivar-1];
              WriteVariable(f,var,ivar,0,0);
            }
          Fprintf(f,indent,"return 0;\n");
          break;
        case EMPTY:
          Fprintf(f,indent,"LhsVar(1)=0;\n;return 0;\n");
          break;
        }
    }
  Fprintf(f,--indent,"}\n");
}

Here is the call graph for this function:

Here is the caller graph for this function:

void WriteVariable	(	FILE *	f,
		VARPTR	var,
		IVAR	ivar,
		int	insidelist,
		int	nel
	)

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

References forsub::arg, basfun, CSTRINGV, EXTERNAL, var::for_type, forsub, Fprintf(), GetNumberInFortranCall(), GetNumberInScilabCall(), icre, basfun::in, indent, j, forsub::narg, basfun::NewMaxOpt, basfun::nin, var, variables, WriteExternalVariableOutput(), and WriteVariableOutput().

Referenced by WriteOutput().

{
  IVAR ivar2, barg, farg;
  VARPTR var2;
  int j;

  /* get number of variable in SCILAB calling list */

  barg = GetNumberInScilabCall(ivar);

  /* get number of variable in FORTRAN calling list */

  farg = GetNumberInFortranCall(ivar);
  
  if (var->for_type == EXTERNAL) 
    {
      /* external type */
      if (barg != 0) 
        {
          printf("output variable with external type \"%s\" \n",var->name);
          printf("  cannot be an input argument of SCILAB function\n");
          exit(1);
        }
      if (var->equal != 0) 
        {
          printf("output variable with external type \"%s\"\n", var->name);
          printf("  cannot have a convertion\n");
          exit(1);
        }
      if (farg == 0) 
        {
          printf("output variable with external type \"%s\" must be\n", var->name);
          printf("  an argument of FORTRAN subroutine");
          exit(1);
        }
      WriteExternalVariableOutput(f,var,insidelist,nel);
    }
  else 
    {
      if ( insidelist == 0 && var->list_el == 0 )
        {
          if ( var->opt_type != 0) 
            {
              Fprintf(f,indent,"LhsVar(%d)= opts[%d].position /* %s */;\n",
                      var->out_position,
                      var->stack_position - basfun->NewMaxOpt+1,
                      var->name);
            }
          else
            {

              if ( var->for_type == CSTRINGV) 
                /* variable is recreated fro output */
                Fprintf(f,indent,"LhsVar(%d)= %d;\n",
                        var->out_position,icre);
              else 
                Fprintf(f,indent,"LhsVar(%d)= %d;\n",
                        var->out_position,var->stack_position);
            }
        }
      if (var->equal != 0) 
        {
          /* SCILAB type convertion */
          if (barg !=0 || farg!= 0) 
            {
              printf("output variable with convertion \"%s\" must not be\n",var->name);
              printf("  an input variable of SCILAB function or an argument\n");
              printf("  of FORTRAN subroutine\n");
              exit(1);
            }
          ivar2 = var->equal;
          var2 = variables[ivar2-1];
          /* get number of equal variable in SCILAB calling list */
          barg = 0;
          for (j = 0; j < basfun->nin; j++) 
            {
              if (ivar2 == basfun->in[j]) 
                {
                  barg = j + 1;
                  break;
                }
            }
          if (barg == 0) 
            {
              printf("output variable with convertion \"%s\" must be\n",
                     var->name);
              printf("  an input variable of SCILAB function\n");
              exit(1);
            }
          /* get number of equal variable in FORTRAN calling list */
          farg = 0;
          for (j = 0; j < forsub->narg; j++) {
            if (ivar2 == forsub->arg[j]) {
              farg = j + 1;
              break;
            }
          }
          if (farg == 0) 
            {
              printf("output variable with convertion \"%s\" must be\n",
                     var->name);
              printf("  an argument FORTRAN subroutine");
              exit(1);
            }
          var->for_type = var2->for_type;
          WriteVariableOutput(f,var,1,insidelist,nel);
        }
      else 
        {
          /* no SCILAB type convertion */
          if ( var->type == LIST || var->type == TLIST )
            {
              WriteVariableOutput(f,var,0,insidelist,nel);
              return;
            }
          if (farg == 0 ) {
            printf("variable without convertion \"%s\" must be an argument\n",
                   var->name);
            printf("  of FORTRAN subroutine\n");
            exit(1);
          }
          
          WriteVariableOutput(f,var,0,insidelist,nel);
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

BASFUNPTR basfun

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

Referenced by GetNumberInScilabCall(), main(), WriteArgCheck(), WriteFunctionCode(), WriteInfoCode(), and WriteVariable().

FORSUBPTR forsub

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

Referenced by CheckCreateOrder(), GetNumberInFortranCall(), main(), WriteFortranCall(), WriteFunctionCode(), and WriteVariable().

char* funNames[MAXFUN]

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

Referenced by GenBuilder(), GenFundef(), ReadFunction(), WriteAddInter(), and WriteMain().

int icre = 1

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

Referenced by FixStackPositions(), Generate(), OutCommon(), OutExtCommon(), OutExtIMATRIX(), OutExtSPARSE(), OutExtSTRING(), OutIMATRIX(), OutSPARSE(), OutSTRINGMAT(), ReadFunction(), WriteCallConvertion(), WriteCallRest(), WriteFunctionCode(), WriteOutput(), and WriteVariable().

int indent = 0

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

int nFun

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

Referenced by GenBuilder(), Generate(), GenFundef(), ISCIReadFile(), ReadFunction(), WriteAddInter(), WriteFunctionCode(), and WriteMain().

int nVariable

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

Referenced by CheckOutVar(), FixForNames(), FixStackPositions(), ForNameClean(), GetExistOutVar(), GetExistVar(), GetOutVar(), GetVar(), OutLIST(), ReadFunction(), ShowVariables(), WriteCrossCheck(), WriteFortranCall(), and WriteListAnalysis().

int pass = 0

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

char sbuf[MAXBUF]

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

char str1[4 *MAXNAM]

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

char str2[4 *MAXNAM]

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

char target = 'C'

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

char unknown[] = "ukn"

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

Referenced by setintr().

VARPTR variables[MAXVAR]

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

Referenced by AddForName(), AddForName1(), ChangeForName(), Check(), CheckCreateOrder(), CheckOptDim(), CheckOutVar(), CreatePredefVar(), CreSPARSE(), FixForNames(), FixStackPositions(), ForNameClean(), GetDim(), GetExistOutVar(), GetExistVar(), GetOutVar(), GetVar(), OptMATRIX(), OutBMATRIX(), OutCOLUMN(), OutCommon(), OutExtBMATRIX(), OutExtBMATRIX1(), OutExtCOLUMN(), OutExtCommon(), OutExtIMATRIX(), OutExtMATRIX(), OutExtPOLYNOM(), OutExtROW(), OutExtSPARSE(), OutExtSTRING(), OutExtSTRINGMAT(), OutExtVECTOR(), OutIMATRIX(), OutLIST(), OutLISTarg(), OutMATRIX(), OutPOLYNOM(), OutROW(), OutSPARSE(), OutSTRING(), OutSTRINGMAT(), OutVECTOR(), ReadFunction(), ReadListElement(), ShowVariables(), WriteArgCheck(), WriteCallConvertion(), WriteCallRest(), WriteCallRestCheck(), WriteCrossCheck(), WriteExternalVariableOutput(), WriteFortranCall(), WriteFunctionCode(), WriteInfoCode(), WriteListAnalysis(), WriteOptArgPhase2(), WriteOutput(), WriteVariable(), and WriteVariableOutput().

---