intcscicos.h File Reference

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

Go to the source code of this file.

Data Structures
struct	outtb_el
Functions
int MlistGetFieldNumber	__PARAMS ((int *ptr, const char *string))
int	C2F (gw_cscicos) _PARAMS((void))
int inttimescicos	_PARAMS ((char *fname, unsigned long fname_len))
static void	duplicata ()
static void	comp_size ()
int	var2sci (void *x, int n, int m, int typ_var)
int	createblklist (scicos_block *Blocks, int *ierr, int flag_imp)
int	getscicosvarsfromimport (char *what, void *v, int *nv, int *mv)
void C2F()	vvtosci ()
int C2F()	mktlist ()
int C2F()	mklist ()
void	str2sci (char **x, int n, int m)
integer C2F()	scierr ()
int	Max1 (int *vect)
int *	listentry (int *header, int i)
int	Message (char *code)
int	cpass2 ()
Variables
static int *	il_state_save
static int *	il_sim_save
struct {
integer   kfun
}	curblk

---

Function Documentation

int MlistGetFieldNumber __PARAMS

(

(int *ptr, const char *string)

)

int inttimescicos _PARAMS

(

(char *fname, unsigned long fname_len)

)

Definition at line 215 of file intcscicos.c.

{
  int un=1,ipvec,nvec,mvec,noin,moin,ipoin,noinr,moinr,ipoinr;
  int nnd,mnd,ipnd,ntyp,mtyp,iptyp,ipr1,ipr2,n,nr,nn;
  
  CheckRhs(5,5);
  CheckLhs(2,2);

  GetRhsVar(1,"i",&nvec,&mvec,&ipvec);
  GetRhsVar(2,"i",&noin,&moin,&ipoin);
  GetRhsVar(3,"i",&noinr,&moinr,&ipoinr);
  GetRhsVar(4,"i",&nnd,&mnd,&ipnd);
  GetRhsVar(5,"i",&ntyp,&mtyp,&iptyp);
  n=nvec*mvec;
  nn=nnd*mnd;
  CreateVar(6,"i",&un,&nn,&ipr1);
  CreateVar(7,"i",&un,&nn,&ipr2);

  ctree4(istk(ipvec),n,istk(ipnd),mnd,istk(iptyp),istk(ipoin),
         istk(ipoinr),istk(ipr1),istk(ipr2),&nr);
  
  LhsVar(1)=6;
  LhsVar(2)=7;
  /*      nbcols(6)=nr */
  *istk(iadr(C2F(intersci).iwhere[5])+2)=nr;
  /*      nbcols(7)=nr */
  *istk(iadr(C2F(intersci).iwhere[6])+2)=nr;
  return 0;
}

int C2F

(

gw_cscicos

)

static void comp_size

(

)

[static]

Referenced by intduplicate().

Here is the caller graph for this function:

int cpass2

(

)

Referenced by intcpass2().

Here is the caller graph for this function:

int createblklist	(	scicos_block *	Blocks,
		int *	ierr,
		int	flag_imp
	)

Definition at line 2456 of file intcscicos.c.

Referenced by intgetscicosvarsc(), and sciblk4().

{
  /*local variable declaration*/
  int k;
  int nu,mu,ny,my;
  int u_typ,y_typ;

  /*variable used when imp_flag>=0*/
  int nv,mv;          /* length of data                                        */
  int nblk,ng;        /* to store number of blocks and number of zero cross.   */
  void *ptr;          /* ptr for data comming from import structure            */
  int *ptr_int;       /* ptr to store ptr on integer                           */
  double *ptr_double; /* ptr to store ptr on double                            */
  int *xptr, *zcptr;  /* to retrieve xptr by import and zcptr of scicos_blocks */
  double *x,*xd,*g;   /* ptr for x, xd and g for scicos_blocks              */

  /* set length of block list -please update me-                           */
  static int nblklst=31;
  /* set string of first element of scilab Blocks tlist -please update me- */
  static char *str_blklst[]={ "scicos_block", "nevprt" , "funpt" , "type"  ,
                              "scsptr"      , "nz"     , "z"     , "nx"    ,
                              "x"           , "xd"     , "res"   , "nin"   ,
                              "insz"        , "inptr"  , "nout"  , "outsz" ,
                              "outptr"      , "nevout" , "evout" , "nrpar" ,
                              "rpar"        , "nipar"  , "ipar"  , "ng"    ,
                              "g"           , "ztyp"   , "jroot" , "label" ,
                              "work"        , "nmode"  , "mode"};

  /* char ptr for str2sci - see below - */
  char **str1;


  /* set nblk, x, xd ptr coming from import strucuture,
   * if flag_imp >=0
   */
  if (flag_imp>=0)
  {
   /*retrieve nblk by import structure*/
   strcpy(C2F(cha1).buf,"nblk");
   *ierr=getscicosvarsfromimport(C2F(cha1).buf,&ptr,&nv,&mv);
   if (*ierr==0) return 0;
   ptr_int = (int *) ptr;
   nblk = *ptr_int;

   /* retrieve ng by import structure */
   strcpy(C2F(cha1).buf,"ng");
   *ierr=getscicosvarsfromimport(C2F(cha1).buf,&ptr,&nv,&mv);
   ptr_int = (int *) ptr; /* cast void* ptr to int* ptr */
   ng = *ptr_int;

   /*retrieve xptr by import structure*/
   strcpy(C2F(cha1).buf,"xptr");
   *ierr=getscicosvarsfromimport(C2F(cha1).buf,&ptr,&nv,&mv);
   if (*ierr==0) return 0;
   ptr_int = (int *) ptr;
   xptr = ptr_int;

   /*retrieve zcptr by import structure*/
   strcpy(C2F(cha1).buf,"zcptr");
   *ierr=getscicosvarsfromimport(C2F(cha1).buf,&ptr,&nv,&mv);
   ptr_int = (int *) ptr;
   zcptr = ptr_int;

   /*retrieve x and xd by import structure*/
   strcpy(C2F(cha1).buf,"x");
   *ierr=getscicosvarsfromimport(C2F(cha1).buf,&ptr,&nv,&mv);
   if (*ierr==0) return 0;
   ptr_double = (double *) ptr;
   x = ptr_double;
   xd = &x[xptr[nblk]-1];

   /*retrieve g by import structure*/
   strcpy(C2F(cha1).buf,"g");
   *ierr=getscicosvarsfromimport(C2F(cha1).buf,&ptr,&nv,&mv);
   ptr_double = (double *) ptr;
   g = ptr_double;
  }

  /****************************
   * create scilab tlist Blocks
   ****************************/
  /* 1 - scicos_block */
  str2sci(str_blklst,1,31);

  /* 2 - nevprt */
  *ierr=var2sci(&Blocks[0].nevprt,1,1,80);
  if (*ierr!=0) return 0;

  /* 3 - funpt */
  *ierr=var2sci(&Blocks[0].funpt,0,1,80); /* !!!! */
  if (*ierr!=0) return 0;

  /* 4 - type */
  *ierr=var2sci(&Blocks[0].type,1,1,80); /* !!!! */
  if (*ierr!=0) return 0;

  /* 5 - scsptr */
  *ierr=var2sci(&Blocks[0].scsptr,0,1,80); /* !!!! */
  if (*ierr!=0) return 0;

  /* 6 - nz */
  *ierr=var2sci(&Blocks[0].nz,1,1,80);
  if (*ierr!=0) return 0;

  /* 7 - z */
  if(Blocks[0].scsptr>0)
  {
   C2F(vvtosci)(Blocks[0].z,&Blocks[0].nz);
   if (C2F(scierr)()!=0) return 0; 
  }
  else
  {
   *ierr=var2sci(Blocks[0].z,Blocks[0].nz,1,10);
   if (*ierr!=0) return 0; 
  }

  /* 8 - nx */
  *ierr=var2sci(&Blocks[0].nx,1,1,80);
  if (*ierr!=0) return 0;

  /* 9 - x */
  if (flag_imp>=0) *ierr=var2sci(&x[xptr[flag_imp]-1],Blocks[0].nx,1,10);
  else *ierr=var2sci(Blocks[0].x,Blocks[0].nx,1,10);
  if (*ierr!=0) return 0; 

  /* 10 - xd */
  if (flag_imp>=0) *ierr=var2sci(&xd[xptr[flag_imp]-1],Blocks[0].nx,1,10);
  else *ierr=var2sci(Blocks[0].xd,Blocks[0].nx,1,10);
  if (*ierr!=0) return 0; 

  /* 11 - res */
  *ierr=var2sci(Blocks[0].res,Blocks[0].nx,1,10);
  if (*ierr!=0) return 0;

  /* 12 - nin */
  *ierr=var2sci(&Blocks[0].nin,1,1,80);
  if (*ierr!=0) return 0;

  /* 13 - insz */
  *ierr=var2sci(Blocks[0].insz,3*Blocks[0].nin,1,80);
  if (*ierr!=0) return 0;

  /* 14 - inptr */
  for (k=0;k<Blocks[0].nin;k++) 
  {
   nu=Blocks[0].insz[k]; /* retrieve number of rows */
   mu=Blocks[0].insz[Blocks[0].nin+k]; /* retrieve number of cols */
   u_typ=Blocks[0].insz[2*Blocks[0].nin+k]; /* retrieve type */
   *ierr=var2sci(Blocks[0].inptr[k],nu,mu,u_typ);
   if (*ierr!=0) return 0;
  }
  C2F(mklist)(&Blocks[0].nin); /*create inptr list*/

  /* 15 - nout */
  *ierr=var2sci(&Blocks[0].nout,1,1,80);
  if (*ierr!=0) return 0;

  /* 16 - outsz */
  *ierr=var2sci(Blocks[0].outsz,3*Blocks[0].nout,1,80);
  if (*ierr!=0) return 0;

  /* 17 - outptr */
  for (k=0;k<Blocks[0].nout;k++) 
  {
   ny=Blocks[0].outsz[k]; /* retrieve number of rows */
   my=Blocks[0].outsz[Blocks[0].nout+k]; /* retrieve number of cols */
   y_typ=Blocks[0].outsz[2*Blocks[0].nout+k]; /* retrieve type */
   *ierr=var2sci(Blocks[0].outptr[k],ny,my,y_typ);
   if (*ierr!=0) return 0;
  }
  C2F(mklist)(&Blocks[0].nout); /*create outptr list*/

  /* 18 - nevout */
  *ierr=var2sci(&Blocks[0].nevout,1,1,80);
  if (*ierr!=0) return 0;

  /* 19 - evout */
  *ierr=var2sci(Blocks[0].evout,Blocks[0].nevout,1,10);
  if (*ierr!=0) return 0; 

  /* 20 - nrpar */
  *ierr=var2sci(&Blocks[0].nrpar,1,1,80);
  if (*ierr!=0) return 0;

  /* 21 - rpar */
  if(Blocks[0].scsptr>0)
  {
   C2F(vvtosci)(Blocks[0].rpar,&Blocks[0].nrpar);
   if (C2F(scierr)()!=0) return 0;
  }
  else
  {
   *ierr=var2sci(Blocks[0].rpar,Blocks[0].nrpar,1,10);
   if (*ierr!=0) return 0; 
  }

  /* 22 - nipar */
  *ierr=var2sci(&Blocks[0].nipar,1,1,80);
  if (*ierr!=0) return 0;

  /* 23 - ipar */
  *ierr=var2sci(Blocks[0].ipar,Blocks[0].nipar,1,80);
  if (*ierr!=0) return 0;

  /* 24 - ng */
  *ierr=var2sci(&Blocks[0].ng,1,1,80);
  if (*ierr!=0) return 0;

  /* 25 - g */
  if (flag_imp>=0) *ierr=var2sci(&g[zcptr[flag_imp]-1],Blocks[0].ng,1,10);
  else *ierr=var2sci(Blocks[0].g,Blocks[0].ng,1,10);
  if (*ierr!=0) return 0;

  /* 26 - ztyp */
  *ierr=var2sci(&Blocks[0].ztyp,1,1,80);
  if (*ierr!=0) return 0;

  /* 27 - jroot */
  *ierr=var2sci(Blocks[0].jroot,Blocks[0].ng,1,80);
  if (*ierr!=0) return 0;

  /* 28 - label */
  if ((str1=MALLOC(sizeof(char*))) ==NULL )  return 0;
  if ((str1[0]=MALLOC(sizeof(char)*(strlen(Blocks[0].label)+1))) ==NULL )  return 0;
  (str1[0])[strlen(Blocks[0].label)]='\0';
  strncpy(str1[0],Blocks[0].label,strlen(Blocks[0].label));
  str2sci(str1,1,1);
  FREE(str1[0]);
  FREE(str1);
  if (C2F(scierr)()!=0) return 0; 

  /* 29 - work*/
  C2F(vvtosci)(*Blocks[0].work,(k=0,&k));
  if (C2F(scierr)()!=0) return 0; 

  /* 30 - nmode*/
  *ierr=var2sci(&Blocks[0].nmode,1,1,80);
  if (*ierr!=0) return 0;

  /* 31 - mode */
  *ierr=var2sci(Blocks[0].mode,Blocks[0].nmode,1,80);
  if (*ierr!=0) return 0;

  C2F(mktlist)(&nblklst); /*create Blocks list*/
  if (C2F(scierr)()!=0) return 0;

  /*return 1 if succeeded */
  return 1;
}

Here is the caller graph for this function:

static void duplicata

(

)

[static]

Referenced by intduplicate().

Here is the caller graph for this function:

int getscicosvarsfromimport	(	char *	what,
		void *	v,
		int *	nv,
		int *	mv
	)

Referenced by createblklist(), and intgetscicosvarsc().

Here is the caller graph for this function:

int* listentry	(	int *	header,
		int	i
	)

TODO : comment

Parameters:

	header
	i

Returns:

Definition at line 120 of file mexlib.c.

{
  /*Usage int *header = header(array_ptr)   
   *      int *headersub = listentry(header, k)
   *   then headersub[0] ... is the header of the kth object in the
   *   list array_ptr  */
  int n, *ptr; 
  n = header[1]; 
  if (i <= n) {
    if ( n%2 == 0 ) n++;
    /* n = n if n odd, n=n+1 if n even (=> n is odd and ptr even !) */
    ptr = (int *) header + 3 + n + 2*( header[2 + (i - 1) ] -1);
  return ptr;
  } else {
    return NULL;
  }
}

int Max1

(

int *

vect

)

Definition at line 37 of file cpass2.c.

References i.

{
  int i,max1;
  if (vect[0]<1){
    max1=0;
  }else{
    max1=vect[1];
    for(i=2;i<vect[0]+1;i++)
      {
        max1=(max1<vect[i])? vect[i]:max1;
      }
  }
  return max1;
}

int Message

(

char *

code

)

int C2F() mklist

(

)

int C2F() mktlist

(

)

integer C2F() scierr

(

)

Referenced by createblklist(), sciblk2(), sciblk2i(), and sciblk4().

Here is the caller graph for this function:

void str2sci	(	char **	x,
		int	n,
		int	m
	)

C string var2vec to scilab

Parameters:

x

is supposed to be a fortran image of var2vec result

Definition at line 6 of file str2sci.c.

References Bot, C2F, cvstr(), err, error, i, iadr, istk, l, long, Lstk, m1, n1, sadr, and Top.

{
      
  int l=0,il=0,zero=0,err,n1,i,m1=0;
      
  if (Top >= Bot) {
    i=18;
    C2F(error)(&i);
  } else {
    Top = Top + 1;
    il = iadr(*Lstk(Top));
    l = sadr(il+6);
  }
  
  err = l + n*m - *Lstk(Bot);
  if (err > 0) {
    i=17;
    C2F(error)(&i);
    return;
  }
  *istk(il) = 10;
  *istk(il+1) = n;
  *istk(il+2) = m;
  *istk(il+3) = 0;
  *istk(il+4) = 1;
  for (i = 1; i <= n*m; i++){
          n1=strlen(x[i-1]);
          *istk(il+4+i) =  *istk(il+4+i-1)+n1;
          if (n1 > 0) 
                  C2F(cvstr)(&n1,istk(il+m*n+5 -1 + *istk(il+3+i)),x[i-1],&zero,(unsigned long) n1);
          m1=m1+n1;
  }
  *Lstk(Top+1) = l + m1;      
                
} 

Here is the call graph for this function:

int var2sci	(	void *	x,
		int	n,
		int	m,
		int	typ_var
	)

Definition at line 2224 of file intcscicos.c.

Referenced by createblklist(), and sciblk4().

{
  /************************************
   * variables and constants définition
   ************************************/
  /*counter and address variable declaration*/
  int nm,il,l,j,err;

  /*define all type of accepted ptr */
  double *x_d,*ptr_d;
  char *x_c,*ptr_c;
  unsigned char *x_uc,*ptr_uc;
  short *x_s,*ptr_s;
  unsigned short *x_us,*ptr_us;
  int *x_i,*ptr_i;
  unsigned int *x_ui,*ptr_ui;
  long *x_l,*ptr_l;
  unsigned long *x_ul,*ptr_ul;

  /* Check if the stack is not full */
  if (Top >= Bot) 
  {
   err = 1;
   return err;
  }
  else
  {
   Top = Top + 1;
   il = iadr(*Lstk(Top));
   l = sadr(il+4);
  }

  /* set number of double needed to store data */
  if (typ_var==10) nm=n*m; /*double real matrix*/
  else if (typ_var==11)  nm=n*m*2; /*double real matrix*/
  else if (typ_var==80)  nm=(int)(ceil((n*m)/2)+1); /*int*/
  else if (typ_var==81)  nm=(int)(ceil((n*m)/8)+1); /*int8*/
  else if (typ_var==82)  nm=(int)(ceil((n*m)/4)+1); /*int16*/
  else if (typ_var==84)  nm=(int)(ceil((n*m)/2)+1); /*int32*/
  else if (typ_var==800) nm=(int)(ceil((n*m)/2)+1); /*uint*/
  else if (typ_var==811) nm=(int)(ceil((n*m)/8)+1); /*uint8*/
  else if (typ_var==812) nm=(int)(ceil((n*m)/4)+1); /*uint16*/
  else if (typ_var==814) nm=(int)(ceil((n*m)/2)+1); /*uint32*/
  else nm=n*m; /*double real matrix*/

  /*check if there is free space for new data*/
  err = l + nm - *Lstk(Bot);
  if (err > 0) 
  {
   err = 2;
   return err;
  }

  /**************************
   * store data on the stack
   *************************/
  switch (typ_var) /*for each type of data*/
  {
       case 10  : /* set header */
                  *istk(il) = 1; /*double real matrix*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 0;
                  x_d = (double *) x;
                  ptr_d = (double *) stk(l);
                  for (j=0;j<m*n;j++) ptr_d[j] = x_d[j];
                  break;

       case 11  : /* set header */
                  *istk(il) = 1; /*double complex matrix*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 1;
                  x_d = (double *) x;
                  ptr_d = (double *) stk(l);
                  for (j=0;j<2*m*n;j++) ptr_d[j] = x_d[j];
                  break;

       case 80  : /* set header */
                  *istk(il) = 8; /*int*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 4;
                  x_i = (int *) x;
                  for (j=0;j<m*n;j++)
                  {
                   ptr_i = (int *) istk(il+4);
                   ptr_i[j] = x_i[j];
                  }
                  break;

       case 81  : /* set header */
                  *istk(il) = 8; /*int8*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 1;
                  x_c = (char *) x;
                  for (j=0;j<m*n;j++)
                  {
                   ptr_c = (char *) istk(il+4);
                   ptr_c[j] = x_c[j];
                  }
                  break;

       case 82  : /* set header */
                  *istk(il) = 8; /*int16*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 2;
                  x_s = (short *) x;
                  for (j=0;j<m*n;j++)
                  {
                   ptr_s = (short *) istk(il+4);
                   ptr_s[j] = x_s[j];
                  }
                  break;

       case 84  : /* set header */
                  *istk(il) = 8; /*int32*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 4;
                  x_l = (long *) x;
                  for (j=0;j<m*n;j++)
                  {
                   ptr_l = (long *) istk(il+4);
                   ptr_l[j] = x_l[j];
                  }
                  break;

       case 800 : /* set header */
                  *istk(il) = 8; /*uint*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 14;
                  x_ui = (unsigned int *) x;
                  for (j=0;j<m*n;j++)
                  {
                   ptr_ui = (unsigned int *) istk(il+4);
                   ptr_ui[j] = x_ui[j];
                  }
                  break;

       case 811 : /* set header */
                  *istk(il) = 8; /*uint8*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 11;
                  x_uc = (unsigned char *) x;
                  for (j=0;j<m*n;j++)
                  {
                   ptr_uc = (unsigned char *) istk(il+4);
                   ptr_uc[j] = x_uc[j];
                  }
                  break;

       case 812 : /* set header */
                  *istk(il) = 8; /*uint16*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 12;
                  x_us = (unsigned short *) x;
                  for (j=0;j<m*n;j++)
                  {
                   ptr_us = (unsigned short *) istk(il+4);
                   ptr_us[j] = x_us[j];
                  }
                  break;

       case 814 : /* set header */
                  *istk(il) = 8; /*uint32*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 14;
                  x_ul = (unsigned long *) x;
                  for (j=0;j<m*n;j++)
                  {
                   ptr_ul = (unsigned long *) istk(il+4);
                   ptr_ul[j] = x_ul[j];
                  }
                  break;

       default  : /* set header */
                  *istk(il) = 1; /*double real matrix*/
                  *istk(il+1) = n;
                  *istk(il+2) = m;
                  *istk(il+3) = 0;
                  x_d = (double *) x;
                  for (j=0;j<m*n;j++)
                  {
                   ptr_d = (double *) stk(il+4);
                   ptr_d[j] = x_d[j];
                  }
                  break;
  }

  /* set value in lstk */
  *Lstk(Top+1) = l + nm;

  /*return error flag = 0 */
  err = 0;
  return 0;
}

Here is the caller graph for this function:

void C2F() vvtosci

(

)

Referenced by createblklist(), sciblk2(), and sciblk2i().

Here is the caller graph for this function:

---

Variable Documentation

struct { ... } curblk

Referenced by callf(), cdoit(), cosend(), cosini(), cossim(), cossimdaskr(), ddoit(), doit(), edoit(), get_block_number(), getcurblock(), idoit(), intcurblkc(), intscicosimc(), Jdoit(), odoit(), ozdoit(), reinitdoit(), scicos(), and zdoit().

int* il_sim_save [static]

Definition at line 39 of file intcscicos.h.

Referenced by intgetscicosvarsc(), and intscicosimc().

int* il_state_save [static]

Definition at line 38 of file intcscicos.h.

Referenced by intgetscicosvarsc(), and intscicosimc().

integer kfun

Definition at line 40 of file intcscicos.h.

Referenced by bouncexy(), C2F(), cdoit(), cmscope(), cosend(), cosini(), cossim(), cossimdaskr(), cscope(), ddoit(), doit(), edoit(), idoit(), intscicosimc(), Jdoit(), odoit(), ozdoit(), reinitdoit(), scicos(), and zdoit().

---