15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
+
+
+
|
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.9 1997/03/22 15:50:59 peterg
% %% Changed %1.0f to %d format.
% %%
% %% Revision 1.8 1996/12/10 16:52:29 peterg
% %% Detect null string using strcmp, not length.
% %% Put filnum argument to mtt_info.
% %%
% %% Revision 1.7 1996/12/07 17:17:40 peterg
% %% Added some ;
% %%
|
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
-
+
+
|
inputs = structure(3);
outputs = structure(4);
zero_outputs = structure(5);
if strcmp(effort_attribute, 'MTT_port') % Its a numbered port
% Convert string to number
port_number = abs(flow_attribute)-abs('0');
% port_number = abs(flow_attribute)-abs('0');
port_number = str2num(flow_attribute);
% Effort
if bonds(1,1)==-1 % Source
fprintf(filenum, '%s := %s_MTTu%d;\n', ...
varname(name, bond_number,1), name, port_number);
else % Sensor
fprintf(filenum, '%s_MTTy%d := %s;\n', ...
|
154
155
156
157
158
159
160
|
158
159
160
161
162
163
164
165
166
167
168
|
+
+
+
+
|
varname(name, bond_number,1), zero_outputs);
else
mtt_info([effort_attribute, ' not appropriate for an output '], STDerr);
end;
end;
end;
structure(3) = inputs;
structure(4) = outputs;
structure(5) = zero_outputs;
|