#!/usr/bin/perl
+# Script for extracting documentation out of header files
+# (c) 2008 Michal Vaner <vorner@ucw.cz>
+
use strict;
use warnings;
$head =~ s/(\S)[ ]+/$1 /g;
print OUT "\n";
print OUT "''''\n";
- print OUT "..................\n";
- print OUT "$head\n";
- print OUT "..................\n\n";
+ chomp $head;
+ if($head =~ /\w+\([^()]*\)/ && $head !~ /\n/) {
+ print OUT "!!f!$head!!!\n\n";
+ } else {
+ print OUT "..................\n";
+ print OUT "$head\n";
+ print OUT "..................\n\n";
+ }
print OUT "$comment\n\n";
}