Finish to replace sciprint by Scierror when needed in graphics
Jean-Baptiste Silvy [Wed, 17 Dec 2008 16:12:08 +0000 (17:12 +0100)]
33 files changed:
scilab/modules/graphics/sci_gateway/c/sci_champ.c
scilab/modules/graphics/sci_gateway/c/sci_contour2di.c
scilab/modules/graphics/sci_gateway/c/sci_drawaxis.c
scilab/modules/graphics/sci_gateway/c/sci_fec.c
scilab/modules/graphics/sci_gateway/c/sci_geom3d.c
scilab/modules/graphics/sci_gateway/c/sci_grayplot.c
scilab/modules/graphics/sci_gateway/c/sci_is_handle_valid.c
scilab/modules/graphics/sci_gateway/c/sci_matplot.c
scilab/modules/graphics/sci_gateway/c/sci_param3d.c
scilab/modules/graphics/sci_gateway/c/sci_param3d1.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_plot3d.c
scilab/modules/graphics/sci_gateway/c/sci_rotate_axes.c
scilab/modules/graphics/sci_gateway/c/sci_rubberbox.c
scilab/modules/graphics/sci_gateway/c/sci_show_window.c
scilab/modules/graphics/sci_gateway/c/sci_unzoom.c
scilab/modules/graphics/sci_gateway/c/sci_winsid.c
scilab/modules/graphics/sci_gateway/c/sci_xget.c
scilab/modules/graphics/sci_gateway/c/sci_xset.c
scilab/modules/graphics/sci_gateway/c/sci_zoom_rect.c
scilab/modules/graphics/src/c/Contour.c
scilab/modules/graphics/src/c/FeC.c
scilab/modules/graphics/src/c/Format.c
scilab/modules/graphics/src/c/Gray.c
scilab/modules/graphics/src/c/HandleManagement.c
scilab/modules/graphics/src/c/Plo2dEch.c
scilab/modules/graphics/src/c/Plo2dn.c
scilab/modules/graphics/src/c/getHandleProperty/getPropertyAssignedValue.c
scilab/modules/graphics/src/c/getHandleProperty/get_tics_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_user_data_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_xtics_coord_property.c
scilab/modules/graphics/src/c/sciCall.c

index f247f63..4e29ee6 100644 (file)
@@ -26,7 +26,6 @@
 #include "DefaultCommandArg.h"
 #include "Champ.h"
 #include "GetProperty.h"
-#include "sciprint.h"
 #include "localization.h"
 #include "Scierror.h"
 /*--------------------------------------------------------------------------*/
@@ -79,10 +78,9 @@ int sci_champ_G(char *fname,
   if ( get_optionals(fname,opts) == 0) { return 0 ; }
   if ( FirstOpt() < 5 )
   {
-    sciprint(_("%s: Misplaced optional argument: #%d must be at position %d\n"),
+    Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d\n"),
       fname,1, 5);
-    Error(999); 
-    return(0);
+    return -1;
   }
   GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
   GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
index 54239bd..d94c86c 100644 (file)
@@ -66,7 +66,11 @@ int sci_contour2di( char * fname, unsigned long fname_len )
   for (i =0 ; i < ix4 ; ++i) *istk(l5 + i ) = i+1;
   if (nz == 1) *istk(l5 +1) = 1;
 
-  C2F(contourif)(stk(l1),stk(l2),stk(l3),&m3,&n3,&flagx,&nz,znz,istk(l5));
+  if (C2F(contourif)(stk(l1),stk(l2),stk(l3),&m3,&n3,&flagx,&nz,znz,istk(l5)) != 0)
+       {
+               /* Something wrong happened */
+               return -1;      
+       }
   C2F(getconts)(&hl1, &hl2, &m1, &n1);
   if (n1 == 0)
   {
index ffc1c70..6585454 100644 (file)
@@ -176,7 +176,6 @@ int sci_drawaxis( char * fname, unsigned long fname_len )
 
   if ( val != 0) 
   {
-    /** sciprint("nombre de tics %d\n",ntics); **/
     CheckLength( opts[8].position, opts[8].m*opts[8].n,ntics);
     nb_tics_labels = opts[8].m*opts[8].n;
   }
index 67893e4..bf4749e 100644 (file)
@@ -28,7 +28,6 @@
 #include "sciCall.h"
 #include "GetProperty.h"
 #include "DefaultCommandArg.h"
-#include "sciprint.h"
 #include "localization.h"
 #include "Scierror.h"
 /*--------------------------------------------------------------------------*/
@@ -68,10 +67,9 @@ int sci_fec(char *fname,unsigned long fname_len)
 
   if ( get_optionals(fname,opts) == 0) return 0;
   if ( FirstOpt() < 5) {
-    sciprint(_("%s: Misplaced optional argument: #%d must be at position %d.\n"),
-      fname,1, 5);
-    Error(999); 
-    return(0);
+    Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d.\n"),
+      fname,1, 5); 
+    return -1;
   }
   GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
   GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
index aa5f332..3837726 100644 (file)
@@ -22,7 +22,6 @@
 #include "sci_demo.h"
 #include "GetProperty.h"
 #include "CurrentObjectsManagement.h"
-#include "sciprint.h"
 
 int geom3d(double *x, double *y, double *z, int n) ;
 
index 9488550..209af8c 100644 (file)
@@ -25,7 +25,6 @@
 #include "GetProperty.h"
 #include "DefaultCommandArg.h"
 #include "sciCall.h"
-#include "sciprint.h"
 #include "localization.h"
 #include "Scierror.h"
 /*--------------------------------------------------------------------------*/
@@ -58,10 +57,9 @@ int sci_grayplot( char *fname, unsigned long fname_len )
 
   if ( get_optionals(fname,opts) == 0) { return 0 ; }
   if ( FirstOpt() < 4) {
-    sciprint(_("%s: Misplaced optional argument: #%d must be at position %d.\n"),
+    Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d.\n"),
       fname,1, 4);
-    Error(999); 
-    return(0);
+    return -1;
   }
   GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
   CheckVector(1,m1,n1);
index e675dee..2499d87 100644 (file)
@@ -19,7 +19,7 @@
 #include "gw_graphics.h"
 #include "stack-c.h"
 #include "HandleManagement.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "getPropertyAssignedValue.h"
 #include "CurrentObjectsManagement.h"
@@ -44,8 +44,8 @@ int sci_is_handle_valid(char *fname,unsigned long fname_len)
   /* Get handles matrix */
   if (VarType(1) != sci_handles)
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Matrix of handle expected.\n"), fname,1);
-    return 0;
+    Scierror(999, _("%s: Wrong type for input argument #%d: Matrix of handle expected.\n"), fname,1);
+    return  -1;
   }
 
   GetRhsVar(1, GRAPHICAL_HANDLE_DATATYPE, &nbRow, &nbCol, &handleStackPointer);
index 02c0acd..128352b 100644 (file)
@@ -25,7 +25,6 @@
 #include "DestroyObjects.h"
 #include "GetProperty.h"
 #include "sciCall.h"
-#include "sciprint.h"
 #include "stack-c.h"
 #include "localization.h"
 #include "Scierror.h"
index 6bff614..618e6db 100644 (file)
@@ -24,7 +24,6 @@
 #include "DestroyObjects.h"
 #include "GetProperty.h"
 #include "sciCall.h"
-#include "sciprint.h"
 #include "stack-c.h"
 #include "localization.h"
 #include "Scierror.h"
index ca94032..dde5045 100644 (file)
@@ -25,7 +25,6 @@
 #include "GetProperty.h"
 #include "sciCall.h"
 #include "MALLOC.h"
-#include "sciprint.h"
 #include "stack-c.h"
 #include "localization.h"
 #include "Scierror.h"
index d4470dd..31bf6fc 100644 (file)
@@ -29,7 +29,7 @@
 #include "sciCall.h"
 #include "DefaultCommandArg.h"
 #include "sci_plot2d.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "CurrentObjectsManagement.h"
 #include "Scierror.h"
@@ -92,9 +92,8 @@ int sci_plot2d( char * fname, unsigned long fname_len )
   {
     if ( FirstOpt() <= Rhs )
     {
-           sciprint(_("%s: Misplaced optional argument: #%d must be at position %d.\n"),fname,1, 3+iskip);
-           Error(999); 
-           return(0);
+           Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d.\n"),fname,1, 3+iskip);
+           return -1;
     }
 
     GetRhsVar(1+iskip,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
@@ -114,9 +113,8 @@ int sci_plot2d( char * fname, unsigned long fname_len )
   {
     if ( FirstOpt() < 3+iskip)
     {
-      sciprint(_("%s: Misplaced optional argument: #%d must be at position %d.\n"), fname,1, 3+iskip);
-      Error(999); 
-      return(0);
+      Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d.\n"), fname,1, 3+iskip);
+      return -1;
     }
 
     /** plot2d([loglags,] x,y,....); **/
@@ -236,19 +234,19 @@ int sci_plot2d( char * fname, unsigned long fname_len )
     /* based on Rect arg */ 
     if( rect[0] > rect[2] || rect[1] > rect[3])
     {
-      sciprint(_("%s: Impossible status min > max in x or y rect data.\n"),fname);
+      Scierror(999, _("%s: Impossible status min > max in x or y rect data.\n"),fname);
       return -1;
     }
 
     if( rect[0] <= 0. && logFlags[1] =='l') /* xmin */
     {
-      sciprint(_("%s: Bounds on x axis must be strictly positive to use logarithmic mode.\n"),fname);
+      Scierror(999, _("%s: Bounds on x axis must be strictly positive to use logarithmic mode.\n"),fname);
       return -1 ;
     }
 
     if( rect[1] <= 0. && logFlags[2] =='l') /* ymin */
     {
-      sciprint(_("%s: Bounds on y axis must be strictly positive to use logarithmic mode.\n"),fname);
+      Scierror(999, _("%s: Bounds on y axis must be strictly positive to use logarithmic mode.\n"),fname);
       return -1 ;
     }
 
@@ -283,7 +281,7 @@ int sci_plot2d( char * fname, unsigned long fname_len )
     {
       if(logFlags[1] == 'l' && sciFindStPosMin(stk(l1),size_x) <= 0.0 )
       {
-        sciprint(_("%s: At least one x data must be strictly positive to compute the bounds and use logarithmic mode.\n"),fname);
+        Scierror(999, _("%s: At least one x data must be strictly positive to compute the bounds and use logarithmic mode.\n"),fname);
         return -1 ;
       }
     }
@@ -294,7 +292,7 @@ int sci_plot2d( char * fname, unsigned long fname_len )
     {
       if( logFlags[2] == 'l' && sciFindStPosMin(stk(l2),size_y) <= 0.0 )
       {
-        sciprint(_("%s: At least one y data must be strictly positive to compute the bounds and use logarithmic mode\n"),fname);
+        Scierror(999, _("%s: At least one y data must be strictly positive to compute the bounds and use logarithmic mode\n"),fname);
         return -1 ;
       }
     }
index 8511a09..6c94d09 100644 (file)
@@ -26,7 +26,6 @@
 #include "DefaultCommandArg.h"
 #include "GetProperty.h"
 #include "sciCall.h"
-#include "sciprint.h"
 #include "GraphicSynchronizerInterface.h"
 #include "localization.h"
 #include "Scierror.h"
index 5c6a2b2..1cfe70e 100644 (file)
@@ -29,7 +29,6 @@
 #include "DestroyObjects.h"
 #include "MALLOC.h"
 #include "sciCall.h"
-#include "sciprint.h"
 #include "localization.h"
 #include "Scierror.h"
 /*--------------------------------------------------------------------------*/
@@ -68,10 +67,9 @@ int sci_plot3d( char * fname, unsigned long fname_len )
 
   if ( get_optionals(fname,opts) == 0) return 0;
   if ( FirstOpt() < 4) {
-    sciprint(_("%s: Misplaced optional argument: #%d must be at position %d.\n"),
+    Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d.\n"),
       fname,1, 4);
-    Error(999); 
-    return(0);
+    return -1;
   }
 
   GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
index 7987d6f..8bd2883 100644 (file)
@@ -18,7 +18,7 @@
 
 #include "sci_rotate_axes.h"
 #include "stack-c.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "Interaction.h"
 #include "localization.h"
 #include "HandleManagement.h"
@@ -54,18 +54,18 @@ int sci_rotate_axes(char *fname,unsigned long fname_len)
     /* Get figure or subwin handle */
     if (GetType(1) != sci_handles)
     {
-      sciprint(_("%s: Wrong type for input argument #%d: Single Figure or Axes handle expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Single Figure or Axes handle expected.\n"), fname, 1);
       LhsVar(1) = 0;
-      return 0;
+      return -1;
     }
 
     GetRhsVar(1, GRAPHICAL_HANDLE_DATATYPE, &nbRow, &nbCol, &stackPointer);
 
     if (nbRow * nbCol != 1)
     {
-      sciprint(_("%s: Wrong type for input argument #%d: Single Figure or Axes handle expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Single Figure or Axes handle expected.\n"), fname, 1);
       LhsVar(1) = 0;
-      return 0;
+      return -1;
     }
 
     rotatedObject = sciGetPointerFromHandle(getHandleFromStack(stackPointer));
@@ -80,9 +80,9 @@ int sci_rotate_axes(char *fname,unsigned long fname_len)
     }
     else
     {
-      sciprint(_("%s: Wrong type for input argument #%d: Single Figure or Axes handle expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Single Figure or Axes handle expected.\n"), fname, 1);
       LhsVar(1) = 0;
-      return 0;
+      return -1;
     }
   }
 
index fa11e3f..99e1930 100644 (file)
@@ -19,7 +19,7 @@
 #include "stack-c.h"
 #include "localization.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "Interaction.h"
 #include "CurrentObjectsManagement.h"
 
@@ -53,7 +53,7 @@ static int getInitialRectangle(double initRect[4])
     int nbDims = rectNbCol * rectNbRow;
     if (nbDims != 2 && nbDims != 4)
     {
-      sciprint(_("%s: Wrong size for input argument #%d: Vector of size %d or %d expected.\n"), "rubberbox", 1, 2, 4);
+      Scierror(999, _("%s: Wrong size for input argument #%d: Vector of size %d or %d expected.\n"), "rubberbox", 1, 2, 4);
       return -1;
     }
 
@@ -154,7 +154,8 @@ int sci_rubberbox(char * fname, unsigned long fname_len)
       else
       {
         /* Wrong parameter specified, neither edition mode nor intial rect */
-        sciprint(_("%s: Wrong type for input argument: Matrix or boolean expected.\n"), "fname");
+        Scierror(999, _("%s: Wrong type for input argument: Matrix or boolean expected.\n"), "fname");
+                               return -1;
       }
     }
   }
index 39798b2..3a622e8 100644 (file)
@@ -20,7 +20,7 @@
 #include "getHandleProperty/getPropertyAssignedValue.h"
 #include "HandleManagement.h"
 #include "stack-c.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "InitObjects.h"
@@ -51,7 +51,7 @@ int sci_show_window( char *fname,unsigned long fname_len )
 
       if ( nbRow * nbCol != 1 )
       {
-        sciprint(_("%s: Wrong size for input argument #%d: A '%s' handle or a real scalar expected.\n"),fname, 1, "Figure");
+        Scierror(999, _("%s: Wrong size for input argument #%d: A '%s' handle or a real scalar expected.\n"),fname, 1, "Figure");
         return -1 ;
       }
 
@@ -59,7 +59,7 @@ int sci_show_window( char *fname,unsigned long fname_len )
 
       if (sciGetEntityType(shownFigure) != SCI_FIGURE)
       {
-        sciprint(_("%s: Wrong type for input argument #%d: A '%s' handle or a real scalar expected.\n"),fname, 1, "Figure");
+        Scierror(999, _("%s: Wrong type for input argument #%d: A '%s' handle or a real scalar expected.\n"),fname, 1, "Figure");
         return -1 ;
       }
 
@@ -71,7 +71,7 @@ int sci_show_window( char *fname,unsigned long fname_len )
       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &stackPointer );
       if ( nbRow * nbCol != 1 )
       {
-        sciprint(_("%s: Wrong size for input argument #%d: A '%s' handle or a real scalar expected.\n"),fname, 1, "Figure");
+        Scierror(999, _("%s: Wrong size for input argument #%d: A '%s' handle or a real scalar expected.\n"),fname, 1, "Figure");
         return -1 ;
       }
       winNum = (int) getDoubleFromStack(stackPointer);
@@ -82,14 +82,16 @@ int sci_show_window( char *fname,unsigned long fname_len )
         /* No window with this number, create one */
         if(sciSetUsedWindow(winNum) < 0)
         {
-          sciprint(_("%s: Unable to create requested figure: No more memory.\n"), fname);
+          Scierror(999, _("%s: Unable to create requested figure: No more memory.\n"), fname);
+                                       return -1;
         }
         shownFigure = sciGetCurrentFigure();
       }
     }
     else
     {
-      sciprint(_("%s: Wrong type for input argument #%d: A '%s' handle or a real scalar expected.\n"),fname,1, "Figure");
+      Scierror(999, _("%s: Wrong type for input argument #%d: A '%s' handle or a real scalar expected.\n"),fname,1, "Figure");
+                       return -1;
     }
 
   }
@@ -103,7 +105,7 @@ int sci_show_window( char *fname,unsigned long fname_len )
   /* Check that the requested figure really exists */
   if ( shownFigure == NULL )
   {
-    sciprint(_("%s: '%s' handle does not or no longer exists.\n"),fname,"Figure");
+    Scierror(999, _("%s: '%s' handle does not or no longer exists.\n"),fname,"Figure");
     return -1 ;
   }
 
index d2a9246..d0e7f58 100644 (file)
@@ -26,7 +26,7 @@
 #include "axesScale.h"
 #include "localization.h"
 #include "CurrentObjectsManagement.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "getPropertyAssignedValue.h"
 
 /*--------------------------------------------------------------------------*/
@@ -50,9 +50,9 @@ int sci_unzoom(char *fname,unsigned long fname_len)
     zoomedObjects = MALLOC(nbUnzoomedObjects * sizeof(sciPointObj *));
     if (zoomedObjects == NULL)
     {
-      sciprint(_("%s: No more memory.\n"),fname);
+      Scierror(999, _("%s: No more memory.\n"),fname);
       LhsVar(1)=0; 
-      return 0;
+      return -1;
     }
 
     /* first pass, check that all the handles are subwindows or figures */
@@ -63,9 +63,9 @@ int sci_unzoom(char *fname,unsigned long fname_len)
       if (sciGetEntityType(zoomedObjects[i]) != SCI_SUBWIN && sciGetEntityType(zoomedObjects[i]) != SCI_FIGURE)
       {
         FREE(zoomedObjects);
-        sciprint(_("%s: Wrong type for input argument: Vector of Axes and Figure handles expected.\n"),fname);
+        Scierror(999, _("%s: Wrong type for input argument: Vector of Axes and Figure handles expected.\n"),fname);
         LhsVar(1)=0; 
-        return 0;
+        return -1;
       }
     }
 
index 5351150..71830e8 100644 (file)
@@ -19,7 +19,7 @@
 #include "sci_winsid.h"
 #include "MALLOC.h"
 #include "WindowList.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "returnProperty.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
@@ -39,7 +39,7 @@ int sci_winsid(char *fname,unsigned long fname_len)
     int * ids = MALLOC(nbFigure * sizeof(int));
     if (ids == NULL)
     {
-      sciprint(_("%s: No more memory.\n"),fname);
+      Scierror(999, _("%s: No more memory.\n"),fname);
       return 0;
     }
     sciGetFiguresId(ids);
index ae67c9a..539066e 100644 (file)
@@ -26,7 +26,7 @@
 #include "gw_graphics.h"
 #include "CurrentObjectsManagement.h"
 #include "Format.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "ObjectSelection.h"
 #include "msgs.h"
 #include "localization.h"
@@ -64,11 +64,9 @@ int sci_xget(char *fname,unsigned long fname_len)
 
   if ( !keyFound )
   {
-    sciprint(_("%s: Unrecognized input argument: '%s'.\n"), fname, cstk(l1));
-    x2=0;
-    CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&x2,&x2,&l3);
-    LhsVar(1)=Rhs+1;
-    return 0;
+    Scierror(999, _("%s: Unrecognized input argument: '%s'.\n"), fname, cstk(l1));
+    LhsVar(1)= 0;
+    return -1;
   }
 
   if (Rhs == 2) {
@@ -289,7 +287,9 @@ int sci_xget(char *fname,unsigned long fname_len)
     }
     else
     {
-      sciprint(_("%s: Unrecognized input argument: '%s'.\n"), fname, cstk(l1));
+      Scierror(999, _("%s: Unrecognized input argument: '%s'.\n"), fname, cstk(l1));
+                       LhsVar(1)= 0;
+                       return -1;
     }
     if (x2 > 0) {
       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&one,&x2,&l3);
index 9fbf77b..b55726d 100644 (file)
@@ -30,7 +30,6 @@
 #include "InitObjects.h"
 #include "XsetXgetParameters.h"
 #include "CurrentObjectsManagement.h"
-#include "sciprint.h"
 #include "Format.h"
 #include "ObjectSelection.h"
 #include "msgs.h"
@@ -66,9 +65,7 @@ int sci_xset( char *fname, unsigned long fname_len )
 
   if ( !keyFound )
   {
-    i = 105;v=m1*n1;
-    strncpy(C2F(cha1).buf,cstk(l1),v);
-    C2F(msgs)(&i,&v);
+    Scierror(999, _("%s: Unrecognized input argument: '%s'.\n"), fname, cstk(l1));
     LhsVar(1)=0;
     return 0;
   }
@@ -77,7 +74,7 @@ int sci_xset( char *fname, unsigned long fname_len )
   /* Bloque la commande xset('window') sans numero de fenetre */
   if (Rhs == 1 && (strcmp(cstk(l1),"window") == 0) )
   {
-    sciprint(_("%s : '%s' must be set\n"),fname, "window-number");
+    Scierror(999, _("%s : '%s' must be set\n"),fname, "window-number");
     LhsVar(1)=0; return 0;
   }
 
@@ -162,11 +159,15 @@ int sci_xset( char *fname, unsigned long fname_len )
   {
     if (*stk(lr) == 1)
     {
-      sciprint(_("%s: Old graphic mode is no longer available. Please refer to the set help page.\n"),"xset");
+      Scierror(999, _("%s: Old graphic mode is no longer available. Please refer to the set help page.\n"),"xset");
+                       LhsVar(1)=0;
+                       return -1;
     }
-    else
+    else if (*stk(lr) != 0)
     {
       Scierror(999,"%s: Wrong value for input argument: %d or %d expected.\n",fname,0, 1);
+                       LhsVar(1)=0;
+                       return -1;
     }
   }/* NG end */
   else if( strcmp(cstk(l1),"default") == 0 )
@@ -348,7 +349,9 @@ int sci_xset( char *fname, unsigned long fname_len )
     }
     else
     {
-      sciprint(_("%s: Unrecognized input argument: '%s'.\n"), fname, cstk(l1));
+      Scierror(999, _("%s: Unrecognized input argument: '%s'.\n"), fname, cstk(l1));
+                       LhsVar(1)=0;
+                       return 0;
     }
 
     if(strcmp(cstk(l1),"window") != 0 && strcmp(cstk(l1),"wshow") != 0)
@@ -386,7 +389,8 @@ int C2F(xsetg)(char * str,char * str1,int lx0,int lx1)
   }
   else 
   {
-    sciprint(_("%s: Unrecognized input argument '%s'.\n"),"xset(arg,<string>)",str);
+    Scierror(999, _("%s: Unrecognized input argument '%s'.\n"),"xset(arg,<string>)",str);
+               return -1;
   }
   return 0;
 }
index a84081e..11a6dab 100644 (file)
@@ -28,7 +28,7 @@
 #include "GraphicSynchronizerInterface.h"
 #include "Interaction.h"
 #include "localization.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "getPropertyAssignedValue.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -57,11 +57,11 @@ static BOOL getZoomRect(const char * fname, int attribPos, double rect[4])
   {
     if (attribPos == 1)
     {
-      sciprint(_("%s: Wrong size for input argument #%d: Vector of size %d expected.\n"), fname, 1, 4);
+      Scierror(999, _("%s: Wrong size for input argument #%d: Vector of size %d expected.\n"), fname, 1, 4);
     }
     else
     {
-      sciprint(_("%s: Wrong size for input argument #%d: Vector of size %d expected.\n"), fname, 2, 4);
+      Scierror(999, _("%s: Wrong size for input argument #%d: Vector of size %d expected.\n"), fname, 2, 4);
     }
     return FALSE;
   }
@@ -94,7 +94,7 @@ static sciPointObj * getZoomedObject(const char * fname)
   /* check that there is only a single Figre or subwin */
   if (nbRow * nbCol != 1)
   {
-    sciprint(_("%s: Wrong size for input argument #%d: Single handle expected.\n"), fname, 1);
+    Scierror(999, _("%s: Wrong size for input argument #%d: Single handle expected.\n"), fname, 1);
     return NULL;
   }
 
@@ -102,7 +102,7 @@ static sciPointObj * getZoomedObject(const char * fname)
 
   if (sciGetEntityType(res) != SCI_SUBWIN && sciGetEntityType(res) != SCI_FIGURE)
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Figure or Axes handle expected.\n"), fname, 1);
+    Scierror(999, _("%s: Wrong type for input argument #%d: Figure or Axes handle expected.\n"), fname, 1);
     return NULL;
   }
 
@@ -133,7 +133,7 @@ int sci_zoom_rect(char *fname,unsigned long fname_len)
       if (zoomedObject == NULL)
       {
         LhsVar(1)=0; 
-        return 0;
+        return -1;
       }
       sciInteractiveZoom(zoomedObject);
     }
@@ -147,21 +147,21 @@ int sci_zoom_rect(char *fname,unsigned long fname_len)
         if (status == SET_PROPERTY_ERROR)
         {
           /* error on rectangle bounds */
-          sciprint(_("%s: Wrong value for input argument #%d: Specified bounds are not correct.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong value for input argument #%d: Specified bounds are not correct.\n"), fname, 1);
           LhsVar(1)=0; 
-          return 0;
+          return -1;
         }
       }
       else
       {
         /* error on rectagle definition */
         LhsVar(1)=0; 
-        return 0;
+        return -1;
       }
     }
     else
     {
-      sciprint(_("%s: Wrong type for input argument #%d: Handle or vector of double expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Handle or vector of double expected.\n"), fname, 1);
       LhsVar(1)=0; 
       return 0;
     }
@@ -175,24 +175,24 @@ int sci_zoom_rect(char *fname,unsigned long fname_len)
 
     if (GetType(1) != sci_handles || GetType(2) != sci_matrix)
     {
-      sciprint(_("%s: Wrong type for input arguments: Handle or vector of double expected.\n"), fname);
+      Scierror(999, _("%s: Wrong type for input arguments: Handle or vector of double expected.\n"), fname);
       LhsVar(1)=0; 
-      return 0;
+      return -1;
     }
 
     zoomedObject = getZoomedObject(fname);
     if (zoomedObject == NULL || !getZoomRect(fname, 2, rect))
     {
       LhsVar(1)=0; 
-      return 0;
+      return -1;
     }
 
     if (sciZoomRect(zoomedObject, rect) == SET_PROPERTY_ERROR)
     {
       /* error on rectangle bounds */
-      sciprint(_("%s: Error on input argument #%d: Specified bounds are not correct.\n"), fname, 1);
+      Scierror(999, _("%s: Error on input argument #%d: Specified bounds are not correct.\n"), fname, 1);
       LhsVar(1)=0; 
-      return 0;
+      return -1;
     }
   }
 
index f998bdc..8110a30 100644 (file)
@@ -20,6 +20,7 @@
 #include <math.h>
 #include "math_graphics.h"
 #include "PloEch.h"
+#include "Scierror.h"
 #include "sciprint.h"
 #include "MALLOC.h"
 #include "Format.h"
@@ -32,8 +33,7 @@ typedef void (level_f)(int ival, double Cont, double xncont,double yncont);
 typedef void (*ptr_level_f)(int ival, double Cont, double xncont,double yncont);
 
 
-static void 
-contourI (ptr_level_f,double *, double *, double *, double *, int *, int *, int *);
+static int contourI (ptr_level_f,double *, double *, double *, double *, int *, int *, int *);
 
 static void
 look(ptr_level_f, int i, int j, int ib,int jb, int qq,double Cont, int style);
@@ -191,7 +191,6 @@ static void look(ptr_level_f func, int i, int j, int ib, int jb, int qq, double
       y_cont(j));
     break;
   default :
-    sciprint(_("Error in case wrong value"));
     break;
   }
   wflag=1;
@@ -290,7 +289,7 @@ static void look(ptr_level_f func, int i, int j, int ib, int jb, int qq, double
 *  gives the dash style for contour i
 *-------------------------------------------------------*/
 
-static void contourI(ptr_level_f func, double *x, double *y, double *z, double *zCont, int *N, int *style, int *err)
+static int contourI(ptr_level_f func, double *x, double *y, double *z, double *zCont, int *N, int *style, int *err)
 {
   int check = 1;
   char *F;
@@ -315,8 +314,8 @@ static void contourI(ptr_level_f func, double *x, double *y, double *z, double *
     FREE( xbd_cont ) ;
     FREE( ybd_cont ) ;
     FREE( itg_cont ) ;
-    sciprint(_("%s: No more memory.\n"),"contourI");
-    return;
+    Scierror(999, _("%s: No more memory.\n"),"contourI");
+    return -1;
   }
   /* just a parametrization of the boundary points */
   for ( i = 0 ; i <  n2 ; i++)
@@ -365,7 +364,8 @@ static void contourI(ptr_level_f func, double *x, double *y, double *z, double *
   FREE( xbd_cont ) ;
   FREE( ybd_cont ) ;
   FREE( itg_cont ) ;
-
+       
+       return 0;
 }
 
 int C2F(contourif)(double *x, double *y, double *z, int *n1, int *n2, int *flagnz, int *nz, double *zz, int *style)
@@ -382,8 +382,8 @@ int C2F(contourif)(double *x, double *y, double *z, int *n1, int *n2, int *flagn
     {
       if ( ( zconst = MALLOC( (*nz) * sizeof(double) ) ) == 0 ) 
        {
-         sciprint(_("%s: No more memory.\n"),"contourif");
-         return 0;
+         Scierror(999, _("%s: No more memory.\n"),"contourif");
+         return -1;
        }
       for ( i =0 ; i < *nz ; i++) 
        zconst[i]=zmin + (i+1)*(zmax-zmin)/(*nz+1);
@@ -398,7 +398,7 @@ int C2F(contourif)(double *x, double *y, double *z, int *n1, int *n2, int *flagn
       contourI(GContStore2,x,y,z,zz,N,style,&err);
     }
 
-  return(0);
+  return 0 ;
 }
 
 
index cab7ab2..683d8d9 100644 (file)
@@ -24,6 +24,7 @@ for entities handling
 #include "DrawObjects.h"
 #include "MALLOC.h"
 #include "sciprint.h"
+#include "Scierror.h"
 #include "CurrentObjectsManagement.h"
 #include "DrawingBridge.h"
 #include "localization.h"
@@ -169,7 +170,7 @@ int C2F(fec)(double *x, double *y, double *triangles, double *func, int *Nnode,
   if (pFec == NULL)
   {
     // error in allocation
-    sciprint(_("%s: No more memory.\n"), "fec");
+    Scierror(999, _("%s: No more memory.\n"), "fec");
     return -1;
   }
 
index 4597446..4652b09 100644 (file)
@@ -974,19 +974,14 @@ int GradLog( double   _min   ,
 
 
   size = log_max - log_min +1;
-  /*  tab=(int *)MALLOC(size*sizeof(int); */
-
-  /*   for(i=0;i<size;i++) tab[i]=log_min+i; */
 
   *n_grads = 0 ;
 
   if(size <= MAX_LOG_TICKS)    {
     for(i=0;i<size;i++)
     {
-      /*    _grads[i] = exp10(tab[i]); */
       _grads[i] = log_min+i;
       *n_grads = (*n_grads) + 1;
-      /*         sciprint("Juste en sortie, _grads[%d] = %lf\n",i, _grads[i]); */
     }
   }
   else
@@ -1024,7 +1019,6 @@ int GradLog( double   _min   ,
           _grads[i] = log_min+(i*pas);
 
           *n_grads = (*n_grads) + 1;
-          /*       sciprint("Juste en sortie, _grads[%d] = %lf\n",i, _grads[i]); */
         }
       }
   }
@@ -1063,7 +1057,7 @@ int ComputeC_format(sciPointObj * pobj, char * c_format)
 
 
        if(sciGetEntityType(pobj) != SCI_AXES){
-               sciprint(_("Error: ComputeFormat must be used with SCI_AXES objects\n"));
+               Scierror(999, _("Error: ComputeFormat must be used with SCI_AXES objects\n"));
                return -1;
        }
 
@@ -1072,22 +1066,22 @@ int ComputeC_format(sciPointObj * pobj, char * c_format)
        /* Allocating space before re-copying values to not polluate the good values 
        that will be used inside Axes.c */
        if((x=MALLOC((pAXES_FEATURE (pobj)->nx)*sizeof(double)))==NULL){
-               sciprint(_("%s: No more memory.\n"),"ComputeC_format");
+               Scierror(999, _("%s: No more memory.\n"),"ComputeC_format");
                return -1;
        }
 
        if((y=MALLOC((pAXES_FEATURE (pobj)->ny)*sizeof(double)))==NULL){
-               sciprint(_("%s: No more memory.\n"),"ComputeC_format");
+               Scierror(999, _("%s: No more memory.\n"),"ComputeC_format");
                return -1;
        }
 
        if((nx=MALLOC(sizeof(int)))==NULL){
-               sciprint(_("%s: No more memory.\n"),"ComputeC_format");
+               Scierror(999, _("%s: No more memory.\n"),"ComputeC_format");
                return -1;
        }  
 
        if((ny=MALLOC(sizeof(int)))==NULL){
-               sciprint(_("%s: No more memory.\n"),"ComputeC_format");
+               Scierror(999, _("%s: No more memory.\n"),"ComputeC_format");
                return -1;
        }
 
@@ -1174,7 +1168,12 @@ int ComputeC_format(sciPointObj * pobj, char * c_format)
                }
                break;
        default: 
-               sciprint(_("%s: Wrong type argument %s.\n"),"Sci_Axis","xy_type");
+               Scierror(999, _("%s: Wrong type argument %s.\n"),"Sci_Axis","xy_type");
+               FREE(x); x = NULL;
+               FREE(y); y = NULL;
+               FREE(nx); nx = NULL;
+               FREE(ny); ny = NULL;
+               return -1;
        }
 
        switch (pos) 
@@ -1259,7 +1258,7 @@ int ComputeXIntervals( sciPointObj * pobj, char xy_type, double ** vector, int *
     *N = n = nval;
 
     if((*vector = (double *) MALLOC(n*sizeof(double ))) == NULL){
-         sciprint(_("%s: No more memory.\n"),"ComputeXIntervals");
+                       Scierror(999, _("%s: No more memory.\n"),"ComputeXIntervals");
       return -1;
     }
 
@@ -1277,14 +1276,14 @@ int ComputeXIntervals( sciPointObj * pobj, char xy_type, double ** vector, int *
         sciprint(_("Warning: %s must be changed, %s is '%s' and %s dimension is not %d.\n"),"tics_coord","xy_type","r","tics_coord",3);
 
       if(nval < 3){
-        sciprint(_("Error: %s must be changed FIRST, %s is '%s' and %s dimension < %d.\n"),"tics_coord","xy_type","r","tics_coord",3);
+        Scierror(999, _("%s must be changed FIRST, %s is '%s' and %s dimension < %d.\n"),"tics_coord","xy_type","r","tics_coord",3);
         *vector = (double *) NULL;
         return -1;
       }
     }
 
     if((*vector = (double *) MALLOC(n*sizeof(double ))) == NULL){
-         sciprint(_("%s: No more memory.\n"),"ComputeXIntervals");
+                       Scierror(999, _("%s: No more memory.\n"),"ComputeXIntervals");
       return -1;
     }
 
@@ -1307,14 +1306,14 @@ int ComputeXIntervals( sciPointObj * pobj, char xy_type, double ** vector, int *
         sciprint(_("Warning: %s must be changed, %s is '%s' and %s dimension is not %d.\n"),"tics_coord","xy_type","i","tics_coord",4);
 
       if(nval < 4){
-        sciprint(_("Error: %s must be changed FIRST, %s is '%s' and %s dimension < %d.\n"),"tics_coord","xy_type","i","tics_coord",4);
+        Scierror(999, _("%s must be changed FIRST, %s is '%s' and %s dimension < %d.\n"),"tics_coord","xy_type","i","tics_coord",4);
         *vector = (double *) NULL;
         return -1;
       }
     }
 
     if((*vector =(double *)  MALLOC(n*sizeof(double ))) == NULL){
-         sciprint(_("%s: No more memory.\n"),"ComputeXIntervals");
+                       Scierror(999, _("%s: No more memory.\n"),"ComputeXIntervals");
       return -1;
     }
 
@@ -1362,7 +1361,7 @@ StringMatrix * computeDefaultTicsLabels( sciPointObj * pobj )
   /* vector is allocated here */
   if( ComputeXIntervals( pobj, pAXES_FEATURE (pobj)->tics, &vector, &nbTics, 1 ) != 0 )
   {
-    Scierror(999,_("Error: Bad size in %s: you must first increase the size of the %s.\n"),"tics_coord","tics_coord");
+    Scierror(999,_("Bad size in %s: you must first increase the size of the %s.\n"),"tics_coord","tics_coord");
     return 0;
   }
 
@@ -1371,7 +1370,7 @@ StringMatrix * computeDefaultTicsLabels( sciPointObj * pobj )
 
   if ( curLabelBuffer == NULL )
   {
-         sciprint(_("%s: No more memory.\n"),"computeDefaultTicsLabels");
+         Scierror(999, _("%s: No more memory.\n"),"computeDefaultTicsLabels");
          return NULL ;
   }
 
@@ -1424,7 +1423,6 @@ char * copyFormatedValue( double value, const char format[5], int bufferSize )
 
   if ( buffer == NULL )
   {
-         sciprint(_("%s: No more memory.\n"),"copyFormatedValue");
          return NULL ;
   }
 
@@ -1436,7 +1434,6 @@ char * copyFormatedValue( double value, const char format[5], int bufferSize )
 
   if ( res == NULL )
   {
-         sciprint(_("%s: No more memory.\n"),"copyFormatedValue");
          FREE( buffer ) ;
          return NULL ;
   }
@@ -1455,7 +1452,6 @@ char ** copyFormatedArray( const double values[], int nbStrings, const char form
 
   if ( res == NULL )
   {
-         sciprint(_("%s: No more memory.\n"),"copyFormatedArray");
          return NULL ;
   }
 
index 9804869..fab2327 100644 (file)
@@ -27,6 +27,7 @@
 #include "DrawObjects.h"
 #include "BuildObjects.h"
 #include "Axes.h"
+#include "Scierror.h"
 #include "sciprint.h"
 #include "CurrentObjectsManagement.h"
 #include "GrayPlot.h"
@@ -125,7 +126,8 @@ int C2F(xgray)(double *x, double *y, double *z, int *n1, int *n2, char *strflag,
       CreatePrettyGradsFromNax(psubwin,aaint);
     }
     else{
-      sciprint(_("Warning: Nax does not work with logarithmic scaling\n"));}
+      sciprint(_("Warning: Nax does not work with logarithmic scaling\n"));
+               }
   }
 
   if( bounds_changed || axes_properties_changed )
@@ -256,7 +258,7 @@ int C2F(xgray1)(double *z, int *n1, int *n2, char *strflag, double *brect, int *
   if (pGrayplot == NULL)
   {
     // allocation error
-    sciprint(_("%s: No more memory.\n"), "grayplot");
+    Scierror(999, _("%s: No more memory.\n"), "grayplot");
     return -1;
   }
 
index 3e447c7..6995795 100644 (file)
@@ -36,7 +36,6 @@
 #include "BuildObjects.h"
 #include "WindowList.h"
 #include "DoublyLinkedList.h"
-#include "sciprint.h"
 #include "CurrentObjectsManagement.h"
 #include "ObjectSelection.h"
 #include "BuildDrawingObserver.h"
@@ -156,7 +155,6 @@ extern int sciDelHandle
     case 5:/* in prevision */
     case 7:/* in prevision */
     default:
-      sciprint(_("No handle to delete.\n"));
       return -1;
       break;
     }
@@ -190,7 +188,6 @@ sciGetPointerFromHandle (long handle)
       
       if (phandletab == NULL)
        {
-         /* sciprint ("this is not or no more a valid handle !!\n");  F.Leray Adding 'or no more' */
          return (sciPointObj *) NULL;
        }  
       return (sciPointObj *) phandletab->pointobj;
@@ -201,7 +198,6 @@ sciGetPointerFromHandle (long handle)
     return (sciPointObj *) getAxesModel();
   else
     {
-      /* sciprint ("this is not or no more a valid handle !!\n");  F.Leray Adding 'or no more' */
       return (sciPointObj *) NULL;
     }
     
@@ -537,7 +533,6 @@ BOOL sciDelSonFromItsParent(sciSons * son, sciPointObj * parent)
     case 5:
     case 7:
     default :
-      sciprint(_("There is no Son in this Parent.\n"));
       return FALSE;
       break;
     }
index 7351151..67fc7e1 100644 (file)
@@ -31,7 +31,6 @@
 #include "DrawObjects.h"
 #include "PloEch.h"
 #include "axesScale.h"
-#include "sciprint.h"
 #include "Format.h"
 #include "scirun.h"
 #include "CurrentObjectsManagement.h"
index 8a61d65..a12ee31 100644 (file)
@@ -33,6 +33,7 @@
 #include "Axes.h"
 #include "BasicAlgos.h"
 #include "sciprint.h"
+#include "Scierror.h"
 #include "CurrentObjectsManagement.h"
 #include "GraphicSynchronizerInterface.h"
 
@@ -211,15 +212,15 @@ int plot2dn(int ptype,char *logflags,double *x,double *y,int *n1,int *n2,int *st
   /*---- Drawing the curves and the legends ----*/
   if ( *n1 != 0 ) {
          if ((hdltab = MALLOC ((*n1+1) * sizeof (long))) == NULL) {
-                 sciprint(_("%s: No more memory.\n"),"plot2d");
-                 return 0;
+                 Scierror(999, _("%s: No more memory.\n"),"plot2d");
+                 return -1;
     }
     if (with_leg) {
       /* tabofhandles allocated for legends */
       if ((tabofhandles = MALLOC((*n1)*sizeof(long long))) == NULL) {
-        sciprint(_("%s: No more memory.\n"),"plot2d");
+        Scierror(999, _("%s: No more memory.\n"),"plot2d");
         FREE(hdltab);
-        return 0;
+        return -1;
       }
     }
 
@@ -246,7 +247,7 @@ int plot2dn(int ptype,char *logflags,double *x,double *y,int *n1,int *n2,int *st
       if (pobj == NULL)
       {
         // skip
-        sciprint(_("%s: No more memory.\n"), "plot2d");
+        Scierror(999, _("%s: No more memory.\n"), "plot2d");
       }
       else
       {
@@ -278,18 +279,10 @@ int plot2dn(int ptype,char *logflags,double *x,double *y,int *n1,int *n2,int *st
       if (scitokenize(legend, &Str, &nleg)) {
        FREE(tabofhandles);
        FREE(hdltab);
-       sciprint(_("%s: No more memory.\n"),"plot2d");
+       Scierror(999, _("%s: No more memory.\n"),"plot2d");
         endFigureDataWriting(curFigure);
        return 0;
       }
-
-      /* if (nleg < cmpt) {
-       FREE(tabofhandles);
-        for (jj = 0; jj < nleg; jj++) { FREE(Str[jj]); }
-       FREE(Str);
-       sciprint(_("%s: Invalid legend ignored.\n"),"plot2d");
-      }
-      else {*/
       Leg = ConstructLegend(sciGetCurrentSubWin(),Str,tabofhandles,Min(nleg,cmpt));
        if (Leg != NULL)
          {
index 0061c9b..8d1b8b2 100644 (file)
@@ -19,7 +19,6 @@
 
 #include "getPropertyAssignedValue.h"
 #include "stack-c.h"
-#include "sciprint.h"
 #include "localization.h"
 #include "MALLOC.h"
 #include "BasicAlgos.h"
@@ -180,7 +179,6 @@ AssignedList * createAssignedList( int paramNum, int nbElement )
   /* check the size */
   if ( nbRow != newList->nbElement || nbCol != 1 )
   {
-    sciprint(_("Wrong size for tlist.\n"));
     return NULL ;
   }
   return newList ;
index f295372..b7eac24 100644 (file)
@@ -44,7 +44,7 @@ int get_tics_labels_property( sciPointObj * pobj )
 
     if ( tics_labels == NULL )
     {
-      Scierror(999, _("An error occured when allocating temporary tics.\n")) ;
+      Scierror(999, _("%s: No more memory.\n"), "get_tics_labels_property") ;
       return -1 ;
     }
 
index 1f39b3c..500120a 100644 (file)
@@ -21,7 +21,6 @@
 #include "getHandleProperty.h"
 #include "GetProperty.h"
 #include "returnProperty.h"
-#include "sciprint.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
index 9c097a7..e6ae3f9 100644 (file)
@@ -76,8 +76,19 @@ int set_xtics_coord_property( sciPointObj * pobj, size_t stackPointer, int value
   pAXES_FEATURE(pobj)->vx = createCopyDoubleVectorFromStack( stackPointer, nbCol ) ;
 
 
-  ComputeXIntervals( pobj, pAXES_FEATURE(pobj)->tics, &vector, &N, 0 ) ;
-  ComputeC_format( pobj, c_format ) ;
+  if (ComputeXIntervals( pobj, pAXES_FEATURE(pobj)->tics, &vector, &N, 0 ) != 0)
+       {
+               /* Somthing wrong happened */
+               FREE( vector ) ;
+               return -1;
+       }
+
+  if (ComputeC_format( pobj, c_format ) != 0)
+       {
+               /* Somthing wrong happened */
+               FREE( vector ) ;
+               return -1;
+       }
 
   if( pAXES_FEATURE(pobj)->str != NULL )
   {
@@ -92,7 +103,7 @@ int set_xtics_coord_property( sciPointObj * pobj, size_t stackPointer, int value
 
   if ( pAXES_FEATURE(pobj)->str == NULL )
   {
-    Scierror(999, "error allocating vector.\n");
+    /* Somthign wrong occured */
     return SET_PROPERTY_ERROR ;
   }
 
index 89a89d3..b1956f0 100644 (file)
@@ -29,7 +29,7 @@
 #include "math_graphics.h"
 #include "PloEch.h"
 #include "Axes.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "Fec.h"
 #include "GrayPlot.h"
 #include "CurrentObjectsManagement.h"
@@ -422,7 +422,7 @@ void Objplot3d ( char    * fname ,
     /* F.Leray 25.04.05 replace the default labels by the user labels if specified */
     loc=(char *) MALLOC( (strlen(legend)+1)*sizeof(char));
     if ( loc == NULL) {
-               sciprint(_("%s: No more memory.\n"),"Objplot3d");
+               Scierror(999, _("%s: No more memory.\n"),"Objplot3d");
        }
   
     strcpy(loc,legend);
@@ -618,7 +618,7 @@ void Objplot3d ( char    * fname ,
       if ( monotony == 0 )
       {
         endFigureDataWriting(parentFigure);
-        sciprint(_("%s: x vector is not monotonous.\n"),"Objplot3d");
+        Scierror(999, _("%s: x vector is not monotonous.\n"),"Objplot3d");
         return;
       }
 
@@ -650,7 +650,7 @@ void Objplot3d ( char    * fname ,
       if ( monotony == 0 )
       {
         endFigureDataWriting(parentFigure);
-        sciprint(_("%s: x vector is not monotonous.\n"),"Objplot3d");
+        Scierror(999, _("%s: x vector is not monotonous.\n"),"Objplot3d");
         return ;
       }