mirror of https://github.com/CGAL/cgal
106 lines
3.0 KiB
Perl
Executable File
106 lines
3.0 KiB
Perl
Executable File
#!/usr/local/bin/perl -w
|
|
|
|
# This script applies the new_headers_v2 script to all packages.
|
|
#
|
|
# - It must be run from inside a "All" working copy.
|
|
# - The "new_headers_v2" script must be in $PATH.
|
|
# - This file must be checkout from CVS with the "-kk" option to prevent
|
|
# expansion of the flags... (it's not that a big deal anyway)
|
|
|
|
# Strangely, to run the script, I need to copy both in All/, and have "." in my
|
|
# $PATH, otherwise some old version of new_headers_v2 is selected (don't know
|
|
# why)
|
|
|
|
use strict;
|
|
use Cwd;
|
|
#use File::Copy;
|
|
#use File::Basename;
|
|
#use File::Find;
|
|
#use Getopt::Std;
|
|
|
|
my %packages=(
|
|
"Cartesian_kernel" => "",
|
|
"Circulator" => "",
|
|
"Configuration" => "",
|
|
"Distance_2" => "",
|
|
"Distance_3" => "",
|
|
"Fixed_precision_nt" => "",
|
|
"Generator" => "",
|
|
"Geomview" => "",
|
|
"H2" => "",
|
|
"H3" => "",
|
|
"HalfedgeDS" => "",
|
|
"Hash_map" => "",
|
|
"Installation" => "",
|
|
"Intersections_2" => "",
|
|
"Intersections_3" => "",
|
|
"Interval_arithmetic" => "",
|
|
"Inventor" => "",
|
|
"Kernel_23" => "",
|
|
"Kernel_d" => "",
|
|
"LEDA" => "",
|
|
"Modifier" => "",
|
|
"Number_types" => "",
|
|
"Polygon" => "",
|
|
"Qt_widget" => "",
|
|
"Random_numbers" => "",
|
|
"STL_Extension" => "",
|
|
"Scripts" => "",
|
|
"Stream_support" => "",
|
|
"Timer" => "",
|
|
"Union_find" => "",
|
|
"iostream" => "",
|
|
"window" => "",
|
|
"wininst" => "",
|
|
|
|
# Plus the following :
|
|
"Optimisation_basic" => "",
|
|
"PS_Stream" => "", # Should this be LGPL + INRIA only ?
|
|
"Viewer_3" => "" # idem
|
|
|
|
);
|
|
|
|
sub main()
|
|
{
|
|
my $package;
|
|
foreach $package (sort (keys %packages)) {
|
|
if (!-d $package) {
|
|
warn $package." IS NOT A DIRECTORY\n";
|
|
next;
|
|
}
|
|
|
|
print "Going on with : $package : ";
|
|
|
|
my @license_opts;
|
|
if ($packages{$package}) {
|
|
@license_opts=("-q", $packages{$package}); # QPL
|
|
}
|
|
|
|
print "License opts : @license_opts\n";
|
|
|
|
my $regexp="$package/include/CGAL/*.[hC]";
|
|
$regexp.=" $package/include/CGAL/*/*.[hC]";
|
|
$regexp.=" $package/include/CGAL/*/*/*.[hC]";
|
|
$regexp.=" $package/include/CGAL/*/*/*/*.[hC]";
|
|
$regexp.=" $package/include/CGAL/*/*/*/*/*.[hC]";
|
|
$regexp.=" $package/include/CGAL/*/*/*/*/*/*.[hC]";
|
|
$regexp.=" $package/src/*.[hC]";
|
|
$regexp.=" $package/src/*/*.[hC]";
|
|
$regexp.=" $package/src/*/*/*.[hC]";
|
|
$regexp.=" $package/src/*/*/*/*.[hC]";
|
|
$regexp.=" $package/config/testfiles/*.[hC]";
|
|
|
|
my @files = glob($regexp);
|
|
# print "acting on : @files\n";
|
|
|
|
my @args=("new_headers_v2", @license_opts, @files);
|
|
system(@args) == 0
|
|
or die "system @args failed: $?";
|
|
|
|
# Then cgal_submit the package.
|
|
}
|
|
}
|
|
|
|
main;
|
|
|