diff options
author | Slávek Banko <slavek.banko@axis.cz> | 2020-06-18 11:56:26 +0200 |
---|---|---|
committer | Slávek Banko <slavek.banko@axis.cz> | 2020-06-18 11:56:26 +0200 |
commit | 3da067051cc259588363c88875374fd699c83a07 (patch) | |
tree | 152b82d4291f0c75be4573a8c5a02b25eba87738 /kalyptus/kdocAstUtil.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 <slavek.banko@axis.cz>
Diffstat (limited to 'kalyptus/kdocAstUtil.pm')
-rw-r--r-- | kalyptus/kdocAstUtil.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/kalyptus/kdocAstUtil.pm b/kalyptus/kdocAstUtil.pm index 8c24430..d7586b9 100644 --- a/kalyptus/kdocAstUtil.pm +++ b/kalyptus/kdocAstUtil.pm @@ -361,10 +361,12 @@ ANITER: if( !defined $ref ) { # ancestor undefined - warn "warning: ", $node->{astNodeName}, - " inherits unknown class '", + if( $in->{astNodeName} ne "DCOPObject" + && $in->{astNodeName} ne "TQObject" ) { + warn "warning: ", $node->{astNodeName}, + " inherits unknown class '", $in->{astNodeName},"'\n"; - + } $parent->AddPropList( 'InBy', $node ); } else { |