3 (*****************************************************************************)
5 (*****************************************************************************)
7 * - extract from one git commit, or from a set of git commits
8 * - files from drivers/ and also from other directories now
9 * - .c and .h, local .h and also not local .h
10 * - files that were part of the patch, and so modified, but also
11 * other files (especially .h) to get more type information
15 (*****************************************************************************)
17 (*****************************************************************************)
19 (*****************************************************************************)
20 (* Main entry point *)
21 (*****************************************************************************)
23 let ex_kmallocmemset = "dd00cc486ab1c17049a535413d1751ef3482141c"
24 let ex_new_driver = "3faa1ffb4f4be7d10715f4b003ff7b27d14eae26"
25 let ex_delete_driver = "4d8506b806cc726c96db1c1a55edfb2da52217a9"
33 "Usage: " ^ basename
Sys.argv
.(0) ^
34 " <file> [options]" ^
"\n" ^
"Options are:"
37 Arg.parse
(Arg.align
options) (fun x
-> args := x
::!args) usage_msg;
38 args := List.rev
!args;
42 | _
-> Arg.usage
(Arg.align
options) usage_msg;
46 (*****************************************************************************)