posix-modules

   1 #!/bin/sh
   2 #
   3 # Copyright (C) 2002-2010 Free Software Foundation, Inc.
   4 #
   5 # This program is free software: you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17 #
  18
  19 progname=$0
  20 package=gnulib
  21
  22 # func_usage
  23 # outputs to stdout the --help usage message.
  24 func_usage ()
  25 {
  26   echo "\
  27 Usage: posix-modules
  28
  29 Report bugs to <bug-gnulib@gnu.org>."
  30 }
  31
  32 # func_version
  33 # outputs to stdout the --version message.
  34 func_version ()
  35 {
  36   func_gnulib_dir
  37   if test -d "$gnulib_dir"/.git \
  38      && (git --version) >/dev/null 2>/dev/null \
  39      && (date --version) >/dev/null 2>/dev/null; then
  40     # gnulib checked out from git.
  41     sed_extract_first_date='/^Date/{
  42 s/^Date:[        ]*//p
  43 q
  44 }'
  45     date=`cd "$gnulib_dir" && git log ChangeLog | sed -n -e "$sed_extract_first_date"`
  46     # Turn "Fri Mar 21 07:16:51 2008 -0600" into "Mar 21 2008 07:16:51 -0600".
  47     sed_year_before_time='s/^[^ ]* \([^ ]*\) \([0-9]*\) \([0-9:]*\) \([0-9]*\) /\1 \2 \4 \3 /'
  48     date=`echo "$date" | sed -e "$sed_year_before_time"`
  49     # Use GNU date to compute the time in GMT.
  50     date=`date -d "$date" -u +"%Y-%m-%d %H:%M:%S"`
  51     version=' '`cd "$gnulib_dir" && ./build-aux/git-version-gen /dev/null | sed -e 's/-dirty/-modified/'`
  52   else
  53     if test -d "$gnulib_dir"/CVS \
  54        && (cvs --version) >/dev/null 2>/dev/null; then
  55       # gnulib checked out from CVS.
  56       sed_extract_first_date='/^date: /{
  57 s/^date: \([0-9][0-9][0-9][0-9]\).\([0-9][0-9]\).\([0-9][0-9]\) \([0-9][0-9]:[0-9][0-9]:[0-9][0-9]\).*/\1-\2-\3 \4/p
  58 q
  59 }'
  60       date=`cd "$gnulib_dir" && cvs log -N ChangeLog 2>/dev/null | sed -n -e "$sed_extract_first_date"`
  61     else
  62       # gnulib copy without versioning information.
  63       date=`sed -e 's/ .*//;q' "$gnulib_dir"/ChangeLog`
  64     fi
  65     version=
  66   fi
  67   year=`"$gnulib_dir"/build-aux/mdate-sh "$self_abspathname" | sed 's,^.* ,,'`
  68   echo "\
  69 posix-modules (GNU $package $date)$version
  70 Copyright (C) $year Free Software Foundation, Inc.
  71 License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
  72 This is free software: you are free to change and redistribute it.
  73 There is NO WARRANTY, to the extent permitted by law.
  74
  75 Written by" "Bruno Haible"
  76 }
  77
  78 # func_exit STATUS
  79 # exits with a given status.
  80 # This function needs to be used, rather than 'exit', when a 'trap' handler is
  81 # in effect that refers to $?.
  82 func_exit ()
  83 {
  84   (exit $1); exit $1
  85 }
  86
  87 # func_gnulib_dir
  88 # locates the directory where the gnulib repository lives
  89 # Input:
  90 # - progname                 name of this program
  91 # Sets variables
  92 # - self_abspathname         absolute pathname of this program
  93 # - gnulib_dir               absolute pathname of gnulib repository
  94 func_gnulib_dir ()
  95 {
  96   case "$progname" in
  97     /*) self_abspathname="$progname" ;;
  98     */*) self_abspathname=`pwd`/"$progname" ;;
  99     *)
 100       # Look in $PATH.
 101       # Iterate through the elements of $PATH.
 102       # We use IFS=: instead of
 103       #   for d in `echo ":$PATH:" | sed -e 's/:::*/:.:/g' | sed -e 's/:/ /g'`
 104       # because the latter does not work when some PATH element contains spaces.
 105       # We use a canonicalized $pathx instead of $PATH, because empty PATH
 106       # elements are by definition equivalent to '.', however field splitting
 107       # according to IFS=: loses empty fields in many shells:
 108       #   - /bin/sh on OSF/1 and Solaris loses all empty fields (at the
 109       #     beginning, at the end, and in the middle),
 110       #   - /bin/sh on IRIX and /bin/ksh on IRIX and OSF/1 lose empty fields
 111       #     at the beginning and at the end,
 112       #   - GNU bash, /bin/sh on AIX and HP-UX, and /bin/ksh on AIX, HP-UX,
 113       #     Solaris lose empty fields at the end.
 114       # The 'case' statement is an optimization, to avoid evaluating the
 115       # explicit canonicalization command when $PATH contains no empty fields.
 116       self_abspathname=
 117       if test "${PATH_SEPARATOR+set}" != set; then
 118         func_tmpdir
 119         { echo "#! /bin/sh"; echo "exit 0"; } > "$tmp"/conf.sh
 120         chmod +x "$tmp"/conf.sh
 121         if (PATH="/nonexistent;$tmp"; conf.sh) >/dev/null 2>&1; then
 122           PATH_SEPARATOR=';'
 123         else
 124           PATH_SEPARATOR=:
 125         fi
 126         rm -rf "$tmp"
 127       fi
 128       if test "$PATH_SEPARATOR" = ";"; then
 129         # On Windows, programs are searched in "." before $PATH.
 130         pathx=".;$PATH"
 131       else
 132         # On Unix, we have to convert empty PATH elements to ".".
 133         pathx="$PATH"
 134         case :$PATH: in
 135           *::*)
 136             pathx=`echo ":$PATH:" | sed -e 's/:::*/:.:/g' -e 's/^://' -e 's/:\$//'`
 137             ;;
 138         esac
 139       fi
 140       save_IFS="$IFS"
 141       IFS="$PATH_SEPARATOR"
 142       for d in $pathx; do
 143         IFS="$save_IFS"
 144         test -z "$d" && d=.
 145         if test -x "$d/$progname" && test ! -d "$d/$progname"; then
 146           self_abspathname="$d/$progname"
 147           break
 148         fi
 149       done
 150       IFS="$save_IFS"
 151       if test -z "$self_abspathname"; then
 152         func_fatal_error "could not locate the posix-modules program - how did you invoke it?"
 153       fi
 154       ;;
 155   esac
 156   while test -h "$self_abspathname"; do
 157     # Resolve symbolic link.
 158     linkval=`func_readlink "$self_abspathname"`
 159     test -n "$linkval" || break
 160     case "$linkval" in
 161       /* ) self_abspathname="$linkval" ;;
 162       * ) self_abspathname=`echo "$self_abspathname" | sed -e 's,/[^/]*$,,'`/"$linkval" ;;
 163     esac
 164   done
 165   gnulib_dir=`echo "$self_abspathname" | sed -e 's,/[^/]*$,,'`
 166 }
 167
 168 # func_tmpdir
 169 # creates a temporary directory.
 170 # Input:
 171 # - progname                 name of this program
 172 # Sets variable
 173 # - tmp             pathname of freshly created temporary directory
 174 func_tmpdir ()
 175 {
 176   # Use the environment variable TMPDIR, falling back to /tmp. This allows
 177   # users to specify a different temporary directory, for example, if their
 178   # /tmp is filled up or too small.
 179   : ${TMPDIR=/tmp}
 180   {
 181     # Use the mktemp program if available. If not available, hide the error
 182     # message.
 183     tmp=`(umask 077 && mktemp -d "$TMPDIR/glXXXXXX") 2>/dev/null` &&
 184     test -n "$tmp" && test -d "$tmp"
 185   } ||
 186   {
 187     # Use a simple mkdir command. It is guaranteed to fail if the directory
 188     # already exists.  $RANDOM is bash specific and expands to empty in shells
 189     # other than bash, ksh and zsh.  Its use does not increase security;
 190     # rather, it minimizes the probability of failure in a very cluttered /tmp
 191     # directory.
 192     tmp=$TMPDIR/gl$$-$RANDOM
 193     (umask 077 && mkdir "$tmp")
 194   } ||
 195   {
 196     echo "$progname: cannot create a temporary directory in $TMPDIR" >&2
 197     func_exit 1
 198   }
 199 }
 200
 201 # func_fatal_error message
 202 # outputs to stderr a fatal error message, and terminates the program.
 203 # Input:
 204 # - progname                 name of this program
 205 func_fatal_error ()
 206 {
 207   echo "$progname: *** $1" 1>&2
 208   echo "$progname: *** Stop." 1>&2
 209   func_exit 1
 210 }
 211
 212 # func_readlink SYMLINK
 213 # outputs the target of the given symlink.
 214 if (type -p readlink) > /dev/null 2>&1; then
 215   func_readlink ()
 216   {
 217     # Use the readlink program from GNU coreutils.
 218     readlink "$1"
 219   }
 220 else
 221   func_readlink ()
 222   {
 223     # Use two sed invocations. A single sed -n -e 's,^.* -> \(.*\)$,\1,p'
 224     # would do the wrong thing if the link target contains " -> ".
 225     LC_ALL=C ls -l "$1" | sed -e 's, -> ,#%%#,' | sed -n -e 's,^.*#%%#\(.*\)$,\1,p'
 226   }
 227 fi
 228
 229 # Command-line option processing.
 230 while test $# -gt 0; do
 231   case "$1" in
 232     --help | --hel | --he | --h )
 233       func_usage
 234       exit $? ;;
 235     --version | --versio | --versi | --vers | --ver | --ve | --v )
 236       func_version
 237       exit $? ;;
 238     -* )
 239       echo "posix-modules: unknown option $1" 1>&2
 240       echo "Try 'posix-modules --help' for more information." 1>&2
 241       exit 1 ;;
 242     * )
 243       echo "posix-modules: too many arguments" 1>&2
 244       echo "Try 'posix-modules --help' for more information." 1>&2
 245       exit 1 ;;
 246   esac
 247 done
 248
 249 func_gnulib_dir
 250 (
 251   # Get the header modules.
 252   LC_ALL=C grep -h '^Gnulib module: ' "$gnulib_dir"/doc/posix-headers/* 2>/dev/null \
 253     | sed -e 's,^Gnulib module: ,,'
 254   # Get the function modules.
 255   LC_ALL=C grep -h '^Gnulib module: ' "$gnulib_dir"/doc/posix-functions/* 2>/dev/null \
 256     | sed -e 's,^Gnulib module: ,,'
 257   # Then filter out the words "---", ",", "and", "or" and remove *-gnu modules.
 258 ) | sed -e 's/,/ /g' | LC_ALL=C sort | LC_ALL=C uniq \
 259   | { # Then filter out the words "---", "and", "or" and remove *-gnu modules.
 260       tr ' ' '\012' | sed -e '/^---$/d' -e '/^and$/d' -e '/^or$/d' -e '/-gnu$/d'
 261     } \
 262   | LC_ALL=C sort | LC_ALL=C uniq
 263
 264 # Local Variables:
 265 # indent-tabs-mode: nil
 266 # whitespace-check-buffer-indent: nil
 267 # End: