Source file mib_monad.ml

module Mib(IO : Io_intf.S) : Mib_intf.S with module IO := IO = struct

  module Mib = Netsnmp_raw.Mib

  let netsnmp_init_mib () = IO.wrap_main_thread Mib.netsnmp_init_mib ()
  let shutdown_mib () = IO.wrap_main_thread Mib.shutdown_mib ()
  let add_mibdir dir = IO.wrap_main_thread Mib.add_mibdir dir
  let read_objid oid_s = IO.wrap_mt Mib.read_objid oid_s
  let get_node oid_s = IO.wrap_mt Mib.get_node oid_s
  let get_module_node oid_s module_s = IO.wrap_mt (Mib.get_module_node oid_s) module_s
  let netsnmp_read_module module_s = IO.wrap_main_thread Mib.netsnmp_read_module module_s
  let read_mib file = IO.wrap_main_thread Mib.read_mib file
  let read_all_mibs () = IO.wrap_main_thread Mib.read_all_mibs ()
  let print_mib ~fd = IO.wrap_mt (Mib.print_mib ~fd) ()
  let fprint_objid ~fd oid = IO.wrap_mt (Mib.fprint_objid ~fd) oid
  let snprint_description oid = IO.wrap_mt Mib.snprint_description oid
  let snprint_objid oid = IO.wrap_mt Mib.snprint_objid oid
  let snmp_set_mib_errors level = IO.wrap_main_thread Mib.snmp_set_mib_errors level
  let snmp_set_mib_warnings level = IO.wrap_main_thread Mib.snmp_set_mib_warnings level
  let snmp_set_save_descriptions v = IO.wrap_main_thread Mib.snmp_set_save_descriptions v
  let add_module_replacement omod nmod tag len =
    IO.wrap_main_thread (Mib.add_module_replacement omod nmod tag) len
  let objid_of_int_array oid_arry = IO.wrap_mt Mib.objid_of_int_array oid_arry
  let objid_to_int_array oid = IO.wrap_mt Mib.objid_to_int_array oid

end