Release coccinelle-0.2.1-rc1

[bpt/coccinelle.git] / commons / sexp_common.ml

diff --git a/commons/sexp_common.ml b/commons/sexp_common.ml
index 208d760..70ea49c 100644 (file)
--- a/commons/sexp_common.ml
+++ b/commons/sexp_common.ml
@@ -25,14 +25,14 @@ let either_of_sexp__ =
           Conv_error.nested_list_invalid_sum _loc sexp
       | (Sexp.List [] as sexp) -> Conv_error.empty_list_invalid_sum _loc sexp
       | sexp -> Conv_error.unexpected_stag _loc sexp
-  
+
 let either_of_sexp _of_a _of_b sexp = either_of_sexp__ _of_a _of_b sexp
-  
+
 let sexp_of_either _of_a _of_b =
   function
   | Left v1 -> let v1 = _of_a v1 in Sexp.List [ Sexp.Atom "Left"; v1 ]
   | Right v1 -> let v1 = _of_b v1 in Sexp.List [ Sexp.Atom "Right"; v1 ]
-  
+
 let either3_of_sexp__ =
   let _loc = "Xxx.either3"
   in
@@ -63,46 +63,46 @@ let either3_of_sexp__ =
           Conv_error.nested_list_invalid_sum _loc sexp
       | (Sexp.List [] as sexp) -> Conv_error.empty_list_invalid_sum _loc sexp
       | sexp -> Conv_error.unexpected_stag _loc sexp
-  
+
 let either3_of_sexp _of_a _of_b _of_c sexp =
   either3_of_sexp__ _of_a _of_b _of_c sexp
-  
+
 let sexp_of_either3 _of_a _of_b _of_c =
   function
   | Left3 v1 -> let v1 = _of_a v1 in Sexp.List [ Sexp.Atom "Left3"; v1 ]
   | Middle3 v1 -> let v1 = _of_b v1 in Sexp.List [ Sexp.Atom "Middle3"; v1 ]
   | Right3 v1 -> let v1 = _of_c v1 in Sexp.List [ Sexp.Atom "Right3"; v1 ]
-  
+
 let filename_of_sexp__ =
   let _loc = "Xxx.filename" in fun sexp -> Conv.string_of_sexp sexp
-  
+
 let filename_of_sexp sexp =
   try filename_of_sexp__ sexp
   with
   | Conv_error.No_variant_match ((msg, sexp)) -> Conv.of_sexp_error msg sexp
-  
+
 let sexp_of_filename v = Conv.sexp_of_string v
-  
+
 let dirname_of_sexp__ =
   let _loc = "Xxx.dirname" in fun sexp -> Conv.string_of_sexp sexp
-  
+
 let dirname_of_sexp sexp =
   try dirname_of_sexp__ sexp
   with
   | Conv_error.No_variant_match ((msg, sexp)) -> Conv.of_sexp_error msg sexp
-  
+
 let sexp_of_dirname v = Conv.sexp_of_string v
-  
+
 let set_of_sexp__ =
   let _loc = "Xxx.set" in fun _of_a -> Conv.list_of_sexp _of_a
-  
+
 let set_of_sexp _of_a sexp =
   try set_of_sexp__ _of_a sexp
   with
   | Conv_error.No_variant_match ((msg, sexp)) -> Conv.of_sexp_error msg sexp
-  
+
 let sexp_of_set _of_a = Conv.sexp_of_list _of_a
-  
+
 let assoc_of_sexp__ =
   let _loc = "Xxx.assoc"
   in
@@ -112,38 +112,38 @@ let assoc_of_sexp__ =
          | Sexp.List ([ v1; v2 ]) ->
              let v1 = _of_a v1 and v2 = _of_b v2 in (v1, v2)
          | sexp -> Conv_error.tuple_of_size_n_expected _loc 2 sexp)
-  
+
 let assoc_of_sexp _of_a _of_b sexp =
   try assoc_of_sexp__ _of_a _of_b sexp
   with
   | Conv_error.No_variant_match ((msg, sexp)) -> Conv.of_sexp_error msg sexp
-  
+
 let sexp_of_assoc _of_a _of_b =
   Conv.sexp_of_list
     (fun (v1, v2) ->
        let v1 = _of_a v1 and v2 = _of_b v2 in Sexp.List [ v1; v2 ])
-  
+
 let hashset_of_sexp__ =
   let _loc = "Xxx.hashset"
   in fun _of_a -> Conv.hashtbl_of_sexp _of_a Conv.bool_of_sexp
-  
+
 let hashset_of_sexp _of_a sexp =
   try hashset_of_sexp__ _of_a sexp
   with
   | Conv_error.No_variant_match ((msg, sexp)) -> Conv.of_sexp_error msg sexp
-  
+
 let sexp_of_hashset _of_a = Conv.sexp_of_hashtbl _of_a Conv.sexp_of_bool
-  
+
 let stack_of_sexp__ =
   let _loc = "Xxx.stack" in fun _of_a -> Conv.list_of_sexp _of_a
-  
+
 let stack_of_sexp _of_a sexp =
   try stack_of_sexp__ _of_a sexp
   with
   | Conv_error.No_variant_match ((msg, sexp)) -> Conv.of_sexp_error msg sexp
-  
+
 let sexp_of_stack _of_a = Conv.sexp_of_list _of_a
-  
+
 let parse_info_of_sexp__ =
   let _loc = "Xxx.parse_info"
   in
@@ -222,9 +222,9 @@ let parse_info_of_sexp__ =
                         ((!column_field = None), "column");
                         ((!file_field = None), "file") ]))
     | (Sexp.Atom _ as sexp) -> Conv_error.record_list_instead_atom _loc sexp
-  
+
 let parse_info_of_sexp sexp = parse_info_of_sexp__ sexp
-  
+
 let sexp_of_parse_info {
                          str = v_str;
                          charpos = v_charpos;
@@ -248,7 +248,7 @@ let sexp_of_parse_info {
   let arg = Conv.sexp_of_string v_str in
   let bnd = Sexp.List [ Sexp.Atom "str"; arg ] in
   let bnds = bnd :: bnds in Sexp.List bnds
-  
+
 
 
 let score_result_of_sexp__ =
@@ -268,29 +268,29 @@ let score_result_of_sexp__ =
         Conv_error.nested_list_invalid_sum _loc sexp
     | (Sexp.List [] as sexp) -> Conv_error.empty_list_invalid_sum _loc sexp
     | sexp -> Conv_error.unexpected_stag _loc sexp
-  
+
 let score_result_of_sexp sexp = score_result_of_sexp__ sexp
-  
+
 let sexp_of_score_result =
   function
   | Ok -> Sexp.Atom "Ok"
   | Pb v1 ->
       let v1 = Conv.sexp_of_string v1 in Sexp.List [ Sexp.Atom "Pb"; v1 ]
-  
+
 let score_of_sexp__ =
   let _loc = "Xxx.score"
   in
     fun sexp ->
       Conv.hashtbl_of_sexp Conv.string_of_sexp score_result_of_sexp sexp
-  
+
 let score_of_sexp sexp =
   try score_of_sexp__ sexp
   with
   | Conv_error.No_variant_match ((msg, sexp)) -> Conv.of_sexp_error msg sexp
-  
+
 let sexp_of_score v =
   Conv.sexp_of_hashtbl Conv.sexp_of_string sexp_of_score_result v
-  
+
 
 let score_list_of_sexp__ =
   let _loc = "Xxx.score_list"
@@ -304,12 +304,12 @@ let score_list_of_sexp__ =
              in (v1, v2)
          | sexp -> Conv_error.tuple_of_size_n_expected _loc 2 sexp)
         sexp
-  
+
 let score_list_of_sexp sexp =
   try score_list_of_sexp__ sexp
   with
   | Conv_error.No_variant_match ((msg, sexp)) -> Conv.of_sexp_error msg sexp
-  
+
 let sexp_of_score_list v =
   Conv.sexp_of_list
     (fun (v1, v2) ->