29 lines
628 B
EmacsLisp
29 lines
628 B
EmacsLisp
|
;;; config-skel.el - config function command skeleton
|
||
|
|
|
||
|
|
(require 'skeleton)
|
||
|
|
|
||
|
|
(define-skeleton config-skel
|
||
|
|
"Insert a vlib config skeleton "
|
||
|
|
nil
|
||
|
|
'(setq cfg-name (skeleton-read "Config Class Name: "))
|
||
|
|
|
||
|
|
"
|
||
|
|
static clib_error_t *
|
||
|
|
" cfg-name "_config (vlib_main_t * vm, unformat_input_t * input)
|
||
|
|
{
|
||
|
|
u32 whatever;
|
||
|
|
|
||
|
|
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_CONFIG_FUNCTION (" cfg-name "_config, \"" cfg-name "\");
|
||
|
|
")
|