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
|
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
|
-
+
+
+
+
-
-
-
+
+
+
-
+
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
|
function args = alias_args(args,alias,delim,message)
function args = alias_args(args,alias,delim,message,FileID)
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 1998/07/03 18:29:40 peterg
## Initial revision
##
###############################################################
if is_struct(alias)
if length(args>0)
Args = split(args,delim); args="";
[N,M]= size(Args);
for i=1:N
arg = deblank(Args(i,:));
_arg = strrep(arg,",","__");
if struct_contains(alias,_arg)
eval(["new_arg = alias.", _arg,";"]);
arg_ = strrep(arg,",","__");
if struct_contains(alias,arg_)
eval(["new_arg = alias.", arg_,";"]);
mtt_info(["Replacing ", arg, "\t by ",\
new_arg, message]);
new_arg, message],FileID);
arg = new_arg;
end
OPS = "+-*/";
for j = 1:length(OPS)
if length(findstr(arg,OPS(j)))>0
arg = alias_args(arg,alias,OPS(j),message);
SEPS = ",+-*/";
for j = 1:length(SEPS)
if length(findstr(arg,SEPS(j)))>0
arg = alias_args(arg,alias,SEPS(j),message,FileID);
end
end;
args = sprintf("%s%s%s", args, delim, arg);
end
args = substr(args,2); % loose leading ;
end
end;
endfunction;
# " for component ", comp_name,\
# " (", comp_type,") within ", full_name]);
|