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
|
let ocaml_support = false
exception CompileFailure of string
exception LinkFailure of string * string
let prepare coccifile code =
let ocamls_rules =
List.fold_left
(function prev ->
function
Ast_cocci.ScriptRule (name,"ocaml",deps,mv,script_vars,_pos,code) ->
code :: prev
| Ast_cocci.InitialScriptRule (name,"ocaml",deps,mvs,_pos,code) ->
code :: prev
| Ast_cocci.FinalScriptRule (name,"ocaml",deps,mvs,_pos,code) ->
code :: prev
| _ -> prev)
[] code in
if ocamls_rules = []
then None
else failwith "OCaml scripting is unsupported."
let prepare_simple _ =
failwith "OCaml scripting is unsupported. Compile spatch with OCaml version >= 3.11"
let load_file mlfile = ()
let clean_file mlfile = ()
let test () = ()
|
