1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # A N T S . P L |
3 # A N T S . P L |
4 # doc: Fri Jun 19 14:01:06 1998 |
4 # doc: Fri Jun 19 14:01:06 1998 |
5 # dlm: Sun May 17 20:18:01 2015 |
5 # dlm: Mon Oct 12 16:30:36 2015 |
6 # (c) 1998 A.M. Thurnherr |
6 # (c) 1998 A.M. Thurnherr |
7 # uE-Info: 17 34 NIL 0 0 72 2 2 4 NIL ofnI |
7 # uE-Info: 23 21 NIL 0 0 72 2 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # HISTORY: |
10 # HISTORY: |
11 # Jun 19, 1998: - apparently created |
11 # Jun 19, 1998: - apparently created |
12 # Jul 3, 2006: - added support for ANTS_PERL |
12 # Jul 3, 2006: - added support for ANTS_PERL |
13 # Jul 5, 2006: - removed `basename` |
13 # Jul 5, 2006: - removed `basename` |
14 # Jul 19, 2006: - added error if exec($ANTS_PERL) fails |
14 # Jul 19, 2006: - added error if exec($ANTS_PERL) fails |
15 # Sep 24, 2012: - added support for $ANTSLIB |
15 # Sep 24, 2012: - added support for $ANTSLIB |
16 # Oct 29, 2014: - added $antsLibVersion with compile-time version check (V6.0) |
16 # Oct 29, 2014: - added $antsLibVersion with compile-time version check (V6.0) |
17 # May 17, 2015: - updated to V6.1 |
17 # May 17, 2015: - updated to V6.1 |
|
18 # Oct 12, 2015: - updated to V6.2 (for LADCP_w 1.0) |
18 |
19 |
19 exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!") |
20 exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!") |
20 if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL}); |
21 if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL}); |
21 |
22 |
22 $antsLibVersion = 6.1; |
23 $antsLibVersion = 6.2; |
23 die(sprintf("$0: obsolete library V%.1f; V%.1f required\n", |
24 die(sprintf("$0: obsolete library V%.1f; V%.1f required\n", |
24 $antsLibVersion,$antsMinLibVersion)) |
25 $antsLibVersion,$antsMinLibVersion)) |
25 if (!defined($antsMinLibVersion) || $antsMinLibVersion>$antsLibVersion); |
26 if (!defined($antsMinLibVersion) || $antsMinLibVersion>$antsLibVersion); |
26 |
27 |
27 if (defined($ANTSLIB)) { # new style (V5) |
28 if (defined($ANTSLIB)) { # new style (V5) |