1 (* WARNING: This file and the corresponding mli (interface) are
2 * automatically generated by the extract/codegen/kerneldb_to_parser.ml
5 * Any edits you make to this file will be lost.
7 * To update this file from the latest kernel database, it is recommended
8 * that you do 'make update-kernel-structs'.
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 };;
18 __fs_net_dev_base_head'next =
19 { Virt_mem_types.field_available = true; field_offset = 68; };
23 __fs_net_dev_base_head'next =
24 { Virt_mem_types.field_available = true; field_offset = 64; };
28 __fs_net_dev_base_head'next =
29 { Virt_mem_types.field_available = true; field_offset = 52; };
33 __fs_net_dev_base_head'next =
34 { Virt_mem_types.field_available = true; field_offset = 48; };
38 __fs_net_dev_base_head'next =
39 { Virt_mem_types.field_available = true; field_offset = 72; };
43 __fs_net_dev_base_head'next =
44 { Virt_mem_types.field_available = true; field_offset = 128; };
48 __fs_net_dev_base_head'next =
49 { Virt_mem_types.field_available = true; field_offset = 48; };
53 __fs_net_dev_base_head'next =
54 { Virt_mem_types.field_available = true; field_offset = 88; };
58 __fs_net_dev_base_head'next =
59 { Virt_mem_types.field_available = true; field_offset = 120; };
63 __fs_net_dev_base_head'next =
64 { Virt_mem_types.field_available = true; field_offset = 96; };
68 __fs_net_dev_base_head'next =
69 { Virt_mem_types.field_available = true; field_offset = 96; };
73 __fs_net_dev_base_head'next =
74 { Virt_mem_types.field_available = true; field_offset = 56; };
78 __fs_net_dev_base_head'next =
79 { Virt_mem_types.field_available = true; field_offset = 144; };
83 __fs_net_dev_base_head'next =
84 { Virt_mem_types.field_available = true; field_offset = 144; };
88 | { net_dev_base_head'next : zero+32 : offset(544), littleendian } ->
89 { net_dev_base_head'next = net_dev_base_head'next }
91 raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
94 | { net_dev_base_head'next : zero+32 : offset(512), littleendian } ->
95 { net_dev_base_head'next = net_dev_base_head'next }
97 raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
100 | { net_dev_base_head'next : zero+32 : offset(416), littleendian } ->
101 { net_dev_base_head'next = net_dev_base_head'next }
103 raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
106 | { net_dev_base_head'next : zero+32 : offset(384), littleendian } ->
107 { net_dev_base_head'next = net_dev_base_head'next }
109 raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
112 | { net_dev_base_head'next : zero+32 : offset(576), littleendian } ->
113 { net_dev_base_head'next = net_dev_base_head'next }
115 raise (Virt_mem_types.ParseError (struct_name, "parser_5", match_err));;
118 | { net_dev_base_head'next : zero+64 : offset(1024), littleendian } ->
119 { net_dev_base_head'next = net_dev_base_head'next }
121 raise (Virt_mem_types.ParseError (struct_name, "parser_6", match_err));;
124 | { net_dev_base_head'next : zero+32 : offset(384), bigendian } ->
125 { net_dev_base_head'next = net_dev_base_head'next }
127 raise (Virt_mem_types.ParseError (struct_name, "parser_7", match_err));;
130 | { net_dev_base_head'next : zero+64 : offset(704), bigendian } ->
131 { net_dev_base_head'next = net_dev_base_head'next }
133 raise (Virt_mem_types.ParseError (struct_name, "parser_8", match_err));;
136 | { net_dev_base_head'next : zero+64 : offset(960), littleendian } ->
137 { net_dev_base_head'next = net_dev_base_head'next }
139 raise (Virt_mem_types.ParseError (struct_name, "parser_9", match_err));;
142 | { net_dev_base_head'next : zero+64 : offset(768), littleendian } ->
143 { net_dev_base_head'next = net_dev_base_head'next }
145 raise (Virt_mem_types.ParseError (struct_name, "parser_10", match_err));;
148 | { net_dev_base_head'next : zero+64 : offset(768), bigendian } ->
149 { net_dev_base_head'next = net_dev_base_head'next }
151 raise (Virt_mem_types.ParseError (struct_name, "parser_11", match_err));;
154 | { net_dev_base_head'next : zero+32 : offset(448), bigendian } ->
155 { net_dev_base_head'next = net_dev_base_head'next }
157 raise (Virt_mem_types.ParseError (struct_name, "parser_12", match_err));;
160 | { net_dev_base_head'next : zero+64 : offset(1152), bigendian } ->
161 { net_dev_base_head'next = net_dev_base_head'next }
163 raise (Virt_mem_types.ParseError (struct_name, "parser_13", match_err));;
166 | { net_dev_base_head'next : zero+64 : offset(1152), littleendian } ->
167 { net_dev_base_head'next = net_dev_base_head'next }
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_6, 616, fieldsig_6);;
207 let map = StringMap.add "2.6.25.14-69.fc8.x86_64" v map;;
208 let v = (parser_2, 732, fieldsig_2);;
209 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
210 let v = (parser_6, 1352, fieldsig_6);;
211 let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
212 let v = (parser_2, 732, fieldsig_2);;
213 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
214 let v = (parser_6, 1352, fieldsig_6);;
215 let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
216 let v = (parser_2, 80, fieldsig_2);;
217 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
218 let v = (parser_2, 80, fieldsig_2);;
219 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
220 let v = (parser_7, 64, fieldsig_7);;
221 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
222 let v = (parser_8, 120, fieldsig_8);;
223 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
224 let v = (parser_9, 152, fieldsig_9);;
225 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
226 let v = (parser_2, 80, fieldsig_2);;
227 let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
228 let v = (parser_2, 80, fieldsig_2);;
229 let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
230 let v = (parser_7, 64, fieldsig_7);;
231 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
232 let v = (parser_8, 120, fieldsig_8);;
233 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
234 let v = (parser_9, 152, fieldsig_9);;
235 let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
236 let v = (parser_2, 80, fieldsig_2);;
237 let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
238 let v = (parser_2, 80, fieldsig_2);;
239 let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
240 let v = (parser_7, 64, fieldsig_7);;
241 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
242 let v = (parser_8, 120, fieldsig_8);;
243 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
244 let v = (parser_9, 152, fieldsig_9);;
245 let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
246 let v = (parser_3, 284, fieldsig_3);;
247 let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
248 let v = (parser_10, 488, fieldsig_10);;
249 let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
250 let v = (parser_3, 284, fieldsig_3);;
251 let map = StringMap.add "2.6.25.14-69.fc8.i586" v map;;
252 let v = (parser_3, 284, fieldsig_3);;
253 let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
254 let v = (parser_11, 488, fieldsig_11);;
255 let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
256 let v = (parser_4, 660, fieldsig_4);;
257 let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
258 let v = (parser_4, 660, fieldsig_4);;
259 let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
260 let v = (parser_7, 652, fieldsig_7);;
261 let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
262 let v = (parser_11, 1224, fieldsig_11);;
263 let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
264 let v = (parser_10, 1224, fieldsig_10);;
265 let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
266 let v = (parser_4, 660, fieldsig_4);;
267 let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
268 let v = (parser_4, 660, fieldsig_4);;
269 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
270 let v = (parser_7, 652, fieldsig_7);;
271 let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
272 let v = (parser_11, 1224, fieldsig_11);;
273 let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
274 let v = (parser_10, 1224, fieldsig_10);;
275 let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
276 let v = (parser_5, 912, fieldsig_5);;
277 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;;
278 let v = (parser_5, 912, fieldsig_5);;
279 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
280 let v = (parser_12, 860, fieldsig_12);;
281 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
282 let v = (parser_13, 1680, fieldsig_13);;
283 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
284 let v = (parser_14, 1680, fieldsig_14);;
285 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;;
286 let v = (parser_5, 912, fieldsig_5);;
287 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;;
288 let v = (parser_5, 912, fieldsig_5);;
289 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
290 let v = (parser_12, 860, fieldsig_12);;
291 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
292 let v = (parser_13, 1680, fieldsig_13);;
293 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
294 let v = (parser_14, 1680, fieldsig_14);;
295 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;;
296 let v = (parser_5, 912, fieldsig_5);;
297 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
298 let v = (parser_5, 912, fieldsig_5);;
299 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
300 let v = (parser_12, 860, fieldsig_12);;
301 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
302 let v = (parser_13, 1680, fieldsig_13);;
303 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
304 let v = (parser_14, 1680, fieldsig_14);;
305 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
306 let v = (parser_5, 912, fieldsig_5);;
307 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
308 let v = (parser_5, 912, fieldsig_5);;
309 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
310 let v = (parser_12, 860, fieldsig_12);;
311 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
312 let v = (parser_13, 1680, fieldsig_13);;
313 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
314 let v = (parser_14, 1680, fieldsig_14);;
315 let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
316 let v = (parser_5, 912, fieldsig_5);;
317 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
318 let v = (parser_5, 912, fieldsig_5);;
319 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
320 let v = (parser_12, 860, fieldsig_12);;
321 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
322 let v = (parser_13, 1680, fieldsig_13);;
323 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
324 let v = (parser_14, 1680, fieldsig_14);;
325 let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
326 let v = (parser_5, 912, fieldsig_5);;
327 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
328 let v = (parser_5, 912, fieldsig_5);;
329 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
330 let v = (parser_12, 860, fieldsig_12);;
331 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
332 let v = (parser_13, 1680, fieldsig_13);;
333 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
334 let v = (parser_14, 1680, fieldsig_14);;
335 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
336 let v = (parser_5, 912, fieldsig_5);;
337 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
338 let v = (parser_5, 912, fieldsig_5);;
339 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
340 let v = (parser_12, 860, fieldsig_12);;
341 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
342 let v = (parser_13, 1680, fieldsig_13);;
343 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
344 let v = (parser_14, 1680, fieldsig_14);;
345 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
346 let v = (parser_8, 120, fieldsig_8);;
347 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
348 let v = (parser_8, 120, fieldsig_8);;
349 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
350 let v = (parser_8, 120, fieldsig_8);;
351 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
352 let v = (parser_11, 488, fieldsig_11);;
353 let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
354 let v = (parser_11, 1224, fieldsig_11);;
355 let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
356 let v = (parser_11, 1224, fieldsig_11);;
357 let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
358 let v = (parser_13, 1680, fieldsig_13);;
359 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
360 let v = (parser_13, 1680, fieldsig_13);;
361 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
362 let v = (parser_13, 1680, fieldsig_13);;
363 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
364 let v = (parser_13, 1680, fieldsig_13);;
365 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
366 let v = (parser_13, 1680, fieldsig_13);;
367 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
368 let v = (parser_13, 1680, fieldsig_13);;
369 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
370 let v = (parser_13, 1680, fieldsig_13);;
371 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
372 let v = (parser_7, 64, fieldsig_7);;
373 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
374 let v = (parser_7, 64, fieldsig_7);;
375 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
376 let v = (parser_7, 64, fieldsig_7);;
377 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
378 let v = (parser_7, 660, fieldsig_7);;
379 let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
380 let v = (parser_7, 660, fieldsig_7);;
381 let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
382 let v = (parser_12, 864, fieldsig_12);;
383 let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
384 let v = (parser_12, 864, fieldsig_12);;
385 let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
386 let v = (parser_12, 864, fieldsig_12);;
387 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
388 let v = (parser_12, 864, fieldsig_12);;
389 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
390 let v = (parser_12, 864, fieldsig_12);;
391 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
392 let v = (parser_12, 864, fieldsig_12);;
393 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
394 let v = (parser_12, 864, fieldsig_12);;
395 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
396 type kernel_version = string;;
397 let net_known version = StringMap.mem version map;;
398 let net_size version =
399 let (_, size, _) = StringMap.find version map in size;;
400 let net_of_bits version bits =
401 let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
402 let get_net version mem addr =
403 let (parsefn, size, _) = StringMap.find version map in
404 let bytes = Virt_mem_mmap.get_bytes mem addr size in
405 let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
406 let field_signature_of_net_dev_base_head'next version =
407 let (_, _, fs) = StringMap.find version map
408 in fs.__fs_net_dev_base_head'next;;