git.annexia.org
/
virt-mem.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bfc24fb
)
Parsing fixes for camlp4 3.10.0 (Fedora 8).
author
Richard W.M. Jones
<rjones@redhat.com>
Thu, 7 Aug 2008 10:56:44 +0000
(11:56 +0100)
committer
Richard W.M. Jones
<rjones@redhat.com>
Thu, 7 Aug 2008 10:56:44 +0000
(11:56 +0100)
extract/codegen/kerneldb_to_parser.ml
patch
|
blob
|
history
diff --git
a/extract/codegen/kerneldb_to_parser.ml
b/extract/codegen/kerneldb_to_parser.ml
index
6414ce4
..
1d56126
100644
(file)
--- a/
extract/codegen/kerneldb_to_parser.ml
+++ b/
extract/codegen/kerneldb_to_parser.ml
@@
-80,7
+80,7
@@
Example (from toplevel of virt-mem source tree):
let infos = Sys.readdir kernelsdir in
let infos = Array.to_list infos in
let infos = List.filter (fun name -> String.ends_with name ".info") infos in
let infos = Sys.readdir kernelsdir in
let infos = Array.to_list infos in
let infos = List.filter (fun name -> String.ends_with name ".info") infos in
- let infos = List.map ((//) kernelsdir) infos in
+ let infos = List.map (
(//) kernelsdir) infos in
(* Regular expressions. We really really should use ocaml-mikmatch ... *)
let re_oldformat = Pcre.regexp "^RPM: \\d+: \\(build \\d+\\) ([-\\w]+) ([\\w.]+) ([\\w.]+) \\(.*?\\) (\\w+)" in
(* Regular expressions. We really really should use ocaml-mikmatch ... *)
let re_oldformat = Pcre.regexp "^RPM: \\d+: \\(build \\d+\\) ([-\\w]+) ([\\w.]+) ([\\w.]+) \\(.*?\\) (\\w+)" in
@@
-628,7
+628,7
@@
Example (from toplevel of virt-mem source tree):
) <:str_item< let map = StringMap.empty >> kernels in
<:str_item<
) <:str_item< let map = StringMap.empty >> kernels in
<:str_item<
- module StringMap = Map.Make (String)
+ module StringMap = Map.Make (String)
;;
$stmts$
>> in
$stmts$
>> in