Bommels05/Mozilla
Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The hazards of not checking things in as they're written.

Browse Source 
This test pair was probably written because the perl tokenizer failed
miserably. But I don't quite remember why.


git-svn-id: svn://10.0.0.236/trunk@209632 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
timeless%mozdev.org 2006-09-10 09:59:49 +00:00
parent dd309d9f24
commit 5db5051808
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mozilla/webtools/lxr/tests/syntax-highlighting/yuck.pl Normal file
View File

@ -0,0 +1,6 @@
#!/usr/bin/perl
my $tag = '<span class=line>';
$tag .= keys(@ARGV). ' ';
$tag .= '</span>';
$tag .= keys(@ARGV).' ';
$tag .= '</span>';

18
mozilla/webtools/lxr/tests/syntax-highlighting/yuck2.pl Normal file
View File

@ -0,0 +1,18 @@
#!/usr/bin/perl
sub linetag {
#$frag =~ s/\n/"\n".&linetag($virtp.$fname, $line)/ge;
# my $tag = '<a href="'.$_[0].'#L'.$_[1].
# '" name="L'.$_[1].'">'.$_[1].' </a>';
my $tag;
$tag = '<span class=line>';
$tag .= ' ' if $_[1] < 10;
$tag .= ' ' if $_[1] < 100;
$tag .= ' ' if $_[1] < 1000;
$tag .= &fileref($_[1], $_[0], $_[1]). ' ';
$tag .= '</span>';
$tag .= &fileref($_[1], $_[0], $_[1]).' ';
$tag .= '</span>';
$tag =~ s/<a/<a name=$_[1]/;
# $_[1]++;
return($tag);
}