Overview
Comment:Sorts component list into alphabetical order to improve default lbl.txt generation.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 5ada2f34b753787aa3079dc54760477602898705c8775597e3bf2055f9e57e0a
User & Date: geraint@users.sourceforge.net on 2004-08-19 19:33:43
Other Links: branch diff | manifest | tags
Context
2004-08-25
20:16:41
Added --dia_output_file to usage. check-in: cabb98da51 user: geraint@users.sourceforge.net tags: origin/master, trunk
2004-08-19
19:33:43
Sorts component list into alphabetical order to improve default lbl.txt generation. check-in: 5ada2f34b7 user: geraint@users.sourceforge.net tags: origin/master, trunk
19:17:41
Removed functions associated with writing _abg.m directly.
dia2abg.pl now produces _ibg.m instead.
check-in: 3ee8dd0462 user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/dia2abg.pl from [f8b9be78d9] to [727b619778].

164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
    my ($type, $name);

    print_debug("CREATING unique_raw_list...\n");
    open (RAW,">$component_list_file") ||
	die "Cannot open $component_list_file for writing.\n";

    my (%reverse_component_id_tag) = reverse (%component_id_tag);
    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";







|







164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
    my ($type, $name);

    print_debug("CREATING unique_raw_list...\n");
    open (RAW,">$component_list_file") ||
	die "Cannot open $component_list_file for writing.\n";

    my (%reverse_component_id_tag) = reverse (%component_id_tag);
    foreach my $val (sort 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";


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