[prev in list] [next in list] [prev in thread] [next in thread]
List: kde-commits
Subject: kdebindings/kalyptus
From: Richard Dale <Richard_Dale () tipitina ! demon ! co ! uk>
Date: 2003-12-31 20:02:47
Message-ID: 20031231200247.DC1BB9078 () office ! kde ! org
[Download RAW message or body]
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*$//;
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic