diff options
| author |   Dave Barach <dave@barachs.net> | 2016-01-04 15:27:42 -0500 |
|---|---|---|
| committer | Dave Barach <dave@barachs.net> | 2016-01-04 15:28:11 -0500 |
| commit | b852bfa18ba5875484374eea1127996b4e41ab66 (patch) | |
| tree | 738a731b4adac48536b689cc1103d3f17980dba3 /build-root/emacs-lisp/plugin.el | |
| parent | 7d08f5635df5936c2db13cbf19d7e0480b171488 (diff) | |
Emacs-lisp scripts to generate complete vpp plugins
Change-Id: Id71147a8d5e30aadfb90dc10ea9468cf36ef23a8
Signed-off-by: Dave Barach <dave@barachs.net>
Diffstat (limited to 'build-root/emacs-lisp/plugin.el')
| -rw-r--r-- | build-root/emacs-lisp/plugin.el | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/build-root/emacs-lisp/plugin.el b/build-root/emacs-lisp/plugin.el new file mode 100644 index 00000000000..4c24e7d8e6c --- /dev/null +++ b/build-root/emacs-lisp/plugin.el @@ -0,0 +1,35 @@ +(defun make-plugin () + "Create a plugin" + (interactive) + (save-excursion + (let (cd-args cmd-args start-dir) + (setq start-dir default-directory) + (makunbound 'plugin-name) + (makunbound 'PLUGIN-NAME) + (setq plugin-name (read-string "Plugin name: ")) + (setq PLUGIN-NAME (upcase plugin-name)) + (setq cmd-args (concat "mkdir -p " plugin-name "-plugin/" plugin-name)) + (shell-command cmd-args) + (setq cd-args (concat start-dir plugin-name "-plugin")) + (setq default-directory cd-args) + (find-file "Makefile.am") + (plugin-makefile-skel) + (find-file "configure.ac") + (plugin-configure-skel) + (setq default-directory (concat cd-args "/" plugin-name)) + (find-file (concat plugin-name ".api")) + (plugin-api-skel) + (find-file (concat plugin-name "_all_api_h.h")) + (plugin-all-apih-skel) + (find-file (concat plugin-name ".h")) + (plugin-h-skel) + (find-file (concat plugin-name ".c")) + (plugin-main-skel) + (find-file (concat plugin-name "_msg_enum.h")) + (plugin-msg-enum-skel) + (find-file "node.c") + (plugin-node-skel) + (find-file (concat plugin-name "_test.c")) + (plugin-test-skel) + (cd start-dir)))) + |