File: ocaml2.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 (49 lines) | stat: -rw-r--r-- 1,161 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
@r@
expression E;
statement S;
@@

if (f(E)) S

@script:ocaml@
(es,e) << r.E;
@@

(* note that an expression is a pair after being unwrapped *)
match Ast_c.unwrap e with
  (Ast_c.Ident nm,_) -> Printf.printf "argument %s is an identifier\n" es
| _ -> Printf.printf "argument %s is not an identifier\n" es

@script:ocaml@
(es,_) << r.E;
(ss,s) << r.S;
@@

(* note that a statement is not a pair after being unwrapped *)
match Ast_c.unwrap s with
  Ast_c.Jump _ ->
       Printf.printf "%s: branch %s is a jump\n" es ss
| _ -> Printf.printf "%s: branch %s is not a jump\n" es ss


@script:ocaml@
(ss,s) << r.S;
(es,_) << r.E;
@@

(* note that a statement is not a pair after being unwrapped *)
match Ast_c.unwrap s with
  Ast_c.Decl _ ->
       Printf.printf "%s: branch %s is a declaration\n" es ss
| _ -> Printf.printf "%s: branch %s is not a declaration\n" es ss

@script:ocaml@
(ss,s) << r.S;
es << r.E;
@@

(* note that a statement is not a pair after being unwrapped *)
match Ast_c.unwrap s with
  Ast_c.ExprStatement _ ->
       Printf.printf "%s: branch %s is an exprstatement\n" es ss
| _ -> Printf.printf "%s: branch %s is not an exprstatement\n" es ss