annotate lisp/snmp-mode.el @ 23193:c12a3c0be4ee

(Fload): Handle case where openp finds a magic file but it has no `load' handler or that handler calls `load'. If FOUND != FILE, find FOUND's handler even if inhibited for FILE.
author Karl Heuer <kwzh@gnu.org>
date Sun, 06 Sep 1998 13:57:32 +0000
parents 44cb6e3cab44
children 077a147742fc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
23144
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 ;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1995,1998 Free Software Foundation, Inc.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5 ;; Author: Paul D. Smith <psmith@BayNetworks.com>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6 ;; Keywords: data
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; any later version.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25 ;; INTRODUCTION
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26 ;; ------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;; This package provides a major mode for editing SNMP MIBs. It
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28 ;; provides all the modern Emacs 19 bells and whistles: default
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 ;; fontification via font-lock, imenu search functions, etc.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 ;; SNMP mode also uses tempo, a textual boilerplate insertion package
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 ;; distributed with Emacs, to add in boilerplate SNMP MIB structures.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33 ;; See tempo.el for more details about tempo.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35 ;; If you want to change or add new tempo templates, use the tempo tag
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 ;; list `snmp-tempo-tags' (or `snmpv2-tempo-tags'): this list is
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;; automatically installed when snmp-mode (or snmpv2-mode) is entered.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 ;; The SNMPv2 mode in this version has been enhanced thanks to popular
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 ;; demand.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42 ;; I'm very interested in new tempo macros for both v1 and v2, and any
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 ;; other suggestions for enhancements (different syntax table items, new
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44 ;; keybindings, etc.)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
46 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
47 ;; USAGE
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 ;; -----
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49 ;; Mostly, use it as you would any other mode. There's a very
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 ;; simplistic auto-indent feature; hopefully it'll help more than get in
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
51 ;; your way. For the most part it tries to indent to the same level as
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52 ;; the previous line. It will try to recognize some very simple tokens
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53 ;; on the previous line that tell it to use extra indent or outdent.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55 ;; Templates
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56 ;; ---------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57 ;; To use the Tempo templates, type the Tempo tag (or a unique prefix)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58 ;; and use C-c C-i (C-c TAB) to complete it; if you don't have
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59 ;; tempo-interactive set to nil it will ask you to fill in values.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60 ;; Fields with predefined values (SYNTAX, STATUS, etc.) will do
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61 ;; completing-reads on a list of valid values; use the normal SPC or TAB
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62 ;; to complete.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
64 ;; Currently the following templates are available:
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
65 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
66 ;; objectType -- Defines an OBJECT-TYPE macro.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
68 ;; tableType -- Defines both a Table and Entry OBJECT-TYPE, and a
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69 ;; SEQUENCE for the ASN.1 Entry definition.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
70 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
71 ;; Once the template is done, you can use C-cC-f and C-cC-b to move back
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 ;; and forth between the Tempo sequence points to fill in the rest of
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73 ;; the information.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
74 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
75 ;; Font Lock
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 ;; ------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
77 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
78 ;; If you want font-lock in your MIB buffers, add this:
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
79 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
80 ;; (add-hook 'snmp-common-mode-hook 'turn-on-font-lock)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
81 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
82 ;; Enabling global-font-lock-mode is also sufficient.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
83 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
84
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
85 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
86 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
87 ;; Customize these:
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
88 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
89 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
90
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
91 (defgroup snmp nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
92 "Mode for editing SNMP MIB files."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
93 :group 'data
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
94 :version "20.3")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
95
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
96 (defcustom snmp-special-indent t
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
97 "*If non-nil, use a simple heuristic to try to guess the right indentation.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
98 If nil, then no special indentation is attempted."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
99 :type 'boolean
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
100 :group 'snmp)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
101
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
102 (defcustom snmp-indent-level 4
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
103 "*Indentation level for SNMP MIBs."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
104 :type 'integer
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
105 :group 'snmp)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
106
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
107 (defcustom snmp-tab-always-indent nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108 "*Non-nil means TAB should always reindent the current line.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
109 A value of nil means reindent if point is within the initial line indentation;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
110 otherwise insert a TAB."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
111 :type 'boolean
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
112 :group 'snmp)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
113
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
114 (defcustom snmp-completion-ignore-case t
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
115 "*Non-nil means that case differences are ignored during completion.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
116 A value of nil means that case is significant.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
117 This is used during Tempo template completion."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
118 :type 'boolean
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
119 :group 'snmp)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
120
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121 (defcustom snmp-common-mode-hook nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122 "*Hook(s) evaluated when a buffer enters either SNMP or SNMPv2 mode."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
123 :type 'hook
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
124 :group 'snmp)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
125
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126 (defcustom snmp-mode-hook nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
127 "*Hook(s) evaluated when a buffer enters SNMP mode."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
128 :type 'hook
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
129 :group 'snmp)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
130
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
131 (defcustom snmpv2-mode-hook nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
132 "*Hook(s) evaluated when a buffer enters SNMPv2 mode."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
133 :type 'hook
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
134 :group 'snmp)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
135
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
136 (defvar snmp-tempo-tags nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
137 "*Tempo tags for SNMP mode.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
138
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
139 (defvar snmpv2-tempo-tags nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
140 "*Tempo tags for SNMPv2 mode.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
141
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
142
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143 ;; Enable fontification for SNMP MIBs
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
146 ;; These are pretty basic fontifications. Note we assume these macros
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
147 ;; are first on a line (except whitespace), to speed up fontification.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
148 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
149 (defvar snmp-font-lock-keywords-1
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
150 (list
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
151 ;; OBJECT-TYPE, TRAP-TYPE, and OBJECT-IDENTIFIER macros
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
152 '("^[ \t]*\\([a-z][-a-zA-Z0-9]+\\)[ \t]+\\(\\(MODULE-\\(COMPLIANCE\\|IDENTITY\\)\\|OBJECT-\\(COMPLIANCE\\|GROUP\\|IDENTITY\\|TYPE\\)\\|TRAP-\\(GROUP\\|TYPE\\)\\)\\|\\(OBJECT\\)[ \t]+\\(IDENTIFIER\\)[ \t]*::=\\)"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153 (1 font-lock-variable-name-face) (3 font-lock-keyword-face nil t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
154 (7 font-lock-keyword-face nil t) (8 font-lock-keyword-face nil t))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
155
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156 ;; DEFINITIONS clause
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
157 '("^[ \t]*\\([A-Z][-a-zA-Z0-9]+\\)[ \t]+\\(DEFINITIONS\\)[ \t]*::="
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
158 (1 font-lock-function-name-face) (2 font-lock-keyword-face))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
159 )
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
160 "Basic SNMP MIB mode expression highlighting.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
161
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
162 (defvar snmp-font-lock-keywords-2
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163 (append
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
164 '(("ACCESS\\|BEGIN\\|DE\\(FVAL\\|SCRIPTION\\)\\|END\\|FROM\\|I\\(MPORTS\\|NDEX\\)\\|S\\(TATUS\\|YNTAX\\)"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
165 (0 font-lock-keyword-face)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
166 snmp-font-lock-keywords-1)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
167 "Medium SNMP MIB mode expression highlighting.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
168
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
169 (defvar snmp-font-lock-keywords-3
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
170 (append
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
171 '(("\\([^\n]+\\)[ \t]+::=[ \t]+\\(SEQUENCE\\)[ \t]+{"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
172 (1 font-lock-reference-face) (2 font-lock-keyword-face))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
173 ("::=[ \t]*{[ \t]*\\([a-z0-9].*[ \t]+\\)?\\([0-9]+\\)[ \t]*}"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
174 (1 font-lock-reference-face nil t) (2 font-lock-variable-name-face)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
175 snmp-font-lock-keywords-2)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
176 "Gaudy SNMP MIB mode expression highlighting.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
177
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
178 (defvar snmp-font-lock-keywords snmp-font-lock-keywords-1
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
179 "Default SNMP MIB mode expression highlighting.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
180
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
181
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
182 ;; These lists are used for the completion capabilities in the tempo
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
183 ;; templates.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
184 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
185
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
186 (defvar snmp-mode-syntax-list nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
187 "Predefined types for SYNTAX clauses.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
188
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
189 (defvar snmp-rfc1155-types
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
190 '(("INTEGER") ("OCTET STRING") ("OBJECT IDENTIFIER") ("NULL") ("IpAddress")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
191 ("NetworkAddress") ("Counter") ("Gauge") ("TimeTicks") ("Opaque"))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
192 "Types from RFC 1155 v1 SMI.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
193
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
194 (defvar snmp-rfc1213-types
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
195 '(("DisplayString"))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
196 "Types from RFC 1213 MIB-II.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
197
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
198 (defvar snmp-rfc1902-types
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
199 '(("INTEGER") ("OCTET STRING") ("OBJECT IDENTIFIER") ("Integer32")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
200 ("IpAddress") ("Counter32") ("Gauge32") ("Unsigned32") ("TimeTicks")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
201 ("Opaque") ("Counter64"))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
202 "Types from RFC 1902 v2 SMI.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
203
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
204 (defvar snmp-rfc1903-types
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
205 '(("DisplayString") ("PhysAddress") ("MacAddress") ("TruthValue")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
206 ("TestAndIncr") ("AutonomousType") ("InstancePointer")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
207 ("VariablePointer") ("RowPointer") ("RowStatus") ("TimeStamp")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
208 ("TimeInterval") ("DateAndTime") ("StorageType") ("TDomain")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
209 ("TAddress"))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
210 "Types from RFC 1903 Textual Conventions.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
211
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
212
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
213 (defvar snmp-mode-access-list nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
214 "Predefined values for ACCESS clauses.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
216 (defvar snmp-rfc1155-access
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
217 '(("read-only") ("read-write") ("write-only") ("not-accessible"))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
218 "ACCESS values from RFC 1155 v1 SMI.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
219
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
220 (defvar snmp-rfc1902-access
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
221 '(("read-only") ("read-write") ("read-create") ("not-accessible")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
222 ("accessible-for-notify"))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
223 "ACCESS values from RFC 1155 v1 SMI.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
224
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
225
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
226 (defvar snmp-mode-status-list nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
227 "Predefined values for STATUS clauses.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
228
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
229 (defvar snmp-rfc1212-status
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
230 '(("mandatory") ("obsolete") ("deprecated"))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
231 "STATUS values from RFC 1212 v1 SMI.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
232
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
233 (defvar snmp-rfc1902-status
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
234 '(("current") ("obsolete") ("deprecated"))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
235 "STATUS values from RFC 1902 v2 SMI.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
236
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
237
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
238 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
239 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
240 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
241 ;; Nothing to customize below here.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
242 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
243 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
244 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
245
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
246
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
247 ;; Need this stuff when compiling for imenu macros, etc.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
248 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
249 (eval-when-compile
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
250 (require 'cl)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
251 (require 'imenu))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
252
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
254 ;; Create abbrev table for SNMP MIB mode
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
255 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
256 (defvar snmp-mode-abbrev-table nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
257 "Abbrev table in use in SNMP mode.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
258 (define-abbrev-table 'snmp-mode-abbrev-table ())
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
259
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
260
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
261 ;; Create abbrev table for SNMPv2 mode
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
262 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
263 (defvar snmpv2-mode-abbrev-table nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
264 "Abbrev table in use in SNMPv2 mode.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
265 (define-abbrev-table 'snmpv2-mode-abbrev-table ())
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
266
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
267
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
268 ;; Set up our keymap
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
269 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
270 (defvar snmp-mode-map (make-sparse-keymap)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
271 "Keymap used in SNMP mode.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
272
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
273 (define-key snmp-mode-map "\t" 'snmp-indent-command)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
274 (define-key snmp-mode-map "\177" 'backward-delete-char-untabify)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
276 (define-key snmp-mode-map "\C-c\C-i" 'tempo-complete-tag)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
277 (define-key snmp-mode-map "\C-c\C-f" 'tempo-forward-mark)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
278 (define-key snmp-mode-map "\C-c\C-b" 'tempo-backward-mark)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
279
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
280
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
281 ;; Set up our syntax table
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
282 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
283 (defvar snmp-mode-syntax-table nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
284 "Syntax table used for buffers in SNMP mode.")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
285
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
286 (if snmp-mode-syntax-table
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
287 ()
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
288 (setq snmp-mode-syntax-table (make-syntax-table))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
289 (modify-syntax-entry ?\\ "\\" snmp-mode-syntax-table)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
290 (modify-syntax-entry ?- "_ 1234" snmp-mode-syntax-table)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
291 (modify-syntax-entry ?\n ">" snmp-mode-syntax-table)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
292 (modify-syntax-entry ?\^m ">" snmp-mode-syntax-table)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
293 (modify-syntax-entry ?_ "." snmp-mode-syntax-table)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
294 (modify-syntax-entry ?: "." snmp-mode-syntax-table)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
295 (modify-syntax-entry ?= "." snmp-mode-syntax-table))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
296
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
297 ;; Set up the stuff that's common between snmp-mode and snmpv2-mode
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
298 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
299 (defun snmp-common-mode (name mode abbrev font-keywords imenu-index tempo-tags)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
300 (kill-all-local-variables)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
301
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
302 ;; Become the current major mode
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
303 (setq mode-name name)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
304 (setq major-mode mode)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
305
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
306 ;; Activate keymap, syntax table, and abbrev table
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
307 (use-local-map snmp-mode-map)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
308 (set-syntax-table snmp-mode-syntax-table)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
309 (setq local-abbrev-table abbrev)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
310
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
311 ;; Set up paragraphs (?)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
312 (make-local-variable 'paragraph-start)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
313 (setq paragraph-start (concat "$\\|" page-delimiter))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
314 (make-local-variable 'paragraph-separate)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
315 (setq paragraph-separate paragraph-start)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
316 (make-local-variable 'paragraph-ignore-fill-prefix)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
317 (setq paragraph-ignore-fill-prefix t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
318
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
319 ;; Set up comments
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
320 (make-local-variable 'comment-start)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
321 (setq comment-start "-- ")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
322 (make-local-variable 'comment-start-skip)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
323 (setq comment-start-skip "--+[ \t]*")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
324 (make-local-variable 'comment-column)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
325 (setq comment-column 40)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
326 (make-local-variable 'parse-sexp-ignore-comments)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
327 (setq parse-sexp-ignore-comments t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
328
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
329 ;; Set up indentation
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
330 (make-local-variable 'indent-line-function)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
331 (setq indent-line-function (if snmp-special-indent
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
332 'snmp-indent-line
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
333 'indent-to-left-margin))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
334
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
335 ;; Font Lock
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
336 (make-local-variable 'font-lock-defaults)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
337 (setq font-lock-defaults (cons font-keywords '(nil nil ((?- . "w 1234")))))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
338
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
339 ;; Imenu
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
340 (make-local-variable 'imenu-create-index-function)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
341 (setq imenu-create-index-function imenu-index)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
342
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
343 ;; Tempo
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
344 (tempo-use-tag-list tempo-tags)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
345 (make-local-variable 'tempo-match-finder)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346 (setq tempo-match-finder "\\b\\(.+\\)\\=")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 (make-local-variable 'tempo-interactive)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 (setq tempo-interactive t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
350 ;; Miscellaneous customization
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
351 (make-local-variable 'require-final-newline)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
352 (setq require-final-newline t))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
353
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
354
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
355 ;; SNMPv1 MIB Editing Mode.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
357 (defun snmp-mode ()
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
358 "Major mode for editing SNMP MIBs.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359 Expression and list commands understand all C brackets.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
360 Tab indents for C code.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
361 Comments start with -- and end with newline or another --.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
362 Delete converts tabs to spaces as it moves back.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
363 \\{snmp-mode-map}
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
364 Turning on snmp-mode runs the hooks in `snmp-common-mode-hook', then
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
365 `snmp-mode-hook'."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
366 (interactive)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
367
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
368 (snmp-common-mode "SNMP" 'snmp-mode
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
369 snmp-mode-abbrev-table
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
370 '(snmp-font-lock-keywords
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
371 snmp-font-lock-keywords-1
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
372 snmp-font-lock-keywords-2
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
373 snmp-font-lock-keywords-3)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
374 'snmp-mode-imenu-create-index
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
375 'snmp-tempo-tags)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
376
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
377 ;; Completion lists
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
378 (make-local-variable 'snmp-mode-syntax-list)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
379 (setq snmp-mode-syntax-list (append snmp-rfc1155-types
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
380 snmp-rfc1213-types
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
381 snmp-mode-syntax-list))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
382 (make-local-variable 'snmp-mode-access-list)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
383 (setq snmp-mode-access-list snmp-rfc1155-access)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
384 (make-local-variable 'snmp-mode-status-list)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
385 (setq snmp-mode-status-list snmp-rfc1212-status)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
386
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
387 ;; Run hooks
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
388 (run-hooks 'snmp-common-mode-hook)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
389 (run-hooks 'snmp-mode-hook))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
390
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
391
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
392 (defun snmpv2-mode ()
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
393 "Major mode for editing SNMPv2 MIBs.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
394 Expression and list commands understand all C brackets.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
395 Tab indents for C code.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
396 Comments start with -- and end with newline or another --.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
397 Delete converts tabs to spaces as it moves back.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
398 \\{snmp-mode-map}
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
399 Turning on snmp-mode runs the hooks in `snmp-common-mode-hook',
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
400 then `snmpv2-mode-hook'."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
401 (interactive)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
402
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
403 (snmp-common-mode "SNMPv2" 'snmpv2-mode
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
404 snmpv2-mode-abbrev-table
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
405 '(snmp-font-lock-keywords
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
406 snmp-font-lock-keywords-1
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
407 snmp-font-lock-keywords-2
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
408 snmp-font-lock-keywords-3)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
409 'snmp-mode-imenu-create-index
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
410 'snmpv2-tempo-tags)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
411
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
412 ;; Completion lists
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
413 (make-local-variable 'snmp-mode-syntax-list)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
414 (setq snmp-mode-syntax-list (append snmp-rfc1902-types
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
415 snmp-rfc1903-types
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
416 snmp-mode-syntax-list))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
417 (make-local-variable 'snmp-mode-access-list)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
418 (setq snmp-mode-access-list snmp-rfc1902-access)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
419 (make-local-variable 'snmp-mode-status-list)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
420 (setq snmp-mode-status-list snmp-rfc1902-status)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
421
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
422 ;; Run hooks
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
423 (run-hooks 'snmp-common-mode-hook)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
424 (run-hooks 'snmpv2-mode-hook))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
425
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
426
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
427 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
428 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
429 ;; Indentation Setup
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
430 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
431 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
432
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
433 (defvar snmp-macro-open
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
434 "[a-zA-Z][-a-zA-Z0-9]*[ \t]*\\(OBJECT\\|TRAP\\)-\\(TYPE\\|GROUP\\)\
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
435 \\|DESCRIPTION\\|IMPORTS\\|MODULE\\(-IDENTITY\\|-COMPLIANCE\\)\
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
436 \\|.*::=[ \t]*\\(BEGIN\\|TEXTUAL-CONVENTION\\)[ \t]*$")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
437
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
438 (defvar snmp-macro-close
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
439 "::=[ \t]*{\\|\\(END\\|.*[;\"]\\)[ \t]*$")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
440
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
441 (defun snmp-calculate-indent ()
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
442 "Calculate the current line indentation in SNMP MIB code.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
443
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
444 We use a very simple scheme: if the previous non-empty line was a \"macro
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
445 open\" string, add `snmp-indent-level' to it. If it was a \"macro close\"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
446 string, subtract `snmp-indent-level'. Otherwise, use the same indentation
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
447 as the previous non-empty line. Note comments are considered empty
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
448 lines for the purposes of this function."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
449 (let ((empty (concat "\\([ \t]*\\)\\(" comment-start-skip "\\|$\\)"))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
450 (case-fold-search nil)) ; keywords must be in uppercase
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
451 (save-excursion
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
452 (while (and (>= (forward-line -1) 0)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
453 (looking-at empty)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
454 (skip-chars-forward " \t")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
455 (+ (current-column)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
456 ;; Are we looking at a macro open string? If so, add more.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
457 (cond ((looking-at snmp-macro-open)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
458 snmp-indent-level)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
459 ;; macro close string? If so, remove some.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
460 ((looking-at snmp-macro-close)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
461 (- snmp-indent-level))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
462 ;; Neither; just stay here.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
463 (t 0))))))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
464
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
465 (defun snmp-indent-line ()
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
466 "Indent current line as SNMP MIB code."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
467 (let ((indent (snmp-calculate-indent))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
468 (pos (- (point-max) (point)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
469 shift-amt beg end)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
470 (beginning-of-line)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
471 (setq beg (point))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
472 (skip-chars-forward " \t")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
473 (setq shift-amt (- indent (current-column)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
474 (if (zerop shift-amt)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
475 nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
476 (delete-region beg (point))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
477 (indent-to indent))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
478 ;; If initial point was within line's indentation,
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
479 ;; position after the indentation. Else stay at same point in text.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
480 (if (> (- (point-max) pos) (point))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
481 (goto-char (- (point-max) pos)))))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
482
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
483 (defun snmp-indent-command ()
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
484 "Indent current line as SNMP MIB code, or sometimes insert a TAB.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
485 If `snmp-tab-always-indent' is t, always reindent the current line when
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
486 this command is run.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
487 If `snmp-tab-always-indent' is nil, reindent the current line if point is
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
488 in the initial indentation. Otherwise, insert a TAB."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
489 (interactive)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
490 (if (and (not snmp-tab-always-indent)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
491 (save-excursion
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
492 (skip-chars-backward " \t")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
493 (not (bolp))))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
494 (insert-tab)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
495 (snmp-indent-line)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
496
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
497
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
498 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
499 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
500 ;; Imenu Setup
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
501 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
502 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
503
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
504 (defvar snmp-clause-regexp
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
505 "^[ \t]*\\([a-zA-Z][-a-zA-Z0-9]*\\)[ \t\n]*\
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
506 \\(TRAP-TYPE\\|::=\\|OBJECT\\(-TYPE[ \t\n]+SYNTAX\\|[ \t\n]+IDENTIFIER[ \t\n]*::=\\)\\)")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
507
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
508 (defun snmp-mode-imenu-create-index ()
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
509 (let ((index-alist '())
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
510 (index-oid-alist '())
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
511 (index-tc-alist '())
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
512 (index-table-alist '())
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
513 (index-trap-alist '())
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
514 (case-fold-search nil) ; keywords must be uppercase
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
515 prev-pos token marker end)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
516 (goto-char (point-min))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
517 (imenu-progress-message prev-pos 0)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
518 ;; Search for a useful MIB item (that's not in a comment)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
519 (save-match-data
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
520 (while (re-search-forward snmp-clause-regexp nil t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
521 (imenu-progress-message prev-pos)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
522 (setq
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
523 end (match-end 0)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
524 token (cons (buffer-substring (match-beginning 1) (match-end 1))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
525 (set-marker (make-marker) (match-beginning 1))))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
526 (goto-char (match-beginning 2))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
527 (cond ((looking-at "OBJECT-TYPE[ \t\n]+SYNTAX")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
528 (push token index-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
529 ((looking-at "OBJECT[ \t\n]+IDENTIFIER[ \t\n]*::=")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
530 (push token index-oid-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
531 ((looking-at "::=[ \t\n]*SEQUENCE[ \t\n]*{")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
532 (push token index-table-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
533 ((looking-at "TRAP-TYPE")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
534 (push token index-trap-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
535 ((looking-at "::=")
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
536 (push token index-tc-alist)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
537 (goto-char end)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
538 ;; Create the menu
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
539 (imenu-progress-message prev-pos 100)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
540 (setq index-alist (nreverse index-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
541 (and index-tc-alist
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
542 (push (cons "Textual Conventions" (nreverse index-tc-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
543 index-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
544 (and index-trap-alist
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
545 (push (cons "Traps" (nreverse index-trap-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
546 index-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
547 (and index-table-alist
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
548 (push (cons "Tables" (nreverse index-table-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
549 index-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
550 (and index-oid-alist
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
551 (push (cons "Object IDs" (nreverse index-oid-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
552 index-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
553 index-alist))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
554
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
555
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
556 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
557 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
558 ;; Tempo Setup
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
559 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
560 ;;;----------------------------------------------------------------------------
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
561
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
562 (require 'tempo)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
563
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
564 ;; Perform a completing-read with info given
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
565 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
566 (defun snmp-completing-read (prompt table &optional pred require init hist)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
567 "Read from the minibuffer, with completion.
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
568 Like `completing-read', but the variable `snmp-completion-ignore-case'
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
569 controls whether case is significant."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
570 (let ((completion-ignore-case snmp-completion-ignore-case))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
571 (completing-read prompt table pred require init hist)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
572
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
573 ;; OBJECT-TYPE macro template
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
574 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
575 (tempo-define-template "snmp-object-type"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
576 '(> (P "Object Label: ") " OBJECT-TYPE" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
577 "SYNTAX "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
578 (if tempo-interactive
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
579 (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
580 p) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
581 "ACCESS "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
582 (if tempo-interactive
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
583 (snmp-completing-read "Access: " snmp-mode-access-list nil t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
584 p) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
585 "STATUS "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
586 (if tempo-interactive
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
587 (snmp-completing-read "Status: " snmp-mode-status-list nil t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
588 p) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
589 "DESCRIPTION" n> "\"" p "\"" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
590 (P "Default Value: " defval t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
591 (if (string= "" (tempo-lookup-named 'defval))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
592 nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
593 '(l "DEFVAL { " (s defval) " }" n>))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
594 "::= { " (p "OID: ") " }" n)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
595 "objectType"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
596 "Insert an OBJECT-TYPE macro."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
597 'snmp-tempo-tags)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
598
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
599 ;; Table macro template
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
600 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
601 (tempo-define-template "snmp-table-type"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
602 ;; First the table OBJECT-TYPE
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
603 '(> (P "Table Name: " table)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
604 (P "Entry Name: " entry t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
605 (let* ((entry (tempo-lookup-named 'entry))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
606 (seq (copy-sequence entry)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
607 (aset entry 0 (downcase (aref entry 0)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
608 (aset seq 0 (upcase (aref seq 0)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
609 (tempo-save-named 'obj-entry entry)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
610 (tempo-save-named 'seq-entry seq)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
611 nil)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
612 " OBJECT-TYPE" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
613 "SYNTAX SEQUENCE OF "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
614 (s seq-entry) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
615 "ACCESS not-accessible" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
616 "STATUS mandatory" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
617 "DESCRIPTION" n> "\"" p "\"" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
618 "::= { " (p "OID: ") " }" n n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
619 ;; Next the row OBJECT-TYPE
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
620 (s obj-entry) " OBJECT-TYPE" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
621 "SYNTAX " (s seq-entry) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
622 "ACCESS not-accessible" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
623 "STATUS mandatory" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
624 "DESCRIPTION" n> "\"" p "\"" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
625 "INDEX { " (p "Index List: ") " }" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
626 "::= {" (s table) " 1 }" n n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
627 ;; Finally the SEQUENCE type
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
628 (s seq-entry) " ::= SEQUENCE {" n> p n> "}" n)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
629 "tableType"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
630 "Insert an SNMP table."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
631 'snmp-tempo-tags)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
632
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
633
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
634 ;; v2 SMI OBJECT-TYPE macro template
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
635 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
636 (tempo-define-template "snmpv2-object-type"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
637 '(> (P "Object Label: ") " OBJECT-TYPE" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
638 "SYNTAX "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
639 (if tempo-interactive
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
640 (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
641 p) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
642 "MAX-ACCESS "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
643 (if tempo-interactive
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
644 (snmp-completing-read "Max Access: " snmp-mode-access-list nil t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
645 p) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
646 "STATUS "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
647 (if tempo-interactive
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
648 (snmp-completing-read "Status: " snmp-mode-status-list nil t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
649 p) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
650 "DESCRIPTION" n> "\"" p "\"" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
651 (P "Default Value: " defval t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
652 (if (string= "" (tempo-lookup-named 'defval))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
653 nil
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
654 '(l "DEFVAL { " (s defval) " }" n>))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
655 "::= { " (p "OID: ") " }" n)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
656 "objectType"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
657 "Insert an v2 SMI OBJECT-TYPE macro."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
658 'snmpv2-tempo-tags)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
659
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
660 ;; v2 SMI Table macro template
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
661 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
662 (tempo-define-template "snmpv2-table-type"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
663 ;; First the table OBJECT-TYPE
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
664 '(> (P "Table Name: " table)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
665 (P "Entry Name: " entry t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
666 (let* ((entry (tempo-lookup-named 'entry))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
667 (seq (copy-sequence entry)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
668 (aset entry 0 (downcase (aref entry 0)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
669 (aset seq 0 (upcase (aref seq 0)))
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
670 (tempo-save-named 'obj-entry entry)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
671 (tempo-save-named 'seq-entry seq)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
672 nil)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
673 " OBJECT-TYPE" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
674 "SYNTAX SEQUENCE OF "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
675 (s seq-entry) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
676 "MAX-ACCESS not-accessible" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
677 "STATUS current" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
678 "DESCRIPTION" n> "\"" p "\"" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
679 "::= { " (p "OID: ") " }" n n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
680 ;; Next the row OBJECT-TYPE
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
681 (s obj-entry) " OBJECT-TYPE" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
682 "SYNTAX " (s seq-entry) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
683 "MAX-ACCESS not-accessible" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
684 "STATUS current" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
685 "DESCRIPTION" n> "\"" p "\"" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
686 "INDEX { " (p "Index List: ") " }" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
687 "::= { " (s table) " 1 }" n n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
688 ;; Finally the SEQUENCE type
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
689 (s seq-entry) " ::= SEQUENCE {" n> p n> "}" n)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
690 "tableType"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
691 "Insert an v2 SMI SNMP table."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
692 'snmpv2-tempo-tags)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
693
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
694 ;; v2 SMI TEXTUAL-CONVENTION macro template
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
695 ;;
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
696 (tempo-define-template "snmpv2-textual-convention"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
697 '(> (P "Texual Convention Type: ") " ::= TEXTUAL-CONVENTION" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
698 "STATUS "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
699 (if tempo-interactive
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
700 (snmp-completing-read "Status: " snmp-mode-status-list nil t)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
701 p) n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
702 "DESCRIPTION" n> "\"" p "\"" n>
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
703 "SYNTAX "
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
704 (if tempo-interactive
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
705 (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
706 p) n> )
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
707 "textualConvention"
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
708 "Insert an v2 SMI TEXTUAL-CONVENTION macro."
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
709 'snmpv2-tempo-tags)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
710
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
711
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
712 (provide 'snmp-mode)
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
713
44cb6e3cab44 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
714 ;; snmp-mode.el ends here