]> https://gitweb.dealii.org/ - dealii.git/commitdiff
Remove scripts that haven't been used in a long time.
authorWolfgang Bangerth <bangerth@math.tamu.edu>
Thu, 27 Sep 2012 16:52:11 +0000 (16:52 +0000)
committerWolfgang Bangerth <bangerth@math.tamu.edu>
Thu, 27 Sep 2012 16:52:11 +0000 (16:52 +0000)
git-svn-id: https://svn.dealii.org/trunk@26787 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/common/scripts/forward_declarations.pl [deleted file]
deal.II/common/scripts/make_dependencies.pl.in [deleted file]
deal.II/common/scripts/minimize_boost [deleted file]
deal.II/common/scripts/squash_gmonout.pl [deleted file]

diff --git a/deal.II/common/scripts/forward_declarations.pl b/deal.II/common/scripts/forward_declarations.pl
deleted file mode 100644 (file)
index 7891a88..0000000
+++ /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 (<FILE>) {
-       # if this is continued line, then strip the backslash and join
-       # it with the following one as well
-       while ( /\\$/ ) {
-           $_ =~ s/\\$//;
-           $_ = $_ . " " . <FILE>;
-        }
-
-       # 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//;
-                   $_ = $_ . " " . <FILE>;
-                   s/ \s+/ /g;
-               }
-           }
-           s/\n//;
-           s/ \s+/ /g;
-           $_ = $_ . " " . <FILE>;
-       }
-
-       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 <int dim> struct Y;
-               # struct X {template <int dim> 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 (file)
index c4f2463..0000000
+++ /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 (executable)
index f6121a8..0000000
+++ /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 (executable)
index 3e9b725..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-while(<>)
-{
-    1 while s/<[^<>]*>//g;
-    print;
-}
-

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.