2 # Script for extracting documentation out of header files
3 # (c) 2008 Michal Vaner <vorner@ucw.cz>
8 my( $inname, $outname, $depname, $basedir, $defdump ) = @ARGV;
9 if( defined $inname ) {
10 open IN, $inname or die "Could not read $inname ($!)\n";
12 open IN, "<&STDIN" or die "Could not read stdin ($!)\n";
14 if( defined $outname ) {
15 open OUT, ">$outname" or die "Could not write $outname ($!)\n";
17 open OUT, ">&STDOUT" or die "Could not write to stdout ($!)\n";
20 if( defined $defdump ) {
21 open DUMP, ">$defdump" or die "Could not write definition dump $defdump ($!)\n";
27 return( 'struct', 1, $1, "typedef struct { ... } $1;" ) if( /^\s*typedef\s+struct\s*{.*}\s*(\w+)\s*;\s*$/s );
28 return( 'enum', 1, $1, "typedef enum { ... } $1;" ) if( /^\s*typedef\s+enum\s*{.*}\s*(\w+)\s*;\s*$/s );
31 return( 'struct', 0, $1, $_ ) if( /struct\s+(\w+)\s+{/ );
32 return( 'enum', 0, $1, $_ ) if( /enum\s+(\w+)\s+{/ );
34 warn( "Unknown statement $_\n" );
35 return( '', 0, $_, $_ );
37 return( 'def', 0, $1, $_ ) if( /#define\s+(\w+)/ );
38 return( 'fun', 1, $2, $1 ) if( /^(.*?(\w+)\([^{]*\)[^{]*)/ );
39 return( 'var', 1, $1, $_ ) if( /\s(\w+);/ );
40 warn( "Unknown statement $_\n" );
41 return( '', 0, $_, $_ );
47 sub formatNote( $$ ) {
48 my( $head, $comment ) = @_;
49 $head =~ s/(\S)[ ]+/$1 /g;
53 my( $type, $semicolon, $name, $oneline ) = detect( $head );
55 $oneline =~ s/;?$/;/ if( $semicolon );
56 $head =~ s/;?\s*$/;/ if( $semicolon );
57 $head =~ s/(\.\.\.)/\\$1/g;
58 print OUT "[[${type}_$name]]\n";
59 if( $type eq 'fun' ) {
60 print OUT "!!f!$head!!!\n\n";
62 print OUT "..................\n";
64 print OUT "..................\n\n";
67 print DUMP "$outname,${type}_$name,$type,$name,$oneline\n";
70 print OUT "$comment\n\n";
75 open FILE, $file or die "Could nod read $file ($!)\n";
82 while( defined( $line = <FILE> ) ) {
87 formatNote( $head, $buff );
92 } elsif( $verbatim ) {
93 if( $line =~ /\*\// ) {
97 $line =~ s/^\s*\* ?//;
101 if( $line =~ /\*\// ) {
104 $line =~ s/^\s*\* ?//;
108 if( ( $line =~ /\S/ ) && ( defined $buff ) ) {
109 if( $line =~ /\(/ || $line !~ /{/ ) {
114 formatNote( $_, $buff );
121 } elsif( ( $buff ) = ( $line =~ /\/\*\*\*(.*)\*\*\*\// ) ) {
123 print OUT "$buff\n\n";
125 } elsif( ( $head, $buff ) = ( $line =~ /^(.*)\/\*\*(.*)\*\*\// ) ) {
128 if( $head =~ /\(/ || $head !~ /{/ ) {
130 $head =~ s/\/\*.*?\*\///gs;
131 formatNote( $head, $buff );
137 } elsif( $line =~ /\/\*\*\*/ ) {
139 } elsif( $line =~ /\/\*\*/ ) {
148 while( defined( $line = <IN> ) ) {
150 if( my( $fname ) = ( $line =~ /^!!\s*(.*\S)/ ) ) {
151 $fname = "$basedir/$fname" if( ( $fname !~ /^\// ) && defined $basedir );
159 if( defined $depname ) {
160 open DEP, ">>$depname" or die "Could not write dep file $depname ($!)\n";
161 print DEP "$outname:";
162 print DEP " $_" foreach( @deps );
165 print DEP "$defdump:";
166 print DEP " $_" foreach( @deps );