addinter.c File Reference

#include <string.h>
#include <stdio.h>
#include "core_math.h"
#include "../../../string/includes/men_Sutils.h"
#include "link.h"
#include "addinter.h"
#include "Os_specific.h"
#include "stack-def.h"
#include "MALLOC.h"
#include "sciprint.h"
#include "Funtab.h"
#include "warningmode.h"
#include <stdlib.h>

Include dependency graph for addinter.c:

Go to the source code of this file.

Defines
#define	OK   1
#define	FAIL   0
#define	MAXINTERF   50
#define	INTERFSIZE   25
#define	debug   C2F(iop).ddt==1
#define	nsiz   6
#define	MAX_ENV   256
Functions
int	C2F (namstr)
static void	SciInterInit (void)
static void DynFuntab	__PARAMS ((int *Scistring, int *ptrstrings, int *nstring, int k1))
static void	ShowInterf (void)
void C2F()	addinter (int *iflag, int *descla, int *ptrdescla, int *nvla, char *iname, int *desc, int *ptrdesc, int *nv, char *c_cpp, int *lib_cpp, int *err)
void	RemoveInterf (int Nshared)
static void	DynFuntab (int *Scistring, int *ptrstrings, int *nstring, int k1)
void C2F()	userlk (integer *k)
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)
Variables
	Iel
Iel	DynInterf [MAXINTERF]
static int	LastInterf = 0
int	Use_cpp_code
char *	Use_c_cpp

---

Define Documentation

#define debug   C2F(iop).ddt==1

Referenced by CreateCppShared(), CreateShared(), Panic(), Sci_dlopen(), Sci_dlsym(), and ShowInterf().

#define FAIL   0

#define INTERFSIZE   25

Referenced by addinter(), C2F(), and SciLibLoad().

#define MAX_ENV   256

Definition at line 358 of file addinter.c.

Referenced by BuildName(), cluni0(), and GetIndexLastModifiedFileInList().

#define MAXINTERF   50

Referenced by addinter(), SciInterInit(), and SciLibLoad().

#define nsiz   6

Definition at line 228 of file addinter.c.

#define OK   1

---

Function Documentation

static void DynFuntab __PARAMS

(

(int *Scistring, int *ptrstrings, int *nstring, int k1)

)

[static]

void C2F() addinter	(	int *	iflag,
		int *	descla,
		int *	ptrdescla,
		int *	nvla,
		char *	iname,
		int *	desc,
		int *	ptrdesc,
		int *	nv,
		char *	c_cpp,
		int *	lib_cpp,
		int *	err
	)

Definition at line 59 of file addinter.c.

References C2F, DynFuntab(), err, FREE, i, INTERFSIZE, isciulink(), LinkStatus(), MALLOC, Max, MAXINTERF, names, Nshared, NULL, ok, rhs, SciInterInit(), ScilabMStr2CM(), SciLink(), SciLinkInit(), SearchInDynLinks(), and ShowInterf().

                       : desc, ptrdesc, nv */
     /* for cpp library: c_cpp */
     /* C++ compiler lib_cpp  */
     /* the files are given by a previously loaded libary with number iflag  */ 
     /* (if iflag == -1 (int *descla, int *ptrdescla, int *nvla) are used ) */
{
  int i,rhs=2,ilib=0,inum;
  char **files,*names[2];
  *err=0;
  files=NULL; /* Initialisation pour Windows */

  Use_cpp_code=*lib_cpp;
  Use_c_cpp = (char *) MALLOC((strlen(c_cpp) +1) * sizeof(char));
  strcpy(Use_c_cpp,c_cpp);

  if ( *iflag == -1 ) 
    {
      ScilabMStr2CM(descla,nvla,ptrdescla,&files,err);
      if ( *err == 1) return;
    }

  names[0]=iname;
  names[1]=(char *)0;

  SciLinkInit();
  SciInterInit();

  for ( i = 0 ; i < LastInterf ; i++) 
    {
      if (strcmp(iname,DynInterf[i].name)==0) 
        {
          if ( LinkStatus() == 1) 
            {
              C2F(isciulink)(&DynInterf[i].Nshared);
            }
          break;
        }
    }

  inum=-1;
  for ( i = 0 ; i < LastInterf ; i++) 
    {
      if ( DynInterf[i].ok == 0 ) inum= i;
    }
  inum = ( inum == -1 ) ? LastInterf : inum ;

  if ( inum >=  MAXINTERF ) 
    {
      /* sciprint("Maximum number of dynamic interfaces %d\r\n",MAXINTERF);
         sciprint("has been reached\r\n");*/
      *err=1;
      return;
    }

  if ( *iflag == -1 ) { 
    /* link then search  */ 
    SciLink(0,&rhs,&ilib,files,names,"f");
    if ( ilib < 0 ) 
      {
        *err=ilib;  return;
      }
  } else {
    /* search in already loaded library number ilib */ 
    ilib = Max(*iflag,0);
    SciLink(1,&rhs,&ilib,files,names,"f");
    if ( ilib < 0 ) 
      {
        *err=ilib;  return;
      }
  }

  DynInterf[inum].Nshared = ilib;

  if ( SearchInDynLinks(names[0],&DynInterf[inum].func) < 0 ) 
    {
      /*sciprint("addinter failed for %s Not  found!\r\n",iname);*/
      *err=2;
      return;
    }
  else
    {
      strncpy(DynInterf[inum].name,iname,INTERFSIZE);
      DynInterf[inum].ok = 1;
    }
  if ( inum == LastInterf ) LastInterf++;

  DynFuntab(desc,ptrdesc,nv,inum+1);

  if ( *iflag == -1 ) {
    for (i=0;i< *nvla;i++) FREE(files[i]); FREE(files);
  }
  ShowInterf();
}

Here is the call graph for this function:

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:

int C2F

(

namstr

)

Definition at line 23 of file addinter.c.

References INTERFSIZE, Nshared, ok, and void().

{
  char name[INTERFSIZE]; 
  void (*func)();        
  int Nshared; 
  int ok;    
} Iel;

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:

static void DynFuntab	(	int *	Scistring,
		int *	ptrstrings,
		int *	nstring,
		int	k1
	)			[static]

Definition at line 237 of file addinter.c.

References C2F, DynInterfStart, funtab(), i, and nsiz.

Referenced by addinter().

{
  int id[nsiz],zero=0,trois=3,fptr,fptr1,quatre=4;
  int li=1,ni,*SciS,i;
  SciS= Scistring;
  for ( i=1 ; i < *nstring+1 ; i++) 
    {
      ni=ptrstrings[i]-li;
      li=ptrstrings[i];
      C2F(namstr)(id,SciS,&ni,&zero);
      fptr1= fptr= (DynInterfStart+k1)*100 +i;
      C2F(funtab)(id,&fptr1,&quatre,"NULL_NAME",0); /* clear previous def set fptr1 to 0*/
      C2F(funtab)(id,&fptr,&trois,"NULL_NAME",0);  /* reinstall */
      SciS += ni;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void RemoveInterf

(

int

Nshared

)

Definition at line 201 of file addinter.c.

References i, and ok.

{
  int i;
  for ( i = 0 ; i < LastInterf ; i++ ) 
    {
      if ( DynInterf[i].Nshared == Nshared ) 
        {
          DynInterf[i].ok = 0;
          break;
        }
    }
}

static void SciInterInit

(

void

)

[static]

Definition at line 169 of file addinter.c.

References i, MAXINTERF, and ok.

Referenced by addinter(), and SciLibLoad().

{
  static int first_entry=0;
  if ( first_entry == 0) 
    {
      int i;
      for ( i= 0 ; i < MAXINTERF ; i++) 
        DynInterf[i].ok=0;
      first_entry++;
    }
}

Here is the caller 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:

static void ShowInterf

(

void

)

[static]

Definition at line 218 of file addinter.c.

References debug, i, ok, and sciprint().

Referenced by addinter(), and SciLibLoad().

{
  int i;
  for ( i = 0 ; i < LastInterf ; i++ ) 
    {
      if ( DynInterf[i].ok == 1 ) 
        if (debug) sciprint("Interface %d %s\r\n",i,DynInterf[i].name);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() userlk

(

integer *

k

)

Definition at line 260 of file addinter.c.

References C2F, DynInterfStart, error, ExceptionMessage(), getWarningMode(), ok, and sciprint().

Referenced by callinterf().

{
  int k1 = *k - (DynInterfStart+1) ;
  int imes = 9999;
  if ( k1 >= LastInterf || k1 < 0 ) 
    {
      if (getWarningMode()) sciprint("Invalid interface number %d",k1);
      C2F(error)(&imes);
      return;
    }
  if ( DynInterf[k1].ok == 1 ) 
  {
        #ifdef _MSC_VER
          #ifndef _DEBUG
                _try
                {
                        (*DynInterf[k1].func)();
                }
                _except (EXCEPTION_EXECUTE_HANDLER)
                {
                        ExceptionMessage(GetExceptionCode(),DynInterf[k1].name);
                }
          #else
                (*DynInterf[k1].func)();
          #endif
        #else
          (*DynInterf[k1].func)();
        #endif
  }
  else 
    {
      if (getWarningMode()) sciprint("Interface %s not linked\r\n",DynInterf[k1].name);
      C2F(error)(&imes);
      return;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

Iel DynInterf[MAXINTERF]

Definition at line 45 of file addinter.c.

Iel

Definition at line 43 of file addinter.c.

int LastInterf = 0 [static]

Definition at line 46 of file addinter.c.

char* Use_c_cpp

Definition at line 53 of file addinter.c.

Referenced by CreateCppShared().

int Use_cpp_code

Definition at line 52 of file addinter.c.

Referenced by Sci_dlopen().

---