ocaml/no_prepare_ocamlcocci.ml

   1
   2 exception CompileFailure of string
   3 exception LinkFailure of string
   4
   5 let prepare coccifile code =
   6   let ocamls_rules =
   7     List.fold_left
   8       (function prev ->
   9         function
  10             Ast_cocci.ScriptRule (name,"ocaml",deps,mv,script_vars,code) ->
  11               code :: prev
  12           | Ast_cocci.InitialScriptRule (name,"ocaml",deps,code) ->
  13               code :: prev
  14           | Ast_cocci.FinalScriptRule (name,"ocaml",deps,code) ->
  15               code :: prev
  16           | _ -> prev)
  17       [] code in
  18   if ocamls_rules = []
  19   then None
  20   else failwith "OCaml scripting is unsupported. Compile spatch with OCaml version >= 3.11"
  21
  22 let load_file mlfile = ()
  23 let clean_file mlfile = ()
  24 let test () = ()
  25