--- /dev/null
+;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode.
+
+;; Copyright (C) 1995,1998 Free Software Foundation, Inc.
+
+;; Author: Paul D. Smith <psmith@BayNetworks.com>
+;; 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 2, 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; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;; INTRODUCTION
+;; ------------
+;; This package provides a major mode for editing SNMP MIBs. It
+;; provides all the modern Emacs 19 bells and whistles: default
+;; fontification via font-lock, imenu search functions, etc.
+;;
+;; 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.
+;;
+;; Font Lock
+;; ------------
+;;
+;; If you want font-lock in your MIB buffers, add this:
+;;
+;; (add-hook 'snmp-common-mode-hook 'turn-on-font-lock)
+;;
+;; Enabling global-font-lock-mode is also sufficient.
+;;
+
+;;;----------------------------------------------------------------------------
+;;
+;; Customize these:
+;;
+;;;----------------------------------------------------------------------------
+
+(defgroup snmp nil
+ "Mode for editing SNMP MIB files."
+ :group 'data
+ :version "20.3")
+
+(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
+ :group 'snmp)
+
+(defcustom snmp-indent-level 4
+ "*Indentation level for SNMP MIBs."
+ :type 'integer
+ :group 'snmp)
+
+(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
+ :group 'snmp)
+
+(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
+ :group 'snmp)
+
+(defcustom snmp-common-mode-hook nil
+ "*Hook(s) evaluated when a buffer enters either SNMP or SNMPv2 mode."
+ :type 'hook
+ :group 'snmp)
+
+(defcustom snmp-mode-hook nil
+ "*Hook(s) evaluated when a buffer enters SNMP mode."
+ :type 'hook
+ :group 'snmp)
+
+(defcustom snmpv2-mode-hook nil
+ "*Hook(s) evaluated when a buffer enters SNMPv2 mode."
+ :type 'hook
+ :group 'snmp)
+
+(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-reference-face) (2 font-lock-keyword-face))
+ ("::=[ \t]*{[ \t]*\\([a-z0-9].*[ \t]+\\)?\\([0-9]+\\)[ \t]*}"
+ (1 font-lock-reference-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.
+;;
+;;;----------------------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+;; Need this stuff when compiling for imenu macros, etc.
+;;
+(eval-when-compile
+ (require 'cl)
+ (require 'imenu))
+
+
+;; 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 snmp-mode-map (make-sparse-keymap)
+ "Keymap used in SNMP mode.")
+
+(define-key snmp-mode-map "\t" 'snmp-indent-command)
+(define-key snmp-mode-map "\177" 'backward-delete-char-untabify)
+
+(define-key snmp-mode-map "\C-c\C-i" 'tempo-complete-tag)
+(define-key snmp-mode-map "\C-c\C-f" 'tempo-forward-mark)
+(define-key snmp-mode-map "\C-c\C-b" 'tempo-backward-mark)
+
+
+;; Set up our syntax table
+;;
+(defvar snmp-mode-syntax-table nil
+ "Syntax table used for buffers in SNMP mode.")
+
+(if snmp-mode-syntax-table
+ ()
+ (setq snmp-mode-syntax-table (make-syntax-table))
+ (modify-syntax-entry ?\\ "\\" snmp-mode-syntax-table)
+ (modify-syntax-entry ?- "_ 1234" snmp-mode-syntax-table)
+ (modify-syntax-entry ?\n ">" snmp-mode-syntax-table)
+ (modify-syntax-entry ?\^m ">" snmp-mode-syntax-table)
+ (modify-syntax-entry ?_ "." snmp-mode-syntax-table)
+ (modify-syntax-entry ?: "." snmp-mode-syntax-table)
+ (modify-syntax-entry ?= "." snmp-mode-syntax-table))
+
+;; Set up the stuff that's common between snmp-mode and snmpv2-mode
+;;
+(defun snmp-common-mode (name mode abbrev font-keywords imenu-index 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 (?)
+ (make-local-variable 'paragraph-start)
+ (setq paragraph-start (concat "$\\|" page-delimiter))
+ (make-local-variable 'paragraph-separate)
+ (setq paragraph-separate paragraph-start)
+ (make-local-variable 'paragraph-ignore-fill-prefix)
+ (setq paragraph-ignore-fill-prefix t)
+
+ ;; Set up comments
+ (make-local-variable 'comment-start)
+ (setq comment-start "-- ")
+ (make-local-variable 'comment-start-skip)
+ (setq comment-start-skip "--+[ \t]*")
+ (make-local-variable 'comment-column)
+ (setq comment-column 40)
+ (make-local-variable 'parse-sexp-ignore-comments)
+ (setq parse-sexp-ignore-comments t)
+
+ ;; Set up indentation
+ (make-local-variable 'indent-line-function)
+ (setq indent-line-function (if snmp-special-indent
+ 'snmp-indent-line
+ 'indent-to-left-margin))
+
+ ;; Font Lock
+ (make-local-variable 'font-lock-defaults)
+ (setq font-lock-defaults (cons font-keywords '(nil nil ((?- . "w 1234")))))
+
+ ;; Imenu
+ (make-local-variable 'imenu-create-index-function)
+ (setq imenu-create-index-function imenu-index)
+
+ ;; Tempo
+ (tempo-use-tag-list tempo-tags)
+ (make-local-variable 'tempo-match-finder)
+ (setq tempo-match-finder "\\b\\(.+\\)\\=")
+ (make-local-variable 'tempo-interactive)
+ (setq tempo-interactive t)
+
+ ;; Miscellaneous customization
+ (make-local-variable 'require-final-newline)
+ (setq require-final-newline t))
+
+
+;; SNMPv1 MIB Editing Mode.
+;;
+(defun snmp-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
+ (make-local-variable 'snmp-mode-syntax-list)
+ (setq snmp-mode-syntax-list (append snmp-rfc1155-types
+ snmp-rfc1213-types
+ snmp-mode-syntax-list))
+ (make-local-variable 'snmp-mode-access-list)
+ (setq snmp-mode-access-list snmp-rfc1155-access)
+ (make-local-variable 'snmp-mode-status-list)
+ (setq snmp-mode-status-list snmp-rfc1212-status)
+
+ ;; Run hooks
+ (run-hooks 'snmp-common-mode-hook)
+ (run-hooks 'snmp-mode-hook))
+
+
+(defun snmpv2-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
+ (make-local-variable 'snmp-mode-syntax-list)
+ (setq snmp-mode-syntax-list (append snmp-rfc1902-types
+ snmp-rfc1903-types
+ snmp-mode-syntax-list))
+ (make-local-variable 'snmp-mode-access-list)
+ (setq snmp-mode-access-list snmp-rfc1902-access)
+ (make-local-variable 'snmp-mode-status-list)
+ (setq snmp-mode-status-list snmp-rfc1902-status)
+
+ ;; Run hooks
+ (run-hooks 'snmp-common-mode-hook)
+ (run-hooks '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 end)
+ (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)))))
+
+(defun snmp-indent-command ()
+ "Indent current line as SNMP MIB code, or sometimes insert a TAB.
+If `snmp-tab-always-indent' is t, always reindent the current line when
+this command is run.
+If `snmp-tab-always-indent' is nil, reindent the current line if point is
+in the initial indentation. Otherwise, insert a TAB."
+ (interactive)
+ (if (and (not snmp-tab-always-indent)
+ (save-excursion
+ (skip-chars-backward " \t")
+ (not (bolp))))
+ (insert-tab)
+ (snmp-indent-line)))
+
+
+;;;----------------------------------------------------------------------------
+;;
+;; 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
+ prev-pos token marker end)
+ (goto-char (point-min))
+ (imenu-progress-message prev-pos 0)
+ ;; Search for a useful MIB item (that's not in a comment)
+ (save-match-data
+ (while (re-search-forward snmp-clause-regexp nil t)
+ (imenu-progress-message prev-pos)
+ (setq
+ end (match-end 0)
+ token (cons (buffer-substring (match-beginning 1) (match-end 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
+ (imenu-progress-message prev-pos 100)
+ (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
+;;
+;;;----------------------------------------------------------------------------
+
+(require 'tempo)
+
+;; 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."
+ (let ((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 "Texual 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
projects / emacs.git / commitdiff