4ec6f6bc77
Remove boilerplate which is now generated by vppapigen Type: refactor Signed-off-by: Dave Barach <dave@barachs.net> Change-Id: I36bff1a651ac48caa969ed76d963b0a733ef5532
49 lines
1.8 KiB
EmacsLisp
49 lines
1.8 KiB
EmacsLisp
;;; Copyright (c) 2016 Cisco and/or its affiliates.
|
|
;;; Licensed under the Apache License, Version 2.0 (the "License");
|
|
;;; you may not use this file except in compliance with the License.
|
|
;;; You may obtain a copy of the License at:
|
|
;;;
|
|
;;; http://www.apache.org/licenses/LICENSE-2.0
|
|
;;;
|
|
;;; Unless required by applicable law or agreed to in writing, software
|
|
;;; distributed under the License is distributed on an "AS IS" BASIS,
|
|
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
;;; See the License for the specific language governing permissions and
|
|
;;; limitations under the License.
|
|
|
|
(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)
|
|
(makunbound 'plugin-flavor)
|
|
(setq plugin-name (read-string "Plugin name: "))
|
|
(setq plugin-flavor
|
|
(read-string "Dispatch type [dual or qs]: "))
|
|
(setq PLUGIN-NAME (upcase plugin-name))
|
|
(setq cmd-args (concat "mkdir -p " plugin-name))
|
|
(shell-command cmd-args)
|
|
(setq cd-args (concat start-dir "/" plugin-name))
|
|
(setq default-directory cd-args)
|
|
(find-file "CMakeLists.txt")
|
|
(skel-plugin-cmakelists-text-fragment)
|
|
(find-file (concat plugin-name ".api"))
|
|
(skel-plugin-api)
|
|
(find-file (concat plugin-name ".h"))
|
|
(skel-plugin-h)
|
|
(find-file (concat plugin-name ".c"))
|
|
(skel-plugin-main)
|
|
(find-file "node.c")
|
|
(if (string= plugin-flavor "qs")
|
|
(skel-plugin-qsnode) (skel-plugin-node))
|
|
(find-file (concat plugin-name "_test.c"))
|
|
(skel-plugin-test)
|
|
(find-file (concat plugin-name "_periodic.c"))
|
|
(skel-plugin-periodic)
|
|
(find-file "setup.pg")
|
|
(skel-plugin-setup)
|
|
(cd start-dir))))
|