diff options
author | Slávek Banko <[email protected]> | 2020-06-18 11:56:26 +0200 |
---|---|---|
committer | Slávek Banko <[email protected]> | 2020-06-18 11:56:26 +0200 |
commit | 3da067051cc259588363c88875374fd699c83a07 (patch) | |
tree | 152b82d4291f0c75be4573a8c5a02b25eba87738 /kalyptus/kdocParseDoc.pm | |
parent | 441e32709f8bf8b390ddc3107982808560f9357c (diff) | |
download | libtqt-perl-3da067051cc259588363c88875374fd699c83a07.tar.gz libtqt-perl-3da067051cc259588363c88875374fd699c83a07.zip |
Merge fixes for kalyptus that were made in tdelibs/dcopidlng:
+ includes may use quotation marks
+ argument types can contain multiple words
+ avoid use long, short, int or char type as the argument name
+ avoid use type as the argument name if the const qualifier is used
+ use long notation of int types
+ the arguments can be nameless
+ return types can have qualifiers
+ do not warn on inherit of the DCOPObject and TQObject classes
+ the documentation comment does not have to end on a separate line
+ do not skip an empty class if it is declared with K_DCOP
Signed-off-by: Slávek Banko <[email protected]>
Diffstat (limited to 'kalyptus/kdocParseDoc.pm')
-rw-r--r-- | kalyptus/kdocParseDoc.pm | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/kalyptus/kdocParseDoc.pm b/kalyptus/kdocParseDoc.pm index f28b4e5..befa8c5 100644 --- a/kalyptus/kdocParseDoc.pm +++ b/kalyptus/kdocParseDoc.pm @@ -60,15 +60,15 @@ PARSELOOP: next if !defined $text; $text =~ s#^\s*\*(?!\/)##; + if ( $text =~ m#\*/# ) { + $finished = 1; + $text = $`; + } # if ( $text =~ /^\s*<\/pre>/i ) { # flushProp(); # $inbounded = 0; # } if( $inbounded ) { - if ( $text =~ m#\*/# ) { - $finished = 1; - $text = $`; - } $buffer .= $text; next PARSELOOP; } @@ -165,10 +165,6 @@ PARSELOOP: docProp( "LibDoc" ); } else { - if ( $text =~ m#\*/# ) { - $finished = 1; - $text = $`; - } $buffer .= $text; } } |