21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
##
[Name,name] = mtt_subname(fullname); # Split fullname
SD = "__"; # Subsystem delimiter
CD = "\n%%"; # Comment delimiter
arg_default = "1"; # Default aliased arg
DEBUG = 0;
if DEBUG
disp("=======================================");
fullname, name, Name, port,causality,known
endif
|
>
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
##
[Name,name] = mtt_subname(fullname); # Split fullname
SD = "__"; # Subsystem delimiter
CD = "\n%%"; # Comment delimiter
arg_default = "1"; # Default aliased arg
cr_default = "lin"; # Default aliased arg
DEBUG = 0;
if DEBUG
disp("=======================================");
fullname, name, Name, port,causality,known
endif
|
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
eval(sprintf("cbg.subsystems.%s=cbg.ports.%s;",component,component));
endfor
endif
endif
if length(name)>0 # Alias
eval(sprintf("ARG=cbg.subsystems.%s.arg;", name)); # Arguments
ARG = mtt_alias (Name,ARG,arg_default); # Alias them
eval(sprintf("cbg.subsystems.%s.arg=ARG;", name)); # and copy
else # Call to a subsystem (represented by name="")
if !struct_contains(cbg,"portlist")
N_ports = 0;
else
[N_ports,M_ports] = size(cbg.portlist);
endif
|
>
>
>
>
>
|
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
eval(sprintf("cbg.subsystems.%s=cbg.ports.%s;",component,component));
endfor
endif
endif
if length(name)>0 # Alias
##Alias arguments
eval(sprintf("ARG=cbg.subsystems.%s.arg;", name)); # Arguments
ARG = mtt_alias (Name,ARG,arg_default); # Alias them
eval(sprintf("cbg.subsystems.%s.arg=ARG;", name)); # and copy
## Alias CRs
eval(sprintf("CR=cbg.subsystems.%s.cr;", name)); # CRs
CR = mtt_alias (Name,CR,cr_default); # Alias them
eval(sprintf("cbg.subsystems.%s.cr=CR;", name)); # and copy
else # Call to a subsystem (represented by name="")
if !struct_contains(cbg,"portlist")
N_ports = 0;
else
[N_ports,M_ports] = size(cbg.portlist);
endif
|