X-Git-Url: http://git.annexia.org/?p=virt-mem.git;a=blobdiff_plain;f=lib%2Fkernel_in_ifaddr.ml;fp=lib%2Fkernel_in_ifaddr.ml;h=0000000000000000000000000000000000000000;hp=90711b35040b211681726bc9b7951718c26ae6fb;hb=9a4e42524fac9afd50fca18f2124f6df91716d4c;hpb=93676d33e7b96b18baab8fdc82ad4ef76d720620 diff --git a/lib/kernel_in_ifaddr.ml b/lib/kernel_in_ifaddr.ml deleted file mode 100644 index 90711b3..0000000 --- a/lib/kernel_in_ifaddr.ml +++ /dev/null @@ -1,755 +0,0 @@ -(* WARNING: This file and the corresponding mli (interface) are - * automatically generated by the extract/codegen/kerneldb_to_parser.ml - * program. - * - * Any edits you make to this file will be lost. - * - * To update this file from the latest kernel database, it is recommended - * that you do 'make update-kernel-structs'. - *) - -let zero = 0;; -let struct_name = "in_ifaddr";; -let match_err = "failed to match kernel structure";; -type t = - { in_ifaddr_ifa_next : Virt_mem_mmap.addr; in_ifaddr_ifa_local : int64; - in_ifaddr_ifa_address : int64; in_ifaddr_ifa_mask : int64; - in_ifaddr_ifa_broadcast : int64 - };; -type fs_t = - { __fs_in_ifaddr_ifa_next : Virt_mem_types.fieldsig; - __fs_in_ifaddr_ifa_local : Virt_mem_types.fieldsig; - __fs_in_ifaddr_ifa_address : Virt_mem_types.fieldsig; - __fs_in_ifaddr_ifa_mask : Virt_mem_types.fieldsig; - __fs_in_ifaddr_ifa_broadcast : Virt_mem_types.fieldsig - };; -let fieldsig_1 = - { - __fs_in_ifaddr_ifa_next = - { Virt_mem_types.field_available = true; field_offset = 0; }; - __fs_in_ifaddr_ifa_local = - { Virt_mem_types.field_available = true; field_offset = 16; }; - __fs_in_ifaddr_ifa_address = - { Virt_mem_types.field_available = true; field_offset = 20; }; - __fs_in_ifaddr_ifa_mask = - { Virt_mem_types.field_available = true; field_offset = 24; }; - __fs_in_ifaddr_ifa_broadcast = - { Virt_mem_types.field_available = true; field_offset = 28; }; - };; -let fieldsig_2 = - { - __fs_in_ifaddr_ifa_next = - { Virt_mem_types.field_available = true; field_offset = 0; }; - __fs_in_ifaddr_ifa_local = - { Virt_mem_types.field_available = true; field_offset = 32; }; - __fs_in_ifaddr_ifa_address = - { Virt_mem_types.field_available = true; field_offset = 36; }; - __fs_in_ifaddr_ifa_mask = - { Virt_mem_types.field_available = true; field_offset = 40; }; - __fs_in_ifaddr_ifa_broadcast = - { Virt_mem_types.field_available = true; field_offset = 44; }; - };; -let fieldsig_3 = - { - __fs_in_ifaddr_ifa_next = - { Virt_mem_types.field_available = true; field_offset = 0; }; - __fs_in_ifaddr_ifa_local = - { Virt_mem_types.field_available = true; field_offset = 16; }; - __fs_in_ifaddr_ifa_address = - { Virt_mem_types.field_available = true; field_offset = 20; }; - __fs_in_ifaddr_ifa_mask = - { Virt_mem_types.field_available = true; field_offset = 24; }; - __fs_in_ifaddr_ifa_broadcast = - { Virt_mem_types.field_available = true; field_offset = 28; }; - };; -let fieldsig_4 = - { - __fs_in_ifaddr_ifa_next = - { Virt_mem_types.field_available = true; field_offset = 0; }; - __fs_in_ifaddr_ifa_local = - { Virt_mem_types.field_available = true; field_offset = 32; }; - __fs_in_ifaddr_ifa_address = - { Virt_mem_types.field_available = true; field_offset = 36; }; - __fs_in_ifaddr_ifa_mask = - { Virt_mem_types.field_available = true; field_offset = 40; }; - __fs_in_ifaddr_ifa_broadcast = - { Virt_mem_types.field_available = true; field_offset = 44; }; - };; -let parser_1 bits = - bitmatch bits with - | { in_ifaddr_ifa_next : zero+32 : offset(0), littleendian; - in_ifaddr_ifa_local : zero+32 : offset(128), littleendian; - in_ifaddr_ifa_address : zero+32 : offset(160), littleendian; - in_ifaddr_ifa_mask : zero+32 : offset(192), littleendian; - in_ifaddr_ifa_broadcast : zero+32 : offset(224), littleendian } -> - { in_ifaddr_ifa_next = in_ifaddr_ifa_next; - in_ifaddr_ifa_local = in_ifaddr_ifa_local; - in_ifaddr_ifa_address = in_ifaddr_ifa_address; - in_ifaddr_ifa_mask = in_ifaddr_ifa_mask; - in_ifaddr_ifa_broadcast = in_ifaddr_ifa_broadcast } - | { _ } -> - raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));; -let parser_2 bits = - bitmatch bits with - | { in_ifaddr_ifa_next : zero+64 : offset(0), littleendian; - in_ifaddr_ifa_local : zero+32 : offset(256), littleendian; - in_ifaddr_ifa_address : zero+32 : offset(288), littleendian; - in_ifaddr_ifa_mask : zero+32 : offset(320), littleendian; - in_ifaddr_ifa_broadcast : zero+32 : offset(352), littleendian } -> - { in_ifaddr_ifa_next = in_ifaddr_ifa_next; - in_ifaddr_ifa_local = in_ifaddr_ifa_local; - in_ifaddr_ifa_address = in_ifaddr_ifa_address; - in_ifaddr_ifa_mask = in_ifaddr_ifa_mask; - in_ifaddr_ifa_broadcast = in_ifaddr_ifa_broadcast } - | { _ } -> - raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));; -let parser_3 bits = - bitmatch bits with - | { in_ifaddr_ifa_next : zero+32 : offset(0), bigendian; - in_ifaddr_ifa_local : zero+32 : offset(128), bigendian; - in_ifaddr_ifa_address : zero+32 : offset(160), bigendian; - in_ifaddr_ifa_mask : zero+32 : offset(192), bigendian; - in_ifaddr_ifa_broadcast : zero+32 : offset(224), bigendian } -> - { in_ifaddr_ifa_next = in_ifaddr_ifa_next; - in_ifaddr_ifa_local = in_ifaddr_ifa_local; - in_ifaddr_ifa_address = in_ifaddr_ifa_address; - in_ifaddr_ifa_mask = in_ifaddr_ifa_mask; - in_ifaddr_ifa_broadcast = in_ifaddr_ifa_broadcast } - | { _ } -> - raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));; -let parser_4 bits = - bitmatch bits with - | { in_ifaddr_ifa_next : zero+64 : offset(0), bigendian; - in_ifaddr_ifa_local : zero+32 : offset(256), bigendian; - in_ifaddr_ifa_address : zero+32 : offset(288), bigendian; - in_ifaddr_ifa_mask : zero+32 : offset(320), bigendian; - in_ifaddr_ifa_broadcast : zero+32 : offset(352), bigendian } -> - { in_ifaddr_ifa_next = in_ifaddr_ifa_next; - in_ifaddr_ifa_local = in_ifaddr_ifa_local; - in_ifaddr_ifa_address = in_ifaddr_ifa_address; - in_ifaddr_ifa_mask = in_ifaddr_ifa_mask; - in_ifaddr_ifa_broadcast = in_ifaddr_ifa_broadcast } - | { _ } -> - raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));; -module StringMap = Map.Make(String);; -let map = StringMap.empty;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.24-7.fc9.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.24-9.fc9.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.25.14-69.fc8.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.18-1.2798.fc6.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.20-1.2933.fc6.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3128.fc7.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3132.fc7.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3141.fc7.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3144.fc7.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3145.fc7.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3190.fc7.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3209.fc8.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3209.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3218.fc8.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3218.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3221.fc8.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3221.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3228.fc7.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3234.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3236.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3238.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3242.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.22-0.rc7.2.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.23.14-135.fc8.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.23.14-78.fc7.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.24-7.fc9.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.24-7.fc9.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.24-7.fc9.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.24-9.fc9.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.24-9.fc9.i686" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.24-9.fc9.ppc" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.25.14-69.fc8.i586" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;; -let v = (parser_1, 51, fieldsig_1);; -let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;; -let v = (parser_2, 67, fieldsig_2);; -let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;; -let v = (parser_4, 71, fieldsig_4);; -let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;; -let v = (parser_4, 67, fieldsig_4);; -let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.24-7.fc9.ppc" v map;; -let v = (parser_3, 55, fieldsig_3);; -let map = StringMap.add "2.6.24-9.fc9.ppc" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;; -let v = (parser_3, 51, fieldsig_3);; -let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;; -let v = (parser_1, 55, fieldsig_1);; -let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;; -let v = (parser_2, 71, fieldsig_2);; -let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;; -type kernel_version = string;; -let in_ifaddr_known version = StringMap.mem version map;; -let in_ifaddr_size version = - let (_, size, _) = StringMap.find version map in size;; -let in_ifaddr_of_bits version bits = - let (parsefn, _, _) = StringMap.find version map in parsefn bits;; -let get_in_ifaddr version mem addr = - let (parsefn, size, _) = StringMap.find version map in - let bytes = Virt_mem_mmap.get_bytes mem addr size in - let bits = Bitstring.bitstring_of_string bytes in parsefn bits;; -let field_signature_of_in_ifaddr_ifa_next version = - let (_, _, fs) = StringMap.find version map in fs.__fs_in_ifaddr_ifa_next;; -let field_signature_of_in_ifaddr_ifa_local version = - let (_, _, fs) = StringMap.find version map in fs.__fs_in_ifaddr_ifa_local;; -let field_signature_of_in_ifaddr_ifa_address version = - let (_, _, fs) = StringMap.find version map - in fs.__fs_in_ifaddr_ifa_address;; -let field_signature_of_in_ifaddr_ifa_mask version = - let (_, _, fs) = StringMap.find version map in fs.__fs_in_ifaddr_ifa_mask;; -let field_signature_of_in_ifaddr_ifa_broadcast version = - let (_, _, fs) = StringMap.find version map - in fs.__fs_in_ifaddr_ifa_broadcast;;