File indexing completed on 2024-04-21 09:32:37

 #!/usr/bin/perl -w
 
 # Laurent Montel <montel@kde.org> (2014)
 # K[V|H]Box -> QWidget + QH|VBoxLayout
 # find -iname "*.cpp" -o -iname "*.h"|xargs kde-dev-scripts/kf5/convert-kvbox.pl
 
 use strict;
 use File::Basename;
 use lib dirname($0);
 use functionUtilkde;
 
 foreach my $file (@ARGV) {
 
     # Key = variable name of the parent QWidget
     # Value = variable name of the associated layout
     my %varname = ();
 
     my $modified;
     my $needQHBoxLayout;
     my $needQVBoxLayout;
     open(my $FILE, "<", $file) or warn "We can't open file $file:$!\n";
     my @l = map {
         my $orig = $_;
         my $regexp = qr/
            ^(\s*)            # (1) Indentation
            (.*?)             # (2) Possibly "Classname *" (the ? means non-greedy)
            (\w+)             # (3) variable name
            \s*=\s*           #     assignment
            new\s+            #     new
            (K[HV]Box)\s*    # (4) KHBox or KVBox
            /x; # /x Enables extended whitespace mode
          if (my ($indent, $left, $var, $classname) = $_ =~ $regexp) {
            s/K[HV]Box/QWidget/g;
            my $mylayoutname = $classname eq "KHBox" ? "${var}HBoxLayout" : "${var}VBoxLayout";
            $mylayoutname =~ s/^m?_//; # coding style: this is a local var
            my $mylayoutclass = $classname eq "KHBox" ? "QHBoxLayout" : "QVBoxLayout";
            if ( defined $varname{$var}) {
               $_ .= $indent . "${mylayoutname} = new $mylayoutclass($var);" . "\n";
            } else {
               $_ .= $indent . $mylayoutclass . " *${mylayoutname} = new $mylayoutclass($var);" . "\n";
            } 
            $_ .= $indent . "${mylayoutname}->setMargin(0);\n";
            $varname{$var} = ${mylayoutname};
            if ($mylayoutclass eq "QHBoxLayout") {
               $needQHBoxLayout = 1;
            } else {
               $needQVBoxLayout = 1;
            }
         }
         my $widget_regexp = qr/
            ^(\s*)            # (1) Indentation
            (.*?)             # (2) Possibly "Classname *" (the ? means non-greedy)
            (\w+)             # (3) variable name
            \s*=\s*           #     assignment
            new\s+            #     new
            (\w+)\s*          # (4) classname
            ${functionUtilkde::paren_begin}5${functionUtilkde::paren_end}  # (5) (args)
            /x; # /x Enables extended whitespace mode
        if (my ($indent, $left, $var, $classname, $args) = $_ =~ $widget_regexp) {
            # Extract last argument
            #print STDERR "left=$left var=$var classname=$classname args=$args\n";
            my $extract_parent_regexp = qr/
             ^\(
             (?:.*?)                # args before the parent (not captured, not greedy)
             \s*(\w+)\s*            # (1) parent 
             (?:,\s*\"[^\"]*\"\s*)? # optional: object name
              \)$
             /x; # /x Enables extended whitespace mode      
            if (my ($lastArg) = $args =~ $extract_parent_regexp) {
               print STDERR "extracted parent=" . $lastArg . "\n";
               my $mylayoutname = $varname{$lastArg};
               if (defined $mylayoutname) {
                   $_ .= $indent . $mylayoutname . "->addWidget(" . $var . ");" . "\n";
                }
            } else {
               #warn $functionUtilkde::current_file . ":" . $functionUtilkde::current_line . ": couldn't extract last argument from " . $args . "\n";
           }
         }
  
         if (/(\w+)->setSpacing\s*\(.*/) {
           my $var = $1;
           my $mylayoutname = $varname{$var};
           if ( defined $mylayoutname ) {
               s/$var->setSpacing/$mylayoutname->setSpacing/;
           }
         }
         if (/(\w+)->setMargin\s*\(.*/) {
           my $var = $1;
           my $mylayoutname = $varname{$var};
           if ( defined $mylayoutname ) {
                s/$var->setMargin/$mylayoutname->setMargin/;
           }
         }
         if (/(\w+)->setStretchFactor\s*\(.*/) {
           my $var = $1;
           my $mylayoutname = $varname{$var};
           if ( defined $mylayoutname ) {
                s/$var->setStretchFactor/$mylayoutname->setStretchFactor/;
           }
         }
 
 
 
         s/#include <khbox\.h>/#include <QHBoxLayout>/;
         s/#include <kvbox\.h>/#include <QVBoxLayout>/;
         s/#include <KHBox>/#include <QHBoxLayout>/;
         s/#include <KVBox>/#include <QVBoxLayout>/;
         s/class KVBox;//;
         s/class KHBox;//;
         s/KVBox\s*\*/QWidget */;
         s/KHBox\s*\*/QWidget */;
 
 
 
 
         $modified ||= $orig ne $_;
         $_;
     } <$FILE>;
 
     if ($modified) {
         open (my $OUT, ">", $file);
         print $OUT @l;
         close ($OUT);
         if ( $needQVBoxLayout) {
            functionUtilkde::addIncludeInFile($file, "QVBoxLayout");
         }
         if ( $needQHBoxLayout) {
            functionUtilkde::addIncludeInFile($file, "QHBoxLayout");
         }
     }
 }
 
 functionUtilkde::diffFile( "@ARGV" );