Overview
| Comment: | Initial revision |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f00154448ad32f3637f95f0bd2bdfe81 |
| User & Date: | gawthrop@users.sourceforge.net on 1998-07-03 18:29:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
1998-07-03
| ||
| 18:58:58 |
Put arg alias stuff within function alias_args Called recursively to handle arithmetic expressions check-in: 8ceaa8ab37 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 18:29:40 | Initial revision check-in: f00154448a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 17:38:32 | Initial revision check-in: 15f94c34bf user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Added mttroot/mtt/bin/trans/m/alias_args.m version [6cd58d62ce].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 |
function args = alias_args(args,alias,delim,message)
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
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,";"]);
mtt_info(["Replacing ", arg, "\t by ",\
new_arg, message]);
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);
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]);
|