;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\210\312\326\314\315\327DD\330\320\321%\210\312\331\314\315\332DD\333\320\321%\210\312\334\314\315\335DD\336\320\337%\210\312\340\314\315\341DD\342\320\337%\210\312\343\314\315\344DD\345\320\337%\207" [require tempo custom-declare-group snmp nil "Mode for editing SNMP MIB files." :group data :version "20.4" custom-declare-variable snmp-special-indent funcall function #[0 "\300\207" [t] 1 #1=""] "If non-nil, use a simple heuristic to try to guess the right indentation.\nIf nil, then no special indentation is attempted." :type boolean snmp-indent-level #[0 "\300\207" [4] 1 #1#] "Indentation level for SNMP MIBs." integer snmp-tab-always-indent #[0 "\300\207" [nil] 1 #1#] "Non-nil means TAB should always reindent the current line.\nA value of nil means reindent if point is within the initial line indentation;\notherwise insert a TAB." snmp-completion-ignore-case #[0 "\300\207" [t] 1 #1#] "Non-nil means that case differences are ignored during completion.\nA value of nil means that case is significant.\nThis is used during Tempo template completion." snmp-common-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook(s) evaluated when a buffer enters either SNMP or SNMPv2 mode." hook snmp-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook(s) evaluated when a buffer enters SNMP mode." snmpv2-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook(s) evaluated when a buffer enters SNMPv2 mode."] 8)#@27 Tempo tags for SNMP mode. (defvar snmp-tempo-tags nil (#$ . 1604))#@29 Tempo tags for SNMPv2 mode. (defvar snmpv2-tempo-tags nil (#$ . 1676))#@46 Basic SNMP MIB mode expression highlighting. (defvar snmp-font-lock-keywords-1 (list '("^[ ]*\\([a-z][-a-zA-Z0-9]+\\)[ ]+\\(\\(MODULE-\\(COMPLIANCE\\|IDENTITY\\)\\|OBJECT-\\(COMPLIANCE\\|GROUP\\|IDENTITY\\|TYPE\\)\\|TRAP-\\(GROUP\\|TYPE\\)\\)\\|\\(OBJECT\\)[ ]+\\(IDENTIFIER\\)[ ]*::=\\)" (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)) '("^[ ]*\\([A-Z][-a-zA-Z0-9]+\\)[ ]+\\(DEFINITIONS\\)[ ]*::=" (1 font-lock-function-name-face) (2 font-lock-keyword-face))) (#$ . 1752))#@47 Medium SNMP MIB mode expression highlighting. (defvar snmp-font-lock-keywords-2 (cons '("ACCESS\\|BEGIN\\|DE\\(FVAL\\|SCRIPTION\\)\\|END\\|FROM\\|I\\(MPORTS\\|NDEX\\)\\|S\\(TATUS\\|YNTAX\\)" (0 font-lock-keyword-face)) snmp-font-lock-keywords-1) (#$ . 2323))#@46 Gaudy SNMP MIB mode expression highlighting. (defvar snmp-font-lock-keywords-3 (append '(("\\([^\n]+\\)[ ]+::=[ ]+\\(SEQUENCE\\)[ ]+{" (1 font-lock-constant-face) (2 font-lock-keyword-face)) ("::=[ ]*{[ ]*\\([a-z0-9].*[ ]+\\)?\\([0-9]+\\)[ ]*}" (1 font-lock-constant-face nil t) (2 font-lock-variable-name-face))) snmp-font-lock-keywords-2) (#$ . 2587))#@48 Default SNMP MIB mode expression highlighting. (defvar snmp-font-lock-keywords snmp-font-lock-keywords-1 (#$ . 2953))#@38 Predefined types for SYNTAX clauses. (defvar snmp-mode-syntax-list nil (#$ . 3076))#@29 Types from RFC 1155 v1 SMI. (defvar snmp-rfc1155-types '("INTEGER" "OCTET STRING" "OBJECT IDENTIFIER" "NULL" "IpAddress" "NetworkAddress" "Counter" "Gauge" "TimeTicks" "Opaque") (#$ . 3165))#@29 Types from RFC 1213 MIB-II. (defvar snmp-rfc1213-types '("DisplayString") (#$ . 3361))#@29 Types from RFC 1902 v2 SMI. (defvar snmp-rfc1902-types '("INTEGER" "OCTET STRING" "OBJECT IDENTIFIER" "Integer32" "IpAddress" "Counter32" "Gauge32" "Unsigned32" "TimeTicks" "Opaque" "Counter64") (#$ . 3453))#@42 Types from RFC 1903 Textual Conventions. (defvar snmp-rfc1903-types '("DisplayString" "PhysAddress" "MacAddress" "TruthValue" "TestAndIncr" "AutonomousType" "InstancePointer" "VariablePointer" "RowPointer" "RowStatus" "TimeStamp" "TimeInterval" "DateAndTime" "StorageType" "TDomain" "TAddress") (#$ . 3666))#@39 Predefined values for ACCESS clauses. (defvar snmp-mode-access-list nil (#$ . 3979))#@37 ACCESS values from RFC 1155 v1 SMI. (defvar snmp-rfc1155-access '("read-only" "read-write" "write-only" "not-accessible") (#$ . 4069))#@37 ACCESS values from RFC 1155 v1 SMI. (defvar snmp-rfc1902-access '("read-only" "read-write" "read-create" "not-accessible" "accessible-for-notify") (#$ . 4209))#@39 Predefined values for STATUS clauses. (defvar snmp-mode-status-list nil (#$ . 4374))#@37 STATUS values from RFC 1212 v1 SMI. (defvar snmp-rfc1212-status '("mandatory" "obsolete" "deprecated") (#$ . 4464))#@37 STATUS values from RFC 1902 v2 SMI. (defvar snmp-rfc1902-status '("current" "obsolete" "deprecated") (#$ . 4585))#@35 Abbrev table in use in SNMP mode. (defvar snmp-mode-abbrev-table nil (#$ . 4704)) (define-abbrev-table 'snmp-mode-abbrev-table nil)#@37 Abbrev table in use in SNMPv2 mode. (defvar snmpv2-mode-abbrev-table nil (#$ . 4841)) (define-abbrev-table 'snmpv2-mode-abbrev-table nil)#@27 Keymap used in SNMP mode. (defvar snmp-mode-map (define-keymap "DEL" 'backward-delete-char-untabify "C-c TAB" 'tempo-complete-tag "C-c C-f" 'tempo-forward-mark "C-c C-b" 'tempo-backward-mark) (#$ . 4984))#@45 Syntax table used for buffers in SNMP mode. (defvar snmp-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\307#\210\301\311\312#\210\301\313\312#\210\301\314\312#\210\207" [make-syntax-table modify-syntax-entry 92 "\\" 45 "_ 1234" 10 ">" 13 95 "." 58 61] 5) (#$ . 5194))#@67 (fn NAME MODE ABBREV FONT-KEYWORDS IMENU-INDEX MODE-TEMPO-TAGS) (defalias 'snmp-common-mode #[1542 "\306 \210\307\n!\210\310 !\210\311\312!\210\313 P\n\311\314!\210\n\f\311\315!\210\316 \311\317!\210\320\311\321!\210\322\311\323!\210\324\311\325!\210\316!\203Q\311\326!\210\327\311\330!\210\"\311\331!\210\332B\311\333!\210\334!\210\311\335!\210\336\311\337!\210\316\311\340!\210#\211 \207" [mode-name major-mode snmp-mode-map snmp-mode-syntax-table local-abbrev-table page-delimiter kill-all-local-variables use-local-map set-syntax-table make-local-variable paragraph-start "$\\|" paragraph-separate paragraph-ignore-fill-prefix t comment-start "-- " comment-start-skip "--+[ ]*" comment-column 40 parse-sexp-ignore-comments indent-line-function snmp-indent-line tab-always-indent font-lock-defaults (nil nil ((45 . "w 1234"))) imenu-create-index-function tempo-use-tag-list tempo-match-finder "\\b\\(.+\\)\\=" tempo-interactive require-final-newline snmp-special-indent snmp-tab-always-indent mode-require-final-newline] 8 (#$ . 5522)])#@329 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'. (defalias 'snmp-mode #[0 "\306\307\310\311\312\313&\210\314\303!\210\315 \n #\314\305!\210\f\314\316!\210\317\320\321\"\207" [snmp-mode-abbrev-table snmp-rfc1155-types snmp-rfc1213-types snmp-mode-syntax-list snmp-rfc1155-access snmp-mode-access-list snmp-common-mode "SNMP" snmp-mode (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 make-local-variable append snmp-mode-status-list run-mode-hooks snmp-common-mode-hook snmp-mode-hook snmp-rfc1212-status] 7 (#$ . 6609) nil])#@333 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'. (defalias 'snmpv2-mode #[0 "\306\307\310\311\312\313&\210\314\303!\210\315 \n #\314\305!\210\f\314\316!\210\317\320\321\"\207" [snmpv2-mode-abbrev-table snmp-rfc1902-types snmp-rfc1903-types snmp-mode-syntax-list snmp-rfc1902-access snmp-mode-access-list snmp-common-mode "SNMPv2" snmpv2-mode (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 make-local-variable append snmp-mode-status-list run-mode-hooks snmp-common-mode-hook snmpv2-mode-hook snmp-rfc1902-status] 7 (#$ . 7527) nil]) (defvar snmp-macro-open "[a-zA-Z][-a-zA-Z0-9]*[ ]*\\(OBJECT\\|TRAP\\)-\\(TYPE\\|GROUP\\)\\|DESCRIPTION\\|IMPORTS\\|MODULE\\(-IDENTITY\\|-COMPLIANCE\\)\\|.*::=[ ]*\\(BEGIN\\|TEXTUAL-CONVENTION\\)[ ]*$") (defvar snmp-macro-close "::=[ ]*{\\|\\(END\\|.*[;\"]\\)[ ]*$")#@388 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. (defalias 'snmp-calculate-indent #[0 "\305\306Q\307\212\310y\311Y\203\312!\204\313\307w\210i\312\n!\203# \202/\312\f!\203. [\202/\311\\*\207" [comment-start-skip case-fold-search snmp-macro-open snmp-indent-level snmp-macro-close "\\([ ]*\\)\\(" "\\|$\\)" nil -1 0 looking-at " "] 4 (#$ . 8732)])#@39 Indent current line as SNMP MIB code. (defalias 'snmp-indent-line #[0 "\300 d`Z\301\211\302 \210`\262\303\301w\210iZ\262\304U\204#\211`|\210j\210dZ`V\205/dZb\207" [snmp-calculate-indent nil beginning-of-line " " 0] 6 (#$ . 9434)]) (defvar snmp-clause-regexp "^[ ]*\\([a-zA-Z][-a-zA-Z0-9]*\\)[ \n]*\\(TRAP-TYPE\\|::=\\|OBJECT\\(-TYPE[ \n]+SYNTAX\\|[ \n]+IDENTIFIER[ \n]*::=\\)\\)") (defalias 'snmp-mode-imenu-create-index #[0 "\302\211\211\211\211\211\211\211eb\210\303 \304\305\"\216\306 \302\307#\203}\310\225\262\311\312!\313 \312\224\302\223B\262\314\224b\210\315\316!\203? B\262 \202w\315\317!\203NB\262\202w\315\320!\203]B\262\202w\315\321!\203kB\262\202w\315\322!\203wB\262b\210\202)\210\237\262\203\222\323\237BB\262\203\237\324\237BB\262\203\254\325\237BB\262\203\273\326\237BB\262)\207" [case-fold-search snmp-clause-regexp nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward t 0 match-string 1 make-marker 2 looking-at "OBJECT-TYPE[ \n]+SYNTAX" "OBJECT[ \n]+IDENTIFIER[ \n]*::=" "::=[ \n]*SEQUENCE[ \n]*{" "TRAP-TYPE" "::=" "Textual Conventions" "Traps" "Tables" "Object IDs"] 13])#@205 Read from the minibuffer, with completion. Like `completing-read', but the variable `snmp-completion-ignore-case' controls whether case is significant. (fn PROMPT TABLE &optional PRED REQUIRE INIT HIST) (defalias 'snmp-completing-read #[1538 "\302&)\207" [snmp-completion-ignore-case completion-ignore-case completing-read] 13 (#$ . 10663)]) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\311\305%\210\300\312\313\303\314\315%\210\300\316\317\310\320\315%\210\300\321\322\323\324\315%\210\325\326!\207" [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= #1="" (tempo-lookup-named 'defval)) nil '(l "DEFVAL { " (s defval) " }" n>)) "::= { " (p "OID: ") " }" n) "objectType" "Insert an OBJECT-TYPE macro." snmp-tempo-tags "snmp-table-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> (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> (s seq-entry) " ::= SEQUENCE {" n> p n> "}" n) "tableType" "Insert an SNMP table." "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= #1# (tempo-lookup-named 'defval)) nil '(l "DEFVAL { " (s defval) " }" n>)) "::= { " (p "OID: ") " }" n) "Insert an v2 SMI OBJECT-TYPE macro." snmpv2-tempo-tags "snmpv2-table-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> (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> (s seq-entry) " ::= SEQUENCE {" n> p n> "}" n) "Insert an v2 SMI SNMP table." "snmpv2-textual-convention" (> (P "Textual Convention Type: ") " ::= TEXTUAL-CONVENTION" n> "STATUS " (if tempo-interactive (snmp-completing-read "Status: " snmp-mode-status-list nil t) p) n> "DESCRIPTION" n> "\"" p "\"" n> "SYNTAX " (if tempo-interactive (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil) p) n>) "textualConvention" "Insert an v2 SMI TEXTUAL-CONVENTION macro." provide snmp-mode] 6)