Author: ctian Date: Wed May 23 16:08:52 2007 New Revision: 16

Added: trunk/lw-dff.lisp trunk/net-snmp-dff.lisp trunk/net-snmp.h Modified: trunk/asn1.lisp trunk/classes.lisp trunk/net-snmp.asd trunk/package.lisp Log: 64bit LispWorks support added

Modified: trunk/asn1.lisp ============================================================================== --- trunk/asn1.lisp (original) +++ trunk/asn1.lisp Wed May 23 16:08:52 2007 @@ -1,12 +1,13 @@ (in-package :org.net-snmp)

-(eval-when (:compile-toplevel :load-toplevel :execute) +(eval-when (:compile-toplevel :load-toplevel) (defclass oid () ((name :type string :reader oid-name :initarg :name) (length :type integer :reader oid-length) c-oids c-oid-len))

+ #-lispworks (defmethod shared-initialize :after ((instance oid) slot-names &rest initargs) (declare (ignore slot-names initargs)) (with-slots (name length c-oids c-oid-len) instance @@ -19,18 +20,13 @@ (c-get-node name c-oids c-oid-len)) (setf length (mem-ref c-oid-len 'c-size-type)))))

- (defmacro snmp-var->value (var) - (let ((v (gensym))) - `(let ((,v ,var)) - (case (foreign-slot-value ,v 'c-variable-list 'c-type) - ;; ASN_OCTET_STR - (,+asn-octet-str+ - (foreign-string-to-lisp - (foreign-slot-value ,v 'c-variable-list 'c-val) - (foreign-slot-value ,v 'c-variable-list 'c-val-len))) - ;; ASN_COUNTER - (,+asn-counter+ - (mem-ref (foreign-slot-value ,v 'c-variable-list 'c-val) - :uint32)) - (otherwise :others)))))) + #+lispworks + (defmethod shared-initialize :after ((instance oid) slot-names &rest initargs) + (declare (ignore slot-names initargs)) + (with-slots (name length c-oids c-oid-len) instance + (progn + (setf c-oids (fli:allocate-foreign-object :type 'oid :nelems +max-oid-len+) + c-oid-len (fli:allocate-foreign-object :type 'size-t)) + (read-objid name c-oids c-oid-len) + (setf length (fli:dereference c-oid-len))))))

Modified: trunk/classes.lisp ============================================================================== --- trunk/classes.lisp (original) +++ trunk/classes.lisp Wed May 23 16:08:52 2007 @@ -27,7 +27,8 @@ :initform "public") (security-name :reader snmp-security-name :initarg :security-name - :type string) + :type string + :initform "binghe") (security-level :reader snmp-security-level :initarg :security-level :type string @@ -38,9 +39,10 @@ :initform :hmac-md5) (passphrase :initarg :passphrase :type string - :initform "binghe") + :initform "01234567") c-session))

+#-lispworks (defmethod shared-initialize :after ((instance snmp-session) slot-names &rest initargs) (declare (ignore slot-names initargs)) (with-slots (peername version c-session) instance @@ -99,6 +101,49 @@ (error "Error generating Ku from authentication pass phrase."))))))) (t (error "unknown snmp version!"))))))

+#+lispworks +(defmethod shared-initialize :after ((instance snmp-session) slot-names &rest initargs) + (declare (ignore slot-names initargs)) + (with-slots (peername version c-session) instance + (progn + (setf c-session (fli:allocate-foreign-object :type 'netsnmp-session)) + (snmp-sess-init c-session) + (setf (fli:foreign-slot-value c-session 'peername) (fli:convert-to-foreign-string peername) + (fli:foreign-slot-value c-session 'version) version) + (cond ((or (= version +snmp-version-1+) + (= version +snmp-version-2c+)) + (with-slots (community) instance + (setf (fli:foreign-slot-value c-session 'community) (fli:convert-to-foreign-string community) + (fli:foreign-slot-value c-session 'community-len) (length community)))) + ;; SNMPv3 support + ((= version +snmp-version-3+) + (with-slots (security-name security-auth-proto passphrase) instance + (progn + (setf (fli:foreign-slot-value c-session 'security-name) (fli:convert-to-foreign-string security-name) + (fli:foreign-slot-value c-session 'security-name-len) (length security-name) + ;; we only support authNoPriv now + (fli:foreign-slot-value c-session 'security-level) +snmp-sec-level-authnopriv+ + (fli:foreign-slot-value c-session 'security-auth-key-len) +usm-auth-ku-len+) + (case security-auth-proto + (:hmac-md5 + (setf (fli:foreign-slot-value c-session 'security-auth-proto) +usm-hmac-md5-auth-protocol+ + (fli:foreign-slot-value c-session 'security-auth-proto-len) +usm-hmac-md5-auth-protocol-len+)) + (:hmac-sha1 + (setf (fli:foreign-slot-value c-session 'security-auth-proto) +usm-hmac-sha1-auth-protocol+ + (fli:foreign-slot-value c-session 'security-auth-proto-len) +usm-hmac-sha1-auth-protocol-len+))) + (fli:with-foreign-string (c-passphrase c-passphrase-len byte-count) + passphrase + (declare (ignore byte-count)) + (if (/= (generate-ku (fli:foreign-slot-value c-session 'security-auth-proto) + (fli:foreign-slot-value c-session 'security-auth-proto-len) + c-passphrase + c-passphrase-len + (fli:foreign-array-pointer (fli:foreign-slot-pointer c-session 'security-auth-key) 0) + (fli:foreign-slot-pointer c-session 'security-auth-key-len)) + +snmp-err-success+) + (error "Error generating Ku from authentication pass phrase.")))))) + (t (error "unknown snmp version!")))))) + (defmethod snmp-msg-get ((s snmp-session) (o oid)) (car (snmp-msg-get-list s (list o))))

@@ -108,35 +153,100 @@ (defmethod snmp-msg-get ((s string) (o string)) (snmp-msg-get (make-instance 'snmp-session :peername s) o))

+(defmethod snmp-msg-get ((s string) (o oid)) + (snmp-msg-get (make-instance 'snmp-session :peername s) o)) + +#-lispworks (defmethod snmp-msg-get-list ((s snmp-session) (oids list)) (let ((ss (c-snmp-open (slot-value s 'c-session))) - (pdu (c-snmp-pdu-create +snmp-msg-get+)) - (response (foreign-alloc :pointer :initial-element (null-pointer))) - values) + (pdu (c-snmp-pdu-create +snmp-msg-get+)) + (response (foreign-alloc :pointer :initial-element (null-pointer))) + values) (progn ;; 1. fill oids into request pdu (dolist (o oids) - (let ((real-o (typecase o - (oid o) - (string (make-instance 'oid :name o)) - (t (make-instance 'oid :name ""))))) - (c-snmp-add-null-var pdu - (slot-value real-o 'c-oids) - (mem-ref (slot-value real-o 'c-oid-len) 'c-size-type)))) + (let ((real-o (typecase o + (oid o) + (string (make-instance 'oid :name o)) + (t (make-instance 'oid :name ""))))) + (c-snmp-add-null-var pdu + (slot-value real-o 'c-oids) + (mem-ref (slot-value real-o 'c-oid-len) 'c-size-type)))) ;; 2. get results from response pdu (let ((status (c-snmp-synch-response ss pdu response))) - (setf values - (if (and (= status +snmp-stat-success+) - (= (foreign-slot-value (mem-aref response :pointer) 'c-snmp-pdu 'c-errstat) - +snmp-err-noerror+)) - (loop for vars = (foreign-slot-value (mem-aref response :pointer) - 'c-snmp-pdu 'c-variables) - then (foreign-slot-value vars 'c-variable-list 'c-next-variable) - until (null-pointer-p vars) - collect (snmp-var->value vars))))) + (setf values + (if (and (= status +snmp-stat-success+) + (= (foreign-slot-value (mem-aref response :pointer) 'c-snmp-pdu 'c-errstat) + +snmp-err-noerror+)) + (loop for vars = (foreign-slot-value (mem-aref response :pointer) + 'c-snmp-pdu 'c-variables) + then (foreign-slot-value vars 'c-variable-list 'c-next-variable) + until (null-pointer-p vars) + collect (snmp-var->value vars))))) (c-snmp-pdu-free (mem-aref response :pointer)) (c-snmp-close ss) values)))

+#+lispworks +(defmethod snmp-msg-get-list ((s snmp-session) (oids list)) + (let ((ss (snmp-open (slot-value s 'c-session))) + (pdu (snmp-pdu-create +snmp-msg-get+)) + values) + (fli:with-dynamic-foreign-objects ((response (:pointer netsnmp-pdu))) + (progn + ;; 1. fill oids into request pdu + (dolist (o oids) + (let ((real-o (typecase o + (oid o) + (string (make-instance 'oid :name o)) + (t (error "unknown oid type"))))) + (snmp-add-null-var pdu + (slot-value real-o 'c-oids) + (fli:dereference (slot-value real-o 'c-oid-len))))) + ;; 2. get results from response pdu + (let ((status (snmp-synch-response ss pdu response))) + (setf values + (if (and (= status +snmp-stat-success+) + (= (fli:foreign-slot-value (fli:dereference response) 'errstat) + +snmp-err-noerror+)) + (loop for vars = (fli:foreign-slot-value (fli:dereference response) + 'variables) + then (fli:foreign-slot-value vars 'next-variable) + until (fli:null-pointer-p vars) + collect (snmp-var->value vars))))) + (snmp-free-pdu (fli:dereference response)) + (snmp-close ss) + values)))) + (defmethod snmp-msg-get-list ((s string) (oids list)) (snmp-msg-get-list (make-instance 'snmp-session :peername s) oids)) + +#-lispworks +(defun snmp-var->value (v) + (case (foreign-slot-value v 'c-variable-list 'c-type) + ;; ASN_OCTET_STR + (+asn-octet-str+ + (foreign-string-to-lisp + (foreign-slot-value v 'c-variable-list 'c-val) + (foreign-slot-value v 'c-variable-list 'c-val-len))) + ;; ASN_COUNTER + (+asn-counter+ + (mem-ref (foreign-slot-value v 'c-variable-list 'c-val) + :uint32)) + (otherwise :others))) + +#+lispworks +(defun snmp-var->value (v) + (case (fli:foreign-slot-value v 'type) + ;; ASN_INTEGER + (#x02 + (fli:dereference + (fli:foreign-slot-value (fli:foreign-slot-pointer v 'val) + 'integer))) + ;; ASN_OCTET_STR + (#x04 + (fli:convert-from-foreign-string + (fli:foreign-slot-value (fli:foreign-slot-pointer v 'val) + 'string) + :length (fli:foreign-slot-value v 'val-len))) + (otherwise (fli:foreign-slot-value v 'type))))

Added: trunk/lw-dff.lisp ============================================================================== --- (empty file) +++ trunk/lw-dff.lisp Wed May 23 16:08:52 2007 @@ -0,0 +1,33 @@ +(in-package :org.net-snmp) + +(eval-when (:compile-toplevel :load-toplevel) + (fli:define-c-typedef (size-t (:foreign-name "size_t")) + (:unsigned :long)) + (fli:define-c-typedef (u-long (:foreign-name "u_long")) + (:unsigned :long)) + (fli:define-c-typedef (oid (:foreign-name "oid")) u-long) + + (fli:define-foreign-function (init-snmp "init_snmp" :source) + ;; Page 32 of FLI Manual + ((arg-1 (:reference-pass :ef-mb-string))) + :result-type :void + :language :ansi-c) + + (fli:define-foreign-function (read-objid "read_objid" :source) + ((arg-1 (:reference-pass :ef-mb-string)) + (arg-2 (:pointer oid)) + (arg-3 (:pointer size-t))) + :result-type :int + :language :ansi-c) + + (fli:define-foreign-function (get-node "get_node" :source) + ((arg-1 (:reference-pass :ef-mb-string)) + (arg-2 (:pointer oid)) + (arg-3 (:pointer size-t))) + :result-type :int + :language :ansi-c)) + +(eval-when (:load-toplevel) + (init-snmp "snmpapp") + (format t "Net-SNMP Initialized.~%")) +

Added: trunk/net-snmp-dff.lisp ============================================================================== --- (empty file) +++ trunk/net-snmp-dff.lisp Wed May 23 16:08:52 2007 @@ -0,0 +1,265 @@ +#| DATE : 24 May 2007 + | USER : binghe + | PROCESSED FILE : net-snmp.h + |# + +(in-package :org.net-snmp) + +;;; Derived from file : "/home/binghe/cl-net-snmp/net-snmp.h" + +(fli:define-c-typedef (u-char (:foreign-name "u_char")) + (:unsigned :char)) +(fli:define-c-typedef (u-short (:foreign-name "u_short")) + (:unsigned :short)) +(fli:define-c-typedef (u-int (:foreign-name "u_int")) (:unsigned :int)) +(fli:define-c-struct (counter64 (:foreign-name "counter64")) + (high u-long) + (low u-long)) +(fli:define-c-struct (variable-list + (:foreign-name "variable_list") + (:forward-reference t))) +(fli:define-c-typedef (netsnmp-variable-list + (:foreign-name "netsnmp_variable_list")) + (:struct variable-list)) +(fli:define-c-struct (netsnmp-transport-s + (:foreign-name "netsnmp_transport_s") + (:forward-reference t))) +(fli:define-c-struct (snmp-pdu (:foreign-name "snmp_pdu")) + (version :long) + (command :int) + (reqid :long) + (msgid :long) + (transid :long) + (sessid :long) + (errstat :long) + (errindex :long) + (time u-long) + (flags u-long) + (security-model :int) + (security-level :int) + (msg-parse-model :int) + (transport-data (:pointer :void)) + (transport-data-length :int) + (t-domain (:pointer (:const oid))) + (t-domain-len size-t) + (variables (:pointer netsnmp-variable-list)) + (community (:pointer u-char)) + (community-len size-t) + (enterprise (:pointer oid)) + (enterprise-length size-t) + (trap-type :long) + (specific-type :long) + (agent-addr (:c-array (:unsigned :char) 4)) + (context-engine-id (:pointer u-char)) + (context-engine-idlen size-t) + (context-name (:pointer :char)) + (context-name-len size-t) + (security-engine-id (:pointer u-char)) + (security-engine-idlen size-t) + (security-name (:pointer :char)) + (security-name-len size-t) + (priority :int) + (range-subid :int) + (security-state-ref (:pointer :void))) +(fli:define-c-typedef (netsnmp-pdu (:foreign-name "netsnmp_pdu")) + (:struct snmp-pdu)) +(fli:define-c-struct (snmp-session + (:foreign-name "snmp_session") + (:forward-reference t))) +(fli:define-c-typedef (netsnmp-session + (:foreign-name "netsnmp_session")) + (:struct snmp-session)) +(fli:define-c-typedef (snmp-callback (:foreign-name "snmp_callback")) + (:pointer + (:function + (:int + (:pointer netsnmp-session) + :int + (:pointer netsnmp-pdu) + (:pointer :void)) + :int))) +(fli:define-c-typedef (netsnmp-callback + (:foreign-name "netsnmp_callback")) + (:pointer + (:function + (:int + (:pointer netsnmp-session) + :int + (:pointer netsnmp-pdu) + (:pointer :void)) + :int))) +(fli:define-c-struct (snmp-session (:foreign-name "snmp_session")) + (version :long) + (retries :int) + (timeout :long) + (flags u-long) + (subsession (:pointer (:struct snmp-session))) + (next (:pointer (:struct snmp-session))) + (peername (:pointer :char)) + (remote-port u-short) + (localname (:pointer :char)) + (local-port u-short) + (authenticator + (:pointer + (:function + ((:pointer u-char) + (:pointer size-t) + (:pointer u-char) + size-t) + (:pointer u-char)))) + (callback netsnmp-callback) + (callback-magic (:pointer :void)) + (s-errno :int) + (s-snmp-errno :int) + (sessid :long) + (community (:pointer u-char)) + (community-len size-t) + (rcv-msg-max-size size-t) + (snd-msg-max-size size-t) + (is-authoritative u-char) + (context-engine-id (:pointer u-char)) + (context-engine-idlen size-t) + (engine-boots u-int) + (engine-time u-int) + (context-name (:pointer :char)) + (context-name-len size-t) + (security-engine-id (:pointer u-char)) + (security-engine-idlen size-t) + (security-name (:pointer :char)) + (security-name-len size-t) + (security-auth-proto (:pointer oid)) + (security-auth-proto-len size-t) + (security-auth-key (:c-array u-char 32)) + (security-auth-key-len size-t) + (security-auth-local-key (:pointer u-char)) + (security-auth-local-key-len size-t) + (security-priv-proto (:pointer oid)) + (security-priv-proto-len size-t) + (security-priv-key (:c-array u-char 32)) + (security-priv-key-len size-t) + (security-priv-local-key (:pointer u-char)) + (security-priv-local-key-len size-t) + (security-model :int) + (security-level :int) + (security-info (:pointer :void)) + (myvoid (:pointer :void))) +(fli:define-c-typedef (netsnmp-vardata + (:foreign-name "netsnmp_vardata")) + (:union + (integer (:pointer :long)) + (string (:pointer u-char)) + (objid (:pointer oid)) + (bitstring (:pointer u-char)) + (counter64 (:pointer (:struct counter64))))) +(fli:define-c-struct (variable-list (:foreign-name "variable_list")) + (next-variable (:pointer (:struct variable-list))) + (name (:pointer oid)) + (name-length size-t) + (type u-char) + (val netsnmp-vardata) + (val-len size-t) + (name-loc (:c-array oid 128)) + (buf (:c-array u-char 40)) + (data (:pointer :void)) + (data-free-hook + (:pointer (:function ((:pointer :void)) :void))) + (index :int)) +(fli:define-foreign-function (snmp-sess-init "snmp_sess_init" :source) + ((arg-1 (:pointer netsnmp-session))) + :result-type + :void + :language + :ansi-c) +(fli:define-foreign-function (snmp-open "snmp_open" :source) + ((arg-1 (:pointer netsnmp-session))) + :result-type + (:pointer netsnmp-session) + :language + :ansi-c) +(fli:define-foreign-function (snmp-close "snmp_close" :source) + ((arg-1 (:pointer netsnmp-session))) + :result-type + :int + :language + :ansi-c) +(fli:define-foreign-function (snmp-close-sessions + "snmp_close_sessions" + :source) + nil + :result-type + :int + :language + :ansi-c) +(fli:define-foreign-function (snmp-perror "snmp_perror" :source) + ((arg-1 (:pointer (:const :char)))) + :result-type + :void + :language + :ansi-c) +(fli:define-foreign-function (snmp-errstring "snmp_errstring" :source) + ((arg-1 :int)) + :result-type + (:pointer (:const :char)) + :language + :ansi-c) +(fli:define-foreign-function (snmp-sess-perror + "snmp_sess_perror" + :source) + ((prog-string (:pointer (:const :char))) + (ss (:pointer netsnmp-session))) + :result-type + :void + :language + :ansi-c) +(fli:define-foreign-function (snmp-pdu-create + "snmp_pdu_create" + :source) + ((arg-1 :int)) + :result-type + (:pointer netsnmp-pdu) + :language + :ansi-c) +(fli:define-foreign-function (snmp-free-pdu "snmp_free_pdu" :source) + ((arg-1 (:pointer netsnmp-pdu))) + :result-type + :void + :language + :ansi-c) +(fli:define-foreign-function (snmp-pdu-type "snmp_pdu_type" :source) + ((type :int)) + :result-type + (:pointer (:const :char)) + :language + :ansi-c) +(fli:define-foreign-function (snmp-add-null-var + "snmp_add_null_var" + :source) + ((arg-1 (:pointer netsnmp-pdu)) + (arg-2 (:pointer (:const oid))) + (arg-3 size-t)) + :result-type + (:pointer netsnmp-variable-list) + :language + :ansi-c) +(fli:define-foreign-function (snmp-synch-response + "snmp_synch_response" + :source) + ((arg-1 (:pointer netsnmp-session)) + (arg-2 (:pointer netsnmp-pdu)) + (arg-3 + (:pointer (:pointer netsnmp-pdu)))) + :result-type + :int + :language + :ansi-c) +(fli:define-foreign-function (generate-ku "generate_Ku" :source) + ((hashtype (:pointer (:const oid))) + (hashtype-len u-int) + (p (:pointer u-char)) + (pplen size-t) + (ku (:pointer u-char)) + (kulen (:pointer size-t))) + :result-type + :int + :language + :ansi-c)

Modified: trunk/net-snmp.asd ============================================================================== --- trunk/net-snmp.asd (original) +++ trunk/net-snmp.asd Wed May 23 16:08:52 2007 @@ -2,17 +2,22 @@

(defpackage :net-snmp-system (:use :cl :asdf)) - + (in-package :net-snmp-system) + +;;(require "foreign-parser") +;;(foreign-parser:process-foreign-file "net-snmp.h" :case-sensitive :split-name)

(defsystem net-snmp :description "Common Lisp interface for Net-SNMP" - :version "0.10" + :version "0.50" :author "Chun Tian (binghe)" - :depends-on (:cffi) + ;;:depends-on (:cffi) :components ((:file "package") (:file "constants" :depends-on ("package")) - (:file "typedefs" :depends-on ("constants")) - (:file "asn1" :depends-on ("typedefs")) - (:file "snmp-api" :depends-on ("constants" "typedefs")) - (:file "classes" :depends-on ("snmp-api")))) + #-lispworks (:file "typedefs" :depends-on ("constants")) + #+lispworks (:file "lw-dff" :depends-on ("package")) + #+lispworks (:file "net-snmp-dff" :depends-on ("package")) + #-lispworks (:file "snmp-api" :depends-on ("constants" "typedefs")) + (:file "asn1" :depends-on (#-lispworks "typedefs" #+lispworks "net-snmp-dff")))) + ;;(:file "classes" :depends-on ("snmp-api"))))

Added: trunk/net-snmp.h ============================================================================== --- (empty file) +++ trunk/net-snmp.h Wed May 23 16:08:52 2007 @@ -0,0 +1,309 @@ +typedef unsigned char u_char; +typedef unsigned short u_short; +typedef unsigned int u_int; + +struct counter64 { + u_long high; + u_long low; +}; + +struct variable_list; +typedef struct variable_list netsnmp_variable_list; +struct netsnmp_transport_s; + +#define USM_AUTH_KU_LEN 32 +#define USM_PRIV_KU_LEN 32 +#define MIN_OID_LEN 2 +#define MAX_OID_LEN 128 /* max subid's in an oid */ + +/** @typedef struct snmp_pdu to netsnmp_pdu + * Typedefs the snmp_pdu struct into netsnmp_pdu */ +/** @struct snmp_pdu + * The snmp protocol data unit. + */ +typedef struct snmp_pdu { + + /* + * Protocol-version independent fields + */ + /** snmp version */ + long version; + /** Type of this PDU */ + int command; + /** Request id - note: not incremented on retries */ + long reqid; + /** Message id for V3 messages note: incremented for each retry */ + long msgid; + /** Unique ID for incoming transactions */ + long transid; + /** Session id for AgentX messages */ + long sessid; + /** Error status (non_repeaters in GetBulk) */ + long errstat; + /** Error index (max_repetitions in GetBulk) */ + long errindex; + /** Uptime */ + u_long time; + u_long flags; + + int securityModel; + /** noAuthNoPriv, authNoPriv, authPriv */ + int securityLevel; + int msgParseModel; + + /** + * Transport-specific opaque data. This replaces the IP-centric address + * field. + */ + + void *transport_data; + int transport_data_length; + + /** + * The actual transport domain. This SHOULD NOT BE FREE()D. + */ + + const oid *tDomain; + size_t tDomainLen; + + netsnmp_variable_list *variables; + + + /* + * SNMPv1 & SNMPv2c fields + */ + /** community for outgoing requests. */ + u_char *community; + /** length of community name. */ + size_t community_len; + + /* + * Trap information + */ + /** System OID */ + oid *enterprise; + size_t enterprise_length; + /** trap type */ + long trap_type; + /** specific type */ + long specific_type; + /** This is ONLY used for v1 TRAPs */ + unsigned char agent_addr[4]; + + /* + * SNMPv3 fields + */ + /** context snmpEngineID */ + u_char *contextEngineID; + /** Length of contextEngineID */ + size_t contextEngineIDLen; + /** authoritative contextName */ + char *contextName; + /** Length of contextName */ + size_t contextNameLen; + /** authoritative snmpEngineID for security */ + u_char *securityEngineID; + /** Length of securityEngineID */ + size_t securityEngineIDLen; + /** on behalf of this principal */ + char *securityName; + /** Length of securityName. */ + size_t securityNameLen; + + /* + * AgentX fields + * (also uses SNMPv1 community field) + */ + int priority; + int range_subid; + + void *securityStateRef; +} netsnmp_pdu; + +struct snmp_session; + +/** @typedef struct snmp_session netsnmp_session + * Typedefs the snmp_session struct intonetsnmp_session */ +typedef struct snmp_session netsnmp_session; + +typedef int (*snmp_callback) (int, netsnmp_session *, int, + netsnmp_pdu *, void *); +typedef int (*netsnmp_callback) (int, netsnmp_session *, int, + netsnmp_pdu *, void *); + +/** @struct snmp_session + * The snmp session structure. + */ +struct snmp_session { + /* + * Protocol-version independent fields + */ + /** snmp version */ + long version; + /** Number of retries before timeout. */ + int retries; + /** Number of uS until first timeout, then exponential backoff */ + long timeout; + u_long flags; + struct snmp_session *subsession; + struct snmp_session *next; + + /** Domain name or dotted IP address of default peer */ + char *peername; + /** UDP port number of peer. */ + u_short remote_port; + /** My Domain name or dotted IP address, 0 for default */ + char *localname; + /** My UDP port number, 0 for default, picked randomly */ + u_short local_port; + /** + * Authentication function or NULL if null authentication is used + */ + u_char *(*authenticator) (u_char *, size_t *, u_char *, size_t); + /** Function to interpret incoming data */ + netsnmp_callback callback; + /** + * Pointer to data that the callback function may consider important + */ + void *callback_magic; + /** copy of system errno */ + int s_errno; + /** copy of library errno */ + int s_snmp_errno; + /** Session id - AgentX only */ + long sessid; + + /* + * SNMPv1 & SNMPv2c fields + */ + /** community for outgoing requests. */ + u_char *community; + /** Length of community name. */ + size_t community_len; + /** Largest message to try to receive. */ + size_t rcvMsgMaxSize; + /** Largest message to try to send. */ + size_t sndMsgMaxSize; + + /* + * SNMPv3 fields + */ + /** are we the authoritative engine? */ + u_char isAuthoritative; + /** authoritative snmpEngineID */ + u_char *contextEngineID; + /** Length of contextEngineID */ + size_t contextEngineIDLen; + /** initial engineBoots for remote engine */ + u_int engineBoots; + /** initial engineTime for remote engine */ + u_int engineTime; + /** authoritative contextName */ + char *contextName; + /** Length of contextName */ + size_t contextNameLen; + /** authoritative snmpEngineID */ + u_char *securityEngineID; + /** Length of contextEngineID */ + size_t securityEngineIDLen; + /** on behalf of this principal */ + char *securityName; + /** Length of securityName. */ + size_t securityNameLen; + + /** auth protocol oid */ + oid *securityAuthProto; + /** Length of auth protocol oid */ + size_t securityAuthProtoLen; + /** Ku for auth protocol XXX */ + u_char securityAuthKey[USM_AUTH_KU_LEN]; + /** Length of Ku for auth protocol */ + size_t securityAuthKeyLen; + /** Kul for auth protocol */ + u_char *securityAuthLocalKey; + /** Length of Kul for auth protocol XXX */ + size_t securityAuthLocalKeyLen; + + /** priv protocol oid */ + oid *securityPrivProto; + /** Length of priv protocol oid */ + size_t securityPrivProtoLen; + /** Ku for privacy protocol XXX */ + u_char securityPrivKey[USM_PRIV_KU_LEN]; + /** Length of Ku for priv protocol */ + size_t securityPrivKeyLen; + /** Kul for priv protocol */ + u_char *securityPrivLocalKey; + /** Length of Kul for priv protocol XXX */ + size_t securityPrivLocalKeyLen; + + /** snmp security model, v1, v2c, usm */ + int securityModel; + /** noAuthNoPriv, authNoPriv, authPriv */ + int securityLevel; + + /** + * security module specific + */ + void *securityInfo; + + /** + * use as you want data + */ + void *myvoid; +}; + +typedef union { + long *integer; + u_char *string; + oid *objid; + u_char *bitstring; + struct counter64 *counter64; +} netsnmp_vardata; + +/** @struct variable_list + * The netsnmp variable list binding structure, it's typedef'd to + * netsnmp_variable_list. + */ +struct variable_list { + /** NULL for last variable */ + struct variable_list *next_variable; + /** Object identifier of variable */ + oid *name; + /** number of subid's in name */ + size_t name_length; + /** ASN type of variable */ + u_char type; + /** value of variable */ + netsnmp_vardata val; + /** the length of the value to be copied into buf */ + size_t val_len; + /** 90 percentile < 24. */ + oid name_loc[MAX_OID_LEN]; + /** 90 percentile < 40. */ + u_char buf[40]; + /** (Opaque) hook for additional data */ + void *data; + /** callback to free above */ + void (*dataFreeHook)(void *); + int index; +}; + +void snmp_sess_init(netsnmp_session *); +netsnmp_session *snmp_open(netsnmp_session *); +int snmp_close(netsnmp_session *); +int snmp_close_sessions(void); +extern void snmp_perror(const char *); +const char *snmp_errstring(int); +void snmp_sess_perror(const char *prog_string, + netsnmp_session * ss); +netsnmp_pdu *snmp_pdu_create(int); +void snmp_free_pdu(netsnmp_pdu *); +const char * snmp_pdu_type(int type); +int get_node(const char *, oid *, size_t *); +netsnmp_variable_list *snmp_add_null_var(netsnmp_pdu *, const oid *, size_t); +int snmp_synch_response(netsnmp_session *, netsnmp_pdu *, + netsnmp_pdu **); +int generate_Ku(const oid * hashtype, u_int hashtype_len, + u_char * P, size_t pplen, + u_char * Ku, size_t * kulen);

Modified: trunk/package.lisp ============================================================================== --- trunk/package.lisp (original) +++ trunk/package.lisp Wed May 23 16:08:52 2007 @@ -2,7 +2,7 @@

(defpackage :org.net-snmp (:nicknames :snmp) - (:use :cl :cffi) + (:use :cl #-lispworks :cffi) (:export ;; class snmp-session oid @@ -16,14 +16,13 @@

(in-package :org.net-snmp)

-(eval-when (:compile-toplevel :load-toplevel :execute) - (define-foreign-library libssl - (:unix (:or "libssl.so.0.9.8" "libssl.so")) - (t (:default "libssl"))) - +#-lispworks +(eval-when (:compile-toplevel :load-toplevel) (define-foreign-library libsnmp - (:unix (:or "libsnmp.so.15" "libsnmp.so")) + (:unix "libsnmp.so.9") (t (:default "libsnmp"))) - - (use-foreign-library libssl) (use-foreign-library libsnmp)) + +#+lispworks +(eval-when (:compile-toplevel :load-toplevel) + (fli:register-module "libsnmp.so.9"))