* Error(x) is now deprecated and will be removed in Scilab 5.4. 43/243/4
Sylvestre Ledru [Fri, 23 Apr 2010 12:08:48 +0000 (14:08 +0200)]
  Please consider SciError(x).

Change-Id: Ie1abfa877d1f9995d70b3e03ef9a4852fee133d1

57 files changed:
scilab/CHANGES_5.3.X
scilab/modules/boolean/sci_gateway/c/sci_and.c
scilab/modules/boolean/sci_gateway/c/sci_or.c
scilab/modules/boolean/src/c/matboolean.c
scilab/modules/core/includes/stack-c.h
scilab/modules/core/includes/stack2.h
scilab/modules/core/sci_gateway/c/sci_error.c
scilab/modules/core/sci_gateway/c/sci_typename.c
scilab/modules/core/src/c/expr.c
scilab/modules/core/src/c/inittypenames.c
scilab/modules/core/src/c/parse.c
scilab/modules/core/src/c/run.c
scilab/modules/core/src/c/scirun.c
scilab/modules/core/src/c/stack1.c
scilab/modules/core/src/c/stack2.c
scilab/modules/core/src/c/stack3.c
scilab/modules/core/src/c/str2sci.c
scilab/modules/core/src/c/syncexec.c
scilab/modules/core/src/c/terme.c
scilab/modules/data_structures/sci_gateway/c/gw_data_structures1.c
scilab/modules/data_structures/sci_gateway/c/gw_data_structures2.c
scilab/modules/data_structures/src/c/stcreate.c
scilab/modules/dynamic_link/examples/dynamic_link_c_and_fortran/ext14c.c
scilab/modules/dynamic_link/examples/gateway/sci_matmul.c
scilab/modules/dynamic_link/sci_gateway/c/sci_c_link.c
scilab/modules/dynamic_link/sci_gateway/c/sci_call.c
scilab/modules/dynamic_link/tests/nonreg_tests/bug_3191.c
scilab/modules/dynamic_link/tests/nonreg_tests/bug_3392.c
scilab/modules/dynamic_link/tests/nonreg_tests/bug_3630.c
scilab/modules/dynamic_link/tests/nonreg_tests/bug_3639.c
scilab/modules/elementary_functions/src/c/IsEqualVar.c
scilab/modules/fileio/sci_gateway/c/sci_mget.c
scilab/modules/fileio/sci_gateway/c/sci_mgetstr.c
scilab/modules/fileio/sci_gateway/c/sci_mopen.c
scilab/modules/fileio/sci_gateway/c/sci_mput.c
scilab/modules/fileio/sci_gateway/c/sci_mputstr.c
scilab/modules/fileio/sci_gateway/c/sci_mseek.c
scilab/modules/fileio/sci_gateway/c/sci_mtell.c
scilab/modules/graphics/src/c/GetCommandArg.c
scilab/modules/linear_algebra/examples/intcdgemm.c
scilab/modules/linear_algebra/examples/intdgesvd.c
scilab/modules/linear_algebra/examples/intdlassq.c
scilab/modules/linear_algebra/examples/intdsyev.c
scilab/modules/linear_algebra/sci_gateway/c/sci_bdiag.c
scilab/modules/mexlib/src/c/mexlib.c
scilab/modules/optimization/sci_gateway/c/sci_qld.c
scilab/modules/optimization/sci_gateway/c/sci_qp_solve.c
scilab/modules/output_stream/src/c/msgs.c
scilab/modules/randlib/sci_gateway/c/sci_grand.c
scilab/modules/sparse/src/c/mspelm.c
scilab/modules/special_functions/sci_gateway/c/sci_besselh.c
scilab/modules/special_functions/sci_gateway/c/sci_besseli.c
scilab/modules/special_functions/sci_gateway/c/sci_besselj.c
scilab/modules/special_functions/sci_gateway/c/sci_besselk.c
scilab/modules/special_functions/sci_gateway/c/sci_bessely.c
scilab/modules/string/sci_gateway/c/sci_ascii.c
scilab/modules/string/sci_gateway/c/sci_string.c

index 62f5fb4..499abc9 100644 (file)
@@ -23,6 +23,12 @@ Graphics:
 
 * bug 6959 fixed - axis.tics_labels did not accept $..$ LaTeXed labels
 
+API_Scilab:
+===========
+
+* Error(x) is now deprecated and will be removed in Scilab 5.4. 
+  Please consider SciError(x).
+
 Documentation:
 ==============
 
index d696892..685023c 100644 (file)
@@ -22,7 +22,7 @@ int C2F(intand)(char *fname,unsigned long l);
 int C2F(intand)(char *fname,unsigned long l)
 {
  int m1,n1,l1,mm2,l2,lo,nopt=0,lw;
- int opt=0,errn=44;
+ int opt=0;
 
  CheckRhs(1,2);
  CheckLhs(1,1);
@@ -43,7 +43,7 @@ int C2F(intand)(char *fname,unsigned long l)
        opt=2;
      else {
        Err=2;
-       Error(errn);
+       SciError(44);
      }
  
    }
@@ -52,7 +52,7 @@ int C2F(intand)(char *fname,unsigned long l)
      opt= (int) *stk(lo);
      if (opt>2||opt<1) {
        Err=2;
-       Error(errn);
+       SciError(44);
      }
    }
  }  /*(Rhs==2) */
index ad6da23..47ac8a6 100644 (file)
@@ -22,7 +22,7 @@ int C2F(intor)(char *fname,unsigned long l);
 int C2F(intor)(char *fname,unsigned long l)
 {
  int m1,n1,l1,mm2,l2,lo,nopt=0,lw;
- int opt=0,errn=44;
+ int opt=0;
  CheckRhs(1,2);
  CheckLhs(1,1);
  if (VarType(1)!=sci_boolean) {
@@ -42,7 +42,7 @@ int C2F(intor)(char *fname,unsigned long l)
        opt=2;
      else {
        Err=2;
-          Error(errn);
+          SciError(44);
      }
  
    }
@@ -51,7 +51,7 @@ int C2F(intor)(char *fname,unsigned long l)
      opt=(int) *stk(lo);
      if (opt>2||opt<1) {
        Err=2;
-       Error(errn);
+       SciError(44);
      }
    }
  }  /*(Rhs==2) */
index 067dd3f..7c3e919 100644 (file)
@@ -124,8 +124,7 @@ int C2F(matlog)(void)
 
                if (mn1 != mn2) 
                {
-                       static int code_error = 60;
-                       Error(code_error);
+                       SciError(60);
                        return 0;
                }
 
index 544ff4f..a8c3cb5 100644 (file)
@@ -224,7 +224,7 @@ static void initial_c1_local(void)
         { return 0;  }
 
 /* the real function error is defined in output_stream */
-#define Error(x) SciError(x)
+#define Error(x) SciError(x); sciprint(_("Error(x) is deprecated and will be removed in Scilab 5.4. Please consider SciError(x).\n"));
 
 #define Errorinfo(routinename,info) C2F(errorinfo)(routinename,(c_local=info, &c_local), strlen(routinename));
 
index ee95562..39b377f 100644 (file)
@@ -53,7 +53,6 @@ extern int C2F(allowptr)(int *);
 extern int C2F(ref2val)(void);
 extern int C2F(allops)(void);
 extern int C2F(putfunnam)(char *fname,int *lw, unsigned long);
-extern void SciError(int n);
 
 /* from somewhere (maybe stack1.h) */
 
index 73df5e4..7b08777 100644 (file)
@@ -14,6 +14,7 @@
 #include "stack-c.h"
 #include "localization.h"
 #include "Scierror.h"
+#include "do_error_number.h"
 #include "freeArrayOfString.h"
 /*--------------------------------------------------------------------------*/
 /* @TO DO : extend 'error' primitive
index efc759c..e11a0ab 100644 (file)
@@ -156,11 +156,11 @@ int sci_typename_two_rhs(char *fname,unsigned long fname_len)
                        break;
 
                case 1: case 3:
-                               Error(224);
+                               SciError(224);
                        break;
 
                case 2:
-                               Error(225);
+                               SciError(225);
                        break;
 
                default:
index 02291f4..d14a02f 100644 (file)
@@ -17,6 +17,7 @@
 #include "stack-def.h"
 #include "stack-c.h"
 #include "Scierror.h"
+#include "do_error_number.h"
 #include "basout.h"
 /*--------------------------------------------------------------------------*/ 
 static int inc = 1;
@@ -86,8 +87,7 @@ int C2F(expr)(void)
 L1:
        if (C2F(com).sym >= ou && C2F(com).sym <= great) 
        {
-               int code_error = 40;
-               Error(code_error);
+               SciError(40);
                return 0;
        }
 L2:
@@ -207,8 +207,7 @@ L50:
 L60:
        if (kount > 3) 
        {
-               int code_error = 33;
-               Error(code_error);
+               SciError(33);
                if (Err > 0) return 0;
        }
        Rhs = kount;
index 0655731..6a2b52a 100644 (file)
@@ -13,6 +13,7 @@
 #include "inittypenames.h"
 #include "typename.h"
 #include "Scierror.h"
+#include "do_error_number.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
 extern TYPE_struct C2F(typnams);
@@ -96,10 +97,10 @@ int callError(int ierr)
        switch (ierr)
        {
        case 1: case 3:
-               Error(224);
+               SciError(224);
                break;
        case 2:
-               Error(225);
+               SciError(225);
                break;
        default:
                /* never here */
index ae0d389..c1ad9e1 100644 (file)
@@ -27,6 +27,7 @@
 #include "scilabmode.h"
 #include "stack-def.h" /* C2F(basbrk) */
 #include "Scierror.h"
+#include "do_error_number.h"
 #include "prompt.h"
 #include "dynamic_menus.h"
 #include "msgs.h"
index 17966b5..8132404 100644 (file)
@@ -35,6 +35,7 @@
 #include "scilabmode.h"
 #include "stack-def.h" /* C2F(basbrk) */
 #include "dynamic_menus.h"
+#include "do_error_number.h"
 #include "Scierror.h"
 #include "msgs.h"
 #undef Lstk
index 091e5e8..5f66d47 100644 (file)
@@ -85,15 +85,13 @@ int C2F(scirun)(char *startupCode, long int startupCode_len)
  L89:
   if (Top < Rhs) 
     {
-      int code_error=22;
-      Error(code_error);
+      SciError(22);
       if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
       goto L60;
     }
   if (Top - Rhs + Lhs + 1 >= Bot) 
     {
-      int code_error=18;
-      Error(code_error);
+      SciError(18);
       if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
       goto L60;
     }
@@ -114,9 +112,8 @@ int C2F(scirun)(char *startupCode, long int startupCode_len)
   C2F(com).fun = 0;
   if (k == C2F(recu).krec) 
     {
-      int code_error=22;
       C2F(recu).krec = -1;
-      Error(code_error);
+      SciError(22);
       if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
       goto L60;
     }
@@ -181,8 +178,7 @@ int C2F(scirun)(char *startupCode, long int startupCode_len)
 
   if (Fin == 0) 
     {
-      int code_error=246;
-      Error(code_error);
+      SciError(246);
       if (Err > 0) 
        {
          if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
index 738b290..6df85f0 100644 (file)
@@ -22,6 +22,7 @@
 #include "cvstr.h"
 #include "localization.h"
 #include "Scierror.h"
+#include "do_error_number.h"
 #include "libinter.h"
 
 /* Table of constant values */
@@ -1740,7 +1741,7 @@ int C2F(fakecresmat2)(int *lw,int *nchar,int *lr)
   Err = sadr(il + 4 + (*nchar + 1)) - *Lstk(Bot);
   if (Err > 0) 
   {
-    Error(cx17);
+    SciError(cx17);
     retval = FALSE;
   }
   else
index 3977438..54e20a6 100644 (file)
@@ -359,7 +359,7 @@ int get_optionals(char *fname ,rhs_opts opts[])
            {
              sciprint(_("%s: Unrecognized optional arguments %s.\n"),fname,name);
              rhs_opt_print_names(opts) ;
-             Error(999);
+             SciError(999);
              return(0);
            }
        }
@@ -1901,7 +1901,7 @@ int C2F(scifunction)(int *number,int *ptr,int *mlhs,int *mrhs)
   Top = Top - Rhs + *number + *mrhs - 1;
   ++C2F(recu).pt;
   if (C2F(recu).pt > psiz) {
-    Error(cx26);
+    SciError(cx26);
     goto L9999;
   }
   C2F(recu).ids[C2F(recu).pt * nsiz - nsiz] = Lhs;
@@ -2021,8 +2021,7 @@ int C2F(scifunction)(int *number,int *ptr,int *mlhs,int *mrhs)
     goto L91;
   }
   if (Fin == 0) {
-    int cx4 = 246;
-    Error(cx4);
+    SciError(246);
     if (Err > 0) goto L97;
     goto L90;
   }
@@ -2274,8 +2273,7 @@ int C2F(scibuiltin)(int *number,int *ifun,int *ifin,int *mlhs,int *mrhs)
     goto L91;
   }
   if (Fin == 0) {
-    int cx4 = 246;
-    Error(cx4);
+    SciError(246);
     if (Err > 0) goto L97;
     goto L90;
   }
index c8744f2..64a17aa 100644 (file)
@@ -25,6 +25,7 @@
 #include "cvstr.h"
 #include "localization.h"
 #include "Scierror.h"
+#include "do_error_number.h"
 #include "code2str.h"
 #include "elementary_functions.h"
 #include "MALLOC.h"
@@ -1102,7 +1103,7 @@ int GetDimFromVar(int _iVarNum, int _iNum/*Oo*/, int* _piVal)
        {
                if(iIsComplex(_iVarNum))
                {
-                       Error(89);
+                       SciError(89);
                        return _iNum;
                }
                GetRhsVar(_iVarNum, MATRIX_OF_DOUBLE_DATATYPE, &iRows, &iCols, &iRealData);
@@ -1119,7 +1120,7 @@ int GetDimFromVar(int _iVarNum, int _iNum/*Oo*/, int* _piVal)
                GetRhsVar(_iVarNum, MATRIX_OF_INTEGER_DATATYPE, &iRows, &iCols, &iRealData);
                if(iRows * iCols != 1)
                {
-                       Error(89);
+                       SciError(89);
                        return _iNum;
                }
                iRows = 1;
@@ -1129,7 +1130,7 @@ int GetDimFromVar(int _iVarNum, int _iNum/*Oo*/, int* _piVal)
        }
        else
        {
-               Error(89);
+               SciError(89);
                return _iNum;
        }
        return 0;
@@ -1242,13 +1243,13 @@ int iGetOrient(int _iVal)
        }
        else
        {
-               Error(44);
+               SciError(44);
                return -2;
        }
 
        if(iRows != 1 || iCols != 1)
        {
-               Error(89);
+               SciError(89);
                return -2;
        }
 
@@ -1268,7 +1269,7 @@ int iGetOrient(int _iVal)
        }
        else
        {
-               Error(44);
+               SciError(44);
                return -2;
        }
        return iMode;
index 80567f7..b784f26 100644 (file)
@@ -14,7 +14,7 @@
 #include "stack-c.h"
 #include "str2sci.h"
 #include "cvstr.h"
-#include "Scierror.h"
+#include "do_error_number.h"
 
 void str2sci(char** x,int n,int m)
 {
@@ -23,7 +23,7 @@ void str2sci(char** x,int n,int m)
       
   if (Top >= Bot) {
     i=18;
-    Error(i);
+    SciError(i);
   } else {
     Top = Top + 1;
     il = iadr(*Lstk(Top));
@@ -33,7 +33,7 @@ void str2sci(char** x,int n,int m)
   err = l + n*m - *Lstk(Bot);
   if (err > 0) {
     i=17;
-    Error(i);
+    SciError(i);
     return;
   }
   *istk(il) = sci_strings;
index d968575..ff48ef8 100644 (file)
@@ -16,7 +16,7 @@
 #include "core_math.h"
 #include "parse.h"
 #include "stack-def.h" /* C2F(basbrk) */
-#include "Scierror.h"
+#include "do_error_number.h"
 #include "recursionFunction.h"
 /*--------------------------------------------------------------------------*/
 #define Pt (C2F(recu).pt)
@@ -96,12 +96,12 @@ L60:
 L89:
        if (Top < Rhs) {
                int lierr = 22;
-               Error(lierr);
+               SciError(lierr);
                goto L9999;
        }
        if (Top - Rhs + Lhs + 1 >= Bot) {
                int lierr = 18;
-               Error(lierr);
+               SciError(lierr);
                goto L9999;
        }
        goto L91;
@@ -116,7 +116,7 @@ L91:
        if (k == C2F(recu).krec) {
                int lierr = 22;
                C2F(recu).krec = -1;
-               Error(lierr);
+               SciError(lierr);
                goto L9999;
        }
        C2F(recu).krec = -1;
@@ -150,7 +150,7 @@ L95:
        }
        if (Fin == 0) {
                int lierr = 246;
-               Error(lierr);
+               SciError(lierr);
                if (Err > 0) {
                        goto L9999;
                }
index 7a34d72..602b1b5 100644 (file)
@@ -13,8 +13,8 @@
 #include "terme.h"
 #include "stack-def.h"
 #include "stack-c.h"
-#include "Scierror.h"
 #include "basout.h"
+#include "do_error_number.h"
 /*--------------------------------------------------------------------------*/ 
 extern int C2F(getsym)();
 /*--------------------------------------------------------------------------*/ 
@@ -31,7 +31,6 @@ int C2F(terme)(void)
 
   /* Local variables */
   int op = 0;
-  int code_error = 0;
 
   int r = 0;
 
@@ -94,8 +93,7 @@ int C2F(terme)(void)
 
        if (op != 0) 
          {
-           code_error = 7;
-           Error(code_error);
+           SciError(7);
          }
        return 0;
       }
@@ -148,8 +146,7 @@ int C2F(terme)(void)
 
        if (op != 0) 
          {
-           code_error = 7;
-           Error(code_error);
+           SciError(7);
          }
        return 0;
       }
@@ -166,8 +163,7 @@ int C2F(terme)(void)
       break;
     }
 
-  code_error = 22;
-  Error(code_error);
+  SciError(22);
   return 0;
 }
 /*--------------------------------------------------------------------------*/ 
index 96391e7..0f460fc 100644 (file)
@@ -35,8 +35,7 @@ int gw_data_structures1(void)
        Rhs=Max(Rhs,0);
        if (Top - Rhs + Lhs + 1 >= Bot)
        {
-               static int codeerror = 18;
-               Error(codeerror);
+               SciError(18);
                return 0;
        }
 
index 37544c7..7eb4338 100644 (file)
@@ -29,7 +29,7 @@ int gw_data_structures2(void)
        if (Top - Rhs + Lhs + 1 >= Bot)
        {
                static int codeerror = 18;
-               Error(codeerror);
+               SciError(codeerror);
                return 0;
        }
 
index 055e8de..04fbbe6 100644 (file)
@@ -20,7 +20,6 @@
 #define memused(it,mn) ((((mn)*( it % 10))/sizeof(int))+1)
 
 /* Table of constant values */
-static int c17 = 17;
 static int c1 = 1;
 static int c4 = 4;
 
@@ -51,7 +50,7 @@ int C2F(stcreate)(int *lw, int *nz, int *sz, int *nf, char *fnames[], int *retva
     Err = sadr(il+6) + n1 - *Lstk(Bot);
     if (Err > 0)
        {
-               Error(c17);
+               SciError(17);
                return 1;
     }
     *istk(il) = 17;
index e9c59a6..0cd4d9a 100644 (file)
@@ -30,7 +30,7 @@ int ext14cI(char *fname)
   if ( m3*n3 != m2*n2) 
     {
       sciprint("%s :Incompatible dimensions\n",fname);
-      Error(999); return(0);
+      SciError(999); return(0);
     }
   CreateVar( 4,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l4);
   n=m3*n3;
index 6814d59..d7dc31e 100644 (file)
@@ -26,7 +26,7 @@ int sci_matmul(char *fname)
 
   /* Check dimensions    */
   if (!(n1==m2)) { sciprint("%s: Incompatible inputs\n", "matmul");
-    Error(999);
+    SciError(999);
     return 0;}
 
   /* Call multiplication function 
index 4d40477..3b230ea 100644 (file)
@@ -103,7 +103,7 @@ int sci_c_link(char *fname,unsigned long fname_len)
        }
        else
        {
-               Error(201);
+               SciError(201);
        }
        return 0;
 }
index 193c556..85bace9 100644 (file)
@@ -27,7 +27,7 @@ int sci_call(char *fname,unsigned long fname_len)
 {
        if (Rhs == 0)
        {
-               Error(39);
+               SciError(39);
        }
        else C2F(intfort)(fname,fname_len);
        return 0;
index 974b60d..dd7d3ef 100644 (file)
@@ -25,13 +25,13 @@ int c_intfun(char *fname)
   if (!(m1==1)|!(n1==1)) 
   { 
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
    }
   if (!(m2==1)|!(n2==1)) 
   {
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
   }
 
index 04b4a65..2fbfb56 100644 (file)
@@ -1,6 +1,7 @@
 /* ============================================== */
 #include "stack-c.h"
 #include "sciprint.h"
+#include "Scierror.h"
 /* ============================================== */
 /*  Interfaces for c fonctions */
 /* ============================================== */
@@ -26,13 +27,13 @@ int c_intsum(char *fname)
   if (!(m1==1)|!(n1==1)) 
   { 
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
    }
   if (!(m2==1)|!(n2==1)) 
   {
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
   }
 
@@ -63,13 +64,13 @@ int c_intsub(char *fname)
   if (!(m1==1)|!(n1==1)) 
   { 
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
    }
   if (!(m2==1)|!(n2==1)) 
   {
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
   }
 
@@ -90,4 +91,4 @@ void c_sub(double *b, double *c, double *a)
 {
   *a = *b -*c;
 }
-/* ============================================== */
\ No newline at end of file
+/* ============================================== */
index 04b4a65..2fbfb56 100644 (file)
@@ -1,6 +1,7 @@
 /* ============================================== */
 #include "stack-c.h"
 #include "sciprint.h"
+#include "Scierror.h"
 /* ============================================== */
 /*  Interfaces for c fonctions */
 /* ============================================== */
@@ -26,13 +27,13 @@ int c_intsum(char *fname)
   if (!(m1==1)|!(n1==1)) 
   { 
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
    }
   if (!(m2==1)|!(n2==1)) 
   {
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
   }
 
@@ -63,13 +64,13 @@ int c_intsub(char *fname)
   if (!(m1==1)|!(n1==1)) 
   { 
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
    }
   if (!(m2==1)|!(n2==1)) 
   {
     sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999);
     return 0;
   }
 
@@ -90,4 +91,4 @@ void c_sub(double *b, double *c, double *a)
 {
   *a = *b -*c;
 }
-/* ============================================== */
\ No newline at end of file
+/* ============================================== */
index bd0acd1..83bdd13 100644 (file)
@@ -1,6 +1,7 @@
 /* ============================================== */
 #include "stack-c.h"
 #include "sciprint.h"
+#include "Scierror.h"
 /* ============================================== */
 /*  Interfaces for c fonctions */
 /* ============================================== */
@@ -25,14 +26,12 @@ int c_intsum(char *fname)
   /* Check dimensions  */  
   if (!(m1==1)|!(n1==1)) 
   { 
-    sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999,"%s: Wrong inputs \r\n", "c_fun");
     return 0;
    }
   if (!(m2==1)|!(n2==1)) 
   {
-    sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    Scirror(999,"%s: Wrong inputs \r\n", "c_fun");
     return 0;
   }
 
@@ -62,14 +61,12 @@ int c_intsub(char *fname)
   /* Check dimensions  */  
   if (!(m1==1)|!(n1==1)) 
   { 
-    sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    Scierror(999,"%s: Wrong inputs \r\n", "c_fun");
     return 0;
    }
   if (!(m2==1)|!(n2==1)) 
   {
-    sciprint("%s: Wrong inputs \r\n", "c_fun");
-    Error(999);
+    SciError(999,"%s: Wrong inputs \r\n", "c_fun");
     return 0;
   }
 
index 4883d30..51c1913 100644 (file)
@@ -88,7 +88,7 @@ int C2F(intisequalvar)(char * fname, int *job, long int fl)
       return 0;
     }
     else if (res == -2) {/* Memory allocation failed */
-      Error(112);
+      SciError(112);
       FreeRec();
       return 0;
     }
index 3a4f983..2181bd1 100644 (file)
@@ -106,7 +106,7 @@ int sci_mget(char *fname,unsigned long fname_len)
 
        if (err >  0)
        {
-               Error(10000);
+               SciError(10000);
                return 0;
        }
        else if ( err < 0)
index 046f360..9513186 100644 (file)
@@ -85,7 +85,7 @@ int sci_mgetstr(char *fname,unsigned long fname_len)
        LhsVar(1) = Rhs+1;
        if (err >  0)
        {
-               Error(10000);
+               SciError(10000);
                return 0;
        }
        else if ( err < 0)
index b4ed8e2..9bd11bc 100644 (file)
@@ -102,7 +102,7 @@ int sci_mopen(char *fname,unsigned long fname_len)
                        {
                                case (int)MOPEN_NO_MORE_LOGICAL_UNIT : 
                                {
-                                       Error(66);/* no more logical units */
+                                       SciError(66);/* no more logical units */
                                        FREE(filename);
                                        filename = NULL;
                                        return 0;
index 751add8..d4b9a8f 100644 (file)
@@ -90,7 +90,7 @@ int sci_mput(char *fname,unsigned long fname_len)
 
        if (err >  0)
        {
-               Error(10000);
+               SciError(10000);
                return 0;
        }
 
index eb22073..a242d44 100644 (file)
@@ -72,7 +72,7 @@ int sci_mputstr(char *fname,unsigned long fname_len)
 
        if (err >  0)
        {
-               Error(10000);
+               SciError(10000);
                return 0;
        }
 
index 20d44e8..82dbc47 100644 (file)
@@ -84,7 +84,7 @@ int sci_mseek(char *fname,unsigned long fname_len)
 
        if (err >  0)
        {
-               Error(10000);
+               SciError(10000);
                return 0;
        }
 
index e653644..8df32e9 100644 (file)
@@ -60,7 +60,7 @@ int sci_mtell(char *fname,unsigned long fname_len)
 
        if (err >  0)
        {
-               Error(10000);
+               SciError(10000);
                return 0;
        }
 
index 9e81307..4b36bc6 100644 (file)
@@ -500,7 +500,7 @@ int get_logflags_arg(char *fname,int pos,rhs_opts opts[], char ** logFlags )
              if ((*cstk(l)!='l'&&*cstk(l)!='n')||(*cstk(l+1)!='l'&&*cstk(l+1)!='n'))
         {
                Err=pos;
-               Error(116);
+               SciError(116);
                return 0;
              }
              logFlagsCpy[0]='g';
@@ -515,7 +515,7 @@ int get_logflags_arg(char *fname,int pos,rhs_opts opts[], char ** logFlags )
                  (*cstk(l+2)!='l'&&*cstk(l+2)!='n'))
         {
                Err=pos;
-               Error(116);
+               SciError(116);
                return 0;
              }
         *logFlags = cstk(l) ;  
@@ -540,7 +540,7 @@ int get_logflags_arg(char *fname,int pos,rhs_opts opts[], char ** logFlags )
       if ((*cstk(l)!='l'&&*cstk(l)!='n')||(*cstk(l+1)!='l'&&*cstk(l+1)!='n'))
       {
              Err=kopt;
-             Error(116);
+             SciError(116);
              return 0;
       }
       logFlagsCpy[0]='g';
@@ -555,7 +555,7 @@ int get_logflags_arg(char *fname,int pos,rhs_opts opts[], char ** logFlags )
                 (*cstk(l+2)!='l'&&*cstk(l+2)!='n'))
       {
              Err=kopt;
-             Error(116);
+             SciError(116);
              return 0;
       }
       
index a558a43..04802f8 100644 (file)
@@ -37,12 +37,12 @@ int intcdgemm(fname)
   if(nA != mB || m1*n1*m4*n4 != 1 )
     {
       sciprint("Bad call to dgemm\n");
-      Error(9999);     return 0;
+      SciError(9999);     return 0;
     }
   if(mA != mC || nB != nC )
     {
       sciprint("%s: invalid matrix dims in ",fname);
-      Error(9999);     return 0;
+      SciError(9999);     return 0;
     }
   k=nA;
   C2F(dgemm)("n","n",&m ,&n ,&k,stk(lalfa),
index 22b47e9..99b0686 100644 (file)
@@ -43,7 +43,7 @@ int intdgesvd(fname)
     LWORK=Maxvol(WORK, "d");  /*  max memory currently available */
     LWORKMIN = MAX(3*MIN(M,N)+MAX(M,N),5*MIN(M,N)-4);
     if (LWORK < LWORKMIN) { sciprint("not enough memory (use stacksize)");
-       Error(9999); };
+       SciError(9999); };
     CreateVar(NRHS+4,MATRIX_OF_DOUBLE_DATATYPE, &LWORK, &un, &lw);   /* WORK */
     LDA=M; LDU=M; LDVT=N;
 
index 1f7b4ab..877afb6 100644 (file)
@@ -38,7 +38,7 @@ int intdlassq(fname)
     break;
   default:
     sciprint("%s: bad call to dassq",fname);
-    Error(9999); return 0;
+    SciError(9999); return 0;
   }
   C2F(dlassq)(&N , stk(lX), &un, stk(lSCALE), stk(lSUMSQ));
   LhsVar(1) = 2;  LhsVar(2) = 3; /*  Return var #2 (SCALE) and #3 (SUMSQ) */
index 525eec2..faae3bd 100644 (file)
@@ -31,7 +31,7 @@ int intdsyev(fname)
     /* LWORK=C2F(maxvol)(&WORK, "d", 1L);   max memory currently available */
     if (LWORK < LWORKMIN) { 
       sciprint("not enough memory (use stacksize)");
-      Error(9999); };
+      SciError(9999); };
     CreateVar(3,MATRIX_OF_DOUBLE_DATATYPE, &LWORK, &un, &lWORK);
     LDA = MAX(1,N);
     C2F(dsyev)("V", "L", &N, stk(lA), &LDA, stk(lw), stk(lWORK), &LWORK, &INFO);
@@ -47,7 +47,7 @@ int intdsyev(fname)
     LWORK=C2F(maxvol)(&WORK, "d", 1L);  /* max memory currently available */
     if (LWORK < LWORKMIN) { 
       sciprint("not enough memory (use stacksize)");
-      Error(9999); };
+      SciError(9999); };
     CreateVar(3,MATRIX_OF_DOUBLE_DATATYPE, &LWORK, &un, &lWORK);
     LDA = MAX(1,N);
     C2F(dsyev)("N", "L", &N, stk(lA), &LDA, stk(lw), stk(lWORK), &LWORK, &INFO);
index a96a684..1f307d7 100644 (file)
@@ -56,7 +56,7 @@ int C2F(intbdiagr)(char *fname, long unsigned int fname_len)
     ix1 = (it + 1) * m * n;
     if (C2F(vfinite)(&ix1, stk(la )) == 0) {
        Err = 1;
-       Error(264);
+       SciError(264);
        return 0;
     }
     if (Rhs == 2) {
index 98b7028..1f2452c 100644 (file)
@@ -1757,7 +1757,7 @@ mxArray *UnrefStruct(mxArray *ptr)
     newsize += 3;   /* taking account begining of list */
     newbot=*Lstk(number+offset)+newsize+1;
     if( (newbot - *Lstk(Bot)) > 0)
-      {Error(17); return 0;}
+      {SciError(17); return 0;}
     *Lstk(number+offset+1)=newbot;
     for (list=0; list<nb; list++) {
       headerlist= listentry(header, list+3);
@@ -1815,7 +1815,7 @@ mxArray *UnrefStruct(mxArray *ptr)
     newsize +=3;
     newbot = *Lstk(number+offset)+newsize+1;
     if ( (newbot - *Lstk(Bot)) > 0)
-      {Error(17); return 0;}
+      {SciError(17); return 0;}
     *Lstk(number+offset+1)=newbot;
     for (obj=0; obj<nb; obj++)
       {
index d559163..7b0523f 100644 (file)
@@ -95,7 +95,7 @@ int sci_qld(char *fname,unsigned long fname_len)
        if ((*istk(me)<0) || (*istk(me)>n))
        {
                Err = 7;
-               Error(116);
+               SciError(116);
                return 0;
        }
 
index f941e01..3b54e12 100644 (file)
@@ -92,7 +92,7 @@ int sci_qp_solve(char *fname,unsigned long fname_len)
        if ((*istk(me)<0) || (*istk(me)>n))
        {
                Err = 7;
-               Error(116);
+               SciError(116);
                return 0;
        }
 
index 7377176..3d1460a 100644 (file)
@@ -768,7 +768,7 @@ static int msg_31(int *n, int *ierr)
 {
     /*int cerr=-1;*/
        sciprint(_("Warning: stack problem..., cleared.\n"));
-       /*Error(cerr);*/
+       /*SciError(cerr);*/
        return 0;
 }
 /*--------------------------------------------------------------------------*/
index 03e64dc..f040f50 100644 (file)
@@ -208,7 +208,7 @@ int sci_Rand(char *fname,unsigned long fname_len)
 
              if (! set_initial_seed_clcg4(*stk(l1),*stk(l2), *stk(l3), *stk(l4)) )
                {   /* => seeds were not good  (info is displayed by the function) */
-                 Error(999);return 0;
+                 SciError(999);return 0;
                }
              LhsVar(1) = 1;
              PutLhsVar();
@@ -226,9 +226,9 @@ int sci_Rand(char *fname,unsigned long fname_len)
                }
              GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
              if ( m1*n1 == 1)          /* simple init of mt     */
-               { if (! set_state_mt_simple(*stk(l1)) ) {Error(999); return(0);}; }
+               { if (! set_state_mt_simple(*stk(l1)) ) {SciError(999); return(0);}; }
              else if ( m1*n1 == 625 )  /* init of all the state */
-               { if (! set_state_mt(stk(l1))) {Error(999); return(0);}; }
+               { if (! set_state_mt(stk(l1))) {SciError(999); return(0);}; }
              else
                {
                        Scierror(999,_("%s: Wrong values for input argument: Vector of %d or %d values for %s expected.\n"),fname,1, 625,"mt");
@@ -245,7 +245,7 @@ int sci_Rand(char *fname,unsigned long fname_len)
                      Scierror(999,_("%s: Wrong size for second input argument: %dx%d expected.\n"),fname,40,1);
                      return 0;
                    };
-                 if (! set_state_fsultra(stk(l1)) ) {Error(999); return(0);};
+                 if (! set_state_fsultra(stk(l1)) ) {SciError(999); return(0);};
                }
              else if ( Rhs == 3 ) /* init with 2 integers (like before) */
                {
@@ -255,7 +255,7 @@ int sci_Rand(char *fname,unsigned long fname_len)
                  GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l2);
                  if ( m1*n1 != 1)
                    { Scierror(999,_("%s: Wrong type for third input argument: Scalar expected.\n"),fname); return 0;};
-                 if (! set_state_fsultra_simple(*stk(l1),*stk(l2)) ) {Error(999); return(0);};
+                 if (! set_state_fsultra_simple(*stk(l1),*stk(l2)) ) {SciError(999); return(0);};
                }
              else
                {
@@ -284,10 +284,10 @@ int sci_Rand(char *fname,unsigned long fname_len)
              if ( m1*n1 != 1)
                { Scierror(999,_("%s: Wrong type for fifth input argument: Scalar expected.\n"),fname); return 0;}
              if (current_gen == KISS)
-               {if (! set_state_kiss(*stk(l1),*stk(l2),*stk(l3),*stk(l4))) {Error(999); return 0;};}
+               {if (! set_state_kiss(*stk(l1),*stk(l2),*stk(l3),*stk(l4))) {SciError(999); return 0;};}
              else
                {if (! set_seed_clcg4(current_clcg4,*stk(l1),*stk(l2),*stk(l3),*stk(l4)))
-                 {Error(999); return 0;};}
+                 {SciError(999); return 0;};}
              break;
 
            case(CLCG2) :
@@ -303,7 +303,7 @@ int sci_Rand(char *fname,unsigned long fname_len)
              if ( m1*n1 != 1)
                { Scierror(999,_("%s: Wrong type for third input argument: Scalar expected.\n"),fname); return 0;};
              if (! set_state_clcg2(*stk(l1),*stk(l2)))
-               { Error(999); return 0;};
+               { SciError(999); return 0;};
              break;
 
            case(URAND) :
@@ -316,7 +316,7 @@ int sci_Rand(char *fname,unsigned long fname_len)
              if ( m1*n1 != 1)
                { Scierror(999,_("%s: Wrong type for second input argument: Scalar expected.\n"),fname); return 0;};
              if (! set_state_urand(*stk(l1)))
-               {Error(999); return 0;};
+               {SciError(999); return 0;};
              break;
            };
          LhsVar(1) = 0;
@@ -815,7 +815,7 @@ int sci_Rand(char *fname,unsigned long fname_len)
       C2F(setgmn)(stk(la),stk(lb),&m2,&m1,stk(parm),&ierr);
       if ( ierr == 1)
        {
-         Error(999);return 0;
+         SciError(999);return 0;
        }
       for ( i=0 ; i < nn ; i++)
        {
index 62d7ce3..f36a5b2 100644 (file)
 /* Table of constant values */
 
 static int c1 = 1;
-static int c41 = 41;
-static int c39 = 39;
-static int c17 = 17;
-static int c44 = 44;
 static int c_n1 = -1;
 static double c_b46 = 0.;
 
@@ -73,11 +69,11 @@ int C2F(intmsparse)(int *id)
 
     lw = C2F(vstk).lstk[Top];
     if (Lhs != 1) {
-       Error(c41);
+       SciError(41);
        return 0;
     }
     if (Rhs != 1) {
-       Error(c39);
+       SciError(39);
        return 0;
     }
     il = C2F(vstk).lstk[Top-1] + C2F(vstk).lstk[Top-1] - 1;
@@ -99,7 +95,7 @@ int C2F(intmsparse)(int *id)
        lw = lat + nel * (it + 1);
        Err = lw - C2F(vstk).lstk[Bot-1];
        if (Err > 0) {
-           Error(c17);
+           SciError(17);
            return 0;
        }
        *istk(ia) = 1;
@@ -130,7 +126,7 @@ int C2F(intmsparse)(int *id)
        C2F(vstk).lstk[Top] = lr + nel * (it + 1);
     } else if (*istk(il ) == 7) {
     } else {
-       Error(c44);
+       SciError(44);
        return 0;
     }
     return 0;
@@ -185,11 +181,11 @@ int C2F(intmspget)(int *id)
     top0 = Top + 1 - Rhs;
     lw = C2F(vstk).lstk[Top];
     if (Rhs != 1) {
-       Error(c39);
+       SciError(39);
        return 0;
     }
     if (Lhs > 3) {
-       Error(c41);
+       SciError(41);
        return 0;
     }
     il = C2F(vstk).lstk[Top -1] + C2F(vstk).lstk[Top -1] - 1;
@@ -250,7 +246,7 @@ int C2F(intmspget)(int *id)
     lw = I1 / 2 + 1;
     Err = lw - C2F(vstk).lstk[Bot -1];
     if (Err > 0) {
-       Error(c17);
+       SciError(17);
        return 0;
     }
     I1 = n + nel + 1;
@@ -341,11 +337,11 @@ int C2F(intmfull)(int *id)
     top0 = Top + 1 - Rhs;
     lw = C2F(vstk).lstk[Top];
     if (Rhs != 1) {
-       Error(c39);
+       SciError(39);
        return 0;
     }
     if (Lhs != 1) {
-       Error(c41);
+       SciError(41);
        return 0;
     }
     il = C2F(vstk).lstk[Top -1] + C2F(vstk).lstk[Top -1] - 1;
@@ -367,7 +363,7 @@ int C2F(intmfull)(int *id)
     lw = ls + nel * (it + 1);
     Err = lw - C2F(vstk).lstk[Bot-1];
     if (Err > 0) {
-       Error(c17);
+       SciError(17);
        return 0;
     }
     I1 = n + 1 + nel;
index f7bf31b..03880c2 100644 (file)
@@ -117,7 +117,7 @@ int sci_besselh(char *fname,unsigned long fname_len)
   if (ierr==2) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=63;
@@ -132,7 +132,7 @@ int sci_besselh(char *fname,unsigned long fname_len)
   else if (ierr==4||ierr==5) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=107;
index a67cd68..405b826 100644 (file)
@@ -159,7 +159,7 @@ int sci_besseli(char *fname,unsigned long fname_len)
   if (ierr==2) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=63;
@@ -174,7 +174,7 @@ int sci_besseli(char *fname,unsigned long fname_len)
   else if (ierr==4||ierr==5) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=107;
index 8c12bc9..882cff8 100644 (file)
@@ -158,7 +158,7 @@ int sci_besselj(char *fname,unsigned long fname_len)
   if (ierr==2) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=63;
@@ -173,7 +173,7 @@ int sci_besselj(char *fname,unsigned long fname_len)
   else if (ierr==4||ierr==5) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=107;
index d42f570..6176ddd 100644 (file)
@@ -151,7 +151,7 @@ int sci_besselk(char *fname,unsigned long fname_len)
   if (ierr==2) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=63;
@@ -166,7 +166,7 @@ int sci_besselk(char *fname,unsigned long fname_len)
   else if (ierr==4||ierr==5) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=107;
index f5c20ec..9111a01 100644 (file)
@@ -154,7 +154,7 @@ int sci_bessely(char *fname,unsigned long fname_len)
   if (ierr==2) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=63;
@@ -169,7 +169,7 @@ int sci_bessely(char *fname,unsigned long fname_len)
   else if (ierr==4||ierr==5) {
     if ( C2F(errgst).ieee==0) { 
       ierr=69;
-      Error(ierr);
+      SciError(ierr);
     }
     else if ( C2F(errgst).ieee==1) {
      ierr=107;
index 966c758..5e2e3c3 100644 (file)
@@ -174,7 +174,7 @@ static int asciiStrings(char *fname)
                if (Err > 0) 
                {
                        /* stacksize exceeded */
-                       Error(17);
+                       SciError(17);
                        return 0;
                }
        } 
@@ -189,7 +189,7 @@ static int asciiStrings(char *fname)
                if (Err > 0) 
                {
                        /* stacksize exceeded */
-                       Error(17);
+                       SciError(17);
                        return 0;
                }
                C2F(icopy)(&nbr_characters, istk(l), &one, istk(l + nbr_characters), &one);
index 8e31d12..7103c3d 100644 (file)
@@ -49,7 +49,7 @@ int sci_string(char *fname,unsigned long fname_len)
                                }
                                else C2F(intstring)();
                        }
-                       else Error(39);
+                       else SciError(39);
                }
                break;
 
@@ -72,7 +72,7 @@ int sci_string(char *fname,unsigned long fname_len)
                        }
                        else
                        {
-                               Error(39);
+                               SciError(39);
                        }
                }
                break;
@@ -85,7 +85,7 @@ int sci_string(char *fname,unsigned long fname_len)
                        {
                                C2F(intstring)();
                        }
-                       else Error(41);
+                       else SciError(41);
                }
                break;
                case sci_lib:
@@ -94,7 +94,7 @@ int sci_string(char *fname,unsigned long fname_len)
                        {
                                C2F(intstring)();
                        }
-                       else Error(39);
+                       else SciError(39);
                }
                break;