FTables.c File Reference

#include <string.h>
#include "FTables.h"
#include "stack-c.h"
#include "stack2.h"
#include "sciprint.h"
#include "link.h"

Include dependency graph for FTables.c:

Go to the source code of this file.

Defines
#define	FTable_H
#define	a_chain   10
#define	a_function   13
Functions
static int SearchComp	__PARAMS ((FTAB *Ftab, char *op, void(**realop)()))
static void Emptyfunc	__PARAMS ((void))
voidf	GetFuncPtr (char *name, int n, FTAB *Table, voidf scifun, int *ifunc, int *lhs, int *rhs)
voidf SetFunction	__PARAMS ((char *name, int *rep, FTAB *table))
voidf	SetFunction (char *name, int *rep, FTAB *table)
static int	SearchComp (FTAB *Ftab, char *op, void(**realop)())
Variables
static char	buf [MAXNAME]

---

Define Documentation

#define a_chain   10

Definition at line 105 of file FTables.c.

Referenced by GetFuncPtr().

#define a_function   13

Definition at line 106 of file FTables.c.

Referenced by GetFuncPtr().

#define FTable_H

Definition at line 8 of file FTables.c.

---

Function Documentation

voidf SetFunction __PARAMS

(

(char *name, int *rep, FTAB *table)

)

static void Emptyfunc __PARAMS

(

(void)

)

[static]

Definition at line 17 of file FTables.c.

{}

static int SearchComp __PARAMS

(

(FTAB *Ftab, char *op, void(**realop)())

)

[static]

voidf GetFuncPtr	(	char *	name,
		int	n,
		FTAB *	Table,
		voidf	scifun,
		int *	ifunc,
		int *	lhs,
		int *	rhs
	)

Definition at line 108 of file FTables.c.

References a_chain, a_function, C2F, cstk, Error, f(), GetRhsVar, nrhs, rep, sciprint(), SetFunction(), type, and vartype.

Referenced by intex17c().

{
  int type,rep,mm,nn,nlhs,nrhs;
  voidf f;
  type=C2F(vartype)(&n);
  switch ( type)
    {
    case a_chain :
      GetRhsVar(n, "c", &mm, &nn, ifunc);
      f = SetFunction(cstk(*ifunc),&rep,Table);
      if ( rep == 1 )
        {
          Scierror(999,"%s: external %s not found \r\n",name,cstk(*ifunc));
          return (voidf) 0;
        }  
      return f ;
    case  a_function :
      GetRhsVar(n, "f", &nlhs,&nrhs, ifunc);
      /*
      if ( nlhs != *lhs || nrhs != *rhs ) 
        {
          Scierror(999,"%s: given external has wrong (lhs,rhs) values (%d,%d), (%d,%d) required\r\n",name,
                   nlhs,nrhs,*lhs,*rhs);
          return (voidf) 0 ;
        }
      */
      return (voidf) scifun ;
    default:
      sciprint("Wrong parameter in %s ! (number %d)\r\n",name,n);
      Error(999);
      return (voidf) 0 ;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int SearchComp	(	FTAB *	Ftab,
		char *	op,
		void(**)()	realop
	)			[static]

Definition at line 59 of file FTables.c.

References FTAB::f, FAIL, i, j, name, and OK.

Referenced by SetFunction().

{
  int i=0;
  while ( Ftab[i].name != (char *) 0) 
     {
       int j;
       j = strcmp(op,Ftab[i].name);
       if ( j == 0 )
         {
           *realop = Ftab[i].f;
           return(OK);
         }
       else
         { 
           if ( j <= 0)
             {
               /* sciprint("\nUnknow function <%s>\r\n",op); */
               return(FAIL);
             }
           else i++;
         }
     }
  /* sciprint("\n Unknow function <%s>\r\n",op); */
  return(FAIL);
}

Here is the caller graph for this function:

voidf SetFunction	(	char *	name,
		int *	rep,
		FTAB *	table
	)

Definition at line 26 of file FTables.c.

References buf, MAXNAME, OK, s, SearchComp(), SearchInDynLinks(), table, and void().

{
  void (*loc)();
  char *s;

  strncpy(buf,name,MAXNAME);
  s=buf;
  while ( *s != ' ' && *s != '\0') { s++;};
  *s= '\0';
  if ( SearchComp(table,buf,&loc) == OK) 
    {
      *rep = 0;
      return(loc);
    }
  if ( SearchInDynLinks(buf,&loc) >= 0 )
    {
      *rep = 0;
      return(loc);
    }
  loc = Emptyfunc;
  *rep = 1;
  /* sciprint(" Function %s not found\r\n",name); */
  return(loc);
}

Here is the call graph for this function:

---

Variable Documentation

char buf[MAXNAME] [static]

Definition at line 14 of file FTables.c.

---