|
0
|
1 |
#!/usr/bin/perl
|
|
|
2 |
#======================================================================
|
|
8
|
3 |
# L I B / A N T S . P L
|
|
0
|
4 |
# doc: Fri Jun 19 14:01:06 1998
|
|
8
|
5 |
# dlm: Wed Oct 29 19:21:12 2014
|
|
0
|
6 |
# (c) 1998 A.M. Thurnherr
|
|
8
|
7 |
# uE-Info: 21 8 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
|
|
8
|
16 |
# Oct 19, 2014: - added $antsLibVersion
|
|
0
|
17 |
|
|
|
18 |
exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!")
|
|
|
19 |
if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL});
|
|
|
20 |
|
|
8
|
21 |
$antsLibVersion = 6.0;
|
|
|
22 |
|
|
3
|
23 |
if (defined($ANTSLIB)) { # new style (V5)
|
|
|
24 |
require "$ANTSLIB/antsusage.pl";
|
|
|
25 |
require "$ANTSLIB/antsio.pl";
|
|
|
26 |
require "$ANTSLIB/antsutils.pl";
|
|
|
27 |
require "$ANTSLIB/antsexprs.pl";
|
|
|
28 |
$ANTS = $ANTSLIB; # backward compatibility
|
|
|
29 |
} elsif (defined($ANTS)) { # old style
|
|
|
30 |
require "$ANTS/antsusage.pl";
|
|
|
31 |
require "$ANTS/antsio.pl";
|
|
|
32 |
require "$ANTS/antsutils.pl";
|
|
|
33 |
require "$ANTS/antsexprs.pl";
|
|
|
34 |
} else {
|
|
|
35 |
die("neither \$ANTS nor \$ANTSLIB defined\n");
|
|
|
36 |
}
|
|
0
|
37 |
|
|
|
38 |
1;
|