author | A.M. Thurnherr <athurnherr@yahoo.com> |
Sun, 12 Mar 2017 12:00:31 -0400 | |
changeset 30 | 1a1a12d5edc1 |
parent 29 | f41d125405a6 |
child 33 | f891ea33a728 |
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 |
30 | 5 |
# dlm: Sun Mar 12 11:59:52 2017 |
0 | 6 |
# (c) 1998 A.M. Thurnherr |
30 | 7 |
# uE-Info: 24 60 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) |
26 | 19 |
# Mar 8, 2016: - updated to V6.3 (for LADCP_w 1.2beta) |
20 |
# Mar 16, 2016: - updated to V6.4 (for LADCP_w 1.2beta5) |
|
27 | 21 |
# Mar 17, 2016: - updated to V6.5 |
28 | 22 |
# Mar 29, 2016: - updated to V6.6 |
29
f41d125405a6
version after ECOGIG EN586 cruise
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
28
diff
changeset
|
23 |
# Aug 5, 2016: - updated to V6.7 |
30 | 24 |
# Mar 12, 2017: - updated to V6.8 (for LADCP_w 1.3 release) |
0 | 25 |
|
26 |
exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!") |
|
27 |
if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL}); |
|
28 |
||
30 | 29 |
$antsLibVersion = 6.8; |
26 | 30 |
|
9
1a7983cbb82a
automatic version checking; abbreviated layout and %PARAM def; ubtest okay
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
8
diff
changeset
|
31 |
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
|
32 |
$antsLibVersion,$antsMinLibVersion)) |
1a7983cbb82a
automatic version checking; abbreviated layout and %PARAM def; ubtest okay
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
8
diff
changeset
|
33 |
if (!defined($antsMinLibVersion) || $antsMinLibVersion>$antsLibVersion); |
8 | 34 |
|
3 | 35 |
if (defined($ANTSLIB)) { # new style (V5) |
36 |
require "$ANTSLIB/antsusage.pl"; |
|
37 |
require "$ANTSLIB/antsio.pl"; |
|
38 |
require "$ANTSLIB/antsutils.pl"; |
|
39 |
require "$ANTSLIB/antsexprs.pl"; |
|
40 |
$ANTS = $ANTSLIB; # backward compatibility |
|
41 |
} elsif (defined($ANTS)) { # old style |
|
42 |
require "$ANTS/antsusage.pl"; |
|
43 |
require "$ANTS/antsio.pl"; |
|
44 |
require "$ANTS/antsutils.pl"; |
|
45 |
require "$ANTS/antsexprs.pl"; |
|
46 |
} else { |
|
47 |
die("neither \$ANTS nor \$ANTSLIB defined\n"); |
|
48 |
} |
|
0 | 49 |
|
50 |
1; |