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: Tue Mar 8 15:53:49 2016 |
5 # dlm: Wed Mar 16 14:08:12 2016 |
6 # (c) 1998 A.M. Thurnherr |
6 # (c) 1998 A.M. Thurnherr |
7 # uE-Info: 19 51 NIL 0 0 72 2 2 4 NIL ofnI |
7 # uE-Info: 20 56 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 |
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 # Oct 12, 2015: - updated to V6.2 (for LADCP_w 1.0) |
19 # Mar 8, 2016: - updated to V6.3 (for LADCP_w 1.2) |
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) |
20 |
21 |
21 exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!") |
22 exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!") |
22 if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL}); |
23 if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL}); |
23 |
24 |
24 $antsLibVersion = 6.3; |
25 $antsLibVersion = 6.4; |
|
26 |
25 die(sprintf("$0: obsolete library V%.1f; V%.1f required\n", |
27 die(sprintf("$0: obsolete library V%.1f; V%.1f required\n", |
26 $antsLibVersion,$antsMinLibVersion)) |
28 $antsLibVersion,$antsMinLibVersion)) |
27 if (!defined($antsMinLibVersion) || $antsMinLibVersion>$antsLibVersion); |
29 if (!defined($antsMinLibVersion) || $antsMinLibVersion>$antsLibVersion); |
28 |
30 |
29 if (defined($ANTSLIB)) { # new style (V5) |
31 if (defined($ANTSLIB)) { # new style (V5) |