Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2021-02-14 14:32:00

0001 #!/usr/bin/env perl
0002 use File::Basename;
0003 use lib dirname($0);
0004 use SCRAMGenUtils;
0005 $|=1;
0006 
0007 my $curdir=`/bin/pwd`; chomp $curdir;
0008 my $scriptdir=dirname($0);
0009 my $dir="";
0010 while(my $arg=shift)
0011 {
0012   if($arg eq "--help"){&usage();exit 0;}
0013   else{$dir=$arg;last;}
0014 }
0015 if($dir eq ""){$dir=$curdir;}
0016 if(!-d $dir){die "No such directory: $dir\n";}
0017 
0018 if($dir=~/^[^\/]/){$dir="${curdir}/${dir}";}
0019 $dir=&SCRAMGenUtils::fixPath($dir);
0020 
0021 my $release=&SCRAMGenUtils::scramReleaseTop($dir);
0022 if($release eq ""){die "\"$dir\" is not SCRAM-base project area.\n";}
0023 my $releasetop=&SCRAMGenUtils::getFromEnvironmentFile("RELEASETOP",$release) || $release;
0024 if($releasetop eq $release){die "\"$release\" is a release area. Please run this script in your developer area.\n";}
0025 &SCRAMGenUtils::init($release);
0026 my $arch=&SCRAMGenUtils::getScramArch();
0027 
0028 my $headerext="\\.(h|hh|hpp)\$";
0029 my $srcext="\\.(cc|cpp|c|cxx)\$";
0030 my $lexparseext="_(lex\\.l|parse\\.y)\$";
0031 my $config=&SCRAMGenUtils::getFromEnvironmentFile("SCRAM_CONFIGDIR","$release") || "config";
0032 my $src=&SCRAMGenUtils::getFromEnvironmentFile("SCRAM_SOURCEDIR","$release") || "src";
0033 my $project=&SCRAMGenUtils::getFromEnvironmentFile("SCRAM_PROJECTNAME","$release");
0034 if($release eq $dir){$dir.="/${src}";}
0035 
0036 my $packdir=$dir;
0037 if($packdir=~/^${release}\/${src}(\/.+|)$/){$packdir=$1;$packdir=~s/^\/*//;}
0038 else{die "Wrong subsystem/package directory \"$dir\".\n";}
0039 my $actualdir=$packdir;
0040 if($packdir eq ""){$packdir=".+";}
0041 else{$packdir="^$packdir(\/.+|)\$";}
0042 
0043 $SCRAM_CMD=$SCRAMGenUtils::SCRAM_CMD;
0044 
0045 print 'OWNHEADER=^(.+)/[^/]+/([^\\.]+)\\.(cc|CC|cpp|C|c|CPP|cxx|CXX)$:"$1/.+?/$2\\\.(h|hh|hpp|H|HH|HPP)\\$"',"\n";
0046 print 'LOCAL_HEADERS=^([^/]+/[^/]+)/.+$:"$1/.+"',"\n";
0047 print "BASE_DIR=${release}/${src}\n";
0048 my $flags="";
0049 my $cache={};
0050 #print "BASE_DIR=${releasetop}/${src}\n";
0051 my $doscramb=0;
0052 my $pcf=&SCRAMGenUtils::fixCacheFileName("${release}/.SCRAM/${arch}/ProjectCache.db");
0053 if((-f "${release}/tmp/${arch}/Makefile") && (-f $pcf))
0054 {
0055   $cache->{cache}=&SCRAMGenUtils::readCache($pcf);
0056   my %dirstocheck=();
0057   if($actualdir=~/\//){$dirstocheck{$actualdir}=1;}
0058   else
0059   {
0060     if($actualdir ne ""){$actualdir.="/";}
0061     foreach my $d (&SCRAMGenUtils::readDir("${release}/${src}/${actualdir}",1))
0062     {
0063       if($d eq "CVS"){next;}
0064       $d="${actualdir}${d}";
0065       if($d!~/\//)
0066       {
0067         foreach my $d1 (&SCRAMGenUtils::readDir("${release}/${src}/${d}",1))
0068     {
0069       if($d1 eq "CVS"){next;}
0070       $dirstocheck{"${d}/${d1}"}=1;
0071     }
0072       }
0073       else{$dirstocheck{$d}=1;}
0074     }
0075   }
0076   my $dircount=scalar(keys %dirstocheck);
0077   foreach my $d (keys %{$cache->{cache}{BUILDTREE}})
0078   {
0079     if(exists $dirstocheck{$d})
0080     {
0081       delete $dirstocheck{$d};
0082       $dircount--;
0083       if($dircount == 0){last;}
0084     }
0085   }
0086   if($dircount > 0){$doscramb=1;}
0087 }
0088 else{$doscramb=1;}
0089 if($doscramb)
0090 {
0091   print "Doing \"$SCRAM_CMD b\" due to new directories:";
0092   print join("\n  ",keys %dirstocheck),"\n";
0093   system("cd $release; $SCRAM_CMD b -r echo_CXX ufast >/dev/null 2>&1");
0094   $cache->{cache}=&SCRAMGenUtils::readCache($pcf);
0095 }
0096 
0097 my $tmprel=$release;
0098 $cache->{tools}=&SCRAMGenUtils::readCache(&SCRAMGenUtils::fixCacheFileName("${tmprel}/.SCRAM/${arch}/ToolCache.db"));
0099 
0100 my $cxx="/usr/bin/c++";
0101 my $cxx_ver="";
0102 if(exists $cache->{tools}{SETUP}{cxxcompiler}{CXX}){$cxx=$cache->{tools}{SETUP}{cxxcompiler}{CXX};}
0103 else{$cxx=&SCRAMGenUtils::getBuildVariable($tmprel,"CXX","ufast") || $cxx;}
0104 if(-x $cxx){$cxx_ver=`$cxx --version | head -1 | awk '{print \$3}'`;chomp $cxx_ver;}
0105 
0106 print "COMPILER=$cxx\n";
0107 print "COMPILER_VERSION=$cxx_ver\n";
0108 print 'SKIP_INCLUDES=.+:"\\\.(cxx|cc|c|cpp|CXX|CC|C|CPP|inc|INC|icpp|ICPP|ii|II|icc|ICC|ipp|IPP)\$"',"\n";
0109 print 'SKIP_INCLUDES=^(Ig|Vis).*?/interface/config\.h$:"^classlib/sysapi/system\\\.h\$"',"\n";
0110 print 'SKIP_INCLUDES=.+:"^FWCore/ParameterSet/test/ConfigTestMain\\\.h\$"',"\n";
0111 print 'SKIP_INCLUDE_INDIRECT_ADD=.+:"^(Ig|Vis).*?/interface/config\\\.h\$"',"\n";
0112 print 'SKIP_AND_ADD_REMOVED_INCLUDES=^.*?/classes\.h$',"\n";
0113 print 'SKIP_AND_ADD_REMOVED_INCLUDES=^.*?/([^/]*)LinkDef\.h$',"\n";
0114 
0115 &genConfig ($packdir,$cache);
0116 $cache->{orderedtool}=&SCRAMGenUtils::getOrderedTools($cache->{tools});
0117 my $toolcount=scalar(@{$cache->{orderedtool}});
0118 $cache->{uniqinc}={};
0119 foreach my $tool (@{$cache->{orderedtool}})
0120 {
0121   if(exists $cache->{tools}{SETUP}{$tool}{INCLUDE})
0122   {
0123     foreach my $inc (@{$cache->{tools}{SETUP}{$tool}{INCLUDE}})
0124     {
0125       if(!exists $cache->{uniqinc}{$inc})
0126       {$flags.=" -I$inc";$cache->{uniqinc}{$inc}=1;}
0127     }
0128   }
0129 }
0130 
0131 foreach my $inc (split /\s+/, &SCRAMGenUtils::getBuildVariable($tmprel,"CPPDEFINES","ufast"))
0132 {$flags="$flags ".postProcessFlag ("-D$inc");}
0133 $flags="$flags ".&postProcessFlag(&SCRAMGenUtils::getBuildVariable($tmprel,"CPPFLAGS","ufast"));
0134 $flags="$flags ".&postProcessFlag(&SCRAMGenUtils::getBuildVariable($tmprel,"CXXFLAGS","ufast"));
0135 print "DEFAULT_COMPILER_FLAGS=$flags\n";
0136 #my $tmpl_compile_support=&checkTemplateCompilationSupport ();
0137 #my $def_compile_support=&checkDefineCompilationSupport ();
0138 #if(($tmpl_compile_support==0) || ($def_compile_support==0)){&genSkip ($cache);}
0139 print "SOURCE_EXT=$lexparseext\n";
0140 
0141 foreach my $d ("$curdir","$scriptdir")
0142 {
0143   if(-f "${d}/${project}_IncludeChecker.conf")
0144   {
0145     print "#Extra Include Checker Configuration: ${d}/${project}_IncludeChecker.conf\n";
0146     system("cat ${d}/${project}_IncludeChecker.conf");
0147     last;
0148   }
0149 }
0150 &final_exit(0);
0151 
0152 sub final_exit ()
0153 {
0154   my $code=shift || 0;
0155   if(($tmprel ne "") && ($tmprel ne $release)){system("rm -rf $tmprel");}
0156   exit $code;
0157 }
0158 
0159 sub genSkip ()
0160 {
0161   my $data=shift;
0162   foreach my $prod (keys %{$data->{prods}})
0163   {
0164     foreach my $f (@{$data->{prods}{$prod}{files}})
0165     {
0166       
0167       if($f!~/.+?$headerext/i){next;}
0168       if($f=~/.+?FWD$headerext/i){print "SKIP_FILES=^$f\$\n";next;}
0169       if(-f "${release}/${src}/${f}")
0170       {
0171         foreach my $line (`cat ${release}/${src}/${f}`)
0172         {
0173           chomp $line;
0174       if(($def_compile_support==0) && ($line=~/^\s*\#\s*define\s+.+?\\$/))
0175       {print "SKIP_FILES=^$f\$\n";last;}
0176       if(($tmpl_compile_support==0) && ($line=~/^\s*template\s*<.+/))
0177       {print "SKIP_FILES=^$f\$\n";last;}
0178         }
0179       }
0180     }
0181   }
0182 }
0183 
0184 sub genConfig ()
0185 {
0186   my $dir=shift;
0187   my $data=shift;
0188   my $cache=$data->{cache};
0189   $data->{prods}={};
0190   foreach my $d (keys %{$cache->{BUILDTREE}})
0191   {
0192     if($d!~/$dir/){next;}
0193     if((exists $cache->{BUILDTREE}{$d}{CLASS}) && (exists $cache->{BUILDTREE}{$d}{RAWDATA}{content}))
0194     {
0195       my $suffix=$cache->{BUILDTREE}{$d}{SUFFIX};
0196       if($suffix ne ""){next;}
0197       my $class=$cache->{BUILDTREE}{$d}{CLASS};
0198       my $c=$cache->{BUILDTREE}{$d}{RAWDATA}{content};
0199       if($class eq "LIBRARY"){&addPack($data,$c,dirname($d));}
0200       elsif($class=~/^(TEST|BIN|PLUGINS|BINARY)$/){&addProds($data,$c,$d);}
0201     }
0202   }
0203   &getFlags($data->{prods});
0204   foreach my $prod (sort keys %{$data->{prods}})
0205   {
0206     print "COMPILER_FLAGS=".$data->{prods}{$prod}{flags}."\n";
0207     foreach my $file (@{$data->{prods}{$prod}{files}})
0208     {
0209       print "FILES=$file\n";
0210       if($file=~/$lexparseext/){print "SKIP_AND_ADD_REMOVED_INCLUDES=^$file\$\n";}
0211     }
0212   }
0213 }
0214 
0215 sub addPack()
0216 {
0217   my $data=shift;
0218   my $cache=shift;
0219   my $d=&SCRAMGenUtils::fixPath(shift);
0220   my $prod=&run_func("safename",$project,"${release}/${src}/${d}");
0221   if($prod eq ""){die "ERROR: Script is not ready for $project SCRAM-based project.\n";}
0222   $data->{prods}{$prod}{files}=[];
0223   my $pkinterface=&run_func("pkg_interface",$project,$d);
0224   my $pksrc=&run_func("pkg_src",$project,$d);
0225   foreach my $d1 ($pkinterface,$pksrc)
0226   {
0227     my $dir="${release}/${src}/${d}/${d1}";
0228     if(-d "$dir")
0229     {
0230       foreach my $f (&SCRAMGenUtils::readDir($dir,2))
0231       {if(($f=~/$headerext/i) || ($f=~/$srcext/i) || ($f=~/$lexparseext/)){push @{$data->{prods}{$prod}{files}},"${d}/${d1}/${f}";}}
0232     }
0233   }
0234   if(scalar(@{$data->{prods}{$prod}{files}})==0){delete $data->{prods}{$prod};}
0235 }
0236 
0237 sub addProds ()
0238 {
0239   my $data=shift;
0240   my $cache=shift;
0241   my $d=&SCRAMGenUtils::fixPath(shift);
0242   my $bf1="${release}/src/${d}/BuildFile.xml";
0243   if(!-f $bf1){$bf1="${release}/src/${d}/BuildFile";}
0244   my $bf=undef;
0245   foreach my $t (keys %{$cache->{BUILDPRODUCTS}})
0246   {
0247     foreach my $prod (keys %{$cache->{BUILDPRODUCTS}{$t}})
0248     {
0249       if($prod=~/^\s*$/){next;}
0250       my $name=basename($prod);
0251       $data->{prods}{$name}{files}=[];
0252       my $type=lc($t);
0253       if(!defined $bf){$bf=&SCRAMGenUtils::readBuildFile($bf1);}
0254       if((exists $bf->{$type}{$name}) && (exists $bf->{$type}{$name}{file}))
0255       {
0256     foreach my $f (@{$bf->{$type}{$name}{file}})
0257     {
0258       foreach my $fx (split /\,/,$f)
0259       {
0260         foreach my $f1 (split /\s+/,$fx)
0261         {
0262           foreach my $f2 (`ls ${release}/src/${d}/$f1 2> /dev/null`)
0263           {
0264             chomp $f2;
0265             $f2=~s/^${release}\/src\///;
0266             $f2=&SCRAMGenUtils::fixPath($f2);
0267             my $fd=dirname($f2);
0268             push @{$data->{prods}{$name}{files}},$f2;
0269           }
0270         }
0271       }
0272     }
0273       }
0274       if(scalar(@{$data->{prods}{$name}{files}})==0){delete $data->{prods}{$prod};}
0275     }
0276   }
0277 }
0278 
0279 sub getFlags ()
0280 {
0281   my $cache=shift;
0282   my @prods=keys %{$cache};
0283   my $s=0;
0284   my $t=scalar(@prods);
0285   my $e=$t;
0286   my $m=200;
0287   while($e>0)
0288   {
0289     if($e>$m){$e=$m;}
0290     my $rules="";
0291     my $prod="";
0292     while($e>0)
0293     {
0294       $prod=$prods[$s++];$e--;
0295       foreach my $f ("CPPFLAGS", "CXXFLAGS"){$rules="$rules echo_${prod}_${f}";}
0296     }
0297     $e=$t-$s;
0298     if($rules eq ""){next;}
0299     foreach my $output (`cd $tmprel; $SCRAM_CMD b -f $rules 2>&1`)
0300     {
0301       chomp $output;
0302       if ($output=~/^\s*((.+?)_(CPPFLAGS|CXXFLAGS))\s+=\s+(.*)/)
0303       {
0304         $prod=$2;
0305         my $val=$4;
0306         if (exists $cache->{$prod})
0307         {
0308       my $oldval=$cache->{$prod}{flags};
0309       $cache->{$prod}{flags}="$oldval ".&postProcessFlag($val);
0310         }
0311       }
0312     }
0313   }
0314 }
0315 
0316 sub postProcessFlag ()
0317 {
0318   my $l=shift;
0319   my $new="";
0320   while($l=~/^(.*?\s+\-D[^\s]+=)"(.*)$/)
0321   {
0322     $new="$new $1'\"";
0323     my $rest=$2;
0324     my $esc=0;
0325     my $done=0;
0326     foreach my $ch (split //, $rest)
0327     {
0328       if($done){$l="$l$ch";}
0329       elsif($ecs){$esc=0;$new="$new$ch";}
0330       elsif($ch eq '\\'){$esc=1;$new="$new$ch";}
0331       elsif($ch eq '"'){$done=1;$new="$new$ch'";$l="";}
0332       else{$new="$new$ch";}
0333     }
0334   }
0335   return "$new $l";
0336 }
0337 
0338 #####################################
0339 # Run a tool specific func
0340 ####################################
0341 sub run_func ()
0342 {
0343   my $func=shift || return "";
0344   my $tool=shift || return "";
0345   if($tool eq "self"){$tool=$project;}
0346   $tool=lc($tool);
0347   my $funcx="${func}_${tool}";
0348   if(exists &$funcx){return &$funcx(@_);}
0349   $funcx="${func}_default";
0350   if(exists &$funcx){return &$funcx($tool,@_);}
0351   return "";
0352 }
0353 #############################################
0354 # generating library safe name for a package
0355 #############################################
0356 sub safename_pool ()
0357 {return "lcg_".basename(shift);}
0358 sub safename_seal ()
0359 {return "lcg_".basename(shift);}
0360 sub safename_coral ()
0361 {return "lcg_coral_".basename(shift);}
0362 
0363 sub safename_ignominy ()
0364 {return &safename_cms1(shift);}
0365 sub safename_iguana ()
0366 {return &safename_cms1(shift);}
0367 sub safename_cmssw ()
0368 {return &safename_cms2(shift);}
0369 
0370 sub safename_cms1 ()
0371 {
0372   my $dir=shift;
0373   if($dir=~/^${release}\/src\/([^\/]+?)\/([^\/]+)$/){return "${2}";}
0374   else{return "";}
0375 }
0376 sub safename_cms2 ()
0377 {
0378   my $dir=shift;
0379   if($dir=~/^${release}\/src\/([^\/]+?)\/([^\/]+)$/){return "${1}${2}";}
0380   else{return "";}
0381 }
0382 #############################################
0383 # getting interface file directory name
0384 #############################################
0385 sub pkg_interface_pool ()
0386 {return basename(shift);}
0387 sub pkg_interface_seal ()
0388 {return basename(shift);}
0389 sub pkg_interface_coral ()
0390 {return basename(shift);}
0391 
0392 sub pkg_interface_ignominy ()
0393 {return "interface";}
0394 sub pkg_interface_iguana ()
0395 {return "interface";}
0396 sub pkg_interface_cmssw ()
0397 {return "interface";}
0398 
0399 sub pkg_src_pool ()
0400 {return "src";}
0401 sub pkg_src_seal ()
0402 {return "src";}
0403 sub pkg_src_coral ()
0404 {return "src";}
0405 
0406 sub pkg_src_ignominy ()
0407 {return "src";}
0408 sub pkg_src_iguana ()
0409 {return "src";}
0410 sub pkg_src_cmssw ()
0411 {return "src";}
0412 
0413 ########################################################################
0414 sub pkg_depth_cmssw ()
0415 {return 2;}
0416 sub pkg_depth_ignominy ()
0417 {return 2;}
0418 sub pkg_depth_iguana ()
0419 {return 2;}
0420 
0421 sub pkg_depth_default ()
0422 {
0423   my $tool=shift;
0424   if($tool=~/^(cmssw|iguana|ignominy)$/){return 2;}
0425   if($tool=~/^(seal|pool|coral)$/){return 1;}
0426   return 1;
0427 }
0428 ########################################################################
0429 
0430 sub checkTemplateCompilationSupport ()
0431 {
0432   return 0;
0433   my $dir=&SCRAMGenUtils::getTmpDir();
0434   system("echo \"template <class  T>class A{A(T t){std::cout <<std::endl;}};\" > ${dir}/test.cc");
0435   my $data=`cd ${dir}; $cxx -c -fsyntax-only test.cc 2>&1`;
0436   my $tmpl=$?;
0437   system("rm -rf $dir");
0438   if($tmpl != 0){$tmpl=1;}
0439   return $tmpl;
0440 }
0441 
0442 sub checkDefineCompilationSupport ()
0443 {
0444   return 0;
0445 }
0446 
0447 sub usage()
0448 {
0449   print "Usage\n";
0450   print "  $0 [--help] <directory>\n\n";
0451   print "    --help         To get this help message.\n";
0452 }