constants.lisp

;;;; -*- Mode: Lisp -*-
;;;; $Id$

(in-package :snmp)

;; octets type is commonly used by many files, define it here.
(deftype octets () `(simple-array (unsigned-byte 8) (*)))

;; Adopted from Net-SNMP Project
(defconstant +max-snmp-packet-size+ 65507)

(defconstant +usm-auth-ku-len+ 32)
(defconstant +usm-priv-ku-len+ 32)

;; (defconstant +snmp-sec-model-any+ 0)
;; (defconstant +snmp-sec-model-snmpv1+ 1)
;; (defconstant +snmp-sec-model-snmpv2c+ 2)
(defconstant +snmp-sec-model-usm+ 3)

;; (defconstant +snmp-sec-level-noauth+     1)
;; (defconstant +snmp-sec-level-authnopriv+ 2)
;; (defconstant +snmp-sec-level-authpriv+   3)

;;; Following constants are come from SYSMAN/Lisp-SNMP project

(defconstant +error-status-no-error+		  0)
(defconstant +error-status-too-big+		  1)
(defconstant +error-status-no-such-name+	  2) ;for proxy compatibility
(defconstant +error-status-bad-value+		  3) ;for proxy compatibility
(defconstant +error-status-read-only+		  4) ;for proxy compatibility
(defconstant +error-status-generic-error+	  5)
(defconstant +error-status-no-access+		  6)
(defconstant +error-status-wrong-type+		  7)
(defconstant +error-status-wrong-length+	  8)
(defconstant +error-status-wrong-encoding+	  9)
(defconstant +error-status-wrong-value+		 10)
(defconstant +error-status-no-creation+		 11)
(defconstant +error-status-inconsistent-value+	 12)
(defconstant +error-status-resource-unavailable+ 13)
(defconstant +error-status-commit-failed+	 14)
(defconstant +error-status-undo-failed+		 15)
(defconstant +error-status-authorization-error+	 16)
(defconstant +error-status-not-writable+	 17)
(defconstant +error-status-inconsistent-name+	 18)

(defconstant +smi-no-such-object+   0)
(defconstant +smi-no-such-instance+ 1)
(defconstant +smi-end-of-mibview+   2)

(defvar *smi-map*
  `((,+smi-no-such-object+   . :no-such-object)   ; no value in a normal node
    (,+smi-no-such-instance+ . :no-such-instance) ; no value in a table
    (,+smi-end-of-mibview+   . :end-of-mibview))) ; end of mib view

;;; SNMP PDU Type
(defconstant +get-request-pdu+      0)
(defconstant +get-next-request-pdu+ 1)
(defconstant +response-pdu+         2)
(defconstant +set-request-pdu+      3)
(defconstant +trap-pdu+             4)
(defconstant +bulk-pdu+             5)
(defconstant +inform-request-pdu+   6)
(defconstant +snmpv2-trap-pdu+      7)
(defconstant +report-pdu+           8)