1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
function args = alias_args(args,alias,delim,message,FileID,sys_name)
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.9 2009/11/02 16:54:03 geraint
## Replaced deprecated functions from Octave 2.1 for Octave 3.0: is_struct -> isstruct, struct_contains -> isfield, struct_elements -> fieldnames, is_complex -> iscomplex, setstr -> char
##
## Revision 1.8 2001/06/13 16:07:15 gawthrop
## Fixed bug with three separators in a row eg )/(
##
## Revision 1.7 2001/06/13 14:50:15 gawthrop
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
function args = alias_args(args,alias,delim,message,FileID,sys_name)
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.10 2012/10/15 19:16:03 geraint
## split is obsolete in Octave, replaced with strsplit
##
## Revision 1.9 2009/11/02 16:54:03 geraint
## Replaced deprecated functions from Octave 2.1 for Octave 3.0: is_struct -> isstruct, struct_contains -> isfield, struct_elements -> fieldnames, is_complex -> iscomplex, setstr -> char
##
## Revision 1.8 2001/06/13 16:07:15 gawthrop
## Fixed bug with three separators in a row eg )/(
##
## Revision 1.7 2001/06/13 14:50:15 gawthrop
|
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
Args = char(strsplit(args,delim)); args="";
[N,M]= size(Args);
for i=1:N
arg = deblank(Args(i,:));
arg_ = strrep(arg,",","__");
if isfield(alias,arg_)
eval(["new_arg = alias.", arg_,";"]);
mtt_info(["Replacing ", arg, "\t by ",\
new_arg, message],FileID);
mtt_save_alias(arg,sys_name);
## printf("%s --> %s\n",arg,new_arg);
arg = new_arg;
## else
## mtt_info(["NOT replacing ", arg, message],FileID);
end
|
|
|
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
Args = char(strsplit(args,delim)); args="";
[N,M]= size(Args);
for i=1:N
arg = deblank(Args(i,:));
arg_ = strrep(arg,",","__");
if isfield(alias,arg_)
eval(["new_arg = alias.", arg_,";"]);
mtt_info(["Replacing ", arg, "\t by ", ...
new_arg, message],FileID);
mtt_save_alias(arg,sys_name);
## printf("%s --> %s\n",arg,new_arg);
arg = new_arg;
## else
## mtt_info(["NOT replacing ", arg, message],FileID);
end
|