Source file `test_parsing_fuzzy.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
(*
-let test_parse_ml_fuzzy dir_or_file =
-  let fullxs = 
-    Lib_parsing_ml.find_source_files_of_dir_or_files [dir_or_file] 
-    +> Skip_code.filter_files_if_skip_list
-  in
-  fullxs +> Console.progress (fun k -> List.iter (fun file -> 
-     k ();
-      try 
-        let _fuzzy = Parse_ml.parse_fuzzy file in
-        ()
-      with _exn ->
-        (* pr2 (spf "PB with: %s, exn = %s" file (Common.exn_to_s exn)); *)
-        pr2 file;
-  ));
-  ()
-
-let test_dump_ml_fuzzy file =
-  let fuzzy, _toks = Parse_ml.parse_fuzzy file in
-  let v = Ast_fuzzy.vof_trees fuzzy in
-  let s = Ocaml.string_of_v v in
-  pr2 s
-
-  "-parse_ml_fuzzy", "   <file or dir>", 
-  Common.mk_action_1_arg test_parse_ml_fuzzy;
-  "-dump_ml_fuzzy", "   <file>", 
-  Common.mk_action_1_arg test_dump_ml_fuzzy;

-let test_parse_fuzzy dir_or_file =
-  let fullxs = 
-    Lib_parsing_skip.find_source_files_of_dir_or_files [dir_or_file] 
-    +> Skip_code.filter_files_if_skip_list
-  in
-  fullxs +> Console.progress (fun k -> List.iter (fun file -> 
-     k ();
-      try 
-        let _fuzzy = Parse_skip.parse_fuzzy file in
-        ()
-      with _exn ->
-        (* pr2 (spf "PB with: %s, exn = %s" file (Common.exn_to_s exn)); *)
-        pr2 file;
-  ));
-  ()
-
-let test_dump_fuzzy file =
-  let fuzzy, _toks = Parse_skip.parse_fuzzy file in
-  let v = Ast_fuzzy.vof_trees fuzzy in
-  let s = Ocaml.string_of_v v in
-  pr2 s
-
-
-  "-parse_sk_fuzzy", "   <file or dir>", 
-  Common.mk_action_1_arg test_parse_fuzzy;
-  "-dump_sk_fuzzy", "   <file>", 
-  Common.mk_action_1_arg test_dump_fuzzy;

*)