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
|
(** @TxtAttribute *)
val v1 : int
(** @ValueDeclaration *)
(** @ValueDeclaration *)
val v2 : int
(** @ValueDeclaration *)
type t1 = int
(** @TypeDeclaration *)
(** @TypeDeclaration *)
type t2 = A (** @ConstructorDeclaration *)
| B (** @ConstructorDeclaration *)
type t3 = [
| `A
| `B
]
(** @TypeDeclaration *)
type t4 = {
a : int; (** @LabelDeclaration *)
b : bool; (** @LabelDeclaration *)
}
type te = ..
(** @TypeDeclaration *)
(** @TypeExtension *)
type te += A (** @Extension *)
| B (** @Extension *)
(** @ModuleTypeDeclaration *)
module type Mt = sig
(** @TxtAttribute *)
type t = int
(** @TypeDeclaration *)
end
(** @ModuleDeclaration *)
module M : sig
(** @TxtAttribute *)
(** @ModuleDeclaration *)
module N : sig
(** @TxtAttribute *)
type t = int
(** @TypeDeclaration *)
end
end
exception Kaboom
(** @Exception *)
(**/**)
(** @Hidden *)
(**/**)
(** @IncludeDescription *)
include sig
(** @TxtAttribute *)
type t = int
(** @TypeDeclaration *)
end
(** @Class *)
class empty_class : object
method go : unit
(** @Method *)
end
|