file: New completion.

completions/Makefile.am

@@ -48,6 +48,7 @@ bashcomp_DATA = abook \
 		e2fsprogs \
 		evince \
 		feh \
+		file \
 		findutils \
 		freeciv \
 		freerdp \

completions/file

@@ -0,0 +1,38 @@
+have file || return
+
+_file()
+{
+    local cur prev words cword
+    _init_completion || return
+
+    case $prev in
+        --help|-v|--version|-F|--separator)
+            return
+            ;;
+        -m|--magic-file|-f|--files-from)
+            _filedir
+            return
+            ;;
+        -e|--exclude)
+            COMPREPLY=( $( compgen -W 'ascii apptype compress elf soft tar
+                tokens troff' -- "$cur" ) )
+            return
+            ;;
+    esac
+
+    if [[ $cur == -* ]]; then
+        COMPREPLY=( $( compgen -W '$( _parse_help "$1" )' -- "$cur" ) )
+        return
+    fi
+
+    _filedir
+} &&
+complete -F _file file
+
+# Local variables:
+# mode: shell-script
+# sh-basic-offset: 4
+# sh-indent-comment: t
+# indent-tabs-mode: nil
+# End:
+# ex: ts=4 sw=4 et filetype=sh

test/completion/file.exp

@@ -0,0 +1 @@
+assert_source_completions file

test/lib/completions/file.exp

@@ -0,0 +1,21 @@
+proc setup {} {
+    save_env
+}
+
+
+proc teardown {} {
+    assert_env_unmodified
+}
+
+
+setup
+
+
+assert_complete_any "file "
+sync_after_int
+
+assert_complete_any "file -"
+sync_after_int
+
+
+teardown