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(gettext("driver: wrong value for first input argument: must be ""Rec"", ""X11"", ""Pos"", ""PPM"" or ""GIF""."));
  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
  58 endfunction
  59