1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2004-2006 - INRIA - Farid BELAHCENE
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
function changevarname(fun,oldname,newname)
// This function replaces the variable (named oldname) of a file by a new name (which is newname). It uses the old2newinstr function
// INPUTS:
// -fun: a string, the name (with the whole path) of the modifed file
// -oldname: a string, the old name of the variable
// -newname: a string, the new name of the variable after modification
sep=filesep();
sep_ind=strindex(fun,sep);
dot_ind=strindex(fun,".");
// funname is the function name (without the path and the extension)
funname=part(fun,sep_ind($)+1:dot_ind($)-1);
if sep_ind<>[]
funsave=part(fun,1:sep_ind($))+"save_"+part(fun,sep_ind($)+1:dot_ind($)-1)+".sci";
else
funsave="save_"+part(fun,sep_ind($)+1:dot_ind($)-1)+".sci";
end
// Compilation
exec(fun);
var=who("get");
indvar=find(var==funname);
funvect=var(indvar(1):-1:1);
txt=mgetl(fun);
mputl(txt,funsave);
txt=[]
for j=1:size(funvect,1)
//Get the tree of the function
execstr("tree=macr2tree("+funvect(j)+")");
// Change oldname into newname in the tree
if tree.name==oldname then
tree.name=newname;
end
for i=1:size(tree.inputs)
tree.inputs(i)=old2newinstr(tree.inputs(i),oldname,newname);
end
for i=1:size(tree.outputs)
tree.outputs(i)=old2newinstr(tree.outputs(i),oldname,newname);
end
for i=1:size(tree.statements)
tree.statements(i)=old2newinstr(tree.statements(i),oldname,newname);
end
// Get the matching code of the tree after modification
txt=[txt; tree2code(tree,%T)];
end
// Replace the old code by the new code (which is txt) in the file fun
mputl(txt,fun);
endfunction
|
