0
|
1 |
#!/usr/bin/perl
|
|
2 |
#======================================================================
|
|
3 |
# A N T S L I B
|
|
4 |
# doc: Wed May 16 06:19:16 2012
|
14
|
5 |
# dlm: Thu Oct 30 09:27:54 2014
|
0
|
6 |
# (c) 2012 A.M. Thurnherr
|
14
|
7 |
# uE-Info: 14 39 NIL 0 0 72 0 2 4 NIL ofnI
|
0
|
8 |
#======================================================================
|
|
9 |
|
|
10 |
# HISTORY:
|
|
11 |
# May 16, 2012: - created for V5.0
|
14
|
12 |
# Oct 29, 2014: - made it work again for V6
|
|
13 |
# Oct 30, 2014: - changed output
|
|
14 |
# - added version check
|
0
|
15 |
|
14
|
16 |
($ANTSLIB) = ($0 =~ m{^(.*)/[^/]*$});
|
|
17 |
$antsMinLibVersion = 6.0;
|
0
|
18 |
|
14
|
19 |
require "$ANTSLIB/ants.pl";
|
|
20 |
require "$ANTSLIB/libCPT.pl";
|
|
21 |
require "$ANTSLIB/libEOS83.pl";
|
|
22 |
require "$ANTSLIB/libGM.pl";
|
|
23 |
require "$ANTSLIB/libLADCP.pl";
|
|
24 |
require "$ANTSLIB/libNODC.pl";
|
|
25 |
require "$ANTSLIB/libPOSIX.pl";
|
|
26 |
require "$ANTSLIB/libRWalk.pl";
|
|
27 |
require "$ANTSLIB/libWOCE.pl";
|
|
28 |
require "$ANTSLIB/libWOCE_oldstyle.pl";
|
|
29 |
require "$ANTSLIB/libconv.pl";
|
|
30 |
require "$ANTSLIB/libfuns.pl";
|
|
31 |
require "$ANTSLIB/libgamma.pl";
|
|
32 |
require "$ANTSLIB/libstats.pl";
|
|
33 |
require "$ANTSLIB/libtides.pl";
|
|
34 |
require "$ANTSLIB/libubtest.pl";
|
|
35 |
require "$ANTSLIB/libvec.pl";
|
0
|
36 |
|
14
|
37 |
chomp($about = `sed -n '/^description =/s/description = //p' $ANTSLIB/.hg/hgrc`);
|
|
38 |
($aboutVer) = ($about =~ /V(.*)$/);
|
|
39 |
die(sprintf("$0: inconsistent version numbers (.hg/hgrc: $aboutVer; \$antsLibVersion: %.1f)\n",$antsLibVersion))
|
|
40 |
unless ($aboutVer == $antsLibVersion);
|
|
41 |
|
|
42 |
print("$ANTSLIB: $about\n");
|
0
|
43 |
exit(0);
|