fix build on windows
[scilab.git] / scilab / modules / graphic_export / macros / driver.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2008 - INRIA - Jean-Baptiste Silvy
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at    
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function  [curDriver] = driver(driverName)
11   // set or get the current driver
12
13   global %driverName;
14
15   if (argn(2) < 1) then
16     // no param just return the current driver
17     curDriver = %driverName;
18   elseif (argn(2) == 1) then
19     if (type(driverName) <> 10) then
20       // wrong type for driverName
21       error(55, 1);
22       return;
23     end
24     
25     if (~checkDriverName(driverName)) then
26       error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', ''%s'', ''%s'', ''%s'' or ''%s'' expected.\n"),"driver",1,"Rec","X11","Pos","PPM","GIF","Fig"));
27      return;
28     end
29     
30     %driverName = driverName;
31     curDriver = driverName;
32
33     if (driverName <> "Rec" | driverName <> "X11") then
34       // to avoid drawing when in export mode
35       // However, drawlater should not create any graphic window
36       // when called
37       scf();
38       drawlater();
39     end
40
41   else
42     // incorrect number of arguments
43     error(39);
44     return;
45   end
46
47
48 endfunction
49
50 function [check] = checkDriverName(driverName)
51 // check that the driver name is obne of the admissible ones
52 check =   driverName == "Rec"..
53         | driverName == "X11"..
54         | driverName == "Pos"..
55         | driverName == "GIF"..
56         | driverName == "PPM"..
57         | driverName == "Fig";
58
59 endfunction
60