Add foamThirdParty script

Stop tracking files in src/other (moved to ThirdParty).

bin/foamThirdParty

+#!/usr/bin/perl -w
+use strict;
+use File::Spec;
+use Getopt::Long;
+
+#############################################################################
+# SETTINGS
+#
+my %config = (
+    thirdParty => "$ENV{WM_PROJECT_INST_DIR}/ThirdParty",
+    project    => ( $ENV{WM_PROJECT} || '' ) . "-"
+      . ( $ENV{WM_PROJECT_VERSION} || '' ),
+);
+
+my %packages = (
+    lam => {
+        -opt => 1,
+        url  => "http://www.lam-mpi.org/download/files/lam-7.1.4.tar.bz2",
+    },
+
+    libccmio => {
+        -opt => 1,
+        url  =>
+          "https://wci.llnl.gov/codes/visit/3rd_party/libccmio-2.6.1.tar.gz",
+    },
+
+    openmpi => {
+        url =>
+"http://www.open-mpi.org/software/ompi/v1.2/downloads/openmpi-1.2.6.tar.bz2",
+    },
+
+    metis => {
+        url =>
+          "http://glaros.dtc.umn.edu/gkhome/fetch/sw/metis/metis-5.0pre2.tar.gz"
+    },
+    mico => {
+        -opt => 1,
+        url  => "http://www.mico.org/mico-2.3.12.tar.gz",
+    },
+
+    mpich => {
+        -opt => 1,
+        url  => "ftp://ftp.mcs.anl.gov/pub/mpi/old/mpich-1.2.4.tar.gz",
+    },
+
+    ParMetis => {
+        url =>
+"http://glaros.dtc.umn.edu/gkhome/fetch/sw/parmetis/ParMetis-3.1.tar.gz",
+    },
+
+    ParMGridGen => {
+        url =>
+"http://www-users.cs.umn.edu/~moulitsa/download/ParMGridGen-1.0.tar.gz",
+    },
+
+    zlib => { url => "http://www.zlib.net/zlib-1.2.3.tar.gz", },
+
+    hoard => {
+        -opt => 1,
+        url  =>
+          "http://www.cs.umass.edu/%7Eemery/hoard/hoard-3.7.1/hoard-371.tar.gz"
+    },
+
+##    # this really doesn't work well, but code needs minor patching anyhow:
+##    fbsdmalloc => {
+##        url =>
+##        "http://www.freebsd.org/cgi/cvsweb.cgi/~checkout~/src/lib/libc/stdlib/malloc.c?rev=1.171",
+##
+##    },
+);
+
+#
+# END OF SETTINGS
+############################################################################
+
+( my $Script = $0 ) =~ s{^.*/}{};
+
+# --------------------------------------------------------------------------
+sub usage {
+    my ( @req, @opt );
+
+    for ( sort keys %packages ) {
+        if ( $packages{$_}{-opt} ) {
+            push @opt, $_;
+        }
+        else {
+            push @req, $_;
+        }
+    }
+
+    $! = 0;    # clean exit
+    warn "@_\n" if @_;
+    die <<"USAGE";
+usage:
+    $Script [OPTION] [package1 .. packageN]
+
+options:
+  -help     usage
+  -status   show status  [default]
+  -list     list versions and resource locations
+  -version  list versions only
+  -dir      list unpack directory
+  -reldir   list unpack directory relative to cwd
+  -get      get packages as required (uses curl)
+  -unpack   unpack packages where required and possible
+
+Simple management of 3rd party software for '$config{project}'
+using the directory
+    $config{thirdParty}
+
+Packages:  @req
+Optional:  @opt
+
+Return codes:
+  -status -get -unpack   number of missing packages or errors
+
+USAGE
+}
+
+# --------------------------------------------------------------------------
+my %opt;
+
+# default action is -status
+@ARGV or $opt{status}++;
+GetOptions(
+    \%opt,    ##
+    "help",   "status", "list", "version", "dir",
+    "reldir", "get",    "unpack",
+  )
+  or usage;
+
+$opt{help} and usage;
+
+-d $config{thirdParty} or usage "ERROR: no '$config{thirdParty}' dir";
+
+#
+# complete the config
+#
+if ( not exists $config{sources} ) {
+    $config{sources} = "$config{thirdParty}/sources";
+    -d $config{sources} or mkdir $config{sources};
+}
+
+#
+# cleanup the packages table
+#
+for my $name ( keys %packages ) {
+    my $href = $packages{$name};
+
+    if ( not $href->{url} ) {
+        warn "$name without url\n";
+        delete $packages{$name};
+        next;
+    }
+
+    if ( not exists $href->{file} ) {
+        ( $href->{file} = $href->{url} ) =~ s{^.*/|\?.*$}{}g;
+    }
+
+    if ( not exists $href->{dir} ) {
+        ( $href->{dir} = $href->{file} ) =~ s{\.(zip|tar(\.(gz|bz2))?)$}{};
+    }
+}
+
+#
+# check for names in the packages
+#
+sub selectNames {
+    my @names;
+    my $req;
+
+    while ( @_ and $_[0] =~ /^-/ ) {
+        my $opt = shift;
+        if ( $opt =~ /^-req/ ) {
+            $req++;
+        }
+    }
+
+    if (@_) {
+        my ( %seen, @reject );
+        for my $name (@_) {
+            next if $seen{$name}++;
+            if ( exists $packages{$name} ) {
+                push @names, $name;
+            }
+            else {
+                push @reject, $name;
+            }
+        }
+
+        usage "unknown package(s): @reject" if @reject;
+    }
+    else {
+        @names =
+          grep { not $req or not $packages{$_}{-opt} } sort keys %packages;
+    }
+
+    @names or usage "no packages";
+
+    return @names;
+}
+
+#
+# list the current status
+#
+if ( $opt{status} ) {
+    my @names = selectNames @ARGV;
+
+    my $nMissing = 0;
+
+    for my $name (@names) {
+        my $href = $packages{$name};
+        my ( $dir, $file, $url ) = @$href{qw( dir file url )};
+
+        my @status;
+        if ( -e "$config{sources}/$file" ) {
+            push @status, "  packed: $config{sources}/$file";
+        }
+
+        if ( -d "$config{thirdParty}/$dir" ) {
+            push @status, "unpacked: $config{thirdParty}/$dir";
+        }
+
+        unless (@status) {
+            $nMissing++;
+            @status = "missing";
+        }
+
+        for (@status) {
+            printf "%-16s %-16s %s", $name, $dir, $_;
+
+            if ( $href->{-opt} ) {
+                print "  [optional]";
+            }
+            print "\n";
+        }
+    }
+
+    exit $nMissing;
+}
+
+#
+# show an overview of the versions and the resource locations
+#
+if ( $opt{list} ) {
+    my @names = selectNames @ARGV;
+
+    for my $name (@names) {
+        my $href = $packages{$name};
+        my ( $dir, $file, $url ) = @$href{qw( dir file url )};
+
+        printf "%-16s %-16s %s", $name, $dir, $url;
+        if ( $href->{-opt} ) {
+            print "  [optional]";
+        }
+        print "\n";
+
+    }
+
+    exit 0;
+}
+
+#
+# show the version (directory name) only
+#
+if ( $opt{version} ) {
+    my @names = selectNames @ARGV;
+
+    for my $name (@names) {
+        my $href = $packages{$name};
+        my ( $dir, $file, $url ) = @$href{qw( dir file url )};
+
+        print $dir, "\n";
+    }
+
+    exit 0;
+}
+
+#
+# show the unpack directory name
+#
+if ( $opt{dir} or $opt{reldir} ) {
+    my @names = selectNames @ARGV;
+    my $base  = $config{thirdParty};
+
+    if ( $opt{reldir} ) {
+        $base = File::Spec->abs2rel($base);
+        length $base or $base = '.';
+    }
+
+    for my $name (@names) {
+        my $href = $packages{$name};
+        my ( $dir, $file, $url ) = @$href{qw( dir file url )};
+
+        print File::Spec->catfile( $base, $dir ), "\n";
+    }
+
+    exit 0;
+}
+
+#
+# get and/or unpack packages as required and possible
+# avoid getting/unpacking optional packages
+#
+if ( $opt{get} or $opt{unpack} ) {
+    my @names = selectNames -required => @ARGV;
+
+    my $nError = 0;
+
+    for my $name (@names) {
+        my $href = $packages{$name};
+        my ( $dir, $file, $url ) = @$href{qw( dir file url )};
+
+        my $flags = "";
+        if ( $href->{-opt} ) {
+            $flags .= "[optional]";
+        }
+
+        warn '-' x 70, "\n", "$name  ($dir)  $flags\n";
+
+        if ( -d "$config{thirdParty}/$dir" ) {
+            warn "unpacked: $config{thirdParty}/$dir\n";
+            next;
+        }
+
+        if ( $opt{get} ) {
+            if ( -e "$config{sources}/$file" ) {
+                warn "  packed: $config{sources}/$file\n";
+            }
+            else {
+                my $fetch = "curl -k -o $file";
+
+                # curl seems to hang on anonymous ftp?
+                if ( $url =~ /^ftp:/ ) {
+                    $fetch = "wget -v";
+                }
+
+                system "set -x; cd $config{sources} && $fetch $url";
+
+                if ( not -e "$config{sources}/$file" ) {
+                    $nError++;
+                    warn "  download failed!?\n";
+                    next;
+                }
+            }
+        }
+
+        if ( $opt{unpack} ) {
+            if ( -e "$config{sources}/$file" ) {
+                my $unpack;
+                if ( $file =~ m{\.zip$} ) {
+                    $unpack = "unzip";
+                }
+                elsif ( $file =~ m{\.tar$} ) {
+                    $unpack = "tar -xf";
+                }
+                elsif ( $file =~ m{\.tar\.bz2$} ) {
+                    $unpack = "tar -xjf";
+                }
+                elsif ( $file =~ m{\.(tgz|tar\.gz)$} ) {
+                    $unpack = "tar -xzf";
+                }
+                else {
+                    $nError++;
+                    warn "  no unpack defined for $file\n";
+                    next;
+                }
+
+                system
+"set -x; cd $config{thirdParty} && $unpack $config{sources}/$file";
+
+                # catch isolated cases where it unpacks without a version number
+                if ( -d "$config{thirdParty}/$name"
+                    and not -d "$config{thirdParty}/$dir" )
+                {
+                    rename "$config{thirdParty}/$name",
+                      "$config{thirdParty}/$dir";
+                }
+
+                unless ( -d "$config{thirdParty}/$dir" ) {
+                    $nError++;
+                    warn "unpack failed!?\n";
+                    next;
+                }
+            }
+        }
+    }
+
+    warn '-' x 70, "\n\n";
+    exit $nError;
+}
+
+# --------------------------------------------------------------------------

etc/apps/paraview3/bashrc.save

-#----------------------------------*-sh-*--------------------------------------
-# =========                 |
-# \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
-#  \\    /   O peration     |
-#   \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
-#    \\/     M anipulation  |
-#------------------------------------------------------------------------------
-# License
-#     This file is part of OpenFOAM.
-#
-#     OpenFOAM is free software; you can redistribute it and/or modify it
-#     under the terms of the GNU General Public License as published by the
-#     Free Software Foundation; either version 2 of the License, or (at your
-#     option) any later version.
-#
-#     OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
-#     ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-#     FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
-#     for more details.
-#
-#     You should have received a copy of the GNU General Public License
-#     along with OpenFOAM; if not, write to the Free Software Foundation,
-#     Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
-#
-# Script
-#     bashrc
-#
-# Description
-#     Setup file for ParaView3.
-#     Sourced from OpenFOAM-?.?/etc/bashrc
-#
-#------------------------------------------------------------------------------
-
-if [ "$PS1" -a "$foamDotFile" ]; then
-    if [ "$FOAM_VERBOSE" ]; then
-        echo "Executing: $foamDotFile"
-    fi
-fi
-
-export CMAKE_HOME=$WM_PROJECT_INST_DIR/$WM_ARCH/cmake-2.4.6
-
-if [ -r $CMAKE_HOME ]; then
-    export PATH=$CMAKE_HOME/bin:$PATH
-fi
-
-export ParaView_VERSION=3
-
-export ParaView_INST_DIR=$WM_PROJECT_INST_DIR/$WM_ARCH/ParaView3.2.1
-export ParaView_DIR=$ParaView_INST_DIR
-
-if [ -r $ParaView_INST_DIR ]; then
-    export PATH=$ParaView_INST_DIR/bin:$PATH
-    export LD_LIBRARY_PATH=${ParaView_INST_DIR}/lib/paraview-3.2:${LD_LIBRARY_PATH}
-
-    export PV_PLUGIN_PATH=$FOAM_LIBBIN
-fi
-
-# -----------------------------------------------------------------------------