sort is obsolete
Allan CORNET [Wed, 23 Sep 2009 08:20:09 +0000 (10:20 +0200)]
scilab/CHANGES_5.2.X
scilab/RELEASE_NOTES_5.2.X
scilab/modules/elementary_functions/sci_gateway/c/sci_sort.c
scilab/modules/elementary_functions/tests/nonreg_tests/bug_3159.dia.ref
scilab/modules/elementary_functions/tests/nonreg_tests/bug_3159.tst
scilab/modules/elementary_functions/tests/unit_tests/sort.dia.ref
scilab/modules/elementary_functions/tests/unit_tests/sort.tst

index 526d098..6dcdff8 100644 (file)
@@ -240,6 +240,11 @@ Linear algebra
 =============
  - Clarified documentation for lu function.
 
+elementary functions
+=============
+ - 'sort' is obsolete. see 'gsort'
+
+
 Bug fixes:
 ==========
 
index 51a7326..931371d 100644 (file)
@@ -8,3 +8,5 @@ Known incompatibilities:
   height no more set the window size itself but the size of the virtual graphics
   window (the part of the figure which contains uicontrols and graphics) as if
   the user sets the axes_size property of a figure.
+
+- 'sort' is obsolete. see 'gsort'
\ No newline at end of file
index 37cab44..b3dbce2 100644 (file)
@@ -13,6 +13,9 @@
 #include <string.h>
 #include "gw_elementary_functions.h"
 #include "stack-c.h"
+#include "warningmode.h"
+#include "sciprint.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(intsort) (int *id);
 extern int C2F(intssort) (int *id);
@@ -27,6 +30,13 @@ int C2F(sci_sort) (char *fname,unsigned long fname_len)
        CheckRhs(1,2);
        CheckLhs(1,2);
 
+       if (getWarningMode())
+       {
+               sciprint(_("WARNING: Function %s is obsolete.\n"), fname);
+               sciprint(_("WARNING: Please use %s instead.\n"), "gsort");
+               sciprint(_("WARNING: This function will be permanently removed in Scilab %s.\n"), "5.3");
+       }
+
        if ( VarType(1) == sci_strings ) 
        {
                C2F(intssort)(id);
index 156a2b9..951209c 100644 (file)
@@ -11,6 +11,7 @@
 // http://bugzilla.scilab.org/show_bug.cgi?id=3159
 //
 // <-- Short Description -->
+warning('off')
 x = [1 2 3 2 2 3 5 4];
 refsx_sort =  [  5.    4.    3.    3.    2.    2.    2.    1. ];
 refsi_sort =  [  7.    8.    3.    6.    2.    4.    5.    1. ];
@@ -22,3 +23,4 @@ if or(refsx_sort<>sx_sort) then bugmes();quit;end
 if or(refsi_sort<>si_sort) then bugmes();quit;end
 if or(refsx_gsort<>sx_gsort) then bugmes();quit;end
 if or(refsi_gsort<>si_gsort) then bugmes();quit;end
+warning('on')
\ No newline at end of file
index 897f47d..06dc3e6 100644 (file)
@@ -13,6 +13,7 @@
 // http://bugzilla.scilab.org/show_bug.cgi?id=3159
 //
 // <-- Short Description -->
+warning('off')
 x = [1 2 3 2 2 3 5 4];
 refsx_sort =  [  5.    4.    3.    3.    2.    2.    2.    1. ];
 refsi_sort =  [  7.    8.    3.    6.    2.    4.    5.    1. ];
@@ -27,4 +28,4 @@ if or(refsi_sort<>si_sort) then pause,end
 
 if or(refsx_gsort<>sx_gsort) then pause,end
 if or(refsi_gsort<>si_gsort) then pause,end
-
+warning('on')
index c41a274..d2a98b2 100644 (file)
@@ -5,6 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- JVM NOT MANDATORY -->
+warning('off')
 //================================
 a=[5 1 3 2 4];
 if or(sort(a)<>[5 4 3 2 1]) then bugmes();quit;end
@@ -68,3 +69,4 @@ y = complex(A,B);
 if or( b <> [3 2 1 4 5] ) then bugmes();quit;end
 if ( y(b) <> a  ) then bugmes();quit;end
 //================================
+warning('on')
\ No newline at end of file
index 82519de..91685d3 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 
 // <-- JVM NOT MANDATORY -->
-
+warning('off')
 //================================
 a=[5 1 3 2 4];
 if or(sort(a)<>[5 4 3 2 1]) then pause,end
@@ -70,3 +70,4 @@ y = complex(A,B);
 if or( b <> [3 2 1 4 5] ) then pause,end
 if ( y(b) <> a  ) then pause,end
 //================================
+warning('on')
\ No newline at end of file