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 = 64; };
  20   };;
  21 let fieldsig_2 =
  22   {
  23     __fs_net_dev_base_head'next =
  24       { Virt_mem_types.field_available = true; field_offset = 48; };
  25   };;
  26 let fieldsig_3 =
  27   {
  28     __fs_net_dev_base_head'next =
  29       { Virt_mem_types.field_available = true; field_offset = 72; };
  30   };;
  31 let fieldsig_4 =
  32   {
  33     __fs_net_dev_base_head'next =
  34       { Virt_mem_types.field_available = true; field_offset = 128; };
  35   };;
  36 let fieldsig_5 =
  37   {
  38     __fs_net_dev_base_head'next =
  39       { Virt_mem_types.field_available = true; field_offset = 48; };
  40   };;
  41 let fieldsig_6 =
  42   {
  43     __fs_net_dev_base_head'next =
  44       { Virt_mem_types.field_available = true; field_offset = 88; };
  45   };;
  46 let fieldsig_7 =
  47   {
  48     __fs_net_dev_base_head'next =
  49       { Virt_mem_types.field_available = true; field_offset = 120; };
  50   };;
  51 let fieldsig_8 =
  52   {
  53     __fs_net_dev_base_head'next =
  54       { Virt_mem_types.field_available = true; field_offset = 52; };
  55   };;
  56 let fieldsig_9 =
  57   {
  58     __fs_net_dev_base_head'next =
  59       { Virt_mem_types.field_available = true; field_offset = 96; };
  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 = 56; };
  70   };;
  71 let fieldsig_12 =
  72   {
  73     __fs_net_dev_base_head'next =
  74       { Virt_mem_types.field_available = true; field_offset = 144; };
  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 parser_1 bits =
  82   bitmatch bits with
  83   | { net_dev_base_head'next : zero+32 : offset(512), littleendian } ->
  84       { net_dev_base_head'next = net_dev_base_head'next }
  85   | { _ } ->
  86       raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
  87 let parser_2 bits =
  88   bitmatch bits with
  89   | { net_dev_base_head'next : zero+32 : offset(384), littleendian } ->
  90       { net_dev_base_head'next = net_dev_base_head'next }
  91   | { _ } ->
  92       raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
  93 let parser_3 bits =
  94   bitmatch bits with
  95   | { net_dev_base_head'next : zero+32 : offset(576), littleendian } ->
  96       { net_dev_base_head'next = net_dev_base_head'next }
  97   | { _ } ->
  98       raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
  99 let parser_4 bits =
 100   bitmatch bits with
 101   | { net_dev_base_head'next : zero+64 : offset(1024), littleendian } ->
 102       { net_dev_base_head'next = net_dev_base_head'next }
 103   | { _ } ->
 104       raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
 105 let parser_5 bits =
 106   bitmatch bits with
 107   | { net_dev_base_head'next : zero+32 : offset(384), bigendian } ->
 108       { net_dev_base_head'next = net_dev_base_head'next }
 109   | { _ } ->
 110       raise (Virt_mem_types.ParseError (struct_name, "parser_5", match_err));;
 111 let parser_6 bits =
 112   bitmatch bits with
 113   | { net_dev_base_head'next : zero+64 : offset(704), bigendian } ->
 114       { net_dev_base_head'next = net_dev_base_head'next }
 115   | { _ } ->
 116       raise (Virt_mem_types.ParseError (struct_name, "parser_6", match_err));;
 117 let parser_7 bits =
 118   bitmatch bits with
 119   | { net_dev_base_head'next : zero+64 : offset(960), littleendian } ->
 120       { net_dev_base_head'next = net_dev_base_head'next }
 121   | { _ } ->
 122       raise (Virt_mem_types.ParseError (struct_name, "parser_7", match_err));;
 123 let parser_8 bits =
 124   bitmatch bits with
 125   | { net_dev_base_head'next : zero+32 : offset(416), littleendian } ->
 126       { net_dev_base_head'next = net_dev_base_head'next }
 127   | { _ } ->
 128       raise (Virt_mem_types.ParseError (struct_name, "parser_8", match_err));;
 129 let parser_9 bits =
 130   bitmatch bits with
 131   | { net_dev_base_head'next : zero+64 : offset(768), littleendian } ->
 132       { net_dev_base_head'next = net_dev_base_head'next }
 133   | { _ } ->
 134       raise (Virt_mem_types.ParseError (struct_name, "parser_9", match_err));;
 135 let parser_10 bits =
 136   bitmatch bits with
 137   | { net_dev_base_head'next : zero+64 : offset(768), bigendian } ->
 138       { net_dev_base_head'next = net_dev_base_head'next }
 139   | { _ } ->
 140       raise (Virt_mem_types.ParseError (struct_name, "parser_10", match_err));;
 141 let parser_11 bits =
 142   bitmatch bits with
 143   | { net_dev_base_head'next : zero+32 : offset(448), bigendian } ->
 144       { net_dev_base_head'next = net_dev_base_head'next }
 145   | { _ } ->
 146       raise (Virt_mem_types.ParseError (struct_name, "parser_11", match_err));;
 147 let parser_12 bits =
 148   bitmatch bits with
 149   | { net_dev_base_head'next : zero+64 : offset(1152), bigendian } ->
 150       { net_dev_base_head'next = net_dev_base_head'next }
 151   | { _ } ->
 152       raise (Virt_mem_types.ParseError (struct_name, "parser_12", match_err));;
 153 let parser_13 bits =
 154   bitmatch bits with
 155   | { net_dev_base_head'next : zero+64 : offset(1152), littleendian } ->
 156       { net_dev_base_head'next = net_dev_base_head'next }
 157   | { _ } ->
 158       raise (Virt_mem_types.ParseError (struct_name, "parser_13", match_err));;
 159 module StringMap = Map.Make(String);;
 160 let map = StringMap.empty;;
 161 let v = (parser_1, 732, fieldsig_1);;
 162 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
 163 let v = (parser_1, 80, fieldsig_1);;
 164 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
 165 let v = (parser_1, 80, fieldsig_1);;
 166 let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
 167 let v = (parser_1, 80, fieldsig_1);;
 168 let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
 169 let v = (parser_2, 660, fieldsig_2);;
 170 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
 171 let v = (parser_2, 660, fieldsig_2);;
 172 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
 173 let v = (parser_3, 912, fieldsig_3);;
 174 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
 175 let v = (parser_3, 912, fieldsig_3);;
 176 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
 177 let v = (parser_3, 912, fieldsig_3);;
 178 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
 179 let v = (parser_3, 912, fieldsig_3);;
 180 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
 181 let v = (parser_3, 912, fieldsig_3);;
 182 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
 183 let v = (parser_1, 732, fieldsig_1);;
 184 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
 185 let v = (parser_1, 732, fieldsig_1);;
 186 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
 187 let v = (parser_4, 1352, fieldsig_4);;
 188 let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
 189 let v = (parser_1, 732, fieldsig_1);;
 190 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
 191 let v = (parser_4, 1352, fieldsig_4);;
 192 let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
 193 let v = (parser_1, 80, fieldsig_1);;
 194 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
 195 let v = (parser_1, 80, fieldsig_1);;
 196 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
 197 let v = (parser_5, 64, fieldsig_5);;
 198 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
 199 let v = (parser_6, 120, fieldsig_6);;
 200 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
 201 let v = (parser_7, 152, fieldsig_7);;
 202 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
 203 let v = (parser_1, 80, fieldsig_1);;
 204 let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
 205 let v = (parser_1, 80, fieldsig_1);;
 206 let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
 207 let v = (parser_5, 64, fieldsig_5);;
 208 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
 209 let v = (parser_6, 120, fieldsig_6);;
 210 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
 211 let v = (parser_7, 152, fieldsig_7);;
 212 let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
 213 let v = (parser_1, 80, fieldsig_1);;
 214 let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
 215 let v = (parser_1, 80, fieldsig_1);;
 216 let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
 217 let v = (parser_5, 64, fieldsig_5);;
 218 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
 219 let v = (parser_6, 120, fieldsig_6);;
 220 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
 221 let v = (parser_7, 152, fieldsig_7);;
 222 let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
 223 let v = (parser_8, 284, fieldsig_8);;
 224 let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
 225 let v = (parser_9, 488, fieldsig_9);;
 226 let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
 227 let v = (parser_2, 660, fieldsig_2);;
 228 let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
 229 let v = (parser_2, 660, fieldsig_2);;
 230 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
 231 let v = (parser_10, 1224, fieldsig_10);;
 232 let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
 233 let v = (parser_9, 1224, fieldsig_9);;
 234 let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
 235 let v = (parser_2, 660, fieldsig_2);;
 236 let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
 237 let v = (parser_2, 660, fieldsig_2);;
 238 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
 239 let v = (parser_5, 652, fieldsig_5);;
 240 let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
 241 let v = (parser_10, 1224, fieldsig_10);;
 242 let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
 243 let v = (parser_9, 1224, fieldsig_9);;
 244 let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
 245 let v = (parser_3, 912, fieldsig_3);;
 246 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
 247 let v = (parser_3, 912, fieldsig_3);;
 248 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
 249 let v = (parser_11, 860, fieldsig_11);;
 250 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
 251 let v = (parser_12, 1680, fieldsig_12);;
 252 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
 253 let v = (parser_13, 1680, fieldsig_13);;
 254 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
 255 let v = (parser_3, 912, fieldsig_3);;
 256 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
 257 let v = (parser_3, 912, fieldsig_3);;
 258 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
 259 let v = (parser_11, 860, fieldsig_11);;
 260 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
 261 let v = (parser_12, 1680, fieldsig_12);;
 262 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
 263 let v = (parser_13, 1680, fieldsig_13);;
 264 let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
 265 let v = (parser_3, 912, fieldsig_3);;
 266 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
 267 let v = (parser_3, 912, fieldsig_3);;
 268 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
 269 let v = (parser_11, 860, fieldsig_11);;
 270 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
 271 let v = (parser_12, 1680, fieldsig_12);;
 272 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
 273 let v = (parser_13, 1680, fieldsig_13);;
 274 let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
 275 let v = (parser_3, 912, fieldsig_3);;
 276 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
 277 let v = (parser_3, 912, fieldsig_3);;
 278 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
 279 let v = (parser_11, 860, fieldsig_11);;
 280 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
 281 let v = (parser_12, 1680, fieldsig_12);;
 282 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
 283 let v = (parser_13, 1680, fieldsig_13);;
 284 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
 285 let v = (parser_3, 912, fieldsig_3);;
 286 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
 287 let v = (parser_3, 912, fieldsig_3);;
 288 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
 289 let v = (parser_11, 860, fieldsig_11);;
 290 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
 291 let v = (parser_12, 1680, fieldsig_12);;
 292 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
 293 let v = (parser_13, 1680, fieldsig_13);;
 294 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
 295 let v = (parser_6, 120, fieldsig_6);;
 296 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
 297 let v = (parser_6, 120, fieldsig_6);;
 298 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
 299 let v = (parser_6, 120, fieldsig_6);;
 300 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
 301 let v = (parser_10, 1224, fieldsig_10);;
 302 let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
 303 let v = (parser_10, 1224, fieldsig_10);;
 304 let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
 305 let v = (parser_12, 1680, fieldsig_12);;
 306 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
 307 let v = (parser_12, 1680, fieldsig_12);;
 308 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
 309 let v = (parser_12, 1680, fieldsig_12);;
 310 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
 311 let v = (parser_12, 1680, fieldsig_12);;
 312 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
 313 let v = (parser_12, 1680, fieldsig_12);;
 314 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
 315 let v = (parser_5, 64, fieldsig_5);;
 316 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
 317 let v = (parser_5, 64, fieldsig_5);;
 318 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
 319 let v = (parser_5, 64, fieldsig_5);;
 320 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
 321 let v = (parser_5, 660, fieldsig_5);;
 322 let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
 323 let v = (parser_11, 864, fieldsig_11);;
 324 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
 325 let v = (parser_11, 864, fieldsig_11);;
 326 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
 327 let v = (parser_11, 864, fieldsig_11);;
 328 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
 329 let v = (parser_11, 864, fieldsig_11);;
 330 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
 331 let v = (parser_11, 864, fieldsig_11);;
 332 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
 333 type kernel_version = string;;
 334 let net_known version = StringMap.mem version map;;
 335 let net_size version =
 336   let (_, size, _) = StringMap.find version map in size;;
 337 let net_of_bits version bits =
 338   let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
 339 let get_net version mem addr =
 340   let (parsefn, size, _) = StringMap.find version map in
 341   let bytes = Virt_mem_mmap.get_bytes mem addr size in
 342   let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
 343 let field_signature_of_net_dev_base_head'next version =
 344   let (_, _, fs) = StringMap.find version map
 345   in fs.__fs_net_dev_base_head'next;;