author | A.M. Thurnherr <athurnherr@yahoo.com> |
Mon, 12 Oct 2015 16:42:26 +0000 | |
changeset 23 | a4fef65fd959 |
parent 20 | 7ea1fd9d64e6 |
child 25 | 47b4a3600f5a |
permissions | -rw-r--r-- |
0 | 1 |
#!/usr/bin/perl |
2 |
#====================================================================== |
|
9
1a7983cbb82a
automatic version checking; abbreviated layout and %PARAM def; ubtest okay
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
8
diff
changeset
|
3 |
# A N T S . P L |
0 | 4 |
# doc: Fri Jun 19 14:01:06 1998 |
23
a4fef65fd959
V6.2 release candidate
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
20
diff
changeset
|
5 |
# dlm: Mon Oct 12 16:30:36 2015 |
0 | 6 |
# (c) 1998 A.M. Thurnherr |
23
a4fef65fd959
V6.2 release candidate
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
20
diff
changeset
|
7 |
# uE-Info: 23 21 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 |
20 | 16 |
# Oct 29, 2014: - added $antsLibVersion with compile-time version check (V6.0) |
17 |
# May 17, 2015: - updated to V6.1 |
|
23
a4fef65fd959
V6.2 release candidate
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
20
diff
changeset
|
18 |
# Oct 12, 2015: - updated to V6.2 (for LADCP_w 1.0) |
0 | 19 |
|
20 |
exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!") |
|
21 |
if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL}); |
|
22 |
||
23
a4fef65fd959
V6.2 release candidate
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
20
diff
changeset
|
23 |
$antsLibVersion = 6.2; |
9
1a7983cbb82a
automatic version checking; abbreviated layout and %PARAM def; ubtest okay
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
8
diff
changeset
|
24 |
die(sprintf("$0: obsolete library V%.1f; V%.1f required\n", |
1a7983cbb82a
automatic version checking; abbreviated layout and %PARAM def; ubtest okay
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
8
diff
changeset
|
25 |
$antsLibVersion,$antsMinLibVersion)) |
1a7983cbb82a
automatic version checking; abbreviated layout and %PARAM def; ubtest okay
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
8
diff
changeset
|
26 |
if (!defined($antsMinLibVersion) || $antsMinLibVersion>$antsLibVersion); |
8 | 27 |
|
3 | 28 |
if (defined($ANTSLIB)) { # new style (V5) |
29 |
require "$ANTSLIB/antsusage.pl"; |
|
30 |
require "$ANTSLIB/antsio.pl"; |
|
31 |
require "$ANTSLIB/antsutils.pl"; |
|
32 |
require "$ANTSLIB/antsexprs.pl"; |
|
33 |
$ANTS = $ANTSLIB; # backward compatibility |
|
34 |
} elsif (defined($ANTS)) { # old style |
|
35 |
require "$ANTS/antsusage.pl"; |
|
36 |
require "$ANTS/antsio.pl"; |
|
37 |
require "$ANTS/antsutils.pl"; |
|
38 |
require "$ANTS/antsexprs.pl"; |
|
39 |
} else { |
|
40 |
die("neither \$ANTS nor \$ANTSLIB defined\n"); |
|
41 |
} |
|
0 | 42 |
|
43 |
1; |