git.gag.com Git - debian/gzip/blob - zgrep.in

   1 #!/bin/sh
   2
   3 # zgrep -- a wrapper around a grep program that decompresses files as needed
   4 # Adapted from a version sent by Charles Levert <charles@comm.polymtl.ca>
   5
   6 # Copyright (C) 1998, 2001, 2002, 2006 Free Software Foundation
   7 # Copyright (C) 1993 Jean-loup Gailly
   8
   9 # This program is free software; you can redistribute it and/or modify
  10 # it under the terms of the GNU General Public License as published by
  11 # the Free Software Foundation; either version 2 of the License, or
  12 # (at your option) any later version.
  13
  14 # This program is distributed in the hope that it will be useful,
  15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 # GNU General Public License for more details.
  18
  19 # You should have received a copy of the GNU General Public License along
  20 # with this program; if not, write to the Free Software Foundation, Inc.,
  21 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  22
  23 PATH="BINDIR:$PATH"; export PATH
  24
  25 case "$0" in
  26 (*egrep)        grep='${EGREP-egrep}'   ;;
  27 (*fgrep)        grep='${FGREP-fgrep}'   ;;
  28 (*)             grep='${GREP-grep}'     ;;
  29 esac
  30
  31 eval 'version="z'"$grep"' (gzip) @VERSION@
  32 Copyright (C) 2006 Free Software Foundation, Inc.
  33 This is free software.  You may redistribute copies of it under the terms of
  34 the GNU General Public License <http://www.gnu.org/licenses/gpl.html>.
  35 There is NO WARRANTY, to the extent permitted by law.
  36
  37 Written by Jean-loup Gailly."'
  38
  39 usage="Usage: z$grep [OPTION]... [-e] PATTERN [FILE]...
  40 Look for instances of PATTERN in the input FILEs, using their
  41 uncompressed contents if they are compressed.
  42
  43 OPTIONs are the same as for '$grep'.
  44
  45 Report bugs to <bug-gzip@gnu.org>."
  46
  47 # sed script to escape all ' for the shell, and then (to handle trailing
  48 # newlines correctly) turn trailing X on last line into '.
  49 escape='
  50   s/'\''/'\''\\'\'''\''/g
  51   $s/X$/'\''/
  52 '
  53 operands=
  54 have_pat=0
  55 files_with_matches=0
  56 files_without_matches=0
  57 no_filename=0
  58 with_filename=0
  59
  60 while test $# -ne 0; do
  61   option=$1
  62   shift
  63   optarg=
  64
  65   case $option in
  66   (-[0123456789abcdhHiIKLlnoqrRsTuUvVwxyzZ]?*)
  67     arg2=-\'$(expr "X${option}X" : 'X-.[0-9]*\(.*\)' | sed "$escape")
  68     eval "set -- $arg2 "'${1+"$@"}'
  69     option=$(expr "X$option" : 'X\(-.[0-9]*\)');;
  70   (--binary-*=* | --[lm]a*=* | --reg*=*)
  71     ;;
  72   (-[ABCDefm] | --binary-* | --file | --[lm]a* | --reg*)
  73     have_optarg=1
  74     case ${1?"$option option requires an argument"} in
  75     (*\'*)
  76       optarg=" '"$(printf '%sX\n' "$1" | sed "$escape");;
  77     (*)
  78       optarg=" '$1'";;
  79     esac
  80     shift;;
  81   (--)
  82     break;;
  83   (-?*)
  84     ;;
  85   (*)
  86     case $option in
  87     (*\'*)
  88       operands="$operands '"$(printf '%sX\n' "$option" | sed "$escape");;
  89     (*)
  90       operands="$operands '$option'";;
  91     esac
  92     ${POSIXLY_CORRECT+break}
  93     continue;;
  94   esac
  95
  96   case $option in
  97   (-[drRzZ] | --di* | --exc* | --inc* | --rec* | --nu*)
  98     printf >&2 '%s: %s: option not supported\n' "$0" "$option"
  99     exit 2;;
 100   (-[ef]* | --file | --file=* | --reg*)
 101     have_pat=1;;
 102   (--h | --he | --hel | --help)
 103     echo "$usage" || exit 2
 104     exit;;
 105   (-H | --wi | --wit | --with | --with- | --with-f | --with-fi \
 106   | --with-fil | --with-file | --with-filen | --with-filena | --with-filenam \
 107   | --with-filename)
 108     with_filename=1
 109     continue;;
 110   (-l | --files-with-*)
 111     files_with_matches=1;;
 112   (-L | --files-witho*)
 113     files_without_matches=1;;
 114   (--no-f*)
 115     no_filename=1;;
 116   (-V | --v | --ve | --ver | --vers | --versi | --versio | --version)
 117     echo "$version" || exit 2
 118     exit;;
 119   esac
 120
 121   case $option in
 122   (*\'?*)
 123     option=\'$(expr "X${option}X" : 'X\(.*\)' | sed "$escape");;
 124   (*)
 125     option="'$option'";;
 126   esac
 127
 128   grep="$grep $option$optarg"
 129 done
 130
 131 eval "set -- $operands "'${1+"$@"}'
 132
 133 if test $have_pat -eq 0; then
 134   case ${1?"missing pattern; try \`$0 --help' for help"} in
 135   (*\'*)
 136     grep="$grep -- '"$(printf '%sX\n' "$1" | sed "$escape");;
 137   (*)
 138     grep="$grep -- '$1'";;
 139   esac
 140   shift
 141 fi
 142
 143 if test $# -eq 0; then
 144   set -- -
 145 fi
 146
 147 exec 3>&1
 148 res=0
 149
 150 for i
 151 do
 152   # Fail if gzip or grep (or sed) fails.
 153   gzip_status=$(
 154     exec 5>&1
 155     (gzip -cdfq -- "$i" 5>&-; echo $? >&5) 3>&- |
 156     if test $files_with_matches -eq 1; then
 157       eval "$grep" >/dev/null && { printf '%s\n' "$i" || exit 2; }
 158     elif test $files_without_matches -eq 1; then
 159       eval "$grep" >/dev/null || {
 160         r=$?
 161         if test $r -eq 1; then
 162           printf '%s\n' "$i" || r=2
 163         fi
 164         exit $r
 165       }
 166     elif test $with_filename -eq 0 &&
 167          { test $# -eq 1 || test $no_filename -eq 1; }; then
 168       eval "$grep"
 169     else
 170       case $i in
 171       (*'
 172 '* | *'&'* | *'\'* | *'|'*)
 173         i=$(printf '%s\n' "$i" |
 174             sed '
 175               $!N
 176               $s/[&\|]/\\&/g
 177               $s/\n/\\n/g
 178             ');;
 179       esac
 180       sed_script="s|^|$i:|"
 181
 182       # Fail if grep or sed fails.
 183       r=$(
 184         exec 4>&1
 185         (eval "$grep" 4>&-; echo $? >&4) 3>&- | sed "$sed_script" >&3 4>&-
 186       ) || r=2
 187       exit $r
 188     fi >&3 5>&-
 189   )
 190   r=$?
 191   test "$gzip_status" -eq 0 || test "$gzip_status" -eq 2 || r=2
 192   test $res -lt $r && res=$r
 193 done
 194 exit $res