vpp/build-root/emacs-lisp/cli-cmd-skel.el
Keith Burns (alagalah) ca46d8c501 Adminis-trivia - rename skel files
- rename skels so M-x skel-<tab> gives catalog

Change-Id: Ice25a4ce4d02d09e076f0de51e8443cfab20688d
Signed-off-by: Keith Burns (alagalah) <alagalah@gmail.com>
2016-03-19 12:41:20 +00:00

33 lines
750 B
EmacsLisp

;;; cli-cmd-skel.el - cli command skeleton
(require 'skeleton)
(define-skeleton skel-cli-cmd
"Insert a CLI command "
nil
'(setq cmd-name (skeleton-read "Command Name: "))
'(setq path (skeleton-read "Path: "))
"
static clib_error_t *
" cmd-name "_command_fn (vlib_main_t * vm,
unformat_input_t * input,
vlib_cli_command_t * cmd)
{
while (unformat_check_input (input) != UNFORMAT_END_OF_INPUT) {
if (unformat (input, \"whatever %d\", &whatever))
;
else
return clib_error_return (0, \"unknown input `%U'\",
format_unformat_error, input);
}
return 0;
}
VLIB_CLI_COMMAND (" cmd-name "_command, static) = {
.path = \"" path "\",
.short_help = \"" path "\",
.function = " cmd-name "_command_fn,
};
")