aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2025-01-03 14:57:44 -05:00
Code

Don't underline leading comment lines that contain ::.

Browse Source
This commit is contained in:
Russ Rowan 2006-01-08 15:37:03 -05:00
parent 3529b35da0
commit 97b0635d1e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doc/tools/code2doc
View File

@ -28,8 +28,12 @@ while (<FILEIN>)
print FILEOUT "\n\n" if $start; print FILEOUT "\n\n" if $start;
$_ = $1; $_ = $1;
if ($_ =~ s/\s*\*\/$//) { $found = 'sorta'; } else { $found = $.; } if ($_ =~ s/\s*\*\/$//) { $found = 'sorta'; } else { $found = $.; }
if ($_ =~ /::/) { $_ = "$_\n\n"; }
else
{
my $dash; for (my $x = 0; $x < length($_); $x++) { $dash .= '-'; } my $dash; for (my $x = 0; $x < length($_); $x++) { $dash .= '-'; }
$_ = "$_\n$dash\n\n"; $_ = "$_\n$dash\n\n";
}
$first = 1; $first = 1;
} }
elsif ($_ =~ /\s*([A-Z0-9_]+),\s*\/\*::\s*(.*)\s+\*\/$/) elsif ($_ =~ /\s*([A-Z0-9_]+),\s*\/\*::\s*(.*)\s+\*\/$/)