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: 5936a151d4d4a7315ccf3fc8dc0122fad598423114db999d66e881300696ccd2
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: 5d66d7dafe user: geraint@users.sourceforge.net tags: origin/master, trunk
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
Changes

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 ]