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
|
function args = alias_args(args,alias,delim,message,FileID,sys_name)
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5 2000/10/12 19:27:20 peterg
## Now writes out the aliased args ...
##
## Revision 1.4 2000/09/14 13:35:43 peterg
## appended '(' and ')' to SEPS
## -- otherwise first argument after '(' doesn't get substituted
## (Fixed by Geraint)
##
## Revision 1.3 1998/08/11 14:09:05 peterg
## Replaced incorrect length(args>0) with !isempty(args)
##
## Revision 1.2 1998/07/27 10:24:20 peterg
## Included , in the the list of seperators (SEPS)
## This makes it substitute for bits of args separated by commas.
##
## Revision 1.1 1998/07/03 18:29:40 peterg
## Initial revision
##
###############################################################
else
mtt_info(["NOT replacing ", arg, message],FileID);
end
SEPS = ",+-*/()";
for j = 1:length(SEPS)
if length(findstr(arg,SEPS(j)))>0
arg = alias_args(arg,alias,SEPS(j),message,FileID,sys_name);
end
end;
args = sprintf("%s%s%s", args, delim, arg);
end
args = substr(args,2); % loose leading ;
|
>
>
>
>
<
|
|
|
|
>
>
|
>
>
>
|
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
64
65
|
function args = alias_args(args,alias,delim,message,FileID,sys_name)
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.6 2001/04/23 16:23:30 gawthrop
## Now stips ; from bottlom level argument list - allows aliasing of
## parts of a,b,c (eg a,b by using a,b;c
##
## Revision 1.5 2000/10/12 19:27:20 peterg
## Now writes out the aliased args ...
##
## Revision 1.4 2000/09/14 13:35:43 peterg
## appended '(' and ')' to SEPS
## -- otherwise first argument after '(' doesn't get substituted
## (Fixed by Geraint)
##
## Revision 1.3 1998/08/11 14:09:05 peterg
## Replaced incorrect length(args>0) with !isempty(args)
##
## Revision 1.2 1998/07/27 10:24:20 peterg
## Included , in the the list of seperators (SEPS)
## This makes it substitute for bits of args separated by commas.
##
## Revision 1.1 1998/07/03 18:29:40 peterg
## Initial revision
##
###############################################################
if is_struct(alias)
if !isempty(args)
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_,";"]);
mtt_info(["Replacing ", arg, "\t by ",\
new_arg, message],FileID);
mtt_save_alias(arg,sys_name);
arg = new_arg;
# else
# mtt_info(["NOT replacing ", arg, message],FileID);
end
SEPS = ",+-*/()^";
for j = 1:length(SEPS)
if (length(arg)>0)&&(length(findstr(arg,SEPS(j)))>0)
arg = alias_args(arg,alias,SEPS(j),message,FileID,sys_name);
end
end;
args = sprintf("%s%s%s", args, delim, arg);
end
if (length(args)>1)
if (substr(args,1,1)==delim)
args = substr(args,2); # loose leading delimiter
endif
endif
end
end;
endfunction;
|