stack3.c File Reference

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

Include dependency graph for stack3.c:

Go to the source code of this file.

Functions
int	C2F (dmcopy)
int C2F()	creadmat (char *namex, integer *m, integer *n, double *scimat, unsigned long name_len)
int C2F()	creadcmat (char *namex, integer *m, integer *n, double *scimat, unsigned long name_len)
int C2F()	cwritemat (char *namex, integer *m, integer *n, double *mat, unsigned long name_len)
int C2F()	cwritecmat (char *namex, integer *m, integer *n, double *mat, unsigned long name_len)
int C2F()	putvar (int *number, char *namex, unsigned long name_len)
int C2F()	readchain (char *namex, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len)
int C2F()	creadchain (char *namex, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len)
int C2F()	creadchains (char *namex, integer *ir, integer *ic, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len)
int C2F()	cwritechain (char *namex, integer *m, char *chai, unsigned long name_len, unsigned long chai_len)
int C2F()	matptr (char *namex, integer *m, integer *n, integer *lp, unsigned long name_len)
int C2F()	cmatptr (char *namex, integer *m, integer *n, integer *lp, unsigned long name_len)
int C2F()	cmatcptr (char *namex, integer *m, integer *n, integer *lp, unsigned long name_len)
int C2F()	cmatsptr (char *namex, integer *m, integer *n, integer *ix, integer *j, integer *lp, integer *nlr, unsigned long name_len)
void *	Name2ptr (char *namex)
int	Name2where (char *namex)
int C2F()	str2name (char *namex, integer *id, unsigned long name_len)
int C2F()	objptr (char *namex, integer *lp, integer *fin, unsigned long name_len)
int C2F()	creadbmat (char *namex, integer *m, integer *n, int *scimat, unsigned long name_len)
int C2F()	cwritebmat (char *namex, integer *m, integer *n, int *mat, unsigned long name_len)
int C2F()	cmatbptr (char *namex, integer *m, integer *n, integer *lp, unsigned long name_len)
int	getlengthchain (char *namex)

---

Function Documentation

int C2F

(

dmcopy

)

Definition at line 15 of file stack3.c.

References C2F, creadmat(), and j.

{
    int j;
    j = C2F(creadmat)(namex, m, n, scimat, name_len);
    return 0;
}

Here is the call graph for this function:

int C2F() cmatbptr	(	char *	namex,
		integer *	m,
		integer *	n,
		integer *	lp,
		unsigned long	name_len
	)

get pointer on a named boolean matrix

Definition at line 693 of file stack3.c.

References C2F, FALSE_, Fin, get_fname(), getbmat(), iadr, id, Infstk, istk, L, lp, Lstk, m, n, name_len, namex, nsiz, stackg(), str2name(), and TRUE_.

Referenced by Java_javasci_SciBooleanArray_Get(), and Java_javasci_SciBooleanArray_GetElement().

{
        integer id[nsiz];
        C2F(str2name)(namex, id, name_len);
        /* get the position in fin */
        Fin = -1;
        C2F(stackg)(id);
        if (Fin == 0) 
        {
                Scierror(4,"Undefined variable %s\r\n",get_fname(namex,name_len));
                *m = -1;
                *n = -1;
                return FALSE_;
        }
        /* get data */
        if (*Infstk(Fin ) == 2) 
        {
                Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
        }

        if (! C2F(getbmat)("creadbmat", &Fin, &Fin, m, n, lp , 9L))     return FALSE_;
        
        return TRUE_ ;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() cmatcptr	(	char *	namex,
		integer *	m,
		integer *	n,
		integer *	lp,
		unsigned long	name_len
	)

Definition at line 464 of file stack3.c.

References C2F, FALSE_, Fin, get_fname(), getcmat(), iadr, id, Infstk, istk, L, lp, Lstk, m, n, name_len, namex, nsiz, stackg(), str2name(), and TRUE_.

Referenced by Java_javasci_SciComplexArray_Get(), Java_javasci_SciComplexArray_GetImaginaryPartElement(), and Java_javasci_SciComplexArray_GetRealPartElement().

{
    integer id[nsiz];
    C2F(str2name)(namex, id, name_len);
    /* get the position in fin */
    Fin = -1;
    C2F(stackg)(id);
    if (Fin == 0) {
      Scierror(4,"Undefined variable %s\r\n",get_fname(namex,name_len));
      *m = -1;
      *n = -1;
      return FALSE_;
    }
    /* get data */
    if (*Infstk(Fin ) == 2) {
        Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
    }
    if (! C2F(getcmat)("creadmat", &Fin, &Fin, m, n, lp, 8L)) {
        return FALSE_;
    }
    return TRUE_ ;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() cmatptr	(	char *	namex,
		integer *	m,
		integer *	n,
		integer *	lp,
		unsigned long	name_len
	)

Definition at line 412 of file stack3.c.

References C2F, FALSE_, Fin, get_fname(), getrmat(), iadr, id, Infstk, istk, L, lp, Lstk, m, n, name_len, namex, nsiz, stackg(), str2name(), and TRUE_.

Referenced by CMatrix::CMatrix(), CMatrix::inv(), Java_javasci_SciDoubleArray_Get(), Java_javasci_SciDoubleArray_GetElement(), matptr(), CMatrix::plus(), and SendScilabJob().

{
    integer id[nsiz];
    C2F(str2name)(namex, id, name_len);
    /* get the position in fin */
    Fin = -1;
    C2F(stackg)(id);
    if (Fin == 0) {
      Scierror(4,"Undefined variable %s\r\n",get_fname(namex,name_len));
      *m = -1;
      *n = -1;
      return FALSE_;
    }
    /* get data */
    if (*Infstk(Fin ) == 2) {
        Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
    }
    if (! C2F(getrmat)("creadmat", &Fin, &Fin, m, n, lp, 8L)) {
        return FALSE_;
    }
    return TRUE_ ;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() cmatsptr	(	char *	namex,
		integer *	m,
		integer *	n,
		integer *	ix,
		integer *	j,
		integer *	lp,
		integer *	nlr,
		unsigned long	name_len
	)

Definition at line 510 of file stack3.c.

References C2F, FALSE_, Fin, get_fname(), getsmat(), iadr, id, Infstk, istk, ix, j, L, lp, Lstk, m, n, name_len, namex, nlr, nsiz, stackg(), str2name(), and TRUE_.

{
    integer id[nsiz];
    C2F(str2name)(namex, id, name_len);
    /* get the position in fin */
    Fin = -1;
    C2F(stackg)(id);
    if (Fin == 0) {
      Scierror(4,"Undefined variable %s\r\n",get_fname(namex,name_len));
      *m = -1;
      *n = -1;
      return FALSE_;
    }
    /* get data */
    if (*Infstk(Fin ) == 2) {
        Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
    }
    if (! C2F(getsmat)("creadmat", &Fin, &Fin, m, n, ix, j, lp, nlr, 8L)) {
        return FALSE_;
    }
    return TRUE_ ;
}

Here is the call graph for this function:

int C2F() creadbmat	(	char *	namex,
		integer *	m,
		integer *	n,
		int *	scimat,
		unsigned long	name_len
	)

read a boolean matrix in scilab stack

Definition at line 643 of file stack3.c.

References C2F, Err, FALSE_, Fin, get_fname(), getbmat(), iadr, icopy(), Infstk, istk, L, l, Lstk, m, n, N, name_len, namex, nsiz, scimat, stackg(), str2name(), and TRUE_.

Referenced by Java_javasci_SciBooleanArray_Get(), and Java_javasci_SciBooleanArray_GetElement().

{
        integer l = 0;
        integer id[nsiz];
        int c_x = 1;
        int N = 0;

        C2F(str2name)(namex, id, name_len);
        /* read   : from scilab stack -> fortran variable */
        Fin = -1;
        C2F(stackg)(id);
        if (Err > 0) return FALSE_ ; 
        if (Fin == 0) {
                Scierror(4,"Undefined variable %s\r\n",get_fname(namex,name_len));
                return FALSE_;
        }
        if ( *Infstk(Fin ) == 2)  Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);

        /* get matrix data pointer */
        if (! C2F(getbmat)("creadbmat", &Fin, &Fin, m, n, &l , 9L))     return FALSE_;

        N = *n * *m;
        C2F(icopy)(&N,istk(l),&c_x,scimat,&c_x);

        return TRUE_;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() creadchain	(	char *	namex,
		integer *	itslen,
		char *	chai,
		unsigned long	name_len,
		unsigned long	chai_len
	)

Definition at line 248 of file stack3.c.

References C2F, chai, chai_len, cvstr(), cx1, Err, FALSE_, Fin, get_fname(), getsmat(), iadr, Infstk, istk, itslen, L, lr1, Lstk, m1, Min, n1, name_len, namex, nsiz, stackg(), str2name(), and TRUE_.

Referenced by readchain().

{
    integer ix1;
    integer m1, n1;
    integer id[nsiz];
    integer lr1;
    integer nlr1;

    Err = 0;
    C2F(str2name)(namex, id, name_len);
    Fin = -1;
    C2F(stackg)(id);
    if (Err > 0) return FALSE_ ;
    if (Fin == 0) {
      Scierror(4,"Undefined variable %s\r\n",get_fname(namex,name_len));
      return FALSE_ ;
    }
    if (*Infstk(Fin ) == 2) {
        Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
    }
    if (! C2F(getsmat)("creadchain", &Fin, &Fin, &m1, &n1, &cx1, &cx1, &lr1, &nlr1, 10L)) {
        return FALSE_;
    }
    if (m1 * n1 != 1) {
      Scierror(999,"creadchain: argument must be a string\r\n");
      return FALSE_ ;
    }

    ix1 = *itslen - 1;
    *itslen = Min(ix1,nlr1);
    C2F(cvstr)(itslen, istk(lr1 ), chai, &cx1, chai_len);
    chai[*itslen] = '\0';
    return TRUE_ ;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() creadchains	(	char *	namex,
		integer *	ir,
		integer *	ic,
		integer *	itslen,
		char *	chai,
		unsigned long	name_len,
		unsigned long	chai_len
	)

Definition at line 304 of file stack3.c.

References C2F, chai, chai_len, cvstr(), cx1, Err, FALSE_, Fin, get_fname(), getsmat(), iadr, ic, Infstk, ir, istk, itslen, L, lr1, Lstk, m1, Min, n1, name_len, namex, nsiz, stackg(), str2name(), and TRUE_.

Referenced by Java_javasci_Scilab_receiveStringMatrix(), and Java_javasci_SciStringArray_GetElement().

{
    integer ix1;
    integer m1, n1;
    integer id[nsiz];
    integer lr1;
    integer nlr1;

    Err = 0;
    C2F(str2name)(namex, id, name_len);
    Fin = -1;
    C2F(stackg)(id);
    if (Err > 0) return FALSE_ ;

    if (Fin == 0) {
      Scierror(4,"Undefined variable %s\r\n",get_fname(namex,name_len));
      return FALSE_ ;
    }

    if (*Infstk(Fin ) == 2) {
        Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
    }
    if (*ir == -1 && *ic == -1) {
        if (! C2F(getsmat)("creadchain", &Fin, &Fin, ir, ic, &cx1, &cx1, &lr1, &nlr1, 10L)) 
          return FALSE_;
        else 
          return TRUE_ ; 
    } else {
        if (! C2F(getsmat)("creadchain", &Fin, &Fin, &m1, &n1, ir, ic, &lr1, &nlr1, 10L)) {
          return FALSE_;
        }
    }
    ix1 = *itslen - 1;
    *itslen = Min(ix1,nlr1);
    C2F(cvstr)(itslen, istk(lr1 ), chai, &cx1, chai_len);
    chai[*itslen]='\0';
    return TRUE_;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() creadcmat	(	char *	namex,
		integer *	m,
		integer *	n,
		double *	scimat,
		unsigned long	name_len
	)

Definition at line 110 of file stack3.c.

References C2F, Err, FALSE_, Fin, get_fname(), getcmat(), iadr, Infstk, istk, L, l, Lstk, m, n, name_len, namex, nsiz, scimat, stackg(), stk, str2name(), and TRUE_.

Referenced by Java_javasci_SciComplexArray_Get(), Java_javasci_SciComplexArray_GetImaginaryPartElement(), and Java_javasci_SciComplexArray_GetRealPartElement().

{
    integer l, ix1;
    integer id[nsiz];

    C2F(str2name)(namex, id, name_len);
    /* read   : from scilab stack -> fortran variable */
    Fin = -1;
    C2F(stackg)(id);
    if (Err > 0) return FALSE_ ; 
    if (Fin == 0) {
      Scierror(4,"Undefined variable %s\r\n",get_fname(namex,name_len));
      return FALSE_;
    }
    if ( *Infstk(Fin ) == 2)  Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
    /* get matrix data pointer */
    if (! C2F(getcmat)("creadcmat", &Fin, &Fin, m, n, &l, 8L))  return FALSE_;
    ix1 = *m * *n;
    C2F(dmcopy)(stk(l ), m, scimat, m, m, n);
    C2F(dmcopy)(stk(l+ix1 ), m, scimat+ix1, m, m, n);

    return TRUE_;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() creadmat	(	char *	namex,
		integer *	m,
		integer *	n,
		double *	scimat,
		unsigned long	name_len
	)

Definition at line 61 of file stack3.c.

References C2F, Err, FALSE_, Fin, get_fname(), getrmat(), iadr, Infstk, istk, L, l, Lstk, m, n, name_len, namex, nsiz, scimat, stackg(), stk, str2name(), and TRUE_.

Referenced by C2F(), Java_javasci_SciDoubleArray_Get(), Java_javasci_SciDoubleArray_GetElement(), and Java_javasci_Scilab_receiveDoubleMatrix().

{
    integer l;
    integer id[nsiz];

    C2F(str2name)(namex, id, name_len);
    /* read   : from scilab stack -> fortran variable */
    Fin = -1;
    C2F(stackg)(id);
    if (Err > 0) return FALSE_ ; 
    if (Fin == 0) {
      Scierror(4,"Undefined variable %s\r\n",get_fname(namex,name_len));
      return FALSE_;
    }
    if ( *Infstk(Fin ) == 2)  Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
    /* get matrix data pointer */
    if (! C2F(getrmat)("creadmat", &Fin, &Fin, m, n, &l, 8L))   return FALSE_;

    C2F(dmcopy)(stk(l ), m, scimat, m, m, n);

    return TRUE_;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() cwritebmat	(	char *	namex,
		integer *	m,
		integer *	n,
		int *	mat,
		unsigned long	name_len
	)

write a boolean matrix in scilab stack

Definition at line 670 of file stack3.c.

References C2F, crebmat(), cx0, cx1, Err, FALSE_, icopy(), istk, L, lr, m, mat, n, name_len, namex, Nbvars, nsiz, Rhs, stackp(), str2name(), Top, and TRUE_.

Referenced by Java_javasci_SciBooleanArray_Send().

{
        integer   ix1 = *m * *n;
        integer Rhs_k = Rhs , Top_k = Top ;
        integer l4, id[nsiz], lr;

        C2F(str2name)(namex, id, name_len);
        Top = Top + Nbvars + 1; 
        if (! C2F(crebmat)("cwritebmat", &Top, m, n, &lr, 10L)) return  FALSE_;

        C2F(icopy)(&ix1, mat, &cx1, istk(lr ), &cx1);
        Rhs = 0;
        l4 = C2F(iop).lct[3];
        C2F(iop).lct[3] = -1;
        C2F(stackp)(id, &cx0);
        C2F(iop).lct[3] = l4;
        Top = Top_k;
        Rhs = Rhs_k;
        if (Err > 0)  return FALSE_;
        return TRUE_;

}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() cwritechain	(	char *	namex,
		integer *	m,
		char *	chai,
		unsigned long	name_len,
		unsigned long	chai_len
	)

Definition at line 352 of file stack3.c.

References C2F, chai, chai_len, cresmat2(), cvstr(), cx0, Err, FALSE_, istk, L, lr, m, name_len, namex, Nbvars, nsiz, Rhs, stackp(), str2name(), Top, and TRUE_.

Referenced by Java_javasci_SciStringArray_SendString(), and SendScilabJob().

{
    integer Rhs_k, Top_k;
    integer l4;
    integer id[nsiz], lr;
    C2F(str2name)(namex, id, name_len);
    Top_k = Top;
    /* jpc april 2002 */ 
    /* ++Top; */
    Top = Top + Nbvars + 1; 
    if (! C2F(cresmat2)("cwritechain", &Top, m, &lr, 11L)) {
        return FALSE_;
    }
    C2F(cvstr)(m, istk(lr ), chai, &cx0, chai_len);
    Rhs_k = Rhs;
    Rhs = 0;
    l4 = C2F(iop).lct[3];
    C2F(iop).lct[3] = -1;
    C2F(stackp)(id, &cx0);
    C2F(iop).lct[3] = l4;
    Top = Top_k ;
    Rhs = Rhs_k ;
    if (Err > 0)  return FALSE_;
    return TRUE_ ;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() cwritecmat	(	char *	namex,
		integer *	m,
		integer *	n,
		double *	mat,
		unsigned long	name_len
	)

cwritecmat writes vector/matrix in scilab's internal stack name: character string; name of the scilab variable ( null terMinated) m: number of rows n: number of columns mat: matrix entries stored columnwise in Scilab object for complex number

Definition at line 177 of file stack3.c.

References C2F, cremat(), cx0, cx1, dcopy(), Err, FALSE_, L, lc, lr, m, mat, n, name_len, namex, Nbvars, nsiz, Rhs, stackp(), stk, str2name(), Top, and TRUE_.

Referenced by Java_javasci_SciComplexArray_Send().

{
        integer   ix1 = *m * *n *2; /* real part + imaginary part */
        integer Rhs_k = Rhs , Top_k = Top ;
        integer l4, id[nsiz], lc, lr;
        int IT=1; /* Type Complex */

        C2F(str2name)(namex, id, name_len);
        
        Top = Top + Nbvars + 1; 
        if (! C2F(cremat)("cwritecmat", &Top, &IT, m, n, &lr, &lc, 10L)) return  FALSE_;
        C2F(dcopy)(&ix1, mat, &cx1, stk(lr ), &cx1);
        Rhs = 0;
        l4 = C2F(iop).lct[3];
        C2F(iop).lct[3] = -1;
        C2F(stackp)(id, &cx0);
        C2F(iop).lct[3] = l4;
        Top = Top_k;
        Rhs = Rhs_k;
        if (Err > 0)  return FALSE_;
        return TRUE_;
} 

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() cwritemat	(	char *	namex,
		integer *	m,
		integer *	n,
		double *	mat,
		unsigned long	name_len
	)

Definition at line 143 of file stack3.c.

References C2F, cremat(), cx0, cx1, dcopy(), Err, FALSE_, L, lc, lr, m, mat, n, name_len, namex, Nbvars, nsiz, Rhs, stackp(), stk, str2name(), Top, and TRUE_.

Referenced by Java_javasci_SciDoubleArray_Send(), and Java_javasci_Scilab_sendDoubleMatrix().

{
  integer   ix1 = *m * *n;
  integer Rhs_k = Rhs , Top_k = Top ;
  integer l4, id[nsiz], lc, lr;
  
  C2F(str2name)(namex, id, name_len);
  /* jpc april 2002 */ 
  /* ++Top; */
  Top = Top + Nbvars + 1; 
  if (! C2F(cremat)("cwritemat", &Top, &cx0, m, n, &lr, &lc, 9L)) return  FALSE_;
  C2F(dcopy)(&ix1, mat, &cx1, stk(lr ), &cx1);
  Rhs = 0;
  l4 = C2F(iop).lct[3];
  C2F(iop).lct[3] = -1;
  C2F(stackp)(id, &cx0);
  C2F(iop).lct[3] = l4;
  Top = Top_k;
  Rhs = Rhs_k;
  if (Err > 0)  return FALSE_;
  return TRUE_;
} 

Here is the call graph for this function:

Here is the caller graph for this function:

int getlengthchain

(

char *

namex

)

returns length of a "chain variable" in scilab example : in scilab --> str = "abcdefghijklmnopqrstuvwxyz"; in C getlengthchain("str") returns 26 error returns -1

Definition at line 726 of file stack3.c.

References C2F, cx1, Err, Fin, getsmat(), iadr, Infstk, istk, L, lr1, Lstk, m1, n1, name_len, nsiz, stackg(), and str2name().

{
        int retLength = -1;

        integer m1, n1;
        integer id[nsiz];
        integer lr1;
        integer nlr1;
        unsigned long name_len= strlen(namex);

        Err = 0;
        C2F(str2name)(namex, id, name_len);
        Fin = -1;
        C2F(stackg)(id);
        if (Err > 0)  return -1;
        if (Fin == 0) return -1;


        if (*Infstk(Fin ) == 2) 
        {
                Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
        }

        if (! C2F(getsmat)("getlengthchain", &Fin, &Fin, &m1, &n1, &cx1, &cx1, &lr1, &nlr1, 14L)) return -1;

        if (m1 * n1 != 1)  return -1;
        retLength = nlr1;

        return retLength;

}

Here is the call graph for this function:

int C2F() matptr	(	char *	namex,
		integer *	m,
		integer *	n,
		integer *	lp,
		unsigned long	name_len
	)

Definition at line 382 of file stack3.c.

References C2F, cmatptr(), ix, lp, m, n, name_len, and namex.

{
    int ix;
    ix = C2F(cmatptr)(namex, m, n, lp, name_len);
    return 0;
} 

Here is the call graph for this function:

void* Name2ptr

(

char *

namex

)

Definition at line 539 of file stack3.c.

References C2F, Fin, get_fname(), iadr, Infstk, istk, Lstk, nsiz, stackg(), stk, and str2name().

{
  int l1; int *loci;
  integer id[nsiz];
  C2F(str2name)(namex, id, strlen(namex));
  /* get the position in fin */
  Fin = -1;
  C2F(stackg)(id);
  if (Fin == 0) {
    Scierror(4,"Undefined variable %s\r\n",get_fname(namex,strlen(namex)));
    return 0;
  }
  /* get data */
  if (*Infstk(Fin ) == 2) {
    Fin = *istk(iadr(*Lstk(Fin )) + 1 +1);
  }
  loci = (int *) stk(*Lstk(Fin));
  if (loci[0] < 0) 
    {
      l1 = loci[1];
      loci = (int *) stk(l1);
    }
  return loci;
}

Here is the call graph for this function:

int Name2where

(

char *

namex

)

Definition at line 576 of file stack3.c.

References C2F, Fin, get_fname(), Lstk, nsiz, stackg(), and str2name().

{
  int loci;
  integer id[nsiz];
  C2F(str2name)(namex, id, strlen(namex));
  /* get the position in fin */
  Fin = -1;
  C2F(stackg)(id);
  if (Fin == 0) {
    Scierror(4,"Undefined variable %s\r\n",get_fname(namex,strlen(namex)));
    return 0;
  }
  loci = *Lstk(Fin);
  return loci;
}

Here is the call graph for this function:

int C2F() objptr	(	char *	namex,
		integer *	lp,
		integer *	fin,
		unsigned long	name_len
	)

Definition at line 618 of file stack3.c.

References C2F, FALSE_, fin, Fin, iadr, id, Infstk, istk, lp, Lstk, name_len, namex, nsiz, putid(), stackg(), str2name(), and TRUE_.

Referenced by createreffromname(), GetDataFromName(), Java_javasci_SciBooleanArray_getColFromScilab(), Java_javasci_SciBooleanArray_getRowFromScilab(), Java_javasci_SciComplexArray_getColFromScilab(), Java_javasci_SciComplexArray_getRowFromScilab(), Java_javasci_SciDoubleArray_getColFromScilab(), Java_javasci_SciDoubleArray_getRowFromScilab(), Java_javasci_Scilab_ExistVar(), Java_javasci_Scilab_TypeVar(), Java_javasci_SciStringArray_getColFromScilab(), Java_javasci_SciStringArray_getRowFromScilab(), mexGetArray(), mexGetVariable(), and mexGetVariablePtr().

{
    integer id[nsiz];
    *lp = 0;
    /*     ---- get the id */
    C2F(str2name)(namex, id, name_len);
    /*     ---- get the position in fin */
    Fin = -1;
    C2F(stackg)(id);
    if (Fin == 0) {
      C2F(putid)(&C2F(recu).ids[(C2F(recu).pt + 1) * nsiz - nsiz], id);
      /*         we juste return false and lp is set to zero */
      /*         call error(4) */
      return FALSE_;
    }
    *fin = Fin;
    *lp = *Lstk(Fin );
    if (*Infstk(Fin ) == 2) {
        *lp = *Lstk(*istk(iadr(*lp) + 1 +1) );
    }
    return  TRUE_;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() putvar	(	int *	number,
		char *	namex,
		unsigned long	name_len
	)

Definition at line 201 of file stack3.c.

References C2F, Err, FALSE_, name_len, namex, nsiz, number, Rhs, stackp(), str2name(), Top, and TRUE_.

{
  integer Rhs_k = Rhs , Top_k = Top ;
  integer l4, id[nsiz],/* lc, lr,*/ cx0_2=1;
  
  C2F(str2name)(namex, id, name_len);
  Top = *number + Top -Rhs;
  Rhs = 0;
  l4 = C2F(iop).lct[3];
  C2F(iop).lct[3] = -1;
  C2F(stackp)(id, &cx0_2);
  C2F(iop).lct[3] = l4;
  Top = Top_k;
  Rhs = Rhs_k;
  if (Err > 0)  return FALSE_;
  return TRUE_;
} 

Here is the call graph for this function:

int C2F() readchain	(	char *	namex,
		integer *	itslen,
		char *	chai,
		unsigned long	name_len,
		unsigned long	chai_len
	)

Definition at line 223 of file stack3.c.

References C2F, chai, chai_len, creadchain(), itslen, j, name_len, and namex.

{
    int j;
    j = C2F(creadchain)(namex, itslen, chai, name_len, chai_len);
    return 0;
} 

Here is the call graph for this function:

int C2F() str2name	(	char *	namex,
		integer *	id,
		unsigned long	name_len
	)

Definition at line 600 of file stack3.c.

References C2F, cvname(), cx0, id, ix, name_len, and namex.

Referenced by cmatbptr(), cmatcptr(), cmatptr(), cmatsptr(), creadbmat(), creadchain(), creadchains(), creadcmat(), creadmat(), cwritebmat(), cwritechain(), cwritecmat(), cwritemat(), getlengthchain(), Name2ptr(), Name2where(), objptr(), and putvar().

{
    integer ix;
    integer lon;
    lon = 0;
    for (ix = 0 ; ix < (integer) name_len ; ix++ ) {
      if ( namex[ix] == '\0') break;
      ++lon;
    }
    C2F(cvname)(id, namex, &cx0, lon);
    return 0;
} 

Here is the call graph for this function:

Here is the caller graph for this function:

---