Fix typo: environnement->environment.
[scilab.git] / scilab / modules / m2sci / macros / sci_files / sci_load.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_load(tree)
11 // M2SCI function
12 // Conversion function for Matlab load()
13 // Input: tree = Matlab funcall tree
14 // Ouput: tree = Scilab equivalent for tree
15
16 global("varslist")
17 tree.name="loadmatfile"
18
19 // If no rhs, then load all environment
20 if rhs<=0 then
21   tree.name="loadmatfile"
22   tree.rhs=Rhs_tlist("scilab.mat")
23   return
24 end
25
26 for k=1:rhs
27   if typeof(tree.rhs(k))=="cste" & tree.rhs(k).value=="-regexp" then
28     set_infos(gettext("Option -regexp not yet handled: will be ignored."),2);
29   end
30   if typeof(tree.rhs(k))=="cste" //& exists("sci_"+tree.rhs(k).value)==1
31     INFER=Infer()
32     varslist($+1)=M2scivar(tree.rhs(k).value,tree.rhs(k).value,INFER)
33   end 
34   if typeof(tree.rhs(k))=="operation"
35     for j=1:size(tree.rhs(k).operands)
36       if typeof(tree.rhs(k).operands(j))=="cste" //& exists("sci_"+tree.rhs(k).operands(j).value)==1
37         INFER=Infer()
38         varslist($+1)=M2scivar(tree.rhs(k).operands(j).value,tree.rhs(k).operands(j).value,INFER)
39       end 
40     end
41   end
42 end
43 rhstemp=list()
44 rhstemp($+1)=tree.rhs(1)
45
46 endfunction