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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
@r@
identifier f;
expression e;
position p;
@@
(
other
|
f@p
)
(
(
nothing
|
e
)
);
@script:ocaml@
f << r.f;
e << r.e;
p << r.p;
@@
Printf.printf "all matched: %s %s %s %d\n"
f e (List.hd p).file (List.hd p).line
@script:ocaml@
f << r.f = "no function";
e << r.e = "no argument";
p << r.p = [];
@@
match p with
[] -> Printf.printf "no pos: %s %s\n" f e
| p::_ -> Printf.printf "all matched: %s %s %s %d\n" f e p.file p.line
@script:ocaml@
f << r.f;
e << r.e = "no argument";
p << r.p = [];
@@
match p with
[] -> Printf.printf "fn required: no pos: %s %s\n" f e
| p::_ ->
Printf.printf "fn required: all matched: %s %s %s %d\n"
f e p.file p.line
@script:python@
f << r.f;
e << r.e;
p << r.p;
@@
print "py: all matched: %s %s %s %s" % (f,e,p[0].file,p[0].line)
@script:python@
f << r.f = "no function";
e << r.e = "no argument";
p << r.p = [];
@@
if not p:
print "py: no pos: %s %s" % (f,e)
else:
print "py: all matched: %s %s %s %s" % (f,e,p[0].file,p[0].line)
@script:python@
f << r.f;
e << r.e = "no argument";
p << r.p = [];
@@
if not p:
print "py: fun required: no pos: %s %s" % (f,e)
else:
print "py: fun required: all matched: %s %s %s %s" % (f,e,p[0].file,p[0].line)
|
