Overview
| Comment: | Documentation |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
21987a9f8723a99db8f84e0b7ee606f1 |
| User & Date: | gawthrop@users.sourceforge.net on 2003-03-24 12:31:19 |
| Other Links: | branch diff | manifest | tags |
Context
|
2003-03-24
| ||
| 12:34:55 | Added endfunction check-in: fa31847e7d user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 12:31:19 | Documentation check-in: 21987a9f87 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 12:20:28 | *** empty log message *** check-in: 832b30881b user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Added mttroot/mtt/bin/trans/m/mtt_alias.m version [750fa34e3e].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 |
function [args] = mtt_alias (fullname,args,default);
## usage: [cr,args] = mtt_alias (fullname,cr,args)
##
## Aliasing code for mtt.
## Abstracted from cbg2ese for use in cbg2sese_m2r
## Copyright (C) 2003 by Peter J. Gawthrop
filenum = -1; # No file number for messages
[Name,name] = mtt_subname(fullname); # Split fullname
if (length(args)==0)
mtt_info(sprintf("No arguments given so no argument aliasing done for system %s",\
fullname));
return
endif
## Info for component and surrounding subsystem
cbg = mtt_cbg(fullname); # Structure for this component
if (length(Name)==0)
return
else
Cbg = mtt_cbg(Name); # Structure for this subsystem
endif
## Argument aliasing
message = sprintf("\tfor component %s within %s",name,Name);
if struct_contains(cbg,"alias")
args = alias_args(args,cbg.alias,";",message,filenum,fullname);
endif;
## Substitute positional params
Args = eval(sprintf("Cbg.subsystems.%s.arg;", name));
args = subs_arg(args,Args,default,Name,"",name,filenum);
endfunction
|