From kde-commits  Wed Dec 31 20:02:47 2003
From: Richard Dale <Richard_Dale () tipitina ! demon ! co ! uk>
Date: Wed, 31 Dec 2003 20:02:47 +0000
To: kde-commits
Subject: kdebindings/kalyptus
Message-Id: <20031231200247.DC1BB9078 () office ! kde ! org>
X-MARC-Message: https://marc.info/?l=kde-commits&m=107290103005507

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\._]*)!<code>$1</code>!g;
+                $text =~ s!\\c\s+([\w\@&\\?;-]+)!<code>$1</code>!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*$//;