1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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
|
+
+
+
+
-
+
|
function args = alias_args(args,alias,delim,message,FileID)
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## 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 length(args>0)
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_,";"]);
|