|
|
@ -3355,7 +3355,7 @@ sub addIncludeForClass($$$)
|
|
|
|
{
|
|
|
|
{
|
|
|
|
my ( $node, $addInclude, $debugMe ) = @_;
|
|
|
|
my ( $node, $addInclude, $debugMe ) = @_;
|
|
|
|
my $sourcename = $node->{Source}->{astNodeName};
|
|
|
|
my $sourcename = $node->{Source}->{astNodeName};
|
|
|
|
if ( $sourcename !~ s!.*(tdeio/|tdeparts/|dom/|kabc/|ksettings/|kjs/|tdetexteditor/|tdeprint/|tdesu/)(.*)!$1$2!m ) {
|
|
|
|
if ( $sourcename !~ s!.*(tdeio/|tdeparts/|dom/|tdeabc/|ksettings/|kjs/|tdetexteditor/|tdeprint/|tdesu/)(.*)!$1$2!m ) {
|
|
|
|
$sourcename =~ s!.*/(.*)!$1!m;
|
|
|
|
$sourcename =~ s!.*/(.*)!$1!m;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
# die "Empty source name for $node->{astNodeName}" if ( $sourcename eq '' );
|
|
|
|
# die "Empty source name for $node->{astNodeName}" if ( $sourcename eq '' );
|
|
|
@ -3624,7 +3624,7 @@ sub generateMethod($$$$$$$$$)
|
|
|
|
return;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if ( $sourcename !~ s!.*(tdeio/|tdeparts/|dom/|kabc/|ksettings/|kjs/|tdetexteditor/|tdeprint/|tdesu/)(.*)!$1$2!m ) {
|
|
|
|
if ( $sourcename !~ s!.*(tdeio/|tdeparts/|dom/|tdeabc/|ksettings/|kjs/|tdetexteditor/|tdeprint/|tdesu/)(.*)!$1$2!m ) {
|
|
|
|
$sourcename =~ s!.*/(.*)!$1!m;
|
|
|
|
$sourcename =~ s!.*/(.*)!$1!m;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if ( $sourcename eq '' ) {
|
|
|
|
if ( $sourcename eq '' ) {
|
|
|
@ -4155,7 +4155,7 @@ sub generateAllMethods($$$$$$$$)
|
|
|
|
|
|
|
|
|
|
|
|
my $sourcename = $classNode->{Source}->{astNodeName};
|
|
|
|
my $sourcename = $classNode->{Source}->{astNodeName};
|
|
|
|
|
|
|
|
|
|
|
|
if ( $sourcename !~ s!.*(tdeio/|tdeparts/|dom/|kabc/|ksettings/|kjs/|tdetexteditor/|tdeprint/|tdesu/)(.*)!$1$2!m ) {
|
|
|
|
if ( $sourcename !~ s!.*(tdeio/|tdeparts/|dom/|tdeabc/|ksettings/|kjs/|tdetexteditor/|tdeprint/|tdesu/)(.*)!$1$2!m ) {
|
|
|
|
$sourcename =~ s!.*/(.*)!$1!m;
|
|
|
|
$sourcename =~ s!.*/(.*)!$1!m;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
# die "Empty source name for $classNode->{astNodeName} $classNode->{Source}->{astNodeName}" if ( $sourcename eq '' );
|
|
|
|
# die "Empty source name for $classNode->{astNodeName} $classNode->{Source}->{astNodeName}" if ( $sourcename eq '' );
|
|
|
@ -4164,7 +4164,7 @@ sub generateAllMethods($$$$$$$$)
|
|
|
|
$addInclude->{$sourcename} = 1;
|
|
|
|
$addInclude->{$sourcename} = 1;
|
|
|
|
# my $s;
|
|
|
|
# my $s;
|
|
|
|
# for my $sn( @{$classNode->{Sources}} ) {
|
|
|
|
# for my $sn( @{$classNode->{Sources}} ) {
|
|
|
|
# if ( ($s = $sn->{astNodeName}) !~ s!.*(tdeio/|tdeparts/|dom/|kabc/|ksettings/|kjs/|tdetexteditor/|tdeprint/|tdesu/)(.*)!$1$2!m ) {
|
|
|
|
# if ( ($s = $sn->{astNodeName}) !~ s!.*(tdeio/|tdeparts/|dom/|tdeabc/|ksettings/|kjs/|tdetexteditor/|tdeprint/|tdesu/)(.*)!$1$2!m ) {
|
|
|
|
# $s =~ s!.*/(.*)!$1!m;
|
|
|
|
# $s =~ s!.*/(.*)!$1!m;
|
|
|
|
# }
|
|
|
|
# }
|
|
|
|
# $addInclude->{$s} = 1;
|
|
|
|
# $addInclude->{$s} = 1;
|
|
|
|