#!/bin/sh

# $Id: update-fonts-alias 2051 2004-12-09 14:53:04Z fabbione $

# This program compiles fonts.alias files for X font directories; see
# mkfontdir(1x) for a description of the format of fonts.alias files.

# Copyright 1999, 2001, 2002, 2004 Branden Robinson.
# Licensed under the GNU General Public License, version 2.  See the file
# /usr/share/common-licenses/GPL or <http://www.gnu.org/copyleft/gpl.txt>.

PROGNAME=${0##*/}

# Query the terminal to establish a default number of columns to use for
# displaying messages to the user.  This is used only as a fallback in the event
# the COLUMNS variable is not set.  ($COLUMNS can react to SIGWINCH while the
# script is running, and this cannot, only being calculated once.)
DEFCOLUMNS=$(stty size 2>/dev/null | awk '{print $2}') || true
if ! expr "$DEFCOLUMNS" : "[[:digit:]]\+$" >/dev/null 2>&1; then
    DEFCOLUMNS=80
fi

# Display a message, wrapping lines at the terminal width.
message () {
    echo "$*" | fmt -t -w ${COLUMNS:-$DEFCOLUMNS}
}

# Display a warning message.
warn () {
    message "warning: $*" >&2
}

# Display an error message and exit.
die () {
    message "fatal error: $*" >&2
    exit 1
}

# Display a usage message.
usage () {
    if [ -n "$*" ]; then
        message "usage error: $*"
    fi
    cat <<EOF
Usage: $PROGNAME DIRECTORY ...
       $PROGNAME { -h | --help }
This program combines X font alias information from several packages into a
single file that is placed in each specified X font directory DIRECTORY.  This
utility is primarily useful to Debian package maintainer scripts.  See
update-fonts-alias(8) for more information.
Options:
    -h, --help                               display this usage message and exit
EOF
}

# Validate arguments.
case "$1" in
    -h|--help)
        usage
        exit 0
        ;;
    -*)
        usage "unrecognized option" >&2
        exit 2
        ;;
esac

if [ $# -eq 0 ]; then
    usage "one or more font directories must be specified" >&2
    exit 2
fi

while [ -n "$1" ]; do
    # Try to be clever about the argument; were we given an absolute path?
    if expr "$1" : "/.*" >/dev/null 2>&1; then
        # Yes; an absolute path to an X font directory was provided.
        XDIR=$1
        ETCDIR=/etc/X11/fonts/${XDIR##*/}
        if [ "$XDIR" = "$ETCDIR" ]; then
            # We were given an /etc directory as an argument.
            die "path to X font directory must be used"
        else
            warn "absolute path $XDIR was provided"
        fi
    else
        # No; a relative path was provided -- assume we were given just the
        # basename.
        XDIR=/usr/lib/X11/fonts/$1
        ETCDIR=/etc/X11/fonts/$1
    fi
    # Confirm that the directories to be operated on exist.
    for DIR in "$XDIR" "$ETCDIR"; do
        VALID=yes
        if ! [ -d "$DIR" ]; then
            warn "$DIR does not exist or is not a directory"
            VALID=
        fi
    done
    if [ -n "$VALID" ]; then
        # Are there any files to process?
        if [ "$(echo "$ETCDIR"/*.alias)" != "$ETCDIR/*.alias" ]; then
            # Write the new alias file in a temporary location in case we are
            # interrupted.
            cat >"$XDIR/fonts.alias.update-new" <<EOF
!! fonts.alias -- automatically generated file.  DO NOT EDIT.
!! To modify, see update-fonts-alias(8).
EOF
            for FILE in "$ETCDIR"/*.alias; do
                echo "!! $FILE" >>"$XDIR/fonts.alias.update-new"
                cat "$FILE" >>"$XDIR/fonts.alias.update-new"
            done
            mv "$XDIR/fonts.alias.update-new" "$XDIR/fonts.alias"
        else
            # There are no files to process; remove any alias file already in
            # the font directory.
            rm -f "$XDIR/fonts.alias"
            # Remove the font directory if it is empty.
            rmdir "$XDIR" >/dev/null 2>&1 || true
        fi
    fi
    shift
done

exit 0

# vim:set ai et sts=4 sw=4 tw=80:
