1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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
|