Author: vedge
Date: 2008-07-09 05:40:17 -0300 (Wed, 09 Jul 2008)
New Revision: 715
Modified:
trunk/h2mandoc.pl
Log:
remove spaces from Ft
Modified: trunk/h2mandoc.pl
===================================================================
--- trunk/h2mandoc.pl 2008-07-09 02:26:15 UTC (rev 714)
+++ trunk/h2mandoc.pl 2008-07-09 08:40:17 UTC (rev 715)
@@ -101,16 +101,18 @@
if (/^#/) { next; }
if (/^\s*static\s+__inline__
\s+([\w\s]+\s+\*{0,1})\s*([\(\)\w\*\s,]+)/mx ||
- /([\w\s]+\s+\*{0,1})\s*([\(\)\w\*\s,]+)/) {
+ /([\w\s]+\s+\*{0,1})\s*([\(\)\w\*\s,]+)/m) {
my $type = $1;
my $args = $2;
while ($type =~ /\s$/) { chop($type); }
$type =~ s/([\w\*]+)\s+([\w\*]+)/$1 $2/;
if ($args =~ /^(\w+)\(([\w\*\s,]+)\)$/) {
- my $al = $2;
+ my $fnName = $1;
+ my $argList = $2;
+ $type =~ s/\n//g;
print '.Ft "'.$type."\"\n";
- print '.Fn '.$1;
- foreach my $arg (split(',', $al)) {
+ print '.Fn '.$fnName;
+ foreach my $arg (split(',', $argList)) {
$arg =~ s/\s*([\w\s]+)\s*/$1/g;
print ' "'.$arg.'"';
}
_______________________________________________
BSDBuild-Commits mailing list
[email protected]
http://mail231.csoft.net/mailman/listinfo/bsdbuild-commits
