Overview
| Comment: | Writes 0 junctions before 1 junctions. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
c7b49097a03993bf7c6332392a18577b |
| User & Date: | geraint@users.sourceforge.net on 2004-08-04 19:41:47.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
2004-08-04
| ||
| 19:46:42 |
Sorts components alphabetically (type:name) within the categories: internal ports, components, 0 junctions and 1 junctions. Standardising the order in which components are listed allows models | |
| 19:41:47 | Writes 0 junctions before 1 junctions. check-in: c7b49097a0 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
|
2004-08-03
| ||
| 22:57:50 | Fixed naming of anonymous 0 junctions. check-in: 9034efba09 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/lbl2cmp_txt2m.pl
from [535e13e03e]
to [42b52a8ed4].
| ︙ | ︙ | |||
230 231 232 233 234 235 236 |
{
# sorts components into the order in which they are found in the label
# file within the classes: ports, components then junctions.
my ($name, $class, $i, $j, $target);
$i = 0;
| | | 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 |
{
# sorts components into the order in which they are found in the label
# file within the classes: ports, components then junctions.
my ($name, $class, $i, $j, $target);
$i = 0;
foreach $target ("port", "component", "0junction", "1junction") {
# get targets in lbl
for ($j = 1; $j < scalar @component_name_lbl_index; $j++) {
$name = $component_name_lbl_index[$j];
$class = $component_class{$name};
if ($class eq $target) {
$sorted_component_list{$name} = ++$i;
print "sorted: '$name' '$i'\n" if ($debug);
|
| ︙ | ︙ |