ants.pl
author Andreas Thurnherr <ant@ldeo.columbia.edu>
Tue, 05 Mar 2019 10:03:40 -0500
changeset 38 15c603bc4f70
parent 36 04e8cb4f8073
child 41 fa41b3a72c97
permissions -rw-r--r--
after UK cruise
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     1
#!/usr/bin/perl
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     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
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     4
#                    doc: Fri Jun 19 14:01:06 1998
36
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 35
diff changeset
     5
#                    dlm: Tue Nov 27 12:57:36 2018
0
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     6
#                    (c) 1998 A.M. Thurnherr
36
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 35
diff changeset
     7
#                    uE-Info: 27 60 NIL 0 0 72 2 2 4 NIL ofnI
0
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     8
#======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     9
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    10
# HISTORY:
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    11
#  Jun 19, 1998: - apparently created
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    12
#  Jul  3, 2006: - added support for ANTS_PERL
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    13
#  Jul  5, 2006: - removed `basename`
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    14
#  Jul 19, 2006: - added error if exec($ANTS_PERL) fails
3
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    15
#  Sep 24, 2012: - added support for $ANTSLIB
20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 15
diff changeset
    16
#  Oct 29, 2014: - added $antsLibVersion with compile-time version check (V6.0)
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 15
diff changeset
    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
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 25
diff changeset
    19
#  Mar  8, 2016: - updated to V6.3 (for LADCP_w 1.2beta)
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 25
diff changeset
    20
#  Mar 16, 2016: - updated to V6.4 (for LADCP_w 1.2beta5)
27
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 26
diff changeset
    21
#  Mar 17, 2016: - updated to V6.5
28
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 27
diff changeset
    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
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 29
diff changeset
    24
#  Mar 12, 2017: - updated to V6.8 (for LADCP_w 1.3 release)
33
f891ea33a728 after Hamburg visit
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents: 30
diff changeset
    25
#  Nov 20, 2017: - updated to V6.9 (for DT KVH software)
35
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 33
diff changeset
    26
#  Dec  8, 2017: - updated to V7.0 (to avoid absolute-path symlink)
36
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 35
diff changeset
    27
#  Nov 27, 2018: - updaetd to V7.1 (for LADCP_w 1.4 release)
0
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    28
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    29
exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!")
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    30
    if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL});
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    31
36
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 35
diff changeset
    32
$antsLibVersion = 7.1;
26
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 25
diff changeset
    33
9
1a7983cbb82a automatic version checking; abbreviated layout and %PARAM def; ubtest okay
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 8
diff changeset
    34
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
    35
	$antsLibVersion,$antsMinLibVersion))
1a7983cbb82a automatic version checking; abbreviated layout and %PARAM def; ubtest okay
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 8
diff changeset
    36
		if (!defined($antsMinLibVersion) || $antsMinLibVersion>$antsLibVersion);
8
248fef05e79d begin Version 6.0
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 3
diff changeset
    37
3
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    38
if (defined($ANTSLIB)) {							# new style (V5)
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    39
	require "$ANTSLIB/antsusage.pl";
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    40
	require "$ANTSLIB/antsio.pl";
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    41
	require "$ANTSLIB/antsutils.pl";
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    42
	require "$ANTSLIB/antsexprs.pl";
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    43
	$ANTS = $ANTSLIB;								# backward compatibility
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    44
} elsif (defined($ANTS)) {							# old style
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    45
	require "$ANTS/antsusage.pl";
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    46
	require "$ANTS/antsio.pl";
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    47
	require "$ANTS/antsutils.pl";
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    48
	require "$ANTS/antsexprs.pl";
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    49
} else {
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    50
	die("neither \$ANTS nor \$ANTSLIB defined\n");
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 0
diff changeset
    51
}
0
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    52
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    53
1;