0
|
1 |
#!/usr/bin/perl
|
|
2 |
#======================================================================
|
|
3 |
# A N T S . P L
|
|
4 |
# doc: Fri Jun 19 14:01:06 1998
|
3
|
5 |
# dlm: Mon Sep 24 12:41:50 2012
|
0
|
6 |
# (c) 1998 A.M. Thurnherr
|
3
|
7 |
# uE-Info: 25 76 NIL 0 0 72 2 2 4 NIL ofnI
|
0
|
8 |
#======================================================================
|
|
9 |
|
|
10 |
# HISTORY:
|
|
11 |
# Jun 19, 1998: - apparently created
|
|
12 |
# Jul 3, 2006: - added support for ANTS_PERL
|
|
13 |
# Jul 5, 2006: - removed `basename`
|
|
14 |
# Jul 19, 2006: - added error if exec($ANTS_PERL) fails
|
3
|
15 |
# Sep 24, 2012: - added support for $ANTSLIB
|
0
|
16 |
|
|
17 |
exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!")
|
|
18 |
if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL});
|
|
19 |
|
3
|
20 |
if (defined($ANTSLIB)) { # new style (V5)
|
|
21 |
require "$ANTSLIB/antsusage.pl";
|
|
22 |
require "$ANTSLIB/antsio.pl";
|
|
23 |
require "$ANTSLIB/antsutils.pl";
|
|
24 |
require "$ANTSLIB/antsexprs.pl";
|
|
25 |
$ANTS = $ANTSLIB; # backward compatibility
|
|
26 |
} elsif (defined($ANTS)) { # old style
|
|
27 |
require "$ANTS/antsusage.pl";
|
|
28 |
require "$ANTS/antsio.pl";
|
|
29 |
require "$ANTS/antsutils.pl";
|
|
30 |
require "$ANTS/antsexprs.pl";
|
|
31 |
} else {
|
|
32 |
die("neither \$ANTS nor \$ANTSLIB defined\n");
|
|
33 |
}
|
0
|
34 |
|
|
35 |
1;
|