From 459936841e4871bd198e6501a33a9b53aad70e8e Mon Sep 17 00:00:00 2001 From: bangerth Date: Thu, 27 Sep 2012 16:52:11 +0000 Subject: [PATCH] Remove scripts that haven't been used in a long time. git-svn-id: https://svn.dealii.org/trunk@26787 0785d39b-7218-0410-832d-ea1e28bc413d --- .../common/scripts/forward_declarations.pl | 141 ------------- .../common/scripts/make_dependencies.pl.in | 11 - deal.II/common/scripts/minimize_boost | 194 ------------------ deal.II/common/scripts/squash_gmonout.pl | 8 - 4 files changed, 354 deletions(-) delete mode 100644 deal.II/common/scripts/forward_declarations.pl delete mode 100644 deal.II/common/scripts/make_dependencies.pl.in delete mode 100755 deal.II/common/scripts/minimize_boost delete mode 100755 deal.II/common/scripts/squash_gmonout.pl diff --git a/deal.II/common/scripts/forward_declarations.pl b/deal.II/common/scripts/forward_declarations.pl deleted file mode 100644 index 7891a8872d..0000000000 --- a/deal.II/common/scripts/forward_declarations.pl +++ /dev/null @@ -1,141 +0,0 @@ -# call this script with a list of files it shall process for -# class and struct declarations. - - -#fill list of files to be processed -while ($ARGV[0]) { - @input_files = (@input_files, shift); -} - - -# generate a guard for the file to disallow multiple inclusion -$guard = `pwd`; -# in case the string gets longer than the number of significant -# positions for the preprocessor is, it is safer to use the -# last parts of the string fist. therefore, split the string -# at the slashes and assemble it again backwards -$guard = join("/", reverse(split(/\//, $guard))); -$guard =~ s![^\w]!_!g; -$guard .= "__guard"; -print "#ifndef $guard\n"; -print "#define $guard\n"; -print "\n"; - -print "/* this file is automatically generated from the Makefile; do not\n"; -print " * change it by hand. */\n"; -print "\n\n"; - -foreach $file (@input_files) { - parse_class_declarations ($file); -}; - -print "\n\n"; -print "#endif // $guard\n"; - - - - -sub parse_class_declarations { - local ($filename) = $_[0]; - - open (FILE, $filename); - while () { - # if this is continued line, then strip the backslash and join - # it with the following one as well - while ( /\\$/ ) { - $_ =~ s/\\$//; - $_ = $_ . " " . ; - } - - # if the lines contains a "template" at the - # beginning and no semicolon at the end: join it - # with the next line. - if ( /^\s*template/ && !/;\s*$/ ) { - # if this is a multiline template, then join following lines as well - # find out by looking at the last char of the line - while ( ! />\s*$/ ) { - # more concise check: find out whether the number of '<' is - # not equal to the number of '>' - my ( $tmp1, $tmp2 ) = ($_, $_); - $tmp1 =~ s/[^<]//g; - $tmp2 =~ s/[^>]//g; - if ( length ($tmp1) == length ($tmp2) ) { - last; - } - else - { - s/\n//; - $_ = $_ . " " . ; - s/ \s+/ /g; - } - } - s/\n//; - s/ \s+/ /g; - $_ = $_ . " " . ; - } - - if ( /^\s*((template\s*< - ( - ([-\w,_=:\s] | - <([-\w_,=:\s])+> )* - )>\s*)? - (class|struct))(.*)/x ) { - # this is the declaration of a class, possibly a template - $basepart = $1; - $rest = $7; - - # test whether it is a forward declaration or something else. - # if it is a forward declaration, then skip it, as it must - # be declared somewhere else properly - # (note that $rest contains the name of the class and what - # comes after that) - if ( $rest =~ /;\s*$/ ) { - next; - } - - # first extract the name of the class - $rest =~ /([\w_]+(\s*<(([-\w,_\s]|<([-\w,\s])+>)+)>)?)(.*)/; - - $name = $1; - $rest = $6; - - # we look for declarations, where after the name comes a colon - # or an open-brace, maybe also a semicolon or just nothing - # - # the colon might be of an inheritance list, but we do not - # want it to come from a nested class declaration - if (($rest =~ /^\s*([\{;]|:[^:])/) || ($rest =~ /^\s*$/)) { - $declaration = $basepart . " " . $name; - # strip double spaces etc. - $declaration =~ s/\s\s+/ /g; - $declaration =~ s/^\s+//g; - $declaration =~ s/\s+$//g; - - # strip default template parameters - while ( $declaration =~ s/<(.*)=\s*[-\w,_:\s]+(<[^.]*>)?(.*)>/<$1 $3 > / ) { - } - - # impose a negativ-list of names we do not want to - # have in this file. this is due to a compiler bug in - # egcs 1.1.2, which does not gracefully handle local - # template classes if their name is globally defined, - # for example - # - # template struct Y; - # struct X {template struct Y{}; }; - # X::Y<1> y; - # - # does not work. So we filter out these classes at - # present. A better way would certainly be to only - # allow those classes into the forward-declarations.h - # file that are global, but that would mean parsing - # the include files instead of just searching for - # small bits... - if ( ! ($declaration =~ /EpsFlags|Patch|Mem_Fun_Data|Fun_Data/ )) - { - print $declaration, ";\n"; - } - } - } - } -} diff --git a/deal.II/common/scripts/make_dependencies.pl.in b/deal.II/common/scripts/make_dependencies.pl.in deleted file mode 100644 index c4f24639e6..0000000000 --- a/deal.II/common/scripts/make_dependencies.pl.in +++ /dev/null @@ -1,11 +0,0 @@ -# $Id$ - -# this used to be a whole perl script, but it has been superceded by a -# program written in C++ since it was too slow. if someone is still -# using the perl script, simply forward all actions to the C++ -# executable -# -# since the perl script is not usually called from the directory which -# it is in, we need to have the path to the C++ executable. Autoconf -# does this for us upon configuration time. -print `@prefix@/common/scripts/make_dependencies @ARGV` diff --git a/deal.II/common/scripts/minimize_boost b/deal.II/common/scripts/minimize_boost deleted file mode 100755 index f6121a84d5..0000000000 --- a/deal.II/common/scripts/minimize_boost +++ /dev/null @@ -1,194 +0,0 @@ -#!/bin/sh -# $Id$ -# author: Ralf Hartmann, 2004 - - -echo Running `pwd`/minimize_boost - -# path of the (original) boost library, e.g. -O=/home/rhartman/boost/boost_1_33_1 -# directory of the deal.II library -Dtmp=`pwd`/../.. -cd $Dtmp && \ -D=`pwd` -# minimized boost library in deal.II -B=$D/contrib/boost/include - -# when following files compile we assume that the whole library compiles -F="$D/lib/base/data_out_base.g.o $D/lib/base/polynomial.g.o $D/lib/base/subscriptor.g.o $D/lib/base/thread_management.g.o" - -###################################################################### -# Before using this script: -# - set include-path-contrib-boost=$O in common/Make.global_options -# and start compiling. After the Makefile.dep files are produced the -# compilation can be stopped -# - set back to include-path-contrib-boost=$D/contrib/boost/include -# - add 2>&1 to CXXFLAGS.g in common/Make.global_options -# - in lines 116... include compiler specific grep and perl commands -# which extract the names of missing boost include files from stderr -# of the compiler. This is already implemented for gcc and MIPSPro7.4 -# -# Based on a full (original) boost distribution at $O this script -# creates a boost directory at $B which includes the minimal but -# complete set of boost files needed for the deal.II library to be -# compiled on the current platform and compiler. -# -# For the case, that the $B/boost directory already exists all needed -# boost files are updated in $B. No files in $B are removed! -# -# Output of this script: -# $B/dirs_start.txt all directories which exist at start -# $B/dirs_end.txt all directories which exist at end -# $B/files_start.txt all files which exist at start -# $B/files_end.txt all files which exist at end -# -# depending on the behaviour of the `find' command following files -# might not include what they promise to: -# $B/dirs_new.txt: all directories which were newly created -# $B/files_new.txt: all files which were added to $B -# $B/dirs_notneeded.txt: all directories which (on this platform -# and compiler) weren't needed -# $B/files_notneeded.txt: all files which (on this platform -# and compiler) weren't needed -# -# Not yet implemented: version update of boost -###################################################################### - - -# get versions: -if test -f $B/boost/version.hpp; then - Bversion=`grep "define BOOST_VERSION " $B/boost/version.hpp | perl -p -e 's/.define BOOST_VERSION //g;'` -else - Bversion=none -fi -if test -f $O/boost/version.hpp; then - Oversion=`grep "define BOOST_VERSION " $O/boost/version.hpp | perl -p -e 's/.define BOOST_VERSION //g;'` -fi - -# output paths and versions -if test -d $O; then - echo "boost (version $Oversion) library path:" - echo " $O" -else - echo "Error (Line 9)" - echo "Path of original boost library not set!" - exit -fi -echo "deal.II library path:" -echo " $D" -echo "path of boost (version $Bversion) in deal.II:" -echo " $B" -echo - -# version controls: -if test $Oversion -eq $Bversion; then - echo "version numbers match" -elif test $Oversion -lt $Bversion; then - echo "Error: deal.II already uses a higher version of boost" - exit -elif test $Oversion -gt $Bversion; then - echo "Updating $B/boost" - echo "from boost version $Bversion to $Oversion ..." -elif [ $Bversion = "none" ]; then - echo "There is currently no version of boost in deal.II" -fi - -# If there is already a boost directory: -# 1. take inventory, which will be compared with the inventory at the end -# 2. move the boost directory out of the way -cd $B && find boost -type d > $B/dirs_start.txt -cd $B && find boost -type f > $B/files_start.txt -if test -d $B/boost; then - mv boost boost._bak -fi - -# Create all directories and subdirectories -echo Creating subdirectories -cd $O && find boost -type d > $B/dirs.txt -cd $B && mkdir `cat dirs.txt` -rm $B/dirs.txt - -# make sure that while loop below starts -echo irgendwas > $B/files.txt - -# make the base library and cp all needed boost files from $O to $B -# redo this until no boost file is missing -while test -s $B/files.txt; do - # remove the object files in order to force recompilation - cd $D/lib && rm -f libbase.g.so - cd $D/lib && rm -f $F - echo "Recompile..." - # recompile and keep track of missing boost files - # create files.txt which includes a list of all missing boost files -# CHANGE FOLLOWING TWO LINES ACCORDING TO THE OUTPUT OF YOUR SPECIFIC COMPILER -# linux, gcc2.95.3: - cd $D/base && make $F | grep "No such file" > $B/files.txt - perl -pi -e 's&^[^ ]* ([^:]*): .*&$1&g;' $B/files.txt -# sgi, MIPSpro7.4: -# cd $D/base && gmake $F | grep "source file" > $B/files.txt -# perl -pi -e 's&.*\"(.*)\".*&$1&g;' $B/files.txt - # if there are some boost files missing - if test -s $B/files.txt; then - # collect them from the original boost directory - cd $O && tar cvf $B/files.tar `cat $B/files.txt` - # and write them into the minimized boost directory - cd $B && tar xf files.tar - fi -done -rm $B/files.tar $B/files.txt -echo "Success: The files $F are now compiled" - -# remove empty directories -echo Remove empty directories -cd $B && find boost -type d > dirs.txt -cp $B/dirs.txt $B/diff.txt -while test -s $B/diff.txt; do - cd $B && rmdir `cat dirs.txt` - cp $B/dirs.txt $B/dirs.old.txt - cd $B && find boost -type d > dirs.txt - rm $B/diff.txt - diff $B/dirs.old.txt $B/dirs.txt > $B/diff.txt -done -rm $B/dirs.old.txt $B/dirs.txt $B/diff.txt - -#copy version information -cd $B && cp $O/boost/version.hpp boost -#copy whole config directory -cd $B && cp -r $O/boost/config boost - -echo "The $B/boost directory is now complete" - -# Take inventory of new boost directory -cd $B && find boost -type d > $B/dirs_end.txt -cd $B && find boost -type f > $B/files_end.txt - -# cp new boost files to old boost directory -if test -d boost._bak; then - cd $B && tar cf boost._tar boost - cd $B && rm -rf boost; mv boost._bak boost - cd $B && tar xf boost._tar - cd $B && rm boost._tar -fi - -# output of diffs -echo "Output of log files in $B ..." -echo " dirs_start.txt" -echo " dirs_end.txt" -echo " dirs_new.txt" -cd $B && diff dirs_start.txt dirs_end.txt | \ - perl -p -e 's/^[^>].*$/LineToBeRemoved/g; s/^> //g;' | grep -v "LineToBeRemoved" > dirs_new.txt -echo " dirs_notneeded.txt" -cd $B && diff dirs_start.txt dirs_end.txt | \ - perl -p -e 's/^[^<].*$/LineToBeRemoved/g; s/^< //g;' | \ - grep -v "LineToBeRemoved" | grep -v CVS > dirs_notneeded.txt -echo " files_start.txt" -echo " files_end.txt" -echo " files_new.txt" -cd $B && diff files_start.txt files_end.txt | \ - perl -p -e 's/^[^>].*$/LineToBeRemoved/g; s/^> //g;' | grep -v "LineToBeRemoved" > files_new.txt -echo " files_notneeded.txt" -cd $B && diff files_start.txt files_end.txt | \ - perl -p -e 's/^[^<].*$/LineToBeRemoved/g; s/^< //g;' | \ - grep -v "LineToBeRemoved" | grep -v CVS > files_notneeded.txt - -echo done diff --git a/deal.II/common/scripts/squash_gmonout.pl b/deal.II/common/scripts/squash_gmonout.pl deleted file mode 100755 index 3e9b725eac..0000000000 --- a/deal.II/common/scripts/squash_gmonout.pl +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/perl - -while(<>) -{ - 1 while s/<[^<>]*>//g; - print; -} - -- 2.39.5