Overview
| Comment: | Fixed bug due to adding (and then removing) 0 and 1 as port types |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
6b64332a2cb12b37492a4662e6ab518a |
| User & Date: | gawthrop@users.sourceforge.net on 1998-04-06 08:41:48.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
1998-04-07
| ||
| 05:45:12 | Reverted to an older version due to untraceable bug in new version check-in: e4d0928b1a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
1998-04-06
| ||
| 08:41:48 | Fixed bug due to adding (and then removing) 0 and 1 as port types check-in: 6b64332a2c user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
1998-04-04
| ||
| 11:00:20 | Modified various parts to allow coercing directions at ports check-in: cf95ec1fad user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
from [94840e3d7f]
to [64f72e2aa2].
| ︙ | ︙ | |||
9 10 11 12 13 14 15 16 17 18 19 20 21 22 | # Copyright (c) P.J.Gawthrop, 1996. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.26 1998/04/04 07:29:26 peterg ## SS now only port component ## ## Revision 1.25 1998/04/03 15:07:20 peterg ## Now correctly write 0/1 port names ## ## Revision 1.24 1998/04/03 14:02:50 peterg | > > > | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # Copyright (c) P.J.Gawthrop, 1996. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.27 1998/04/04 10:54:58 peterg ## Remove a debugging print statement ## ## Revision 1.26 1998/04/04 07:29:26 peterg ## SS now only port component ## ## Revision 1.25 1998/04/03 15:07:20 peterg ## Now correctly write 0/1 port names ## ## Revision 1.24 1998/04/03 14:02:50 peterg |
| ︙ | ︙ | |||
213 214 215 216 217 218 219 |
# Vector port definitions
isa_PORT = ((match(str, PORT_regexp)>0) && (depth==0));
if (isa_PORT) {
print str
}
| | | 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 |
# Vector port definitions
isa_PORT = ((match(str, PORT_regexp)>0) && (depth==0));
if (isa_PORT) {
print str
}
# A port component is an SS followed by a port string
isa_port_component = 0;
if (match(str, delimiter)) {
split(str,a,delimiter);
isa_port_component = (match(a[1], port_component_regexp))&&
(match(a[2], port_regexp)>0)
}
|
| ︙ | ︙ | |||
248 249 250 251 252 253 254 |
type = a[1];
# Port name is the bit between the []
port_label = substr(a[2],2,length(a[2])-2);
x_port[i_port_component] = x_coord;
y_port[i_port_component] = y_coord;
info_port[i_port_component] = fig_info();
port_labels[i_port_component] = port_label;
| < | | 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 |
type = a[1];
# Port name is the bit between the []
port_label = substr(a[2],2,length(a[2])-2);
x_port[i_port_component] = x_coord;
y_port[i_port_component] = y_coord;
info_port[i_port_component] = fig_info();
port_labels[i_port_component] = port_label;
}
# Do the plain components
if (isa_plain_component) {
i_text++;
# Get repetitions (if any)
if (match(str,repetition_regexp) > 0) {
|
| ︙ | ︙ | |||
575 576 577 578 579 580 581 |
printf("rcomponents = [") >> b_file;
j = 0;
# Do the port components, in order of appearance, first
for (i = 1; i <= i_port_component; i++) {
name = sprintf("[%s]", port_labels[i]);
| | | 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 |
printf("rcomponents = [") >> b_file;
j = 0;
# Do the port components, in order of appearance, first
for (i = 1; i <= i_port_component; i++) {
name = sprintf("[%s]", port_labels[i]);
port_type = "SS";
cr = "MTT_port";
arg = i;
if (length(x_port[i])==0)
printf(warning_p);
else {
j++;
|
| ︙ | ︙ |