|
Lines 682-696
Link Here
|
| 682 |
{ |
682 |
{ |
| 683 |
&get_maps($_[0], $_[2]); # force cache init |
683 |
&get_maps($_[0], $_[2]); # force cache init |
| 684 |
my @maps_files = $_[2] ? @{$_[2]} : &get_maps_files(&get_real_value($_[0])); |
684 |
my @maps_files = $_[2] ? @{$_[2]} : &get_maps_files(&get_real_value($_[0])); |
| 685 |
local $lref = &read_file_lines($maps_files[0]); |
685 |
local $lref = &read_file_lines($maps_files[$#maps_files]); |
| 686 |
$_[1]->{'line'} = scalar(@$lref); |
686 |
$_[1]->{'line'} = scalar(@$lref); |
| 687 |
push(@$lref, &make_table_comment($_[1]->{'cmt'})); |
687 |
push(@$lref, &make_table_comment($_[1]->{'cmt'})); |
| 688 |
push(@$lref, "$_[1]->{'name'}\t$_[1]->{'value'}"); |
688 |
push(@$lref, "$_[1]->{'name'}\t$_[1]->{'value'}"); |
| 689 |
$_[1]->{'eline'} = scalar(@$lref)-1; |
689 |
$_[1]->{'eline'} = scalar(@$lref)-1; |
| 690 |
&flush_file_lines(); |
690 |
&flush_file_lines(); |
| 691 |
|
691 |
|
| 692 |
$_[1]->{'map_file'} = $maps_files[0]; |
692 |
$_[1]->{'map_file'} = $maps_files[$#maps_files]; |
| 693 |
$_[1]->{'file'} = $maps_files[0]; |
693 |
$_[1]->{'file'} = $maps_files[$#maps_files]; |
| 694 |
$_[1]->{'number'} = scalar(@{$maps_cache{$_[0]}}); |
694 |
$_[1]->{'number'} = scalar(@{$maps_cache{$_[0]}}); |
| 695 |
push(@{$maps_cache{$_[0]}}, $_[1]); |
695 |
push(@{$maps_cache{$_[0]}}, $_[1]); |
| 696 |
} |
696 |
} |