[bpt/coccinelle.git] / demos / pcre2.cocci

@m@
identifier SPAM ;
@@

SPAM

@script:ocaml r@
s << m.SPAM;
new_s;
@@

let re = Pcre.regexp "(WINE_)?(ERR|FIXME|WARN)" in
if Pcre.pmatch ~rex:re s then
(Printf.eprintf "Match %s\n" s;
 new_s := Pcre.replace_first ~pat:"WINE_" s
)
else
(Printf.eprintf "Not match %s\n" s;
 Coccilib.include_match false
)

@@
identifier m.SPAM;
identifier r.new_s;
@@

-SPAM
+new_s
Commit	Line	Data
993936c0 C	1	@m@
	2	identifier SPAM ;
	3	@@
	4
	5	SPAM
	6
	7	@script:ocaml r@
	8	s << m.SPAM;
	9	new_s;
	10	@@
	11
	12	let re = Pcre.regexp "(WINE_)?(ERR\|FIXME\|WARN)" in
	13	if Pcre.pmatch ~rex:re s then
	14	(Printf.eprintf "Match %s\n" s;
	15	new_s := Pcre.replace_first ~pat:"WINE_" s
	16	)
	17	else
	18	(Printf.eprintf "Not match %s\n" s;
	19	Coccilib.include_match false
	20	)
	21
	22	@@
	23	identifier m.SPAM;
	24	identifier r.new_s;
	25	@@
	26
	27	-SPAM
	28	+new_s