mirror/ git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-05-23 12:36:09 +02:00
Code

gitweb: Refactor untabifying - converting tabs to spaces 

Add untabify subroutine and use it.  It also fixes git_diff_print
which used to get the tabstop wrong.

Signed-off-by: Jakub Narebski <jnareb@gmail.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Jakub Narebski 2006-08-06 02:08:31 +02:00 committed by Junio C Hamano
parent 10161355ba
commit f16db173a4
1 changed files with 18 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
gitweb/gitweb.perl
View File

@ -221,6 +221,20 @@ sub unquote {
return $str;
}
# escape tabs (convert tabs to spaces)
sub untabify {
my $line = shift;
while ((my $pos = index($line, "\t")) != -1) {
if (my $count = (8 - ($pos % 8))) {
my $spaces = ' ' x $count;
$line =~ s/\t/$spaces/;
}
}
return $line;
}
## ----------------------------------------------------------------------
## HTML aware string manipulation
@ -1237,12 +1251,7 @@ sub git_diff_print {
# skip errors
next;
}
while ((my $pos = index($line, "\t")) != -1) {
if (my $count = (8 - (($pos-1) % 8))) {
my $spaces = ' ' x $count;
$line =~ s/\t/$spaces/;
}
}
$line = untabify($line);
print "<div class=\"diff$diff_class\">" . esc_html($line) . "</div>\n";
}
}
@ -1582,13 +1591,8 @@ sub git_blame {
$age_class = age_class($age);
$author = esc_html ($author);
$author =~ s/ /&nbsp;/g;
# escape tabs
while ((my $pos = index($data, "\t")) != -1) {
if (my $count = (8 - ($pos % 8))) {
my $spaces = ' ' x $count;
$data =~ s/\t/$spaces/;
}
}
$data = untabify($data);
$data = esc_html ($data);
print <<HTML;
@ -1711,12 +1715,7 @@ sub git_blob {
while (my $line = <$fd>) {
chomp $line;
$nr++;
while ((my $pos = index($line, "\t")) != -1) {
if (my $count = (8 - ($pos % 8))) {
my $spaces = ' ' x $count;
$line =~ s/\t/$spaces/;
}
}
$line = untabify($line);
printf "<div class=\"pre\"><a id=\"l%i\" href=\"#l%i\" class=\"linenr\">%4i</a> %s</div>\n", $nr, $nr, $nr, esc_html($line);
}
close $fd or print "Reading blob failed.\n";