Source file netsnmp_exceptions.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
exception Not_found of string
exception System_error of string
exception Out_of_memory
exception Response_error of (Pdu_error.t * string)
exception General_error of (int * Netsnmp_error.t * string)

(* os_err, snmp_error, error_string *)
exception Request_timeout

let () =
  (Callback.register_exception [@ocaml.alert "-unsafe_multidomain"])
    "Netsnmp_error_not_found"
    (Not_found "");
  (Callback.register_exception [@ocaml.alert "-unsafe_multidomain"])
    "Netsnmp_error_system"
    (System_error "");
  (Callback.register_exception [@ocaml.alert "-unsafe_multidomain"])
    "Netsnmp_out_of_memory"
    Out_of_memory;
  (Callback.register_exception [@ocaml.alert "-unsafe_multidomain"])
    "Netsnmp_response_error"
    (Response_error (Pdu_error.SNMP_ERR_NOERROR, ""));
  (Callback.register_exception [@ocaml.alert "-unsafe_multidomain"])
    "Netsnmp_general_error"
    (General_error (0, Netsnmp_error.SNMPERR_SUCCESS, ""));
  (Callback.register_exception [@ocaml.alert "-unsafe_multidomain"])
    "Netsnmp_request_timeout"
    Request_timeout
;;