Commit 2516c9dd authored by ahern's avatar ahern

Changed the running of perl to be a much more compact and friendly method.


git-svn-id: http://visit.ilight.com/svn/visit/trunk/src@4735 18c085ea-50e0-402c-830e-de6fd14e8384
parent 70764abc
#!/bin/sh
# Do a little magic to run perl from anywhere in your path.
lines=`cat $0 | wc -l`
lines=`expr $lines - 20`
if (test -n "$TMPDIR") then
if (test ! -d "$TMPDIR") then
TMPDIR=$HOME
fi
else
TMPDIR=$HOME
fi
tail -$lines $0 1> $TMPDIR/visitfelperl$$ 2>/dev/null
if (test $? -ne 0) then
tail --lines=$lines $0 1>> $TMPDIR/visitfelperl$$
fi
echo "__END__" >> $TMPDIR/visitfelperl$$
echo "$0 $*" >> $TMPDIR/visitfelperl$$
exec perl $TMPDIR/visitfelperl$$ $0 ${1+"$@"}
unlink $0;
$0 = shift @ARGV;
#! /bin/sh
exec perl -x $0 ${1+"$@"};
#!perl
###############################################################################
#
......@@ -81,6 +62,9 @@ $0 = shift @ARGV;
# Added a -forceversion command line option which can be used to
# intelligent override all version selection logic.
#
# Sean Ahern, Mon Aug 4 10:55:39 EDT 2008
# Changed how we run perl.
#
###############################################################################
......
#!/bin/sh
# Do a little magic to run perl from anywhere in your path.
lines=`cat $0 | wc -l`
lines=`expr $lines - 20`
if (test -n "$TMPDIR") then
if (test ! -d "$TMPDIR") then
TMPDIR=$HOME
fi
else
TMPDIR=$HOME
fi
tail -$lines $0 1> $TMPDIR/visitilperl$$ 2>/dev/null
if (test $? -ne 0) then
tail --lines=$lines $0 1>> $TMPDIR/visitilperl$$
fi
echo "__END__" >> $TMPDIR/visitilperl$$
echo "$0 $*" >> $TMPDIR/visitilperl$$
exec perl $TMPDIR/visitilperl$$ $0 ${1+"$@"}
unlink $0;
$0 = shift @ARGV;
#! /bin/sh
exec perl -x $0 ${1+"$@"};
#!perl
###############################################################################
#
......@@ -353,6 +334,9 @@ $0 = shift @ARGV;
# Sean Ahern, Wed Jul 30 11:46:45 EDT 2008
# Made the check for X11-based terminals in darwin a bit more robust.
#
# Sean Ahern, Mon Aug 4 10:54:52 EDT 2008
# Changed how we run perl.
#
###############################################################################
use POSIX qw(ceil);
......
#!/bin/sh
# Do a little magic to run perl from anywhere in your path.
lines=`cat $0 | wc -l`
lines=`expr $lines - 16`
if (test -z "$TMPDIR") then
TMPDIR=$HOME
fi
tail -$lines $0 1> $TMPDIR/visitperl$$ 2>/dev/null
if (test $? -ne 0) then
tail --lines=$lines $0 1>> $TMPDIR/visitperl$$
fi
echo "__END__" >> $TMPDIR/visitperl$$
echo "$0 $*" >> $TMPDIR/visitperl$$
exec perl $TMPDIR/visitperl$$ $0 ${1+"$@"}
unlink $0;
$0 = shift @ARGV;
#! /bin/sh
exec perl -x $0 ${1+"$@"};
#!perl
###############################################################################
#
......@@ -361,6 +346,9 @@ $0 = shift @ARGV;
# Treat the platformDir like all of the others, allowing darwin-ppc,
# darwin-i386, [or darwin (universal) directory].
#
# Sean Ahern, Mon Aug 4 10:56:19 EDT 2008
# Changed how we find and run perl.
#
###############################################################################
......
#!/bin/sh
# Do a little magic to run perl from anywhere in your path.
lines=`cat $0 | wc -l`
lines=`expr $lines - 10`
tail -$lines $0 > /tmp/visitperl$$
echo "__END__" >> /tmp/visitperl$$
echo "$0 $*" >> /tmp/visitperl$$
exec perl /tmp/visitperl$$ $0 ${1+"$@"}
unlink $0;
$0 = shift @ARGV;
#! /bin/sh
exec perl -x $0 ${1+"$@"};
#!perl
###############################################################################
# Run all the plugin tools
......
#!/bin/sh
# Do a little magic to run perl from anywhere in your path.
lines=`cat $0 | wc -l`
lines=`expr $lines - 16`
if [ "$checksys" != "SunOS" ]
then
tail -n $lines $0 > /tmp/visitperl$$
else
tail -$lines $0 > /tmp/visitperl$$
fi
echo "__END__" >> /tmp/visitperl$$
echo "$0 $*" >> /tmp/visitperl$$
exec perl /tmp/visitperl$$ $0 ${1+"$@"}
unlink($0);
$0 = shift @ARGV;
#! /bin/sh
exec perl -x $0 ${1+"$@"};
#!perl
# ----------------------------------------------------------------------------
......
#!/bin/sh
# Do a little magic to run perl from anywhere in your path.
lines=`cat $0 | wc -l`
lines=`expr $lines - 16`
if [ "$checksys" != "SunOS" ]
then
tail -n $lines $0 > /tmp/visitperl$$
else
tail -$lines $0 > /tmp/visitperl$$
fi
echo "__END__" >> /tmp/visitperl$$
echo "$0 $*" >> /tmp/visitperl$$
exec perl /tmp/visitperl$$ $0 ${1+"$@"}
unlink($0);
$0 = shift @ARGV;
#! /bin/sh
exec perl -x $0 ${1+"$@"};
#!perl
# ----------------------------------------------------------------------------
......
#!/bin/sh
# Do a little magic to run perl from anywhere in your path.
lines=`cat $0 | wc -l`
lines=`expr $lines - 16`
checksys=`uname -s`
if [ "$checksys" != "SunOS" ]
then
tail -n $lines $0 > /tmp/visitperl$$
else
tail -$lines $0 > /tmp/visitperl$$
fi
echo "__END__" >> /tmp/visitperl$$
echo "$0 $*" >> /tmp/visitperl$$
exec perl /tmp/visitperl$$ $0 ${1+"$@"}
unlink($0);
$0 = shift @ARGV;
#! /bin/sh
exec perl -x $0 ${1+"$@"};
#!perl
# This script packages up visit for distribution on the net. It tars up
# files and gzips the tar.
......
#!/bin/sh
# Do a little magic to run perl from anywhere in your path.
echo "This program has been retired in favor of svn_bin/visit-dist"
exit 1
lines=`cat $0 | wc -l`
lines=`expr $lines - 16`
checksys=`uname -s`
if [ "$checksys" != "SunOS" ]
then
tail -n $lines $0 > /tmp/visitperl$$
else
tail -$lines $0 > /tmp/visitperl$$
fi
echo "__END__" >> /tmp/visitperl$$
echo "$0 $*" >> /tmp/visitperl$$
exec perl /tmp/visitperl$$ $0 ${1+"$@"}
unlink($0);
$0 = shift @ARGV;
#! /bin/sh
exec perl -x $0 ${1+"$@"};
#!perl
# This script packages up visit for distribution on the net. It tars up
# files and gzips the tar.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment