Overview
| Comment: | Fixed naming of anonymous 0 junctions. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
c7d6c7327303a2ea88b56b85d0988180 |
| User & Date: | geraint@users.sourceforge.net on 2004-08-03 22:57:50.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
2004-08-04
| ||
| 19:41:47 | Writes 0 junctions before 1 junctions. check-in: 459eb924a5 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
|
2004-08-03
| ||
| 22:57:50 | Fixed naming of anonymous 0 junctions. check-in: c7d6c73273 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 22:33:35 | Writes components in lbl file order. check-in: 13f4d96b63 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/lbl2cmp_txt2m.pl
from [b0bb360133]
to [535e13e03e].
| ︙ | ︙ | |||
39 40 41 42 43 44 45 |
%anonymous_component_type_index);
## files to read/write
my ($cmp, $lbl, $out);
my $sys = '';
| | > | 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
%anonymous_component_type_index);
## files to read/write
my ($cmp, $lbl, $out);
my $sys = '';
GetOptions ('sys=s' => \$sys,
'debug' => \$debug);
die usage() if ($sys eq '');
$cmp = "${sys}_cmp.txt";
$lbl = "${sys}_lbl.txt";
$out = "${sys}_cmp.m";
|
| ︙ | ︙ | |||
115 116 117 118 119 120 121 |
$rep = 1 unless defined $rep;
print "read_cmp_line: type='$type', name='$name', rep='$rep'\n" if ($debug);
return ($type, $name, $rep);
}
sub name_anonymous_component() {
| | | 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 |
$rep = 1 unless defined $rep;
print "read_cmp_line: type='$type', name='$name', rep='$rep'\n" if ($debug);
return ($type, $name, $rep);
}
sub name_anonymous_component() {
my $type = $_;
my ($name, $num);
if (defined ($anonymous_component_type_index{$type})) {
$num = ++$anonymous_component_type_index{$type};
$name = "mtt${type}_${num}";
} else {
$anonymous_component_type_index{$type} = 1;
$name = "mtt${type}";
|
| ︙ | ︙ |