replace values (types) by const
Allan Cornet [Tue, 30 Oct 2007 19:43:42 +0000 (19:43 +0000)]
sci_matrix = 1 ,  sci_poly = 2 ,   sci_boolean = 4 , ...

43 files changed:
scilab/modules/boolean/sci_gateway/c/sci_and.c
scilab/modules/boolean/sci_gateway/c/sci_or.c
scilab/modules/core/includes/stack-c.h
scilab/modules/core/src/c/run.c
scilab/modules/core/src/c/stack1.c
scilab/modules/core/src/c/stack2.c
scilab/modules/core/src/c/str2sci.c
scilab/modules/data_structures/src/c/hmops.c
scilab/modules/data_structures/src/c/stcreate.c
scilab/modules/elementary_functions/src/c/IsEqualVar.c
scilab/modules/fftw/sci_gateway/c/sci_fftw.c
scilab/modules/fftw/sci_gateway/c/sci_fftw_flags.c
scilab/modules/fftw/sci_gateway/c/sci_set_fftw_wisdom.c
scilab/modules/fileio/sci_gateway/c/sci_mfprintf.c
scilab/modules/fileio/sci_gateway/c/sci_msprintf.c
scilab/modules/graphics/sci_gateway/c/sci_StringBox.c
scilab/modules/graphics/sci_gateway/c/sci_delete.c
scilab/modules/graphics/sci_gateway/c/sci_get.c
scilab/modules/graphics/sci_gateway/c/sci_plot2d.c
scilab/modules/graphics/sci_gateway/c/sci_plot2d1.c
scilab/modules/graphics/sci_gateway/c/sci_set.c
scilab/modules/graphics/sci_gateway/c/sci_xgetmouse.c
scilab/modules/graphics/sci_gateway/c/sci_xset.c
scilab/modules/graphics/src/c/GetProperty.c
scilab/modules/graphics/src/c/getHandleProperty/getPropertyAssignedValue.c
scilab/modules/interpolation/src/c/interpolation.c
scilab/modules/intersci/src/lib/libinter.c
scilab/modules/linear_algebra/sci_gateway/c/sci_balanc.c
scilab/modules/linear_algebra/sci_gateway/c/sci_chol.c
scilab/modules/linear_algebra/sci_gateway/c/sci_det.c
scilab/modules/linear_algebra/sci_gateway/c/sci_eig.c
scilab/modules/linear_algebra/sci_gateway/c/sci_hess.c
scilab/modules/linear_algebra/sci_gateway/c/sci_inv.c
scilab/modules/linear_algebra/sci_gateway/c/sci_lsq.c
scilab/modules/linear_algebra/sci_gateway/c/sci_lu.c
scilab/modules/linear_algebra/sci_gateway/c/sci_qr.c
scilab/modules/linear_algebra/sci_gateway/c/sci_rcond.c
scilab/modules/linear_algebra/sci_gateway/c/sci_schur.c
scilab/modules/linear_algebra/sci_gateway/c/sci_svd.c
scilab/modules/mexlib/src/c/mexlib.c
scilab/modules/randlib/sci_gateway/c/sci_grand.c
scilab/modules/scicos/sci_gateway/c/intcscicos.c
scilab/modules/scicos/src/c/sciblk4.c

index be2f1fb..c66f236 100644 (file)
@@ -17,14 +17,14 @@ int C2F(intand)(char *fname,unsigned long l)
 
  CheckRhs(1,2);
  CheckLhs(1,1);
- if (VarType(1)!=4) {
+ if (VarType(1)!=sci_boolean) {
    lw = 1 + Top - Rhs;
    C2F(overload)(&lw,"and",3L);
    return 0;}
 
  if (Rhs==2) {
    nopt=1;
-   if (VarType(2)==10) {
+   if (VarType(2)==sci_strings) {
      GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&lo);
      if (*cstk(lo)=='r')
        opt=1;
index 64d744f..5ceb4df 100644 (file)
@@ -17,14 +17,14 @@ int C2F(intor)(char *fname,unsigned long l)
  int opt=0,errn=44;
  CheckRhs(1,2);
  CheckLhs(1,1);
- if (VarType(1)!=4) {
+ if (VarType(1)!=sci_boolean) {
    lw = 1 + Top - Rhs;
    C2F(overload)(&lw,"or",2L);
    return 0;}
 
  if (Rhs==2) {
    nopt=1;
-   if (VarType(2)==10) {
+   if (VarType(2)==sci_strings) {
      GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&lo);
      if (*cstk(lo)=='r')
        opt=1;
index 0360365..ecd6483 100644 (file)
  * -------------------------------------------------*/
 
 typedef enum {
-  sci_matrix= 1 ,
-  sci_poly= 2 ,
-  sci_boolean= 4 ,
-  sci_sparse= 5  ,
-  sci_boolean_sparse= 6,
-  sci_ints= 8,
-  sci_handles=9,
-  sci_strings= 10,
-  sci_u_function= 11,
-  sci_c_function= 13 ,
-  sci_lib=  14,
-  sci_list= 15,
-  sci_tlist= 16,
-  sci_mlist= 17
+  sci_matrix = 1 ,
+  sci_poly = 2 ,
+  sci_boolean = 4 ,
+  sci_sparse = 5  ,
+  sci_boolean_sparse = 6,
+  sci_matlab_sparse = 7, /* matlab sparse matrix  */
+  sci_ints = 8,
+  sci_handles =9,
+  sci_strings = 10,
+  sci_u_function = 11,
+  sci_c_function = 13 ,
+  sci_lib =  14,
+  sci_list = 15,
+  sci_tlist = 16,
+  sci_mlist = 17,
+  sci_lufact_pointer = 128 /* lufact pointer */
 } sci_types;
 
 
index 6cd8604..77175f1 100644 (file)
@@ -1247,12 +1247,12 @@ int C2F(run)()
  L260:
   if (Istk[1 + lc] == 1) {
     /* | case */
-    if (C2F(gettype)(&Top) != 8 && Istrue(0)) {
+    if (C2F(gettype)(&Top) != sci_ints && Istrue(0)) {
       lc += Istk[2 + lc];
     }
   } else {
     /* & case */
-    if (C2F(gettype)(&Top) != 8 && ! Istrue(0)) {
+    if (C2F(gettype)(&Top) != sci_ints && ! Istrue(0)) {
       lc += Istk[2 + lc];
     }
   }
index ab69246..d4adb78 100644 (file)
@@ -1375,7 +1375,7 @@ int C2F(cresmat4)(char *fname,integer *lw,integer *m,integer *nchar,integer *lr,
     Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   } 
-  *istk(il ) = 10;
+  *istk(il ) = sci_strings;
   *istk(il + 1) = *m;
   *istk(il + 2) = 1;
   *istk(il + 3) = 0;
@@ -1421,7 +1421,7 @@ int C2F(cresmati)(char *fname,integer *stlw,integer *m,integer *n,integer *nchar
     return FALSE_;
   };
   
-  *istk(il ) = 10;
+  *istk(il ) = sci_strings;
   *istk(il + 1) = *m;
   *istk(il + 2) = *n;
   *istk(il + 3) = 0;
@@ -1477,7 +1477,7 @@ int cre_smat_from_str_i(char *fname, integer *lw, integer *m, integer *n, char *
     Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return  FALSE_;
   } ;
-  *istk(il ) = 10;
+  *istk(il ) = sci_strings;
   *istk(il + 1) = *m;
   *istk(il + 2) = *n;
   *istk(il + 3) = 0;
@@ -1682,7 +1682,7 @@ int C2F(crestringi)(char *fname,integer *stlw,integer *nchar,integer *ilrs,unsig
     Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   } ;
-  *istk(il ) = 10;
+  *istk(il ) = sci_strings;
   *istk(il +1) = 1;
   *istk(il + 1 +1) = 1;
   *istk(il + 2 +1) = 0;
@@ -1758,7 +1758,7 @@ int C2F(smatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
     Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
-  *istk(il2 ) = 10;
+  *istk(il2 ) = sci_strings;
   *istk(il2 +1) = m;
   *istk(il2 + 1 +1) = 1;
   *istk(il2 + 2 +1) = 0;
@@ -2818,7 +2818,7 @@ int C2F(allmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,unsi
   il = iadr(*Lstk(*lw ));
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   itype = *istk(il );
-  if (itype != 1 && itype != 2 && itype != 10) {
+  if (itype != sci_matrix && itype != sci_poly && itype != sci_strings) {
     Scierror(209,_("%s : Argument %d wrong type argument, expecting a matrix\n"),get_fname(fname,fname_len) ,  Rhs + (*lw - *topk));
     return FALSE_;
   }
@@ -2888,11 +2888,11 @@ int C2F(getexternal)(char *fname,integer *topk,integer *lw,char *namex,int *type
   int i;
   il = C2F(gettype)(lw);
   switch ( il) {
-  case 11 : case 13 : case 15 :
+  case sci_u_function : case sci_c_function : case sci_list :
     ret_value = TRUE_;
     *typex = FALSE_;
     break;
-  case 10 :
+  case sci_strings :
     ret_value = C2F(getsmat)(fname, topk, lw, &m, &n, &cx1, &cx1, &lr, &nlr, fname_len);
     *typex = TRUE_;
     for (i=0; i < (int)name_len ; i++ ) namex[i] = ' ';
index 63a389c..65fc6f1 100644 (file)
@@ -203,37 +203,37 @@ static integer overloadtype(integer *lw,char *fname,unsigned char *typ)
   switch (*typ) {
   case 'c' : /* string */
   case 'S' : /* string Matrix */
-    ityp=10;
+    ityp=sci_strings;
     break;
   case 'd' :  case 'i' :  case 'r' :  case 'z' :   /* numeric */
-    ityp=1;
+    ityp=sci_matrix;
     break ;
   case 'b' : /* boolean */
-    ityp=4;
+    ityp=sci_boolean;
     break;
   case 'h' : /* handle */
-    ityp=9;
+    ityp=sci_handles;
     break;
   case 'l' : /* list */
-    ityp=15;
+    ityp=sci_list;
     break;
   case 't' : /* tlist */
-    ityp=16;
+    ityp=sci_tlist;
     break;
   case 'm' : /* mlist */
-    ityp=17;
+    ityp=sci_mlist;
     break;
   case 'f' : /* external */
-    ityp=13;
+    ityp=sci_c_function;
     break;
   case 'p' : /* pointer */
-    ityp=128;
+    ityp=sci_lufact_pointer;
     break;
   case 's' : /* sparse */
-    ityp= 5;
+    ityp= sci_sparse;
     break;
   case 'I' : /* int matrix */
-    ityp=8;
+    ityp=sci_ints;
     break;
 
   }
@@ -1157,7 +1157,7 @@ int C2F(getmatdims)(integer *number,integer *m,integer *n)
   il = iadr(*Lstk(lw));
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   typ = *istk(il );
-  if (typ > 10) {
+  if (typ > sci_strings) {
     Scierror(199,_("%s : argument %d should be a matrix.\n"), fname,*number);
     return  FALSE_;
   }
@@ -2288,7 +2288,7 @@ int C2F(getrhssys)(integer *lw,integer *n,integer *m,integer *p,integer *ptra,in
   if ( *istk(il + msys + iadr(*istk(il + 5))) != 1) return FALSE_;
   itimedomain = *istk(il + msys + iadr(*istk(il + 6)));
   switch ( itimedomain ) {
-  case 10 :
+  case sci_strings :
     /* Sys(7)='c' or 'd' */
     icord = *istk(il + msys + iadr(*istk(il + 6))+ 6);
     switch ( icord )
@@ -2300,7 +2300,7 @@ int C2F(getrhssys)(integer *lw,integer *n,integer *m,integer *p,integer *ptra,in
        return FALSE_;
       }
     break;
-  case 1 :
+  case sci_matrix :
     /*     Sys(7)=h */
     ix1 = il + msys + iadr(*istk(il + 6)) + 4;
     *hx = *stk(sadr(ix1));
index 409ae2b..e282199 100644 (file)
@@ -24,7 +24,7 @@ void str2sci(char** x,int n,int m)
     C2F(error)(&i);
     return;
   }
-  *istk(il) = 10;
+  *istk(il) = sci_strings;
   *istk(il+1) = n;
   *istk(il+2) = m;
   *istk(il+3) = 0;
index e394646..176b8cf 100644 (file)
@@ -35,8 +35,8 @@
 #define SCI_BOOLEAN 4
 #define SCI_SP_BOOLEAN 6
 #define SCI_INTEGER 8
-#define SCI_STRING 10
-#define SCI_MLIST 17
+#define SCI_STRING sci_strings
+#define SCI_MLIST sci_mlist
 #define SCI_INT8 1
 #define SCI_UINT8 11
 #define SCI_INT16 2
index ab0941f..35dc3f7 100644 (file)
@@ -126,7 +126,7 @@ int sttyp(int *ivt, char *job, int *nf, char *fnames[])
       /* if (ivt[0] % 2) ivt[0]++;  */
     } else {
 /*      header = row vector made of 2 + *nf strings */
-       ivt[0] = 10;
+       ivt[0] = sci_strings;
        ivt[1] = 1;
        ivt[2] = 2 + *nf;
        ivt[3] = 0;
index c8841d1..494d084 100644 (file)
@@ -193,48 +193,48 @@ int IsEqualVar(double *d1, int n1, double *d2, int n2)
   switch (id1[0]) {
   case 0: /* null */
     return 1;
-  case 1: /* matrix of double precision floating point numbers */
+  case sci_matrix: /* matrix of double precision floating point numbers */
     if ( !IsEqualDoubleMat(d1, d2) )  return 0;
     break;
-  case 2:/* matrix of polynomials */
+  case sci_poly:/* matrix of polynomials */
     if ( !IsEqualPolyMat(d1, d2) )  return 0;
     break;
-  case 4:/* matrix of booleans */
+  case sci_boolean:/* matrix of booleans */
     if ( !IsEqualBoolMat(d1, d2) )  return 0;
     break;
-  case 5:/* sparse matrix of double */
+  case sci_sparse:/* sparse matrix of double */
     if ( !IsEqualDoubleSparseMat(d1, d2) )  return 0;
     break;
-  case 6:/* sparse matrix of booleans */
+  case sci_boolean_sparse:/* sparse matrix of booleans */
     if ( !IsEqualBoolSparseMat(d1, d2) )  return 0;
     break;
-  case 7:/* matlab sparse matrix  */
+  case sci_matlab_sparse:/* matlab sparse matrix  */
     if ( !IsEqualMatlabSparseMat(d1, d2) )  return 0;
     break;
-  case 8 : /* matrix of short integers */
+  case sci_ints : /* matrix of short integers */
     if ( !IsEqualIntegerMat(d1, d2) )  return 0;
     break;
-  case 9 : /* matrix of graphic handles */
+  case sci_handles : /* matrix of graphic handles */
     if ( !IsEqualDoubleMat(d1, d2) )  return 0;
     break;
-  case 10:/* matrix of strings */
+  case sci_strings:/* matrix of strings */
     if ( !IsEqualStringMat(d1, d2) )  return 0;
     break;
-  case 11:/* Uncompiled function */
-  case 13:/* compiled function */
+  case sci_u_function:/* Uncompiled function */
+  case sci_c_function:/* compiled function */
     if ( !IsEqualFunction(d1, d2) )  return 0;
     break;
-  case 14:/* library */
+  case sci_lib:/* library */
     if ( !IsEqualLib(d1, d2) )  return 0;
     break;
-  case 15: /* list */
-  case 16: /* tlist */
-  case 17: /* mlist */
+  case sci_list: /* list */
+  case sci_tlist: /* tlist */
+  case sci_mlist: /* mlist */
     res = IsEqualList(d1, d2);
     if ( !res )  return 0;
     if (res < 0) return res;
     break;
-  case 128: /* lufact pointer */
+  case sci_lufact_pointer: /* lufact pointer */
     if ( !IsEqualLUPtr(d1, d2) )  return 0;
     break;
   default :
index f9fabe4..8ffd9c1 100644 (file)
@@ -125,7 +125,7 @@ int sci_fftw __PARAMS((char *fname,unsigned long fname_len))
    CheckDims(2,m2,n2,1,1);
 
    /* look at for type of Rhs(2) */
-   if (VarType(2)==8) { /* int */
+   if (VarType(2)==sci_ints) { /* int */
     /* */
     switch (it2)
     {
@@ -149,7 +149,7 @@ int sci_fftw __PARAMS((char *fname,unsigned long fname_len))
                      break;
     }
    }
-   else if (VarType(2)==1) { /* double */
+   else if (VarType(2)==sci_matrix) { /* double */
     ptr_d=(double *)(&header[4]);
     isn=(int)ptr_d[0];
    }
@@ -178,7 +178,7 @@ int sci_fftw __PARAMS((char *fname,unsigned long fname_len))
     it3 = header[3];
 
     /* look at for type of Rhs(3) */
-    if ((VarType(3)!=8)&&(VarType(3)!=1)) {
+    if ((VarType(3)!=sci_ints)&&(VarType(3)!=sci_matrix)) {
      Scierror(53,"%s: "
                  "Bad type for Rhs(3) parameter\n",
                  fname);
@@ -203,7 +203,7 @@ int sci_fftw __PARAMS((char *fname,unsigned long fname_len))
     it4 = header[3];
 
     /* look at for type of Rhs(4) */
-    if ((VarType(4)!=8)&&(VarType(4)!=1)) { /* int */
+    if ((VarType(4)!=sci_ints)&&(VarType(4)!=sci_matrix)) { /* int */
      Scierror(53,"%s: "
                  "Bad type for Rhs(4) parameter\n",
                  fname);
index 76cec62..72f466e 100644 (file)
@@ -106,17 +106,17 @@ int sci_fftw_flags __PARAMS((char *fname,unsigned long fname_len))
 
   }
   else {
-   if (VarType(1)==8) { /* int */
+   if (VarType(1)==sci_ints) { /* int */
     GetRhsVar(1,MATRIX_OF_VARIABLE_SIZE_INTEGER_DATATYPE, &m1, &n1, &M1);
     CheckDims(1,m1,n1,1,1);
     cur_fftw_flags=((int *)M1.D)[0];
    }
-   else if (VarType(1)==1) { /* double */
+   else if (VarType(1)==sci_matrix) { /* double */
     GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
     CheckDims(1,m1,n1,1,1);
     cur_fftw_flags=(int)*stk(l1);
    }
-   else if (VarType(1)==10) { /* string */
+   else if (VarType(1)==sci_strings) { /* string */
     GetRhsVar(1,MATRIX_OF_STRING_DATATYPE,&m1,&n1,&Str1);
 
     for (j=0;j<m1*n1;j++) {
index 53ba030..daae6ac 100644 (file)
@@ -28,7 +28,7 @@ int sci_set_fftw_wisdom __PARAMS((char *fname,unsigned long fname_len))
 
  CheckRhs(1,1);
 
- if (VarType(1)==10) {
+ if (VarType(1)==sci_strings) {
 
   GetRhsVar(1,MATRIX_OF_STRING_DATATYPE,&m1,&n1,&Str1);
 
index 890531d..9672485 100644 (file)
@@ -27,7 +27,7 @@ int int_objfprintf __PARAMS((char *fname,unsigned long fname_len))
        }
        for (k=3;k<=Rhs;k++) 
        {
-               if (VarType(k) !=1 && VarType(k) !=10) {OverLoad(k);return 0;}
+               if (VarType(k) !=sci_matrix && VarType(k) !=sci_strings) {OverLoad(k);return 0;}
        }
        GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1); /* file id */
        GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2); /* format */
index e32720f..fdb859e 100644 (file)
@@ -29,7 +29,7 @@ int int_objsprintf(char *fname,unsigned long fname_len)
                return 0;
        }
        for (k=2;k<=Rhs;k++) {
-               if (VarType(k) !=1 && VarType(k) !=10) {OverLoad(k);return 0;}
+               if (VarType(k) !=sci_matrix && VarType(k) !=sci_strings) {OverLoad(k);return 0;}
        }
        GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
        ptrFormat=cstk(l1);
index c878913..e047e29 100644 (file)
@@ -28,7 +28,7 @@ int sci_StringBox( char * fname, unsigned long fname_len )
   CheckRhs( 1, 1 ) ;
   CheckLhs( 0, 1 ) ;
 
-  if ( VarType(1) != 9 )
+  if ( VarType(1) != sci_handles )
   {
     Scierror(999,"Function StringBox works with only one text handle.\n") ;
     return 0 ;
index 08ea2b8..d1d0ca3 100644 (file)
@@ -30,7 +30,7 @@ int sci_delete(char *fname,unsigned long fname_len)
 
   switch(VarType(1))
   {
-  case 9: /* delete Entity given by a handle */
+  case sci_handles: /* delete Entity given by a handle */
     GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1); /* Gets the Handle passed as argument */
     if (m1!=1||n1!=1) {
       lw = 1 + Top - Rhs;
@@ -39,7 +39,7 @@ int sci_delete(char *fname,unsigned long fname_len)
       GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2); /* Gets the command name */
     hdl = (unsigned long)*hstk(l1); /* Puts the value of the Handle to hdl */
     break;
-  case 10: /* delete("all") */
+  case sci_strings: /* delete("all") */
     CheckRhs(1,1);
     GetRhsVar(1,STRING_DATATYPE,&m2,&n2,&l2);
     if (strcmp(cstk(l2),"all") == 0)
index 0a5c3a3..0c55603 100644 (file)
@@ -58,7 +58,7 @@ int sci_get(char *fname,unsigned long fname_len)
       C2F(overload)(&lw,"get",3);
       return 0;
       break;
-    case 9: /* scalar argument (hdl + string) */
+    case sci_handles: /* scalar argument (hdl + string) */
       CheckRhs(2,2);
       GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1);
       if (m1!=1||n1!=1) { 
@@ -83,7 +83,7 @@ int sci_get(char *fname,unsigned long fname_len)
        hdl = (unsigned long)*hstk(l1);
       }
       break;
-    case 10:/* string argument (string) */
+    case sci_strings:/* string argument (string) */
       CheckRhs(1,1);
       GetRhsVar(1,STRING_DATATYPE,&numrow2,&numcol2,&l2);
       if (strcmp(cstk(l2),"default_figure") !=0 && strcmp(cstk(l2),"default_axes") !=0 )
index c4bc4c5..1650215 100644 (file)
@@ -67,7 +67,7 @@ int sci_plot2d( char * fname, unsigned long fname_len )
   iskip=0;
   if ( get_optionals(fname,opts) == 0) { return 0 ; }
 
-  if (GetType(1)==10)
+  if (GetType(1)==sci_strings)
   {
     /* logflags */
     GetLogflags( fname, 1, opts, &logFlags ) ;
index 6373264..fe0b017 100644 (file)
@@ -97,7 +97,7 @@ int sci_plot2d1_G( char * fname, int ptype, unsigned long fname_len )
   iskip=0;
   if ( get_optionals(fname,opts) == 0) return 0;
 
-  if (GetType(1)==10) {
+  if (GetType(1)==sci_strings) {
     /* logflags */
     GetLogflags(fname,1,opts,&logFlags);
     iskip=1;
index e867335..b6cfe82 100644 (file)
@@ -206,7 +206,7 @@ int sci_set(char *fname, unsigned long fname_len)
                                Scierror(999,"%s: unknown property name '%s'\n",fname,cstk(l2));
                                return 0;
                        } 
-                       if ( valueType != t2 ) if(strcmp(cstk(l2),"current_figure") != 0 && VarType(2) !=1 )
+                       if ( valueType != t2 ) if(strcmp(cstk(l2),"current_figure") != 0 && VarType(2) !=sci_matrix )
                        {  
                                /* F.Leray : special unique case here set("current_figure", HANDLE);*/
                                /* HANDLE type is 9 */
index da951c3..2edea0b 100644 (file)
@@ -28,7 +28,7 @@ int sci_xgetmouse( char *fname,unsigned long fname_len )
     iflag=0;sel[0]=1;sel[1]=0;
   }
   else {
-    if (GetType(1)==4) {
+    if (GetType(1)==sci_boolean) {
       iflag=0;
       GetRhsVar(1,MATRIX_OF_BOOLEAN_DATATYPE, &m, &n, &l1);
       CheckDims(1,m*n,1,2,1);
index d381e61..09d47c7 100644 (file)
@@ -68,7 +68,7 @@ int sci_xset( char *fname, unsigned long fname_len )
     LhsVar(1)=0; return 0;
   }
 
-  if (Rhs == 2 && VarType(2) != 1) 
+  if (Rhs == 2 && VarType(2) != sci_matrix) 
   {
     /* second argument is not a scalar it must be a string */ 
     GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
index 65fc504..644ed36 100644 (file)
@@ -3837,139 +3837,139 @@ int sciType (marker, pobj)
      char *marker;
      sciPointObj * pobj;
 { 
-  if      (strcmp(marker,"arrow_size_factor") == 0) { return 1;}
-  else if (strcmp(marker,"x_shift") == 0) { return 1;}
-  else if (strcmp(marker,"y_shift") == 0) { return 1;}
-  else if (strcmp(marker,"z_shift") == 0) { return 1;}
-  else if (strcmp(marker,"bar_width") == 0) { return 1;}
-  else if (strcmp(marker,"closed") == 0) { return 10;}
-  else if (strcmp(marker,"label") == 0) { return 10;}
-  else if (strcmp(marker,"callback") == 0) { return 10;}
-  else if (strcmp(marker,"background") == 0) { return 1;}      
-  else if (strcmp(marker,"position") == 0) {return 1;}
-  else if (strcmp(marker,"auto_position") == 0)   {return 10;}         
-  else if (strcmp(marker,"auto_rotation") == 0)   {return 10;}         
-  else if (strcmp(marker,"interp_color_vector") == 0) {return 1;}
-  else if (strcmp(marker,"interp_color_mode") == 0) {return 10;}
-  else if (strcmp(marker,"foreground") == 0) {return 1;}       
-  else if (strcmp(marker,"thickness") == 0)   {return 1;}
-  else if (strcmp(marker,"line_style") == 0) {return 1;}
-  else if (strcmp(marker,"line_mode") == 0) {return 10;}
-  else if (strcmp(marker,"fill_mode") == 0) {return 10;}
-  else if (strcmp(marker,"surface_mode") == 0) {return 10;}
-  else if (strcmp(marker,"mark_style") == 0) {return 1;}       
-  else if (strcmp(marker,"mark_size") == 0) {return 1;}
-  else if (strcmp(marker,"mark_size_unit") == 0) {return 10;}
-  else if (strcmp(marker,"mark_mode") == 0)   {return 10;}
-  else if (strcmp(marker,"mark_foreground") == 0)   {return 1;}
-  else if (strcmp(marker,"mark_background") == 0)   {return 1;}
-  else if (strcmp(marker,"figure_position") == 0) {return 1;}   
-  else if (strcmp(marker,"axes_size") == 0)   {return 1;}
-  else if (strcmp(marker,"axes_visible") == 0)   {return 10;}
+  if      (strcmp(marker,"arrow_size_factor") == 0) { return sci_matrix;}
+  else if (strcmp(marker,"x_shift") == 0) { return sci_matrix;}
+  else if (strcmp(marker,"y_shift") == 0) { return sci_matrix;}
+  else if (strcmp(marker,"z_shift") == 0) { return sci_matrix;}
+  else if (strcmp(marker,"bar_width") == 0) { return sci_matrix;}
+  else if (strcmp(marker,"closed") == 0) { return sci_strings;}
+  else if (strcmp(marker,"label") == 0) { return sci_strings;}
+  else if (strcmp(marker,"callback") == 0) { return sci_strings;}
+  else if (strcmp(marker,"background") == 0) { return sci_matrix;}     
+  else if (strcmp(marker,"position") == 0) {return sci_matrix;}
+  else if (strcmp(marker,"auto_position") == 0)   {return sci_strings;}                
+  else if (strcmp(marker,"auto_rotation") == 0)   {return sci_strings;}                
+  else if (strcmp(marker,"interp_color_vector") == 0) {return sci_matrix;}
+  else if (strcmp(marker,"interp_color_mode") == 0) {return sci_strings;}
+  else if (strcmp(marker,"foreground") == 0) {return sci_matrix;}      
+  else if (strcmp(marker,"thickness") == 0)   {return sci_matrix;}
+  else if (strcmp(marker,"line_style") == 0) {return sci_matrix;}
+  else if (strcmp(marker,"line_mode") == 0) {return sci_strings;}
+  else if (strcmp(marker,"fill_mode") == 0) {return sci_strings;}
+  else if (strcmp(marker,"surface_mode") == 0) {return sci_strings;}
+  else if (strcmp(marker,"mark_style") == 0) {return sci_matrix;}      
+  else if (strcmp(marker,"mark_size") == 0) {return sci_matrix;}
+  else if (strcmp(marker,"mark_size_unit") == 0) {return sci_strings;}
+  else if (strcmp(marker,"mark_mode") == 0)   {return sci_strings;}
+  else if (strcmp(marker,"mark_foreground") == 0)   {return sci_matrix;}
+  else if (strcmp(marker,"mark_background") == 0)   {return sci_matrix;}
+  else if (strcmp(marker,"figure_position") == 0) {return sci_matrix;}  
+  else if (strcmp(marker,"axes_size") == 0)   {return sci_matrix;}
+  else if (strcmp(marker,"axes_visible") == 0)   {return sci_strings;}
   else if (strcmp(marker,"hiddencolor") == 0)   {return 1;}/* DJ.A 2003 */
-  else if (strcmp(marker,"isoview") == 0)   {return 10;}/**DJ.Abdemouche 2003**/
-  else if (strcmp(marker,"view") == 0)   {return 10;}/**DJ.Abdemouche 2003**/  
-  else if (strcmp(marker,"figure_size") == 0){return 1;}       
-  else if (strcmp(marker,"figure_id") == 0)   {return 1;}      
-  else if (strcmp(marker,"figure_name") == 0){return 10;}   
-  else if (strcmp(marker,"figures_id") == 0)   {return 1;}
-  else if (strcmp(marker,"pixmap") == 0)   {return 10;}/*Ajout A.Djalel*/
-  else if (strcmp(marker,"polyline_style") == 0){return 1;} 
-  else if (strcmp(marker,"font_size") == 0)   {return 1;}      
-  else if (strcmp(marker,"font_angle") == 0) {return 1;}               
-  else if (strcmp(marker,"font_foreground") == 0){return 1;}
-  else if (strcmp(marker,"font_color") == 0)   {return 1;} /* F.Leray 09.04.04 : Adding to support font_color user interface */
-  else if (strcmp(marker,"font_style") == 0) {return 1;}             
-  else if (strcmp(marker,"font_name") == 0)   {return 10;}
-  else if (strcmp(marker,"textcolor"          ) == 0) {return 1;}
-  else if (strcmp(marker,"labels_font_size"   ) == 0) {return 1;}
-  else if (strcmp(marker,"labels_font_color"  ) == 0) {return 1;}
-  else if (strcmp(marker,"text"               ) == 0) {return 10;}      
-  else if (strcmp(marker,"text_box"           ) == 0) {return 1;}      
-  else if (strcmp(marker,"text_box_mode"      ) == 0) {return 10;}     
-  else if (strcmp(marker,"old_style"          ) == 0) {return 10;}
-  else if (strcmp(marker,"figure_style"       ) == 0) {return 10;}        
-  else if (strcmp(marker,"visible"            ) == 0) {return 10;} 
-  else if (strcmp(marker,"auto_resize"        ) == 0) {return 10;}
-  else if (strcmp(marker,"pixel_drawing_mode" ) == 0) {return 10;}    
-  else if (strcmp(marker,"default_values"     ) == 0) {return 1 ;} 
-  else if (strcmp(marker,"color_map"          ) == 0) {return 1 ;}    
-  else if (strcmp(marker,"x_location"         ) == 0) {return 10;} 
-  else if (strcmp(marker,"y_location"         ) == 0) {return 10;}   
-  else if (strcmp(marker,"tics_direction"     ) == 0) {return 10;}   
-  else if (strcmp(marker,"tight_limits"       ) == 0) {return 10;} 
-  else if (strcmp(marker,"box"                ) == 0) {return 10;}
-  else if (strcmp(marker,"tics_color"         ) == 0) {return 1 ;}      
-  else if (strcmp(marker,"tics_textcolor"     ) == 0) {return 1 ;}       
-  else if (strcmp(marker,"tics_textsize"      ) == 0) {return 1 ;}
-  else if (strcmp(marker,"xtics_coord"        ) == 0) {return 1 ;}     
-  else if (strcmp(marker,"ytics_coord"        ) == 0) {return 1 ;}      
-  else if (strcmp(marker,"grid"               ) == 0) {return 1 ;}   
-  else if (strcmp(marker,"tics_segment"       ) == 0) {return 10;} 
-  else if (strcmp(marker,"tics_style"         ) == 0) {return 10;} 
-  else if (strcmp(marker,"format_n"           ) == 0) {return 10;}    
-  else if (strcmp(marker,"tics_labels"        ) == 0) {return 10;}  
-  else if (strcmp(marker,"sub_tics"           ) == 0) {return 1 ;}
-  else if (strcmp(marker,"sub_ticks"          ) == 0) {return 1 ;} /* new writing F.Leray 12.10.04 to be consistent with x,y,z _ticks*/
-  else if (strcmp(marker,"zoom_box"           ) == 0) {return 1 ;}     
-  else if (strcmp(marker,"zoom_state"         ) == 0) {return 10;}  
-  else if (strcmp(marker,"clip_box"           ) == 0) {return 1 ;}     
-  else if (strcmp(marker,"clip_state"         ) == 0) {return 10;} 
-  else if (strcmp(marker,"auto_clear"         ) == 0) {return 10;}             
-  else if (strcmp(marker,"auto_scale"         ) == 0) {return 10;}                      
-  else if (strcmp(marker,"arrow_size"         ) == 0) {return 1 ;}
-  else if (strcmp(marker,"segs_color"         ) == 0) {return 1 ;}
-  else if (strcmp(marker,"colored"            ) == 0) {return 10;}
+  else if (strcmp(marker,"isoview") == 0)   {return sci_strings;}/**DJ.Abdemouche 2003**/
+  else if (strcmp(marker,"view") == 0)   {return sci_strings;}/**DJ.Abdemouche 2003**/ 
+  else if (strcmp(marker,"figure_size") == 0){return sci_matrix;}      
+  else if (strcmp(marker,"figure_id") == 0)   {return sci_matrix;}     
+  else if (strcmp(marker,"figure_name") == 0){return sci_strings;}   
+  else if (strcmp(marker,"figures_id") == 0)   {return sci_matrix;}
+  else if (strcmp(marker,"pixmap") == 0)   {return sci_strings;}/*Ajout A.Djalel*/
+  else if (strcmp(marker,"polyline_style") == 0){return sci_matrix;} 
+  else if (strcmp(marker,"font_size") == 0)   {return sci_matrix;}     
+  else if (strcmp(marker,"font_angle") == 0) {return sci_matrix;}              
+  else if (strcmp(marker,"font_foreground") == 0){return sci_matrix;}
+  else if (strcmp(marker,"font_color") == 0)   {return sci_matrix;} /* F.Leray 09.04.04 : Adding to support font_color user interface */
+  else if (strcmp(marker,"font_style") == 0) {return sci_matrix;}            
+  else if (strcmp(marker,"font_name") == 0)   {return sci_strings;}
+  else if (strcmp(marker,"textcolor"          ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"labels_font_size"   ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"labels_font_color"  ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"text"               ) == 0) {return sci_strings;}     
+  else if (strcmp(marker,"text_box"           ) == 0) {return sci_matrix;}     
+  else if (strcmp(marker,"text_box_mode"      ) == 0) {return sci_strings;}    
+  else if (strcmp(marker,"old_style"          ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"figure_style"       ) == 0) {return sci_strings;}        
+  else if (strcmp(marker,"visible"            ) == 0) {return sci_strings;} 
+  else if (strcmp(marker,"auto_resize"        ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"pixel_drawing_mode" ) == 0) {return sci_strings;}    
+  else if (strcmp(marker,"default_values"     ) == 0) {return sci_matrix ;} 
+  else if (strcmp(marker,"color_map"          ) == 0) {return sci_matrix ;}    
+  else if (strcmp(marker,"x_location"         ) == 0) {return sci_strings;} 
+  else if (strcmp(marker,"y_location"         ) == 0) {return sci_strings;}   
+  else if (strcmp(marker,"tics_direction"     ) == 0) {return sci_strings;}   
+  else if (strcmp(marker,"tight_limits"       ) == 0) {return sci_strings;} 
+  else if (strcmp(marker,"box"                ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"tics_color"         ) == 0) {return sci_matrix ;}     
+  else if (strcmp(marker,"tics_textcolor"     ) == 0) {return sci_matrix ;}      
+  else if (strcmp(marker,"tics_textsize"      ) == 0) {return sci_matrix ;}
+  else if (strcmp(marker,"xtics_coord"        ) == 0) {return sci_matrix ;}    
+  else if (strcmp(marker,"ytics_coord"        ) == 0) {return sci_matrix ;}     
+  else if (strcmp(marker,"grid"               ) == 0) {return sci_matrix ;}   
+  else if (strcmp(marker,"tics_segment"       ) == 0) {return sci_strings;} 
+  else if (strcmp(marker,"tics_style"         ) == 0) {return sci_strings;} 
+  else if (strcmp(marker,"format_n"           ) == 0) {return sci_strings;}    
+  else if (strcmp(marker,"tics_labels"        ) == 0) {return sci_strings;}  
+  else if (strcmp(marker,"sub_tics"           ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"sub_ticks"          ) == 0) {return sci_matrix;} /* new writing F.Leray 12.10.04 to be consistent with x,y,z _ticks*/
+  else if (strcmp(marker,"zoom_box"           ) == 0) {return sci_matrix;}     
+  else if (strcmp(marker,"zoom_state"         ) == 0) {return sci_strings;}  
+  else if (strcmp(marker,"clip_box"           ) == 0) {return sci_matrix;}     
+  else if (strcmp(marker,"clip_state"         ) == 0) {return sci_strings;} 
+  else if (strcmp(marker,"auto_clear"         ) == 0) {return sci_strings;}            
+  else if (strcmp(marker,"auto_scale"         ) == 0) {return sci_strings;}                     
+  else if (strcmp(marker,"arrow_size"         ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"segs_color"         ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"colored"            ) == 0) {return sci_strings;}
   else if (strcmp(marker,"data"               ) == 0)
     if((sciGetEntityType(pobj) == SCI_SURFACE) || 
        (sciGetEntityType(pobj) == SCI_SEGS     && pSEGS_FEATURE(pobj)->ptype == 1) || /* a champ */
        (sciGetEntityType(pobj) == SCI_GRAYPLOT && pGRAYPLOT_FEATURE(pobj)->type == 0))    /* a grayplot (case == 0) */
-      return 16;
+      return sci_tlist;
     else
       return 1;
-  else if (strcmp(marker,"hdl"                ) == 0) {return 1 ;}             
-  else if (strcmp(marker,"callbackmevent"     ) == 0) {return 1 ;}
-  else if (strcmp(marker,"callback"           ) == 0) {return 10;}     
-  else if (strcmp(marker,"log_flags"          ) == 0) {return 10;}
-  else if (strcmp(marker,"data_mapping"       ) == 0) {return 10;}
-  else if (strcmp(marker,"surface_color"      ) == 0) {return 1 ;}
-  else if (strcmp(marker,"rotation_angles"    ) == 0) {return 1 ;}
-  else if (strcmp(marker,"color_mode"         ) == 0) {return 1 ;}/*DJ.A merge*/ 
-  else if (strcmp(marker,"color_flag"         ) == 0) {return 1 ;}
-  else if (strcmp(marker,"cdata_mapping"      ) == 0) {return 10;}
-  else if (strcmp(marker,"axes_bounds"        ) == 0) {return 1 ;}
-  else if (strcmp(marker,"data_bounds"        ) == 0) {return 1 ;}
-  else if (strcmp(marker,"margins"            ) == 0) {return 1 ;}
-  else if (strcmp(marker,"surface_color"      ) == 0) {return 1 ;}
-  else if (strcmp(marker,"rotation_style"     ) == 0) {return 10;}
-  else if (strcmp(marker,"triangles"          ) == 0) {return 1 ;}
-  else if (strcmp(marker,"z_bounds"           ) == 0) {return 1 ;}
-  else if (strcmp(marker,"current_axes"       ) == 0) {return 9 ;}
-  else if (strcmp(marker,"current_figure"     ) == 0) {return 9 ;}
-  else if (strcmp(marker,"current_obj"        ) == 0) {return 9 ;}
-  else if (strcmp(marker,"current_entity"     ) == 0) {return 9 ;}
-  else if (strcmp(marker,"default_axes"       ) == 0) {return 9 ;}/* DJ.A 08/01/04 */
-  else if (strcmp(marker,"default_figure"     ) == 0) {return 9 ;}/* DJ.A 08/01/04 */
-  else if (strcmp(marker,"children"           ) == 0) {return 9 ;}
-  else if (strcmp(marker,"cube_scaling"       ) == 0) {return 10;} /* F.Leray 22.04.04 */
-  else if (strcmp(marker,"x_label"            ) == 0) {return 9 ;}  /* F.Leray 27.05.04 */
-  else if (strcmp(marker,"y_label"            ) == 0) {return 9 ;} 
-  else if (strcmp(marker,"z_label"            ) == 0) {return 9 ;}
-  else if (strcmp(marker,"title"              ) == 0) {return 9 ;} 
-  else if (strcmp(marker,"x_ticks"            ) == 0) {return 16;} 
-  else if (strcmp(marker,"y_ticks"            ) == 0) {return 16;} 
-  else if (strcmp(marker,"z_ticks"            ) == 0) {return 16;} 
-  else if (strcmp(marker,"auto_ticks"         ) == 0) {return 10;}
-  else if (strcmp(marker,"axes_reverse"       ) == 0) {return 10;}
-  else if (strcmp(marker,"immediate_drawing"  ) == 0) {return 10;}
-  else if (strcmp(marker,"handle_visible"     ) == 0) {return 10;}
-  else if (strcmp(marker,"menu_enable"        ) == 0) {return 10;}
-  else if (strcmp(marker,"callback_type"      ) == 0) {return 10;}
-  else if (strcmp(marker,"bounding_rect"      ) == 0) {return 1 ;} /*JBS 16/11/05 */
-  else if (strcmp(marker,"hidden_axis_color"  ) == 0) {return 1 ;} /*       03/06 */
-  else if (strcmp(marker,"alignment"          ) == 0) {return 10;} /*       05/06 */
-  else if (strcmp(marker,"viewport"           ) == 0) {return 1 ;} /*       01/07 */
-  else if (strcmp(marker,"info_message"       ) == 0) {return 10;} /*       01/07 */
+  else if (strcmp(marker,"hdl"                ) == 0) {return sci_matrix;}             
+  else if (strcmp(marker,"callbackmevent"     ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"callback"           ) == 0) {return sci_strings;}    
+  else if (strcmp(marker,"log_flags"          ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"data_mapping"       ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"surface_color"      ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"rotation_angles"    ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"color_mode"         ) == 0) {return sci_matrix;}/*DJ.A merge*/ 
+  else if (strcmp(marker,"color_flag"         ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"cdata_mapping"      ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"axes_bounds"        ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"data_bounds"        ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"margins"            ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"surface_color"      ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"rotation_style"     ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"triangles"          ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"z_bounds"           ) == 0) {return sci_matrix;}
+  else if (strcmp(marker,"current_axes"       ) == 0) {return sci_handles;}
+  else if (strcmp(marker,"current_figure"     ) == 0) {return sci_handles;}
+  else if (strcmp(marker,"current_obj"        ) == 0) {return sci_handles;}
+  else if (strcmp(marker,"current_entity"     ) == 0) {return sci_handles;}
+  else if (strcmp(marker,"default_axes"       ) == 0) {return sci_handles;}/* DJ.A 08/01/04 */
+  else if (strcmp(marker,"default_figure"     ) == 0) {return sci_handles;}/* DJ.A 08/01/04 */
+  else if (strcmp(marker,"children"           ) == 0) {return sci_handles;}
+  else if (strcmp(marker,"cube_scaling"       ) == 0) {return sci_strings;} /* F.Leray 22.04.04 */
+  else if (strcmp(marker,"x_label"            ) == 0) {return sci_handles;}  /* F.Leray 27.05.04 */
+  else if (strcmp(marker,"y_label"            ) == 0) {return sci_handles;} 
+  else if (strcmp(marker,"z_label"            ) == 0) {return sci_handles;}
+  else if (strcmp(marker,"title"              ) == 0) {return sci_handles;} 
+  else if (strcmp(marker,"x_ticks"            ) == 0) {return sci_tlist;} 
+  else if (strcmp(marker,"y_ticks"            ) == 0) {return sci_tlist;} 
+  else if (strcmp(marker,"z_ticks"            ) == 0) {return sci_tlist;} 
+  else if (strcmp(marker,"auto_ticks"         ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"axes_reverse"       ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"immediate_drawing"  ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"handle_visible"     ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"menu_enable"        ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"callback_type"      ) == 0) {return sci_strings;}
+  else if (strcmp(marker,"bounding_rect"      ) == 0) {return sci_matrix;} /*JBS 16/11/05 */
+  else if (strcmp(marker,"hidden_axis_color"  ) == 0) {return sci_matrix;} /*       03/06 */
+  else if (strcmp(marker,"alignment"          ) == 0) {return sci_strings;} /*       05/06 */
+  else if (strcmp(marker,"viewport"           ) == 0) {return sci_matrix;} /*       01/07 */
+  else if (strcmp(marker,"info_message"       ) == 0) {return sci_strings;} /*       01/07 */
   else {return -1;}
 }
 /*----------------------------------------------------------------------------------------*/
index 3e508a6..59ee606 100644 (file)
 /*-----------------------------------------------------------------------------------*/
 BOOL isParameterHandle( int type )
 {
-  return ( type == 9 ) ;
+  return ( type == sci_handles ) ;
 }
 /*-----------------------------------------------------------------------------------*/
 BOOL isParameterDoubleMatrix( int type )
 {
-  return ( type == 1 ) ;
+  return ( type == sci_matrix ) ;
 }
 /*-----------------------------------------------------------------------------------*/
 BOOL isParameterTlist( int type )
 {
-  return ( type == 16 ) ;
+  return ( type == sci_tlist ) ;
 }
 /*-----------------------------------------------------------------------------------*/
 BOOL isParameterStringMatrix( int type )
 {
-  return ( type == 10 ) ;
+  return ( type == sci_strings ) ;
 }
 /*-----------------------------------------------------------------------------------*/
 double getDoubleFromStack( int stackPointer )
index 2bdc0a0..c198f46 100644 (file)
@@ -67,7 +67,7 @@ int get_rhs_real_hmat(int num, RealHyperMat *H)
   /*  test if the first field is a matrix string with 3 components
    *  and that the first is "hm" (ie 17 22  in scilab char code)
    */
-  if ( (*istk(il1) != 10)  |  ((*istk(il1+1))*(*istk(il1+2)) != 3)  )
+  if ( (*istk(il1) != sci_strings)  |  ((*istk(il1+1))*(*istk(il1+2)) != 3)  )
     goto err;
   else if ( *istk(il1+5)-1 != 2 )  /* 1 str must have 2 chars */
     goto err;
@@ -108,7 +108,7 @@ int get_rhs_scalar_string(int num, int *length, int **tabchar)
   if ( *istk(il) < 0 )
     il = iadr(*istk(il+1));
 
-  if ( ! ( *istk(il) == 10  &&  (*istk(il+1))*(*istk(il+2)) == 1 ) )
+  if ( ! ( *istk(il) == sci_strings  &&  (*istk(il+1))*(*istk(il+2)) == 1 ) )
     {
       /* we look for a scalar string */
       Scierror(999,_("Argument %d is not a scalar string\n"), num);
index 2ff9e8d..d1a8bf0 100644 (file)
@@ -189,7 +189,7 @@ void C2F(cstringf) (char ***ip, int *sciptr, int *m, int *n, int *max, int *ierr
     *ierr = 1;
     return;
   }
-  sciptr[0]=10;
+  sciptr[0]=sci_strings;
   sciptr[1]=*m;
   sciptr[2]=*n;
   sciptr[3]=0;
index f0c64b0..2bbd223 100644 (file)
@@ -21,7 +21,7 @@ int C2F(intbalanc)(char *fname,unsigned long fname_len)
 
        switch (Rhs) {
   case 1:   /* balanc(A)   */
-         if (GetType(1)!=1) {
+         if (GetType(1)!=sci_matrix) {
                  OverLoad(1);
                  return 0;
          }
@@ -40,11 +40,11 @@ int C2F(intbalanc)(char *fname,unsigned long fname_len)
          } /* end switch  (CmplxA) */
          break; /* end case 1 */
   case 2: /* balanc(A,B) */
-         if (GetType(1)!=1) {
+         if (GetType(1)!=sci_matrix) {
                  OverLoad(1);
                  return 0;
          }
-         if (GetType(2)!=1) {
+         if (GetType(2)!=sci_matrix) {
                  OverLoad(2);
                  return 0;
          }
index a7f0336..b5e11ce 100644 (file)
@@ -16,7 +16,7 @@ int C2F(intchol)(char *fname,unsigned long fname_len)
        int CmplxA;int ret;
 
        /*   chol(A)  */
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
index b56b3a8..b71168c 100644 (file)
@@ -17,7 +17,7 @@ int C2F(intdet)(char *fname,unsigned long fname_len)
 
 
        /*   det(A)  */
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
index 7bd8af5..4a7795c 100644 (file)
@@ -32,7 +32,7 @@ int C2F(inteig)(char *fname,unsigned long fname_len)
 
   switch (Rhs) {
   case 1:   /* spec(A)   */
-    if (GetType(1)!=1) {
+    if (GetType(1)!=sci_matrix) {
       OverLoad(1);
       return 0;
     }
@@ -66,11 +66,11 @@ int C2F(inteig)(char *fname,unsigned long fname_len)
     } /* end switch  (CmplxA) */
     break; /* end case 1 */
   case 2: /* gspec(A,B) */
-    if (GetType(1)!=1) {
+    if (GetType(1)!=sci_matrix) {
       OverLoad(1);
       return 0;
     }
-    if (GetType(2)!=1) {
+    if (GetType(2)!=sci_matrix) {
       OverLoad(2);
       return 0;
     }
index 9b09e86..b3b7e80 100644 (file)
@@ -16,7 +16,7 @@ int C2F(inthess)(char *fname,unsigned long fname_len)
        int CmplxA;int ret;
 
        /*   hess(A)  */
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
index da33dc0..4342d69 100644 (file)
@@ -17,7 +17,7 @@ int C2F(intinv)(char *fname,unsigned long fname_len)
        int CmplxA;int ret;
 
        /*   inv(A)  */
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
index 108af81..c18d5b7 100644 (file)
@@ -18,11 +18,11 @@ int C2F(intlsq)(char *fname,unsigned long fname_len)
        int CmplxA;int Cmplxb;int ret;int I2;
 
        /*   lsq(A,b)  */
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
-       if (GetType(2)!=1) {
+       if (GetType(2)!=sci_matrix) {
                OverLoad(2);
                return 0;
        }
index a9eec2e..e7d1a9b 100644 (file)
@@ -16,7 +16,7 @@ int C2F(intlu)(char *fname,unsigned long fname_len)
        int CmplxA;int ret;
 
        /*   lu(A)  */
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
index 92529f1..c875927 100644 (file)
@@ -20,7 +20,7 @@ int C2F(intqr)(char *fname,unsigned long fname_len)
        int *header1;int *header2;
        int Cmplx;int ret; double *snd; double tol;
 
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
index 54fbc3b..2d27f1a 100644 (file)
@@ -17,7 +17,7 @@ int C2F(intrcond)(char *fname,unsigned long fname_len)
 
 
        /*   rcond(A)  */
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
index f3c0d83..dbf4708 100644 (file)
@@ -35,7 +35,7 @@ int C2F(intschur)(char *fname,unsigned long fname_len)
        int ret, something, X;
        int which = 1; int longueur;
 
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
@@ -107,7 +107,7 @@ int C2F(intschur)(char *fname,unsigned long fname_len)
          }
          break;
   case SCI_DOUBLE: /*schur(A,B)*/
-         if (GetType(2)!=1) {
+         if (GetType(2)!=sci_matrix) {
                  OverLoad(2);
                  return 0;
          }
@@ -136,7 +136,7 @@ int C2F(intschur)(char *fname,unsigned long fname_len)
          } /* end of switch (something) */
          break;
   case 3: /* schur(A,B,something) */
-         if (GetType(2)!=1) {
+         if (GetType(2)!=sci_matrix) {
                  OverLoad(2);
                  return 0;
          }
index 9812f0d..6434c04 100644 (file)
@@ -20,7 +20,7 @@ int C2F(intsvd)(char *fname,unsigned long fname_len)
        int *header1;int *header2;
        int Cmplx;int ret;double tol;
 
-       if (GetType(1)!=1) {
+       if (GetType(1)!=sci_matrix) {
                OverLoad(1);
                return 0;
        }
index c62599a..305eab3 100644 (file)
@@ -69,12 +69,12 @@ extern int C2F(changetoref) __PARAMS((int number, int pointed));
 
 extern int IsReference  __PARAMS((mxArray *array_ptr));
 
-#define DOUBLEMATRIX 1
-#define INTMATRIX 8
-#define STRINGMATRIX  10
-#define SPARSEMATRIX  7
-#define LOGICAL 4
-#define MLIST 17
+#define DOUBLEMATRIX sci_matrix
+#define INTMATRIX sci_ints
+#define STRINGMATRIX  sci_strings
+#define SPARSEMATRIX  sci_matlab_sparse
+#define LOGICAL sci_boolean
+#define MLIST sci_mlist
 #define AsIs  '$'
 #define NDARRAY 1
 #define CELL 2
index dfe5e61..f45d4c8 100644 (file)
@@ -124,7 +124,7 @@ int sci_Rand(char *fname,unsigned long fname_len)
   Nbvars = 0;
   CheckRhs(minrhs,maxrhs);
   CheckLhs(minlhs,maxlhs);
-  if ( GetType(1) != 1) 
+  if ( GetType(1) != sci_matrix) 
     {
      int un=1,deux=2, dim_state_mt=625, dim_state_fsultra = 40, dim_state_4=4;
       GetRhsVar(1,STRING_DATATYPE,&ms,&ns,&ls);
@@ -452,7 +452,7 @@ int sci_Rand(char *fname,unsigned long fname_len)
     }
   minrhs = 2;
   CheckRhs(minrhs,maxrhs);
-  if ( GetType(2) == 1 ) /** m,n,'string' */
+  if ( GetType(2) == sci_matrix ) /** m,n,'string' */
     {
                GetRhsVar(1, MATRIX_OF_INTEGER_DATATYPE, &m1, &n1, &l1);
        if ( m1*n1 != 1) 
index d9353c4..6751ce6 100644 (file)
@@ -3305,11 +3305,11 @@ int intbuildouttb(fname)
  CheckRhs(minrhs,maxrhs);
 
  /*check type of Rhs 1*/
- if (VarType(1)==1)
+ if (VarType(1)==sci_matrix)
  {
   GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
  }
- else if (VarType(1)==8)
+ else if (VarType(1)==sci_ints)
  {
   GetRhsVar(1,MATRIX_OF_VARIABLE_SIZE_INTEGER_DATATYPE, &m1, &n1, &M1);
  }
@@ -3334,11 +3334,11 @@ int intbuildouttb(fname)
  }
 
  /*check type of Rhs 2*/
- if (VarType(2)==1)
+ if (VarType(2)==sci_matrix)
  {
   GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
  }
- else if (VarType(2)==8)
+ else if (VarType(2)==sci_ints)
  {
   GetRhsVar(2,MATRIX_OF_VARIABLE_SIZE_INTEGER_DATATYPE, &m2, &n2, &M2);
  }
@@ -3377,7 +3377,7 @@ int intbuildouttb(fname)
 
  /*store rhs 1 in lnksz */
  if ((m1==n1)&&(m2==m1)) m1=-1; /* this is done for matrix 2,2 */
- if (VarType(1)==8)
+ if (VarType(1)==sci_ints)
  {
   switch (M1.it)
   {
@@ -3490,7 +3490,7 @@ int intbuildouttb(fname)
  }
 
  /*store rhs 2 in lnktyp */
- if (VarType(2)==8)
+ if (VarType(2)==sci_ints)
  {
   switch (M2.it)
   {
index 789915e..1962fd5 100644 (file)
@@ -488,17 +488,17 @@ int sci2var(void *x,void *y, int typ_var)
  {
   case 1 :
           {/*check type of double matrix*/
-           if ((sub_typ!=0)&(sub_typ!=1))
+           if ((sub_typ!=0)&(sub_typ!=sci_matrix))
            {
             err = 1002;
             return err;
            }
-           if ((sub_typ==0)&(typ_var!=10))
+           if ((sub_typ==0)&(typ_var!=sci_strings))
            {
             err = 1004;
             return err;
            }
-           if ((sub_typ==1)&(typ_var!=11))
+           if ((sub_typ==1)&(typ_var!=sci_u_function))
            {
             err = 1004;
             return err;