error(999, ..): removing ref. to 999, 12/19712/2
Samuel GOUGEON [Wed, 31 Jan 2018 22:04:14 +0000 (23:04 +0100)]
Change-Id: Ibde1960f78ceb22061d9d45166ea42e935e20cdd

34 files changed:
scilab/modules/data_structures/macros/lstsize.sci
scilab/modules/dynamic_link/macros/ilib_build.sci
scilab/modules/dynamic_link/macros/ilib_build_jar.sci
scilab/modules/dynamic_link/macros/ilib_compile.sci
scilab/modules/dynamic_link/macros/ilib_for_link.sci
scilab/modules/dynamic_link/macros/ilib_gen_Make.sci
scilab/modules/dynamic_link/macros/ilib_gen_Make_unix.sci
scilab/modules/dynamic_link/macros/ilib_gen_gateway.sci
scilab/modules/dynamic_link/macros/ilib_gen_loader.sci
scilab/modules/dynamic_link/macros/ilib_mex_build.sci
scilab/modules/dynamic_link/macros/windows/dlwForceRebuild.sci
scilab/modules/dynamic_link/macros/windows/dlwGenerateMakefile.sci
scilab/modules/elementary_functions/macros/%_kron.sci
scilab/modules/elementary_functions/macros/%sp_gsort.sci
scilab/modules/fileio/macros/dir.sci
scilab/modules/fileio/macros/ls.sci
scilab/modules/fileio/macros/mkdir.sci
scilab/modules/functions/macros/deff.sci
scilab/modules/functions/macros/get_function_path.sci
scilab/modules/graphics/macros/contour.sci
scilab/modules/graphics/macros/contour2d.sci
scilab/modules/graphics/macros/contourf.sci
scilab/modules/graphics/macros/createConstraints.sci
scilab/modules/graphics/macros/createLayoutOptions.sci
scilab/modules/gui/macros/createBorder.sci
scilab/modules/gui/macros/createBorderFont.sci
scilab/modules/helptools/macros/help.sci
scilab/modules/localization/tests/unit_tests/CreateDir.sce
scilab/modules/overloading/macros/%ip_string.sci
scilab/modules/signal_processing/macros/system.sci
scilab/modules/sound/macros/soundsec.sci
scilab/modules/xcos/macros/getDiagramVersion.sci
scilab/modules/xcos/macros/xcosValidateBlockSet.sci
scilab/modules/xcos/macros/xcosValidateCompareBlock.sci

index c9e904c..449d91f 100644 (file)
@@ -15,17 +15,17 @@ function l=lstsize(varargin)
     warnobsolete("size()","6.1");
     [lhs, rhs] = argn(0);
     if lhs <> 1 then
-        error(999, msprintf(_("%s: Wrong number of output arguments: %d expected.\n"), "lstsize", 1));
+        error(msprintf(_("%s: Wrong number of output arguments: %d expected.\n"), "lstsize", 1));
     end
 
     if rhs <> 1 then
-        error(999, msprintf(_("%s: Wrong number of input arguments: %d expected.\n"), "lstsize", 1));
+        error(msprintf(_("%s: Wrong number of input arguments: %d expected.\n"), "lstsize", 1));
     end
 
 
     var = varargin(1);
     if type(var) <> 15 & type(var) <> 16 & type(var) <> 17 then
-        error(999, msprintf(_("%s: Wrong type for argument %d: List expected.\n"), "lstsize", 1));
+        error(msprintf(_("%s: Wrong type for argument %d: List expected.\n"), "lstsize", 1));
     end
 
     l = size(var);
index dd29f06..bf92d65 100644 (file)
@@ -34,15 +34,15 @@ function ilib_build(ilib_name, ..
     end
 
     if type(ilib_name) <> 10 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_build", 1));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_build", 1));
     end
 
     if size(ilib_name,"*") <> 1 then
-        error(999, msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_build", 1));
+        error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_build", 1));
     end
 
     if type(table) <> 10 then
-        error(999,msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build", 2));
+        error(msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build", 2));
     end
 
     if getos() <> "Windows" & strncpy(ilib_name, 3) <> "lib" then
@@ -51,7 +51,7 @@ function ilib_build(ilib_name, ..
     end
 
     if ~isempty(files) & (or(fileext(files)==".o") | or(fileext(files)==".obj")) then
-        error(999, msprintf(_("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3));
+        error(msprintf(_("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3));
     end
 
     if rhs > 4 then
@@ -61,7 +61,7 @@ function ilib_build(ilib_name, ..
     end
 
     if ~isempty(files) & ~and(isfile(files)) then
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_build", 3));
+        error(msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_build", 3));
     end
 
 
@@ -85,7 +85,7 @@ function ilib_build(ilib_name, ..
 
     // check if library is not already loaded
     if or(link() == ilib_name) then
-        error(999, msprintf(_("%s: ""%s"" already loaded in scilab."),"ilib_build",ilib_name) + ..
+        error(msprintf(_("%s: ""%s"" already loaded in scilab."),"ilib_build",ilib_name) + ..
         ascii(10) + _("You need to unload this library before."));
     end
 
@@ -104,7 +104,7 @@ function ilib_build(ilib_name, ..
 
     for i = 1:size(lang, "*")
         if isempty(grep(l, lang(i))) then
-            error(999, msprintf(_("%s: ""%s"" format is not supported by your compiler."), "ilib_build", lang(i)));
+            error(msprintf(_("%s: ""%s"" format is not supported by your compiler."), "ilib_build", lang(i)));
         end
     end
 
index 51c46e9..d20bf82 100644 (file)
@@ -144,31 +144,31 @@ function ilib_build_jar(jarFilePath, packageNames, sourcePaths, classPaths, mani
 
     // Input argument 1: jar file path
     if type(jarFilePath) <> 10 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_build_jar", 1));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_build_jar", 1));
     end
     if size(jarFilePath, "*") <> 1 then
-        error(999, msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_build_jar", 1));
+        error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_build_jar", 1));
         return;
     end
 
     // Input argument 2: package names
     if rhs > 2 then
         if type(packageNames) <> 10 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build_jar", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build_jar", 2));
             return;
         end
     end
 
     // Input argument 3: source paths
     if type(sourcePaths) <> 10 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build_jar", 3));
+        error(msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build_jar", 3));
         return;
     end
 
     // Input argument 4 (optional): class paths
     if rhs > 3 then
         if type(classPaths) <> 10 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build_jar", 4));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build_jar", 4));
             return;
         end
     else
@@ -178,7 +178,7 @@ function ilib_build_jar(jarFilePath, packageNames, sourcePaths, classPaths, mani
     // Input argument 5 (optional): manifest file path
     if rhs > 4 then
         if type(manifestFilePath) <> 10 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build_jar", 5));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "ilib_build_jar", 5));
             return;
         end
     else
index 042c448..7fc6e5d 100644 (file)
@@ -43,7 +43,7 @@ function libn = ilib_compile(lib_name, ..
         files = [];
     else
         if ~isempty(files) & (or(fileext(files)==".o") | or(fileext(files)==".obj")) then
-            error(999, msprintf(_("%s: A managed file extension for input argument #%d expected."), "ilib_compile", 3));
+            error(msprintf(_("%s: A managed file extension for input argument #%d expected."), "ilib_compile", 3));
         end
     end
 
index e647185..4af3b5f 100644 (file)
@@ -43,11 +43,11 @@ function libn = ilib_for_link(names, ..
     if rhs <= 10 then cc  = ""; end
 
     if isempty(files) | ~and(isfile(files)) then
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_for_link", 2));
+        error(msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_for_link", 2));
     end
 
     if ~isempty(files) & (or(fileext(files)==".o") | or(fileext(files)==".obj")) then
-        error(999, msprintf(_("%s: A managed file extension for input argument #%d expected.\n"), "ilib_for_link", 2));
+        error(msprintf(_("%s: A managed file extension for input argument #%d expected.\n"), "ilib_for_link", 2));
     end
 
     if getos() == "Windows" then
@@ -74,7 +74,7 @@ function libn = ilib_for_link(names, ..
             end
         else
             if flag == "f90" then
-                error(999, _("F2C cannot build fortran 90"));
+                error(_("F2C cannot build fortran 90"));
             end
         end
     end
index e3d7a37..153db37 100644 (file)
@@ -38,7 +38,7 @@ function Makename = ilib_gen_Make(name, ..
     end
 
     if ~isempty(files) & ~and(isfile(files)) then
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_gen_Make", 3));
+        error(msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_gen_Make", 3));
     end
 
     // remove duplicate files
index adae8de..dadd1c5 100644 (file)
@@ -153,7 +153,7 @@ function ilib_gen_Make_unix(names,   ..
                 end
 
                 if ~isfile(pathFrom + "/" + file_name + file_extension) then
-                    error(999, msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected. Provided: %s\n"), "ilib_gen_Make_unix", 2, pathFrom + "/" + file_name + file_extension));
+                    error(msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected. Provided: %s\n"), "ilib_gen_Make_unix", 2, pathFrom + "/" + file_name + file_extension));
                 end
 
                 filelist = filelist + " " + file_name + file_extension;
@@ -169,7 +169,7 @@ function ilib_gen_Make_unix(names,   ..
                 for f=filesMatching(:)'
 
                     if ~isfile(f) then
-                        error(999, msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_gen_Make_unix", 2));
+                        error(msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_gen_Make_unix", 2));
                     end
 
                     if strindex(f,ignoredFileExtension) == [] then
index 7365826..7bf685b 100644 (file)
@@ -262,7 +262,7 @@ function [gate,names,cppCompilation] = new_names(table)
             names(i) = table(i,2);
             gate(i, 1) = "STACK_GATEWAY_PROTOTYPE(" + names(i) + ");";
         else
-            error(999,"Wrong interface type " + table(i,3));
+            error("Wrong interface type " + table(i,3));
         end
     end
 endfunction
index 995d7d5..7a57bb0 100644 (file)
@@ -50,12 +50,12 @@ function ilib_gen_loader(varargin)
     end
 
     if type(name) <> 10 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 1));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 1));
     end
 
     if tables <> [] then
         if type(tables) <> 10 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 2));
         end
     else
         backupTables = tables;
@@ -78,31 +78,31 @@ function ilib_gen_loader(varargin)
     end
 
     if libs <> [] & type(libs) <> 10 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 3));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 3));
     end
 
     if type(libname) <> 10 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 4));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 4));
     end
 
     if size(libname,"*") <> 1 then
-        error(999, msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_gen_loader", 4));
+        error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_gen_loader", 4));
     end
 
     if type(flag) <> 10 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 5));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 5));
     end
 
     if size(flag,"*") <> 1 then
-        error(999, msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_gen_loader", 5));
+        error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_gen_loader", 5));
     end
 
     if type(loadername) <> 10 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 6));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_gen_loader", 6));
     end
 
     if size(loadername,"*") <> 1 then
-        error(999, msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_gen_loader", 6));
+        error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "ilib_gen_loader", 6));
     end
 
     if libname == "" then
index d57d616..eb49da4 100644 (file)
@@ -30,11 +30,11 @@ function ilib_mex_build(ilib_name, table, files, libs, makename, ldflags, cflags
     end
 
     if ~isempty(files) & (or(fileext(files)==".o") | or(fileext(files)==".obj")) then
-        error(999, msprintf(_("%s: A managed file extension for input argument #%d expected."), "ilib_mex_build", 3));
+        error(msprintf(_("%s: A managed file extension for input argument #%d expected."), "ilib_mex_build", 3));
     end
 
     if ~isempty(files) & ~and(isfile(files)) then
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_mex_build", 3));
+        error(msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_mex_build", 3));
     end
 
     if rhs <= 5 then ldflags = ""; end
index c9a8a3c..af8a5d7 100644 (file)
@@ -20,11 +20,11 @@ function r = dlwForceRebuild(varargin)
     if rhs == 1 then
         newValue = varargin(1);
         if type(newValue) <> 4 then
-            error(999,msprintf(_("%s: Wrong type for input argument #%d: A boolean expected.\n"), "dlwForceRebuild", 1));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A boolean expected.\n"), "dlwForceRebuild", 1));
         end
 
         if size(newValue,"*") <> 1 then
-            error(999,msprintf(_("%s: Wrong size for input argument #%d: A scalar expected.\n"), "dlwForceRebuild", 1));
+            error(msprintf(_("%s: Wrong size for input argument #%d: A scalar expected.\n"), "dlwForceRebuild", 1));
         end
 
         if newValue == %t then
index a5c01d1..8c1ce6a 100644 (file)
@@ -181,7 +181,7 @@ function ilib_gen_Make_win32(name, ..
     end
 
     if isempty(FILES_SRC_MATRIX) | ~and(isfile(FILES_SRC_MATRIX)) then
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_gen_Make", 3));
+        error(msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_gen_Make", 3));
     end
 
     //update DEBUG_SCILAB_DYNAMIC_LINK to map with Scilab compilation mode
index c559a4e..e5391c7 100644 (file)
@@ -16,11 +16,11 @@ function x = %_kron(a, b)
     lhs = argn(1)
 
     if rhs <> 2 then
-        error(999,msprintf(_("%s: Wrong number of output argument(s): %d expected.\n"), "kron", 2));
+        error(msprintf(_("%s: Wrong number of output argument(s): %d expected.\n"), "kron", 2));
     end
 
     if lhs <> 1 then
-        error(999,msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"), "kron", 1));
+        error(msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"), "kron", 1));
     end
 
     x = a .*. b;
index f2942d5..c5ad712 100644 (file)
@@ -41,7 +41,7 @@ function [A, k] = %sp_gsort(A, optsort, directionsort)
 
     [ij, v, mn] = spget(A);
     if mn(1) <> 1 & mn(2) <> 1 then
-        error(999,msprintf(_("%s: Wrong size for input argument #%d: sparse vectors expected.\n"), "gsort", 1));
+        error(msprintf(_("%s: Wrong size for input argument #%d: sparse vectors expected.\n"), "gsort", 1));
     end
 
     if mn(1) == 1 then
index eaf3b7e..59368ba 100644 (file)
@@ -17,7 +17,7 @@ function L=dir(str)
 
     if argn(2) == 1 then
         if type(str) <> 10 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "dir", 1));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "dir", 1));
         end
 
         files = listfiles(str);
index 141c738..523d873 100644 (file)
@@ -23,7 +23,7 @@ function files=ls(varargin)
     else
         path = varargin(1);
         if type(path) <> 10 then
-            error(999,msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"),"ls",1));
+            error(msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"),"ls",1));
         end
         for k=2:size(varargin)
             opts = [opts varargin(k)];
index 6d0b66d..17a333a 100644 (file)
@@ -32,11 +32,11 @@ function [status, msg]=mkdir(varargin)
     case 1
         NewDirName   = varargin(1);
         if type(NewDirName) <> 10 then
-            error(999, msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "mkdir", 1));
+            error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "mkdir", 1));
         end
 
         if size(NewDirName, "*") <> 1 then
-            error(999, msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "mkdir", 1));
+            error(msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "mkdir", 1));
         end
 
         NewDirName   = stripblanks(NewDirName, %T);
@@ -50,20 +50,20 @@ function [status, msg]=mkdir(varargin)
     case 2
         DirName  = varargin(1);
         if type(DirName) <> 10 then
-            error(999, msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "mkdir", 1));
+            error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "mkdir", 1));
         end
 
         if size(DirName, "*") <> 1 then
-            error(999, msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "mkdir", 1));
+            error(msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "mkdir", 1));
         end
 
         NewDirName   = varargin(2);
         if type(NewDirName) <> 10 then
-            error(999, msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "mkdir", 2));
+            error(msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "mkdir", 2));
         end
 
         if size(NewDirName, "*") <> 1 then
-            error(999, msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "mkdir", 2));
+            error(msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "mkdir", 2));
         end
 
         NewDirName   = stripblanks(NewDirName, %T);
index df60417..b4e0c6f 100644 (file)
@@ -1,6 +1,6 @@
 function deff(varargin)
     if size(varargin) <> 2  then
-        error(999, msprintf(_("%s: Wrong number of input arguments: %d expected.\n"), "deff", 2));
+        error(msprintf(_("%s: Wrong number of input arguments: %d expected.\n"), "deff", 2));
     end
 
     //try to build execstr string
index bacb2db..447e096 100644 (file)
@@ -22,11 +22,11 @@ function path = get_function_path(name)
     end
 
     if type(name) <> 10 then
-        error(999,msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"get_function_path",1));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"get_function_path",1));
     end
 
     if size(name,"*") <> 1 then
-        error(999,msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"get_function_path",1));
+        error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"get_function_path",1));
     end
 
     libname = whereis(name);
index dc13d8d..1264a5d 100644 (file)
@@ -48,27 +48,27 @@ function contour(x, y, z, nz, theta, alpha, leg, flag, ebox, zlev)
     end
 
     if type(x) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour", 1));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour", 1));
     end
 
     if type(y) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour", 2));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour", 2));
     end
 
     if type(z) <> 1 & type(z) <> 13 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix or Scilab function expected.\n"), "contour", 3));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix or Scilab function expected.\n"), "contour", 3));
     end
 
     if type(nz) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contour", 4));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contour", 4));
     end
 
     if ~isvector(x) then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour", 1));
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour", 1));
     end
 
     if ~isvector(y) then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour", 2));
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour", 2));
     end
 
     levels = [];
index 795da1c..fae4a27 100644 (file)
@@ -25,27 +25,27 @@ function levels = contour2d(x, y, z, nz, style, strf, leg, rect, nax, void)
     end
 
     if type(x) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour2d", 1));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour2d", 1));
     end
 
     if type(y) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour2d", 2));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour2d", 2));
     end
 
     if type(z) <> 1 & type(z) <> 13 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix or Scilab function expected.\n"), "contour2d", 3));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix or Scilab function expected.\n"), "contour2d", 3));
     end
 
     if type(nz) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contour2d", 4));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contour2d", 4));
     end
 
     if ~isvector(x) then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour2d", 1));
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour2d", 1));
     end
 
     if ~isvector(y) then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour2d", 2));
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour2d", 2));
     end
 
     opts = [];
index 68e9273..93701a5 100644 (file)
@@ -55,35 +55,35 @@ function contourf(x, y, z, nv, style, strf, leg, rect, nax)
     end
 
     if type(x) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contourf", 1));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contourf", 1));
     end
 
     if type(y) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contourf", 2));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contourf", 2));
     end
 
     if type(z) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contourf", 3));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contourf", 3));
     end
 
     if type(nv) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contourf", 4));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contourf", 4));
     end
 
     if type(strf) <> 10 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "contourf", 6));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "contourf", 6));
     end
 
     if type(leg) <> 10 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "contourf", 7));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "contourf", 7));
     end
 
     if type(rect) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contourf", 8));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contourf", 8));
     end
 
     if type(nax) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d:  Real matrix expected.\n"), "contourf", 9));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d:  Real matrix expected.\n"), "contourf", 9));
     end
 
 
@@ -100,7 +100,7 @@ function contourf(x, y, z, nv, style, strf, leg, rect, nax)
     end
 
     if type(style) <> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contourf", 5));
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contourf", 5));
     end
 
     if nin <= 7 then
@@ -108,19 +108,19 @@ function contourf(x, y, z, nv, style, strf, leg, rect, nax)
     end
 
     if ~isvector(x) then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contourf", 1));
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contourf", 1));
     end
 
     if ~isvector(y) then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contourf", 2));
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contourf", 2));
     end
 
     if size(strf, "*") <> 1 then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "contourf", 6));
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "contourf", 6));
     end
 
     if size(leg, "*") <> 1 then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "contourf", 7));
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"), "contourf", 7));
     end
 
     nv1 = nv;
index ec13e06..f4fc58e 100644 (file)
@@ -35,13 +35,13 @@ function ret = createConstraints(constType, varargin)
 
         arg1 = varargin(1);
         if typeof(arg1) <> "string" | size(arg1, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createConstraints", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createConstraints", 2));
         end
 
         if size(varargin) > 1 then
             arg2 = varargin(2);
             if typeof(arg2) <> "constant" | size(arg2, "*") <> 2 then
-                error(999, msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 3));
+                error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 3));
             end
         end
 
@@ -60,46 +60,46 @@ function ret = createConstraints(constType, varargin)
 
         arg1 = varargin(1);
         if typeof(arg1) <> "constant" | size(arg1, "*") <> 4 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 2));
         end
 
         if size(varargin) > 1 then
             arg2 = varargin(2);
             if typeof(arg2) <> "constant" | size(arg2, "*") <> 2 then
-                error(999, msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 3));
+                error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 3));
             end
         end
 
         if size(varargin) > 2 then
             arg3 = varargin(3);
             if typeof(arg3) <> "string" | size(arg3, "*") <> 1 then
-                error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createConstraints", 4));
+                error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createConstraints", 4));
             end
         end
 
         if size(varargin) > 3 then
             arg4 = varargin(4);
             if typeof(arg4) <> "string" | size(arg4, "*") <> 1 then
-                error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createConstraints", 5));
+                error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createConstraints", 5));
             end
         end
 
         if size(varargin) > 4 then
             arg5 = varargin(5);
             if typeof(arg5) <> "constant" | size(arg5, "*") <> 2 then
-                error(999, msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 6));
+                error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 6));
             end
         end
 
         if size(varargin) > 5 then
             arg6 = varargin(6);
             if typeof(arg6) <> "constant" | size(arg6, "*") <> 2 then
-                error(999, msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 7));
+                error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createConstraints", 7));
             end
         end
 
         ret = tlist(["GridBagConstraints","grid","weight","fill","anchor","padding","preferredsize"], arg1, arg2, arg3, arg4, arg5, arg6);
     else
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "createConstraints", 1, "none/nolayout, border, grid, gridbag"));
+        error(msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "createConstraints", 1, "none/nolayout, border, grid, gridbag"));
     end
 endfunction
index cab993a..fe91bac 100644 (file)
@@ -30,7 +30,7 @@ function ret = createLayoutOptions(constType, varargin)
         if size(varargin) > 0 then
             arg1 = varargin(1);
             if typeof(arg1) <> "constant" | size(arg1, "*") <> 2 then
-                error(999, msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createLayoutOptions", 2));
+                error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createLayoutOptions", 2));
             end
         end
 
@@ -42,20 +42,20 @@ function ret = createLayoutOptions(constType, varargin)
         if size(varargin) > 0 then
             arg1 = varargin(1);
             if typeof(arg1) <> "constant" | size(arg1, "*") <> 2 then
-                error(999, msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createLayoutOptions", 2));
+                error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createLayoutOptions", 2));
             end
         end
 
         if size(varargin) > 1 then
             arg2 = varargin(2);
             if typeof(arg2) <> "constant" | size(arg2, "*") <> 2 then
-                error(999, msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createLayoutOptions", 3));
+                error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "createLayoutOptions", 3));
             end
         end
         ret = tlist(["OptGrid","grid","padding"], arg1, arg2);
     elseif constType == "gridbag" then
         ret = tlist(["OptGridBag"]);
     else
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "createLayoutOptions", 1, "none/nolayout, border, grid, gridbag"));
+        error(msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "createLayoutOptions", 1, "none/nolayout, border, grid, gridbag"));
     end
 endfunction
index 7417c73..a88ea02 100644 (file)
@@ -31,7 +31,7 @@ function ret = createBorder(constType, varargin)
         //color
         arg1 = varargin(1);
         if typeof(arg1) <> "string" | size(arg1, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 2));
         end
 
         if rhs == 2 then
@@ -42,7 +42,7 @@ function ret = createBorder(constType, varargin)
         //thickness
         arg2 = varargin(2);
         if typeof(arg2) <> "constant" | size(arg2, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 3));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 3));
         end
 
         if rhs == 3 then
@@ -54,7 +54,7 @@ function ret = createBorder(constType, varargin)
         arg3 = varargin(3);
         t = typeof(arg3);
         if (t <> "boolean" & t <> "string") | size(arg3, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A boolean expected.\n"), "createBorder", 4));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A boolean expected.\n"), "createBorder", 4));
         end
 
         if t == "string" then
@@ -74,7 +74,7 @@ function ret = createBorder(constType, varargin)
         //type
         arg1 = varargin(1);
         if typeof(arg1) <> "string" | size(arg1, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 2));
         end
 
         if rhs == 2 then
@@ -85,13 +85,13 @@ function ret = createBorder(constType, varargin)
         //hl or hl out
         arg2 = varargin(2);
         if typeof(arg2) <> "string" | size(arg2, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 3));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 3));
         end
 
         //shadow or hl in
         arg3 = varargin(3);
         if typeof(arg3) <> "string" | size(arg3, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 4));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 4));
         end
 
         if rhs == 4 then
@@ -102,13 +102,13 @@ function ret = createBorder(constType, varargin)
         //shadow out
         arg4 = varargin(4);
         if typeof(arg4) <> "string" | size(arg4, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 5));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 5));
         end
 
         //shadow in
         arg5 = varargin(5);
         if typeof(arg5) <> "string" | size(arg5, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 6));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 6));
         end
 
         ret = tlist(["BevelBorder", "type", "hlouter", "hlinner", "shadowouter", "shadowinner"], arg1, arg2, arg3, arg4, arg5);
@@ -120,7 +120,7 @@ function ret = createBorder(constType, varargin)
         //type
         arg1 = varargin(1);
         if typeof(arg1) <> "string" | size(arg1, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 2));
         end
 
         if rhs == 2 then
@@ -131,13 +131,13 @@ function ret = createBorder(constType, varargin)
         //hl or hl out
         arg2 = varargin(2);
         if typeof(arg2) <> "string" | size(arg2, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 3));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 3));
         end
 
         //shadow or hl in
         arg3 = varargin(3);
         if typeof(arg3) <> "string" | size(arg3, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 4));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 4));
         end
 
         if rhs == 4 then
@@ -148,13 +148,13 @@ function ret = createBorder(constType, varargin)
         //shadow out
         arg4 = varargin(4);
         if typeof(arg4) <> "string" | size(arg4, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 5));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 5));
         end
 
         //shadow in
         arg5 = varargin(5);
         if typeof(arg5) <> "string" | size(arg5, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 6));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 6));
         end
 
         ret = tlist(["SoftBevelBorder", "type", "hlouter", "hlinner", "shadowouter", "shadowinner"], arg1, arg2, arg3, arg4, arg5);
@@ -172,7 +172,7 @@ function ret = createBorder(constType, varargin)
         //type or color
         arg1 = varargin(1);
         if typeof(arg1) <> "string" | size(arg1, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer or a string expected.\n"), "createBorder", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer or a string expected.\n"), "createBorder", 2));
         end
 
         if rhs == 2 then
@@ -183,7 +183,7 @@ function ret = createBorder(constType, varargin)
         //color
         arg2 = varargin(2);
         if typeof(arg2) <> "string" | size(arg2, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 3));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 3));
         end
 
         if rhs == 3 then
@@ -194,7 +194,7 @@ function ret = createBorder(constType, varargin)
         //color
         arg3 = varargin(3);
         if typeof(arg3) <> "string" | size(arg3, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 4));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 4));
         end
 
         ret = tlist(["EtchedBorder", "type", "hl", "shadow"], arg1, arg2, arg3);
@@ -206,7 +206,7 @@ function ret = createBorder(constType, varargin)
         //string or border
         arg1 = varargin(1);
         if typeof(arg1) <> ["string", "LineBorder","BevelBorder","SoftBevelBorder","EtchedBorder","EmptyBorder","MatteBorder"] then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A border or a string expected.\n"), "createBorder", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A border or a string expected.\n"), "createBorder", 2));
         end
 
         if rhs == 2 then
@@ -221,7 +221,7 @@ function ret = createBorder(constType, varargin)
         //title
         arg2 = varargin(2);
         if typeof(arg2) <> "string" | size(arg2, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 3));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 3));
         end
 
         if rhs == 3 then
@@ -232,13 +232,13 @@ function ret = createBorder(constType, varargin)
         //justification
         arg3 = varargin(3);
         if typeof(arg3) <> "string" | size(arg3, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 4));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 4));
         end
 
         //position
         arg4 = varargin(4);
         if typeof(arg4) <> "string" | size(arg4, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 5));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 5));
         end
 
         if rhs == 5 then
@@ -249,7 +249,7 @@ function ret = createBorder(constType, varargin)
         //font
         arg5 = varargin(5);
         if typeof(arg5) <> "BorderFont" then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A Font Border expected.\n"), "createBorder", 6));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A Font Border expected.\n"), "createBorder", 6));
         end
 
         if rhs == 6 then
@@ -260,7 +260,7 @@ function ret = createBorder(constType, varargin)
 
         arg6 = varargin(6);
         if typeof(arg6) <> "string" | size(arg6, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 6));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 6));
         end
 
         ret = tlist(["TitledBorder", "border", "title", "justification", "position", "font", "color"], ...
@@ -277,22 +277,22 @@ function ret = createBorder(constType, varargin)
 
         arg1 = varargin(1);
         if typeof(arg1) <> "constant" | size(arg1, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 2));
         end
 
         arg2 = varargin(2);
         if typeof(arg2) <> "constant" | size(arg2, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 3));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 3));
         end
 
         arg3 = varargin(3);
         if typeof(arg3) <> "constant" | size(arg3, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 4));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 4));
         end
 
         arg4 = varargin(4);
         if typeof(arg4) <> "constant" | size(arg4, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 5));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 5));
         end
 
         ret = tlist(["EmptyBorder", "top", "left", "bottom", "right"], arg1, arg2, arg3, arg4);
@@ -309,12 +309,12 @@ function ret = createBorder(constType, varargin)
 
         arg1 = varargin(1);
         if typeof(arg1) <> ["LineBorder","BevelBorder","SoftBevelBorder","EtchedBorder","EmptyBorder","MatteBorder","TitledBorder"] then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A border expected.\n"), "createBorder", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A border expected.\n"), "createBorder", 2));
         end
 
         arg2 = varargin(2);
         if typeof(arg2) <> ["LineBorder","BevelBorder","SoftBevelBorder","EtchedBorder","EmptyBorder","MatteBorder","TitledBorder"] then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A border expected.\n"), "createBorder", 3));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A border expected.\n"), "createBorder", 3));
         end
 
         ret = tlist(["CompoundBorder", "outer", "inner"], arg1, arg2);
@@ -327,35 +327,35 @@ function ret = createBorder(constType, varargin)
         //top
         arg1 = varargin(1);
         if typeof(arg1) <> "constant" | size(arg1, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 2));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 2));
         end
 
         //left
         arg2 = varargin(2);
         if typeof(arg2) <> "constant" | size(arg2, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 3));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 3));
         end
 
         //bottom
         arg3 = varargin(3);
         if typeof(arg3) <> "constant" | size(arg3, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 4));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 4));
         end
 
         //right
         arg4 = varargin(4);
         if typeof(arg4) <> "constant" | size(arg4, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 5));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer expected.\n"), "createBorder", 5));
         end
 
         //color
         arg5 = varargin(5);
         if typeof(arg5) <> "string" | size(arg5, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 6));
+            error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorder", 6));
         end
 
         ret = tlist(["MatteBorder", "top", "left", "bottom", "right", "color"], arg1, arg2, arg3, arg4, arg5);
     else
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "createBorder", 1, "line, bevel, softbevel, etched, titled, empty, compound, matte"));
+        error(msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "createBorder", 1, "line, bevel, softbevel, etched, titled, empty, compound, matte"));
     end
 endfunction
index 68f8d9a..486e59c 100644 (file)
@@ -25,33 +25,33 @@ function ret = createBorderFont(varargin)
 
     fontname = varargin(1);
     if typeof(fontname) <> "string" | size(fontname, "*") <> 1 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorderFont", 1));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "createBorderFont", 1));
     end
 
     fontsize = varargin(2);
     if typeof(fontsize) <> "constant" | size(fontsize, "*") <> 1 then
-        error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer value expected.\n"), "createBorderFont", 2));
+        error(msprintf(_("%s: Wrong type for input argument #%d: A integer value expected.\n"), "createBorderFont", 2));
     end
 
     if rhs > 2 then
         fontweight = varargin(3);
         if typeof(fontweight) <> "string" | size(fontweight, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer value expected.\n"), "createBorderFont", 3));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer value expected.\n"), "createBorderFont", 3));
         end
 
         if fontweight <> ["normal", "bold"] then
-            error(999, msprintf(_("%s: Wrong value for input argument #%d: %s or %s expected.\n"), "createBorderFont", 3, "normal", "bold"));
+            error(msprintf(_("%s: Wrong value for input argument #%d: %s or %s expected.\n"), "createBorderFont", 3, "normal", "bold"));
         end
     end
 
     if rhs > 3 then
         fontangle = varargin(4);
         if typeof(fontangle) <> "string" | size(fontangle, "*") <> 1 then
-            error(999, msprintf(_("%s: Wrong type for input argument #%d: A integer value expected.\n"), "createBorderFont", 4));
+            error(msprintf(_("%s: Wrong type for input argument #%d: A integer value expected.\n"), "createBorderFont", 4));
         end
 
         if fontangle <> ["normal", "italic"] then
-            error(999, msprintf(_("%s: Wrong value for input argument #%d: %s or %s expected.\n"), "createBorderFont", 4, "normal", "italic"));
+            error(msprintf(_("%s: Wrong value for input argument #%d: %s or %s expected.\n"), "createBorderFont", 4, "normal", "italic"));
         end
     end
 
index 6ebcbcd..de9a700 100644 (file)
@@ -32,7 +32,7 @@ function help(varargin)
             end
 
             if type(key) <> 10 then
-                error(999,msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"help",1));
+                error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"help",1));
             end
 
             // Search a function name
index b77c58e..0a9359b 100644 (file)
@@ -22,7 +22,7 @@ function CreateDir_test()
         DIR_TST = TMPDIR + "/dir_" + TST_LANG(i, 2);
         mkdir(DIR_TST);
         if ~isdir(DIR_TST) then
-            error(999, "directory did not create");
+            error("directory did not create");
         end
         FILENAME_TST = DIR_TST + "/" + "file_" + TST_LANG(i, 2);
         STR_TST = "str_" + TST_LANG(i, 2) + " : " + TST_LANG(i, 1);
@@ -30,7 +30,7 @@ function CreateDir_test()
         mfprintf(fd, "%s", STR_TST);
         mclose(fd);
         if ~isfile(FILENAME_TST) then
-            error(999, "file  did not create");
+            error("file  did not create");
         end
     end
 endfunction
index 14ccc5c..d21f43c 100644 (file)
@@ -19,7 +19,7 @@ function r = %ip_string(index)
         if execstr("v = [index(1) index(2)];", "errcatch") == 0 then
             r = sci2exp(v(1)) + ":" + sci2exp(v(2));
         else
-            error(999, msprintf(gettext("%s: Wrong size for input argument #%d.\n"), "string", 1));
+            error(msprintf(gettext("%s: Wrong size for input argument #%d.\n"), "string", 1));
         end
     end
 endfunction
index 6123cb3..8759b69 100644 (file)
@@ -33,7 +33,7 @@ function [x1, y] = system(x0, f, g, h, q, r)
 
     [lhs, rhs] = argn(0);
     if rhs == 0 then
-        error(999, msprintf(_("%s: Wrong number of input argument(s).\n"), "system"));
+        error(msprintf(_("%s: Wrong number of input argument(s).\n"), "system"));
     end
 
     rand("normal");
index 6da771b..f1797cd 100644 (file)
@@ -28,13 +28,13 @@ function [t]=soundsec (n,rate)
         if isreal(n)
             if ~isscalar(n)
                 //n is not a real positive scalar
-                error(999, msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",1,1,1));
+                error(msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",1,1,1));
             end
         else //n is not real
-            error(999, msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",1));
+            error(msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",1));
         end
     else //n is not a constant matrix
-        error(999, msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",1));
+        error(msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",1));
     end
 
     //rate must be a real strictly positive scalar
@@ -42,22 +42,22 @@ function [t]=soundsec (n,rate)
         if isreal(rate)
             if ~isscalar(rate)
                 //rate is not a real positive scalar
-                error(999, msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",2,1,1));
+                error(msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",2,1,1));
             end
         else //rate is not real
-            error(999, msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",2));
+            error(msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",2));
         end
     else //rate is not a constant matrix
-        error(999, msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",2));
+        error(msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",2));
     end
 
     //n and rate must be positive
     if n<0
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",1,0));
+        error(msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",1,0));
     end
 
     if rate<0
-        error(999, msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",2,0));
+        error(msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",2,0));
     end
     //Format test end
     //==============================================================================
index 15f25ea..d1faf30 100644 (file)
@@ -30,7 +30,7 @@ function version = getDiagramVersion(diagram)
     [lhs,rhs] = argn(0);
     version = get_scicos_version();
     if rhs <> 1 then
-        error(999,  msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"), "getDiagramVersion", 1));
+        error( msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"), "getDiagramVersion", 1));
     end
 
     if typeof(diagram) <> "diagram" then //check inputs
index 72fc745..2c9a1f2 100644 (file)
@@ -18,7 +18,7 @@ function [status, msg] = xcosValidateBlockSet(interfFunctionName)
     msg = "";
 
     if typeof(interfFunctionName) <> "string" | size(interfFunctionName) <> [1, 1]
-        error(999, sprintf(_("%s: Wrong type for argument #%d: A String expected."), "xcosValidateBlockSet", 1))
+        error(sprintf(_("%s: Wrong type for argument #%d: A String expected."), "xcosValidateBlockSet", 1))
     end
 
     // Check function is defined
@@ -49,11 +49,11 @@ function [status, msg] = xcosValidateBlockSet(interfFunctionName)
             vSize = size(labelsv, "*");
             hSize = size(labelsh, "*");
             if size(default_inputs_vector) <> [vSize, hSize] then
-                error(999, sprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"), "x_mdialog", 4, vSize, hSize));
+                error(sprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"), "x_mdialog", 4, vSize, hSize));
             end;
             result = default_inputs_vector;
         else
-            error(999, sprintf(_("%s: Wrong number of input arguments: %d or %d expected.\n"), "x_mdialog", 3, 4));
+            error(sprintf(_("%s: Wrong number of input arguments: %d or %d expected.\n"), "x_mdialog", 3, 4));
         end
     endfunction
 
index 82b11d0..9d96a00 100644 (file)
@@ -18,10 +18,10 @@ function [status, message] = xcosValidateCompareBlock(block1, block2)
     message = "";
 
     if (typeof(block1) <> "Block")
-        error(999, sprintf(_("%s: Wrong type for argument #%d: A Block expected."), "xcosValidateCompareBlock", 1))
+        error(sprintf(_("%s: Wrong type for argument #%d: A Block expected."), "xcosValidateCompareBlock", 1))
     end
     if (typeof(block2) <> "Block")
-        error(999, sprintf(_("%s: Wrong type for argument #%d: A Block expected."), "xcosValidateCompareBlock", 2))
+        error(sprintf(_("%s: Wrong type for argument #%d: A Block expected."), "xcosValidateCompareBlock", 2))
     end
 
     unconsistantFields = [];