$body = "";
$functions[$fn++] = $func;
$deprecated = 0;
-
# Process arguments
while (<>){
s/NULL/<code>NULL<\/code>/g;
$returns =~ s/#(\w+)/<code>\1<\/code>/g;
$args =~ s/#(\w+)/<code>\1<\/code>/g;
- $returns =~ s/\`([:\w\*]+)\`/<code>\1<\/code>/g;
- $args =~ s/\`([:\w\*]+)\`/<code>\1<\/code>/g;
- $body =~ s/\`([:\w\*]+)\`/<code>\1<\/code>/g;
+ $returns =~ s/\`([:.\w\*]+)\`/<code>\1<\/code>/g;
+ $args =~ s/\`([:.\w\*]+)\`/<code>\1<\/code>/g;
+ $body =~ s/\`([:.\w\*]+)\`/<code>\1<\/code>/g;
$body =~ s/\n/ /;
$bodies{$func} = $body;
}
chop;
s/^\ \*//;
- $_ = "\n<p>" if (/^\s+$/);
+ $_ = "<p>" if (/^\s*$/);
if ($inbody == 0){
if (/\s*(\w+):(.*)/){
} else {
$body = "\t$_\n";
+
$inbody = 1;
}
} elsif ($inbody == 1) {