vom: Add support for redirect contracts in gbp

[vpp.git] / extras / emacs / plugin.el

diff --git a/extras/emacs/plugin.el b/extras/emacs/plugin.el
index 4f1361a..4d7333c 100644 (file)
--- a/extras/emacs/plugin.el
+++ b/extras/emacs/plugin.el
@@ -1,3 +1,16 @@
+;;; 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)
@@ -6,14 +19,17 @@
       (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))
-      (find-file (concat plugin-name ".am"))
-      (skel-plugin-makefile-am-fragment)
       (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 "_all_api_h.h"))
@@ -25,8 +41,13 @@
       (find-file (concat plugin-name "_msg_enum.h"))
       (skel-plugin-msg-enum)
       (find-file "node.c")
-      (skel-plugin-node)
+      (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))))