scilab/modules/graphic_export/macros/xinit.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  xinit(fileName)
  11   // set name of the file to export
  12
  13   global %exportFileName;
  14
  15   if (argn(2) > 1) then
  16     // incorrect number of arguments
  17     error(39);
  18     return
  19   end
  20
  21
  22   if (type(fileName) <> 10) then
  23     // wrong type for driverName
  24     error(55, 1);
  25     return;
  26   end
  27
  28   %exportFileName = fileName;
  29
  30 endfunction
  31
  32