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