Sophie

Sophie

distrib > Mageia > 7 > i586 > media > core-release > by-pkgid > 589b38626859682dda0b4289ae4806af > files > 144

coccinelle-examples-1.0.7-2.mga7.i586.rpm

@initialize:ocaml@
@@
open Postgresql

(*
let conn =
    let conninfo = "" in
    new Postgresql.connection ~conninfo ()
*)

@r@
identifier f;
expression x,a;
@@

f(x,a)

@script:ocaml@
f << r.f;
y << r.x;
yy << r.a;
@@

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@
@@
()

(*
conn#finish
*)