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 = 64; };
23 __fs_net_dev_base_head'next =
24 { Virt_mem_types.field_available = true; field_offset = 48; };
28 __fs_net_dev_base_head'next =
29 { Virt_mem_types.field_available = true; field_offset = 72; };
33 __fs_net_dev_base_head'next =
34 { Virt_mem_types.field_available = true; field_offset = 128; };
38 __fs_net_dev_base_head'next =
39 { Virt_mem_types.field_available = true; field_offset = 48; };
43 __fs_net_dev_base_head'next =
44 { Virt_mem_types.field_available = true; field_offset = 88; };
48 __fs_net_dev_base_head'next =
49 { Virt_mem_types.field_available = true; field_offset = 120; };
53 __fs_net_dev_base_head'next =
54 { Virt_mem_types.field_available = true; field_offset = 52; };
58 __fs_net_dev_base_head'next =
59 { Virt_mem_types.field_available = true; field_offset = 96; };
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 = 56; };
73 __fs_net_dev_base_head'next =
74 { Virt_mem_types.field_available = true; field_offset = 144; };
78 __fs_net_dev_base_head'next =
79 { Virt_mem_types.field_available = true; field_offset = 144; };
83 | { net_dev_base_head'next : zero+32 : offset(512), littleendian } ->
84 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 64L }
86 raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
89 | { net_dev_base_head'next : zero+32 : offset(384), littleendian } ->
90 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 48L }
92 raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
95 | { net_dev_base_head'next : zero+32 : offset(576), littleendian } ->
96 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 72L }
98 raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
101 | { net_dev_base_head'next : zero+64 : offset(1024), littleendian } ->
102 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 128L }
104 raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
107 | { net_dev_base_head'next : zero+32 : offset(384), bigendian } ->
108 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 48L }
110 raise (Virt_mem_types.ParseError (struct_name, "parser_5", match_err));;
113 | { net_dev_base_head'next : zero+64 : offset(704), bigendian } ->
114 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 88L }
116 raise (Virt_mem_types.ParseError (struct_name, "parser_6", match_err));;
119 | { net_dev_base_head'next : zero+64 : offset(960), littleendian } ->
120 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 120L }
122 raise (Virt_mem_types.ParseError (struct_name, "parser_7", match_err));;
125 | { net_dev_base_head'next : zero+32 : offset(416), littleendian } ->
126 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 52L }
128 raise (Virt_mem_types.ParseError (struct_name, "parser_8", match_err));;
131 | { net_dev_base_head'next : zero+64 : offset(768), littleendian } ->
132 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 96L }
134 raise (Virt_mem_types.ParseError (struct_name, "parser_9", match_err));;
137 | { net_dev_base_head'next : zero+64 : offset(768), bigendian } ->
138 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 96L }
140 raise (Virt_mem_types.ParseError (struct_name, "parser_10", match_err));;
143 | { net_dev_base_head'next : zero+32 : offset(448), bigendian } ->
144 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 56L }
146 raise (Virt_mem_types.ParseError (struct_name, "parser_11", match_err));;
149 | { net_dev_base_head'next : zero+64 : offset(1152), bigendian } ->
150 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 144L }
152 raise (Virt_mem_types.ParseError (struct_name, "parser_12", match_err));;
155 | { net_dev_base_head'next : zero+64 : offset(1152), littleendian } ->
156 { net_dev_base_head'next = Int64.sub net_dev_base_head'next 144L }
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.2-2.fc8.i686" v map;;
171 let v = (parser_3, 912, fieldsig_3);;
172 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
173 let v = (parser_3, 912, fieldsig_3);;
174 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
175 let v = (parser_3, 912, fieldsig_3);;
176 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
177 let v = (parser_3, 912, fieldsig_3);;
178 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
179 let v = (parser_3, 912, fieldsig_3);;
180 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
181 let v = (parser_1, 732, fieldsig_1);;
182 let map = StringMap.add "2.6.26.1-9.fc9.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.2-2.fc8.i686" v map;;
187 let v = (parser_4, 1352, fieldsig_4);;
188 let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
189 let v = (parser_1, 80, fieldsig_1);;
190 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
191 let v = (parser_1, 80, fieldsig_1);;
192 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
193 let v = (parser_5, 64, fieldsig_5);;
194 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
195 let v = (parser_6, 120, fieldsig_6);;
196 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
197 let v = (parser_7, 152, fieldsig_7);;
198 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
199 let v = (parser_1, 80, fieldsig_1);;
200 let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
201 let v = (parser_1, 80, fieldsig_1);;
202 let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
203 let v = (parser_5, 64, fieldsig_5);;
204 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
205 let v = (parser_6, 120, fieldsig_6);;
206 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
207 let v = (parser_7, 152, fieldsig_7);;
208 let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
209 let v = (parser_1, 80, fieldsig_1);;
210 let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
211 let v = (parser_1, 80, fieldsig_1);;
212 let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
213 let v = (parser_5, 64, fieldsig_5);;
214 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
215 let v = (parser_6, 120, fieldsig_6);;
216 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
217 let v = (parser_7, 152, fieldsig_7);;
218 let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
219 let v = (parser_8, 284, fieldsig_8);;
220 let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
221 let v = (parser_9, 488, fieldsig_9);;
222 let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
223 let v = (parser_2, 660, fieldsig_2);;
224 let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
225 let v = (parser_2, 660, fieldsig_2);;
226 let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
227 let v = (parser_5, 652, fieldsig_5);;
228 let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
229 let v = (parser_10, 1224, fieldsig_10);;
230 let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
231 let v = (parser_9, 1224, fieldsig_9);;
232 let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
233 let v = (parser_3, 912, fieldsig_3);;
234 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
235 let v = (parser_3, 912, fieldsig_3);;
236 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
237 let v = (parser_11, 860, fieldsig_11);;
238 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
239 let v = (parser_12, 1680, fieldsig_12);;
240 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
241 let v = (parser_13, 1680, fieldsig_13);;
242 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
243 let v = (parser_3, 912, fieldsig_3);;
244 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
245 let v = (parser_3, 912, fieldsig_3);;
246 let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
247 let v = (parser_11, 860, fieldsig_11);;
248 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
249 let v = (parser_12, 1680, fieldsig_12);;
250 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
251 let v = (parser_13, 1680, fieldsig_13);;
252 let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
253 let v = (parser_3, 912, fieldsig_3);;
254 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
255 let v = (parser_3, 912, fieldsig_3);;
256 let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
257 let v = (parser_11, 860, fieldsig_11);;
258 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
259 let v = (parser_12, 1680, fieldsig_12);;
260 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
261 let v = (parser_13, 1680, fieldsig_13);;
262 let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
263 let v = (parser_3, 912, fieldsig_3);;
264 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
265 let v = (parser_3, 912, fieldsig_3);;
266 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
267 let v = (parser_11, 860, fieldsig_11);;
268 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
269 let v = (parser_12, 1680, fieldsig_12);;
270 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
271 let v = (parser_13, 1680, fieldsig_13);;
272 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
273 let v = (parser_3, 912, fieldsig_3);;
274 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
275 let v = (parser_3, 912, fieldsig_3);;
276 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
277 let v = (parser_11, 860, fieldsig_11);;
278 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
279 let v = (parser_12, 1680, fieldsig_12);;
280 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
281 let v = (parser_13, 1680, fieldsig_13);;
282 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
283 let v = (parser_6, 120, fieldsig_6);;
284 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
285 let v = (parser_6, 120, fieldsig_6);;
286 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
287 let v = (parser_6, 120, fieldsig_6);;
288 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
289 let v = (parser_10, 1224, fieldsig_10);;
290 let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
291 let v = (parser_12, 1680, fieldsig_12);;
292 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
293 let v = (parser_12, 1680, fieldsig_12);;
294 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
295 let v = (parser_12, 1680, fieldsig_12);;
296 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
297 let v = (parser_12, 1680, fieldsig_12);;
298 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
299 let v = (parser_12, 1680, fieldsig_12);;
300 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
301 let v = (parser_5, 64, fieldsig_5);;
302 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
303 let v = (parser_5, 64, fieldsig_5);;
304 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
305 let v = (parser_5, 64, fieldsig_5);;
306 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
307 let v = (parser_5, 660, fieldsig_5);;
308 let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
309 let v = (parser_11, 864, fieldsig_11);;
310 let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
311 let v = (parser_11, 864, fieldsig_11);;
312 let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
313 let v = (parser_11, 864, fieldsig_11);;
314 let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
315 let v = (parser_11, 864, fieldsig_11);;
316 let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
317 let v = (parser_11, 864, fieldsig_11);;
318 let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
319 type kernel_version = string;;
320 let net_known version = StringMap.mem version map;;
321 let net_size version =
322 let (_, size, _) = StringMap.find version map in size;;
323 let net_of_bits version bits =
324 let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
325 let get_net version mem addr =
326 let (parsefn, size, _) = StringMap.find version map in
327 let bytes = Virt_mem_mmap.get_bytes mem addr size in
328 let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
329 let field_signature_of_net_dev_base_head'next version =
330 let (_, _, fs) = StringMap.find version map
331 in fs.__fs_net_dev_base_head'next;;