27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.22 1998/07/28 19:05:46 peterg
% %% Fixed a few bugs.
% %%
% %% Revision 1.21 1998/07/28 14:21:31 peterg
% %% Vector SS ports.
% %%
% %% Revision 1.20 1998/07/08 14:42:52 peterg
|
>
>
>
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.23 1998/12/03 16:46:16 peterg
% %% Deblanked attributes so that zero attribute works.
% %%
% %% Revision 1.22 1998/07/28 19:05:46 peterg
% %% Fixed a few bugs.
% %%
% %% Revision 1.21 1998/07/28 14:21:31 peterg
% %% Vector SS ports.
% %%
% %% Revision 1.20 1998/07/08 14:42:52 peterg
|
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
% anything else is the name of a constant.
% Blank is taken to be external
% If its a numbered port:
% cr contains 'MTT_port'
% arg contains port number
if (strcmp(cr,"SS")) # Then its the standard file
a = split(args,",");
[N,M]=size(a);
if (N~=2) # Must have 2 arguments
mtt_error(sprintf("SS should have 2 args not %i", N));
else
effort_attribute = deblank(a(1,:));
flow_attribute = deblank(a(2,:));
end;
|
|
>
|
|
|
|
|
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
% anything else is the name of a constant.
% Blank is taken to be external
% If its a numbered port:
% cr contains 'MTT_port'
% arg contains port number
if (strcmp(cr,"SS")) # Then its the standard file
a = split(args,",")
[N,M]=size(a);
if (N~=2) # Must have 2 arguments
mtt_error(sprintf("SS should have 2 args not %i", N));
end;
effort_attribute = deblank(a(1,:));
flow_attribute = deblank(a(2,:));
else # Old style file
effort_attribute = cr;
flow_attribute = args;
# mtt_info(sprintf("SS component: Hmm... looks like an old-style label file"));
end;
% Default attributes
|