From 7f16d459ab32679bc830c5ea815768f4c68be458 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 17 Mar 2025 11:00:27 +0100 Subject: [PATCH] Drop snmp-mode.el --- lisp/net/snmp-mode.el | 656 ------------------------------------------ 1 file changed, 656 deletions(-) delete mode 100644 lisp/net/snmp-mode.el diff --git a/lisp/net/snmp-mode.el b/lisp/net/snmp-mode.el deleted file mode 100644 index 931e4a2bca4..00000000000 --- a/lisp/net/snmp-mode.el +++ /dev/null @@ -1,656 +0,0 @@ -;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode -*- lexical-binding: t -*- - -;; Copyright (C) 1995, 1998, 2001-2025 Free Software Foundation, Inc. - -;; Author: Paul D. Smith -;; Keywords: data - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Commentary: - -;; INTRODUCTION -;; ------------ -;; This package provides a major mode for editing SNMP MIBs. -;; -;; SNMP mode also uses tempo, a textual boilerplate insertion package -;; distributed with Emacs, to add in boilerplate SNMP MIB structures. -;; See tempo.el for more details about tempo. -;; -;; If you want to change or add new tempo templates, use the tempo tag -;; list `snmp-tempo-tags' (or `snmpv2-tempo-tags'): this list is -;; automatically installed when snmp-mode (or snmpv2-mode) is entered. -;; -;; The SNMPv2 mode in this version has been enhanced thanks to popular -;; demand. -;; -;; I'm very interested in new tempo macros for both v1 and v2, and any -;; other suggestions for enhancements (different syntax table items, new -;; keybindings, etc.) -;; -;; -;; USAGE -;; ----- -;; Mostly, use it as you would any other mode. There's a very -;; simplistic auto-indent feature; hopefully it'll help more than get in -;; your way. For the most part it tries to indent to the same level as -;; the previous line. It will try to recognize some very simple tokens -;; on the previous line that tell it to use extra indent or outdent. -;; -;; Templates -;; --------- -;; To use the Tempo templates, type the Tempo tag (or a unique prefix) -;; and use C-c C-i (C-c TAB) to complete it; if you don't have -;; tempo-interactive set to nil it will ask you to fill in values. -;; Fields with predefined values (SYNTAX, STATUS, etc.) will do -;; completing-reads on a list of valid values; use the normal SPC or TAB -;; to complete. -;; -;; Currently the following templates are available: -;; -;; objectType -- Defines an OBJECT-TYPE macro. -;; -;; tableType -- Defines both a Table and Entry OBJECT-TYPE, and a -;; SEQUENCE for the ASN.1 Entry definition. -;; -;; Once the template is done, you can use C-cC-f and C-cC-b to move back -;; and forth between the Tempo sequence points to fill in the rest of -;; the information. - -;;; Code: - -(eval-when-compile - (require 'imenu)) ; Need this stuff when compiling for imenu macros, etc. - -(require 'tempo) - -;;;---------------------------------------------------------------------------- -;; -;; Customize these: -;; -;;;---------------------------------------------------------------------------- - -(defgroup snmp nil - "Mode for editing SNMP MIB files." - :group 'data - :version "20.4") - -(defcustom snmp-special-indent t - "If non-nil, use a simple heuristic to try to guess the right indentation. -If nil, then no special indentation is attempted." - :type 'boolean) - -(defcustom snmp-indent-level 4 - "Indentation level for SNMP MIBs." - :type 'integer) - -(defcustom snmp-tab-always-indent nil - "Non-nil means TAB should always reindent the current line. -A value of nil means reindent if point is within the initial line indentation; -otherwise insert a TAB." - :type 'boolean) - -(defcustom snmp-completion-ignore-case t - "Non-nil means that case differences are ignored during completion. -A value of nil means that case is significant. -This is used during Tempo template completion." - :type 'boolean) - -(defcustom snmp-common-mode-hook nil - "Hook(s) evaluated when a buffer enters either SNMP or SNMPv2 mode." - :type 'hook) - -(defcustom snmp-mode-hook nil - "Hook(s) evaluated when a buffer enters SNMP mode." - :type 'hook) - -(defcustom snmpv2-mode-hook nil - "Hook(s) evaluated when a buffer enters SNMPv2 mode." - :type 'hook) - -(defvar snmp-tempo-tags nil - "Tempo tags for SNMP mode.") - -(defvar snmpv2-tempo-tags nil - "Tempo tags for SNMPv2 mode.") - - -;; Enable fontification for SNMP MIBs -;; - -;; These are pretty basic fontifications. Note we assume these macros -;; are first on a line (except whitespace), to speed up fontification. -;; -(defvar snmp-font-lock-keywords-1 - (list - ;; OBJECT-TYPE, TRAP-TYPE, and OBJECT-IDENTIFIER macros - '("^[ \t]*\\([a-z][-a-zA-Z0-9]+\\)[ \t]+\\(\\(MODULE-\\(COMPLIANCE\\|IDENTITY\\)\\|OBJECT-\\(COMPLIANCE\\|GROUP\\|IDENTITY\\|TYPE\\)\\|TRAP-\\(GROUP\\|TYPE\\)\\)\\|\\(OBJECT\\)[ \t]+\\(IDENTIFIER\\)[ \t]*::=\\)" - (1 font-lock-variable-name-face) (3 font-lock-keyword-face nil t) - (7 font-lock-keyword-face nil t) (8 font-lock-keyword-face nil t)) - - ;; DEFINITIONS clause - '("^[ \t]*\\([A-Z][-a-zA-Z0-9]+\\)[ \t]+\\(DEFINITIONS\\)[ \t]*::=" - (1 font-lock-function-name-face) (2 font-lock-keyword-face)) - ) - "Basic SNMP MIB mode expression highlighting.") - -(defvar snmp-font-lock-keywords-2 - (append - '(("ACCESS\\|BEGIN\\|DE\\(FVAL\\|SCRIPTION\\)\\|END\\|FROM\\|I\\(MPORTS\\|NDEX\\)\\|S\\(TATUS\\|YNTAX\\)" - (0 font-lock-keyword-face))) - snmp-font-lock-keywords-1) - "Medium SNMP MIB mode expression highlighting.") - -(defvar snmp-font-lock-keywords-3 - (append - '(("\\([^\n]+\\)[ \t]+::=[ \t]+\\(SEQUENCE\\)[ \t]+{" - (1 font-lock-constant-face) (2 font-lock-keyword-face)) - ("::=[ \t]*{[ \t]*\\([a-z0-9].*[ \t]+\\)?\\([0-9]+\\)[ \t]*}" - (1 font-lock-constant-face nil t) (2 font-lock-variable-name-face))) - snmp-font-lock-keywords-2) - "Gaudy SNMP MIB mode expression highlighting.") - -(defvar snmp-font-lock-keywords snmp-font-lock-keywords-1 - "Default SNMP MIB mode expression highlighting.") - - -;; These lists are used for the completion capabilities in the tempo -;; templates. -;; - -(defvar snmp-mode-syntax-list nil - "Predefined types for SYNTAX clauses.") - -(defvar snmp-rfc1155-types - '("INTEGER" "OCTET STRING" "OBJECT IDENTIFIER" "NULL" "IpAddress" - "NetworkAddress" "Counter" "Gauge" "TimeTicks" "Opaque") - "Types from RFC 1155 v1 SMI.") - -(defvar snmp-rfc1213-types - '("DisplayString") - "Types from RFC 1213 MIB-II.") - -(defvar snmp-rfc1902-types - '("INTEGER" "OCTET STRING" "OBJECT IDENTIFIER" "Integer32" - "IpAddress" "Counter32" "Gauge32" "Unsigned32" "TimeTicks" - "Opaque" "Counter64") - "Types from RFC 1902 v2 SMI.") - -(defvar snmp-rfc1903-types - '("DisplayString" "PhysAddress" "MacAddress" "TruthValue" - "TestAndIncr" "AutonomousType" "InstancePointer" - "VariablePointer" "RowPointer" "RowStatus" "TimeStamp" - "TimeInterval" "DateAndTime" "StorageType" "TDomain" - "TAddress") - "Types from RFC 1903 Textual Conventions.") - - -(defvar snmp-mode-access-list nil - "Predefined values for ACCESS clauses.") - -(defvar snmp-rfc1155-access - '("read-only" "read-write" "write-only" "not-accessible") - "ACCESS values from RFC 1155 v1 SMI.") - -(defvar snmp-rfc1902-access - '("read-only" "read-write" "read-create" "not-accessible" - "accessible-for-notify") - "ACCESS values from RFC 1155 v1 SMI.") - - -(defvar snmp-mode-status-list nil - "Predefined values for STATUS clauses.") - -(defvar snmp-rfc1212-status - '("mandatory" "obsolete" "deprecated") - "STATUS values from RFC 1212 v1 SMI.") - -(defvar snmp-rfc1902-status - '("current" "obsolete" "deprecated") - "STATUS values from RFC 1902 v2 SMI.") - - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;;---------------------------------------------------------------------------- -;; -;; Nothing to customize below here. -;; -;;;---------------------------------------------------------------------------- -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - - -;; Create abbrev table for SNMP MIB mode -;; -(defvar snmp-mode-abbrev-table nil - "Abbrev table in use in SNMP mode.") -(define-abbrev-table 'snmp-mode-abbrev-table ()) - - -;; Create abbrev table for SNMPv2 mode -;; -(defvar snmpv2-mode-abbrev-table nil - "Abbrev table in use in SNMPv2 mode.") -(define-abbrev-table 'snmpv2-mode-abbrev-table ()) - - -;; Set up our keymap -;; -(defvar-keymap snmp-mode-map - :doc "Keymap used in SNMP mode." - "DEL" #'backward-delete-char-untabify - "C-c TAB" #'tempo-complete-tag - "C-c C-f" #'tempo-forward-mark - "C-c C-b" #'tempo-backward-mark) - - -;; Set up our syntax table -;; -(defvar snmp-mode-syntax-table - (let ((st (make-syntax-table))) - (modify-syntax-entry ?\\ "\\" st) - (modify-syntax-entry ?- "_ 1234" st) - (modify-syntax-entry ?\n ">" st) - (modify-syntax-entry ?\^m ">" st) - (modify-syntax-entry ?_ "." st) - (modify-syntax-entry ?: "." st) - (modify-syntax-entry ?= "." st) - st) - "Syntax table used for buffers in SNMP mode.") - -;; Set up the stuff that's common between snmp-mode and snmpv2-mode -;; -(defun snmp-common-mode (name mode abbrev font-keywords imenu-index mode-tempo-tags) - (kill-all-local-variables) - - ;; Become the current major mode - (setq mode-name name) - (setq major-mode mode) - - ;; Activate keymap, syntax table, and abbrev table - (use-local-map snmp-mode-map) - (set-syntax-table snmp-mode-syntax-table) - (setq local-abbrev-table abbrev) - - ;; Set up paragraphs (?) - (setq-local paragraph-start (concat "$\\|" page-delimiter)) - (setq-local paragraph-separate paragraph-start) - (setq-local paragraph-ignore-fill-prefix t) - - ;; Set up comments - (setq-local comment-start "-- ") - (setq-local comment-start-skip "--+[ \t]*") - (setq-local comment-column 40) - (setq-local parse-sexp-ignore-comments t) - - ;; Set up indentation - (if snmp-special-indent - (setq-local indent-line-function 'snmp-indent-line)) - (setq-local tab-always-indent snmp-tab-always-indent) - - ;; Font Lock - (setq-local font-lock-defaults (cons font-keywords '(nil nil ((?- . "w 1234"))))) - - ;; Imenu - (setq-local imenu-create-index-function imenu-index) - - ;; Tempo - (tempo-use-tag-list mode-tempo-tags) - (setq-local tempo-match-finder "\\b\\(.+\\)\\=") - (setq-local tempo-interactive t) - - ;; Miscellaneous customization - (setq-local require-final-newline mode-require-final-newline)) - - -;; SNMPv1 MIB Editing Mode. -;; -;;;###autoload -(defun snmp-mode () - ;; FIXME: Use define-derived-mode. - "Major mode for editing SNMP MIBs. -Expression and list commands understand all C brackets. -Tab indents for C code. -Comments start with -- and end with newline or another --. -Delete converts tabs to spaces as it moves back. -\\{snmp-mode-map} -Turning on `snmp-mode' runs the hooks in `snmp-common-mode-hook', then -`snmp-mode-hook'." - (interactive) - - (snmp-common-mode "SNMP" 'snmp-mode - snmp-mode-abbrev-table - '(snmp-font-lock-keywords - snmp-font-lock-keywords-1 - snmp-font-lock-keywords-2 - snmp-font-lock-keywords-3) - 'snmp-mode-imenu-create-index - 'snmp-tempo-tags) - - ;; Completion lists - (setq-local snmp-mode-syntax-list (append snmp-rfc1155-types - snmp-rfc1213-types - snmp-mode-syntax-list)) - (setq-local snmp-mode-access-list snmp-rfc1155-access) - (setq-local snmp-mode-status-list snmp-rfc1212-status) - - ;; Run hooks - (run-mode-hooks 'snmp-common-mode-hook 'snmp-mode-hook)) - - -;;;###autoload -(defun snmpv2-mode () - ;; FIXME: Use define-derived-mode. - "Major mode for editing SNMPv2 MIBs. -Expression and list commands understand all C brackets. -Tab indents for C code. -Comments start with -- and end with newline or another --. -Delete converts tabs to spaces as it moves back. -\\{snmp-mode-map} -Turning on `snmp-mode' runs the hooks in `snmp-common-mode-hook', -then `snmpv2-mode-hook'." - (interactive) - - (snmp-common-mode "SNMPv2" 'snmpv2-mode - snmpv2-mode-abbrev-table - '(snmp-font-lock-keywords - snmp-font-lock-keywords-1 - snmp-font-lock-keywords-2 - snmp-font-lock-keywords-3) - 'snmp-mode-imenu-create-index - 'snmpv2-tempo-tags) - - ;; Completion lists - (setq-local snmp-mode-syntax-list (append snmp-rfc1902-types - snmp-rfc1903-types - snmp-mode-syntax-list)) - (setq-local snmp-mode-access-list snmp-rfc1902-access) - (setq-local snmp-mode-status-list snmp-rfc1902-status) - - ;; Run hooks - (run-mode-hooks 'snmp-common-mode-hook 'snmpv2-mode-hook)) - - -;;;---------------------------------------------------------------------------- -;; -;; Indentation Setup -;; -;;;---------------------------------------------------------------------------- - -(defvar snmp-macro-open - "[a-zA-Z][-a-zA-Z0-9]*[ \t]*\\(OBJECT\\|TRAP\\)-\\(TYPE\\|GROUP\\)\ -\\|DESCRIPTION\\|IMPORTS\\|MODULE\\(-IDENTITY\\|-COMPLIANCE\\)\ -\\|.*::=[ \t]*\\(BEGIN\\|TEXTUAL-CONVENTION\\)[ \t]*$") - -(defvar snmp-macro-close - "::=[ \t]*{\\|\\(END\\|.*[;\"]\\)[ \t]*$") - -(defun snmp-calculate-indent () - "Calculate the current line indentation in SNMP MIB code. - -We use a very simple scheme: if the previous non-empty line was a \"macro -open\" string, add `snmp-indent-level' to it. If it was a \"macro close\" -string, subtract `snmp-indent-level'. Otherwise, use the same indentation -as the previous non-empty line. Note comments are considered empty -lines for the purposes of this function." - (let ((empty (concat "\\([ \t]*\\)\\(" comment-start-skip "\\|$\\)")) - (case-fold-search nil)) ; keywords must be in uppercase - (save-excursion - (while (and (>= (forward-line -1) 0) - (looking-at empty))) - (skip-chars-forward " \t") - (+ (current-column) - ;; Are we looking at a macro open string? If so, add more. - (cond ((looking-at snmp-macro-open) - snmp-indent-level) - ;; macro close string? If so, remove some. - ((looking-at snmp-macro-close) - (- snmp-indent-level)) - ;; Neither; just stay here. - (t 0)))))) - -(defun snmp-indent-line () - "Indent current line as SNMP MIB code." - (let ((indent (snmp-calculate-indent)) - (pos (- (point-max) (point))) - shift-amt beg) - (beginning-of-line) - (setq beg (point)) - (skip-chars-forward " \t") - (setq shift-amt (- indent (current-column))) - (if (zerop shift-amt) - nil - (delete-region beg (point)) - (indent-to indent)) - ;; If initial point was within line's indentation, - ;; position after the indentation. Else stay at same point in text. - (if (> (- (point-max) pos) (point)) - (goto-char (- (point-max) pos))))) - - -;;;---------------------------------------------------------------------------- -;; -;; Imenu Setup -;; -;;;---------------------------------------------------------------------------- - -(defvar snmp-clause-regexp - "^[ \t]*\\([a-zA-Z][-a-zA-Z0-9]*\\)[ \t\n]*\ -\\(TRAP-TYPE\\|::=\\|OBJECT\\(-TYPE[ \t\n]+SYNTAX\\|[ \t\n]+IDENTIFIER[ \t\n]*::=\\)\\)") - -(defun snmp-mode-imenu-create-index () - (let ((index-alist '()) - (index-oid-alist '()) - (index-tc-alist '()) - (index-table-alist '()) - (index-trap-alist '()) - (case-fold-search nil) ; keywords must be uppercase - token end) - (goto-char (point-min)) - ;; Search for a useful MIB item (that's not in a comment) - (save-match-data - (while (re-search-forward snmp-clause-regexp nil t) - (setq - end (match-end 0) - token (cons (match-string 1) - (set-marker (make-marker) (match-beginning 1)))) - (goto-char (match-beginning 2)) - (cond ((looking-at "OBJECT-TYPE[ \t\n]+SYNTAX") - (push token index-alist)) - ((looking-at "OBJECT[ \t\n]+IDENTIFIER[ \t\n]*::=") - (push token index-oid-alist)) - ((looking-at "::=[ \t\n]*SEQUENCE[ \t\n]*{") - (push token index-table-alist)) - ((looking-at "TRAP-TYPE") - (push token index-trap-alist)) - ((looking-at "::=") - (push token index-tc-alist))) - (goto-char end))) - ;; Create the menu - (setq index-alist (nreverse index-alist)) - (and index-tc-alist - (push (cons "Textual Conventions" (nreverse index-tc-alist)) - index-alist)) - (and index-trap-alist - (push (cons "Traps" (nreverse index-trap-alist)) - index-alist)) - (and index-table-alist - (push (cons "Tables" (nreverse index-table-alist)) - index-alist)) - (and index-oid-alist - (push (cons "Object IDs" (nreverse index-oid-alist)) - index-alist)) - index-alist)) - - -;;;---------------------------------------------------------------------------- -;; -;; Tempo Setup -;; -;;;---------------------------------------------------------------------------- - -;; Perform a completing-read with info given -;; -(defun snmp-completing-read (prompt table &optional pred require init hist) - "Read from the minibuffer, with completion. -Like `completing-read', but the variable `snmp-completion-ignore-case' -controls whether case is significant." - (minibuffer-with-setup-hook - (lambda () - (setq-local completion-ignore-case snmp-completion-ignore-case)) - (completing-read prompt table pred require init hist))) - -;; OBJECT-TYPE macro template -;; -(tempo-define-template "snmp-object-type" - '(> (P "Object Label: ") " OBJECT-TYPE" n> - "SYNTAX " - (if tempo-interactive - (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil) - p) n> - "ACCESS " - (if tempo-interactive - (snmp-completing-read "Access: " snmp-mode-access-list nil t) - p) n> - "STATUS " - (if tempo-interactive - (snmp-completing-read "Status: " snmp-mode-status-list nil t) - p) n> - "DESCRIPTION" n> "\"" p "\"" n> - (P "Default Value: " defval t) - (if (string= "" (tempo-lookup-named 'defval)) - nil - '(l "DEFVAL { " (s defval) " }" n>)) - "::= { " (p "OID: ") " }" n) - "objectType" - "Insert an OBJECT-TYPE macro." - 'snmp-tempo-tags) - -;; Table macro template -;; -(tempo-define-template "snmp-table-type" - ;; First the table OBJECT-TYPE - '(> (P "Table Name: " table) - (P "Entry Name: " entry t) - (let* ((entry (tempo-lookup-named 'entry)) - (seq (copy-sequence entry))) - (aset entry 0 (downcase (aref entry 0))) - (aset seq 0 (upcase (aref seq 0))) - (tempo-save-named 'obj-entry entry) - (tempo-save-named 'seq-entry seq) - nil) - " OBJECT-TYPE" n> - "SYNTAX SEQUENCE OF " - (s seq-entry) n> - "ACCESS not-accessible" n> - "STATUS mandatory" n> - "DESCRIPTION" n> "\"" p "\"" n> - "::= { " (p "OID: ") " }" n n> - ;; Next the row OBJECT-TYPE - (s obj-entry) " OBJECT-TYPE" n> - "SYNTAX " (s seq-entry) n> - "ACCESS not-accessible" n> - "STATUS mandatory" n> - "DESCRIPTION" n> "\"" p "\"" n> - "INDEX { " (p "Index List: ") " }" n> - "::= {" (s table) " 1 }" n n> - ;; Finally the SEQUENCE type - (s seq-entry) " ::= SEQUENCE {" n> p n> "}" n) - "tableType" - "Insert an SNMP table." - 'snmp-tempo-tags) - - -;; v2 SMI OBJECT-TYPE macro template -;; -(tempo-define-template "snmpv2-object-type" - '(> (P "Object Label: ") " OBJECT-TYPE" n> - "SYNTAX " - (if tempo-interactive - (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil) - p) n> - "MAX-ACCESS " - (if tempo-interactive - (snmp-completing-read "Max Access: " snmp-mode-access-list nil t) - p) n> - "STATUS " - (if tempo-interactive - (snmp-completing-read "Status: " snmp-mode-status-list nil t) - p) n> - "DESCRIPTION" n> "\"" p "\"" n> - (P "Default Value: " defval t) - (if (string= "" (tempo-lookup-named 'defval)) - nil - '(l "DEFVAL { " (s defval) " }" n>)) - "::= { " (p "OID: ") " }" n) - "objectType" - "Insert an v2 SMI OBJECT-TYPE macro." - 'snmpv2-tempo-tags) - -;; v2 SMI Table macro template -;; -(tempo-define-template "snmpv2-table-type" - ;; First the table OBJECT-TYPE - '(> (P "Table Name: " table) - (P "Entry Name: " entry t) - (let* ((entry (tempo-lookup-named 'entry)) - (seq (copy-sequence entry))) - (aset entry 0 (downcase (aref entry 0))) - (aset seq 0 (upcase (aref seq 0))) - (tempo-save-named 'obj-entry entry) - (tempo-save-named 'seq-entry seq) - nil) - " OBJECT-TYPE" n> - "SYNTAX SEQUENCE OF " - (s seq-entry) n> - "MAX-ACCESS not-accessible" n> - "STATUS current" n> - "DESCRIPTION" n> "\"" p "\"" n> - "::= { " (p "OID: ") " }" n n> - ;; Next the row OBJECT-TYPE - (s obj-entry) " OBJECT-TYPE" n> - "SYNTAX " (s seq-entry) n> - "MAX-ACCESS not-accessible" n> - "STATUS current" n> - "DESCRIPTION" n> "\"" p "\"" n> - "INDEX { " (p "Index List: ") " }" n> - "::= { " (s table) " 1 }" n n> - ;; Finally the SEQUENCE type - (s seq-entry) " ::= SEQUENCE {" n> p n> "}" n) - "tableType" - "Insert an v2 SMI SNMP table." - 'snmpv2-tempo-tags) - -;; v2 SMI TEXTUAL-CONVENTION macro template -;; -(tempo-define-template "snmpv2-textual-convention" - '(> (P "Textual Convention Type: ") " ::= TEXTUAL-CONVENTION" n> - "STATUS " - (if tempo-interactive - (snmp-completing-read "Status: " snmp-mode-status-list nil t) - p) n> - "DESCRIPTION" n> "\"" p "\"" n> - "SYNTAX " - (if tempo-interactive - (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil) - p) n> ) - "textualConvention" - "Insert an v2 SMI TEXTUAL-CONVENTION macro." - 'snmpv2-tempo-tags) - - -(provide 'snmp-mode) - -;;; snmp-mode.el ends here -- 2.39.5