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 Mar 12 11:59:52 2017 |
5 # dlm: Mon Nov 20 10:35:51 2017 |
6 # (c) 1998 A.M. Thurnherr |
6 # (c) 1998 A.M. Thurnherr |
7 # uE-Info: 24 60 NIL 0 0 72 2 2 4 NIL ofnI |
7 # uE-Info: 30 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 |
20 # Mar 16, 2016: - updated to V6.4 (for LADCP_w 1.2beta5) |
20 # Mar 16, 2016: - updated to V6.4 (for LADCP_w 1.2beta5) |
21 # Mar 17, 2016: - updated to V6.5 |
21 # Mar 17, 2016: - updated to V6.5 |
22 # Mar 29, 2016: - updated to V6.6 |
22 # Mar 29, 2016: - updated to V6.6 |
23 # Aug 5, 2016: - updated to V6.7 |
23 # Aug 5, 2016: - updated to V6.7 |
24 # Mar 12, 2017: - updated to V6.8 (for LADCP_w 1.3 release) |
24 # Mar 12, 2017: - updated to V6.8 (for LADCP_w 1.3 release) |
|
25 # Nov 20, 2017: - updated to V6.9 (for DT KVH software) |
25 |
26 |
26 exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!") |
27 exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!") |
27 if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL}); |
28 if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL}); |
28 |
29 |
29 $antsLibVersion = 6.8; |
30 $antsLibVersion = 6.9; |
30 |
31 |
31 die(sprintf("$0: obsolete library V%.1f; V%.1f required\n", |
32 die(sprintf("$0: obsolete library V%.1f; V%.1f required\n", |
32 $antsLibVersion,$antsMinLibVersion)) |
33 $antsLibVersion,$antsMinLibVersion)) |
33 if (!defined($antsMinLibVersion) || $antsMinLibVersion>$antsLibVersion); |
34 if (!defined($antsMinLibVersion) || $antsMinLibVersion>$antsLibVersion); |
34 |
35 |