# (C) 2010 magicant

# Completion script for the "join" 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/join {

        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 ARGOPT PREFIX
        OPTIONS=( #>#
        "1:; join on the nth field of the first file"
        "2:; join on the nth field of the second file"
        "a:; print unpairable lines from the nth file"
        "e:; specify a string to replace missing fields with"
        "o:; specify the output format"
        "t:; specify the field separator character"
        "v:; only print unpairable lines from the nth file"
        ) #<#

        case $type in
        (GNU)
                OPTIONS=("$OPTIONS" #>#
                "i --ignore-case; case-insensitive comparison"
                "--check-order; accept correctly sorted input only"
                "--nocheck-order; don't check that the input is correctly sorted"
                "--help"
                "--version"
                ) #<#
                ;;
        esac

        command -f completion//parseoptions ${long:+-es}
        case $ARGOPT in
        (-)
                command -f completion//completeoptions
                ;;
        ([12jot])
                ;;
        ([av])
                complete -P "$PREFIX" 1 2
                ;;
        (*)
                complete -P "$PREFIX" -f
                ;;
        esac

}


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