lib/kernel_net.ml

   1 (* WARNING: This file and the corresponding mli (interface) are
   2  * automatically generated by the extract/codegen/kerneldb_to_parser.ml
   3  * program.
   4  *
   5  * Any edits you make to this file will be lost.
   6  *
   7  * To update this file from the latest kernel database, it is recommended
   8  * that you do 'make update-kernel-structs'.
   9  *)
  10
  11 let zero = 0;;
  12 let struct_name = "net";;
  13 let match_err = "failed to match kernel structure";;
  14 type t = { net_dev_base_head'next : Virt_mem_mmap.addr };;
  15 type fs_t = { __fs_net_dev_base_head'next : Virt_mem_types.fieldsig };;
  16 let fieldsig_1 =
  17   {
  18     __fs_net_dev_base_head'next =
  19       { Virt_mem_types.field_available = true; field_offset = 68; };
  20   };;
  21 let fieldsig_2 =
  22   {
  23     __fs_net_dev_base_head'next =
  24       { Virt_mem_types.field_available = true; field_offset = 64; };
  25   };;
  26 let fieldsig_3 =
  27   {
  28     __fs_net_dev_base_head'next =
  29       { Virt_mem_types.field_available = true; field_offset = 52; };
  30   };;
  31 let fieldsig_4 =
  32   {
  33     __fs_net_dev_base_head'next =
  34       { Virt_mem_types.field_available = true; field_offset = 48; };
  35   };;
  36 let fieldsig_5 =
  37   {
  38     __fs_net_dev_base_head'next =
  39       { Virt_mem_types.field_available = true; field_offset = 72; };
  40   };;
  41 let fieldsig_6 =
  42   {
  43     __fs_net_dev_base_head'next =
  44       { Virt_mem_types.field_available = true; field_offset = 128; };
  45   };;
  46 let fieldsig_7 =
  47   {
  48     __fs_net_dev_base_head'next =
  49       { Virt_mem_types.field_available = true; field_offset = 48; };
  50   };;
  51 let fieldsig_8 =
  52   {
  53     __fs_net_dev_base_head'next =
  54       { Virt_mem_types.field_available = true; field_offset = 88; };
  55   };;
  56 let fieldsig_9 =
  57   {
  58     __fs_net_dev_base_head'next =
  59       { Virt_mem_types.field_available = true; field_offset = 120; };
  60   };;
  61 let fieldsig_10 =
  62   {
  63     __fs_net_dev_base_head'next =
  64       { Virt_mem_types.field_available = true; field_offset = 96; };
  65   };;
  66 let fieldsig_11 =
  67   {
  68     __fs_net_dev_base_head'next =
  69       { Virt_mem_types.field_available = true; field_offset = 96; };
  70   };;
  71 let fieldsig_12 =
  72   {
  73     __fs_net_dev_base_head'next =
  74       { Virt_mem_types.field_available = true; field_offset = 56; };
  75   };;
  76 let fieldsig_13 =
  77   {
  78     __fs_net_dev_base_head'next =
  79       { Virt_mem_types.field_available = true; field_offset = 144; };
  80   };;
  81 let fieldsig_14 =
  82   {
  83     __fs_net_dev_base_head'next =
  84       { Virt_mem_types.field_available = true; field_offset = 144; };
  85   };;
  86 let parser_1 bits =
  87   bitmatch bits with
  88   | { net_dev_base_head'next : zero+32 : offset(544), littleendian } ->
  89       { net_dev_base_head'next = net_dev_base_head'next }
  90   | { _ } ->
  91       raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
  92 let parser_2 bits =
  93   bitmatch bits with
  94   | { net_dev_base_head'next : zero+32 : offset(512), littleendian } ->
  95       { net_dev_base_head'next = net_dev_base_head'next }
  96   | { _ } ->
  97       raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
  98 let parser_3 bits =
  99   bitmatch bits with
 100   | { net_dev_base_head'next : zero+32 : offset(416), littleendian } ->
 101       { net_dev_base_head'next = net_dev_base_head'next }
 102   | { _ } ->
 103       raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
 104 let parser_4 bits =
 105   bitmatch bits with
 106   | { net_dev_base_head'next : zero+32 : offset(384), littleendian } ->
 107       { net_dev_base_head'next = net_dev_base_head'next }
 108   | { _ } ->
 109       raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
 110 let parser_5 bits =
 111   bitmatch bits with
 112   | { net_dev_base_head'next : zero+32 : offset(576), littleendian } ->
 113       { net_dev_base_head'next = net_dev_base_head'next }
 114   | { _ } ->
 115       raise (Virt_mem_types.ParseError (struct_name, "parser_5", match_err));;
 116 let parser_6 bits =
 117   bitmatch bits with
 118   | { net_dev_base_head'next : zero+64 : offset(1024), littleendian } ->
 119       { net_dev_base_head'next = net_dev_base_head'next }
 120   | { _ } ->
 121       raise (Virt_mem_types.ParseError (struct_name, "parser_6", match_err));;
 122 let parser_7 bits =
 123   bitmatch bits with
 124   | { net_dev_base_head'next : zero+32 : offset(384), bigendian } ->
 125       { net_dev_base_head'next = net_dev_base_head'next }
 126   | { _ } ->
 127       raise (Virt_mem_types.ParseError (struct_name, "parser_7", match_err));;
 128 let parser_8 bits =
 129   bitmatch bits with
 130   | { net_dev_base_head'next : zero+64 : offset(704), bigendian } ->
 131       { net_dev_base_head'next = net_dev_base_head'next }
 132   | { _ } ->
 133       raise (Virt_mem_types.ParseError (struct_name, "parser_8", match_err));;
 134 let parser_9 bits =
 135   bitmatch bits with
 136   | { net_dev_base_head'next : zero+64 : offset(960), littleendian } ->
 137       { net_dev_base_head'next = net_dev_base_head'next }
 138   | { _ } ->
 139       raise (Virt_mem_types.ParseError (struct_name, "parser_9", match_err));;
 140 let parser_10 bits =
 141   bitmatch bits with
 142   | { net_dev_base_head'next : zero+64 : offset(768), littleendian } ->
 143       { net_dev_base_head'next = net_dev_base_head'next }
 144   | { _ } ->
 145       raise (Virt_mem_types.ParseError (struct_name, "parser_10", match_err));;
 146 let parser_11 bits =
 147   bitmatch bits with
 148   | { net_dev_base_head'next : zero+64 : offset(768), bigendian } ->
 149       { net_dev_base_head'next = net_dev_base_head'next }
 150   | { _ } ->
 151       raise (Virt_mem_types.ParseError (struct_name, "parser_11", match_err));;
 152 let parser_12 bits =
 153   bitmatch bits with
 154   | { net_dev_base_head'next : zero+32 : offset(448), bigendian } ->
 155       { net_dev_base_head'next = net_dev_base_head'next }
 156   | { _ } ->
 157       raise (Virt_mem_types.ParseError (struct_name, "parser_12", match_err));;
 158 let parser_13 bits =
 159   bitmatch bits with
 160   | { net_dev_base_head'next : zero+64 : offset(1152), bigendian } ->
 161       { net_dev_base_head'next = net_dev_base_head'next }
 162   | { _ } ->
 163       raise (Virt_mem_types.ParseError (struct_name, "parser_13", match_err));;
 164 let parser_14 bits =
 165   bitmatch bits with
 166   | { net_dev_base_head'next : zero+64 : offset(1152), littleendian } ->
 167       { net_dev_base_head'next = net_dev_base_head'next }
 168   | { _ } ->
 169       raise (Virt_mem_types.ParseError (struct_name, "parser_14", match_err));;
 170 module StringMap = Map.Make(String);;
 171 let map = StringMap.empty;;
 172 let v = (parser_1, 356, fieldsig_1);;
 173 let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
 174 let v = (parser_2, 732, fieldsig_2);;
 175 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
 176 let v = (parser_2, 80, fieldsig_2);;
 177 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
 178 let v = (parser_2, 80, fieldsig_2);;
 179 let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
 180 let v = (parser_2, 80, fieldsig_2);;
 181 let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
 182 let v = (parser_3, 284, fieldsig_3);;
 183 let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
 184 let v = (parser_4, 660, fieldsig_4);;
 185 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
 186 let v = (parser_4, 660, fieldsig_4);;
 187 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
 188 let v = (parser_5, 912, fieldsig_5);;
 189 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
 190 let v = (parser_5, 912, fieldsig_5);;
 191 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
 192 let v = (parser_5, 912, fieldsig_5);;
 193 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
 194 let v = (parser_5, 912, fieldsig_5);;
 195 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
 196 let v = (parser_5, 912, fieldsig_5);;
 197 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
 198 let v = (parser_5, 912, fieldsig_5);;
 199 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
 200 let v = (parser_5, 912, fieldsig_5);;
 201 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
 202 let v = (parser_2, 732, fieldsig_2);;
 203 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
 204 let v = (parser_1, 356, fieldsig_1);;
 205 let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
 206 let v = (parser_2, 732, fieldsig_2);;
 207 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
 208 let v = (parser_6, 1352, fieldsig_6);;
 209 let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
 210 let v = (parser_2, 732, fieldsig_2);;
 211 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
 212 let v = (parser_6, 1352, fieldsig_6);;
 213 let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
 214 let v = (parser_2, 80, fieldsig_2);;
 215 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
 216 let v = (parser_2, 80, fieldsig_2);;
 217 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
 218 let v = (parser_7, 64, fieldsig_7);;
 219 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
 220 let v = (parser_8, 120, fieldsig_8);;
 221 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
 222 let v = (parser_9, 152, fieldsig_9);;
 223 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
 224 let v = (parser_2, 80, fieldsig_2);;
 225 let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
 226 let v = (parser_2, 80, fieldsig_2);;
 227 let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
 228 let v = (parser_7, 64, fieldsig_7);;
 229 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
 230 let v = (parser_8, 120, fieldsig_8);;
 231 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
 232 let v = (parser_9, 152, fieldsig_9);;
 233 let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
 234 let v = (parser_2, 80, fieldsig_2);;
 235 let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
 236 let v = (parser_2, 80, fieldsig_2);;
 237 let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
 238 let v = (parser_7, 64, fieldsig_7);;
 239 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
 240 let v = (parser_8, 120, fieldsig_8);;
 241 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
 242 let v = (parser_9, 152, fieldsig_9);;
 243 let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
 244 let v = (parser_3, 284, fieldsig_3);;
 245 let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
 246 let v = (parser_10, 488, fieldsig_10);;
 247 let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
 248 let v = (parser_3, 284, fieldsig_3);;
 249 let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
 250 let v = (parser_4, 660, fieldsig_4);;
 251 let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
 252 let v = (parser_4, 660, fieldsig_4);;
 253 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
 254 let v = (parser_7, 652, fieldsig_7);;
 255 let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
 256 let v = (parser_11, 1224, fieldsig_11);;
 257 let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
 258 let v = (parser_10, 1224, fieldsig_10);;
 259 let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
 260 let v = (parser_4, 660, fieldsig_4);;
 261 let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
 262 let v = (parser_4, 660, fieldsig_4);;
 263 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
 264 let v = (parser_7, 652, fieldsig_7);;
 265 let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
 266 let v = (parser_11, 1224, fieldsig_11);;
 267 let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
 268 let v = (parser_10, 1224, fieldsig_10);;
 269 let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
 270 let v = (parser_5, 912, fieldsig_5);;
 271 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;;
 272 let v = (parser_5, 912, fieldsig_5);;
 273 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
 274 let v = (parser_12, 860, fieldsig_12);;
 275 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
 276 let v = (parser_13, 1680, fieldsig_13);;
 277 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
 278 let v = (parser_14, 1680, fieldsig_14);;
 279 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;;
 280 let v = (parser_5, 912, fieldsig_5);;
 281 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;;
 282 let v = (parser_5, 912, fieldsig_5);;
 283 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
 284 let v = (parser_12, 860, fieldsig_12);;
 285 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
 286 let v = (parser_13, 1680, fieldsig_13);;
 287 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
 288 let v = (parser_14, 1680, fieldsig_14);;
 289 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;;
 290 let v = (parser_5, 912, fieldsig_5);;
 291 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
 292 let v = (parser_5, 912, fieldsig_5);;
 293 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
 294 let v = (parser_12, 860, fieldsig_12);;
 295 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
 296 let v = (parser_13, 1680, fieldsig_13);;
 297 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
 298 let v = (parser_14, 1680, fieldsig_14);;
 299 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
 300 let v = (parser_5, 912, fieldsig_5);;
 301 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
 302 let v = (parser_5, 912, fieldsig_5);;
 303 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
 304 let v = (parser_12, 860, fieldsig_12);;
 305 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
 306 let v = (parser_13, 1680, fieldsig_13);;
 307 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
 308 let v = (parser_14, 1680, fieldsig_14);;
 309 let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
 310 let v = (parser_5, 912, fieldsig_5);;
 311 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
 312 let v = (parser_5, 912, fieldsig_5);;
 313 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
 314 let v = (parser_12, 860, fieldsig_12);;
 315 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
 316 let v = (parser_13, 1680, fieldsig_13);;
 317 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
 318 let v = (parser_14, 1680, fieldsig_14);;
 319 let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
 320 let v = (parser_5, 912, fieldsig_5);;
 321 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
 322 let v = (parser_5, 912, fieldsig_5);;
 323 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
 324 let v = (parser_12, 860, fieldsig_12);;
 325 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
 326 let v = (parser_13, 1680, fieldsig_13);;
 327 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
 328 let v = (parser_14, 1680, fieldsig_14);;
 329 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
 330 let v = (parser_5, 912, fieldsig_5);;
 331 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
 332 let v = (parser_5, 912, fieldsig_5);;
 333 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
 334 let v = (parser_12, 860, fieldsig_12);;
 335 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
 336 let v = (parser_13, 1680, fieldsig_13);;
 337 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
 338 let v = (parser_14, 1680, fieldsig_14);;
 339 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
 340 let v = (parser_8, 120, fieldsig_8);;
 341 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
 342 let v = (parser_8, 120, fieldsig_8);;
 343 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
 344 let v = (parser_8, 120, fieldsig_8);;
 345 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
 346 let v = (parser_11, 1224, fieldsig_11);;
 347 let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
 348 let v = (parser_11, 1224, fieldsig_11);;
 349 let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
 350 let v = (parser_13, 1680, fieldsig_13);;
 351 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
 352 let v = (parser_13, 1680, fieldsig_13);;
 353 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
 354 let v = (parser_13, 1680, fieldsig_13);;
 355 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
 356 let v = (parser_13, 1680, fieldsig_13);;
 357 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
 358 let v = (parser_13, 1680, fieldsig_13);;
 359 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
 360 let v = (parser_13, 1680, fieldsig_13);;
 361 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
 362 let v = (parser_13, 1680, fieldsig_13);;
 363 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
 364 let v = (parser_7, 64, fieldsig_7);;
 365 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
 366 let v = (parser_7, 64, fieldsig_7);;
 367 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
 368 let v = (parser_7, 64, fieldsig_7);;
 369 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
 370 let v = (parser_7, 660, fieldsig_7);;
 371 let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
 372 let v = (parser_7, 660, fieldsig_7);;
 373 let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
 374 let v = (parser_12, 864, fieldsig_12);;
 375 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
 376 let v = (parser_12, 864, fieldsig_12);;
 377 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
 378 let v = (parser_12, 864, fieldsig_12);;
 379 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
 380 let v = (parser_12, 864, fieldsig_12);;
 381 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
 382 let v = (parser_12, 864, fieldsig_12);;
 383 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
 384 let v = (parser_12, 864, fieldsig_12);;
 385 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
 386 let v = (parser_12, 864, fieldsig_12);;
 387 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
 388 type kernel_version = string;;
 389 let net_known version = StringMap.mem version map;;
 390 let net_size version =
 391   let (_, size, _) = StringMap.find version map in size;;
 392 let net_of_bits version bits =
 393   let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
 394 let get_net version mem addr =
 395   let (parsefn, size, _) = StringMap.find version map in
 396   let bytes = Virt_mem_mmap.get_bytes mem addr size in
 397   let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
 398 let field_signature_of_net_dev_base_head'next version =
 399   let (_, _, fs) = StringMap.find version map
 400   in fs.__fs_net_dev_base_head'next;;