aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2024-12-04 14:46:47 -05:00
Code

Improve support for struct documentation by saving the struct name

Browse Source 
This makes it easy to create

id:[$struct$member]::
	One line description
This commit is contained in:
Jonas Fonseca 2006-01-09 00:53:41 +01:00 committed by Jonas Fonseca
parent a7fb4a71e3
commit 2d7356d29a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
doc/tools/code2doc
View File

@ -7,9 +7,10 @@ print "Usage: $0 [FILE]\n\tParses [FILE], outputing the result to stdout.\n"
and exit if not @ARGV; and exit if not @ARGV;
my ($input) = @ARGV; my ($input) = @ARGV;
my ($found, $start, $first, $gotone); my ($found, $start, $first, $gotone, $idpath);
print "Copyleft© 2006, Russ Rowan (See `COPYING')\n" and exit if $input eq '-v'; print "Copyleft© 2006, Russ Rowan (See `COPYING')\n" and exit if $input eq '-v';
open FILEIN, "<$input" or print "File `$input' was not found.\n" and exit; open FILEIN, "<$input" or print "File `$input' was not found.\n" and exit;
$idpath = '';
while (<FILEIN>) while (<FILEIN>)
{ {
if ($found) if ($found)
@ -24,6 +25,7 @@ while (<FILEIN>)
$_ = $1; $first = 1; $_ = $1; $first = 1;
print STDOUT "\n\n" if $start; print STDOUT "\n\n" if $start;
if ($_ =~ s/\s*\*\/$//) { $found = 'sorta'; } else { $found = $.; } if ($_ =~ s/\s*\*\/$//) { $found = 'sorta'; } else { $found = $.; }
if ($_ =~ /struct:[[]([^\]]+)[\]]/) { $idpath = "$1."; } else { $idpath = ''; }
if ($_ =~ /::/) { $_ = "$_\n\n"; } if ($_ =~ /::/) { $_ = "$_\n\n"; }
else else
{ {
@ -31,10 +33,10 @@ while (<FILEIN>)
$_ = "$_\n$dash\n\n"; $_ = "$_\n$dash\n\n";
} }
} }
elsif ($_ =~ /\s*([A-Z0-9_]+)(\s+=\s+[0-9]+)?,\s*\/\*::\s*(.*)\s+\*\/$/) elsif ($_ =~ /^(\s|[^\s=]+)*[\s*]([A-Za-z0-9_]+)(\s+=\s+[^,;]+)?[,;]\s*\/\*::\s*(.*)\s+\*\/$/)
{ {
print STDOUT "\n" if $gotone; print STDOUT "\n" if $gotone;
$_ =~ s/\s*([A-Z0-9_]+)(\s+=\s+[0-9]+|),\s*\/\*::\s*(.*)\s+\*\/$/id:[$1]::\n\t$3/; $_ = "\nid:[$idpath$2]::\n\t$4\n";
$found = 'sorta'; $gotone = $.; $found = 'sorta'; $gotone = $.;
} }
print STDOUT "\n" and $gotone = undef if $gotone and $gotone < $.; print STDOUT "\n" and $gotone = undef if $gotone and $gotone < $.;