jps: New completion.

completions/java

@@ -521,6 +521,29 @@ _javaws()
 } &&
 complete -F _javaws javaws
 
+have jps &&
+_jps()
+{
+    local cur prev words cword
+    _init_completion || return
+
+    case $prev in
+        -J*|-help)
+            return
+            ;;
+    esac
+
+    if [[ $cur == -* ]]; then
+        # Not using _parse_usage because output has [-help] which does not
+        # mean -h, -e, -l, -p...
+        COMPREPLY=( $( compgen -W "-q -m -l -v -V -J -help" -- "$cur" ) )
+        [[ $COMPREPLY == -J* ]] && compopt -o nospace
+    else
+        _known_hosts_real "$cur"
+    fi
+} &&
+complete -F _jps jps
+
 # Local variables:
 # mode: shell-script
 # sh-basic-offset: 4

test/completion/jps.exp

@@ -0,0 +1 @@
+assert_source_completions jps

test/lib/completions/jps.exp

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