@initialize:ocaml@ @@ let filename = "/tmp/pgtest" let db = Dbm.opendbm filename [Dbm.Dbm_rdwr;Dbm.Dbm_create] 600 let _ = Printf.eprintf "Applies to %s\n" (Coccilib.dir ()) @r@ identifier f; expression x,a; @@ f(x,a) @script:ocaml@ f << r.f; y << r.x; yy << r.a; @@ Dbm.add db y yy; if Str.string_match (Str.regexp "^foo") f 0 then Printf.eprintf "Fct '%s' matchs \"^foo\"\n" f else Printf.eprintf "Fct '%s' does not match \"^foo\"\n" f @finalize:ocaml@ @@ Dbm.iter (fun key data -> Printf.printf "'%s' goes with '%s'\n" key data) db; Dbm.close db; Sys.remove (filename^".dir"); Sys.remove (filename^".pag")