Commit | Line | Data |
---|---|---|
1 | @initialize:ocaml@ | |
2 | let a = ref 0 | |
3 | let _ = Printf.printf "starting ocaml\n" | |
4 | ||
5 | @r@ | |
6 | expression x,a; | |
7 | @@ | |
8 | ||
9 | f(x,a) | |
10 | ||
11 | @script:ocaml@ | |
12 | y << r.x; | |
13 | yy << r.a; | |
14 | @@ | |
15 | ||
16 | a := !a + 1; | |
17 | Printf.printf "%s and %s\n" y yy | |
18 | ||
19 | @script:ocaml@ | |
20 | y << r.a; | |
21 | zz << r.x; | |
22 | @@ | |
23 | ||
24 | a := !a + 1; | |
25 | Printf.printf "%s again and %s again \n" zz y | |
26 | ||
27 | @finalize:ocaml@ | |
28 | Printf.printf "ending ocaml %d\n" !a |