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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
let z = this one is pretty looooooooooooooooooooooooooooooooooong
and z = so is this oooooooooooooooooooooooooooooooooooooooooooone
let f x = x + 1
let z = this one is pretty looooooooooooooooooooooooooooooooooong
let z = so is this oooooooooooooooooooooooooooooooooooooooooooone
let g = ()
let f = function
| `a | `b | `c -> foo
| `xxxxxxxxxxxxxxxxxx ->
yyyyyyyyyyyyyyyyyyyyyyyy zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
let x = 1
and y = 2
let z = this one is pretty looooooooooooooooooooooooooooooooooong
let z = so is this oooooooooooooooooooooooooooooooooooooooooooone
module A = AA
module B = BB
open AA
module C = CC
module M =
X
(Y)
(struct
let x = k
end)
let x = 1
let y = 2
let x = 1
and y = 2
and c = { a : int; b : toto; c : char * char * char; d : [ `Foo | `Bar ] }
and z = this one is pretty looooooooooooooooooooooooooooooooooong
and z = so is this oooooooooooooooooooooooooooooooooooooooooooone
type k = A | B | K of int * char * string | E
let x = 1
let z = this one (is short)
let y = 2
let w =
this one is toooooooooooooooooooooooooo
(looooooooooooooooooooooooog but is (originally a one - liner))
let k = z
module N = struct
let x = 1
let z = soooooooooo is this oooooooooooooooooooooooooooooooooooooooooooone
let y = 2
let z = soooooooooo iis this oooooooooooooooooooooooooooooooooooooooooooone
let y = 2
module A = AA
include A
module B = BB
open B
end
let x = x
(** comment *)
and y = y
let x = x
(** floating comment *)
and y = y
let x = x
and y =
something veeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeery
veeeeeeeeeeeeeeeeeeeeeeeeeeeery long
let y =
something veeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeery
veeeeeeeeeeeeeeeeeeeeeeeeeeeery long
and x = x
let a = a
and a = a
and a = a
and a = a
and a = a
and a = a
let x = 1
(* floating *)
let y = 2
let cmos_rtc_seconds = 0x00
let cmos_rtc_seconds_alarm = 0x01
let cmos_rtc_minutes = 0x02
let x = o
let log_other = 0x000001
let log_cpu = 0x000002
let log_fpu = 0x000004
let cr0_pe = 1 lsl 0
let cr0_mp = 1 lsl 1
let cr0_em = 1 lsl 2
(* with double semicolons *)
let foo = fooooooooooooooooooooooooooooo
let foo = fooooooooooooooooooooooooooooo
|
