32 lines
718 B
EmacsLisp
32 lines
718 B
EmacsLisp
|
;;; elog-4-int-skel.el - 4 integer elog skeleton
|
||
|
|
||
|
(require 'skeleton)
|
||
|
|
||
|
(define-skeleton skel-elog-4-int
|
||
|
"Insert a skeleton 4-integer event definition"
|
||
|
nil
|
||
|
'(setq function-name (skeleton-read "Function: "))
|
||
|
'(setq label (skeleton-read "Label: "))
|
||
|
|
||
|
"
|
||
|
|
||
|
/* $$$ May or may not be needed */
|
||
|
#include <vlib/vlib.h>
|
||
|
#include <vppinfra/elog.h>
|
||
|
|
||
|
static inline void " function-name " (u32 *data)
|
||
|
{
|
||
|
ELOG_TYPE_DECLARE(e) =
|
||
|
{
|
||
|
.format = \"" label ": first %d second %d third %d fourth %d\",
|
||
|
.format_args = \"i4i4i4i4\",
|
||
|
};
|
||
|
struct { u32 data[4];} * ed;
|
||
|
ed = ELOG_DATA (&vlib_global_main.elog_main, e);
|
||
|
ed->data[0] = data[0];
|
||
|
ed->data[1] = data[1];
|
||
|
ed->data[2] = data[2];
|
||
|
ed->data[3] = data[3];
|
||
|
}
|
||
|
")
|