Overview
Comment:Writes junctions to component list.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 809e074f8ac946bea2220451b17583e458424d8c4915230516e740f1826b1bed
User & Date: geraint@users.sourceforge.net on 2004-08-04 22:16:02
Other Links: branch diff | manifest | tags
Context
2004-08-04
22:28:57
Names anonymous components consistently with Xfig models. check-in: a87ba97558 user: geraint@users.sourceforge.net tags: origin/master, trunk
22:16:02
Writes junctions to component list. check-in: 809e074f8a user: geraint@users.sourceforge.net tags: origin/master, trunk
21:47:28
Names anonymous components consistently with Xfig models. check-in: 689be77ba9 user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/dia2abg.pl from [fe284b92b9] to [0963470534].

︙︙
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210

    foreach my $val (values(%component_id_tag)) {	
	my ($id, $type);
	$id = $reverse_component_id_tag{$val};
	$type = $component_id_type{$id};
	$_ = $val;
	id_cleaner();
	$val =  $_;
	print RAW $val . "\n" if (($type ne "1") and ($type ne "0"));
    }
    close(RAW);
}


sub get_label_data {
    my ($name,@line,$i);








|








196
197
198
199
200
201
202
203
204
205
206
207
208
209
210

    foreach my $val (values(%component_id_tag)) {	
	my ($id, $type);
	$id = $reverse_component_id_tag{$val};
	$type = $component_id_type{$id};
	$_ = $val;
	id_cleaner();
	$val =  $_;
	print RAW $val . "\n";
    }
    close(RAW);
}


sub get_label_data {
    my ($name,@line,$i);
︙︙

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]