blob: 5c6fb54e2f39edc94276ed96e2daecc6a2ea38b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#!/bin/sh
# ===========================================================================
#
# PUBLIC DOMAIN NOTICE
# National Center for Biotechnology Information (NCBI)
#
# This software/database is a "United States Government Work" under the
# terms of the United States Copyright Act. It was written as part of
# the author's official duties as a United States Government employee and
# thus cannot be copyrighted. This software/database is freely available
# to the public for use. The National Library of Medicine and the U.S.
# Government do not place any restriction on its use or reproduction.
# We would, however, appreciate having the NCBI and the author cited in
# any work or product based on this material.
#
# Although all reasonable efforts have been taken to ensure the accuracy
# and reliability of the software and data, the NLM and the U.S.
# Government do not and cannot warrant the performance or results that
# may be obtained by using this software or data. The NLM and the U.S.
# Government disclaim all warranties, express or implied, including
# warranties of performance, merchantability or fitness for any particular
# purpose.
#
# ===========================================================================
#
# File Name: esummary
#
# Author: Jonathan Kans, Aaron Ucko
#
# Version Creation Date: 06/21/20
#
# ==========================================================================
for x in "$@"
do
if [ "x$x" = "x-newmode" ]
then
USE_NEW_EDIRECT=1
break
fi
done
pth=$( dirname "$0" )
PERL=""
if [ ! -f "$pth"/ecommon.sh ]
then
USE_NEW_EDIRECT=false
fi
# set PERL path if using old EDirect
case "${USE_NEW_EDIRECT}" in
"" | [FfNn]* | 0 | [Oo][Ff][Ff] )
PERL=perl
case "$( uname -s )" in
CYGWIN_NT*)
# Use a negative match here because the shell treats 0 as success.
if perl -e 'exit $^O !~ /^MSWin/'; then
pth=$( cygpath -w "$pth" )
fi
;;
Darwin )
PERL="/usr/bin/perl"
;;
esac
;;
* )
;;
esac
# conditionally execute original Perl implementation
if [ -n "${PERL}" ]
then
exec "${PERL}" "$pth"/edirect.pl -fetch -format docsum "$@"
exit 0
fi
# otherwise call efetch -docsum
efetch -docsum "$@"
|
