142 lines
1.8 KiB
Text
142 lines
1.8 KiB
Text
# 1 "test.cppo"
|
|
(* comment *)
|
|
|
|
# 4 "test.cppo"
|
|
f(1)
|
|
# 6 "test.cppo"
|
|
2+ 3.14
|
|
# 8 "test.cppo"
|
|
3+ 3.14
|
|
|
|
# 13 "test.cppo"
|
|
"g" is not defined
|
|
|
|
# 18 "test.cppo"
|
|
b()
|
|
|
|
# 20 "test.cppo"
|
|
debug("a")
|
|
debug("b")
|
|
|
|
|
|
|
|
|
|
# 33 "test.cppo"
|
|
success
|
|
|
|
# 45 "test.cppo"
|
|
|
|
"abc\
|
|
xyz
|
|
def"
|
|
(* 123 \
|
|
789
|
|
456 *)
|
|
|
|
# 48 "test.cppo"
|
|
"a" "b"
|
|
|
|
# 51 "test.cppo"
|
|
aa ,bb 123
|
|
|
|
# 54 "test.cppo"
|
|
, ) (
|
|
|
|
# 56 "test.cppo"
|
|
blah #define xyz
|
|
|
|
# 63 "test.cppo"
|
|
_ _ (* the 2 underscores should be space-separated *)
|
|
|
|
# 67 "test.cppo"
|
|
+ + (* there should be some space between the pluses *)
|
|
|
|
# 69 "test.cppo"
|
|
(* (* nested comment with single single quote: ' *) "*)" *)
|
|
|
|
# 72 "test.cppo"
|
|
obj
|
|
# define
|
|
# 73 "test.cppo"
|
|
|
|
|
|
# 75 "test.cppo"
|
|
' (* lone single quote *)
|
|
|
|
# 78 "test.cppo"
|
|
1
|
|
# 78 "test.cppo"
|
|
= 1
|
|
|
|
# 82 "test.cppo"
|
|
#
|
|
# 82 "test.cppo"
|
|
is #
|
|
|
|
# 98 "test.cppo"
|
|
good maths
|
|
|
|
|
|
|
|
|
|
# 117 "test.cppo"
|
|
|
|
let g x =
|
|
printf "call %s\n%!" "g";
|
|
let y = g x in
|
|
printf "return %s\n%!" "g";
|
|
y
|
|
;;
|
|
|
|
|
|
# 124 "test.cppo"
|
|
class foo () =
|
|
object
|
|
|
|
# 126 "test.cppo"
|
|
|
|
val mutable field_1 : int option
|
|
method get_field_1 = field_1
|
|
method set_field_1 x = field_1 <- Some x
|
|
|
|
# 127 "test.cppo"
|
|
|
|
val mutable field_2 : string option
|
|
method get_field_2 = field_2
|
|
method set_field_2 x = field_2 <- Some x
|
|
# 128 "test.cppo"
|
|
end
|
|
|
|
# 135 "test.cppo"
|
|
|
|
(if !debug then
|
|
eprintf "[debug] %s %i: " "test.cppo" 135 ;
|
|
eprintf "test1 %i %i" x y;
|
|
eprintf "\n")
|
|
# 136 "test.cppo"
|
|
|
|
(if !debug then
|
|
eprintf "[debug] %s %i: " "test.cppo" 136 ;
|
|
eprintf "test2 %i" x;
|
|
eprintf "\n")
|
|
|
|
# 1 "incl.cppo"
|
|
included
|
|
|
|
# 1 "incl2.cppo"
|
|
ok
|
|
# 139 "test.cppo"
|
|
|
|
# 123456
|
|
|
|
|
|
# 789 "test"
|
|
# 1 "incl.cppo"
|
|
included
|
|
|
|
# 1 "incl2.cppo"
|
|
ok
|
|
|
|
|
|
# 793 "test"
|
|
end
|