fix build on windows

[scilab.git] / scilab / modules / graphic_export / macros / xinit.sci

diff --git a/scilab/modules/graphic_export/macros/xinit.sci b/scilab/modules/graphic_export/macros/xinit.sci
index 3396ed2..81c932d 100644 (file)
--- a/scilab/modules/graphic_export/macros/xinit.sci
+++ b/scilab/modules/graphic_export/macros/xinit.sci
@@ -12,20 +12,31 @@ function  xinit(fileName)
 
   global %exportFileName;
 
-  if (argn(2) > 1) then
-    // incorrect number of arguments
-    error(39);
-    return
-  end
-
-
-  if (type(fileName) <> 10) then
-    // wrong type for driverName
-    error(55, 1);
-    return;
-  end
+  rhs = argn(2);
+
+  global %driverName;
+  if (%driverName == "Rec" | %driverName == "X11" | %driverName == "" | %driverName == []) then
+    // screen display, should be xinit without argument
+    if (rhs <> 0) then
+      error(msprintf(gettext("%s: Wrong number of input arguments: Function has no input argument with ''%s'' or ''%s'' drivers.\n"), "xinit","Rec","X11"));
+    end
+    scf();
+  else
+    // file driver
+    if (rhs <> 1) then
+         error(msprintf(gettext("%s: Wrong number of input argument: String expected with ''%s'', ''%s'', ''%s'' or ''%s'' drivers.\n"), "xinit","GIF","PPM","POS","Fig"));
+
+    end
+
+    if (type(fileName) <> 10) then
+      // wrong type for driverName
+      error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "xinit",1));
+      return;
+    end
+  
+    %exportFileName = fileName;
     
-  %exportFileName = fileName;
+  end
 
 endfunction