File: ocaml.cocci

package info (click to toggle)
coccinelle 1.0.8.deb-5
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 26,148 kB
  • sloc: ml: 136,392; ansic: 23,594; sh: 2,189; makefile: 2,157; perl: 1,576; lisp: 840; python: 823; awk: 70; csh: 12
file content (34 lines) | stat: -rw-r--r-- 697 bytes parent folder | download | duplicates (6)
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
29
30
31
32
33
34
@r@
expression x,a;
position p1, p2;
@@

f(x@p1,a@p2)

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

let p1_ = List.hd p1 in
let file1 = p1_.Coccilib.file in
let cure1 = p1_.Coccilib.current_element in
let line1 = p1_.Coccilib.line in
let line_end1 = p1_.Coccilib.line_end in
let colb1 = p1_.Coccilib.col in
let cole1 = p1_.Coccilib.col_end in

Printf.printf "%s and %s\n" y yy;
Printf.printf
	"%s @ p1 (file:\"%s\" fct:\"%s\" line:%d-%d col:%d-%d)\n"
	y file1 cure1 line1 line_end1 colb1 cole1;
Printf.printf "%s @ p2 - p2 is not used in the SP. ocamlc should have reported a warning.\n" yy

@script:ocaml@
y << r.a;
zz << r.x;
@@

Printf.printf "%s again and %s again \n" zz y