"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "convert.pl" between
global-6.6.4.tar.gz and global-6.6.5.tar.gz

About: GNU GLOBAL is a source code tag system that works the same way across diverse environments. It is similar to ctags or etags, but it is independent of any editor.

convert.pl  (global-6.6.4):convert.pl  (global-6.6.5)
skipping to change at line 86 skipping to change at line 86
$value; $value;
} }
# #
# Generate statements about the langmap variable. # Generate statements about the langmap variable.
# #
sub langmapstatement { sub langmapstatement {
my($maps) = getvalue('DEFAULTLANGMAP'); my($maps) = getvalue('DEFAULTLANGMAP');
my(@statement); my(@statement);
my %name = ( my %name = (
'c' => 'C', 'c' => 'C',
'yacc' => 'yacc', 'yacc' => 'Yacc',
'asm' => 'Assembly',
'java' => 'Java', 'java' => 'Java',
'cpp' => 'C++', 'cpp' => 'C++',
'php' => 'PHP', 'php' => 'PHP',
'asm' => 'assembly language',
); );
my $line = ''; my $line = '';
my @maps = split(/,/, $maps); my @maps = split(/,/, $maps);
for ($i = 0; $i < @maps; $i++) { for ($i = 0; $i < @maps; $i++) {
$_ = $maps[$i]; $_ = $maps[$i];
my($lang, $suffixes) = /([^:]+):(.*)/; my($lang, $suffixes) = /([^:]+):(.*)/;
if ($i > 0) { if ($i > 0) {
if ($i + 1 == @maps) { # last if ($i + 1 == @maps) { # last
$line .= ' and '; $line .= ' and ';
} else { } else {
$line .= ', '; $line .= ', ';
} }
} }
$line .= $name{$lang}; $line .= $name{$lang};
} }
$line .= " source files are supported.\n"; $line .= " source files.\n";
unshift(@statement, $line); unshift(@statement, $line);
foreach (@maps) { foreach (@maps) {
my($lang, $suffixes) = /([^:]+):(.*)/; my($lang, $suffixes) = /([^:]+):(.*)/;
unless ($name{$lang}) { unless ($name{$lang}) {
print STDERR "ERROR: $lang not defined.\n"; print STDERR "ERROR: $lang not defined.\n";
exit(1); exit(1);
} }
$suffixes =~ s/^\.//; $suffixes =~ s/^\.//;
my(@suffixes) = split(/\./, $suffixes); my(@suffixes) = split(/\./, $suffixes);
$line = 'Files whose names end in '; $line = 'Files whose names end in ';
 End of changes. 3 change blocks. 
3 lines changed or deleted 3 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)