addinter.h File Reference

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

Go to the source code of this file.

Defines
#define	DynInterfStart   500
Functions
int	SciLibLoad (int num_names, char **names, char **files, int *nums, int *err)
void	BuildName (char *name, char *str)
void	CallDynInterf (int *pos, int num_names, int namepos, char **names, int *nums, char **files)

---

Define Documentation

#define DynInterfStart   500

the first dynamic interface is at position 500+1

Definition at line 5 of file addinter.h.

Referenced by callinterf(), DynFuntab(), and userlk().

---

Function Documentation

void BuildName	(	char *	name,
		char *	str
	)

Definition at line 360 of file addinter.c.

References GetenvB(), MAX_ENV, and nc.

{
  int  nc= MAX_ENV;
  GetenvB("SCI",name,nc);
  strcat(name,"/libs/");
  strcat(name,str);
}

Here is the call graph for this function:

void CallDynInterf	(	int *	pos,
		int	num_names,
		int	namepos,
		char **	names,
		int *	nums,
		char **	files
	)

Definition at line 368 of file addinter.c.

References C2F, err, error, getWarningMode(), ok, SciLibLoad(), and sciprint().

{
  int imes = 9999;
  if ( *pos == -1 || DynInterf[*pos].ok == 0) 
    {
      int err=0;
      SciLibLoad(num_names,names,files,nums,&err);
      if (err != 1) *pos = nums[namepos];
    }
  if ( DynInterf[*pos].ok == 1 ) 
    (*DynInterf[*pos].func)();
  else 
    {
      if (getWarningMode()) sciprint("Interface %s not linked\r\n",DynInterf[*pos].name);
      C2F(error)(&imes);
    }
}  

Here is the call graph for this function:

int SciLibLoad	(	int	num_names,
		char **	names,
		char **	files,
		int *	nums,
		int *	err
	)

Definition at line 305 of file addinter.c.

References getWarningMode(), i, INTERFSIZE, j, MAXINTERF, Nshared, ok, rhs, SciInterInit(), SciLink(), SciLinkInit(), sciprint(), SearchInDynLinks(), and ShowInterf().

Referenced by CallDynInterf().

{
  int i,rhs=2,inum,ilib=0,j;
  SciLinkInit();
  SciInterInit();
  *err=0;
  
  for ( j=0 ; j < num_names ; j++) 
    {
      inum=-1;
      for ( i = 0 ; i < LastInterf ; i++) 
        {
          if ( DynInterf[i].ok == 0 ) inum= i;
        }
      inum = ( inum == -1 ) ? LastInterf : inum ;
      if ( inum >=  MAXINTERF ) 
        {
          if (getWarningMode()) sciprint("Maximum number of dynamic interfaces %d\r\n",MAXINTERF);
          if (getWarningMode()) sciprint("has been reached\r\n");
          *err=1;
          return -1 ;
        }
      else 
        nums[j]=inum;
      if ( inum == LastInterf ) LastInterf++;
    }
  SciLink(0,&rhs,&ilib,files,names,"f");
  if ( ilib < 0 ) 
    {
      *err=1;  return -1;
    }
  for ( j=0 ; j < num_names ; j++) 
    {
      DynInterf[nums[j]].Nshared = ilib;
      if ( SearchInDynLinks(names[0],&DynInterf[nums[j]].func) < 0 ) 
        {
          if (getWarningMode()) sciprint("addinter failed for %s Not  found!\r\n",names[j]);
          return -1;
        }
      else
        {
          strncpy(DynInterf[nums[j]].name,names[j],INTERFSIZE);
          DynInterf[nums[j]].ok = 1;
        }
    }
  ShowInterf();
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---