7541be07caee51f3d9247998f8b28626a4260e2a
[scilab.git] / scilab / modules / m2sci / macros / sci_files / sci_save.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2002-2004 - INRIA - Vincent COUVERT 
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 [tree]=sci_save(tree)
11 // M2SCI function
12 // Conversion function for Matlab save()
13 // Input: tree = Matlab funcall tree
14 // Ouput: tree = Scilab equivalent for tree
15
16 tree.name="savematfile"
17
18 // If no rhs, save Scilab environnement
19 if rhs<=0 then
20   tree.rhs=Rhs_tlist("scilab.mat")
21   return
22 end
23
24 for k=1:rhs
25   if typeof(tree.rhs(k))=="cste" & tree.rhs(k).value=="-regexp" then
26     set_infos(gettext("Option -regexp not yet handled: will be ignored."),2);
27   elseif typeof(tree.rhs(k))=="cste" & tree.rhs(k).value=="-append" then
28     set_infos(gettext("Option -append not yet handled: will be ignored."),2);
29   end
30 end
31
32 endfunction