gnulib/posix-modules

#!/bin/sh
#
# Copyright (C) 2002-2007 Free Software Foundation, Inc.
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#

progname=$0
package=gnulib
cvsdatestamp='$Date: 2007-09-11 00:40:16 $'
last_checkin_date=`echo "$cvsdatestamp" | sed -e 's,^\$[D]ate: ,,'`
version=`echo "$last_checkin_date" | sed -e 's/ .*$//' -e 's,/,-,g'`

# func_usage
# outputs to stdout the --help usage message.
func_usage ()
{
  echo "\
Usage: posix-modules

Report bugs to <bug-gnulib@gnu.org>."
}

# func_version
# outputs to stdout the --version message.
func_version ()
{
  year=`echo "$last_checkin_date" | sed -e 's,/.*$,,'`
  echo "\
$progname (GNU $package) $version
Copyright (C) $year Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Written by" "Bruno Haible"
}

case "$0" in
  /*) self_abspathname="$0" ;;
  */*) self_abspathname=`pwd`/"$0" ;;
  *)
    # Look in $PATH.
    # Iterate through the elements of $PATH.
    # We use IFS=: instead of
    #   for d in `echo ":$PATH:" | sed -e 's/:::*/:.:/g' | sed -e 's/:/ /g'`
    # because the latter does not work when some PATH element contains spaces.
    # We use a canonicalized $pathx instead of $PATH, because empty PATH
    # elements are by definition equivalent to '.', however field splitting
    # according to IFS=: loses empty fields in many shells:
    #   - /bin/sh on OSF/1 and Solaris loses all empty fields (at the
    #     beginning, at the end, and in the middle),
    #   - /bin/sh on IRIX and /bin/ksh on IRIX and OSF/1 lose empty fields
    #     at the beginning and at the end,
    #   - GNU bash, /bin/sh on AIX and HP-UX, and /bin/ksh on AIX, HP-UX,
    #     Solaris lose empty fields at the end.
    # The 'case' statement is an optimization, to avoid evaluating the
    # explicit canonicalization command when $PATH contains no empty fields.
    self_abspathname=
    if test "${PATH_SEPARATOR+set}" != set; then
      func_tmpdir
      { echo "#! /bin/sh"; echo "exit 0"; } > "$tmp"/conf.sh
      chmod +x "$tmp"/conf.sh
      if (PATH="/nonexistent;$tmp"; conf.sh) >/dev/null 2>&1; then
        PATH_SEPARATOR=';'
      else
        PATH_SEPARATOR=:
      fi
      rm -rf "$tmp"
    fi
    if test "$PATH_SEPARATOR" = ";"; then
      # On Windows, programs are searched in "." before $PATH.
      pathx=".;$PATH"
    else
      # On Unix, we have to convert empty PATH elements to ".".
      pathx="$PATH"
      case :$PATH: in
        *::*)
          pathx=`echo ":$PATH:" | sed -e 's/:::*/:.:/g' -e 's/^://' -e 's/:\$//'`
          ;;
      esac
    fi
    save_IFS="$IFS"
    IFS="$PATH_SEPARATOR"
    for d in $pathx; do
      IFS="$save_IFS"
      test -z "$d" && d=.
      if test -x "$d/$0" && test ! -d "$d/$0"; then
        self_abspathname="$d/$0"
        break
      fi
    done
    IFS="$save_IFS"
    if test -z "$self_abspathname"; then
      func_fatal_error "could not locate the posix-modules program - how did you invoke it?"
    fi
    ;;
esac
while test -h "$self_abspathname"; do
  # Resolve symbolic link.
  linkval=`func_readlink "$self_abspathname"`
  test -n "$linkval" || break
  case "$linkval" in
    /* ) self_abspathname="$linkval" ;;
    * ) self_abspathname=`echo "$self_abspathname" | sed -e 's,/[^/]*$,,'`/"$linkval" ;;
  esac
done
gnulib_dir=`echo "$self_abspathname" | sed -e 's,/[^/]*$,,'`

# Command-line option processing.
while test $# -gt 0; do
  case "$1" in
    --help | --hel | --he | --h )
      func_usage
      exit $? ;;
    --version | --versio | --versi | --vers | --ver | --ve | --v )
      func_version
      exit $? ;;
    -* )
      echo "posix-modules: unknown option $1" 1>&2
      echo "Try 'posix-modules --help' for more information." 1>&2
      exit 1 ;;
    * )
      echo "posix-modules: too many arguments" 1>&2
      echo "Try 'posix-modules --help' for more information." 1>&2
      exit 1 ;;
  esac
done

(
  # Get the header modules.
  LC_ALL=C grep -h '^Gnulib module: ' "$gnulib_dir"/doc/headers/* 2>/dev/null \
    | sed -e 's,^Gnulib module: ,,'
  # Get the function modules.
  LC_ALL=C grep -h '^Gnulib module: ' "$gnulib_dir"/doc/functions/* 2>/dev/null \
    | sed -e 's,^Gnulib module: ,,'
  # Then filter out the words "---", "and", "or" and remove *-gnu modules.
) | LC_ALL=C sort | LC_ALL=C uniq \
  | { # Then filter out the words "---", "and", "or" and remove *-gnu modules.
      tr ' ' '\012' | sed -e '/^---$/d' -e '/^and$/d' -e '/^or$/d' -e '/-gnu$/d'
    } \
  | LC_ALL=C sort | LC_ALL=C uniq \
  | { # Except ftruncate, which aborts the configuration on mingw. FiXME
      sed -e '/^ftruncate$/d'
    }