# (C) 2010 magicant

# Completion script for the "pr" command.
# Supports POSIX 2008, GNU coreutils 8.4, FreeBSD 8.1, OpenBSD 4.8, NetBSD 5.0,
# Mac OS X 10.6.4, SunOS 5.10, HP-UX 11i v3.

function completion/pr {

        case $("${WORDS[1]}" --version 2>/dev/null) in
                (*'coreutils'*) typeset type=GNU ;;
                (*)             typeset type="$(uname 2>/dev/null)" ;;
        esac
        case $type in
                (GNU) typeset long=true ;;
                (*)   typeset long= ;;
        esac

        typeset OPTIONS POSIXOPTIONS ADDOPTIONS ARGOPT PREFIX
        POSIXOPTIONS=( #>#
        "a ${long:+--across}; arrange lines across columns"
        "d ${long:+--double-space}; double space"
        "e:: ${long:+--expand-tabs::}; expand tabs into spaces"
        "F f ${long:+--form-feed}; use form feeds to separate pages"
        "h: ${long:+--header:}; specify the header string"
        "i:: ${long:+--output-tabs::}; replace adjacent spaces with tabs"
        "l: ${long:+--length:}; specify the number of lines per page"
        "m ${long:+--merge}; print all files in parallel, each in one column"
        "n:: ${long:+--number-lines::}; print line numbers"
        "o: ${long:+--indent:}; specify the width of offset preceding each line"
        "p; pause before printing each page to the terminal"
        "r ${long:+--no-file-warnings}; don't warn about missing/unreadable files"
        "s:: ${long:+--separator::}; specify the column separator"
        "t ${long:+--omit-header}; omit page headers and footers"
        "w: ${long:+--width:}; specify the line width for multi-column layout"
        ) #<#

        ADDOPTIONS=()
        case $type in
        (GNU)
                ADDOPTIONS=("$ADDOPTIONS" #>#
                "c --show-control-chars; make unprintable characters visible by caret notation and backslashed octal notation"
                "D: --date-format:; specify the date format in the header"
                "J --join-lines; merge full lines"
                "N: --first-line-number:; specify the number to start counting line numbers from"
                "S:: --sep-string::; specify a string to separate columns"
                "T --omit-pagination; like -t, and eliminate form feeds in the input"
                "v --show-nonprinting; make unprintable characters visible by backslashed octal notation"
                "W: --page-width:; specify the line width"
                "--help"
                "--version"
                ) #<#
                ;;
        (FreeBSD|Darwin)
                ADDOPTIONS=("$ADDOPTIONS" #>#
                "L:; specify the locale"
                ) #<#
                ;;
        (NetBSD)
                ADDOPTIONS=("$ADDOPTIONS" #>#
                "T:; specify the date format in the header"
                ) #<#
                ;;
        (HP-UX)
                ADDOPTIONS=("$ADDOPTIONS" #>#
                "c:; specify the number of columns"
                ) #<#
                ;;
        esac

        OPTIONS=("$POSIXOPTIONS" "$ADDOPTIONS")
        unset POSIXOPTIONS ADDOPTIONS

        WORDS=("${WORDS/#+/-}")

        command -f completion//parseoptions ${long:+-es}
        case $ARGOPT in
        (-)
                command -f completion//completeoptions
                ;;
        ([DT]|--date-format)
                if command -vf completion//completestrftime >/dev/null 2>&1 ||
                                . -AL completion/date; then
                        command -f completion//completestrftime
                fi
                ;;
        (L)
                IFS="
"
                complete -P "$PREFIX" -- $(locale -a 2>/dev/null)
                ;;
        ([ceilNnosWw]|--expand-tabs|--output-tabs|--first-line-number|--length|--number-lines|--indent|--separator|--width|--page-width)
                ;;
        (*)
                complete -P "$PREFIX" -f
                ;;
        esac

}


# vim: set ft=sh ts=8 sts=8 sw=8 et:
