CVS commit by rdale:
Converted @param, @return/@returns and @see tags (plus contents) to javadoc/java format
M +31 -3 kalyptusCxxToJNI.pm 1.5
--- kdebindings/kalyptus/kalyptusCxxToJNI.pm #1.4:1.5
@@ -2960,5 +2960,5 @@
if ( defined $docnode->{Version} ) {
my $versionStr = $docnode->{Version};
- $versionStr =~ s/\$Id$]*) Exp \$/$1/;
+ $versionStr =~ s/\$\s*Id:([^\$]*) Exp \$/$1/;
print CLASS " \@version $versionStr\n"
};
@@ -5374,6 +5374,15 @@
my $returntext = '';
foreach $node ( @{$docnode->{Text}} ) {
- next if $node->{NodeType} ne "DocText" and $node->{NodeType} ne "ListItem";
- my $line = $node->{astNodeName};
+ next if $node->{NodeType} ne "DocText" and $node->{NodeType} ne "ListItem"
+ and $node->{NodeType} ne "Param";
+ my $line = '';
+
+ if ($node->{NodeType} eq "Param") {
+ if ($node->{Name} !~ /argc/) {
+ $line = "\@param " . $node->{Name} . " " . $node->{astNodeName};
+ }
+ } else {
+ $line = $node->{astNodeName};
+ }
$line =~ s/argc, ?argv/args/g;
$line =~ s/int argc, ?char ?\* ?argv(\[\])?/String[] args/g;
@@ -5446,4 +5455,23 @@
}
+ if ( defined $docnode->{Returns} ) {
+ my $text = $docnode->{Returns};
+ $text =~ s!\@p\s+([\w\._]*)!$1
!g;
+ $text =~ s!\\c\s+([\w\@&\\?;-]+)!$1
!g;
+ $returntext .= "\t\t\@return $text\n";
+ }
+
+ if ( defined $docnode->{See} ) {
+ foreach my $text ( @{$docnode->{See}} ) {
+ $text =~ s/KIO:://g;
+ $text =~ s/KParts:://g;
+ $text =~ s/::/#/g;
+ $text =~ s/->/#/g;
+ $text =~ s/\./#/g;
+ $text =~ s/\(\)//g;
+ $text =~ s/^\s*([a-z].*)/#$1/g;
+ $returntext .= "\t\t\@see $text\n";
+ }
+ }
$returntext =~ s/\s*$//;