refactor(p*): apply naming guidelines where API is as desired

Author: scop

completions/p4

@@ -1,7 +1,7 @@
 # Perforce completion                                      -*- shell-script -*-
 # by Frank Cusack <[email protected]>
 
-_p4()
+_comp_cmd_p4()
 {
     local cur prev words cword comp_args
     _comp_initialize -- "$@" || return
@@ -46,6 +46,6 @@ _p4()
     fi
 
 } &&
-    complete -F _p4 -o default p4 g4
+    complete -F _comp_cmd_p4 -o default p4 g4
 
 # ex: filetype=sh

completions/pack200

@@ -1,6 +1,6 @@
 # pack200(1) completion                                    -*- shell-script -*-
 
-_pack200()
+_comp_cmd_pack200()
 {
     local cur prev words cword split comp_args
     _comp_initialize -s -- "$@" || return
@@ -69,6 +69,6 @@ _pack200()
         _filedir jar
     fi
 } &&
-    complete -F _pack200 pack200
+    complete -F _comp_cmd_pack200 pack200
 
 # ex: filetype=sh

completions/passwd

@@ -1,6 +1,6 @@
 # passwd(1) completion                                     -*- shell-script -*-
 
-_passwd()
+_comp_cmd_passwd()
 {
     local cur prev words cword comp_args
     _comp_initialize -- "$@" || return
@@ -23,6 +23,6 @@ _passwd()
 
     _allowed_users
 } &&
-    complete -F _passwd passwd
+    complete -F _comp_cmd_passwd passwd
 
 # ex: filetype=sh

completions/patch

@@ -1,6 +1,6 @@
 # patch(1) completion                                      -*- shell-script -*-
 
-_patch()
+_comp_cmd_patch()
 {
     local cur prev words cword split comp_args
     _comp_initialize -s -- "$@" || return
@@ -67,6 +67,6 @@ _patch()
             ;;
     esac
 } &&
-    complete -F _patch patch
+    complete -F _comp_cmd_patch patch
 
 # ex: filetype=sh

completions/pdftotext

@@ -1,6 +1,6 @@
 # bash completion for pdftotext(1)                         -*- shell-script -*-
 
-_pdftotext()
+_comp_cmd_pdftotext()
 {
     local cur prev words cword comp_args
     _comp_initialize -- "$@" || return
@@ -35,6 +35,6 @@ _pdftotext()
         *) _filedir pdf ;;
     esac
 } &&
-    complete -F _pdftotext pdftotext
+    complete -F _comp_cmd_pdftotext pdftotext
 
 # ex: filetype=sh

completions/perl

@@ -1,14 +1,14 @@
 # bash completion for perl                                 -*- shell-script -*-
 
-_perl_helper()
+_comp_cmd_perl__helper()
 {
     COMPREPLY=($(compgen -P "$prefix" -W \
         "$("${2:-perl}" "${BASH_SOURCE[0]%/*}/../helpers/perl" "$1" "$cur")" \
         -- "$cur"))
     [[ $1 == functions ]] || __ltrim_colon_completions "$prefix$cur"
 }
 
-_perl()
+_comp_cmd_perl()
 {
     local cur prev words cword comp_args
     _comp_initialize -n : -- "$@" || return
@@ -42,7 +42,7 @@ _perl()
                 temp="${cur#-}"
                 prefix+=${cur%"$temp"}
                 cur="$temp"
-                _perl_helper modules "$1"
+                _comp_cmd_perl__helper modules "$1"
                 return
                 ;;
             -*V)
@@ -62,7 +62,7 @@ _perl()
                     temp="${cur#:}"
                     prefix=$prefix${cur%"$temp"}
                     cur="Devel::$temp"
-                    _perl_helper modules "$1"
+                    _comp_cmd_perl__helper modules "$1"
                 fi
                 ;;
         esac
@@ -91,9 +91,9 @@ _perl()
         _filedir
     fi
 } &&
-    complete -F _perl perl
+    complete -F _comp_cmd_perl perl
 
-_perldoc()
+_comp_cmd_perldoc()
 {
     local cur prev words cword comp_args
     _comp_initialize -n : -- "$@" || return
@@ -120,7 +120,7 @@ _perldoc()
             return
             ;;
         -*f)
-            _perl_helper functions "$perl"
+            _comp_cmd_perl__helper functions "$perl"
             return
             ;;
     esac
@@ -130,7 +130,7 @@ _perldoc()
     else
         # return available modules (unless it is clearly a file)
         if [[ $cur != @(*/|[.~])* ]]; then
-            _perl_helper perldocs "$perl"
+            _comp_cmd_perl__helper perldocs "$perl"
             if [[ $cur == p* ]]; then
                 COMPREPLY+=($(compgen -W \
                     '$(PERLDOC_PAGER=cat "$1" -u perl |  \
@@ -142,6 +142,6 @@ _perldoc()
         _filedir 'p@([lm]|od)'
     fi
 } &&
-    complete -F _perldoc -o bashdefault perldoc
+    complete -F _comp_cmd_perldoc -o bashdefault perldoc
 
 # ex: filetype=sh

completions/perlcritic

@@ -1,6 +1,6 @@
 # perlcritic(1) completion                                 -*- shell-script -*-
 
-_perlcritic()
+_comp_cmd_perlcritic()
 {
     local cur prev words cword comp_args
     _comp_initialize -- "$@" || return
@@ -46,6 +46,6 @@ _perlcritic()
 
     _filedir 'p[lm]'
 } &&
-    complete -F _perlcritic perlcritic
+    complete -F _comp_cmd_perlcritic perlcritic
 
 # ex: filetype=sh

completions/perltidy

@@ -1,6 +1,6 @@
 # perltidy(1) completion                                   -*- shell-script -*-
 
-_perltidy()
+_comp_cmd_perltidy()
 {
     local cur prev words cword comp_args
     _comp_initialize -n = -- "$@" || return
@@ -59,6 +59,6 @@ _perltidy()
         _filedir 'p[lm]|t'
     fi
 } &&
-    complete -F _perltidy perltidy
+    complete -F _comp_cmd_perltidy perltidy
 
 # ex: filetype=sh

completions/pgrep

@@ -1,6 +1,6 @@
 # pgrep(1) and pkill(1) completion                         -*- shell-script -*-
 
-_pgrep()
+_comp_cmd_pgrep()
 {
     local cur prev words cword comp_args
     _comp_initialize -- "$@" || return
@@ -59,6 +59,6 @@ _pgrep()
 
     _pnames -s
 } &&
-    complete -F _pgrep pgrep pkill
+    complete -F _comp_cmd_pgrep pgrep pkill
 
 # ex: filetype=sh

completions/pidof

@@ -1,6 +1,6 @@
 # pidof(8) completion                                      -*- shell-script -*-
 
-_pidof()
+_comp_cmd_pidof()
 {
     local cur prev words cword comp_args
     _comp_initialize -- "$@" || return
@@ -24,6 +24,6 @@ _pidof()
 
     _pnames
 } &&
-    complete -F _pidof pidof
+    complete -F _comp_cmd_pidof pidof
 
 # ex: filetype=sh