intex17c.c File Reference

#include <string.h>
#include "stack-c.h"
#include <setjmp.h>

Include dependency graph for intex17c.c:

Go to the source code of this file.

Data Structures
struct	FTAB
Defines
#define	ARGS_ex17c   double,double, double *
Typedefs
typedef void(*)	voidf ()
typedef int funcex	__PARAMS ((ARGS_ex17c))
Functions
int f1c	__PARAMS ((ARGS_ex17c))
int ex17c	__PARAMS ((double *, integer, double *, integer, double *, funcex))
int	intex17c (char *fname)
static int	sciex17c (double x, double y, double *z)
Variables
FTAB	FTab_ex17c []
static jmp_buf	ex17cenv
static int	sci_f
static int	lhs_f
static int	rhs_f
static funcex	Argex17c

---

Define Documentation

#define ARGS_ex17c   double,double, double *

Definition at line 16 of file intex17c.c.

---

Typedef Documentation

typedef int funcex __PARAMS((ARGS_ex17c))

Definition at line 18 of file intex17c.c.

typedef void(*) voidf()

Definition at line 5 of file intex17c.c.

---

Function Documentation

int ex17c __PARAMS

(

(double *, integer, double *, integer, double *, funcex)

)

int f1c __PARAMS

(

(ARGS_ex17c)

)

int intex17c

(

char *

fname

)

Definition at line 52 of file intex17c.c.

References CheckLhs, CheckRhs, CreateVar, FTab_ex17c, GetFuncPtr(), GetRhsVar, LhsVar, sciex17c(), and stk.

{ 
  int returned_from_longjump ;
  int m_X,n_X,l_X,m_Y,n_Y,l_Y,m_Z,n_Z,l_Z;
  static int minlhs=1, minrhs=3, maxlhs=1, maxrhs=3;

  /*   Check rhs and lhs   */  
  CheckRhs(minrhs,maxrhs) ;
  CheckLhs(minlhs,maxlhs) ;

  /*   Variable #1 (X = real vector)   */
  GetRhsVar(1, "d", &m_X, &n_X, &l_X);

  /*   Variable #2 (Y = real vector)   */
  GetRhsVar(2, "d", &m_Y, &n_Y, &l_Y);

  /*   Variable #3 (f = "argument function")   */
  /*   ex17c(X,Y,f) 
   *   if f is a string we search for f in Tables and on succes 
   *         Argex17c will be the function to be called  
   *   if f is a macro then sciex17c will be called (see its definition bellow) 
   *         returned arguments are sci_f, lhs_f, rhs_f 
   *         function position in the stack sci_f required lhs and rhs in lhs_f, rhs_f 
   *         (we do not use lhs_f and rhs_f in this example)
   */

  Argex17c  = (funcex) GetFuncPtr("ex17c", 3, FTab_ex17c, (voidf) sciex17c, &sci_f, &lhs_f, &rhs_f);
  if ( Argex17c == (funcex) 0 ) return 0;
  
  m_Z= m_X*n_X;  n_Z= m_Y*n_Y;

  /*  Creating the output variable Z (#4) , real matrix variable with m_Z rows and n_Z columns    */

  CreateVar(4, "d", &m_Z, &n_Z, &l_Z);
  
  /* If an error occurs while Z is calculated ... */

  if (( returned_from_longjump = setjmp(ex17cenv)) != 0 )
    {
      Scierror(999,"%s: Internal error \r\n",fname);
      return 0;
    } 
  
  /*  Now matrix Z is populated i.e. appropriate values are 
   *  assigned to stk(l_Z)[0] ( = Z(1,1) ), stk(l_Z)[1]  ( = Z(2,1) ), ... 
   */

  ex17c(stk(l_X), m_X*n_X, stk(l_Y), m_Y*n_Y, stk(l_Z), Argex17c);

  /*  Variable #4 is returned to Scilab  */
  LhsVar(1) = 4;
  return 0;
}

Here is the call graph for this function:

static int sciex17c	(	double	x,
		double	y,
		double *	z
	)			[static]

Definition at line 112 of file intex17c.c.

References CreateVar, lhs, PExecSciFunction, rhs, and stk.

Referenced by intex17c().

{
  static int lhs=1,rhs=2;
  int scilab_i,scilab_j, un=1;
  /* Inputs (x(i),y(j)) at positions  (5,6) */
  CreateVar(5, "d", &un, &un, &scilab_i);
  stk(scilab_i)[0] = x;

  CreateVar(6, "d", &un, &un, &scilab_j);
  stk(scilab_j)[0] = y;

  /* executes the Scilab function (f) pointed to by sci_f. 
   * we provide a rhs=2 and expect lhs = 1 
   */
  PExecSciFunction(5, &sci_f, &lhs, &rhs, "ArgFex", ex17cenv);
  /* One output at position of first input (5) */
  *z = *stk(scilab_i);
  return 0;
}

Here is the caller graph for this function:

---

Variable Documentation

funcex Argex17c [static]

Definition at line 46 of file intex17c.c.

jmp_buf ex17cenv [static]

Definition at line 33 of file intex17c.c.

FTAB FTab_ex17c[]

Initial value:

{
  {"f1c", (voidf) f1c},
  {"f2c", (voidf) f2c},
  {(char *) 0, (voidf) 0}}

Definition at line 23 of file intex17c.c.

Referenced by intex17c().

int lhs_f [static]

Definition at line 39 of file intex17c.c.

int rhs_f [static]

Definition at line 39 of file intex17c.c.

int sci_f [static]

Definition at line 39 of file intex17c.c.

---