Overview
| Comment: | Names anonymous components consistently with Xfig models. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
282e8edd95ebfb35aa340e7d9db71664 |
| User & Date: | geraint@users.sourceforge.net on 2004-08-04 21:47:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2004-08-04
| ||
| 22:16:02 | Writes junctions to component list. check-in: 5936a151d4 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 21:47:28 | Names anonymous components consistently with Xfig models. check-in: 282e8edd95 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 21:34:17 | Writes junctions to component list. check-in: 848ba86dbf user: geraint@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/dia2abg.pl from [cf869a340e] to [fe284b92b9].
| ︙ | ︙ | |||
549 550 551 552 553 554 555 |
$string = get_first_text_subnode($str_elem);
$component_id_tag{$id} = $string->getData;
}
die "There are no components!\n" unless keys(%component_id_tag) > 0;
}
sub parse_component_data {
| | | > > > > > > | < | 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 |
$string = get_first_text_subnode($str_elem);
$component_id_tag{$id} = $string->getData;
}
die "There are no components!\n" unless keys(%component_id_tag) > 0;
}
sub parse_component_data {
my (%anon_index, $id, $component, $anonymous);
while (($id, $component) = each (%component_id_tag)) {
$_ = $component;
id_cleaner();
$component = $_;
my ($type_name, $repetitions) = split (/\*/, $component);
if (! $repetitions) {
$type_name = $component;
$repetitions = 1;
}
my ($type, $name) = split (/:/, $type_name);
if (! $name) {
$type = $type_name;
if (! defined ($anon_index{$type})) {
$anon_index{$type} = 1;
} else {
$anon_index{$type}++;
}
my $num = $anon_index{$type};
$name = "mtt${type}_${num}";
$anonymous = 1;
} else {
$anonymous = 0;
}
$component_id_type{$id} = $type;
$component_id_name{$id} = $name;
$component_id_reps{$id} = $repetitions;
$component_id_anon{$id} = $anonymous;
|
| ︙ | ︙ |