smoke/phonon/generate.pl.cmake

   1 #!/usr/bin/perl -w
   2
   3 ## Run this first, to generate the x_*.cpp files from the Qt headers
   4 ## using kalyptus
   5
   6 my $kalyptusdir = "@CMAKE_CURRENT_SOURCE_DIR@/../../kalyptus";
   7
   8 use File::Basename;
   9 use File::Copy qw|cp|;
  10 use File::Compare;
  11 use File::Find;
  12 use Cwd;
  13
  14 my $here = getcwd;
  15 my $outdir = $here . "/generate.pl.tmpdir";
  16 my $finaloutdir = $here;
  17 my $defines = "qtdefines";
  18 my $headerlist = "@CMAKE_CURRENT_SOURCE_DIR@/header_list";
  19 my $definespath = "$here/../$defines";
  20 my $headerlistpath = "$headerlist";
  21
  22 my $phononheaderlist = "@CMAKE_CURRENT_SOURCE_DIR@/phonon_header_list";
  23 my $phononheaderlistpath = "$here/$phononheaderlist";
  24
  25 ## If srcdir != builddir, use headerlist from src
  26 $headerlistpath = $headerlist if ($headerlist =~ /^\//);
  27 $phononheaderlistpath = $phononheaderlist if $phononheaderlist =~ /^\//;
  28
  29 ## Note: outdir and finaloutdir should NOT be the same dir!
  30
  31 # Delete all x_*.cpp files under outdir (or create outdir if nonexistent)
  32 if (-d $outdir) { system "rm -f $outdir/x_*.cpp"; } else { mkdir $outdir; }
  33
  34 mkdir $finaloutdir unless (-d $finaloutdir);
  35
  36 #  Load the QT_NO_* macros found in "qtdefines". They'll be passed to kalyptus
  37 my $macros="";
  38 if ( -e $definespath ){
  39     print "Found '$defines'. Reading preprocessor symbols from there...\n";
  40     $macros = " --defines=$definespath ";
  41 }
  42
  43 mkdir $kalyptusdir, 0777;
  44 # Need to cd to kalyptus's directory so that perl finds Ast.pm etc.
  45 chdir "$kalyptusdir" or die "Couldn't go to $kalyptusdir (edit script to change dir)\n";
  46
  47
  48
  49 # Some systems have a QTDIR = KDEDIR = PREFIX
  50 # We need a complete list
  51
  52 my %includes;
  53 open(HEADERS, $headerlistpath) or die "Couldn't open $headerlistpath: $!\n";
  54 map { chomp ; $includes{$_} = 1 } <HEADERS>;
  55 close HEADERS;
  56
  57
  58 # Some systems have a QTDIR = KDEDIR = PREFIX
  59 # We need a complete list
  60
  61 my %kdeincludes;
  62
  63 open(HEADERS, $phononheaderlistpath) or die "Couldn't open $phononheaderlistpath: $!\n";
  64 map { chomp ; $kdeincludes{$_} = 1 unless /^\s*#/ } <HEADERS>;
  65 close HEADERS;
  66
  67 # List Qt headers, and exclude the ones listed above
  68 my @headers = ();
  69
  70 @qtinc= (@qt_incs@);
  71
  72 find(
  73     {   wanted => sub {
  74             (-e || -l and !-d) and do {
  75                 $f = $_;
  76                 if( $includes{$f}        # Known header
  77                      && /\.h$/)     # Not a backup file etc. Only headers.
  78                 {
  79                     my $header = $File::Find::name;
  80                     if ( $header !~ /src/ ) {
  81                         open(FILE, $header);
  82                         my @header_lines = <FILE>;
  83                         if (@header_lines == 1) {
  84                             $line = $header_lines[0];
  85                             if ($line =~ /^#include "(.*)"/) {
  86                                 push ( @headers, $File::Find::dir . substr($1, 2) );
  87                             } else {
  88                                 push ( @headers, $header );
  89                             }
  90                         } else {
  91                             push ( @headers, $header );
  92                         }
  93                                         }
  94                 }
  95                 undef $includes{$f}
  96              };
  97         },
  98         follow_fast => 1,
  99         follow_skip => 2,
 100         no_chdir => 0
 101     }, @qtinc
 102 );
 103
 104 my @kdeheaders = ();
 105 $kdeprefix = "@KDE_PREFIX@";
 106 $kdeinc= ('@kde_includes@', '@PHONON_INCLUDE_DIR@' );
 107 $kdeinc =~ s/\${prefix}/$kdeprefix/; # Remove ${prefix} in src != build
 108 -d $kdeinc or die "Couldn't process $kdeinc: $!\n";
 109
 110 find(
 111     {   wanted => sub {
 112             (-e || -l and !-d) and do {
 113                 $f = substr($_, 1 + length $kdeinc);
 114                 push ( @kdeheaders, $_ )
 115                   if( $kdeincludes{$f}        # Known header
 116                      && /\.h$/);     # Not a backup file etc. Only headers.
 117                 undef $kdeincludes{$f}
 118              };
 119         },
 120         follow_fast => 1,
 121         follow_skip => 2,
 122         no_chdir => 1
 123     }, $kdeinc
 124  );
 125
 126 # Launch kalyptus
 127 chdir "../smoke/phonon";
 128 system "perl -I@kdebindings_SOURCE_DIR@/kalyptus @kdebindings_SOURCE_DIR@/kalyptus/kalyptus @ARGV --qt4 --globspace -fsmoke --name=phonon --init-modules=qt --classlist=@CMAKE_CURRENT_SOURCE_DIR@/classlist $macros --no-cache --outputdir=$outdir @headers @kdeheaders";
 129 my $exit = $? >> 8;
 130 exit $exit if ($exit);
 131 chdir "$kalyptusdir";
 132
 133 # Generate diff for smokedata.cpp
 134 unless ( -e "$finaloutdir/smokedata.cpp" ) {
 135     open( TOUCH, ">$finaloutdir/smokedata.cpp");
 136     close TOUCH;
 137 }
 138 system "diff -u $finaloutdir/smokedata.cpp $outdir/smokedata.cpp > $outdir/smokedata.cpp.diff";
 139
 140 # Copy changed or new files to finaloutdir
 141 opendir (OUT, $outdir) or die "Couldn't opendir $outdir";
 142 foreach $filename (readdir(OUT)) {
 143     next if ( -d "$outdir/$filename" ); # only files, not dirs
 144     my $docopy = 1;
 145     if ( -f "$finaloutdir/$filename" ) {
 146         $docopy = compare("$outdir/$filename", "$finaloutdir/$filename"); # 1 if files are differents
 147     }
 148     if ($docopy) {
 149         #print STDERR "Updating $filename...\n";
 150         cp("$outdir/$filename", "$finaloutdir/$filename");
 151     }
 152 }
 153 closedir OUT;
 154
 155 # Check for deleted files and warn
 156 my $deleted = 0;
 157 opendir(FINALOUT, $finaloutdir) or die "Couldn't opendir $finaloutdir";
 158 foreach $filename (readdir(FINALOUT)) {
 159     next if ( -d "$finaloutdir/$filename" ); # only files, not dirs
 160     if ( $filename =~ /.cpp$/ && ! ($filename =~ /_la_closure.cpp/) && ! -f "$outdir/$filename" ) {
 161       print STDERR "Removing obsolete file $filename\n";
 162       unlink "$finaloutdir/$filename";
 163       $deleted = 1;
 164     }
 165 }
 166 closedir FINALOUT;
 167
 168 # Delete outdir
 169 system "rm -rf $outdir";
 170