I'm not using gitweb I was thinking about using it and was looking at the
cgi and saw this in this file:
https://github.com/git/git/blob/master/gitweb/gitweb.perl
I think I understand the intention but the outcome is wrong.
our %highlight_ext = (
# main extensions, defining name of syntax;
# see files in /usr/share/highlight/langDefs/ directory
map { $_ => $_ }
qw(py c cpp rb java css php sh pl js tex bib xml awk bat ini spec tcl
sql make),
# alternate extensions, see /etc/highlight/filetypes.conf
'h' => 'c',
map { $_ => 'sh' } qw(bash zsh ksh),
map { $_ => 'cpp' } qw(cxx c++ cc),
map { $_ => 'php' } qw(php3 php4 php5 phps),
map { $_ => 'pl' } qw(perl pm), # perhaps also 'cgi'
map { $_ => 'make'} qw(mak mk),
map { $_ => 'xml' } qw(xhtml html htm),
);
I think the intent is better met with this, (the print is for show)
our %he = ();
$he{'h'} = 'c';
$he{$_} = $_ for (qw(py c cpp rb java css php sh pl js tex bib xml awk bat
ini spec tcl sql make));
$he{$_} = 'cpp' for (qw(cxx c++ cc));
$he{$_} = 'php' for (qw(php3 php4 php5 phps));
$he{$_} = 'pl' for (qw(cgi perl pm));
$he{$_} = 'make' for (qw(mak mk));
$he{$_} = 'xml' for (qw(xhtml html htm));
$he{$_} = 'sh' for (qw(bash zsh ksh));
print "$he{$_} $_\n" for(sort {$he{$a} cmp $he{$b}} keys %he);
But then again maybe I misunderstood the intent. And maybe everyone's happy
with it as-is.
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majord...@vger.kernel.org
More majordomo info at http://vger.kernel.org/majordomo-info.html
