From 81602ac210696be015a9455c2680c612be060503 Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Mon, 26 Apr 2021 21:41:10 +0300 Subject: [PATCH 01/10] delete test cases from test dir Signed-off-by: lubegasimon --- test/cases/.ocamlformat | 1 - test/cases/alias.ml | 7 -- test/cases/bugs.ml | 5 - test/cases/bugs_post_406.mli | 10 -- test/cases/bugs_pre_410.ml | 6 - test/cases/class.mli | 26 ----- test/cases/external.mli | 2 - test/cases/functor.mli | 19 ---- test/cases/functor2.mli | 15 --- test/cases/include.mli | 48 -------- test/cases/include2.ml | 24 ---- test/cases/include_sections.mli | 41 ------- test/cases/interlude.mli | 21 ---- test/cases/labels.mli | 58 ---------- test/cases/markup.mli | 179 ------------------------------ test/cases/mld.mld | 34 ------ test/cases/module.mli | 44 -------- test/cases/nested.mli | 84 -------------- test/cases/ocamlary.mli | 1 - test/cases/recent.mli | 58 ---------- test/cases/recent_impl.ml | 29 ----- test/cases/section.mli | 30 ----- test/cases/stop.mli | 42 ------- test/cases/stop_dead_link_doc.mli | 27 ----- test/cases/type.mli | 138 ----------------------- test/cases/val.mli | 7 -- 26 files changed, 956 deletions(-) delete mode 100644 test/cases/.ocamlformat delete mode 100644 test/cases/alias.ml delete mode 100644 test/cases/bugs.ml delete mode 100644 test/cases/bugs_post_406.mli delete mode 100644 test/cases/bugs_pre_410.ml delete mode 100644 test/cases/class.mli delete mode 100644 test/cases/external.mli delete mode 100644 test/cases/functor.mli delete mode 100644 test/cases/functor2.mli delete mode 100644 test/cases/include.mli delete mode 100644 test/cases/include2.ml delete mode 100644 test/cases/include_sections.mli delete mode 100644 test/cases/interlude.mli delete mode 100644 test/cases/labels.mli delete mode 100644 test/cases/markup.mli delete mode 100644 test/cases/mld.mld delete mode 100644 test/cases/module.mli delete mode 100644 test/cases/nested.mli delete mode 120000 test/cases/ocamlary.mli delete mode 100644 test/cases/recent.mli delete mode 100644 test/cases/recent_impl.ml delete mode 100644 test/cases/section.mli delete mode 100644 test/cases/stop.mli delete mode 100644 test/cases/stop_dead_link_doc.mli delete mode 100644 test/cases/type.mli delete mode 100644 test/cases/val.mli diff --git a/test/cases/.ocamlformat b/test/cases/.ocamlformat deleted file mode 100644 index 4d6556cb8b..0000000000 --- a/test/cases/.ocamlformat +++ /dev/null @@ -1 +0,0 @@ -disable = true diff --git a/test/cases/alias.ml b/test/cases/alias.ml deleted file mode 100644 index b458bc3420..0000000000 --- a/test/cases/alias.ml +++ /dev/null @@ -1,7 +0,0 @@ -module Foo__X = struct - (** Module Foo__X documentation. This should appear in the documentation - for the alias to this module 'X' *) - type t = int -end - -module X = Foo__X diff --git a/test/cases/bugs.ml b/test/cases/bugs.ml deleted file mode 100644 index 2c9c30bbd7..0000000000 --- a/test/cases/bugs.ml +++ /dev/null @@ -1,5 +0,0 @@ -type 'a opt = 'a option -let foo (type a) ?(bar : a opt) () = () -(** Triggers an assertion failure when - {:https://github.com/ocaml/odoc/issues/101} is not fixed. *) - diff --git a/test/cases/bugs_post_406.mli b/test/cases/bugs_post_406.mli deleted file mode 100644 index 757c001a02..0000000000 --- a/test/cases/bugs_post_406.mli +++ /dev/null @@ -1,10 +0,0 @@ -(** Let-open in class types, https://github.com/ocaml/odoc/issues/543 - This was added to the language in 4.06 *) - -class type let_open = - let open List in - object end - -class let_open' : - let open List in - object end diff --git a/test/cases/bugs_pre_410.ml b/test/cases/bugs_pre_410.ml deleted file mode 100644 index 0baca54d3b..0000000000 --- a/test/cases/bugs_pre_410.ml +++ /dev/null @@ -1,6 +0,0 @@ -type 'a opt' = int option -let foo' (type a) ?(bar : a opt') () = () -(** Similar to [Bugs], but the printed type of [~bar] should be [int], not - ['a]. This probably requires fixing in the compiler. See - {:https://github.com/ocaml/odoc/pull/230#issuecomment-433226807}. *) - diff --git a/test/cases/class.mli b/test/cases/class.mli deleted file mode 100644 index b536b0dbda..0000000000 --- a/test/cases/class.mli +++ /dev/null @@ -1,26 +0,0 @@ -class type empty = -object -end - -class type mutually = -object -end - -and recursive = -object -end - -class mutually' : mutually -and recursive' : recursive - -class type virtual empty_virtual = -object -end - -class virtual empty_virtual' : empty - -class type ['a] polymorphic = -object -end - -class ['a] polymorphic' : ['a] polymorphic diff --git a/test/cases/external.mli b/test/cases/external.mli deleted file mode 100644 index 9d68518931..0000000000 --- a/test/cases/external.mli +++ /dev/null @@ -1,2 +0,0 @@ -external foo : unit -> unit = "bar" -(** Foo {e bar}. *) diff --git a/test/cases/functor.mli b/test/cases/functor.mli deleted file mode 100644 index 8d13c39eb2..0000000000 --- a/test/cases/functor.mli +++ /dev/null @@ -1,19 +0,0 @@ -module type S = -sig - type t -end - -module type S1 = functor (_ : S) -> S - -module F1 : functor (Arg : S) -> S - -module F2 : functor (Arg : S) -> (S with type t = Arg.t) - -module F3 : functor (Arg : S) -> -sig - type t = Arg.t -end - -module F4 (Arg : S) : S - -module F5 () : S diff --git a/test/cases/functor2.mli b/test/cases/functor2.mli deleted file mode 100644 index 404e4671a2..0000000000 --- a/test/cases/functor2.mli +++ /dev/null @@ -1,15 +0,0 @@ -(* test *) - -module type S = sig type t end - -module X : functor (Y:S) -> functor (Z:S) -> sig - type y_t = Y.t - type z_t = Z.t - type x_t = y_t -end - -module type XF = functor (Y:S) -> functor (Z:S) -> sig - type y_t = Y.t - type z_t = Z.t - type x_t = y_t -end diff --git a/test/cases/include.mli b/test/cases/include.mli deleted file mode 100644 index f468c3cfc0..0000000000 --- a/test/cases/include.mli +++ /dev/null @@ -1,48 +0,0 @@ -module type Not_inlined = -sig - type t -end - -include Not_inlined - -module type Inlined = -sig - type u -end - -include Inlined -(** @inline *) - -module type Not_inlined_and_closed = -sig - type v -end - -include Not_inlined_and_closed -(** @closed *) - -module type Not_inlined_and_opened = -sig - type w -end - -include Not_inlined_and_opened -(** @open - @closed *) - -(* This demostrates that overridden values are never rendered*) -module type Inherent_Module = -sig - val a : t -end - -include Inherent_Module - - -module type Dorminant_Module = -sig - include Inherent_Module - val a : u -end - -include Dorminant_Module diff --git a/test/cases/include2.ml b/test/cases/include2.ml deleted file mode 100644 index bbfc4ca841..0000000000 --- a/test/cases/include2.ml +++ /dev/null @@ -1,24 +0,0 @@ -(** Comment about X that should not appear when including X below. *) -module X = struct - type t = int -end - -include X - -module Y = struct - (** Top-comment of Y. *) - - type t -end - -module Y_include_synopsis = struct - (** The [include Y] below should have the synopsis from [Y]'s top-comment - attached to it. *) - - include Y -end - -module Y_include_doc = struct - include Y - (** Doc attached to [include Y]. [Y]'s top-comment shouldn't appear here. *) -end diff --git a/test/cases/include_sections.mli b/test/cases/include_sections.mli deleted file mode 100644 index d4357c182a..0000000000 --- a/test/cases/include_sections.mli +++ /dev/null @@ -1,41 +0,0 @@ -(** A module type. *) -module type Something = sig - - val something : unit - - (** {1 Something 1} - - foo *) - - val foo : unit - - (** {2 Something 2} *) - - val bar : unit - (** foo bar *) - - (** {1 Something 1-bis} - - Some text. *) -end - -(** Let's include {!Something} once *) - -include Something (** @inline *) - -(** {1 Second include} - - Let's include {!Something} a second time: the heading level should be shift here. *) - -include Something (** @inline *) - -(** {2 Third include} - - Shifted some more. *) - -include Something (** @inline *) - -(** And let's include it again, but without inlining it this time: the ToC - shouldn't grow. *) - -include Something diff --git a/test/cases/interlude.mli b/test/cases/interlude.mli deleted file mode 100644 index d8e79875b1..0000000000 --- a/test/cases/interlude.mli +++ /dev/null @@ -1,21 +0,0 @@ -(** This is the comment associated to the module. *) - -(** Some separate stray text at the top of the module. *) - -val foo : unit -(** Foo. *) - -(** Some stray text that is not associated with any signature item. - - It has multiple paragraphs. *) - -(** A separate block of stray text, adjacent to the preceding one. *) - -val bar : unit -(** Bar. *) - -val multiple : unit -val signature : unit -val items : unit - -(** Stray text at the bottom of the module. *) diff --git a/test/cases/labels.mli b/test/cases/labels.mli deleted file mode 100644 index 5b361ca20e..0000000000 --- a/test/cases/labels.mli +++ /dev/null @@ -1,58 +0,0 @@ -(** {1:L1 Attached to unit} *) - -(** {1:L2 Attached to nothing} *) - -(** {1:L3 Attached to module} *) -module A : sig end - -(** {1:L4 Attached to type} *) -type t - -(** {1:L5 Attached to value} *) -val f : t - -(** {1:L5bis Attached to external} *) -external e : unit -> t = "t" - -(** {1:L6 Attached to module type} *) -module type S = sig end - -(** {1:L6 Attached to class} *) -class c : object end - -(** {1:L7 Attached to class type} *) -class type cs = object end - -(** {1:L8 Attached to exception} *) -exception E - -type x = .. - -(** {1:L9 Attached to extension} *) -type x += X - -(** {1:L10 Attached to module subst} *) -module S := A - -(** {1:L11 Attached to type subst} *) -type s := t - -type u = A' (** {1:L12 Attached to constructor} *) - -type v = { f : t (** {1:L13 Attached to field} *) } - -(** Testing that labels can be referenced - - {!L1} - - {!L2} - - {!L3} - - {!L4} - - {!L5} - - {!L6} - - {!L7} - - {!L8} - - {!L9} - - {!L10} - - {!L11} - - {!L12} - - {!L13} - *) diff --git a/test/cases/markup.mli b/test/cases/markup.mli deleted file mode 100644 index 369c7e6dda..0000000000 --- a/test/cases/markup.mli +++ /dev/null @@ -1,179 +0,0 @@ -(** Here, we test the rendering of comment markup. *) - - -(** {1 Sections} - - Let's get these done first, because sections will be used to break up the - rest of this test. - - Besides the section heading above, there are also - - {2 Subsection headings} - - and - - {3 Sub-subsection headings} - - but odoc has banned deeper headings. There are also title headings, but they - are only allowed in mld files. - - {3:anchors Anchors} - - Sections can have attached {!anchors}, and it is possible to {{!anchors} - link} to them. Links to section headers should not be set in source code - style. - - {4 Paragraph} - - Individual paragraphs can have a heading. - - {5 Subparagraph} - - Parts of a longer paragraph that can be considered alone can also have - headings. - - - {1 Styling} - - This paragraph has some styled elements: {b bold} and {i italic}, - {b {i bold italic}}, {e emphasis}, {e {e emphasis} within emphasis}, - {b {i bold italic}}, super{^script}, sub{_script}. The line spacing should - be enough for superscripts and subscripts not to look odd. - - Note: {i In italics {e emphasis} is rendered as normal text while {e - emphasis {e in} emphasis} is rendered in italics.} {i It also work the same - in {{:#} links in italics with {e emphasis {e in} emphasis}.}} - - [code] is a different kind of markup that doesn't allow nested markup. - - It's possible for two markup elements to appear {b next} {i to} each other - and have a space, and appear {b next}{i to} each other with no space. It - doesn't matter {b how} {i much} space it was in the source: in this - sentence, it was two space characters. And in this one, there is {b a} - {i newline}. - - This is also true between {e non-}[code] markup {e and} [code]. - - Code can appear {b inside [other] markup}. Its display shouldn't be - affected. - - - {1 Links and references} - - This is a {{:#} link}. It sends you to the top of this page. Links can have - markup inside them: {{:#} {b bold}}, {{:#} {i italics}}, - {{:#} {e emphasis}}, {{:#} super{^script}}, {{:#} sub{_script}}, and - {{:#} [code]}. Links can also be nested {e {{:#} inside}} markup. Links - cannot be nested inside each other. This link has no replacement text: - {{:#}}. The text is filled in by odoc. This is a shorthand link: {:#}. The - text is also filled in by odoc in this case. - - This is a reference to {!foo}. References can have replacement text: - {{!foo} the value foo}. Except for the special lookup support, references - are pretty much just like links. The replacement text can have nested - styles: {{!foo} {b bold}}, {{!foo} {i italic}}, {{!foo} {e emphasis}}, - {{!foo} super{^script}}, {{!foo} sub{_script}}, and {{!foo} [code]}. It's - also possible to surround a reference in a style: {b {!foo}}. References - can't be nested inside references, and links and references can't be nested - inside each other. - - - {1 Preformatted text} - - This is a code block: - - {[ - let foo = () - (** There are some nested comments in here, but an unpaired comment - terminator would terminate the whole doc surrounding comment. It's - best to keep code blocks no wider than 72 characters. *) - - let bar = - ignore foo - ]} - - There are also verbatim blocks: - -{v -The main difference is these don't get syntax highlighting. -v} - - - {1 Lists} - - - This is a - - shorthand bulleted list, - - and the paragraphs in each list item support {e styling}. - - + This is a - + shorthand numbered list. - - - Shorthand list items can span multiple lines, however trying to put two - paragraphs into a shorthand list item using a double line break - - just creates a paragraph outside the list. - - - Similarly, inserting a blank line between two list items - - - creates two separate lists. - - {ul - {li To get around this limitation, one - - can use explicitly-delimited lists.} - {li This one is bulleted,}} - - {ol {li but there is also the numbered variant.}} - - {ul - {li - {ul - {li lists} - {li can be nested} - {li and can include references} - {li {!foo}}}}} - - - {1 Unicode} - - The parser supports any ASCII-compatible encoding, in particuλar UTF-8. - - - {1 Raw HTML} - - Raw HTML can be {%html:%} as - inline elements into sentences. - - {%html: -
- If the raw HTML is the only thing in a paragraph, it is treated as a block - element, and won't be wrapped in paragraph tags by the HTML generator. -
- %} - - - {1 Modules} - - {!modules: } - {!modules: X} - {!modules: X Y Z} - - - {1 Tags} - - Each comment can end with zero or more tags. Here are some examples: - - @author antron - @deprecated a {e long} time ago - @param foo unused - @raise Failure always - @return never - @see <#> this url - @see 'foo.ml' this file - @see "Foo" this document - @since 0 - @before 1.0 it was in b{^e}t{_a} - @version -1 *) - -val foo : unit -(** Comments in structure items {b support} {e markup}, t{^o}{_o}. *) diff --git a/test/cases/mld.mld b/test/cases/mld.mld deleted file mode 100644 index 65e78dcb9b..0000000000 --- a/test/cases/mld.mld +++ /dev/null @@ -1,34 +0,0 @@ -{0 Mld Page} - -This is an [.mld] file. It doesn't have an auto-generated title, like modules -and other pages generated fully by odoc do. - -It will have a TOC generated from section headings. - -{1 Section} - -This is a section. - -Another paragraph in section. - -{1 Another section} - -This is another section. - -Another paragraph in section 2. - -{2 Subsection} - -This is a subsection. - -Another paragraph in subsection. - -Yet another paragraph in subsection. - -{2 Another Subsection} - -This is another subsection. - -Another paragraph in subsection 2. - -Yet another paragraph in subsection 2. diff --git a/test/cases/module.mli b/test/cases/module.mli deleted file mode 100644 index a270d525b4..0000000000 --- a/test/cases/module.mli +++ /dev/null @@ -1,44 +0,0 @@ -(** Foo. *) - -val foo : unit -(** The module needs at least one signature item, otherwise a bug causes the - compiler to drop the module comment (above). See - {{:https://caml.inria.fr/mantis/view.php?id=7701}}. *) - -module type S = -sig - type t - type u - type 'a v - type ('a, 'b) w - module M : sig end -end - -module type S1 - -module type S2 = S - -module type S3 = S with type t = int and type u = string - -module type S4 = S with type t := int - -module type S5 = S with type 'a v := 'a list - -type ('a, 'b) result - -module type S6 = S with type ('a, 'b) w := ('a, 'b) result - -module M' : sig end - -module type S7 = S with module M = M' - -module type S8 = S with module M := M' - -module type S9 = module type of M' - -open M' - -open! M' - -module rec Mutually : sig end -and Recursive : sig end diff --git a/test/cases/nested.mli b/test/cases/nested.mli deleted file mode 100644 index 795cc7a6ff..0000000000 --- a/test/cases/nested.mli +++ /dev/null @@ -1,84 +0,0 @@ - -(** This comment needs to be here before #235 is fixed. *) - -(** {1 Module} *) - -(** This is module X. - - Some additional comments. *) -module X : sig - - (** {1 Type} *) - - type t - (** Some type. *) - - (** {1 Values} *) - - val x : t - (** The value of x. *) -end - - -(** {1 Module type} *) - -(** This is module type Y. - - Some additional comments. *) -module type Y = sig - - (** {1 Type} *) - - type t - (** Some type. *) - - (** {1 Values} *) - - val y : t - (** The value of y. *) -end - - -(** {1 Functor} *) - -(** This is a functor F. - - Some additional comments. *) -module F - (Arg1 : Y) (Arg2 : sig - (** {1 Type} *) - - type t - (** Some type. *) - end) : sig - (** {1 Type} *) - - type t = Arg1.t * Arg2.t - (** Some type. *) -end - - -(** {1 Class} *) - -(** This is class z. - - Some additional comments. *) -class virtual z : object - - val y : int - (** Some value. *) - - val mutable virtual y' : int - - (** {1 Methods} *) - - method z : int - (** Some method. *) - - method private virtual z' : int -end - - -class virtual inherits : object - inherit z -end diff --git a/test/cases/ocamlary.mli b/test/cases/ocamlary.mli deleted file mode 120000 index f8393b80e0..0000000000 --- a/test/cases/ocamlary.mli +++ /dev/null @@ -1 +0,0 @@ -../../src/ocamlary/ocamlary.mli \ No newline at end of file diff --git a/test/cases/recent.mli b/test/cases/recent.mli deleted file mode 100644 index a6ceb09654..0000000000 --- a/test/cases/recent.mli +++ /dev/null @@ -1,58 +0,0 @@ -(* These tests are run on only the most recent version of the compiler that is - explicitly supported by odoc. This allows us to test doc generation for new - language features. *) - -module type S = sig end - -module type S1 = S -> S - -type variant = - | A - | B of int - | C (** foo *) - | D (** {e bar} *) - | E of {a : int} - -type _ gadt = - | A : int gadt - | B : int -> string gadt (** foo *) - | C : {a : int} -> unit gadt - -type polymorphic_variant = [ - | `A - | `B of int - | `C (** foo *) - | `D (** bar *) -] - -type empty_variant = | - -type nonrec nonrec_ = int - - -(* Conjunctive types: dune compilation scheme exposes a bug in old - versions of the compiler *) -type empty_conj= X: [< `X of & 'a & int * float ] -> empty_conj -type conj = X: [< `X of int & [< `B of int & float ] ] -> conj -val empty_conj: [< `X of & 'a & int * float ] -val conj : [< `X of int & [< `B of int & float ] ] - -module Z : sig - module Y : sig - module X : sig - type 'a t - end - end -end - -module X : sig - module L := Z.Y - type t = int L.X.t - type u := int - type v = u L.X.t -end - -module type PolyS = - sig type a = [ `A ] type t = [ a | `B ] end with type a := [ `A ] - - diff --git a/test/cases/recent_impl.ml b/test/cases/recent_impl.ml deleted file mode 100644 index 7aa10c958d..0000000000 --- a/test/cases/recent_impl.ml +++ /dev/null @@ -1,29 +0,0 @@ -module Foo = struct - module A = struct - type t = A - end - module B = struct - type t = B - end -end - -open (Foo : module type of Foo with module A := Foo.A) - -module B = B - -open Set.Make(struct type t = Foo.A.t let compare = compare end) - -type u = t - -module type S = sig - module F: sig end -> sig type t end - module X: sig end - open F(X) - val f: t -end - -open Foo - -(* Check that regular open still works as expected *) -module B' = B - diff --git a/test/cases/section.mli b/test/cases/section.mli deleted file mode 100644 index 44e14fa9f0..0000000000 --- a/test/cases/section.mli +++ /dev/null @@ -1,30 +0,0 @@ -(* Blank lines are needed because of - https://caml.inria.fr/mantis/view.php?id=7701. *) - -(** This is the module comment. Eventually, sections won't be allowed in it. *) - -(** {1 Empty section} *) - -(** {1 Text only} - - Foo bar. *) - -(** {1 Aside only} *) - -(** Foo bar. *) - -(** {1 Value only} *) - -val foo : unit - -(** {1 Empty section} - - {1 within a comment} - - {2 and one with a nested section} *) - -(** {1 {e This} [section] {b title} {_has} {^markup}} - - But links are impossible thanks to the parser, so we never have trouble - rendering a section title in a table of contents – no link will be nested - inside another link. *) diff --git a/test/cases/stop.mli b/test/cases/stop.mli deleted file mode 100644 index 789257b134..0000000000 --- a/test/cases/stop.mli +++ /dev/null @@ -1,42 +0,0 @@ -(** This test cases exercises stop comments. *) - -val foo : int -(** This is normal commented text. *) - -(** The next value is [bar], and it should be missing from the documentation. - There is also an entire module, [M], which should also be hidden. It - contains a nested stop comment, but that stop comment should not turn - documentation back on in this outer module, because stop comments respect - scope. *) - -(**/**) - -val bar : int -(** OMG! *) - -module M : -sig - val baz : int - - (**/**) -end - -(**/**) - -(** Documentation is on again. - - Now, we have a nested module, and it has a stop comment between its two - items. We want to see that the first item is displayed, but the second is - missing, and the stop comment disables documenation only in that module, and - not in this outer module. *) - -module N : -sig - val quux : int - - (**/**) - - val omg : int -end - -val lol : int diff --git a/test/cases/stop_dead_link_doc.mli b/test/cases/stop_dead_link_doc.mli deleted file mode 100644 index 351e2b1b6c..0000000000 --- a/test/cases/stop_dead_link_doc.mli +++ /dev/null @@ -1,27 +0,0 @@ -(* This tests that references to hidden items (items in no documentation mode) don't get rendered *) - -module Foo : sig - type t -end - -type foo = | Bar of Foo.t - -type bar = | Bar of { field : Foo.t } - -type foo_ = Bar_ of (int * Foo.t) * int -type bar_ = Bar__ of Foo.t option - -(**/**) -module Another_Foo : sig - type t -end -(**/**) - -(* this should be rendered as `type another_foo` because it contains a reference to a hidden module*) -type another_foo = | Bar of Another_Foo.t - -(* this should be rendered as `type another_bar` because it contains a reference to a hidden module*) -type another_bar = | Bar of { field : Another_Foo.t } - -type another_foo_ = Bar_ of (int * Another_Foo.t) * int -type another_bar_ = Bar__ of Another_Foo.t option diff --git a/test/cases/type.mli b/test/cases/type.mli deleted file mode 100644 index 228aeec027..0000000000 --- a/test/cases/type.mli +++ /dev/null @@ -1,138 +0,0 @@ -type abstract -(** Some {e documentation}. *) - -type alias = int - -type private_ = private int - -type 'a constructor = 'a - -type arrow = int -> int - -type higher_order = (int -> int) -> int - -type labeled = l:int -> int - -type optional = ?l:int -> int - -type labeled_higher_order = (l:int -> int) -> (?l:int -> int) -> int - -type pair = int * int - -type parens_dropped = (int * int) - -type triple = int * int * int - -type nested_pair = (int * int) * int - -type instance = int constructor - -type long = labeled_higher_order -> [ `Bar | `Baz of triple] -> pair -> labeled -> higher_order -> (string -> int) -> (int,float,char,string,char,unit) CamlinternalFormatBasics.fmtty -> nested_pair -> arrow -> string -> nested_pair array - -type variant_e = {a : int} -type variant = - | A - | B of int - | C (** foo *) - | D (** {e bar} *) - | E of variant_e - -type variant_c = {a: int} -type _ gadt = - | A : int gadt - | B : int -> string gadt - | C : variant_c -> unit gadt - -type degenerate_gadt = - | A : degenerate_gadt - -type private_variant = private A - -type record = { - a : int; - mutable b : int; - c : int; (** foo *) - d : int; (** {e bar} *) - e : 'a. 'a; -} - -(* 4.02 doesn't preserve doc comments on polymorphic variant constructors, but - they should be restored if 4.02 support is dropped, or if creating a test - that won't run on 4.02. *) -type polymorphic_variant = [ - | `A - | `B of int - | `C of int * unit - | `D -] - -type polymorphic_variant_extension = [ - | polymorphic_variant (** {not e} shown *) - | `E -] - -type nested_polymorphic_variant = [ - | `A of [ `B | `C ] -] - -type private_extenion = private [> polymorphic_variant ] - -type object_ = < - a : int; - b : int; (** foo *) - c : int; (** {e bar} *) -> - -module type X = sig type t type u end - -type module_ = (module X) - -type module_substitution = (module X with type t = int and type u = unit) - -type +'a covariant - -type -'a contravariant - -type _ bivariant = int - -type ('a, 'b) binary - -type using_binary = (int, int) binary - -type 'custom name - -type 'a constrained = 'a constraint 'a = int - -type 'a exact_variant = 'a constraint 'a = [ `A | `B of int ] - -type 'a lower_variant = 'a constraint 'a = [> `A | `B of int ] - -type 'a any_variant = 'a constraint 'a = [> ] - -type 'a upper_variant = 'a constraint 'a = [< `A | `B of int ] - -type 'a named_variant = 'a constraint 'a = [< polymorphic_variant ] - -type 'a exact_object = 'a constraint 'a = - -type 'a lower_object = 'a constraint 'a = - -type 'a poly_object = 'a constraint 'a = - -type ('a, 'b) double_constrained = 'a * 'b - constraint 'a = int - constraint 'b = unit - -type as_ = (int as 'a) * 'a - -type extensible = .. - -type extensible += - | Extension (** Documentation for {!Extension}. *) - | Another_extension (** Documentation for {!Another_extension}. *) - -type mutually = A of recursive -and recursive = B of mutually - -(* Not a type, but analogous to extensions. *) -exception Foo of int * int diff --git a/test/cases/val.mli b/test/cases/val.mli deleted file mode 100644 index 9503f92397..0000000000 --- a/test/cases/val.mli +++ /dev/null @@ -1,7 +0,0 @@ -val documented : unit -(** Foo. *) - -val undocumented : unit - -(** Bar. *) -val documented_above : unit From c2a30fe69c607df23ab2468f6f76b766d9e32e24 Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Mon, 26 Apr 2021 21:44:24 +0300 Subject: [PATCH 02/10] delete html dir and its content from test dir Signed-off-by: lubegasimon --- test/html/dune | 13 - test/html/expect/README.md | 3 - test/html/expect/highlight.pack.js | 1 - test/html/expect/odoc.css | 1 - .../Include/index.html | 137 -- .../Include2/index.html | 0 .../Include_sections/index.html | 0 .../module-type-Something/index.html | 0 .../Module/index.html | 111 - .../Section/index.html | 99 - .../Val/index.html | 53 - .../expect/test_package+ml/Alias/X/index.html | 38 - .../expect/test_package+ml/Alias/index.html | 38 - .../expect/test_package+ml/Bugs/index.html | 43 - .../test_package+ml/Bugs_post_406/index.html | 41 - .../test_package+ml/Bugs_pre_410/index.html | 43 - .../expect/test_package+ml/Class/index.html | 73 - .../test_package+ml/External/index.html | 38 - .../expect/test_package+ml/Functor/index.html | 63 - .../expect/test_package+ml/Include/index.html | 137 -- .../Include2/Y_include_doc/index.html | 45 - .../Include2/Y_include_synopsis/index.html | 43 - .../test_package+ml/Include2/index.html | 78 - .../Include_sections/index.html | 256 --- .../module-type-Something/index.html | 81 - .../test_package+ml/Interlude/index.html | 81 - .../expect/test_package+ml/Labels/index.html | 235 -- .../expect/test_package+ml/Markup/index.html | 378 --- .../expect/test_package+ml/Module/index.html | 111 - .../Nested/F/argument-1-Arg1/index.html | 64 - .../Nested/F/argument-2-Arg2/index.html | 48 - .../test_package+ml/Nested/F/index.html | 76 - .../test_package+ml/Nested/X/index.html | 70 - .../Nested/class-inherits/index.html | 33 - .../test_package+ml/Nested/class-z/index.html | 74 - .../expect/test_package+ml/Nested/index.html | 104 - .../Nested/module-type-Y/index.html | 70 - .../test_package+ml/Ocamlary/index.html | 2019 ---------------- .../test_package+ml/Recent/X/index.html | 48 - .../expect/test_package+ml/Recent/index.html | 244 -- .../test_package+ml/Recent_impl/index.html | 53 - .../expect/test_package+ml/Section/index.html | 99 - .../expect/test_package+ml/Stop/index.html | 60 - .../Stop_dead_link_doc/index.html | 119 - .../Toplevel_comments/Alias/index.html | 39 - .../Include_inline'/index.html | 46 - .../Include_inline/index.html | 38 - .../Toplevel_comments/M''/index.html | 33 - .../Toplevel_comments/M'/index.html | 30 - .../Toplevel_comments/M/index.html | 30 - .../Ref_in_synopsis/index.html | 39 - .../Toplevel_comments/class-c1/index.html | 33 - .../Toplevel_comments/class-c2/index.html | 33 - .../class-type-ct/index.html | 33 - .../Toplevel_comments/index.html | 161 -- .../module-type-Include_inline_T'/index.html | 46 - .../module-type-Include_inline_T/index.html | 38 - .../module-type-T/index.html | 39 - .../expect/test_package+ml/Type/index.html | 548 ----- .../Type/module-type-X/index.html | 0 .../expect/test_package+ml/Val/index.html | 53 - test/html/expect/test_package+ml/mld.html | 94 - .../expect/test_package+re/Alias/X/index.html | 38 - .../expect/test_package+re/Alias/index.html | 38 - .../expect/test_package+re/Bugs/index.html | 43 - .../test_package+re/Bugs_post_406/index.html | 41 - .../test_package+re/Bugs_pre_410/index.html | 43 - .../expect/test_package+re/Class/index.html | 73 - .../test_package+re/External/index.html | 38 - .../expect/test_package+re/Functor/index.html | 63 - .../expect/test_package+re/Include/index.html | 137 -- .../Include2/Y_include_doc/index.html | 45 - .../Include2/Y_include_synopsis/index.html | 43 - .../test_package+re/Include2/index.html | 78 - .../Include_sections/index.html | 256 --- .../module-type-Something/index.html | 81 - .../test_package+re/Interlude/index.html | 81 - .../expect/test_package+re/Labels/index.html | 237 -- .../expect/test_package+re/Markup/index.html | 378 --- .../expect/test_package+re/Module/index.html | 111 - .../Nested/F/argument-1-Arg1/index.html | 64 - .../Nested/F/argument-2-Arg2/index.html | 48 - .../test_package+re/Nested/F/index.html | 76 - .../test_package+re/Nested/X/index.html | 70 - .../Nested/class-inherits/index.html | 33 - .../test_package+re/Nested/class-z/index.html | 74 - .../expect/test_package+re/Nested/index.html | 104 - .../Nested/module-type-Y/index.html | 70 - .../test_package+re/Ocamlary/index.html | 2037 ----------------- .../test_package+re/Recent/X/index.html | 48 - .../expect/test_package+re/Recent/index.html | 248 -- .../test_package+re/Recent_impl/index.html | 53 - .../expect/test_package+re/Section/index.html | 99 - .../expect/test_package+re/Stop/index.html | 60 - .../Stop_dead_link_doc/index.html | 123 - .../Toplevel_comments/Alias/index.html | 39 - .../Include_inline'/index.html | 46 - .../Include_inline/index.html | 38 - .../Toplevel_comments/M''/index.html | 33 - .../Toplevel_comments/M'/index.html | 30 - .../Toplevel_comments/M/index.html | 30 - .../Ref_in_synopsis/index.html | 39 - .../Toplevel_comments/class-c1/index.html | 33 - .../Toplevel_comments/class-c2/index.html | 33 - .../class-type-ct/index.html | 33 - .../Toplevel_comments/index.html | 161 -- .../module-type-Include_inline_T'/index.html | 46 - .../module-type-Include_inline_T/index.html | 38 - .../module-type-T/index.html | 39 - .../expect/test_package+re/Type/index.html | 555 ----- .../expect/test_package+re/Val/index.html | 53 - test/html/expect/test_package+re/mld.html | 94 - test/html/test.ml | 350 --- test/html/tidy.ml | 55 - 114 files changed, 13530 deletions(-) delete mode 100644 test/html/dune delete mode 100644 test/html/expect/README.md delete mode 120000 test/html/expect/highlight.pack.js delete mode 120000 test/html/expect/odoc.css delete mode 100644 test/html/expect/test_package+custom_theme,ml/Include/index.html delete mode 100644 test/html/expect/test_package+custom_theme,ml/Include2/index.html delete mode 100644 test/html/expect/test_package+custom_theme,ml/Include_sections/index.html delete mode 100644 test/html/expect/test_package+custom_theme,ml/Include_sections/module-type-Something/index.html delete mode 100644 test/html/expect/test_package+custom_theme,ml/Module/index.html delete mode 100644 test/html/expect/test_package+custom_theme,ml/Section/index.html delete mode 100644 test/html/expect/test_package+custom_theme,ml/Val/index.html delete mode 100644 test/html/expect/test_package+ml/Alias/X/index.html delete mode 100644 test/html/expect/test_package+ml/Alias/index.html delete mode 100644 test/html/expect/test_package+ml/Bugs/index.html delete mode 100644 test/html/expect/test_package+ml/Bugs_post_406/index.html delete mode 100644 test/html/expect/test_package+ml/Bugs_pre_410/index.html delete mode 100644 test/html/expect/test_package+ml/Class/index.html delete mode 100644 test/html/expect/test_package+ml/External/index.html delete mode 100644 test/html/expect/test_package+ml/Functor/index.html delete mode 100644 test/html/expect/test_package+ml/Include/index.html delete mode 100644 test/html/expect/test_package+ml/Include2/Y_include_doc/index.html delete mode 100644 test/html/expect/test_package+ml/Include2/Y_include_synopsis/index.html delete mode 100644 test/html/expect/test_package+ml/Include2/index.html delete mode 100644 test/html/expect/test_package+ml/Include_sections/index.html delete mode 100644 test/html/expect/test_package+ml/Include_sections/module-type-Something/index.html delete mode 100644 test/html/expect/test_package+ml/Interlude/index.html delete mode 100644 test/html/expect/test_package+ml/Labels/index.html delete mode 100644 test/html/expect/test_package+ml/Markup/index.html delete mode 100644 test/html/expect/test_package+ml/Module/index.html delete mode 100644 test/html/expect/test_package+ml/Nested/F/argument-1-Arg1/index.html delete mode 100644 test/html/expect/test_package+ml/Nested/F/argument-2-Arg2/index.html delete mode 100644 test/html/expect/test_package+ml/Nested/F/index.html delete mode 100644 test/html/expect/test_package+ml/Nested/X/index.html delete mode 100644 test/html/expect/test_package+ml/Nested/class-inherits/index.html delete mode 100644 test/html/expect/test_package+ml/Nested/class-z/index.html delete mode 100644 test/html/expect/test_package+ml/Nested/index.html delete mode 100644 test/html/expect/test_package+ml/Nested/module-type-Y/index.html delete mode 100644 test/html/expect/test_package+ml/Ocamlary/index.html delete mode 100644 test/html/expect/test_package+ml/Recent/X/index.html delete mode 100644 test/html/expect/test_package+ml/Recent/index.html delete mode 100644 test/html/expect/test_package+ml/Recent_impl/index.html delete mode 100644 test/html/expect/test_package+ml/Section/index.html delete mode 100644 test/html/expect/test_package+ml/Stop/index.html delete mode 100644 test/html/expect/test_package+ml/Stop_dead_link_doc/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/Alias/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/Include_inline'/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/Include_inline/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/M''/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/M'/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/M/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/Ref_in_synopsis/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/class-c1/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/class-c2/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/class-type-ct/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/module-type-Include_inline_T'/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/module-type-Include_inline_T/index.html delete mode 100644 test/html/expect/test_package+ml/Toplevel_comments/module-type-T/index.html delete mode 100644 test/html/expect/test_package+ml/Type/index.html delete mode 100644 test/html/expect/test_package+ml/Type/module-type-X/index.html delete mode 100644 test/html/expect/test_package+ml/Val/index.html delete mode 100644 test/html/expect/test_package+ml/mld.html delete mode 100644 test/html/expect/test_package+re/Alias/X/index.html delete mode 100644 test/html/expect/test_package+re/Alias/index.html delete mode 100644 test/html/expect/test_package+re/Bugs/index.html delete mode 100644 test/html/expect/test_package+re/Bugs_post_406/index.html delete mode 100644 test/html/expect/test_package+re/Bugs_pre_410/index.html delete mode 100644 test/html/expect/test_package+re/Class/index.html delete mode 100644 test/html/expect/test_package+re/External/index.html delete mode 100644 test/html/expect/test_package+re/Functor/index.html delete mode 100644 test/html/expect/test_package+re/Include/index.html delete mode 100644 test/html/expect/test_package+re/Include2/Y_include_doc/index.html delete mode 100644 test/html/expect/test_package+re/Include2/Y_include_synopsis/index.html delete mode 100644 test/html/expect/test_package+re/Include2/index.html delete mode 100644 test/html/expect/test_package+re/Include_sections/index.html delete mode 100644 test/html/expect/test_package+re/Include_sections/module-type-Something/index.html delete mode 100644 test/html/expect/test_package+re/Interlude/index.html delete mode 100644 test/html/expect/test_package+re/Labels/index.html delete mode 100644 test/html/expect/test_package+re/Markup/index.html delete mode 100644 test/html/expect/test_package+re/Module/index.html delete mode 100644 test/html/expect/test_package+re/Nested/F/argument-1-Arg1/index.html delete mode 100644 test/html/expect/test_package+re/Nested/F/argument-2-Arg2/index.html delete mode 100644 test/html/expect/test_package+re/Nested/F/index.html delete mode 100644 test/html/expect/test_package+re/Nested/X/index.html delete mode 100644 test/html/expect/test_package+re/Nested/class-inherits/index.html delete mode 100644 test/html/expect/test_package+re/Nested/class-z/index.html delete mode 100644 test/html/expect/test_package+re/Nested/index.html delete mode 100644 test/html/expect/test_package+re/Nested/module-type-Y/index.html delete mode 100644 test/html/expect/test_package+re/Ocamlary/index.html delete mode 100644 test/html/expect/test_package+re/Recent/X/index.html delete mode 100644 test/html/expect/test_package+re/Recent/index.html delete mode 100644 test/html/expect/test_package+re/Recent_impl/index.html delete mode 100644 test/html/expect/test_package+re/Section/index.html delete mode 100644 test/html/expect/test_package+re/Stop/index.html delete mode 100644 test/html/expect/test_package+re/Stop_dead_link_doc/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/Alias/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/Include_inline'/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/Include_inline/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/M''/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/M'/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/M/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/Ref_in_synopsis/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/class-c1/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/class-c2/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/class-type-ct/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/module-type-Include_inline_T'/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/module-type-Include_inline_T/index.html delete mode 100644 test/html/expect/test_package+re/Toplevel_comments/module-type-T/index.html delete mode 100644 test/html/expect/test_package+re/Type/index.html delete mode 100644 test/html/expect/test_package+re/Val/index.html delete mode 100644 test/html/expect/test_package+re/mld.html delete mode 100644 test/html/test.ml delete mode 100644 test/html/tidy.ml diff --git a/test/html/dune b/test/html/dune deleted file mode 100644 index 9a72e3ed93..0000000000 --- a/test/html/dune +++ /dev/null @@ -1,13 +0,0 @@ -(executable - (name test) - (libraries alcotest markup)) - -(rule - (alias runtest) - (action - (run %{exe:test.exe})) - (deps - test.exe - %{workspace_root}/src/odoc/bin/main.exe - (source_tree ../cases) - (source_tree expect))) diff --git a/test/html/expect/README.md b/test/html/expect/README.md deleted file mode 100644 index ed2485aae0..0000000000 --- a/test/html/expect/README.md +++ /dev/null @@ -1,3 +0,0 @@ -The symlink `odoc.css` in this directory is a silly hack that helps to display -the HTML files in `test/html/cases/*` correctly: they expect `odoc.css` at -relative path `../../odoc.css`. The same is true for `highlight.pack.js`. diff --git a/test/html/expect/highlight.pack.js b/test/html/expect/highlight.pack.js deleted file mode 120000 index 7b7b542659..0000000000 --- a/test/html/expect/highlight.pack.js +++ /dev/null @@ -1 +0,0 @@ -../../../src/vendor/highlight.pack.js \ No newline at end of file diff --git a/test/html/expect/odoc.css b/test/html/expect/odoc.css deleted file mode 120000 index 95360cfe37..0000000000 --- a/test/html/expect/odoc.css +++ /dev/null @@ -1 +0,0 @@ -../../../src/odoc/etc/odoc.css \ No newline at end of file diff --git a/test/html/expect/test_package+custom_theme,ml/Include/index.html b/test/html/expect/test_package+custom_theme,ml/Include/index.html deleted file mode 100644 index 33869d5ed5..0000000000 --- a/test/html/expect/test_package+custom_theme,ml/Include/index.html +++ /dev/null @@ -1,137 +0,0 @@ - - - - - Include (test_package+custom_theme,ml.Include) - - - - - - - - - - -
-

- Module Include -

-
-
-
-
- module type Not_inlined = sig ... end -
-
-
-
- - include Not_inlined - -
-
- type t -
-
-
-
-
-
- module type Inlined = sig ... end -
-
-
-
-
- type u -
-
-
-
-
- module type Not_inlined_and_closed = sig ... end -
-
-
-
- - include Not_inlined_and_closed - -
-
- type v -
-
-
-
-
-
- module type Not_inlined_and_opened = sig ... end -
-
-
-
- - include Not_inlined_and_opened - -
-
- type w -
-
-
-
-
-
- module type Inherent_Module = sig ... end -
-
-
-
- - include Inherent_Module - -
-
- val a : t -
-
-
-
-
-
- module type Dorminant_Module = sig ... end -
-
-
-
- - include Dorminant_Module - -
-
- - include Inherent_Module - -
-
- val a : t -
-
-
-
-
-
- val a : u -
-
-
-
-
- - diff --git a/test/html/expect/test_package+custom_theme,ml/Include2/index.html b/test/html/expect/test_package+custom_theme,ml/Include2/index.html deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/test/html/expect/test_package+custom_theme,ml/Include_sections/index.html b/test/html/expect/test_package+custom_theme,ml/Include_sections/index.html deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/test/html/expect/test_package+custom_theme,ml/Include_sections/module-type-Something/index.html b/test/html/expect/test_package+custom_theme,ml/Include_sections/module-type-Something/index.html deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/test/html/expect/test_package+custom_theme,ml/Module/index.html b/test/html/expect/test_package+custom_theme,ml/Module/index.html deleted file mode 100644 index a2968b9a1b..0000000000 --- a/test/html/expect/test_package+custom_theme,ml/Module/index.html +++ /dev/null @@ -1,111 +0,0 @@ - - - - - Module (test_package+custom_theme,ml.Module) - - - - - - - - - - -
-

- Module Module -

-

- Foo. -

-
-
-
-
- val foo : unit -
-
-

- The module needs at least one signature item, otherwise a bug causes the compiler to drop the module comment (above). See https://caml.inria.fr/mantis/view.php?id=7701. -

-
-
-
-
- module type S = sig ... end -
-
-
-
- module type S1 -
-
-
-
- module type S2 = S -
-
-
-
- module type S3 = S with type t = int and type u = string -
-
-
-
- module type S4 = S with type t := int -
-
-
-
- module type S5 = S with type 'a v := 'a list -
-
-
-
- type ('a, 'b) result -
-
-
-
- module type S6 = S with type ('a, 'b) w := ('a, 'b) result -
-
-
-
- module M' : sig ... end -
-
-
-
- module type S7 = S with module M = M' -
-
-
-
- module type S8 = S with module M := M' -
-
-
-
- module type S9 = module type of M' -
-
-
-
- module Mutually : sig ... end -
-
-
-
- module Recursive : sig ... end -
-
-
- - diff --git a/test/html/expect/test_package+custom_theme,ml/Section/index.html b/test/html/expect/test_package+custom_theme,ml/Section/index.html deleted file mode 100644 index 99071883fe..0000000000 --- a/test/html/expect/test_package+custom_theme,ml/Section/index.html +++ /dev/null @@ -1,99 +0,0 @@ - - - - - Section (test_package+custom_theme,ml.Section) - - - - - - - - - - -
-

- Module Section -

-

- This is the module comment. Eventually, sections won't be allowed in it. -

-
- -
-

- Empty section -

-

- Text only -

-

- Foo bar. -

-

- Aside only -

-

- Foo bar. -

-

- Value only -

-
-
- val foo : unit -
-
-

- Empty section -

-

- within a comment -

-

- and one with a nested section -

-

- This section title has markup -

-

- But links are impossible thanks to the parser, so we never have trouble rendering a section title in a table of contents – no link will be nested inside another link. -

-
- - diff --git a/test/html/expect/test_package+custom_theme,ml/Val/index.html b/test/html/expect/test_package+custom_theme,ml/Val/index.html deleted file mode 100644 index cffe59a264..0000000000 --- a/test/html/expect/test_package+custom_theme,ml/Val/index.html +++ /dev/null @@ -1,53 +0,0 @@ - - - - - Val (test_package+custom_theme,ml.Val) - - - - - - - - - - -
-

- Module Val -

-
-
-
-
- val documented : unit -
-
-

- Foo. -

-
-
-
-
- val undocumented : unit -
-
-
-
- val documented_above : unit -
-
-

- Bar. -

-
-
-
- - diff --git a/test/html/expect/test_package+ml/Alias/X/index.html b/test/html/expect/test_package+ml/Alias/X/index.html deleted file mode 100644 index 9de66487da..0000000000 --- a/test/html/expect/test_package+ml/Alias/X/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - X (test_package+ml.Alias.X) - - - - - - - - - - -
-

- Module Alias.X -

-
-
-
-
- type t = int -
-
-

- Module Foo__X documentation. This should appear in the documentation for the alias to this module 'X' -

-
-
-
- - diff --git a/test/html/expect/test_package+ml/Alias/index.html b/test/html/expect/test_package+ml/Alias/index.html deleted file mode 100644 index 370cc90eb2..0000000000 --- a/test/html/expect/test_package+ml/Alias/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - Alias (test_package+ml.Alias) - - - - - - - - - - -
-

- Module Alias -

-
-
-
-
- module Foo__X : sig ... end -
-
-
-
- module X : sig ... end -
-
-
- - diff --git a/test/html/expect/test_package+ml/Bugs/index.html b/test/html/expect/test_package+ml/Bugs/index.html deleted file mode 100644 index d03c639df1..0000000000 --- a/test/html/expect/test_package+ml/Bugs/index.html +++ /dev/null @@ -1,43 +0,0 @@ - - - - - Bugs (test_package+ml.Bugs) - - - - - - - - - - -
-

- Module Bugs -

-
-
-
-
- type 'a opt = 'a option -
-
-
-
- val foo : ?bar:'a -> unit -> unit -
-
-

- Triggers an assertion failure when https://github.com/ocaml/odoc/issues/101 is not fixed. -

-
-
-
- - diff --git a/test/html/expect/test_package+ml/Bugs_post_406/index.html b/test/html/expect/test_package+ml/Bugs_post_406/index.html deleted file mode 100644 index 4dfbde186b..0000000000 --- a/test/html/expect/test_package+ml/Bugs_post_406/index.html +++ /dev/null @@ -1,41 +0,0 @@ - - - - - Bugs_post_406 (test_package+ml.Bugs_post_406) - - - - - - - - - - -
-

- Module Bugs_post_406 -

-

- Let-open in class types, https://github.com/ocaml/odoc/issues/543 This was added to the language in 4.06 -

-
-
-
-
- class type let_open = object ... end -
-
-
-
- class let_open' : object ... end -
-
-
- - diff --git a/test/html/expect/test_package+ml/Bugs_pre_410/index.html b/test/html/expect/test_package+ml/Bugs_pre_410/index.html deleted file mode 100644 index 4c95e2bfba..0000000000 --- a/test/html/expect/test_package+ml/Bugs_pre_410/index.html +++ /dev/null @@ -1,43 +0,0 @@ - - - - - Bugs_pre_410 (test_package+ml.Bugs_pre_410) - - - - - - - - - - -
-

- Module Bugs_pre_410 -

-
-
-
-
- type 'a opt' = int option -
-
-
-
- val foo' : ?bar:'a -> unit -> unit -
-
-

- Similar to Bugs, but the printed type of ~bar should be int, not 'a. This probably requires fixing in the compiler. See https://github.com/ocaml/odoc/pull/230#issuecomment-433226807. -

-
-
-
- - diff --git a/test/html/expect/test_package+ml/Class/index.html b/test/html/expect/test_package+ml/Class/index.html deleted file mode 100644 index ea892bdaa9..0000000000 --- a/test/html/expect/test_package+ml/Class/index.html +++ /dev/null @@ -1,73 +0,0 @@ - - - - - Class (test_package+ml.Class) - - - - - - - - - - -
-

- Module Class -

-
-
-
-
- class type empty = object ... end -
-
-
-
- class type mutually = object ... end -
-
-
-
- class type recursive = object ... end -
-
-
-
- class mutually' : mutually -
-
-
-
- class recursive' : recursive -
-
-
-
- class type virtual empty_virtual = object ... end -
-
-
-
- class virtual empty_virtual' : empty -
-
-
-
- class type 'a polymorphic = object ... end -
-
-
-
- class 'a polymorphic' : 'a polymorphic -
-
-
- - diff --git a/test/html/expect/test_package+ml/External/index.html b/test/html/expect/test_package+ml/External/index.html deleted file mode 100644 index 60a139cdbc..0000000000 --- a/test/html/expect/test_package+ml/External/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - External (test_package+ml.External) - - - - - - - - - - -
-

- Module External -

-
-
-
-
- val foo : unit -> unit -
-
-

- Foo bar. -

-
-
-
- - diff --git a/test/html/expect/test_package+ml/Functor/index.html b/test/html/expect/test_package+ml/Functor/index.html deleted file mode 100644 index 3f5935f285..0000000000 --- a/test/html/expect/test_package+ml/Functor/index.html +++ /dev/null @@ -1,63 +0,0 @@ - - - - - Functor (test_package+ml.Functor) - - - - - - - - - - -
-

- Module Functor -

-
-
-
-
- module type S = sig ... end -
-
-
-
- module type S1 = functor (_ : S) -> S -
-
-
-
- module F1 (Arg : S) : S -
-
-
-
- module F2 (Arg : S) : S with type t = Arg.t -
-
-
-
- module F3 (Arg : S) : sig ... end -
-
-
-
- module F4 (Arg : S) : S -
-
-
-
- module F5 () : S -
-
-
- - diff --git a/test/html/expect/test_package+ml/Include/index.html b/test/html/expect/test_package+ml/Include/index.html deleted file mode 100644 index c6de2f9505..0000000000 --- a/test/html/expect/test_package+ml/Include/index.html +++ /dev/null @@ -1,137 +0,0 @@ - - - - - Include (test_package+ml.Include) - - - - - - - - - - -
-

- Module Include -

-
-
-
-
- module type Not_inlined = sig ... end -
-
-
-
- - include Not_inlined - -
-
- type t -
-
-
-
-
-
- module type Inlined = sig ... end -
-
-
-
-
- type u -
-
-
-
-
- module type Not_inlined_and_closed = sig ... end -
-
-
-
- - include Not_inlined_and_closed - -
-
- type v -
-
-
-
-
-
- module type Not_inlined_and_opened = sig ... end -
-
-
-
- - include Not_inlined_and_opened - -
-
- type w -
-
-
-
-
-
- module type Inherent_Module = sig ... end -
-
-
-
- - include Inherent_Module - -
-
- val a : t -
-
-
-
-
-
- module type Dorminant_Module = sig ... end -
-
-
-
- - include Dorminant_Module - -
-
- - include Inherent_Module - -
-
- val a : t -
-
-
-
-
-
- val a : u -
-
-
-
-
- - diff --git a/test/html/expect/test_package+ml/Include2/Y_include_doc/index.html b/test/html/expect/test_package+ml/Include2/Y_include_doc/index.html deleted file mode 100644 index 5dfaf3370b..0000000000 --- a/test/html/expect/test_package+ml/Include2/Y_include_doc/index.html +++ /dev/null @@ -1,45 +0,0 @@ - - - - - Y_include_doc (test_package+ml.Include2.Y_include_doc) - - - - - - - - - - -
-

- Module Include2.Y_include_doc -

-
-
-
-
-

- Doc attached to include Y. Y's top-comment shouldn't appear here. -

-
-
- - include module type of struct include Y end - -
-
- type t = Y.t -
-
-
-
-
- - diff --git a/test/html/expect/test_package+ml/Include2/Y_include_synopsis/index.html b/test/html/expect/test_package+ml/Include2/Y_include_synopsis/index.html deleted file mode 100644 index ba5ffa2601..0000000000 --- a/test/html/expect/test_package+ml/Include2/Y_include_synopsis/index.html +++ /dev/null @@ -1,43 +0,0 @@ - - - - - Y_include_synopsis (test_package+ml.Include2.Y_include_synopsis) - - - - - - - - - - -
-

- Module Include2.Y_include_synopsis -

-

- The include Y below should have the synopsis from Y's top-comment attached to it. -

-
-
-
-
- - include module type of struct include Y end - -
-
- type t = Y.t -
-
-
-
-
- - diff --git a/test/html/expect/test_package+ml/Include2/index.html b/test/html/expect/test_package+ml/Include2/index.html deleted file mode 100644 index ac6698150a..0000000000 --- a/test/html/expect/test_package+ml/Include2/index.html +++ /dev/null @@ -1,78 +0,0 @@ - - - - - Include2 (test_package+ml.Include2) - - - - - - - - - - -
-

- Module Include2 -

-
-
-
-
- module X : sig ... end -
-
-

- Comment about X that should not appear when including X below. -

-
-
-
-
- - include module type of struct include X end - -

- Comment about X that should not appear when including X below. -

-
-
- type t = int -
-
-
-
-
-
- module Y : sig ... end -
-
-

- Top-comment of Y. -

-
-
-
-
- module Y_include_synopsis : sig ... end -
-
-

- The include Y below should have the synopsis from Y's top-comment attached to it. -

-
-
-
-
- module Y_include_doc : sig ... end -
-
-
- - diff --git a/test/html/expect/test_package+ml/Include_sections/index.html b/test/html/expect/test_package+ml/Include_sections/index.html deleted file mode 100644 index adeaa7e7b0..0000000000 --- a/test/html/expect/test_package+ml/Include_sections/index.html +++ /dev/null @@ -1,256 +0,0 @@ - - - - - Include_sections (test_package+ml.Include_sections) - - - - - - - - - - -
-

- Module Include_sections -

-
- -
-
-
- module type Something = sig ... end -
-
-

- A module type. -

-
-
-

- Let's include Something once -

-
-
-
- val something : unit -
-
-

- Something 1 -

-

- foo -

-
-
- val foo : unit -
-
-

- Something 2 -

-
-
- val bar : unit -
-
-

- foo bar -

-
-
-

- Something 1-bis -

-

- Some text. -

-
-

- Second include -

-

- Let's include Something a second time: the heading level should be shift here. -

-
-
-
- val something : unit -
-
-

- Something 1 -

-

- foo -

-
-
- val foo : unit -
-
-

- Something 2 -

-
-
- val bar : unit -
-
-

- foo bar -

-
-
-

- Something 1-bis -

-

- Some text. -

-
-

- Third include -

-

- Shifted some more. -

-
-
-
- val something : unit -
-
-

- Something 1 -

-

- foo -

-
-
- val foo : unit -
-
-
- Something 2 -
-
-
- val bar : unit -
-
-

- foo bar -

-
-
-

- Something 1-bis -

-

- Some text. -

-
-

- And let's include it again, but without inlining it this time: the ToC shouldn't grow. -

-
-
- - include Something - -
-
- val something : unit -
-
-

- Something 1 -

-

- foo -

-
-
- val foo : unit -
-
-

- Something 2 -

-
-
- val bar : unit -
-
-

- foo bar -

-
-
-

- Something 1-bis -

-

- Some text. -

-
-
-
- - diff --git a/test/html/expect/test_package+ml/Include_sections/module-type-Something/index.html b/test/html/expect/test_package+ml/Include_sections/module-type-Something/index.html deleted file mode 100644 index 0b98e45897..0000000000 --- a/test/html/expect/test_package+ml/Include_sections/module-type-Something/index.html +++ /dev/null @@ -1,81 +0,0 @@ - - - - - Something (test_package+ml.Include_sections.Something) - - - - - - - - - - -
-

- Module type Include_sections.Something -

-

- A module type. -

-
- -
-
-
- val something : unit -
-
-

- Something 1 -

-

- foo -

-
-
- val foo : unit -
-
-

- Something 2 -

-
-
- val bar : unit -
-
-

- foo bar -

-
-
-

- Something 1-bis -

-

- Some text. -

-
- - diff --git a/test/html/expect/test_package+ml/Interlude/index.html b/test/html/expect/test_package+ml/Interlude/index.html deleted file mode 100644 index 0d62f6863b..0000000000 --- a/test/html/expect/test_package+ml/Interlude/index.html +++ /dev/null @@ -1,81 +0,0 @@ - - - - - Interlude (test_package+ml.Interlude) - - - - - - - - - - -
-

- Module Interlude -

-

- This is the comment associated to the module. -

-
-
-

- Some separate stray text at the top of the module. -

-
-
- val foo : unit -
-
-

- Foo. -

-
-
-

- Some stray text that is not associated with any signature item. -

-

- It has multiple paragraphs. -

-

- A separate block of stray text, adjacent to the preceding one. -

-
-
- val bar : unit -
-
-

- Bar. -

-
-
-
-
- val multiple : unit -
-
-
-
- val signature : unit -
-
-
-
- val items : unit -
-
-

- Stray text at the bottom of the module. -

-
- - diff --git a/test/html/expect/test_package+ml/Labels/index.html b/test/html/expect/test_package+ml/Labels/index.html deleted file mode 100644 index 684fad6386..0000000000 --- a/test/html/expect/test_package+ml/Labels/index.html +++ /dev/null @@ -1,235 +0,0 @@ - - - - - Labels (test_package+ml.Labels) - - - - - - - - - - -
-

- Module Labels -

-
- -
-

- Attached to unit -

-

- Attached to nothing -

-
-
- module A : sig ... end -
-
-
-
- type t -
-
-

- Attached to type -

-
-
-
-
- val f : t -
-
-

- Attached to value -

-
-
-
-
- val e : unit -> t -
-
-

- Attached to external -

-
-
-
-
- module type S = sig ... end -
-
-
-
- class c : object ... end -
-
-
-
- class type cs = object ... end -
-
-
-
- exception E -
-
-

- Attached to exception -

-
-
-
-
- type x = .. -
-
-
-
- type x += - - - - - - -
- | X -
-
-
-

- Attached to extension -

-
-
-
-
- module S := A -
-
-

- Attached to module subst -

-
-
-
-
- type s := t -
-
-

- Attached to type subst -

-
-
-
-
- type u = - - - - - - - -
- | A' - - (* -

- Attached to constructor -

- *) -
-
-
-
-
- type v = { - - - - - - - -
- f : t; - - (* -

- Attached to field -

- *) -
- } -
-
-

- Testing that labels can be referenced -

- -
- - diff --git a/test/html/expect/test_package+ml/Markup/index.html b/test/html/expect/test_package+ml/Markup/index.html deleted file mode 100644 index a4712ed417..0000000000 --- a/test/html/expect/test_package+ml/Markup/index.html +++ /dev/null @@ -1,378 +0,0 @@ - - - - - Markup (test_package+ml.Markup) - - - - - - - - - - -
-

- Module Markup -

-

- Here, we test the rendering of comment markup. -

-
- -
-

- Sections -

-

- Let's get these done first, because sections will be used to break up the rest of this test. -

-

- Besides the section heading above, there are also -

-

- Subsection headings -

-

- and -

-

- Sub-subsection headings -

-

- but odoc has banned deeper headings. There are also title headings, but they are only allowed in mld files. -

-

- Anchors -

-

- Sections can have attached Anchors, and it is possible to link to them. Links to section headers should not be set in source code style. -

-
- Paragraph -
-

- Individual paragraphs can have a heading. -

-
- Subparagraph -
-

- Parts of a longer paragraph that can be considered alone can also have headings. -

-

- Styling -

-

- This paragraph has some styled elements: bold and italic, bold italic, emphasis, emphasis within emphasis, bold italic, superscript, subscript. The line spacing should be enough for superscripts and subscripts not to look odd. -

-

- Note: In italics emphasis is rendered as normal text while emphasis in emphasis is rendered in italics. It also work the same in links in italics with emphasis in emphasis. -

-

- code is a different kind of markup that doesn't allow nested markup. -

-

- It's possible for two markup elements to appear next to each other and have a space, and appear nextto each other with no space. It doesn't matter how much space it was in the source: in this sentence, it was two space characters. And in this one, there is a newline. -

-

- This is also true between non-code markup and code. -

-

- Code can appear inside other markup. Its display shouldn't be affected. -

- -

- This is a link. It sends you to the top of this page. Links can have markup inside them: bold, italics, emphasis, superscript, subscript, and code. Links can also be nested inside markup. Links cannot be nested inside each other. This link has no replacement text: #. The text is filled in by odoc. This is a shorthand link: #. The text is also filled in by odoc in this case. -

-

- This is a reference to foo. References can have replacement text: the value foo. Except for the special lookup support, references are pretty much just like links. The replacement text can have nested styles: bold, italic, emphasis, superscript, subscript, and code. It's also possible to surround a reference in a style: foo. References can't be nested inside references, and links and references can't be nested inside each other. -

-

- Preformatted text -

-

- This is a code block: -

- 
let foo = ()
-(** There are some nested comments in here, but an unpaired comment
-    terminator would terminate the whole doc surrounding comment. It's
-    best to keep code blocks no wider than 72 characters. *)
-
-let bar =
-  ignore foo
-

- There are also verbatim blocks: -

- 
The main difference is these don't get syntax highlighting.
-

- Lists -

-
    -
  • - This is a -
    • -
  • - shorthand bulleted list, -
    • -
  • - and the paragraphs in each list item support styling. -
    • -
-
    -
  1. - This is a -
    2. -
  2. - shorthand numbered list. -
    3. -
-
    -
  • - Shorthand list items can span multiple lines, however trying to put two paragraphs into a shorthand list item using a double line break -
    • -
-

- just creates a paragraph outside the list. -

-
    -
  • - Similarly, inserting a blank line between two list items -
    • -
-
    -
  • - creates two separate lists. -
    • -
-
    -
  • -

    - To get around this limitation, one -

    -

    - can use explicitly-delimited lists. -

    -
    • -
  • - This one is bulleted, -
    • -
-
    -
  1. - but there is also the numbered variant. -
    2. -
-
    -
  • -
      -
    • - lists -
      • -
    • - can be nested -
      • -
    • - and can include references -
      • -
    • - foo -
      • -
    -
    • -
-

- Unicode -

-

- The parser supports any ASCII-compatible encoding, in particuλar UTF-8. -

-

- Raw HTML -

-

- Raw HTML can be as inline elements into sentences. -

-
- If the raw HTML is the only thing in a paragraph, it is treated as a block - element, and won't be wrapped in paragraph tags by the HTML generator. -
-

- Modules -

-
    -
      -
    • - X -
      • -
    -
      -
    • - X -
      • -
    • - Y -
      • -
    • - Z -
      • -
    -

    - Tags -

    -

    - Each comment can end with zero or more tags. Here are some examples: -

    -
      -
    • - author antron -
      • -
    -
      -
    • - deprecated -

      - a long time ago -

      -
      • -
    -
      -
    • - parameter foo -

      - unused -

      -
      • -
    -
      -
    • - raises Failure -

      - always -

      -
      • -
    -
      -
    • - returns -

      - never -

      -
      • -
    -
      -
    • - see # -

      - this url -

      -
      • -
    -
      -
    • - see foo.ml -

      - this file -

      -
      • -
    -
      -
    • - see Foo -

      - this document -

      -
      • -
    -
      -
    • - since 0 -
      • -
    -
      -
    • - before 1.0 -

      - it was in beta -

      -
      • -
    -
      -
    • - version -1 -
      • -
    -
    -
    - val foo : unit -
    -
    -

    - Comments in structure items support markup, too. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Module/index.html b/test/html/expect/test_package+ml/Module/index.html deleted file mode 100644 index 680bf1268a..0000000000 --- a/test/html/expect/test_package+ml/Module/index.html +++ /dev/null @@ -1,111 +0,0 @@ - - - - - Module (test_package+ml.Module) - - - - - - - - - - -
    -

    - Module Module -

    -

    - Foo. -

    -
    -
    -
    -
    - val foo : unit -
    -
    -

    - The module needs at least one signature item, otherwise a bug causes the compiler to drop the module comment (above). See https://caml.inria.fr/mantis/view.php?id=7701. -

    -
    -
    -
    -
    - module type S = sig ... end -
    -
    -
    -
    - module type S1 -
    -
    -
    -
    - module type S2 = S -
    -
    -
    -
    - module type S3 = S with type t = int and type u = string -
    -
    -
    -
    - module type S4 = S with type t := int -
    -
    -
    -
    - module type S5 = S with type 'a v := 'a list -
    -
    -
    -
    - type ('a, 'b) result -
    -
    -
    -
    - module type S6 = S with type ('a, 'b) w := ('a, 'b) result -
    -
    -
    -
    - module M' : sig ... end -
    -
    -
    -
    - module type S7 = S with module M = M' -
    -
    -
    -
    - module type S8 = S with module M := M' -
    -
    -
    -
    - module type S9 = module type of M' -
    -
    -
    -
    - module Mutually : sig ... end -
    -
    -
    -
    - module Recursive : sig ... end -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Nested/F/argument-1-Arg1/index.html b/test/html/expect/test_package+ml/Nested/F/argument-1-Arg1/index.html deleted file mode 100644 index 9e7bffbbe2..0000000000 --- a/test/html/expect/test_package+ml/Nested/F/argument-1-Arg1/index.html +++ /dev/null @@ -1,64 +0,0 @@ - - - - - Arg1 (test_package+ml.Nested.F.1-Arg1) - - - - - - - - - - -
    -

    - Parameter F.1-Arg1 -

    -
    - -
    -

    - Type -

    -
    -
    - type t -
    -
    -

    - Some type. -

    -
    -
    -

    - Values -

    -
    -
    - val y : t -
    -
    -

    - The value of y. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Nested/F/argument-2-Arg2/index.html b/test/html/expect/test_package+ml/Nested/F/argument-2-Arg2/index.html deleted file mode 100644 index 4008b523e9..0000000000 --- a/test/html/expect/test_package+ml/Nested/F/argument-2-Arg2/index.html +++ /dev/null @@ -1,48 +0,0 @@ - - - - - Arg2 (test_package+ml.Nested.F.2-Arg2) - - - - - - - - - - -
    -

    - Parameter F.2-Arg2 -

    -
    - -
    -

    - Type -

    -
    -
    - type t -
    -
    -

    - Some type. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Nested/F/index.html b/test/html/expect/test_package+ml/Nested/F/index.html deleted file mode 100644 index b3b0c97c76..0000000000 --- a/test/html/expect/test_package+ml/Nested/F/index.html +++ /dev/null @@ -1,76 +0,0 @@ - - - - - F (test_package+ml.Nested.F) - - - - - - - - - - -
    -

    - Module Nested.F -

    -

    - This is a functor F. -

    -

    - Some additional comments. -

    -
    - -
    -

    - Type -

    -

    - Parameters -

    -
    -
    - module Arg1 : Y -
    -
    -
    -
    - module Arg2 : sig ... end -
    -
    -

    - Signature -

    -
    -
    - type t = Arg1.t * Arg2.t -
    -
    -

    - Some type. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Nested/X/index.html b/test/html/expect/test_package+ml/Nested/X/index.html deleted file mode 100644 index df6ca4298e..0000000000 --- a/test/html/expect/test_package+ml/Nested/X/index.html +++ /dev/null @@ -1,70 +0,0 @@ - - - - - X (test_package+ml.Nested.X) - - - - - - - - - - -
    -

    - Module Nested.X -

    -

    - This is module X. -

    -

    - Some additional comments. -

    -
    - -
    -

    - Type -

    -
    -
    - type t -
    -
    -

    - Some type. -

    -
    -
    -

    - Values -

    -
    -
    - val x : t -
    -
    -

    - The value of x. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Nested/class-inherits/index.html b/test/html/expect/test_package+ml/Nested/class-inherits/index.html deleted file mode 100644 index c608eb9a99..0000000000 --- a/test/html/expect/test_package+ml/Nested/class-inherits/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - inherits (test_package+ml.Nested.inherits) - - - - - - - - - - -
    -

    - Class Nested.inherits -

    -
    -
    -
    -
    - inherit z -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Nested/class-z/index.html b/test/html/expect/test_package+ml/Nested/class-z/index.html deleted file mode 100644 index 8b72b2ee00..0000000000 --- a/test/html/expect/test_package+ml/Nested/class-z/index.html +++ /dev/null @@ -1,74 +0,0 @@ - - - - - z (test_package+ml.Nested.z) - - - - - - - - - - -
    -

    - Class Nested.z -

    -

    - This is class z. -

    -

    - Some additional comments. -

    -
    - -
    -
    -
    - val y : int -
    -
    -

    - Some value. -

    -
    -
    -
    -
    - val mutable virtual y' : int -
    -
    -

    - Methods -

    -
    -
    - method z : int -
    -
    -

    - Some method. -

    -
    -
    -
    -
    - method private virtual z' : int -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Nested/index.html b/test/html/expect/test_package+ml/Nested/index.html deleted file mode 100644 index 93ee8a7872..0000000000 --- a/test/html/expect/test_package+ml/Nested/index.html +++ /dev/null @@ -1,104 +0,0 @@ - - - - - Nested (test_package+ml.Nested) - - - - - - - - - - -
    -

    - Module Nested -

    -

    - This comment needs to be here before #235 is fixed. -

    -
    - -
    -

    - Module -

    -
    -
    - module X : sig ... end -
    -
    -

    - This is module X. -

    -
    -
    -

    - Module type -

    -
    -
    - module type Y = sig ... end -
    -
    -

    - This is module type Y. -

    -
    -
    -

    - Functor -

    -
    -
    - module F (Arg1 : Y) (Arg2 : sig ... end) : sig ... end -
    -
    -

    - This is a functor F. -

    -
    -
    -

    - Class -

    -
    -
    - class virtual z : object ... end -
    -
    -

    - This is class z. -

    -
    -
    -
    -
    - class virtual inherits : object ... end -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Nested/module-type-Y/index.html b/test/html/expect/test_package+ml/Nested/module-type-Y/index.html deleted file mode 100644 index fcdedd739e..0000000000 --- a/test/html/expect/test_package+ml/Nested/module-type-Y/index.html +++ /dev/null @@ -1,70 +0,0 @@ - - - - - Y (test_package+ml.Nested.Y) - - - - - - - - - - -
    -

    - Module type Nested.Y -

    -

    - This is module type Y. -

    -

    - Some additional comments. -

    -
    - -
    -

    - Type -

    -
    -
    - type t -
    -
    -

    - Some type. -

    -
    -
    -

    - Values -

    -
    -
    - val y : t -
    -
    -

    - The value of y. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Ocamlary/index.html b/test/html/expect/test_package+ml/Ocamlary/index.html deleted file mode 100644 index 32400bf941..0000000000 --- a/test/html/expect/test_package+ml/Ocamlary/index.html +++ /dev/null @@ -1,2019 +0,0 @@ - - - - - Ocamlary (test_package+ml.Ocamlary) - - - - - - - - - - -
    -

    - Module Ocamlary -

    -

    - This is an interface with all of the module system features. This documentation demonstrates: -

    -
      -
    • - comment formatting -
      • -
    • - unassociated comments -
      • -
    • - documentation sections -
      • -
    • -

      - module system documentation including -

      -
        -
      1. - submodules -
        2. -
      2. - module aliases -
        3. -
      3. - module types -
        4. -
      4. - module type aliases -
        5. -
      5. - modules with signatures -
        6. -
      6. - modules with aliased signatures -
        7. -
      -
      • -
    -

    - A numbered list: -

    -
      -
    1. - 3 -
      2. -
    2. - 2 -
      3. -
    3. - 1 -
      4. -
    -

    - David Sheets is the author. -

    -
      -
    • - author David Sheets -
      • -
    -
    - -
    -

    - You may find more information about this HTML documentation renderer at github.com/dsheets/ocamlary. -

    -

    - This is some verbatim text: -

    - 
    verbatim
    -

    - This is some verbatim text: -

    - 
    [][df[]]}}
    -

    - Here is some raw LaTeX: -

    -

    - Here is an index table of Empty modules: -

    -
      -
    • - Empty A plain, empty module -
      • -
    • - EmptyAlias A plain module alias of Empty -
      • -
    -

    - Here is a table of links to indexes: indexlist -

    -

    - Here is some superscript: x2 -

    -

    - Here is some subscript: x0 -

    -

    - Here are some escaped brackets: { [ @ ] } -

    -

    - Here is some emphasis followed by code. -

    -

    - An unassociated comment -

    -

    - Level 1 -

    -

    - Level 2 -

    -

    - Level 3 -

    -
    - Level 4 -
    -

    - Basic module stuff -

    -
    -
    - module Empty : sig ... end -
    -
    -

    - A plain, empty module -

    -
    -
    -
    -
    - module type Empty = sig ... end -
    -
    -

    - An ambiguous, misnamed module type -

    -
    -
    -
    -
    - module type MissingComment = sig ... end -
    -
    -

    - An ambiguous, misnamed module type -

    -
    -
    -

    - Section 9000 -

    -
    -
    - module EmptyAlias = Empty -
    -
    -

    - A plain module alias of Empty -

    -
    -
    -

    - EmptySig -

    -
    -
    - module type EmptySig = sig ... end -
    -
    -

    - A plain, empty module signature -

    -
    -
    -
    -
    - module type EmptySigAlias = EmptySig -
    -
    -

    - A plain, empty module signature alias of -

    -
    -
    -
    - -
    -

    - A plain module of a signature of EmptySig (reference) -

    -
    -
    -
    - -
    -

    - A plain module with an alias signature -

    -
    -
    -
    -
    - module One : sig ... end -
    -
    -
    -
    - module type SigForMod = sig ... end -
    -
    -

    - There's a signature in a module in this signature. -

    -
    -
    -
    -
    - module type SuperSig = sig ... end -
    -
    -

    - For a good time, see SuperSig.SubSigA.subSig or SuperSig.SubSigB.subSig or SuperSig.EmptySig. Section Section 9000 is also interesting. EmptySig is the section and EmptySig is the module signature. -

    -
    -
    - module Buffer : sig ... end -
    -
    -

    - Buffer.t -

    -
    -
    -

    - Some text before exception title. -

    -

    - Basic exception stuff -

    -

    - After exception title. -

    -
    -
    - exception Kaboom of unit -
    -
    -

    - Unary exception constructor -

    -
    -
    -
    -
    - exception Kablam of unit * unit -
    -
    -

    - Binary exception constructor -

    -
    -
    -
    -
    - exception Kapow of unit * unit -
    -
    -

    - Unary exception constructor over binary tuple -

    -
    -
    -
    -
    - exception EmptySig -
    -
    -

    - EmptySig is a module and EmptySig is this exception. -

    -
    -
    -
    -
    - exception EmptySigAlias -
    -
    -

    - EmptySigAlias is this exception. -

    -
    -
    -

    - Basic type and value stuff with advanced doc comments -

    -
    -
    - type ('a, 'b) a_function = 'a -> 'b -
    -
    -

    - a_function is this type and a_function is the value below. -

    -
    -
    -
    -
    - val a_function : x:int -> int -
    -
    -

    - This is a_function with param and return type. -

    -
      -
    • - parameter x -

      - the x coordinate -

      -
      • -
    -
      -
    • - returns -

      - the y coordinate -

      -
      • -
    -
    -
    -
    -
    - val fun_fun_fun : ((int, int) a_function, (unit, unit) a_function) a_function -
    -
    -
    -
    - val fun_maybe : ?yes:unit -> unit -> int -
    -
    -
    -
    - val not_found : unit -> unit -
    -
    -
      -
    • - raises Not_found -

      - That's all it does -

      -
      • -
    -
    -
    -
    -
    - val ocaml_org : string -
    -
    - -
    -
    -
    -
    - val some_file : string -
    -
    -
      -
    • - see some_file -

      - The file called some_file -

      -
      • -
    -
    -
    -
    -
    - val some_doc : string -
    -
    -
      -
    • - see some_doc -

      - The document called some_doc -

      -
      • -
    -
    -
    -
    -
    - val since_mesozoic : unit -
    -
    -

    - This value was introduced in the Mesozoic era. -

    -
      -
    • - since mesozoic -
      • -
    -
    -
    -
    -
    - val changing : unit -
    -
    -

    - This value has had changes in 1.0.0, 1.1.0, and 1.2.0. -

    -
      -
    • - before 1.0.0 -

      - before 1.0.0 -

      -
      • -
    -
      -
    • - before 1.1.0 -

      - before 1.1.0 -

      -
      • -
    -
      -
    • - version 1.2.0 -
      • -
    -
    -
    -

    - Some Operators -

    -
    -
    - val (~-) : unit -
    -
    -
    -
    - val (!) : unit -
    -
    -
    -
    - val (@) : unit -
    -
    -
    -
    - val ($) : unit -
    -
    -
    -
    - val (%) : unit -
    -
    -
    -
    - val (&) : unit -
    -
    -
    -
    - val (*) : unit -
    -
    -
    -
    - val (-) : unit -
    -
    -
    -
    - val (+) : unit -
    -
    -
    -
    - val (-?) : unit -
    -
    -
    -
    - val (/) : unit -
    -
    -
    -
    - val (:=) : unit -
    -
    -
    -
    - val (=) : unit -
    -
    -
    -
    - val (land) : unit -
    -
    -

    - Advanced Module Stuff -

    -
    -
    - module CollectionModule : sig ... end -
    -
    -

    - This comment is for CollectionModule. -

    -
    -
    -
    -
    - module type COLLECTION = module type of CollectionModule -
    -
    -

    - module type of -

    -
    -
    -
    -
    - module Recollection (C : COLLECTION) : COLLECTION with type collection = C.element list and type element = C.collection -
    -
    -
    -
    - module type MMM = sig ... end -
    -
    -
    -
    - module type RECOLLECTION = MMM with module C = Recollection(CollectionModule) -
    -
    -
    -
    - module type RecollectionModule = sig ... end -
    -
    -
    -
    - module type A = sig ... end -
    -
    -
    -
    - module type B = sig ... end -
    -
    -
    -
    - module type C = sig ... end -
    -
    -

    - This module type includes two signatures. -

    -
    -
    -
    -
    - module FunctorTypeOf (Collection : module type of CollectionModule) : sig ... end -
    -
    -

    - This comment is for FunctorTypeOf. -

    -
    -
    -
    -
    - module type IncludeModuleType = sig ... end -
    -
    -

    - This comment is for IncludeModuleType. -

    -
    -
    -
    -
    - module type ToInclude = sig ... end -
    -
    -
    -
    - - include ToInclude - -
    -
    - module IncludedA : sig ... end -
    -
    -
    -
    - module type IncludedB = sig ... end -
    -
    -
    -
    -

    - Advanced Type Stuff -

    -
    -
    - type record = { - - - - - - - - - - - -
    - field1 : int; - - (* -

    - This comment is for field1. -

    - *) -
    - field2 : int; - - (* -

    - This comment is for field2. -

    - *) -
    - } -
    -
    -

    - This comment is for record. -

    -

    - This comment is also for record. -

    -
    -
    -
    -
    - type mutable_record = { - - - - - - - - - - - - - - - -
    - mutable a : int; - - (* -

    - a is first and mutable -

    - *) -
    - b : unit; - - (* -

    - b is second and immutable -

    - *) -
    - mutable c : int; - - (* -

    - c is third and mutable -

    - *) -
    - } -
    -
    -
    -
    - type universe_record = { - - - - - - -
    - nihilate : a. 'a -> unit; -
    - } -
    -
    -
    -
    - type variant = - - - - - - - - - - - - - - - - - - - -
    - | TagA - - (* -

    - This comment is for TagA. -

    - *) -
    - | ConstrB of int - - (* -

    - This comment is for ConstrB. -

    - *) -
    - | ConstrC of int * int - - (* -

    - This comment is for binary ConstrC. -

    - *) -
    - | ConstrD of int * int - - (* -

    - This comment is for unary ConstrD of binary tuple. -

    - *) -
    -
    -
    -

    - This comment is for variant. -

    -

    - This comment is also for variant. -

    -
    -
    -
    -
    - type poly_variant = [ - - - - - - - - - -
    - | `TagA -
    - | `ConstrB of int -
    - ] -
    -
    -

    - This comment is for poly_variant. -

    -

    - Wow! It was a polymorphic variant! -

    -
    -
    -
    -
    - type (_, _) full_gadt = - - - - - - - - - - - - - - - -
    - | Tag : (unit, unit) full_gadt -
    - | First : 'a -> ('a, unit) full_gadt -
    - | Second : 'a -> (unit, 'a) full_gadt -
    - | Exist : 'a * 'b -> ('b, unit) full_gadt -
    -
    -
    -

    - This comment is for full_gadt. -

    -

    - Wow! It was a GADT! -

    -
    -
    -
    -
    - type 'a partial_gadt = - - - - - - - - - - - - -
    - | AscribeTag : 'a partial_gadt -
    - | OfTag of 'a partial_gadt -
    - | ExistGadtTag : ('a -> 'b) -> 'a partial_gadt -
    -
    -
    -

    - This comment is for partial_gadt. -

    -

    - Wow! It was a mixed GADT! -

    -
    -
    -
    -
    - type alias = variant -
    -
    -

    - This comment is for alias. -

    -
    -
    -
    -
    - type tuple = (alias * alias) * alias * (alias * alias) -
    -
    -

    - This comment is for tuple. -

    -
    -
    -
    -
    - type variant_alias = variant = - - - - - - - - - - - - - - - -
    - | TagA -
    - | ConstrB of int -
    - | ConstrC of int * int -
    - | ConstrD of int * int -
    -
    -
    -

    - This comment is for variant_alias. -

    -
    -
    -
    -
    - type record_alias = record = { - - - - - - - - - -
    - field1 : int; -
    - field2 : int; -
    - } -
    -
    -

    - This comment is for record_alias. -

    -
    -
    -
    -
    - type poly_variant_union = [ - - - - - - - - - -
    - | poly_variant -
    - | `TagC -
    - ] -
    -
    -

    - This comment is for poly_variant_union. -

    -
    -
    -
    -
    - type 'a poly_poly_variant = [ - - - - - - -
    - | `TagA of 'a -
    - ] -
    -
    -
    -
    - type ('a, 'b) bin_poly_poly_variant = [ - - - - - - - - - -
    - | `TagA of 'a -
    - | `ConstrB of 'b -
    - ] -
    -
    -
    -
    - type 'a open_poly_variant = [> `TagA ] as 'a -
    -
    -
    -
    - type 'a open_poly_variant2 = [> `ConstrB of int ] as 'a -
    -
    -
    -
    - type 'a open_poly_variant_alias = 'a open_poly_variant open_poly_variant2 -
    -
    -
    -
    - type 'a poly_fun = [> `ConstrB of int ] as 'a -> 'a -
    -
    -
    -
    - type 'a poly_fun_constraint = 'a -> 'a constraint 'a = [> `TagA ] -
    -
    -
    -
    - type 'a closed_poly_variant = [< `One | `Two ] as 'a -
    -
    -
    -
    - type 'a clopen_poly_variant = [< `One | `Two of int | `Three Two Three ] as 'a -
    -
    -
    -
    - type nested_poly_variant = [ - - - - - - - - - - - - - - - -
    - | `A -
    - | `B of [ `B1 | `B2 ] -
    - | `C -
    - | `D of [ `D1 of [ `D1a ] ] -
    - ] -
    -
    -
    -
    - type ('a, 'b) full_gadt_alias = ('a, 'b) full_gadt = - - - - - - - - - - - - - - - -
    - | Tag : (unit, unit) full_gadt_alias -
    - | First : 'a -> ('a, unit) full_gadt_alias -
    - | Second : 'a -> (unit, 'a) full_gadt_alias -
    - | Exist : 'a * 'b -> ('b, unit) full_gadt_alias -
    -
    -
    -

    - This comment is for full_gadt_alias. -

    -
    -
    -
    -
    - type 'a partial_gadt_alias = 'a partial_gadt = - - - - - - - - - - - - -
    - | AscribeTag : 'a partial_gadt_alias -
    - | OfTag of 'a partial_gadt_alias -
    - | ExistGadtTag : ('a -> 'b) -> 'a partial_gadt_alias -
    -
    -
    -

    - This comment is for partial_gadt_alias. -

    -
    -
    -
    -
    - exception Exn_arrow : unit -> exn -
    -
    -

    - This comment is for Exn_arrow. -

    -
    -
    -
    -
    - type mutual_constr_a = - - - - - - - - - - -
    - | A -
    - | B_ish of mutual_constr_b - - (* -

    - This comment is between mutual_constr_a and mutual_constr_b. -

    - *) -
    -
    -
    -

    - This comment is for mutual_constr_a then mutual_constr_b. -

    -
    -
    -
    -
    - and mutual_constr_b = - - - - - - - - - - -
    - | B -
    - | A_ish of mutual_constr_a - - (* -

    - This comment must be here for the next to associate correctly. -

    - *) -
    -
    -
    -

    - This comment is for mutual_constr_b then mutual_constr_a. -

    -
    -
    -
    -
    - type rec_obj = < f : int; g : unit -> unit; h : rec_obj; > -
    -
    -
    -
    - type 'a open_obj = < f : int; g : unit -> unit; .. > as 'a -
    -
    -
    -
    - type 'a oof = < a : unit; .. > as 'a -> 'a -
    -
    -
    -
    - type 'a any_obj = < .. > as 'a -
    -
    -
    -
    - type empty_obj = < > -
    -
    -
    -
    - type one_meth = < meth : unit; > -
    -
    -
    -
    - type ext = .. -
    -
    -

    - A mystery wrapped in an ellipsis -

    -
    -
    -
    -
    - type ext += - - - - - - -
    - | ExtA -
    -
    -
    -
    -
    - type ext += - - - - - - -
    - | ExtB -
    -
    -
    -
    -
    - type ext += - - - - - - - - - -
    - | ExtC of unit -
    - | ExtD of ext -
    -
    -
    -
    -
    - type ext += - - - - - - -
    - | ExtE -
    -
    -
    -
    -
    - type ext += - - - - - - -
    - | ExtF -
    -
    -
    -
    -
    - type 'a poly_ext = .. -
    -
    -

    - 'a poly_ext -

    -
    -
    -
    -
    - type poly_ext += - - - - - - - - - - -
    - | Foo of 'b -
    - | Bar of 'b * 'b - - (* -

    - 'b poly_ext -

    - *) -
    -
    -
    -
    -
    - type poly_ext += - - - - - - - -
    - | Quux of 'c - - (* -

    - 'c poly_ext -

    - *) -
    -
    -
    -
    -
    - module ExtMod : sig ... end -
    -
    -
    -
    - type ExtMod.t += - - - - - - - -
    - | ZzzTop0 - - (* -

    - It's got the rock -

    - *) -
    -
    -
    -
    -
    - type ExtMod.t += - - - - - - - -
    - | ZzzTop of unit - - (* -

    - and it packs a unit. -

    - *) -
    -
    -
    -
    -
    - val launch_missiles : unit -> unit -
    -
    -

    - Rotate keys on my mark... -

    -
    -
    -
    -
    - type my_mod = (module COLLECTION) -
    -
    -

    - A brown paper package tied up with string -

    -
    -
    -
    -
    - class empty_class : object ... end -
    -
    -
    -
    - class one_method_class : object ... end -
    -
    -
    -
    - class two_method_class : object ... end -
    -
    -
    -
    - class 'a param_class : 'a -> object ... end -
    -
    -
    -
    - type my_unit_object = unit param_class -
    -
    -
    -
    - type 'a my_unit_class = unit param_class as 'a -
    -
    -
    -
    - module Dep1 : sig ... end -
    -
    -
    -
    - module Dep2 (Arg : sig ... end) : sig ... end -
    -
    -
    -
    - type dep1 = Dep2(Dep1).B.c -
    -
    -
    -
    - module Dep3 : sig ... end -
    -
    -
    -
    - module Dep4 : sig ... end -
    -
    -
    -
    - module Dep5 (Arg : sig ... end) : sig ... end -
    -
    -
    -
    - type dep2 = Dep5(Dep4).Z.X.b -
    -
    -
    -
    - type dep3 = Dep5(Dep4).Z.Y.a -
    -
    -
    -
    - module Dep6 : sig ... end -
    -
    -
    -
    - module Dep7 (Arg : sig ... end) : sig ... end -
    -
    -
    -
    - type dep4 = Dep7(Dep6).M.Y.d -
    -
    -
    -
    - module Dep8 : sig ... end -
    -
    -
    -
    - module Dep9 (X : sig ... end) : sig ... end -
    -
    -
    -
    - module type Dep10 = Dep9(Dep8).T with type t = int -
    -
    -
    -
    - module Dep11 : sig ... end -
    -
    -
    -
    - module Dep12 (Arg : sig ... end) : sig ... end -
    -
    -
    -
    - module Dep13 : Dep12(Dep11).T -
    -
    -
    -
    - type dep5 = Dep13.c -
    -
    -
    -
    - module type With1 = sig ... end -
    -
    -
    -
    - module With2 : sig ... end -
    -
    -
    -
    - module With3 : With1 with module M = With2 -
    -
    -
    -
    - type with1 = With3.N.t -
    -
    -
    -
    - module With4 : With1 with module M := With2 -
    -
    -
    -
    - type with2 = With4.N.t -
    -
    -
    -
    - module With5 : sig ... end -
    -
    -
    -
    - module With6 : sig ... end -
    -
    -
    -
    - module With7 (X : sig ... end) : sig ... end -
    -
    -
    -
    - module type With8 = With7(With6).T with module M = With5 and type M.N.t = With5.N.t -
    -
    -
    -
    - module With9 : sig ... end -
    -
    -
    -
    - module With10 : sig ... end -
    -
    -
    -
    - module type With11 = With7(With10).T with module M = With9 and type N.t = int -
    -
    -
    -
    - module type NestedInclude1 = sig ... end -
    -
    -
    -
    - - include NestedInclude1 - -
    -
    - module type NestedInclude2 = sig ... end -
    -
    -
    -
    -
    -
    - - include NestedInclude2 with type nested_include = int - -
    -
    - type nested_include = int -
    -
    -
    -
    -
    -
    - module DoubleInclude1 : sig ... end -
    -
    -
    -
    - module DoubleInclude3 : sig ... end -
    -
    -
    -
    - - include module type of DoubleInclude3.DoubleInclude2 - -
    -
    - type double_include -
    -
    -
    -
    -
    -
    - module IncludeInclude1 : sig ... end -
    -
    -
    -
    - - include module type of IncludeInclude1 - -
    -
    - module type IncludeInclude2 = sig ... end -
    -
    -
    -
    -
    -
    - - include IncludeInclude2 - -
    -
    - type include_include -
    -
    -
    -
    -

    - Trying the {!modules: ...} command. -

    -

    - With ocamldoc, toplevel units will be linked and documented, while submodules will behave as simple references. -

    -

    - With odoc, everything should be resolved (and linked) but only toplevel units will be documented. -

    - -

    - Weirder usages involving module types -

    -
      -
    • - IncludeInclude1.IncludeInclude2 -
      • -
    • - Dep4.T -
      • -
    • - A.Q -
      • -
    -

    - Playing with @canonical paths -

    -
    -
    - module CanonicalTest : sig ... end -
    -
    -
    -
    - val test : 'a CanonicalTest.Base.List.t -> unit -
    -
    -

    - Some ref to CanonicalTest.Base__Tests.C.t and CanonicalTest.Base__Tests.L.id. But also to CanonicalTest.Base__.List and CanonicalTest.Base__.List.t -

    -
    -
    -

    - Aliases again -

    -
    -
    - module Aliases : sig ... end -
    -
    -

    - Let's imitate jst's layout. -

    -
    -
    -

    - Section title splicing -

    -

    - I can refer to -

    - -

    - But also to things in submodules: -

    -
      -
    • - {!section:SuperSig.SubSigA.subSig} : SuperSig.SubSigA.subSig -
      • -
    • - {!Aliases.incl} : Aliases:incl -
      • -
    -

    - And just to make sure we do not mess up: -

    -
      -
    • - {{!section:indexmodules}A} : A -
      • -
    • - {{!aliases}B} : B -
      • -
    • - {{!section:SuperSig.SubSigA.subSig}C} : C -
      • -
    • - {{!Aliases.incl}D} : D -
      • -
    -

    - New reference syntax -

    -
    -
    - module type M = sig ... end -
    -
    -
    -
    - module M : sig ... end -
    -
    -

    - Here goes: -

    -
      -
    • - {!module-M.t} : M.t -
      • -
    • - {!module-type-M.t} : M.t -
      • -
    -
    -
    - module Only_a_module : sig ... end -
    -
    -

    - Some here should fail: -

    -
      -
    • - {!Only_a_module.t} : Only_a_module.t -
      • -
    • - {!module-Only_a_module.t} : Only_a_module.t -
      • -
    • - {!module-type-Only_a_module.t} : Only_a_module.t : test -
      • -
    -
    -
    - module type TypeExt = sig ... end -
    -
    -
    -
    - type new_t = .. -
    -
    -
    -
    - type new_t += - - - - - - -
    - | C -
    -
    -
    -
    -
    - module type TypeExtPruned = TypeExt with type t := new_t -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Recent/X/index.html b/test/html/expect/test_package+ml/Recent/X/index.html deleted file mode 100644 index 49a829d27c..0000000000 --- a/test/html/expect/test_package+ml/Recent/X/index.html +++ /dev/null @@ -1,48 +0,0 @@ - - - - - X (test_package+ml.Recent.X) - - - - - - - - - - -
    -

    - Module Recent.X -

    -
    -
    -
    -
    - module L := Z.Y -
    -
    -
    -
    - type t = int Z.Y.X.t -
    -
    -
    -
    - type u := int -
    -
    -
    -
    - type v = u Z.Y.X.t -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Recent/index.html b/test/html/expect/test_package+ml/Recent/index.html deleted file mode 100644 index fbd5d2bb49..0000000000 --- a/test/html/expect/test_package+ml/Recent/index.html +++ /dev/null @@ -1,244 +0,0 @@ - - - - - Recent (test_package+ml.Recent) - - - - - - - - - - -
    -

    - Module Recent -

    -
    -
    -
    -
    - module type S = sig ... end -
    -
    -
    -
    - module type S1 = functor (_ : S) -> S -
    -
    -
    -
    - type variant = - - - - - - - - - - - - - - - - - - - - -
    - | A -
    - | B of int -
    - | C - - (* -

    - foo -

    - *) -
    - | D - - (* -

    - bar -

    - *) -
    - | E of { - - - - - - -
    - a : int; -
    - } -
    -
    -
    -
    -
    - type _ gadt = - - - - - - - - - - - - - -
    - | A : int gadt -
    - | B : int -> string gadt - - (* -

    - foo -

    - *) -
    - | C : { - - - - - - -
    - a : int; -
    - } -> unit gadt -
    -
    -
    -
    -
    - type polymorphic_variant = [ - - - - - - - - - - - - - - - - - -
    - | `A -
    - | `B of int -
    - | `C - - (* -

    - foo -

    - *) -
    - | `D - - (* -

    - bar -

    - *) -
    - ] -
    -
    -
    -
    - type empty_variant = | -
    -
    -
    -
    - type nonrec nonrec_ = int -
    -
    -
    -
    - type empty_conj = - - - - - - -
    - | X : [< `X of & 'a & int * float ] -> empty_conj -
    -
    -
    -
    -
    - type conj = - - - - - - -
    - | X : [< `X of int & [< `B of int & float ] ] -> conj -
    -
    -
    -
    -
    - val empty_conj : [< `X of & 'a & int * float ] -
    -
    -
    -
    - val conj : [< `X of int & [< `B of int & float ] ] -
    -
    -
    -
    - module Z : sig ... end -
    -
    -
    -
    - module X : sig ... end -
    -
    -
    -
    - module type PolyS = sig ... end -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Recent_impl/index.html b/test/html/expect/test_package+ml/Recent_impl/index.html deleted file mode 100644 index bf8bc328fa..0000000000 --- a/test/html/expect/test_package+ml/Recent_impl/index.html +++ /dev/null @@ -1,53 +0,0 @@ - - - - - Recent_impl (test_package+ml.Recent_impl) - - - - - - - - - - -
    -

    - Module Recent_impl -

    -
    -
    -
    -
    - module Foo : sig ... end -
    -
    -
    -
    - module B : sig ... end -
    -
    -
    -
    - type u -
    -
    -
    -
    - module type S = sig ... end -
    -
    -
    -
    - module B' = Foo.B -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Section/index.html b/test/html/expect/test_package+ml/Section/index.html deleted file mode 100644 index af8e7fa834..0000000000 --- a/test/html/expect/test_package+ml/Section/index.html +++ /dev/null @@ -1,99 +0,0 @@ - - - - - Section (test_package+ml.Section) - - - - - - - - - - -
    -

    - Module Section -

    -

    - This is the module comment. Eventually, sections won't be allowed in it. -

    -
    - -
    -

    - Empty section -

    -

    - Text only -

    -

    - Foo bar. -

    -

    - Aside only -

    -

    - Foo bar. -

    -

    - Value only -

    -
    -
    - val foo : unit -
    -
    -

    - Empty section -

    -

    - within a comment -

    -

    - and one with a nested section -

    -

    - This section title has markup -

    -

    - But links are impossible thanks to the parser, so we never have trouble rendering a section title in a table of contents – no link will be nested inside another link. -

    -
    - - diff --git a/test/html/expect/test_package+ml/Stop/index.html b/test/html/expect/test_package+ml/Stop/index.html deleted file mode 100644 index 6036981a49..0000000000 --- a/test/html/expect/test_package+ml/Stop/index.html +++ /dev/null @@ -1,60 +0,0 @@ - - - - - Stop (test_package+ml.Stop) - - - - - - - - - - -
    -

    - Module Stop -

    -

    - This test cases exercises stop comments. -

    -
    -
    -
    -
    - val foo : int -
    -
    -

    - This is normal commented text. -

    -
    -
    -

    - The next value is bar, and it should be missing from the documentation. There is also an entire module, M, which should also be hidden. It contains a nested stop comment, but that stop comment should not turn documentation back on in this outer module, because stop comments respect scope. -

    -

    - Documentation is on again. -

    -

    - Now, we have a nested module, and it has a stop comment between its two items. We want to see that the first item is displayed, but the second is missing, and the stop comment disables documenation only in that module, and not in this outer module. -

    -
    -
    - module N : sig ... end -
    -
    -
    -
    - val lol : int -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Stop_dead_link_doc/index.html b/test/html/expect/test_package+ml/Stop_dead_link_doc/index.html deleted file mode 100644 index 5e466b451f..0000000000 --- a/test/html/expect/test_package+ml/Stop_dead_link_doc/index.html +++ /dev/null @@ -1,119 +0,0 @@ - - - - - Stop_dead_link_doc (test_package+ml.Stop_dead_link_doc) - - - - - - - - - - -
    -

    - Module Stop_dead_link_doc -

    -
    -
    -
    -
    - module Foo : sig ... end -
    -
    -
    -
    - type foo = - - - - - - -
    - | Bar of Foo.t -
    -
    -
    -
    -
    - type bar = - - - - - - -
    - | Bar of { - - - - - - -
    - field : Foo.t; -
    - } -
    -
    -
    -
    -
    - type foo_ = - - - - - - -
    - | Bar_ of int * Foo.t * int -
    -
    -
    -
    -
    - type bar_ = - - - - - - -
    - | Bar__ of Foo.t option -
    -
    -
    -
    -
    - type another_foo -
    -
    -
    -
    - type another_bar -
    -
    -
    -
    - type another_foo_ -
    -
    -
    -
    - type another_bar_ -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/Alias/index.html b/test/html/expect/test_package+ml/Toplevel_comments/Alias/index.html deleted file mode 100644 index 260d7d513b..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/Alias/index.html +++ /dev/null @@ -1,39 +0,0 @@ - - - - - Alias (test_package+ml.Toplevel_comments.Alias) - - - - - - - - - - -
    -

    - Module Toplevel_comments.Alias -

    -

    - Doc of Alias. -

    -

    - Doc of T, part 2. -

    -
    -
    -
    -
    - type t -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/Include_inline'/index.html b/test/html/expect/test_package+ml/Toplevel_comments/Include_inline'/index.html deleted file mode 100644 index 8178bf1cb8..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/Include_inline'/index.html +++ /dev/null @@ -1,46 +0,0 @@ - - - - - Include_inline' (test_package+ml.Toplevel_comments.Include_inline') - - - - - - - - - - -
    -

    - Module Toplevel_comments.Include_inline' -

    -

    - Doc of Include_inline, part 1. -

    -

    - Doc of Include_inline, part 2. -

    -
    -
    -
    -
    -

    - part 3 -

    -
    -
    -
    - type t -
    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/Include_inline/index.html b/test/html/expect/test_package+ml/Toplevel_comments/Include_inline/index.html deleted file mode 100644 index 35bf9703c8..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/Include_inline/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - Include_inline (test_package+ml.Toplevel_comments.Include_inline) - - - - - - - - - - -
    -

    - Module Toplevel_comments.Include_inline -

    -

    - Doc of T, part 2. -

    -
    -
    -
    -
    -
    - type t -
    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/M''/index.html b/test/html/expect/test_package+ml/Toplevel_comments/M''/index.html deleted file mode 100644 index c4ec998ba3..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/M''/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - M'' (test_package+ml.Toplevel_comments.M'') - - - - - - - - - - -
    -

    - Module Toplevel_comments.M'' -

    -

    - Doc of M'', part 1. -

    -

    - Doc of M'', part 2. -

    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/M'/index.html b/test/html/expect/test_package+ml/Toplevel_comments/M'/index.html deleted file mode 100644 index 82badb81af..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/M'/index.html +++ /dev/null @@ -1,30 +0,0 @@ - - - - - M' (test_package+ml.Toplevel_comments.M') - - - - - - - - - - -
    -

    - Module Toplevel_comments.M' -

    -

    - Doc of M' from outside -

    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/M/index.html b/test/html/expect/test_package+ml/Toplevel_comments/M/index.html deleted file mode 100644 index c5346d51da..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/M/index.html +++ /dev/null @@ -1,30 +0,0 @@ - - - - - M (test_package+ml.Toplevel_comments.M) - - - - - - - - - - -
    -

    - Module Toplevel_comments.M -

    -

    - Doc of M -

    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/Ref_in_synopsis/index.html b/test/html/expect/test_package+ml/Toplevel_comments/Ref_in_synopsis/index.html deleted file mode 100644 index 24a959fd92..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/Ref_in_synopsis/index.html +++ /dev/null @@ -1,39 +0,0 @@ - - - - - Ref_in_synopsis (test_package+ml.Toplevel_comments.Ref_in_synopsis) - - - - - - - - - - -
    -

    - Module Toplevel_comments.Ref_in_synopsis -

    -

    - t. -

    -

    - This reference should resolve in the context of this module, even when used as a synopsis. -

    -
    -
    -
    -
    - type t -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/class-c1/index.html b/test/html/expect/test_package+ml/Toplevel_comments/class-c1/index.html deleted file mode 100644 index dd51569575..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/class-c1/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - c1 (test_package+ml.Toplevel_comments.c1) - - - - - - - - - - -
    -

    - Class Toplevel_comments.c1 -

    -

    - Doc of c1, part 1. -

    -

    - Doc of c1, part 2. -

    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/class-c2/index.html b/test/html/expect/test_package+ml/Toplevel_comments/class-c2/index.html deleted file mode 100644 index a416f31ed7..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/class-c2/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - c2 (test_package+ml.Toplevel_comments.c2) - - - - - - - - - - -
    -

    - Class Toplevel_comments.c2 -

    -

    - Doc of c2. -

    -

    - Doc of ct, part 2. -

    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/class-type-ct/index.html b/test/html/expect/test_package+ml/Toplevel_comments/class-type-ct/index.html deleted file mode 100644 index e4d4ea7f27..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/class-type-ct/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - ct (test_package+ml.Toplevel_comments.ct) - - - - - - - - - - -
    -

    - Class type Toplevel_comments.ct -

    -

    - Doc of ct, part 1. -

    -

    - Doc of ct, part 2. -

    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/index.html b/test/html/expect/test_package+ml/Toplevel_comments/index.html deleted file mode 100644 index 9d70529ddc..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/index.html +++ /dev/null @@ -1,161 +0,0 @@ - - - - - Toplevel_comments (test_package+ml.Toplevel_comments) - - - - - - - - - - -
    -

    - Module Toplevel_comments -

    -

    - A doc comment at the beginning of a module is considered to be that module's doc. -

    -
    -
    -
    -
    - module type T = sig ... end -
    -
    -

    - Doc of T, part 1. -

    -
    -
    -
    -
    - module Include_inline : sig ... end -
    -
    -

    - Doc of T, part 2. -

    -
    -
    -
    -
    - module Include_inline' : sig ... end -
    -
    -

    - Doc of Include_inline, part 1. -

    -
    -
    -
    -
    - module type Include_inline_T = sig ... end -
    -
    -

    - Doc of T, part 2. -

    -
    -
    -
    -
    - module type Include_inline_T' = sig ... end -
    -
    -

    - Doc of Include_inline_T', part 1. -

    -
    -
    -
    -
    - module M : sig ... end -
    -
    -

    - Doc of M -

    -
    -
    -
    -
    - module M' : sig ... end -
    -
    -

    - Doc of M' from outside -

    -
    -
    -
    -
    - module M'' : sig ... end -
    -
    -

    - Doc of M'', part 1. -

    -
    -
    -
    -
    - module Alias : T -
    -
    -

    - Doc of Alias. -

    -
    -
    -
    -
    - class c1 : int -> object ... end -
    -
    -

    - Doc of c1, part 1. -

    -
    -
    -
    -
    - class type ct = object ... end -
    -
    -

    - Doc of ct, part 1. -

    -
    -
    -
    -
    - class c2 : ct -
    -
    -

    - Doc of c2. -

    -
    -
    -
    -
    - module Ref_in_synopsis : sig ... end -
    -
    -

    - t. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/module-type-Include_inline_T'/index.html b/test/html/expect/test_package+ml/Toplevel_comments/module-type-Include_inline_T'/index.html deleted file mode 100644 index d0e264a753..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/module-type-Include_inline_T'/index.html +++ /dev/null @@ -1,46 +0,0 @@ - - - - - Include_inline_T' (test_package+ml.Toplevel_comments.Include_inline_T') - - - - - - - - - - -
    -

    - Module type Toplevel_comments.Include_inline_T' -

    -

    - Doc of Include_inline_T', part 1. -

    -

    - Doc of Include_inline_T', part 2. -

    -
    -
    -
    -
    -

    - part 3 -

    -
    -
    -
    - type t -
    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/module-type-Include_inline_T/index.html b/test/html/expect/test_package+ml/Toplevel_comments/module-type-Include_inline_T/index.html deleted file mode 100644 index 22611a0a32..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/module-type-Include_inline_T/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - Include_inline_T (test_package+ml.Toplevel_comments.Include_inline_T) - - - - - - - - - - -
    -

    - Module type Toplevel_comments.Include_inline_T -

    -

    - Doc of T, part 2. -

    -
    -
    -
    -
    -
    - type t -
    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Toplevel_comments/module-type-T/index.html b/test/html/expect/test_package+ml/Toplevel_comments/module-type-T/index.html deleted file mode 100644 index c70e8597cf..0000000000 --- a/test/html/expect/test_package+ml/Toplevel_comments/module-type-T/index.html +++ /dev/null @@ -1,39 +0,0 @@ - - - - - T (test_package+ml.Toplevel_comments.T) - - - - - - - - - - -
    -

    - Module type Toplevel_comments.T -

    -

    - Doc of T, part 1. -

    -

    - Doc of T, part 2. -

    -
    -
    -
    -
    - type t -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Type/index.html b/test/html/expect/test_package+ml/Type/index.html deleted file mode 100644 index 5c22ee7710..0000000000 --- a/test/html/expect/test_package+ml/Type/index.html +++ /dev/null @@ -1,548 +0,0 @@ - - - - - Type (test_package+ml.Type) - - - - - - - - - - -
    -

    - Module Type -

    -
    -
    -
    -
    - type abstract -
    -
    -

    - Some documentation. -

    -
    -
    -
    -
    - type alias = int -
    -
    -
    -
    - type private_ = private int -
    -
    -
    -
    - type 'a constructor = 'a -
    -
    -
    -
    - type arrow = int -> int -
    -
    -
    -
    - type higher_order = (int -> int) -> int -
    -
    -
    -
    - type labeled = l:int -> int -
    -
    -
    -
    - type optional = ?l:int -> int -
    -
    -
    -
    - type labeled_higher_order = (l:int -> int) -> (?l:int -> int) -> int -
    -
    -
    -
    - type pair = int * int -
    -
    -
    -
    - type parens_dropped = int * int -
    -
    -
    -
    - type triple = int * int * int -
    -
    -
    -
    - type nested_pair = (int * int) * int -
    -
    -
    -
    - type instance = int constructor -
    -
    -
    -
    - type long = labeled_higher_order -> [ `Bar | `Baz of triple ] -> pair -> labeled -> higher_order -> (string -> int) -> (int, float, char, string, char, unit) CamlinternalFormatBasics.fmtty -> nested_pair -> arrow -> string -> nested_pair array -
    -
    -
    -
    - type variant_e = { - - - - - - -
    - a : int; -
    - } -
    -
    -
    -
    - type variant = - - - - - - - - - - - - - - - - - - - - -
    - | A -
    - | B of int -
    - | C - - (* -

    - foo -

    - *) -
    - | D - - (* -

    - bar -

    - *) -
    - | E of variant_e -
    -
    -
    -
    -
    - type variant_c = { - - - - - - -
    - a : int; -
    - } -
    -
    -
    -
    - type _ gadt = - - - - - - - - - - - - -
    - | A : int gadt -
    - | B : int -> string gadt -
    - | C : variant_c -> unit gadt -
    -
    -
    -
    -
    - type degenerate_gadt = - - - - - - -
    - | A : degenerate_gadt -
    -
    -
    -
    -
    - type private_variant = private - - - - - - -
    - | A -
    -
    -
    -
    -
    - type record = { - - - - - - - - - - - - - - - - - - - - -
    - a : int; -
    - mutable b : int; -
    - c : int; - - (* -

    - foo -

    - *) -
    - d : int; - - (* -

    - bar -

    - *) -
    - e : a. 'a; -
    - } -
    -
    -
    -
    - type polymorphic_variant = [ - - - - - - - - - - - - - - - -
    - | `A -
    - | `B of int -
    - | `C of int * unit -
    - | `D -
    - ] -
    -
    -
    -
    - type polymorphic_variant_extension = [ - - - - - - - - - -
    - | polymorphic_variant -
    - | `E -
    - ] -
    -
    -
    -
    - type nested_polymorphic_variant = [ - - - - - - -
    - | `A of [ `B | `C ] -
    - ] -
    -
    -
    -
    - type private_extenion#row -
    -
    -
    -
    - and private_extenion = private [> - - - - - - -
    - | polymorphic_variant -
    - ] -
    -
    -
    -
    - type object_ = < a : int; b : int; c : int; > -
    -
    -
    -
    - module type X = sig ... end -
    -
    -
    -
    - type module_ = (module X) -
    -
    -
    -
    - type module_substitution = (module X with type t = int and type u = unit) -
    -
    -
    -
    - type +'a covariant -
    -
    -
    -
    - type -'a contravariant -
    -
    -
    -
    - type _ bivariant = int -
    -
    -
    -
    - type ('a, 'b) binary -
    -
    -
    -
    - type using_binary = (int, int) binary -
    -
    -
    -
    - type 'custom name -
    -
    -
    -
    - type 'a constrained = 'a constraint 'a = int -
    -
    -
    -
    - type 'a exact_variant = 'a constraint 'a = [ `A | `B of int ] -
    -
    -
    -
    - type 'a lower_variant = 'a constraint 'a = [> `A | `B of int ] -
    -
    -
    -
    - type 'a any_variant = 'a constraint 'a = [> ] -
    -
    -
    -
    - type 'a upper_variant = 'a constraint 'a = [< `A | `B of int ] -
    -
    -
    -
    - type 'a named_variant = 'a constraint 'a = [< polymorphic_variant ] -
    -
    -
    -
    - type 'a exact_object = 'a constraint 'a = < a : int; b : int; > -
    -
    -
    -
    - type 'a lower_object = 'a constraint 'a = < a : int; b : int; .. > -
    -
    -
    -
    - type 'a poly_object = 'a constraint 'a = < a : a. 'a; > -
    -
    -
    -
    - type ('a, 'b) double_constrained = 'a * 'b constraint 'a = int constraint 'b = unit -
    -
    -
    -
    - type as_ = int as 'a * 'a -
    -
    -
    -
    - type extensible = .. -
    -
    -
    -
    - type extensible += - - - - - - - - - - - -
    - | Extension - - (* -

    - Documentation for Extension. -

    - *) -
    - | Another_extension - - (* -

    - Documentation for Another_extension. -

    - *) -
    -
    -
    -
    -
    - type mutually = - - - - - - -
    - | A of recursive -
    -
    -
    -
    -
    - and recursive = - - - - - - -
    - | B of mutually -
    -
    -
    -
    -
    - exception Foo of int * int -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/Type/module-type-X/index.html b/test/html/expect/test_package+ml/Type/module-type-X/index.html deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/test/html/expect/test_package+ml/Val/index.html b/test/html/expect/test_package+ml/Val/index.html deleted file mode 100644 index d2e0dac64a..0000000000 --- a/test/html/expect/test_package+ml/Val/index.html +++ /dev/null @@ -1,53 +0,0 @@ - - - - - Val (test_package+ml.Val) - - - - - - - - - - -
    -

    - Module Val -

    -
    -
    -
    -
    - val documented : unit -
    -
    -

    - Foo. -

    -
    -
    -
    -
    - val undocumented : unit -
    -
    -
    -
    - val documented_above : unit -
    -
    -

    - Bar. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+ml/mld.html b/test/html/expect/test_package+ml/mld.html deleted file mode 100644 index 114e38de66..0000000000 --- a/test/html/expect/test_package+ml/mld.html +++ /dev/null @@ -1,94 +0,0 @@ - - - - - mld (test_package+ml.mld) - - - - - - - - - - -
    -

    - Mld Page -

    -

    - This is an .mld file. It doesn't have an auto-generated title, like modules and other pages generated fully by odoc do. -

    -

    - It will have a TOC generated from section headings. -

    -
    - -
    -

    - Section -

    -

    - This is a section. -

    -

    - Another paragraph in section. -

    -

    - Another section -

    -

    - This is another section. -

    -

    - Another paragraph in section 2. -

    -

    - Subsection -

    -

    - This is a subsection. -

    -

    - Another paragraph in subsection. -

    -

    - Yet another paragraph in subsection. -

    -

    - Another Subsection -

    -

    - This is another subsection. -

    -

    - Another paragraph in subsection 2. -

    -

    - Yet another paragraph in subsection 2. -

    -
    - - diff --git a/test/html/expect/test_package+re/Alias/X/index.html b/test/html/expect/test_package+re/Alias/X/index.html deleted file mode 100644 index 02d4b66783..0000000000 --- a/test/html/expect/test_package+re/Alias/X/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - X (test_package+re.Alias.X) - - - - - - - - - - -
    -

    - Module Alias.X -

    -
    -
    -
    -
    - type t = int; -
    -
    -

    - Module Foo__X documentation. This should appear in the documentation for the alias to this module 'X' -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Alias/index.html b/test/html/expect/test_package+re/Alias/index.html deleted file mode 100644 index cf3c56c18e..0000000000 --- a/test/html/expect/test_package+re/Alias/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - Alias (test_package+re.Alias) - - - - - - - - - - -
    -

    - Module Alias -

    -
    -
    -
    -
    - module Foo__X: { ... }; -
    -
    -
    -
    - module X: { ... }; -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Bugs/index.html b/test/html/expect/test_package+re/Bugs/index.html deleted file mode 100644 index b6e7a85d17..0000000000 --- a/test/html/expect/test_package+re/Bugs/index.html +++ /dev/null @@ -1,43 +0,0 @@ - - - - - Bugs (test_package+re.Bugs) - - - - - - - - - - -
    -

    - Module Bugs -

    -
    -
    -
    -
    - type opt('a) = option('a); -
    -
    -
    -
    - let foo: ?bar:'a => unit => unit; -
    -
    -

    - Triggers an assertion failure when https://github.com/ocaml/odoc/issues/101 is not fixed. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Bugs_post_406/index.html b/test/html/expect/test_package+re/Bugs_post_406/index.html deleted file mode 100644 index e2ecdf6703..0000000000 --- a/test/html/expect/test_package+re/Bugs_post_406/index.html +++ /dev/null @@ -1,41 +0,0 @@ - - - - - Bugs_post_406 (test_package+re.Bugs_post_406) - - - - - - - - - - -
    -

    - Module Bugs_post_406 -

    -

    - Let-open in class types, https://github.com/ocaml/odoc/issues/543 This was added to the language in 4.06 -

    -
    -
    -
    -
    - class type let_open = { ... } -
    -
    -
    -
    - class let_open': { ... } -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Bugs_pre_410/index.html b/test/html/expect/test_package+re/Bugs_pre_410/index.html deleted file mode 100644 index 48e89703ec..0000000000 --- a/test/html/expect/test_package+re/Bugs_pre_410/index.html +++ /dev/null @@ -1,43 +0,0 @@ - - - - - Bugs_pre_410 (test_package+re.Bugs_pre_410) - - - - - - - - - - -
    -

    - Module Bugs_pre_410 -

    -
    -
    -
    -
    - type opt'('a) = option(int); -
    -
    -
    -
    - let foo': ?bar:'a => unit => unit; -
    -
    -

    - Similar to Bugs, but the printed type of ~bar should be int, not 'a. This probably requires fixing in the compiler. See https://github.com/ocaml/odoc/pull/230#issuecomment-433226807. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Class/index.html b/test/html/expect/test_package+re/Class/index.html deleted file mode 100644 index 63a47e387c..0000000000 --- a/test/html/expect/test_package+re/Class/index.html +++ /dev/null @@ -1,73 +0,0 @@ - - - - - Class (test_package+re.Class) - - - - - - - - - - -
    -

    - Module Class -

    -
    -
    -
    -
    - class type empty = { ... } -
    -
    -
    -
    - class type mutually = { ... } -
    -
    -
    -
    - class type recursive = { ... } -
    -
    -
    -
    - class mutually': mutually -
    -
    -
    -
    - class recursive': recursive -
    -
    -
    -
    - class type virtual empty_virtual = { ... } -
    -
    -
    -
    - class virtual empty_virtual': empty -
    -
    -
    -
    - class type ('a) polymorphic = { ... } -
    -
    -
    -
    - class ('a) polymorphic': polymorphic('a) -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/External/index.html b/test/html/expect/test_package+re/External/index.html deleted file mode 100644 index 4ef9a6b917..0000000000 --- a/test/html/expect/test_package+re/External/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - External (test_package+re.External) - - - - - - - - - - -
    -

    - Module External -

    -
    -
    -
    -
    - let foo: unit => unit; -
    -
    -

    - Foo bar. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Functor/index.html b/test/html/expect/test_package+re/Functor/index.html deleted file mode 100644 index 42ba894885..0000000000 --- a/test/html/expect/test_package+re/Functor/index.html +++ /dev/null @@ -1,63 +0,0 @@ - - - - - Functor (test_package+re.Functor) - - - - - - - - - - -
    -

    - Module Functor -

    -
    -
    -
    -
    - module type S = { ... }; -
    -
    -
    -
    - module type S1 = (_: S) => S; -
    -
    -
    -
    - module F1: (Arg: S) => S; -
    -
    -
    -
    - module F2: (Arg: S) => S with type t = Arg.t; -
    -
    -
    -
    - module F3: (Arg: S) => { ... }; -
    -
    -
    -
    - module F4: (Arg: S) => S; -
    -
    -
    -
    - module F5: () => S; -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Include/index.html b/test/html/expect/test_package+re/Include/index.html deleted file mode 100644 index c12e0a57ce..0000000000 --- a/test/html/expect/test_package+re/Include/index.html +++ /dev/null @@ -1,137 +0,0 @@ - - - - - Include (test_package+re.Include) - - - - - - - - - - -
    -

    - Module Include -

    -
    -
    -
    -
    - module type Not_inlined = { ... }; -
    -
    -
    -
    - - include Not_inlined; - -
    -
    - type t; -
    -
    -
    -
    -
    -
    - module type Inlined = { ... }; -
    -
    -
    -
    -
    - type u; -
    -
    -
    -
    -
    - module type Not_inlined_and_closed = { ... }; -
    -
    -
    -
    - - include Not_inlined_and_closed; - -
    -
    - type v; -
    -
    -
    -
    -
    -
    - module type Not_inlined_and_opened = { ... }; -
    -
    -
    -
    - - include Not_inlined_and_opened; - -
    -
    - type w; -
    -
    -
    -
    -
    -
    - module type Inherent_Module = { ... }; -
    -
    -
    -
    - - include Inherent_Module; - -
    -
    - let a: t; -
    -
    -
    -
    -
    -
    - module type Dorminant_Module = { ... }; -
    -
    -
    -
    - - include Dorminant_Module; - -
    -
    - - include Inherent_Module; - -
    -
    - let a: t; -
    -
    -
    -
    -
    -
    - let a: u; -
    -
    -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Include2/Y_include_doc/index.html b/test/html/expect/test_package+re/Include2/Y_include_doc/index.html deleted file mode 100644 index a553bbbc64..0000000000 --- a/test/html/expect/test_package+re/Include2/Y_include_doc/index.html +++ /dev/null @@ -1,45 +0,0 @@ - - - - - Y_include_doc (test_package+re.Include2.Y_include_doc) - - - - - - - - - - -
    -

    - Module Include2.Y_include_doc -

    -
    -
    -
    -
    -

    - Doc attached to include Y. Y's top-comment shouldn't appear here. -

    -
    -
    - - include module type of struct include Y end; - -
    -
    - type t = Y.t; -
    -
    -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Include2/Y_include_synopsis/index.html b/test/html/expect/test_package+re/Include2/Y_include_synopsis/index.html deleted file mode 100644 index c3ed070b04..0000000000 --- a/test/html/expect/test_package+re/Include2/Y_include_synopsis/index.html +++ /dev/null @@ -1,43 +0,0 @@ - - - - - Y_include_synopsis (test_package+re.Include2.Y_include_synopsis) - - - - - - - - - - -
    -

    - Module Include2.Y_include_synopsis -

    -

    - The include Y below should have the synopsis from Y's top-comment attached to it. -

    -
    -
    -
    -
    - - include module type of struct include Y end; - -
    -
    - type t = Y.t; -
    -
    -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Include2/index.html b/test/html/expect/test_package+re/Include2/index.html deleted file mode 100644 index 1079c94b07..0000000000 --- a/test/html/expect/test_package+re/Include2/index.html +++ /dev/null @@ -1,78 +0,0 @@ - - - - - Include2 (test_package+re.Include2) - - - - - - - - - - -
    -

    - Module Include2 -

    -
    -
    -
    -
    - module X: { ... }; -
    -
    -

    - Comment about X that should not appear when including X below. -

    -
    -
    -
    -
    - - include module type of struct include X end; - -

    - Comment about X that should not appear when including X below. -

    -
    -
    - type t = int; -
    -
    -
    -
    -
    -
    - module Y: { ... }; -
    -
    -

    - Top-comment of Y. -

    -
    -
    -
    -
    - module Y_include_synopsis: { ... }; -
    -
    -

    - The include Y below should have the synopsis from Y's top-comment attached to it. -

    -
    -
    -
    -
    - module Y_include_doc: { ... }; -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Include_sections/index.html b/test/html/expect/test_package+re/Include_sections/index.html deleted file mode 100644 index 50c0ab8a35..0000000000 --- a/test/html/expect/test_package+re/Include_sections/index.html +++ /dev/null @@ -1,256 +0,0 @@ - - - - - Include_sections (test_package+re.Include_sections) - - - - - - - - - - -
    -

    - Module Include_sections -

    -
    - -
    -
    -
    - module type Something = { ... }; -
    -
    -

    - A module type. -

    -
    -
    -

    - Let's include Something once -

    -
    -
    -
    - let something: unit; -
    -
    -

    - Something 1 -

    -

    - foo -

    -
    -
    - let foo: unit; -
    -
    -

    - Something 2 -

    -
    -
    - let bar: unit; -
    -
    -

    - foo bar -

    -
    -
    -

    - Something 1-bis -

    -

    - Some text. -

    -
    -

    - Second include -

    -

    - Let's include Something a second time: the heading level should be shift here. -

    -
    -
    -
    - let something: unit; -
    -
    -

    - Something 1 -

    -

    - foo -

    -
    -
    - let foo: unit; -
    -
    -

    - Something 2 -

    -
    -
    - let bar: unit; -
    -
    -

    - foo bar -

    -
    -
    -

    - Something 1-bis -

    -

    - Some text. -

    -
    -

    - Third include -

    -

    - Shifted some more. -

    -
    -
    -
    - let something: unit; -
    -
    -

    - Something 1 -

    -

    - foo -

    -
    -
    - let foo: unit; -
    -
    -
    - Something 2 -
    -
    -
    - let bar: unit; -
    -
    -

    - foo bar -

    -
    -
    -

    - Something 1-bis -

    -

    - Some text. -

    -
    -

    - And let's include it again, but without inlining it this time: the ToC shouldn't grow. -

    -
    -
    - - include Something; - -
    -
    - let something: unit; -
    -
    -

    - Something 1 -

    -

    - foo -

    -
    -
    - let foo: unit; -
    -
    -

    - Something 2 -

    -
    -
    - let bar: unit; -
    -
    -

    - foo bar -

    -
    -
    -

    - Something 1-bis -

    -

    - Some text. -

    -
    -
    -
    - - diff --git a/test/html/expect/test_package+re/Include_sections/module-type-Something/index.html b/test/html/expect/test_package+re/Include_sections/module-type-Something/index.html deleted file mode 100644 index 2406c3857e..0000000000 --- a/test/html/expect/test_package+re/Include_sections/module-type-Something/index.html +++ /dev/null @@ -1,81 +0,0 @@ - - - - - Something (test_package+re.Include_sections.Something) - - - - - - - - - - -
    -

    - Module type Include_sections.Something -

    -

    - A module type. -

    -
    - -
    -
    -
    - let something: unit; -
    -
    -

    - Something 1 -

    -

    - foo -

    -
    -
    - let foo: unit; -
    -
    -

    - Something 2 -

    -
    -
    - let bar: unit; -
    -
    -

    - foo bar -

    -
    -
    -

    - Something 1-bis -

    -

    - Some text. -

    -
    - - diff --git a/test/html/expect/test_package+re/Interlude/index.html b/test/html/expect/test_package+re/Interlude/index.html deleted file mode 100644 index 2bbfa97f37..0000000000 --- a/test/html/expect/test_package+re/Interlude/index.html +++ /dev/null @@ -1,81 +0,0 @@ - - - - - Interlude (test_package+re.Interlude) - - - - - - - - - - -
    -

    - Module Interlude -

    -

    - This is the comment associated to the module. -

    -
    -
    -

    - Some separate stray text at the top of the module. -

    -
    -
    - let foo: unit; -
    -
    -

    - Foo. -

    -
    -
    -

    - Some stray text that is not associated with any signature item. -

    -

    - It has multiple paragraphs. -

    -

    - A separate block of stray text, adjacent to the preceding one. -

    -
    -
    - let bar: unit; -
    -
    -

    - Bar. -

    -
    -
    -
    -
    - let multiple: unit; -
    -
    -
    -
    - let signature: unit; -
    -
    -
    -
    - let items: unit; -
    -
    -

    - Stray text at the bottom of the module. -

    -
    - - diff --git a/test/html/expect/test_package+re/Labels/index.html b/test/html/expect/test_package+re/Labels/index.html deleted file mode 100644 index e46af4c2d4..0000000000 --- a/test/html/expect/test_package+re/Labels/index.html +++ /dev/null @@ -1,237 +0,0 @@ - - - - - Labels (test_package+re.Labels) - - - - - - - - - - -
    -

    - Module Labels -

    -
    - -
    -

    - Attached to unit -

    -

    - Attached to nothing -

    -
    -
    - module A: { ... }; -
    -
    -
    -
    - type t; -
    -
    -

    - Attached to type -

    -
    -
    -
    -
    - let f: t; -
    -
    -

    - Attached to value -

    -
    -
    -
    -
    - let e: unit => t; -
    -
    -

    - Attached to external -

    -
    -
    -
    -
    - module type S = { ... }; -
    -
    -
    -
    - class c: { ... } -
    -
    -
    -
    - class type cs = { ... } -
    -
    -
    -
    - exception E; -
    -
    -

    - Attached to exception -

    -
    -
    -
    -
    - type x = ..; -
    -
    -
    -
    - type x += - - - - - - -
    - | X -
    - ; -
    -
    -

    - Attached to extension -

    -
    -
    -
    -
    - module S := A -
    -
    -

    - Attached to module subst -

    -
    -
    -
    -
    - type s := t; -
    -
    -

    - Attached to type subst -

    -
    -
    -
    -
    - type u = - - - - - - - -
    - | A' - - /* -

    - Attached to constructor -

    - */ -
    - ; -
    -
    -
    -
    - type v = { - - - - - - - -
    - f: t, - - /* -

    - Attached to field -

    - */ -
    - }; -
    -
    -

    - Testing that labels can be referenced -

    - -
    - - diff --git a/test/html/expect/test_package+re/Markup/index.html b/test/html/expect/test_package+re/Markup/index.html deleted file mode 100644 index 075a552e7c..0000000000 --- a/test/html/expect/test_package+re/Markup/index.html +++ /dev/null @@ -1,378 +0,0 @@ - - - - - Markup (test_package+re.Markup) - - - - - - - - - - -
    -

    - Module Markup -

    -

    - Here, we test the rendering of comment markup. -

    -
    - -
    -

    - Sections -

    -

    - Let's get these done first, because sections will be used to break up the rest of this test. -

    -

    - Besides the section heading above, there are also -

    -

    - Subsection headings -

    -

    - and -

    -

    - Sub-subsection headings -

    -

    - but odoc has banned deeper headings. There are also title headings, but they are only allowed in mld files. -

    -

    - Anchors -

    -

    - Sections can have attached Anchors, and it is possible to link to them. Links to section headers should not be set in source code style. -

    -
    - Paragraph -
    -

    - Individual paragraphs can have a heading. -

    -
    - Subparagraph -
    -

    - Parts of a longer paragraph that can be considered alone can also have headings. -

    -

    - Styling -

    -

    - This paragraph has some styled elements: bold and italic, bold italic, emphasis, emphasis within emphasis, bold italic, superscript, subscript. The line spacing should be enough for superscripts and subscripts not to look odd. -

    -

    - Note: In italics emphasis is rendered as normal text while emphasis in emphasis is rendered in italics. It also work the same in links in italics with emphasis in emphasis. -

    -

    - code is a different kind of markup that doesn't allow nested markup. -

    -

    - It's possible for two markup elements to appear next to each other and have a space, and appear nextto each other with no space. It doesn't matter how much space it was in the source: in this sentence, it was two space characters. And in this one, there is a newline. -

    -

    - This is also true between non-code markup and code. -

    -

    - Code can appear inside other markup. Its display shouldn't be affected. -

    - -

    - This is a link. It sends you to the top of this page. Links can have markup inside them: bold, italics, emphasis, superscript, subscript, and code. Links can also be nested inside markup. Links cannot be nested inside each other. This link has no replacement text: #. The text is filled in by odoc. This is a shorthand link: #. The text is also filled in by odoc in this case. -

    -

    - This is a reference to foo. References can have replacement text: the value foo. Except for the special lookup support, references are pretty much just like links. The replacement text can have nested styles: bold, italic, emphasis, superscript, subscript, and code. It's also possible to surround a reference in a style: foo. References can't be nested inside references, and links and references can't be nested inside each other. -

    -

    - Preformatted text -

    -

    - This is a code block: -

    - 
    let foo = ()
-(** There are some nested comments in here, but an unpaired comment
-    terminator would terminate the whole doc surrounding comment. It's
-    best to keep code blocks no wider than 72 characters. *)
-
-let bar =
-  ignore foo
    -

    - There are also verbatim blocks: -

    - 
    The main difference is these don't get syntax highlighting.
    -

    - Lists -

    -
      -
    • - This is a -
      • -
    • - shorthand bulleted list, -
      • -
    • - and the paragraphs in each list item support styling. -
      • -
    -
      -
    1. - This is a -
      2. -
    2. - shorthand numbered list. -
      3. -
    -
      -
    • - Shorthand list items can span multiple lines, however trying to put two paragraphs into a shorthand list item using a double line break -
      • -
    -

    - just creates a paragraph outside the list. -

    -
      -
    • - Similarly, inserting a blank line between two list items -
      • -
    -
      -
    • - creates two separate lists. -
      • -
    -
      -
    • -

      - To get around this limitation, one -

      -

      - can use explicitly-delimited lists. -

      -
      • -
    • - This one is bulleted, -
      • -
    -
      -
    1. - but there is also the numbered variant. -
      2. -
    -
      -
    • -
        -
      • - lists -
        • -
      • - can be nested -
        • -
      • - and can include references -
        • -
      • - foo -
        • -
      -
      • -
    -

    - Unicode -

    -

    - The parser supports any ASCII-compatible encoding, in particuλar UTF-8. -

    -

    - Raw HTML -

    -

    - Raw HTML can be as inline elements into sentences. -

    -
    - If the raw HTML is the only thing in a paragraph, it is treated as a block - element, and won't be wrapped in paragraph tags by the HTML generator. -
    -

    - Modules -

    -
      -
        -
      • - X -
        • -
      -
        -
      • - X -
        • -
      • - Y -
        • -
      • - Z -
        • -
      -

      - Tags -

      -

      - Each comment can end with zero or more tags. Here are some examples: -

      -
        -
      • - author antron -
        • -
      -
        -
      • - deprecated -

        - a long time ago -

        -
        • -
      -
        -
      • - parameter foo -

        - unused -

        -
        • -
      -
        -
      • - raises Failure -

        - always -

        -
        • -
      -
        -
      • - returns -

        - never -

        -
        • -
      -
        -
      • - see # -

        - this url -

        -
        • -
      -
        -
      • - see foo.ml -

        - this file -

        -
        • -
      -
        -
      • - see Foo -

        - this document -

        -
        • -
      -
        -
      • - since 0 -
        • -
      -
        -
      • - before 1.0 -

        - it was in beta -

        -
        • -
      -
        -
      • - version -1 -
        • -
      -
      -
      - let foo: unit; -
      -
      -

      - Comments in structure items support markup, too. -

      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Module/index.html b/test/html/expect/test_package+re/Module/index.html deleted file mode 100644 index 2a7dade220..0000000000 --- a/test/html/expect/test_package+re/Module/index.html +++ /dev/null @@ -1,111 +0,0 @@ - - - - - Module (test_package+re.Module) - - - - - - - - - - -
      -

      - Module Module -

      -

      - Foo. -

      -
      -
      -
      -
      - let foo: unit; -
      -
      -

      - The module needs at least one signature item, otherwise a bug causes the compiler to drop the module comment (above). See https://caml.inria.fr/mantis/view.php?id=7701. -

      -
      -
      -
      -
      - module type S = { ... }; -
      -
      -
      -
      - module type S1; -
      -
      -
      -
      - module type S2 = S; -
      -
      -
      -
      - module type S3 = S with type t = int and type u = string; -
      -
      -
      -
      - module type S4 = S with type t := int; -
      -
      -
      -
      - module type S5 = S with type v('a) := list('a); -
      -
      -
      -
      - type result('a, 'b); -
      -
      -
      -
      - module type S6 = S with type w('a, 'b) := result('a, 'b); -
      -
      -
      -
      - module M': { ... }; -
      -
      -
      -
      - module type S7 = S with module M = M'; -
      -
      -
      -
      - module type S8 = S with module M := M'; -
      -
      -
      -
      - module type S9 = module type of M'; -
      -
      -
      -
      - module Mutually: { ... }; -
      -
      -
      -
      - module Recursive: { ... }; -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Nested/F/argument-1-Arg1/index.html b/test/html/expect/test_package+re/Nested/F/argument-1-Arg1/index.html deleted file mode 100644 index 5c31813a5e..0000000000 --- a/test/html/expect/test_package+re/Nested/F/argument-1-Arg1/index.html +++ /dev/null @@ -1,64 +0,0 @@ - - - - - Arg1 (test_package+re.Nested.F.1-Arg1) - - - - - - - - - - -
      -

      - Parameter F.1-Arg1 -

      -
      - -
      -

      - Type -

      -
      -
      - type t; -
      -
      -

      - Some type. -

      -
      -
      -

      - Values -

      -
      -
      - let y: t; -
      -
      -

      - The value of y. -

      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Nested/F/argument-2-Arg2/index.html b/test/html/expect/test_package+re/Nested/F/argument-2-Arg2/index.html deleted file mode 100644 index cd654a1c6a..0000000000 --- a/test/html/expect/test_package+re/Nested/F/argument-2-Arg2/index.html +++ /dev/null @@ -1,48 +0,0 @@ - - - - - Arg2 (test_package+re.Nested.F.2-Arg2) - - - - - - - - - - -
      -

      - Parameter F.2-Arg2 -

      -
      - -
      -

      - Type -

      -
      -
      - type t; -
      -
      -

      - Some type. -

      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Nested/F/index.html b/test/html/expect/test_package+re/Nested/F/index.html deleted file mode 100644 index b49b213b22..0000000000 --- a/test/html/expect/test_package+re/Nested/F/index.html +++ /dev/null @@ -1,76 +0,0 @@ - - - - - F (test_package+re.Nested.F) - - - - - - - - - - -
      -

      - Module Nested.F -

      -

      - This is a functor F. -

      -

      - Some additional comments. -

      -
      - -
      -

      - Type -

      -

      - Parameters -

      -
      -
      - module Arg1: Y -
      -
      -
      -
      - module Arg2: { ... } -
      -
      -

      - Signature -

      -
      -
      - type t = (Arg1.t, Arg2.t); -
      -
      -

      - Some type. -

      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Nested/X/index.html b/test/html/expect/test_package+re/Nested/X/index.html deleted file mode 100644 index de625410de..0000000000 --- a/test/html/expect/test_package+re/Nested/X/index.html +++ /dev/null @@ -1,70 +0,0 @@ - - - - - X (test_package+re.Nested.X) - - - - - - - - - - -
      -

      - Module Nested.X -

      -

      - This is module X. -

      -

      - Some additional comments. -

      -
      - -
      -

      - Type -

      -
      -
      - type t; -
      -
      -

      - Some type. -

      -
      -
      -

      - Values -

      -
      -
      - let x: t; -
      -
      -

      - The value of x. -

      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Nested/class-inherits/index.html b/test/html/expect/test_package+re/Nested/class-inherits/index.html deleted file mode 100644 index 74d84d11c3..0000000000 --- a/test/html/expect/test_package+re/Nested/class-inherits/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - inherits (test_package+re.Nested.inherits) - - - - - - - - - - -
      -

      - Class Nested.inherits -

      -
      -
      -
      -
      - inherit z -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Nested/class-z/index.html b/test/html/expect/test_package+re/Nested/class-z/index.html deleted file mode 100644 index bb1f695cb1..0000000000 --- a/test/html/expect/test_package+re/Nested/class-z/index.html +++ /dev/null @@ -1,74 +0,0 @@ - - - - - z (test_package+re.Nested.z) - - - - - - - - - - -
      -

      - Class Nested.z -

      -

      - This is class z. -

      -

      - Some additional comments. -

      -
      - -
      -
      -
      - val y: int -
      -
      -

      - Some value. -

      -
      -
      -
      -
      - val mutable virtual y': int -
      -
      -

      - Methods -

      -
      -
      - method z: int -
      -
      -

      - Some method. -

      -
      -
      -
      -
      - method private virtual z': int -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Nested/index.html b/test/html/expect/test_package+re/Nested/index.html deleted file mode 100644 index 73bfd919c8..0000000000 --- a/test/html/expect/test_package+re/Nested/index.html +++ /dev/null @@ -1,104 +0,0 @@ - - - - - Nested (test_package+re.Nested) - - - - - - - - - - -
      -

      - Module Nested -

      -

      - This comment needs to be here before #235 is fixed. -

      -
      - -
      -

      - Module -

      -
      -
      - module X: { ... }; -
      -
      -

      - This is module X. -

      -
      -
      -

      - Module type -

      -
      -
      - module type Y = { ... }; -
      -
      -

      - This is module type Y. -

      -
      -
      -

      - Functor -

      -
      -
      - module F: (Arg1: Y) => (Arg2: { ... }) => { ... }; -
      -
      -

      - This is a functor F. -

      -
      -
      -

      - Class -

      -
      -
      - class virtual z: { ... } -
      -
      -

      - This is class z. -

      -
      -
      -
      -
      - class virtual inherits: { ... } -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Nested/module-type-Y/index.html b/test/html/expect/test_package+re/Nested/module-type-Y/index.html deleted file mode 100644 index 21bee76fa0..0000000000 --- a/test/html/expect/test_package+re/Nested/module-type-Y/index.html +++ /dev/null @@ -1,70 +0,0 @@ - - - - - Y (test_package+re.Nested.Y) - - - - - - - - - - -
      -

      - Module type Nested.Y -

      -

      - This is module type Y. -

      -

      - Some additional comments. -

      -
      - -
      -

      - Type -

      -
      -
      - type t; -
      -
      -

      - Some type. -

      -
      -
      -

      - Values -

      -
      -
      - let y: t; -
      -
      -

      - The value of y. -

      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Ocamlary/index.html b/test/html/expect/test_package+re/Ocamlary/index.html deleted file mode 100644 index 6c19ea4d56..0000000000 --- a/test/html/expect/test_package+re/Ocamlary/index.html +++ /dev/null @@ -1,2037 +0,0 @@ - - - - - Ocamlary (test_package+re.Ocamlary) - - - - - - - - - - -
      -

      - Module Ocamlary -

      -

      - This is an interface with all of the module system features. This documentation demonstrates: -

      -
        -
      • - comment formatting -
        • -
      • - unassociated comments -
        • -
      • - documentation sections -
        • -
      • -

        - module system documentation including -

        -
          -
        1. - submodules -
          2. -
        2. - module aliases -
          3. -
        3. - module types -
          4. -
        4. - module type aliases -
          5. -
        5. - modules with signatures -
          6. -
        6. - modules with aliased signatures -
          7. -
        -
        • -
      -

      - A numbered list: -

      -
        -
      1. - 3 -
        2. -
      2. - 2 -
        3. -
      3. - 1 -
        4. -
      -

      - David Sheets is the author. -

      -
        -
      • - author David Sheets -
        • -
      -
      - -
      -

      - You may find more information about this HTML documentation renderer at github.com/dsheets/ocamlary. -

      -

      - This is some verbatim text: -

      - 
      verbatim
      -

      - This is some verbatim text: -

      - 
      [][df[]]}}
      -

      - Here is some raw LaTeX: -

      -

      - Here is an index table of Empty modules: -

      -
        -
      • - Empty A plain, empty module -
        • -
      • - EmptyAlias A plain module alias of Empty -
        • -
      -

      - Here is a table of links to indexes: indexlist -

      -

      - Here is some superscript: x2 -

      -

      - Here is some subscript: x0 -

      -

      - Here are some escaped brackets: { [ @ ] } -

      -

      - Here is some emphasis followed by code. -

      -

      - An unassociated comment -

      -

      - Level 1 -

      -

      - Level 2 -

      -

      - Level 3 -

      -
      - Level 4 -
      -

      - Basic module stuff -

      -
      -
      - module Empty: { ... }; -
      -
      -

      - A plain, empty module -

      -
      -
      -
      -
      - module type Empty = { ... }; -
      -
      -

      - An ambiguous, misnamed module type -

      -
      -
      -
      -
      - module type MissingComment = { ... }; -
      -
      -

      - An ambiguous, misnamed module type -

      -
      -
      -

      - Section 9000 -

      -
      -
      - module EmptyAlias = Empty; -
      -
      -

      - A plain module alias of Empty -

      -
      -
      -

      - EmptySig -

      -
      -
      - module type EmptySig = { ... }; -
      -
      -

      - A plain, empty module signature -

      -
      -
      -
      -
      - module type EmptySigAlias = EmptySig; -
      -
      -

      - A plain, empty module signature alias of -

      -
      -
      -
      - -
      -

      - A plain module of a signature of EmptySig (reference) -

      -
      -
      -
      - -
      -

      - A plain module with an alias signature -

      -
      -
      -
      -
      - module One: { ... }; -
      -
      -
      -
      - module type SigForMod = { ... }; -
      -
      -

      - There's a signature in a module in this signature. -

      -
      -
      -
      -
      - module type SuperSig = { ... }; -
      -
      -

      - For a good time, see SuperSig.SubSigA.subSig or SuperSig.SubSigB.subSig or SuperSig.EmptySig. Section Section 9000 is also interesting. EmptySig is the section and EmptySig is the module signature. -

      -
      -
      - module Buffer: { ... }; -
      -
      -

      - Buffer.t -

      -
      -
      -

      - Some text before exception title. -

      -

      - Basic exception stuff -

      -

      - After exception title. -

      -
      -
      - exception Kaboom(unit); -
      -
      -

      - Unary exception constructor -

      -
      -
      -
      -
      - exception Kablam(unit, unit); -
      -
      -

      - Binary exception constructor -

      -
      -
      -
      -
      - exception Kapow((unit, unit)); -
      -
      -

      - Unary exception constructor over binary tuple -

      -
      -
      -
      -
      - exception EmptySig; -
      -
      -

      - EmptySig is a module and EmptySig is this exception. -

      -
      -
      -
      -
      - exception EmptySigAlias; -
      -
      -

      - EmptySigAlias is this exception. -

      -
      -
      -

      - Basic type and value stuff with advanced doc comments -

      -
      -
      - type a_function('a, 'b) = 'a => 'b; -
      -
      -

      - a_function is this type and a_function is the value below. -

      -
      -
      -
      -
      - let a_function: x:int => int; -
      -
      -

      - This is a_function with param and return type. -

      -
        -
      • - parameter x -

        - the x coordinate -

        -
        • -
      -
        -
      • - returns -

        - the y coordinate -

        -
        • -
      -
      -
      -
      -
      - let fun_fun_fun: a_function(a_function(int, int), a_function(unit, unit)); -
      -
      -
      -
      - let fun_maybe: ?yes:unit => unit => int; -
      -
      -
      -
      - let not_found: unit => unit; -
      -
      -
        -
      • - raises Not_found -

        - That's all it does -

        -
        • -
      -
      -
      -
      -
      - let ocaml_org: string; -
      -
      - -
      -
      -
      -
      - let some_file: string; -
      -
      -
        -
      • - see some_file -

        - The file called some_file -

        -
        • -
      -
      -
      -
      -
      - let some_doc: string; -
      -
      -
        -
      • - see some_doc -

        - The document called some_doc -

        -
        • -
      -
      -
      -
      -
      - let since_mesozoic: unit; -
      -
      -

      - This value was introduced in the Mesozoic era. -

      -
        -
      • - since mesozoic -
        • -
      -
      -
      -
      -
      - let changing: unit; -
      -
      -

      - This value has had changes in 1.0.0, 1.1.0, and 1.2.0. -

      -
        -
      • - before 1.0.0 -

        - before 1.0.0 -

        -
        • -
      -
        -
      • - before 1.1.0 -

        - before 1.1.0 -

        -
        • -
      -
        -
      • - version 1.2.0 -
        • -
      -
      -
      -

      - Some Operators -

      -
      -
      - let (~-): unit; -
      -
      -
      -
      - let (!): unit; -
      -
      -
      -
      - let (@): unit; -
      -
      -
      -
      - let ($): unit; -
      -
      -
      -
      - let (%): unit; -
      -
      -
      -
      - let (&): unit; -
      -
      -
      -
      - let (*): unit; -
      -
      -
      -
      - let (-): unit; -
      -
      -
      -
      - let (+): unit; -
      -
      -
      -
      - let (-?): unit; -
      -
      -
      -
      - let (/): unit; -
      -
      -
      -
      - let (:=): unit; -
      -
      -
      -
      - let (=): unit; -
      -
      -
      -
      - let (land): unit; -
      -
      -

      - Advanced Module Stuff -

      -
      -
      - module CollectionModule: { ... }; -
      -
      -

      - This comment is for CollectionModule. -

      -
      -
      -
      -
      - module type COLLECTION = module type of CollectionModule; -
      -
      -

      - module type of -

      -
      -
      -
      -
      - module Recollection: (C: COLLECTION) => COLLECTION with type collection = list(C.element) and type element = C.collection; -
      -
      -
      -
      - module type MMM = { ... }; -
      -
      -
      -
      - module type RECOLLECTION = MMM with module C = Recollection(CollectionModule); -
      -
      -
      -
      - module type RecollectionModule = { ... }; -
      -
      -
      -
      - module type A = { ... }; -
      -
      -
      -
      - module type B = { ... }; -
      -
      -
      -
      - module type C = { ... }; -
      -
      -

      - This module type includes two signatures. -

      -
      -
      -
      -
      - module FunctorTypeOf: (Collection: module type of CollectionModule) => { ... }; -
      -
      -

      - This comment is for FunctorTypeOf. -

      -
      -
      -
      -
      - module type IncludeModuleType = { ... }; -
      -
      -

      - This comment is for IncludeModuleType. -

      -
      -
      -
      -
      - module type ToInclude = { ... }; -
      -
      -
      -
      - - include ToInclude; - -
      -
      - module IncludedA: { ... }; -
      -
      -
      -
      - module type IncludedB = { ... }; -
      -
      -
      -
      -

      - Advanced Type Stuff -

      -
      -
      - type record = { - - - - - - - - - - - -
      - field1: int, - - /* -

      - This comment is for field1. -

      - */ -
      - field2: int, - - /* -

      - This comment is for field2. -

      - */ -
      - }; -
      -
      -

      - This comment is for record. -

      -

      - This comment is also for record. -

      -
      -
      -
      -
      - type mutable_record = { - - - - - - - - - - - - - - - -
      - mutable a: int, - - /* -

      - a is first and mutable -

      - */ -
      - b: unit, - - /* -

      - b is second and immutable -

      - */ -
      - mutable c: int, - - /* -

      - c is third and mutable -

      - */ -
      - }; -
      -
      -
      -
      - type universe_record = { - - - - - - -
      - nihilate: a. 'a => unit, -
      - }; -
      -
      -
      -
      - type variant = - - - - - - - - - - - - - - - - - - - -
      - | TagA - - /* -

      - This comment is for TagA. -

      - */ -
      - | ConstrB(int) - - /* -

      - This comment is for ConstrB. -

      - */ -
      - | ConstrC(int, int) - - /* -

      - This comment is for binary ConstrC. -

      - */ -
      - | ConstrD((int, int)) - - /* -

      - This comment is for unary ConstrD of binary tuple. -

      - */ -
      - ; -
      -
      -

      - This comment is for variant. -

      -

      - This comment is also for variant. -

      -
      -
      -
      -
      - type poly_variant = [ - - - - - - - - - -
      - | `TagA -
      - | `ConstrB(int) -
      - ]; -
      -
      -

      - This comment is for poly_variant. -

      -

      - Wow! It was a polymorphic variant! -

      -
      -
      -
      -
      - type full_gadt(_, _) = - - - - - - - - - - - - - - - -
      - | Tag : full_gadt(unit, unit) -
      - | First('a) : full_gadt('a, unit) -
      - | Second('a) : full_gadt(unit, 'a) -
      - | Exist('a, 'b) : full_gadt('b, unit) -
      - ; -
      -
      -

      - This comment is for full_gadt. -

      -

      - Wow! It was a GADT! -

      -
      -
      -
      -
      - type partial_gadt('a) = - - - - - - - - - - - - -
      - | AscribeTag : partial_gadt('a) -
      - | OfTag(partial_gadt('a)) -
      - | ExistGadtTag(('a => 'b)) : partial_gadt('a) -
      - ; -
      -
      -

      - This comment is for partial_gadt. -

      -

      - Wow! It was a mixed GADT! -

      -
      -
      -
      -
      - type alias = variant; -
      -
      -

      - This comment is for alias. -

      -
      -
      -
      -
      - type tuple = ((alias, alias), alias, (alias, alias)); -
      -
      -

      - This comment is for tuple. -

      -
      -
      -
      -
      - type variant_alias = variant = - - - - - - - - - - - - - - - -
      - | TagA -
      - | ConstrB(int) -
      - | ConstrC(int, int) -
      - | ConstrD((int, int)) -
      - ; -
      -
      -

      - This comment is for variant_alias. -

      -
      -
      -
      -
      - type record_alias = record = { - - - - - - - - - -
      - field1: int, -
      - field2: int, -
      - }; -
      -
      -

      - This comment is for record_alias. -

      -
      -
      -
      -
      - type poly_variant_union = [ - - - - - - - - - -
      - | poly_variant -
      - | `TagC -
      - ]; -
      -
      -

      - This comment is for poly_variant_union. -

      -
      -
      -
      -
      - type poly_poly_variant('a) = [ - - - - - - -
      - | `TagA('a) -
      - ]; -
      -
      -
      -
      - type bin_poly_poly_variant('a, 'b) = [ - - - - - - - - - -
      - | `TagA('a) -
      - | `ConstrB('b) -
      - ]; -
      -
      -
      -
      - type open_poly_variant('a) = [> `TagA ] as 'a; -
      -
      -
      -
      - type open_poly_variant2('a) = [> `ConstrB(int) ] as 'a; -
      -
      -
      -
      - type open_poly_variant_alias('a) = open_poly_variant2(open_poly_variant('a)); -
      -
      -
      -
      - type poly_fun('a) = [> `ConstrB(int) ] as 'a => 'a; -
      -
      -
      -
      - type poly_fun_constraint('a) = 'a => 'a constraint 'a = [> `TagA ]; -
      -
      -
      -
      - type closed_poly_variant('a) = [< `One | `Two ] as 'a; -
      -
      -
      -
      - type clopen_poly_variant('a) = [< `One | `Two(int) | `Three Two Three ] as 'a; -
      -
      -
      -
      - type nested_poly_variant = [ - - - - - - - - - - - - - - - -
      - | `A -
      - | `B([ `B1 | `B2 ]) -
      - | `C -
      - | `D([ `D1([ `D1a ]) ]) -
      - ]; -
      -
      -
      -
      - type full_gadt_alias('a, 'b) = full_gadt('a, 'b) = - - - - - - - - - - - - - - - -
      - | Tag : full_gadt_alias(unit, unit) -
      - | First('a) : full_gadt_alias('a, unit) -
      - | Second('a) : full_gadt_alias(unit, 'a) -
      - | Exist('a, 'b) : full_gadt_alias('b, unit) -
      - ; -
      -
      -

      - This comment is for full_gadt_alias. -

      -
      -
      -
      -
      - type partial_gadt_alias('a) = partial_gadt('a) = - - - - - - - - - - - - -
      - | AscribeTag : partial_gadt_alias('a) -
      - | OfTag(partial_gadt_alias('a)) -
      - | ExistGadtTag(('a => 'b)) : partial_gadt_alias('a) -
      - ; -
      -
      -

      - This comment is for partial_gadt_alias. -

      -
      -
      -
      -
      - exception Exn_arrow(unit) : exn; -
      -
      -

      - This comment is for Exn_arrow. -

      -
      -
      -
      -
      - type mutual_constr_a = - - - - - - - - - - -
      - | A -
      - | B_ish(mutual_constr_b) - - /* -

      - This comment is between mutual_constr_a and mutual_constr_b. -

      - */ -
      - ; -
      -
      -

      - This comment is for mutual_constr_a then mutual_constr_b. -

      -
      -
      -
      -
      - and mutual_constr_b = - - - - - - - - - - -
      - | B -
      - | A_ish(mutual_constr_a) - - /* -

      - This comment must be here for the next to associate correctly. -

      - */ -
      - ; -
      -
      -

      - This comment is for mutual_constr_b then mutual_constr_a. -

      -
      -
      -
      -
      - type rec_obj = {. f: int, g: unit => unit, h: rec_obj, }; -
      -
      -
      -
      - type open_obj('a) = {.. f: int, g: unit => unit, } as 'a; -
      -
      -
      -
      - type oof('a) = {.. a: unit, } as 'a => 'a; -
      -
      -
      -
      - type any_obj('a) = {.. } as 'a; -
      -
      -
      -
      - type empty_obj = {. }; -
      -
      -
      -
      - type one_meth = {. meth: unit, }; -
      -
      -
      -
      - type ext = ..; -
      -
      -

      - A mystery wrapped in an ellipsis -

      -
      -
      -
      -
      - type ext += - - - - - - -
      - | ExtA -
      - ; -
      -
      -
      -
      - type ext += - - - - - - -
      - | ExtB -
      - ; -
      -
      -
      -
      - type ext += - - - - - - - - - -
      - | ExtC(unit) -
      - | ExtD(ext) -
      - ; -
      -
      -
      -
      - type ext += - - - - - - -
      - | ExtE -
      - ; -
      -
      -
      -
      - type ext += - - - - - - -
      - | ExtF -
      - ; -
      -
      -
      -
      - type poly_ext('a) = ..; -
      -
      -

      - 'a poly_ext -

      -
      -
      -
      -
      - type poly_ext += - - - - - - - - - - -
      - | Foo('b) -
      - | Bar('b, 'b) - - /* -

      - 'b poly_ext -

      - */ -
      - ; -
      -
      -
      -
      - type poly_ext += - - - - - - - -
      - | Quux('c) - - /* -

      - 'c poly_ext -

      - */ -
      - ; -
      -
      -
      -
      - module ExtMod: { ... }; -
      -
      -
      -
      - type ExtMod.t += - - - - - - - -
      - | ZzzTop0 - - /* -

      - It's got the rock -

      - */ -
      - ; -
      -
      -
      -
      - type ExtMod.t += - - - - - - - -
      - | ZzzTop(unit) - - /* -

      - and it packs a unit. -

      - */ -
      - ; -
      -
      -
      -
      - let launch_missiles: unit => unit; -
      -
      -

      - Rotate keys on my mark... -

      -
      -
      -
      -
      - type my_mod = (module COLLECTION); -
      -
      -

      - A brown paper package tied up with string -

      -
      -
      -
      -
      - class empty_class: { ... } -
      -
      -
      -
      - class one_method_class: { ... } -
      -
      -
      -
      - class two_method_class: { ... } -
      -
      -
      -
      - class ('a) param_class: 'a => { ... } -
      -
      -
      -
      - type my_unit_object = param_class(unit); -
      -
      -
      -
      - type my_unit_class('a) = param_class(unit) as 'a; -
      -
      -
      -
      - module Dep1: { ... }; -
      -
      -
      -
      - module Dep2: (Arg: { ... }) => { ... }; -
      -
      -
      -
      - type dep1 = Dep2(Dep1).B.c; -
      -
      -
      -
      - module Dep3: { ... }; -
      -
      -
      -
      - module Dep4: { ... }; -
      -
      -
      -
      - module Dep5: (Arg: { ... }) => { ... }; -
      -
      -
      -
      - type dep2 = Dep5(Dep4).Z.X.b; -
      -
      -
      -
      - type dep3 = Dep5(Dep4).Z.Y.a; -
      -
      -
      -
      - module Dep6: { ... }; -
      -
      -
      -
      - module Dep7: (Arg: { ... }) => { ... }; -
      -
      -
      -
      - type dep4 = Dep7(Dep6).M.Y.d; -
      -
      -
      -
      - module Dep8: { ... }; -
      -
      -
      -
      - module Dep9: (X: { ... }) => { ... }; -
      -
      -
      -
      - module type Dep10 = Dep9(Dep8).T with type t = int; -
      -
      -
      -
      - module Dep11: { ... }; -
      -
      -
      -
      - module Dep12: (Arg: { ... }) => { ... }; -
      -
      -
      -
      - module Dep13: Dep12(Dep11).T; -
      -
      -
      -
      - type dep5 = Dep13.c; -
      -
      -
      -
      - module type With1 = { ... }; -
      -
      -
      -
      - module With2: { ... }; -
      -
      -
      -
      - module With3: With1 with module M = With2; -
      -
      -
      -
      - type with1 = With3.N.t; -
      -
      -
      -
      - module With4: With1 with module M := With2; -
      -
      -
      -
      - type with2 = With4.N.t; -
      -
      -
      -
      - module With5: { ... }; -
      -
      -
      -
      - module With6: { ... }; -
      -
      -
      -
      - module With7: (X: { ... }) => { ... }; -
      -
      -
      -
      - module type With8 = With7(With6).T with module M = With5 and type M.N.t = With5.N.t; -
      -
      -
      -
      - module With9: { ... }; -
      -
      -
      -
      - module With10: { ... }; -
      -
      -
      -
      - module type With11 = With7(With10).T with module M = With9 and type N.t = int; -
      -
      -
      -
      - module type NestedInclude1 = { ... }; -
      -
      -
      -
      - - include NestedInclude1; - -
      -
      - module type NestedInclude2 = { ... }; -
      -
      -
      -
      -
      -
      - - include NestedInclude2 with type nested_include = int; - -
      -
      - type nested_include = int; -
      -
      -
      -
      -
      -
      - module DoubleInclude1: { ... }; -
      -
      -
      -
      - module DoubleInclude3: { ... }; -
      -
      -
      -
      - - include module type of DoubleInclude3.DoubleInclude2; - -
      -
      - type double_include; -
      -
      -
      -
      -
      -
      - module IncludeInclude1: { ... }; -
      -
      -
      -
      - - include module type of IncludeInclude1; - -
      -
      - module type IncludeInclude2 = { ... }; -
      -
      -
      -
      -
      -
      - - include IncludeInclude2; - -
      -
      - type include_include; -
      -
      -
      -
      -

      - Trying the {!modules: ...} command. -

      -

      - With ocamldoc, toplevel units will be linked and documented, while submodules will behave as simple references. -

      -

      - With odoc, everything should be resolved (and linked) but only toplevel units will be documented. -

      - -

      - Weirder usages involving module types -

      -
        -
      • - IncludeInclude1.IncludeInclude2 -
        • -
      • - Dep4.T -
        • -
      • - A.Q -
        • -
      -

      - Playing with @canonical paths -

      -
      -
      - module CanonicalTest: { ... }; -
      -
      -
      -
      - let test: CanonicalTest.Base.List.t('a) => unit; -
      -
      -

      - Some ref to CanonicalTest.Base__Tests.C.t and CanonicalTest.Base__Tests.L.id. But also to CanonicalTest.Base__.List and CanonicalTest.Base__.List.t -

      -
      -
      -

      - Aliases again -

      -
      -
      - module Aliases: { ... }; -
      -
      -

      - Let's imitate jst's layout. -

      -
      -
      -

      - Section title splicing -

      -

      - I can refer to -

      - -

      - But also to things in submodules: -

      -
        -
      • - {!section:SuperSig.SubSigA.subSig} : SuperSig.SubSigA.subSig -
        • -
      • - {!Aliases.incl} : Aliases:incl -
        • -
      -

      - And just to make sure we do not mess up: -

      -
        -
      • - {{!section:indexmodules}A} : A -
        • -
      • - {{!aliases}B} : B -
        • -
      • - {{!section:SuperSig.SubSigA.subSig}C} : C -
        • -
      • - {{!Aliases.incl}D} : D -
        • -
      -

      - New reference syntax -

      -
      -
      - module type M = { ... }; -
      -
      -
      -
      - module M: { ... }; -
      -
      -

      - Here goes: -

      -
        -
      • - {!module-M.t} : M.t -
        • -
      • - {!module-type-M.t} : M.t -
        • -
      -
      -
      - module Only_a_module: { ... }; -
      -
      -

      - Some here should fail: -

      -
        -
      • - {!Only_a_module.t} : Only_a_module.t -
        • -
      • - {!module-Only_a_module.t} : Only_a_module.t -
        • -
      • - {!module-type-Only_a_module.t} : Only_a_module.t : test -
        • -
      -
      -
      - module type TypeExt = { ... }; -
      -
      -
      -
      - type new_t = ..; -
      -
      -
      -
      - type new_t += - - - - - - -
      - | C -
      - ; -
      -
      -
      -
      - module type TypeExtPruned = TypeExt with type t := new_t; -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Recent/X/index.html b/test/html/expect/test_package+re/Recent/X/index.html deleted file mode 100644 index c6fb745abc..0000000000 --- a/test/html/expect/test_package+re/Recent/X/index.html +++ /dev/null @@ -1,48 +0,0 @@ - - - - - X (test_package+re.Recent.X) - - - - - - - - - - -
      -

      - Module Recent.X -

      -
      -
      -
      -
      - module L := Z.Y -
      -
      -
      -
      - type t = Z.Y.X.t(int); -
      -
      -
      -
      - type u := int; -
      -
      -
      -
      - type v = Z.Y.X.t(u); -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Recent/index.html b/test/html/expect/test_package+re/Recent/index.html deleted file mode 100644 index cfb590ce4d..0000000000 --- a/test/html/expect/test_package+re/Recent/index.html +++ /dev/null @@ -1,248 +0,0 @@ - - - - - Recent (test_package+re.Recent) - - - - - - - - - - -
      -

      - Module Recent -

      -
      -
      -
      -
      - module type S = { ... }; -
      -
      -
      -
      - module type S1 = (_: S) => S; -
      -
      -
      -
      - type variant = - - - - - - - - - - - - - - - - - - - - -
      - | A -
      - | B(int) -
      - | C - - /* -

      - foo -

      - */ -
      - | D - - /* -

      - bar -

      - */ -
      - | E of { - - - - - - -
      - a: int, -
      - } -
      - ; -
      -
      -
      -
      - type gadt(_) = - - - - - - - - - - - - - -
      - | A : gadt(int) -
      - | B(int) : gadt(string) - - /* -

      - foo -

      - */ -
      - | C: { - - - - - - -
      - a: int, -
      - } : gadt(unit) -
      - ; -
      -
      -
      -
      - type polymorphic_variant = [ - - - - - - - - - - - - - - - - - -
      - | `A -
      - | `B(int) -
      - | `C - - /* -

      - foo -

      - */ -
      - | `D - - /* -

      - bar -

      - */ -
      - ]; -
      -
      -
      -
      - type empty_variant = |; -
      -
      -
      -
      - type nonrec nonrec_ = int; -
      -
      -
      -
      - type empty_conj = - - - - - - -
      - | X([< `X& ('a) & ((int, float)) ]) : empty_conj -
      - ; -
      -
      -
      -
      - type conj = - - - - - - -
      - | X([< `X(int) & ([< `B(int) & (float) ]) ]) : conj -
      - ; -
      -
      -
      -
      - let empty_conj: [< `X& ('a) & ((int, float)) ]; -
      -
      -
      -
      - let conj: [< `X(int) & ([< `B(int) & (float) ]) ]; -
      -
      -
      -
      - module Z: { ... }; -
      -
      -
      -
      - module X: { ... }; -
      -
      -
      -
      - module type PolyS = { ... }; -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Recent_impl/index.html b/test/html/expect/test_package+re/Recent_impl/index.html deleted file mode 100644 index 801363b044..0000000000 --- a/test/html/expect/test_package+re/Recent_impl/index.html +++ /dev/null @@ -1,53 +0,0 @@ - - - - - Recent_impl (test_package+re.Recent_impl) - - - - - - - - - - -
      -

      - Module Recent_impl -

      -
      -
      -
      -
      - module Foo: { ... }; -
      -
      -
      -
      - module B: { ... }; -
      -
      -
      -
      - type u; -
      -
      -
      -
      - module type S = { ... }; -
      -
      -
      -
      - module B' = Foo.B; -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Section/index.html b/test/html/expect/test_package+re/Section/index.html deleted file mode 100644 index df1cb6e2d0..0000000000 --- a/test/html/expect/test_package+re/Section/index.html +++ /dev/null @@ -1,99 +0,0 @@ - - - - - Section (test_package+re.Section) - - - - - - - - - - -
      -

      - Module Section -

      -

      - This is the module comment. Eventually, sections won't be allowed in it. -

      -
      - -
      -

      - Empty section -

      -

      - Text only -

      -

      - Foo bar. -

      -

      - Aside only -

      -

      - Foo bar. -

      -

      - Value only -

      -
      -
      - let foo: unit; -
      -
      -

      - Empty section -

      -

      - within a comment -

      -

      - and one with a nested section -

      -

      - This section title has markup -

      -

      - But links are impossible thanks to the parser, so we never have trouble rendering a section title in a table of contents – no link will be nested inside another link. -

      -
      - - diff --git a/test/html/expect/test_package+re/Stop/index.html b/test/html/expect/test_package+re/Stop/index.html deleted file mode 100644 index bbee100c37..0000000000 --- a/test/html/expect/test_package+re/Stop/index.html +++ /dev/null @@ -1,60 +0,0 @@ - - - - - Stop (test_package+re.Stop) - - - - - - - - - - -
      -

      - Module Stop -

      -

      - This test cases exercises stop comments. -

      -
      -
      -
      -
      - let foo: int; -
      -
      -

      - This is normal commented text. -

      -
      -
      -

      - The next value is bar, and it should be missing from the documentation. There is also an entire module, M, which should also be hidden. It contains a nested stop comment, but that stop comment should not turn documentation back on in this outer module, because stop comments respect scope. -

      -

      - Documentation is on again. -

      -

      - Now, we have a nested module, and it has a stop comment between its two items. We want to see that the first item is displayed, but the second is missing, and the stop comment disables documenation only in that module, and not in this outer module. -

      -
      -
      - module N: { ... }; -
      -
      -
      -
      - let lol: int; -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Stop_dead_link_doc/index.html b/test/html/expect/test_package+re/Stop_dead_link_doc/index.html deleted file mode 100644 index c8a34efc8c..0000000000 --- a/test/html/expect/test_package+re/Stop_dead_link_doc/index.html +++ /dev/null @@ -1,123 +0,0 @@ - - - - - Stop_dead_link_doc (test_package+re.Stop_dead_link_doc) - - - - - - - - - - -
      -

      - Module Stop_dead_link_doc -

      -
      -
      -
      -
      - module Foo: { ... }; -
      -
      -
      -
      - type foo = - - - - - - -
      - | Bar(Foo.t) -
      - ; -
      -
      -
      -
      - type bar = - - - - - - -
      - | Bar of { - - - - - - -
      - field: Foo.t, -
      - } -
      - ; -
      -
      -
      -
      - type foo_ = - - - - - - -
      - | Bar_((int, Foo.t), int) -
      - ; -
      -
      -
      -
      - type bar_ = - - - - - - -
      - | Bar__(option(Foo.t)) -
      - ; -
      -
      -
      -
      - type another_foo; -
      -
      -
      -
      - type another_bar; -
      -
      -
      -
      - type another_foo_; -
      -
      -
      -
      - type another_bar_; -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/Alias/index.html b/test/html/expect/test_package+re/Toplevel_comments/Alias/index.html deleted file mode 100644 index cb75db16c6..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/Alias/index.html +++ /dev/null @@ -1,39 +0,0 @@ - - - - - Alias (test_package+re.Toplevel_comments.Alias) - - - - - - - - - - -
      -

      - Module Toplevel_comments.Alias -

      -

      - Doc of Alias. -

      -

      - Doc of T, part 2. -

      -
      -
      -
      -
      - type t; -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/Include_inline'/index.html b/test/html/expect/test_package+re/Toplevel_comments/Include_inline'/index.html deleted file mode 100644 index fa7f8be9de..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/Include_inline'/index.html +++ /dev/null @@ -1,46 +0,0 @@ - - - - - Include_inline' (test_package+re.Toplevel_comments.Include_inline') - - - - - - - - - - -
      -

      - Module Toplevel_comments.Include_inline' -

      -

      - Doc of Include_inline, part 1. -

      -

      - Doc of Include_inline, part 2. -

      -
      -
      -
      -
      -

      - part 3 -

      -
      -
      -
      - type t; -
      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/Include_inline/index.html b/test/html/expect/test_package+re/Toplevel_comments/Include_inline/index.html deleted file mode 100644 index 695ea70d77..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/Include_inline/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - Include_inline (test_package+re.Toplevel_comments.Include_inline) - - - - - - - - - - -
      -

      - Module Toplevel_comments.Include_inline -

      -

      - Doc of T, part 2. -

      -
      -
      -
      -
      -
      - type t; -
      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/M''/index.html b/test/html/expect/test_package+re/Toplevel_comments/M''/index.html deleted file mode 100644 index afecb069bf..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/M''/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - M'' (test_package+re.Toplevel_comments.M'') - - - - - - - - - - -
      -

      - Module Toplevel_comments.M'' -

      -

      - Doc of M'', part 1. -

      -

      - Doc of M'', part 2. -

      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/M'/index.html b/test/html/expect/test_package+re/Toplevel_comments/M'/index.html deleted file mode 100644 index 1d13e2c76c..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/M'/index.html +++ /dev/null @@ -1,30 +0,0 @@ - - - - - M' (test_package+re.Toplevel_comments.M') - - - - - - - - - - -
      -

      - Module Toplevel_comments.M' -

      -

      - Doc of M' from outside -

      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/M/index.html b/test/html/expect/test_package+re/Toplevel_comments/M/index.html deleted file mode 100644 index a016b4a977..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/M/index.html +++ /dev/null @@ -1,30 +0,0 @@ - - - - - M (test_package+re.Toplevel_comments.M) - - - - - - - - - - -
      -

      - Module Toplevel_comments.M -

      -

      - Doc of M -

      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/Ref_in_synopsis/index.html b/test/html/expect/test_package+re/Toplevel_comments/Ref_in_synopsis/index.html deleted file mode 100644 index 0829ecb92d..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/Ref_in_synopsis/index.html +++ /dev/null @@ -1,39 +0,0 @@ - - - - - Ref_in_synopsis (test_package+re.Toplevel_comments.Ref_in_synopsis) - - - - - - - - - - -
      -

      - Module Toplevel_comments.Ref_in_synopsis -

      -

      - t. -

      -

      - This reference should resolve in the context of this module, even when used as a synopsis. -

      -
      -
      -
      -
      - type t; -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/class-c1/index.html b/test/html/expect/test_package+re/Toplevel_comments/class-c1/index.html deleted file mode 100644 index 80219902be..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/class-c1/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - c1 (test_package+re.Toplevel_comments.c1) - - - - - - - - - - -
      -

      - Class Toplevel_comments.c1 -

      -

      - Doc of c1, part 1. -

      -

      - Doc of c1, part 2. -

      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/class-c2/index.html b/test/html/expect/test_package+re/Toplevel_comments/class-c2/index.html deleted file mode 100644 index b0d3517d1b..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/class-c2/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - c2 (test_package+re.Toplevel_comments.c2) - - - - - - - - - - -
      -

      - Class Toplevel_comments.c2 -

      -

      - Doc of c2. -

      -

      - Doc of ct, part 2. -

      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/class-type-ct/index.html b/test/html/expect/test_package+re/Toplevel_comments/class-type-ct/index.html deleted file mode 100644 index 02cc3df7fe..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/class-type-ct/index.html +++ /dev/null @@ -1,33 +0,0 @@ - - - - - ct (test_package+re.Toplevel_comments.ct) - - - - - - - - - - -
      -

      - Class type Toplevel_comments.ct -

      -

      - Doc of ct, part 1. -

      -

      - Doc of ct, part 2. -

      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/index.html b/test/html/expect/test_package+re/Toplevel_comments/index.html deleted file mode 100644 index e18e2e6639..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/index.html +++ /dev/null @@ -1,161 +0,0 @@ - - - - - Toplevel_comments (test_package+re.Toplevel_comments) - - - - - - - - - - -
      -

      - Module Toplevel_comments -

      -

      - A doc comment at the beginning of a module is considered to be that module's doc. -

      -
      -
      -
      -
      - module type T = { ... }; -
      -
      -

      - Doc of T, part 1. -

      -
      -
      -
      -
      - module Include_inline: { ... }; -
      -
      -

      - Doc of T, part 2. -

      -
      -
      -
      -
      - module Include_inline': { ... }; -
      -
      -

      - Doc of Include_inline, part 1. -

      -
      -
      -
      -
      - module type Include_inline_T = { ... }; -
      -
      -

      - Doc of T, part 2. -

      -
      -
      -
      -
      - module type Include_inline_T' = { ... }; -
      -
      -

      - Doc of Include_inline_T', part 1. -

      -
      -
      -
      -
      - module M: { ... }; -
      -
      -

      - Doc of M -

      -
      -
      -
      -
      - module M': { ... }; -
      -
      -

      - Doc of M' from outside -

      -
      -
      -
      -
      - module M'': { ... }; -
      -
      -

      - Doc of M'', part 1. -

      -
      -
      -
      -
      - module Alias: T; -
      -
      -

      - Doc of Alias. -

      -
      -
      -
      -
      - class c1: int => { ... } -
      -
      -

      - Doc of c1, part 1. -

      -
      -
      -
      -
      - class type ct = { ... } -
      -
      -

      - Doc of ct, part 1. -

      -
      -
      -
      -
      - class c2: ct -
      -
      -

      - Doc of c2. -

      -
      -
      -
      -
      - module Ref_in_synopsis: { ... }; -
      -
      -

      - t. -

      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/module-type-Include_inline_T'/index.html b/test/html/expect/test_package+re/Toplevel_comments/module-type-Include_inline_T'/index.html deleted file mode 100644 index f13d1700df..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/module-type-Include_inline_T'/index.html +++ /dev/null @@ -1,46 +0,0 @@ - - - - - Include_inline_T' (test_package+re.Toplevel_comments.Include_inline_T') - - - - - - - - - - -
      -

      - Module type Toplevel_comments.Include_inline_T' -

      -

      - Doc of Include_inline_T', part 1. -

      -

      - Doc of Include_inline_T', part 2. -

      -
      -
      -
      -
      -

      - part 3 -

      -
      -
      -
      - type t; -
      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/module-type-Include_inline_T/index.html b/test/html/expect/test_package+re/Toplevel_comments/module-type-Include_inline_T/index.html deleted file mode 100644 index d5f6651bc8..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/module-type-Include_inline_T/index.html +++ /dev/null @@ -1,38 +0,0 @@ - - - - - Include_inline_T (test_package+re.Toplevel_comments.Include_inline_T) - - - - - - - - - - -
      -

      - Module type Toplevel_comments.Include_inline_T -

      -

      - Doc of T, part 2. -

      -
      -
      -
      -
      -
      - type t; -
      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Toplevel_comments/module-type-T/index.html b/test/html/expect/test_package+re/Toplevel_comments/module-type-T/index.html deleted file mode 100644 index b008e3d1cb..0000000000 --- a/test/html/expect/test_package+re/Toplevel_comments/module-type-T/index.html +++ /dev/null @@ -1,39 +0,0 @@ - - - - - T (test_package+re.Toplevel_comments.T) - - - - - - - - - - -
      -

      - Module type Toplevel_comments.T -

      -

      - Doc of T, part 1. -

      -

      - Doc of T, part 2. -

      -
      -
      -
      -
      - type t; -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Type/index.html b/test/html/expect/test_package+re/Type/index.html deleted file mode 100644 index f24dd3ed12..0000000000 --- a/test/html/expect/test_package+re/Type/index.html +++ /dev/null @@ -1,555 +0,0 @@ - - - - - Type (test_package+re.Type) - - - - - - - - - - -
      -

      - Module Type -

      -
      -
      -
      -
      - type abstract; -
      -
      -

      - Some documentation. -

      -
      -
      -
      -
      - type alias = int; -
      -
      -
      -
      - type private_ = pri int; -
      -
      -
      -
      - type constructor('a) = 'a; -
      -
      -
      -
      - type arrow = int => int; -
      -
      -
      -
      - type higher_order = (int => int) => int; -
      -
      -
      -
      - type labeled = l:int => int; -
      -
      -
      -
      - type optional = ?l:int => int; -
      -
      -
      -
      - type labeled_higher_order = (l:int => int) => (?l:int => int) => int; -
      -
      -
      -
      - type pair = (int, int); -
      -
      -
      -
      - type parens_dropped = (int, int); -
      -
      -
      -
      - type triple = (int, int, int); -
      -
      -
      -
      - type nested_pair = ((int, int), int); -
      -
      -
      -
      - type instance = constructor(int); -
      -
      -
      -
      - type long = labeled_higher_order => [ `Bar | `Baz(triple) ] => pair => labeled => higher_order => (string => int) => CamlinternalFormatBasics.fmtty(int, float, char, string, char, unit) => nested_pair => arrow => string => array(nested_pair); -
      -
      -
      -
      - type variant_e = { - - - - - - -
      - a: int, -
      - }; -
      -
      -
      -
      - type variant = - - - - - - - - - - - - - - - - - - - - -
      - | A -
      - | B(int) -
      - | C - - /* -

      - foo -

      - */ -
      - | D - - /* -

      - bar -

      - */ -
      - | E(variant_e) -
      - ; -
      -
      -
      -
      - type variant_c = { - - - - - - -
      - a: int, -
      - }; -
      -
      -
      -
      - type gadt(_) = - - - - - - - - - - - - -
      - | A : gadt(int) -
      - | B(int) : gadt(string) -
      - | C(variant_c) : gadt(unit) -
      - ; -
      -
      -
      -
      - type degenerate_gadt = - - - - - - -
      - | A : degenerate_gadt -
      - ; -
      -
      -
      -
      - type private_variant = pri - - - - - - -
      - | A -
      - ; -
      -
      -
      -
      - type record = { - - - - - - - - - - - - - - - - - - - - -
      - a: int, -
      - mutable b: int, -
      - c: int, - - /* -

      - foo -

      - */ -
      - d: int, - - /* -

      - bar -

      - */ -
      - e: a. 'a, -
      - }; -
      -
      -
      -
      - type polymorphic_variant = [ - - - - - - - - - - - - - - - -
      - | `A -
      - | `B(int) -
      - | `C((int, unit)) -
      - | `D -
      - ]; -
      -
      -
      -
      - type polymorphic_variant_extension = [ - - - - - - - - - -
      - | polymorphic_variant -
      - | `E -
      - ]; -
      -
      -
      -
      - type nested_polymorphic_variant = [ - - - - - - -
      - | `A([ `B | `C ]) -
      - ]; -
      -
      -
      -
      - type private_extenion#row; -
      -
      -
      -
      - and private_extenion = pri [> - - - - - - -
      - | polymorphic_variant -
      - ]; -
      -
      -
      -
      - type object_ = {. a: int, b: int, c: int, }; -
      -
      -
      -
      - module type X = { ... }; -
      -
      -
      -
      - type module_ = (module X); -
      -
      -
      -
      - type module_substitution = (module X with type t = int and type u = unit); -
      -
      -
      -
      - type covariant(+'a); -
      -
      -
      -
      - type contravariant(-'a); -
      -
      -
      -
      - type bivariant(_) = int; -
      -
      -
      -
      - type binary('a, 'b); -
      -
      -
      -
      - type using_binary = binary(int, int); -
      -
      -
      -
      - type name('custom); -
      -
      -
      -
      - type constrained('a) = 'a constraint 'a = int; -
      -
      -
      -
      - type exact_variant('a) = 'a constraint 'a = [ `A | `B(int) ]; -
      -
      -
      -
      - type lower_variant('a) = 'a constraint 'a = [> `A | `B(int) ]; -
      -
      -
      -
      - type any_variant('a) = 'a constraint 'a = [> ]; -
      -
      -
      -
      - type upper_variant('a) = 'a constraint 'a = [< `A | `B(int) ]; -
      -
      -
      -
      - type named_variant('a) = 'a constraint 'a = [< polymorphic_variant ]; -
      -
      -
      -
      - type exact_object('a) = 'a constraint 'a = {. a: int, b: int, }; -
      -
      -
      -
      - type lower_object('a) = 'a constraint 'a = {.. a: int, b: int, }; -
      -
      -
      -
      - type poly_object('a) = 'a constraint 'a = {. a: a. 'a, }; -
      -
      -
      -
      - type double_constrained('a, 'b) = ('a, 'b) constraint 'a = int constraint 'b = unit; -
      -
      -
      -
      - type as_ = (int as 'a, 'a); -
      -
      -
      -
      - type extensible = ..; -
      -
      -
      -
      - type extensible += - - - - - - - - - - - -
      - | Extension - - /* -

      - Documentation for Extension. -

      - */ -
      - | Another_extension - - /* -

      - Documentation for Another_extension. -

      - */ -
      - ; -
      -
      -
      -
      - type mutually = - - - - - - -
      - | A(recursive) -
      - ; -
      -
      -
      -
      - and recursive = - - - - - - -
      - | B(mutually) -
      - ; -
      -
      -
      -
      - exception Foo(int, int); -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/Val/index.html b/test/html/expect/test_package+re/Val/index.html deleted file mode 100644 index e38127e88c..0000000000 --- a/test/html/expect/test_package+re/Val/index.html +++ /dev/null @@ -1,53 +0,0 @@ - - - - - Val (test_package+re.Val) - - - - - - - - - - -
      -

      - Module Val -

      -
      -
      -
      -
      - let documented: unit; -
      -
      -

      - Foo. -

      -
      -
      -
      -
      - let undocumented: unit; -
      -
      -
      -
      - let documented_above: unit; -
      -
      -

      - Bar. -

      -
      -
      -
      - - diff --git a/test/html/expect/test_package+re/mld.html b/test/html/expect/test_package+re/mld.html deleted file mode 100644 index 04af7d66cc..0000000000 --- a/test/html/expect/test_package+re/mld.html +++ /dev/null @@ -1,94 +0,0 @@ - - - - - mld (test_package+re.mld) - - - - - - - - - - -
      -

      - Mld Page -

      -

      - This is an .mld file. It doesn't have an auto-generated title, like modules and other pages generated fully by odoc do. -

      -

      - It will have a TOC generated from section headings. -

      -
      - -
      -

      - Section -

      -

      - This is a section. -

      -

      - Another paragraph in section. -

      -

      - Another section -

      -

      - This is another section. -

      -

      - Another paragraph in section 2. -

      -

      - Subsection -

      -

      - This is a subsection. -

      -

      - Another paragraph in subsection. -

      -

      - Yet another paragraph in subsection. -

      -

      - Another Subsection -

      -

      - This is another subsection. -

      -

      - Another paragraph in subsection 2. -

      -

      - Yet another paragraph in subsection 2. -

      -
      - - diff --git a/test/html/test.ml b/test/html/test.ml deleted file mode 100644 index c4d92d3e70..0000000000 --- a/test/html/test.ml +++ /dev/null @@ -1,350 +0,0 @@ -open Printf - -(* Utils *) - -let ( // ) = Filename.concat - -let command label = - Printf.ksprintf (fun s -> - let exit_code = Sys.command s in - if exit_code <> 0 then - Alcotest.failf "'%s' exited with %i" label exit_code) - -(* Filename.extension is only available on 4.04. *) -module Filename = struct - include Filename - - let extension filename = - let dot_index = String.rindex filename '.' in - String.sub filename dot_index (String.length filename - dot_index) -end - -(* Testing environment *) - -module Env = struct - let package = "test_package" - - let odoc = "../../src/odoc/bin/main.exe" - - let path ?(from_root = false) = function - | `scratch when from_root -> "_build/default/test/html/_scratch" - | `scratch -> "_scratch" - | `expect when from_root -> "test/html/expect" - | `expect -> "expect" - | `cases when from_root -> "test/cases" - | `cases -> "../cases" - - let running_in_travis_tidy_row = - match (Sys.getenv "TRAVIS", Sys.getenv "TIDY") with - | "true", "YES" -> true - | _ -> false - | exception Not_found -> false - - let init () = - if running_in_travis_tidy_row && not Tidy.is_present_in_path then - Alcotest.failf "Could not find `tidy` in $PATH in a CI environment"; - - Unix.mkdir (path `scratch) 0o755 -end - -(* Test case type and helpers *) - -(* A test case is a description of an input source file with a specific set of - options to be tested. Each test case results in a unique generated output to - be compared with an actually produced one. - - All paths defined in this module are relative to the build directory. *) -module Case = struct - type t = { - name : string; - kind : [ `mli | `mld | `ml ]; - theme_uri : string option; - syntax : [ `ml | `re ]; - outputs : string list; - } - - let make ?theme_uri ?(syntax = `ml) (input, outputs) = - let name = Filename.chop_extension input in - let kind = - match Filename.extension input with - | ".mli" -> `mli - | ".mld" -> `mld - | ".ml" -> `ml - | _ -> - invalid_arg (sprintf "Expected mli, mld, or ml files, got %s" input) - in - { name; kind; theme_uri; syntax; outputs } - - let name case = case.name - - let kind case = case.kind - - let theme_uri case = case.theme_uri - - let string_of_syntax = function `re -> "re" | `ml -> "ml" - - (* The package name is enriched with test case options. *) - let package case = - let opts = [ string_of_syntax case.syntax ] in - let opts = - match case.theme_uri with - | Some _ -> "custom_theme" :: opts - | None -> opts - in - let opts = String.concat "," (List.sort compare opts) in - Env.package ^ "+" ^ opts - - let cmi_file case = Env.path `scratch // (case.name ^ ".cmi") - - let cmti_file case = Env.path `scratch // (case.name ^ ".cmti") - - let cmo_file case = Env.path `scratch // (case.name ^ ".cmo") - - let cmt_file case = Env.path `scratch // (case.name ^ ".cmt") - - let odoc_file case = - match case.kind with - | `mli | `ml -> Env.path `scratch // (case.name ^ ".odoc") - | `mld -> Env.path `scratch // ("page-" ^ case.name ^ ".odoc") - - let source_file case = - match case.kind with - | `mli -> (Env.path `cases // case.name) ^ ".mli" - | `mld -> (Env.path `cases // case.name) ^ ".mld" - | `ml -> (Env.path `cases // case.name) ^ ".ml" - - let outputs case = List.map (fun o -> package case // o) case.outputs -end - -let pretty_print_html_in_place html_file = - let temporary_pretty_printed_file = html_file ^ ".pretty" in - let html_stream, close_html_file = Markup.file html_file in - - html_stream |> Markup.parse_html |> Markup.signals |> Markup.pretty_print - |> Markup.write_html - |> Markup.to_file temporary_pretty_printed_file; - - close_html_file (); - - Sys.rename temporary_pretty_printed_file html_file - -let generate_html case = - let theme_uri_option = - match Case.theme_uri case with - | Some theme_uri -> "--theme-uri=" ^ theme_uri - | None -> "" - in - match Case.kind case with - | `mli -> - command "ocamlfind c" "ocamlfind c -bin-annot -o %s -c %s" - (Case.cmi_file case) (Case.source_file case); - - command "odoc compile" "%s compile --package=%s %s" Env.odoc - (Case.package case) (Case.cmti_file case); - - command "odoc html" "%s html %s --syntax=%s --output-dir=%s %s" Env.odoc - theme_uri_option - (Case.string_of_syntax case.syntax) - (Env.path `scratch) - (Case.odoc_file case) - | `mld -> - command "odoc compile" "%s compile --package=%s -o %s %s" Env.odoc - (Case.package case) (Case.odoc_file case) (Case.source_file case); - - command "odoc html" "%s html %s --output-dir=%s %s" Env.odoc - theme_uri_option - (Env.path `scratch) - (Case.odoc_file case) - | `ml -> - command "ocamlfind c" "ocamlfind c -bin-annot -o %s -c %s" - (Case.cmo_file case) (Case.source_file case); - - command "odoc compile" "%s compile --package=%s %s" Env.odoc - (Case.package case) (Case.cmt_file case); - - command "odoc html" "%s html %s --syntax=%s --output-dir=%s %s" Env.odoc - theme_uri_option - (Case.string_of_syntax case.syntax) - (Env.path `scratch) - (Case.odoc_file case) - -let diff = - (* Alcotest will run all tests. We need to know when something fails for the - first time to stop diffing and generating promotion files. *) - let already_failed = ref false in - fun output -> - let actual_file = Env.path `scratch // output in - let expected_file = Env.path `expect // output in - let cmd = sprintf "diff -N -u -b %S %S" expected_file actual_file in - match Sys.command cmd with - | 0 -> () - | 1 when !already_failed -> - (* Don't run diff for other failing tests as only one at time is shown. *) - Alcotest.fail "generated HTML should match expected" - | 1 -> - (* If the diff command exits with 1, the two HTML files are different. - diff has already written its output to STDOUT. - - Also provide the command for overwriting the expected output with the - actual output, in case it is the actual output that is correct. - The paths are defined relative to the project's root. *) - let root_actual_file = Env.path `scratch ~from_root:true // output in - let root_expected_file = Env.path `expect ~from_root:true // output in - let write_file filename data = - Markup.string data |> Markup.to_file filename - in - write_file Env.(path `scratch // "actual") root_actual_file; - write_file Env.(path `scratch // "expected") root_expected_file; - - prerr_endline "\nTo promote the actual output to expected, run:"; - prerr_endline "make promote-html && make test\n"; - - already_failed := true; - Alcotest.fail "generated HTML should match expected" - | exit_code -> Alcotest.failf "'diff' exited with %i" exit_code - -(* Actual Tests *) - -let output_support_files = - let run () = - command "odoc support-files" "%s support-files --output-dir %s" Env.odoc - (Env.path `scratch) - in - ("support-files", `Slow, run) - -let make_test_case ?theme_uri ?syntax case = - let case = Case.make ?theme_uri ?syntax case in - let run () = - (* Compile the source file and generate HTML. *) - generate_html case; - - List.iter - (fun output -> - let actual_file = Env.path `scratch // output in - - if Sys.file_exists actual_file then ( - (* Pretty-print output HTML for better diffing. *) - pretty_print_html_in_place actual_file; - - (* Run HTML validation on output files. *) - if Tidy.is_present_in_path then - let issues = Tidy.validate actual_file in - if issues <> [] then ( - List.iter prerr_endline issues; - Alcotest.fail "Tidy validation error")); - - (* Diff the actual outputs with the expected outputs. *) - diff output) - (Case.outputs case) - in - (Case.name case, `Slow, run) - -let make_input file sub_modules = - let base = Astring.String.Ascii.capitalize (Filename.chop_extension file) in - let index p = String.concat Filename.dir_sep (p @ [ "index.html" ]) in - (file, index [ base ] :: List.map (fun m -> index [ base; m ]) sub_modules) - -let source_files_all = - [ - ("val.mli", [ "Val/index.html" ]); - ("markup.mli", [ "Markup/index.html" ]); - ("section.mli", [ "Section/index.html" ]); - ("module.mli", [ "Module/index.html" ]); - ("interlude.mli", [ "Interlude/index.html" ]); - ("include.mli", [ "Include/index.html" ]); - make_input "include2.ml" [ "Y_include_synopsis"; "Y_include_doc" ]; - ( "include_sections.mli", - [ - "Include_sections/index.html"; - "Include_sections/module-type-Something/index.html"; - ] ); - ("mld.mld", [ "mld.html" ]); - ( "nested.mli", - [ - "Nested/index.html"; - "Nested/F/index.html"; - "Nested/F/argument-1-Arg1/index.html"; - "Nested/F/argument-2-Arg2/index.html"; - "Nested/X/index.html"; - "Nested/class-z/index.html"; - "Nested/class-inherits/index.html"; - "Nested/module-type-Y/index.html"; - ] ); - ("ocamlary.mli", [ "Ocamlary/index.html" ]); - ("type.mli", [ "Type/index.html" ]); - ("external.mli", [ "External/index.html" ]); - ("functor.mli", [ "Functor/index.html" ]); - ("class.mli", [ "Class/index.html" ]); - ("stop.mli", [ "Stop/index.html" ]); - ("bugs.ml", [ "Bugs/index.html" ]); - ("alias.ml", [ "Alias/index.html"; "Alias/X/index.html" ]); - make_input "toplevel_comments.mli" - [ - "module-type-T"; - "Include_inline"; - "Include_inline'"; - "module-type-Include_inline_T"; - "module-type-Include_inline_T'"; - "M"; - "M'"; - "M''"; - "Alias"; - "class-c1"; - "class-type-ct"; - "class-c2"; - "Ref_in_synopsis"; - ]; - ] - -let source_files_post406 = - [ ("bugs_post_406.mli", [ "Bugs_post_406/index.html" ]) ] - -let source_files_post408 = - [ - ("recent.mli", [ "Recent/index.html"; "Recent/X/index.html" ]); - ("recent_impl.ml", [ "Recent_impl/index.html" ]); - ("labels.mli", [ "Labels/index.html" ]); - ] - -let source_files_pre410 = [ ("bugs_pre_410.ml", [ "Bugs_pre_410/index.html" ]) ] - -let source_files_post404 = - [ ("stop_dead_link_doc.mli", [ "Stop_dead_link_doc/index.html" ]) ] - -let source_files = - let cur = - Astring.String.cuts ~sep:"." Sys.ocaml_version - |> List.map (fun i -> try Some (int_of_string i) with _ -> None) - in - match cur with - | Some major :: Some minor :: _ -> - List.concat - [ - (if major = 4 && minor < 10 then source_files_pre410 else []); - (if major = 4 && minor > 8 then source_files_post408 else []); - (if major = 4 && minor >= 6 then source_files_post406 else []); - (if major = 4 && minor >= 4 then source_files_post404 else []); - source_files_all; - ] - | _ -> source_files_all - -let () = - Env.init (); - - Alcotest.run "html" - [ - ("support_files", [ output_support_files ]); - ("html_ml", List.map (make_test_case ~syntax:`ml) source_files); - ("html_re", List.map (make_test_case ~syntax:`re) source_files); - ( "custom_theme", - [ - make_test_case ~theme_uri:"/a/b/c" - ("module.mli", [ "Module/index.html" ]); - make_test_case ~theme_uri:"https://foo.com/a/b/c/" - ("val.mli", [ "Val/index.html" ]); - make_test_case ~theme_uri:"../b/c" - ("include.mli", [ "Include/index.html" ]); - make_test_case ~theme_uri:"b/c" - ("section.mli", [ "Section/index.html" ]); - ] ); - ] diff --git a/test/html/tidy.ml b/test/html/tidy.ml deleted file mode 100644 index 875d9b5e97..0000000000 --- a/test/html/tidy.ml +++ /dev/null @@ -1,55 +0,0 @@ -let muted_warnings = - [ - (* NOTE: see https://github.com/ocaml/odoc/issues/188 *) - "NESTED_EMPHASIS"; - (* NOTE: see https://github.com/ocaml/odoc/pull/185#discussion_r217906131 *) - "MISSING_STARTTAG"; - "DISCARDING_UNEXPECTED"; - (* NOTE: see https://github.com/ocaml/odoc/issues/186 *) - "ANCHOR_NOT_UNIQUE"; - "TRIM_EMPTY_ELEMENT"; - ] - -let is_present_in_path = - Sys.command "which tidy > /dev/null" = 0 - && Sys.command "tidy -show-config < /dev/null | grep '^mute' > /dev/null" = 0 - -(* Returns a list of errors and warnings. *) -let validate file = - if not (Sys.file_exists file) then - invalid_arg ("tidy: file `" ^ file ^ "` does not exist"); - let muted_warnings = String.concat "," muted_warnings in - let options = - String.concat " " - [ - "-quiet"; - "--mute " ^ muted_warnings; - "--mute-id yes"; - "--show-errors 200"; - "-errors"; - "-ashtml"; - ] - in - let cmd = Printf.sprintf "tidy %s %S" options file in - let ((_, _, stderr) as proc) = Unix.open_process_full cmd [||] in - - let errors_and_warnings = - let rec loop acc = - match input_line stderr with - | message -> loop (message :: acc) - | exception End_of_file -> List.rev acc - in - loop [] - in - - match Unix.close_process_full proc with - (* All input files were processed successfully. *) - | WEXITED 0 -> [] - (* There were warnings. *) - | WEXITED 1 - (* There were errors. *) - | WEXITED 2 -> - errors_and_warnings - | _ -> - let msg = "Unexpected process termination while running: " ^ cmd in - raise (Failure msg) From c99285732a9a64fd4a81a9f3c5b2806e82e9b142 Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Mon, 26 Apr 2021 21:46:19 +0300 Subject: [PATCH 03/10] delete latex dir and its content from test dir Signed-off-by: lubegasimon --- test/latex/dune | 13 - test/latex/expect/test_package+ml/Alias.X.tex | 5 - test/latex/expect/test_package+ml/Alias.tex | 8 - test/latex/expect/test_package+ml/Bugs.tex | 6 - .../expect/test_package+ml/Bugs_pre_410.tex | 6 - .../test_package+ml/Class.empty_virtual'.tex | 3 - .../test_package+ml/Class.mutually'.tex | 3 - .../test_package+ml/Class.polymorphic'.tex | 3 - .../test_package+ml/Class.recursive'.tex | 3 - test/latex/expect/test_package+ml/Class.tex | 20 -- .../latex/expect/test_package+ml/External.tex | 5 - .../expect/test_package+ml/Functor.F1.tex | 9 - .../expect/test_package+ml/Functor.F2.tex | 9 - .../expect/test_package+ml/Functor.F3.tex | 9 - .../expect/test_package+ml/Functor.F4.tex | 9 - .../expect/test_package+ml/Functor.F5.tex | 6 - test/latex/expect/test_package+ml/Functor.tex | 23 -- test/latex/expect/test_package+ml/Include.tex | 29 --- .../latex/expect/test_package+ml/Include2.tex | 21 -- .../test_package+ml/Include_sections.tex | 71 ------ .../expect/test_package+ml/Interlude.tex | 22 -- test/latex/expect/test_package+ml/Markup.tex | 149 ----------- test/latex/expect/test_package+ml/Module.tex | 75 ------ .../latex/expect/test_package+ml/Nested.F.tex | 25 -- .../test_package+ml/Nested.inherits.tex | 4 - test/latex/expect/test_package+ml/Nested.tex | 34 --- .../latex/expect/test_package+ml/Nested.z.tex | 14 -- test/latex/expect/test_package+ml/Recent.tex | 78 ------ .../expect/test_package+ml/Recent_impl.B.tex | 7 - .../expect/test_package+ml/Recent_impl.tex | 32 --- test/latex/expect/test_package+ml/Section.tex | 20 -- test/latex/expect/test_package+ml/Stop.tex | 17 -- test/latex/expect/test_package+ml/Type.tex | 124 --------- test/latex/expect/test_package+ml/Val.tex | 8 - test/latex/expect/test_package+ml/mld.tex | 31 --- test/latex/expect/visualizer.tex | 90 ------- test/latex/test.ml | 238 ------------------ 37 files changed, 1229 deletions(-) delete mode 100644 test/latex/dune delete mode 100644 test/latex/expect/test_package+ml/Alias.X.tex delete mode 100644 test/latex/expect/test_package+ml/Alias.tex delete mode 100644 test/latex/expect/test_package+ml/Bugs.tex delete mode 100644 test/latex/expect/test_package+ml/Bugs_pre_410.tex delete mode 100644 test/latex/expect/test_package+ml/Class.empty_virtual'.tex delete mode 100644 test/latex/expect/test_package+ml/Class.mutually'.tex delete mode 100644 test/latex/expect/test_package+ml/Class.polymorphic'.tex delete mode 100644 test/latex/expect/test_package+ml/Class.recursive'.tex delete mode 100644 test/latex/expect/test_package+ml/Class.tex delete mode 100644 test/latex/expect/test_package+ml/External.tex delete mode 100644 test/latex/expect/test_package+ml/Functor.F1.tex delete mode 100644 test/latex/expect/test_package+ml/Functor.F2.tex delete mode 100644 test/latex/expect/test_package+ml/Functor.F3.tex delete mode 100644 test/latex/expect/test_package+ml/Functor.F4.tex delete mode 100644 test/latex/expect/test_package+ml/Functor.F5.tex delete mode 100644 test/latex/expect/test_package+ml/Functor.tex delete mode 100644 test/latex/expect/test_package+ml/Include.tex delete mode 100644 test/latex/expect/test_package+ml/Include2.tex delete mode 100644 test/latex/expect/test_package+ml/Include_sections.tex delete mode 100644 test/latex/expect/test_package+ml/Interlude.tex delete mode 100644 test/latex/expect/test_package+ml/Markup.tex delete mode 100644 test/latex/expect/test_package+ml/Module.tex delete mode 100644 test/latex/expect/test_package+ml/Nested.F.tex delete mode 100644 test/latex/expect/test_package+ml/Nested.inherits.tex delete mode 100644 test/latex/expect/test_package+ml/Nested.tex delete mode 100644 test/latex/expect/test_package+ml/Nested.z.tex delete mode 100644 test/latex/expect/test_package+ml/Recent.tex delete mode 100644 test/latex/expect/test_package+ml/Recent_impl.B.tex delete mode 100644 test/latex/expect/test_package+ml/Recent_impl.tex delete mode 100644 test/latex/expect/test_package+ml/Section.tex delete mode 100644 test/latex/expect/test_package+ml/Stop.tex delete mode 100644 test/latex/expect/test_package+ml/Type.tex delete mode 100644 test/latex/expect/test_package+ml/Val.tex delete mode 100644 test/latex/expect/test_package+ml/mld.tex delete mode 100644 test/latex/expect/visualizer.tex delete mode 100644 test/latex/test.ml diff --git a/test/latex/dune b/test/latex/dune deleted file mode 100644 index 0ddf0a06f1..0000000000 --- a/test/latex/dune +++ /dev/null @@ -1,13 +0,0 @@ -(executable - (name test) - (libraries alcotest)) - -(rule - (alias runtest) - (action - (run %{exe:test.exe})) - (deps - test.exe - %{workspace_root}/src/odoc/bin/main.exe - (source_tree ../cases) - (source_tree expect))) diff --git a/test/latex/expect/test_package+ml/Alias.X.tex b/test/latex/expect/test_package+ml/Alias.X.tex deleted file mode 100644 index 5ea5dbbf83..0000000000 --- a/test/latex/expect/test_package+ml/Alias.X.tex +++ /dev/null @@ -1,5 +0,0 @@ -\section{Module \ocamlinlinecode{Alias.\allowbreak{}X}}\label{container-page-test+u+package+++ml-module-Alias-module-X}% -\label{container-page-test+u+package+++ml-module-Alias-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\begin{ocamlindent}Module Foo\_\_X documentation. This should appear in the documentation for the alias to this module 'X'\end{ocamlindent}% -\medbreak - - diff --git a/test/latex/expect/test_package+ml/Alias.tex b/test/latex/expect/test_package+ml/Alias.tex deleted file mode 100644 index 0f3d73254b..0000000000 --- a/test/latex/expect/test_package+ml/Alias.tex +++ /dev/null @@ -1,8 +0,0 @@ -\section{Module \ocamlinlinecode{Alias}}\label{container-page-test+u+package+++ml-module-Alias}% -\label{container-page-test+u+package+++ml-module-Alias-module-Foo+u++u+X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Alias-module-Foo+u++u+X]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Alias-module-Foo+u++u+X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[xref-unresolved]{\ocamlinlinecode{int}}}\begin{ocamlindent}Module Foo\_\_X documentation. This should appear in the documentation for the alias to this module 'X'\end{ocamlindent}% -\medbreak -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Alias-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Alias-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ - -\input{test_package+ml/Alias.X.tex} diff --git a/test/latex/expect/test_package+ml/Bugs.tex b/test/latex/expect/test_package+ml/Bugs.tex deleted file mode 100644 index af6bd81060..0000000000 --- a/test/latex/expect/test_package+ml/Bugs.tex +++ /dev/null @@ -1,6 +0,0 @@ -\section{Module \ocamlinlinecode{Bugs}}\label{container-page-test+u+package+++ml-module-Bugs}% -\label{container-page-test+u+package+++ml-module-Bugs-type-opt}\ocamlcodefragment{\ocamltag{keyword}{type} 'a opt = \ocamltag{type-var}{'a} option}\\ -\label{container-page-test+u+package+++ml-module-Bugs-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : ?bar:\ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} unit \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}Triggers an assertion failure when \href{https://github.com/ocaml/odoc/issues/101}{https://github.com/ocaml/odoc/issues/101}\footnote{\url{https://github.com/ocaml/odoc/issues/101}} is not fixed.\end{ocamlindent}% -\medbreak - - diff --git a/test/latex/expect/test_package+ml/Bugs_pre_410.tex b/test/latex/expect/test_package+ml/Bugs_pre_410.tex deleted file mode 100644 index bc39f1ac93..0000000000 --- a/test/latex/expect/test_package+ml/Bugs_pre_410.tex +++ /dev/null @@ -1,6 +0,0 @@ -\section{Module \ocamlinlinecode{Bugs\_\allowbreak{}pre\_\allowbreak{}410}}\label{container-page-test+u+package+++ml-module-Bugs+u+pre+u+410}% -\label{container-page-test+u+package+++ml-module-Bugs+u+pre+u+410-type-opt'}\ocamlcodefragment{\ocamltag{keyword}{type} 'a opt' = int option}\\ -\label{container-page-test+u+package+++ml-module-Bugs+u+pre+u+410-val-foo'}\ocamlcodefragment{\ocamltag{keyword}{val} foo' : ?bar:\ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} unit \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}Similar to \ocamlinlinecode{Bugs}, but the printed type of \ocamlinlinecode{\textasciitilde{}bar} should be \ocamlinlinecode{int}, not \ocamlinlinecode{'a}. This probably requires fixing in the compiler. See \href{https://github.com/ocaml/odoc/pull/230\#issuecomment-433226807}{https://github.com/ocaml/odoc/pull/230\#issuecomment-433226807}\footnote{\url{https://github.com/ocaml/odoc/pull/230\#issuecomment-433226807}}.\end{ocamlindent}% -\medbreak - - diff --git a/test/latex/expect/test_package+ml/Class.empty_virtual'.tex b/test/latex/expect/test_package+ml/Class.empty_virtual'.tex deleted file mode 100644 index c4b6dcf937..0000000000 --- a/test/latex/expect/test_package+ml/Class.empty_virtual'.tex +++ /dev/null @@ -1,3 +0,0 @@ -\section{Class \ocamlinlinecode{Class.\allowbreak{}empty\_\allowbreak{}virtual'}}\label{package-test+u+package+++ml-module-Class-class-empty+u+virtual'}% - - diff --git a/test/latex/expect/test_package+ml/Class.mutually'.tex b/test/latex/expect/test_package+ml/Class.mutually'.tex deleted file mode 100644 index 82792c2704..0000000000 --- a/test/latex/expect/test_package+ml/Class.mutually'.tex +++ /dev/null @@ -1,3 +0,0 @@ -\section{Class \ocamlinlinecode{Class.\allowbreak{}mutually'}}\label{package-test+u+package+++ml-module-Class-class-mutually'}% - - diff --git a/test/latex/expect/test_package+ml/Class.polymorphic'.tex b/test/latex/expect/test_package+ml/Class.polymorphic'.tex deleted file mode 100644 index a470185953..0000000000 --- a/test/latex/expect/test_package+ml/Class.polymorphic'.tex +++ /dev/null @@ -1,3 +0,0 @@ -\section{Class \ocamlinlinecode{Class.\allowbreak{}polymorphic'}}\label{package-test+u+package+++ml-module-Class-class-polymorphic'}% - - diff --git a/test/latex/expect/test_package+ml/Class.recursive'.tex b/test/latex/expect/test_package+ml/Class.recursive'.tex deleted file mode 100644 index 395e5f9388..0000000000 --- a/test/latex/expect/test_package+ml/Class.recursive'.tex +++ /dev/null @@ -1,3 +0,0 @@ -\section{Class \ocamlinlinecode{Class.\allowbreak{}recursive'}}\label{package-test+u+package+++ml-module-Class-class-recursive'}% - - diff --git a/test/latex/expect/test_package+ml/Class.tex b/test/latex/expect/test_package+ml/Class.tex deleted file mode 100644 index 832b2f1648..0000000000 --- a/test/latex/expect/test_package+ml/Class.tex +++ /dev/null @@ -1,20 +0,0 @@ -\section{Module \ocamlinlinecode{Class}}\label{container-page-test+u+package+++ml-module-Class}% -\label{container-page-test+u+package+++ml-module-Class-class-type-empty}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Class-class-type-empty]{\ocamlinlinecode{empty}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Class-class-type-mutually}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Class-class-type-mutually]{\ocamlinlinecode{mutually}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Class-class-type-recursive}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Class-class-type-recursive]{\ocamlinlinecode{recursive}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Class-class-mutually'}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test+u+package+++ml-module-Class-class-mutually']{\ocamlinlinecode{mutually'}}}\ocamlcodefragment{ : \hyperref[container-page-test+u+package+++ml-module-Class-class-type-mutually]{\ocamlinlinecode{mutually}}}\\ -\label{container-page-test+u+package+++ml-module-Class-class-recursive'}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test+u+package+++ml-module-Class-class-recursive']{\ocamlinlinecode{recursive'}}}\ocamlcodefragment{ : \hyperref[container-page-test+u+package+++ml-module-Class-class-type-recursive]{\ocamlinlinecode{recursive}}}\\ -\label{container-page-test+u+package+++ml-module-Class-class-type-empty+u+virtual}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \ocamltag{keyword}{virtual} \hyperref[container-page-test+u+package+++ml-module-Class-class-type-empty+u+virtual]{\ocamlinlinecode{empty\_\allowbreak{}virtual}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Class-class-empty+u+virtual'}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{virtual} \hyperref[container-page-test+u+package+++ml-module-Class-class-empty+u+virtual']{\ocamlinlinecode{empty\_\allowbreak{}virtual'}}}\ocamlcodefragment{ : \hyperref[container-page-test+u+package+++ml-module-Class-class-type-empty]{\ocamlinlinecode{empty}}}\\ -\label{container-page-test+u+package+++ml-module-Class-class-type-polymorphic}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} 'a \hyperref[container-page-test+u+package+++ml-module-Class-class-type-polymorphic]{\ocamlinlinecode{polymorphic}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Class-class-polymorphic'}\ocamlcodefragment{\ocamltag{keyword}{class} 'a \hyperref[container-page-test+u+package+++ml-module-Class-class-polymorphic']{\ocamlinlinecode{polymorphic'}}}\ocamlcodefragment{ : \ocamltag{type-var}{'a} \hyperref[container-page-test+u+package+++ml-module-Class-class-type-polymorphic]{\ocamlinlinecode{polymorphic}}}\\ - -\input{test_package+ml/Class.mutually'.tex} -\input{test_package+ml/Class.recursive'.tex} -\input{test_package+ml/Class.empty_virtual'.tex} -\input{test_package+ml/Class.polymorphic'.tex} diff --git a/test/latex/expect/test_package+ml/External.tex b/test/latex/expect/test_package+ml/External.tex deleted file mode 100644 index ac2aa12276..0000000000 --- a/test/latex/expect/test_package+ml/External.tex +++ /dev/null @@ -1,5 +0,0 @@ -\section{Module \ocamlinlinecode{External}}\label{container-page-test+u+package+++ml-module-External}% -\label{container-page-test+u+package+++ml-module-External-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}Foo \emph{bar}.\end{ocamlindent}% -\medbreak - - diff --git a/test/latex/expect/test_package+ml/Functor.F1.tex b/test/latex/expect/test_package+ml/Functor.F1.tex deleted file mode 100644 index 9d021aaf46..0000000000 --- a/test/latex/expect/test_package+ml/Functor.F1.tex +++ /dev/null @@ -1,9 +0,0 @@ -\section{Module \ocamlinlinecode{Functor.\allowbreak{}F1}}\label{container-page-test+u+package+++ml-module-Functor-module-F1}% -\subsection{Parameters\label{parameters}}% -\label{container-page-test+u+package+++ml-module-Functor-module-F1-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-F1-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Functor-module-F1-argument-1-Arg-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\subsection{Signature\label{signature}}% -\label{container-page-test+u+package+++ml-module-Functor-module-F1-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ - - diff --git a/test/latex/expect/test_package+ml/Functor.F2.tex b/test/latex/expect/test_package+ml/Functor.F2.tex deleted file mode 100644 index 7b21a4b02e..0000000000 --- a/test/latex/expect/test_package+ml/Functor.F2.tex +++ /dev/null @@ -1,9 +0,0 @@ -\section{Module \ocamlinlinecode{Functor.\allowbreak{}F2}}\label{container-page-test+u+package+++ml-module-Functor-module-F2}% -\subsection{Parameters\label{parameters}}% -\label{container-page-test+u+package+++ml-module-Functor-module-F2-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-F2-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Functor-module-F2-argument-1-Arg-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\subsection{Signature\label{signature}}% -\label{container-page-test+u+package+++ml-module-Functor-module-F2-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test+u+package+++ml-module-Functor-module-F2-argument-1-Arg-type-t]{\ocamlinlinecode{Arg.\allowbreak{}t}}}\\ - - diff --git a/test/latex/expect/test_package+ml/Functor.F3.tex b/test/latex/expect/test_package+ml/Functor.F3.tex deleted file mode 100644 index e7d6c0c257..0000000000 --- a/test/latex/expect/test_package+ml/Functor.F3.tex +++ /dev/null @@ -1,9 +0,0 @@ -\section{Module \ocamlinlinecode{Functor.\allowbreak{}F3}}\label{container-page-test+u+package+++ml-module-Functor-module-F3}% -\subsection{Parameters\label{parameters}}% -\label{container-page-test+u+package+++ml-module-Functor-module-F3-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-F3-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Functor-module-F3-argument-1-Arg-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\subsection{Signature\label{signature}}% -\label{container-page-test+u+package+++ml-module-Functor-module-F3-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test+u+package+++ml-module-Functor-module-F3-argument-1-Arg-type-t]{\ocamlinlinecode{Arg.\allowbreak{}t}}}\\ - - diff --git a/test/latex/expect/test_package+ml/Functor.F4.tex b/test/latex/expect/test_package+ml/Functor.F4.tex deleted file mode 100644 index 09cd821fa4..0000000000 --- a/test/latex/expect/test_package+ml/Functor.F4.tex +++ /dev/null @@ -1,9 +0,0 @@ -\section{Module \ocamlinlinecode{Functor.\allowbreak{}F4}}\label{container-page-test+u+package+++ml-module-Functor-module-F4}% -\subsection{Parameters\label{parameters}}% -\label{container-page-test+u+package+++ml-module-Functor-module-F4-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-F4-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Functor-module-F4-argument-1-Arg-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\subsection{Signature\label{signature}}% -\label{container-page-test+u+package+++ml-module-Functor-module-F4-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ - - diff --git a/test/latex/expect/test_package+ml/Functor.F5.tex b/test/latex/expect/test_package+ml/Functor.F5.tex deleted file mode 100644 index 54dd46e75e..0000000000 --- a/test/latex/expect/test_package+ml/Functor.F5.tex +++ /dev/null @@ -1,6 +0,0 @@ -\section{Module \ocamlinlinecode{Functor.\allowbreak{}F5}}\label{package-test+u+package+++ml-module-Functor-module-F5}% -\subsection{Parameters\label{parameters}}% -\subsection{Signature\label{signature}}% -\label{package-test+u+package+++ml-module-Functor-module-F5-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ - - diff --git a/test/latex/expect/test_package+ml/Functor.tex b/test/latex/expect/test_package+ml/Functor.tex deleted file mode 100644 index cedf90f237..0000000000 --- a/test/latex/expect/test_package+ml/Functor.tex +++ /dev/null @@ -1,23 +0,0 @@ -\section{Module \ocamlinlinecode{Functor}}\label{container-page-test+u+package+++ml-module-Functor}% -\label{container-page-test+u+package+++ml-module-Functor-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Functor-module-type-S-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Functor-module-type-S1}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S1]{\ocamlinlinecode{S1}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Parameters\label{parameters}}% -\label{container-page-test+u+package+++ml-module-Functor-module-type-S1-argument-1-+u+}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S1-argument-1-+u+]{\ocamlinlinecode{\_\allowbreak{}}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Functor-module-type-S1-argument-1-+u+-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\subsubsection{Signature\label{signature}}% -\label{container-page-test+u+package+++ml-module-Functor-module-type-S1-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Functor-module-F1}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-F1]{\ocamlinlinecode{F1}}}\ocamlcodefragment{ (\hyperref[container-page-test+u+package+++ml-module-Functor-module-F1-argument-1-Arg]{\ocamlinlinecode{Arg}} : \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S]{\ocamlinlinecode{S}}) : \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S]{\ocamlinlinecode{S}}}\\ -\label{container-page-test+u+package+++ml-module-Functor-module-F2}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-F2]{\ocamlinlinecode{F2}}}\ocamlcodefragment{ (\hyperref[container-page-test+u+package+++ml-module-Functor-module-F2-argument-1-Arg]{\ocamlinlinecode{Arg}} : \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S]{\ocamlinlinecode{S}}) : \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S]{\ocamlinlinecode{S}} \ocamltag{keyword}{with} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S-type-t]{\ocamlinlinecode{t}} = \hyperref[container-page-test+u+package+++ml-module-Functor-module-F2-argument-1-Arg-type-t]{\ocamlinlinecode{Arg.\allowbreak{}t}}}\\ -\label{container-page-test+u+package+++ml-module-Functor-module-F3}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-F3]{\ocamlinlinecode{F3}}}\ocamlcodefragment{ (\hyperref[container-page-test+u+package+++ml-module-Functor-module-F3-argument-1-Arg]{\ocamlinlinecode{Arg}} : \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S]{\ocamlinlinecode{S}}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Functor-module-F4}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-F4]{\ocamlinlinecode{F4}}}\ocamlcodefragment{ (\hyperref[container-page-test+u+package+++ml-module-Functor-module-F4-argument-1-Arg]{\ocamlinlinecode{Arg}} : \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S]{\ocamlinlinecode{S}}) : \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S]{\ocamlinlinecode{S}}}\\ -\label{container-page-test+u+package+++ml-module-Functor-module-F5}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Functor-module-F5]{\ocamlinlinecode{F5}}}\ocamlcodefragment{ () : \hyperref[container-page-test+u+package+++ml-module-Functor-module-type-S]{\ocamlinlinecode{S}}}\\ - -\input{test_package+ml/Functor.F1.tex} -\input{test_package+ml/Functor.F2.tex} -\input{test_package+ml/Functor.F3.tex} -\input{test_package+ml/Functor.F4.tex} -\input{test_package+ml/Functor.F5.tex} diff --git a/test/latex/expect/test_package+ml/Include.tex b/test/latex/expect/test_package+ml/Include.tex deleted file mode 100644 index 779f37f468..0000000000 --- a/test/latex/expect/test_package+ml/Include.tex +++ /dev/null @@ -1,29 +0,0 @@ -\section{Module \ocamlinlinecode{Include}}\label{container-page-test+u+package+++ml-module-Include}% -\label{container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined]{\ocamlinlinecode{Not\_\allowbreak{}inlined}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined]{\ocamlinlinecode{Not\_\allowbreak{}inlined}}\label{container-page-test+u+package+++ml-module-Include-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\label{container-page-test+u+package+++ml-module-Include-module-type-Inlined}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Inlined]{\ocamlinlinecode{Inlined}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Include-module-type-Inlined-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Inlined]{\ocamlinlinecode{Inlined}}\label{container-page-test+u+package+++ml-module-Include-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\label{container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined+u+and+u+closed}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined+u+and+u+closed]{\ocamlinlinecode{Not\_\allowbreak{}inlined\_\allowbreak{}and\_\allowbreak{}closed}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined+u+and+u+closed-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} v}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined+u+and+u+closed]{\ocamlinlinecode{Not\_\allowbreak{}inlined\_\allowbreak{}and\_\allowbreak{}closed}}\label{container-page-test+u+package+++ml-module-Include-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} v}\\ -\label{container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined+u+and+u+opened}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined+u+and+u+opened]{\ocamlinlinecode{Not\_\allowbreak{}inlined\_\allowbreak{}and\_\allowbreak{}opened}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined+u+and+u+opened-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} w}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Not+u+inlined+u+and+u+opened]{\ocamlinlinecode{Not\_\allowbreak{}inlined\_\allowbreak{}and\_\allowbreak{}opened}}\label{container-page-test+u+package+++ml-module-Include-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} w}\\ -\label{container-page-test+u+package+++ml-module-Include-module-type-Inherent+u+Module}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Inherent+u+Module]{\ocamlinlinecode{Inherent\_\allowbreak{}Module}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Include-module-type-Inherent+u+Module-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test+u+package+++ml-module-Include-type-t]{\ocamlinlinecode{t}}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Inherent+u+Module]{\ocamlinlinecode{Inherent\_\allowbreak{}Module}}\label{container-page-test+u+package+++ml-module-Include-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test+u+package+++ml-module-Include-type-t]{\ocamlinlinecode{t}}}\\ -\label{container-page-test+u+package+++ml-module-Include-module-type-Dorminant+u+Module}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Dorminant+u+Module]{\ocamlinlinecode{Dorminant\_\allowbreak{}Module}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Inherent+u+Module]{\ocamlinlinecode{Inherent\_\allowbreak{}Module}}\label{container-page-test+u+package+++ml-module-Include-module-type-Dorminant+u+Module-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test+u+package+++ml-module-Include-type-t]{\ocamlinlinecode{t}}}\\ -\label{container-page-test+u+package+++ml-module-Include-module-type-Dorminant+u+Module-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test+u+package+++ml-module-Include-type-u]{\ocamlinlinecode{u}}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Dorminant+u+Module]{\ocamlinlinecode{Dorminant\_\allowbreak{}Module}}\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include-module-type-Inherent+u+Module]{\ocamlinlinecode{Inherent\_\allowbreak{}Module}}\label{container-page-test+u+package+++ml-module-Include-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test+u+package+++ml-module-Include-type-t]{\ocamlinlinecode{t}}}\\ -\label{container-page-test+u+package+++ml-module-Include-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test+u+package+++ml-module-Include-type-u]{\ocamlinlinecode{u}}}\\ - - diff --git a/test/latex/expect/test_package+ml/Include2.tex b/test/latex/expect/test_package+ml/Include2.tex deleted file mode 100644 index a9ec877b6d..0000000000 --- a/test/latex/expect/test_package+ml/Include2.tex +++ /dev/null @@ -1,21 +0,0 @@ -\section{Module \ocamlinlinecode{Include2}}\label{container-page-test+u+package+++ml-module-Include2}% -\label{container-page-test+u+package+++ml-module-Include2-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Include2-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Include2-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Comment about X that should not appear when including X below.\end{ocamlindent}% -\medbreak -\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \ocamltag{keyword}{struct} \ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include2-module-X]{\ocamlinlinecode{X}} \ocamltag{keyword}{end}Comment about X that should not appear when including X below. - -\label{container-page-test+u+package+++ml-module-Include2-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\\ -\label{container-page-test+u+package+++ml-module-Include2-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Include2-module-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Include2-module-Y-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Top-comment of Y.\end{ocamlindent}% -\medbreak -\label{container-page-test+u+package+++ml-module-Include2-module-Y+u+include+u+synopsis}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Include2-module-Y+u+include+u+synopsis]{\ocamlinlinecode{Y\_\allowbreak{}include\_\allowbreak{}synopsis}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \ocamltag{keyword}{struct} \ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include2-module-Y]{\ocamlinlinecode{Y}} \ocamltag{keyword}{end}\label{container-page-test+u+package+++ml-module-Include2-module-Y+u+include+u+synopsis-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test+u+package+++ml-module-Include2-module-Y-type-t]{\ocamlinlinecode{Y.\allowbreak{}t}}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}The \ocamlinlinecode{include Y} below should have the synopsis from \ocamlinlinecode{Y}'s top-comment attached to it.\end{ocamlindent}% -\medbreak -\label{container-page-test+u+package+++ml-module-Include2-module-Y+u+include+u+doc}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Include2-module-Y+u+include+u+doc]{\ocamlinlinecode{Y\_\allowbreak{}include\_\allowbreak{}doc}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}Doc attached to \ocamlinlinecode{include Y}. \ocamlinlinecode{Y}'s top-comment shouldn't appear here.\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \ocamltag{keyword}{struct} \ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include2-module-Y]{\ocamlinlinecode{Y}} \ocamltag{keyword}{end}\label{container-page-test+u+package+++ml-module-Include2-module-Y+u+include+u+doc-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test+u+package+++ml-module-Include2-module-Y-type-t]{\ocamlinlinecode{Y.\allowbreak{}t}}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ - - diff --git a/test/latex/expect/test_package+ml/Include_sections.tex b/test/latex/expect/test_package+ml/Include_sections.tex deleted file mode 100644 index c7afe47e56..0000000000 --- a/test/latex/expect/test_package+ml/Include_sections.tex +++ /dev/null @@ -1,71 +0,0 @@ -\section{Module \ocamlinlinecode{Include\_\allowbreak{}sections}}\label{container-page-test+u+package+++ml-module-Include+u+sections}% -\label{container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ -\subsubsection{Something 1\label{something-1}}% -foo - -\label{container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ -\subsubsection{Something 2\label{something-2}}% -\label{container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% -\medbreak -\subsubsection{Something 1-bis\label{something-1-bis}}% -Some text. - -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}A module type.\end{ocamlindent}% -\medbreak -Let's include \hyperref[container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{\ocamlinlinecode{Something}}[p\pageref*{container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something}]} once - -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}\label{container-page-test+u+package+++ml-module-Include+u+sections-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ -\subsection{Something 1\label{something-1}}% -foo - -\label{container-page-test+u+package+++ml-module-Include+u+sections-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ -\subsubsection{Something 2\label{something-2}}% -\label{container-page-test+u+package+++ml-module-Include+u+sections-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% -\medbreak -\subsection{Something 1-bis\label{something-1-bis}}% -Some text. - -\subsection{Second include\label{second-include}}% -Let's include \hyperref[container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{\ocamlinlinecode{Something}}[p\pageref*{container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something}]} a second time: the heading level should be shift here. - -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}\label{container-page-test+u+package+++ml-module-Include+u+sections-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ -\subsection{Something 1\label{something-1}}% -foo - -\label{container-page-test+u+package+++ml-module-Include+u+sections-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ -\subsubsection{Something 2\label{something-2}}% -\label{container-page-test+u+package+++ml-module-Include+u+sections-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% -\medbreak -\subsection{Something 1-bis\label{something-1-bis}}% -Some text. - -\subsubsection{Third include\label{third-include}}% -Shifted some more. - -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}\label{container-page-test+u+package+++ml-module-Include+u+sections-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ -\subsection{Something 1\label{something-1}}% -foo - -\label{container-page-test+u+package+++ml-module-Include+u+sections-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ -\subsubsection{Something 2\label{something-2}}% -\label{container-page-test+u+package+++ml-module-Include+u+sections-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% -\medbreak -\subsection{Something 1-bis\label{something-1-bis}}% -Some text. - -And let's include it again, but without inlining it this time: the ToC shouldn't grow. - -\ocamltag{keyword}{include} \hyperref[container-page-test+u+package+++ml-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}\label{container-page-test+u+package+++ml-module-Include+u+sections-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ -\subsection{Something 1\label{something-1}}% -foo - -\label{container-page-test+u+package+++ml-module-Include+u+sections-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ -\subsubsection{Something 2\label{something-2}}% -\label{container-page-test+u+package+++ml-module-Include+u+sections-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% -\medbreak -\subsection{Something 1-bis\label{something-1-bis}}% -Some text. - - - diff --git a/test/latex/expect/test_package+ml/Interlude.tex b/test/latex/expect/test_package+ml/Interlude.tex deleted file mode 100644 index fa965deb78..0000000000 --- a/test/latex/expect/test_package+ml/Interlude.tex +++ /dev/null @@ -1,22 +0,0 @@ -\section{Module \ocamlinlinecode{Interlude}}\label{container-page-test+u+package+++ml-module-Interlude}% -This is the comment associated to the module. - -Some separate stray text at the top of the module. - -\label{container-page-test+u+package+++ml-module-Interlude-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\begin{ocamlindent}Foo.\end{ocamlindent}% -\medbreak -Some stray text that is not associated with any signature item. - -It has multiple paragraphs. - -A separate block of stray text, adjacent to the preceding one. - -\label{container-page-test+u+package+++ml-module-Interlude-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}Bar.\end{ocamlindent}% -\medbreak -\label{container-page-test+u+package+++ml-module-Interlude-val-multiple}\ocamlcodefragment{\ocamltag{keyword}{val} multiple : unit}\\ -\label{container-page-test+u+package+++ml-module-Interlude-val-signature}\ocamlcodefragment{\ocamltag{keyword}{val} signature : unit}\\ -\label{container-page-test+u+package+++ml-module-Interlude-val-items}\ocamlcodefragment{\ocamltag{keyword}{val} items : unit}\\ -Stray text at the bottom of the module. - - - diff --git a/test/latex/expect/test_package+ml/Markup.tex b/test/latex/expect/test_package+ml/Markup.tex deleted file mode 100644 index ad93817785..0000000000 --- a/test/latex/expect/test_package+ml/Markup.tex +++ /dev/null @@ -1,149 +0,0 @@ -\section{Module \ocamlinlinecode{Markup}}\label{container-page-test+u+package+++ml-module-Markup}% -Here, we test the rendering of comment markup. - -\subsection{Sections\label{sections}}% -Let's get these done first, because sections will be used to break up the rest of this test. - -Besides the section heading above, there are also - -\subsubsection{Subsection headings\label{subsection-headings}}% -and - -\subsubsection{Sub-subsection headings\label{sub-subsection-headings}}% -but odoc has banned deeper headings. There are also title headings, but they are only allowed in mld files. - -\subsubsection{Anchors\label{anchors}}% -Sections can have attached \hyperref[container-page-test+u+package+++ml-module-Markup-anchors]{\ocamlinlinecode{Anchors}[p\pageref*{container-page-test+u+package+++ml-module-Markup-anchors}]}, and it is possible to \hyperref[container-page-test+u+package+++ml-module-Markup-anchors]{\ocamlinlinecode{link}[p\pageref*{container-page-test+u+package+++ml-module-Markup-anchors}]} to them. Links to section headers should not be set in source code style. - -\subsubsection{Paragraph\label{paragraph}}% -Individual paragraphs can have a heading. - -\subsubsection{Subparagraph\label{subparagraph}}% -Parts of a longer paragraph that can be considered alone can also have headings. - -\subsection{Styling\label{styling}}% -This paragraph has some styled elements: \bold{bold} and \emph{italic}, \bold{\emph{bold italic}}, \emph{emphasis}, \emph{\emph{emphasis} within emphasis}, \bold{\emph{bold italic}}, super\textsuperscript{script}, sub\textsubscript{script}. The line spacing should be enough for superscripts and subscripts not to look odd. - -Note: \emph{In italics \emph{emphasis} is rendered as normal text while \emph{emphasis \emph{in} emphasis} is rendered in italics.} \emph{It also work the same in \href{\#}{links in italics with \emph{emphasis \emph{in} emphasis}.}\footnote{\url{\#}}} - -\ocamlinlinecode{code} is a different kind of markup that doesn't allow nested markup. - -It's possible for two markup elements to appear \bold{next} \emph{to} each other and have a space, and appear \bold{next}\emph{to} each other with no space. It doesn't matter \bold{how} \emph{much} space it was in the source: in this sentence, it was two space characters. And in this one, there is \bold{a} \emph{newline}. - -This is also true between \emph{non-}\ocamlinlinecode{code} markup \emph{and} \ocamlinlinecode{code}. - -Code can appear \bold{inside \ocamlinlinecode{other} markup}. Its display shouldn't be affected. - -\subsection{Links and references\label{links-and-references}}% -This is a \href{\#}{link}\footnote{\url{\#}}. It sends you to the top of this page. Links can have markup inside them: \href{\#}{\bold{bold}}\footnote{\url{\#}}, \href{\#}{\emph{italics}}\footnote{\url{\#}}, \href{\#}{\emph{emphasis}}\footnote{\url{\#}}, \href{\#}{super\textsuperscript{script}}\footnote{\url{\#}}, \href{\#}{sub\textsubscript{script}}\footnote{\url{\#}}, and \href{\#}{\ocamlinlinecode{code}}\footnote{\url{\#}}. Links can also be nested \emph{\href{\#}{inside}\footnote{\url{\#}}} markup. Links cannot be nested inside each other. This link has no replacement text: \href{\#}{\#}\footnote{\url{\#}}. The text is filled in by odoc. This is a shorthand link: \href{\#}{\#}\footnote{\url{\#}}. The text is also filled in by odoc in this case. - -This is a reference to \hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{\ocamlinlinecode{foo}}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}. References can have replacement text: \hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{the value foo}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}. Except for the special lookup support, references are pretty much just like links. The replacement text can have nested styles: \hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{\bold{bold}}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}, \hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{\emph{italic}}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}, \hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{\emph{emphasis}}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}, \hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{super\textsuperscript{script}}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}, \hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{sub\textsubscript{script}}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}, and \hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{\ocamlinlinecode{code}}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}. It's also possible to surround a reference in a style: \bold{\hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{\ocamlinlinecode{foo}}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}}. References can't be nested inside references, and links and references can't be nested inside each other. - -\subsection{Preformatted text\label{preformatted-text}}% -This is a code block:\medbreak -\begin{ocamlcodeblock} -let foo = () -(** There are some nested comments in here, but an unpaired comment - terminator would terminate the whole doc surrounding comment. It's - best to keep code blocks no wider than 72 characters. *) - -let bar = - ignore foo -\end{ocamlcodeblock}\medbreak -There are also verbatim blocks: - -\begin{verbatim}The main difference is these don't get syntax highlighting.\end{verbatim}% -\subsection{Lists\label{lists}}% -\begin{itemize}\item{This is a}% -\item{shorthand bulleted list,}% -\item{and the paragraphs in each list item support \emph{styling}.}\end{itemize}% -\begin{enumerate}\item{This is a}% -\item{shorthand numbered list.}\end{enumerate}% -\begin{itemize}\item{Shorthand list items can span multiple lines, however trying to put two paragraphs into a shorthand list item using a double line break}\end{itemize}% -just creates a paragraph outside the list. - -\begin{itemize}\item{Similarly, inserting a blank line between two list items}\end{itemize}% -\begin{itemize}\item{creates two separate lists.}\end{itemize}% -\begin{itemize}\item{To get around this limitation, one - -can use explicitly-delimited lists. - -}% -\item{This one is bulleted,}\end{itemize}% -\begin{enumerate}\item{but there is also the numbered variant.}\end{enumerate}% -\begin{itemize}\item{\begin{itemize}\item{lists}% -\item{can be nested}% -\item{and can include references}% -\item{\hyperref[container-page-test+u+package+++ml-module-Markup-val-foo]{\ocamlinlinecode{\ocamlinlinecode{foo}}[p\pageref*{container-page-test+u+package+++ml-module-Markup-val-foo}]}}\end{itemize}% -}\end{itemize}% -\subsection{Unicode\label{unicode}}% -The parser supports any ASCII-compatible encoding, in particuλar UTF-8. - -\subsection{Raw HTML\label{raw-html}}% -Raw HTML can be as inline elements into sentences. - -\subsection{Modules\label{modules}}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{\ocamlinlinecode{X}}]{}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{\ocamlinlinecode{X}}]{}% -\item[{\ocamlinlinecode{Y}}]{}% -\item[{\ocamlinlinecode{Z}}]{}\end{description}% -\subsection{Tags\label{tags}}% -Each comment can end with zero or more tags. Here are some examples: - -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{author}]{antron}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{deprecated}]{a \emph{long} time ago - -}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{parameter foo}]{unused - -}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{raises Failure}]{always - -}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{returns}]{never - -}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{see \href{\#}{\#}\footnote{\url{\#}}}]{this url - -}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{see \ocamlinlinecode{foo.\allowbreak{}ml}}]{this file - -}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{see Foo}]{this document - -}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{since}]{0}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{before 1.0}]{it was in b\textsuperscript{e}t\textsubscript{a} - -}\end{description}% -\begin{description}\kern-\topsep -\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded -\item[{version}]{-1}\end{description}% -\label{container-page-test+u+package+++ml-module-Markup-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\begin{ocamlindent}Comments in structure items \bold{support} \emph{markup}, t\textsuperscript{o}\textsubscript{o}.\end{ocamlindent}% -\medbreak - - diff --git a/test/latex/expect/test_package+ml/Module.tex b/test/latex/expect/test_package+ml/Module.tex deleted file mode 100644 index 2eb9526284..0000000000 --- a/test/latex/expect/test_package+ml/Module.tex +++ /dev/null @@ -1,75 +0,0 @@ -\section{Module \ocamlinlinecode{Module}}\label{container-page-test+u+package+++ml-module-Module}% -Foo. - -\label{container-page-test+u+package+++ml-module-Module-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\begin{ocamlindent}The module needs at least one signature item, otherwise a bug causes the compiler to drop the module comment (above). See \href{https://caml.inria.fr/mantis/view.php?id=7701}{https://caml.inria.fr/mantis/view.php?id=7701}\footnote{\url{https://caml.inria.fr/mantis/view.php?id=7701}}.\end{ocamlindent}% -\medbreak -\label{container-page-test+u+package+++ml-module-Module-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Module-module-type-S-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S1}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} S1}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S2}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S2]{\ocamlinlinecode{S2}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Module-module-type-S2-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S2-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S2-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S2-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S2-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S2-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S3}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S3]{\ocamlinlinecode{S3}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Module-module-type-S3-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S3-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u = string}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S3-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S3-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S3-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S3-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S4}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S4]{\ocamlinlinecode{S4}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Module-module-type-S4-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S4-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S4-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S4-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S4-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S5}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S5]{\ocamlinlinecode{S5}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Module-module-type-S5-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S5-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S5-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S5-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S5-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-type-result}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) result}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S6}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S6]{\ocamlinlinecode{S6}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Module-module-type-S6-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S6-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S6-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S6-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S6-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-M'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Module-module-M']{\ocamlinlinecode{M'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S7}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S7]{\ocamlinlinecode{S7}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Module-module-type-S7-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S7-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S7-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S7-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S7-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} M = \hyperref[container-page-test+u+package+++ml-module-Module-module-M']{\ocamlinlinecode{M'}}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S8}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S8]{\ocamlinlinecode{S8}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Module-module-type-S8-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S8-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S8-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S8-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-type-S9}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Module-module-type-S9]{\ocamlinlinecode{S9}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-Mutually}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Module-module-Mutually]{\ocamlinlinecode{Mutually}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Module-module-Recursive}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Module-module-Recursive]{\ocamlinlinecode{Recursive}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ - - diff --git a/test/latex/expect/test_package+ml/Nested.F.tex b/test/latex/expect/test_package+ml/Nested.F.tex deleted file mode 100644 index 05dfd813da..0000000000 --- a/test/latex/expect/test_package+ml/Nested.F.tex +++ /dev/null @@ -1,25 +0,0 @@ -\section{Module \ocamlinlinecode{Nested.\allowbreak{}F}}\label{container-page-test+u+package+++ml-module-Nested-module-F}% -This is a functor F. - -Some additional comments. - -\subsection{Type\label{type}}% -\subsection{Parameters\label{parameters}}% -\label{container-page-test+u+package+++ml-module-Nested-module-F-argument-1-Arg1}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Nested-module-F-argument-1-Arg1]{\ocamlinlinecode{Arg1}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Type\label{type}}% -\label{container-page-test+u+package+++ml-module-Nested-module-F-argument-1-Arg1-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\begin{ocamlindent}Some type.\end{ocamlindent}% -\medbreak -\subsubsection{Values\label{values}}% -\label{container-page-test+u+package+++ml-module-Nested-module-F-argument-1-Arg1-val-y}\ocamlcodefragment{\ocamltag{keyword}{val} y : \hyperref[container-page-test+u+package+++ml-module-Nested-module-F-argument-1-Arg1-type-t]{\ocamlinlinecode{t}}}\begin{ocamlindent}The value of y.\end{ocamlindent}% -\medbreak -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Nested-module-F-argument-2-Arg2}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Nested-module-F-argument-2-Arg2]{\ocamlinlinecode{Arg2}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Type\label{type}}% -\label{container-page-test+u+package+++ml-module-Nested-module-F-argument-2-Arg2-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\begin{ocamlindent}Some type.\end{ocamlindent}% -\medbreak -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\subsection{Signature\label{signature}}% -\label{container-page-test+u+package+++ml-module-Nested-module-F-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test+u+package+++ml-module-Nested-module-F-argument-1-Arg1-type-t]{\ocamlinlinecode{Arg1.\allowbreak{}t}} * \hyperref[container-page-test+u+package+++ml-module-Nested-module-F-argument-2-Arg2-type-t]{\ocamlinlinecode{Arg2.\allowbreak{}t}}}\begin{ocamlindent}Some type.\end{ocamlindent}% -\medbreak - - diff --git a/test/latex/expect/test_package+ml/Nested.inherits.tex b/test/latex/expect/test_package+ml/Nested.inherits.tex deleted file mode 100644 index 1d5fdda365..0000000000 --- a/test/latex/expect/test_package+ml/Nested.inherits.tex +++ /dev/null @@ -1,4 +0,0 @@ -\section{Class \ocamlinlinecode{Nested.\allowbreak{}inherits}}\label{container-page-test+u+package+++ml-module-Nested-class-inherits}% -\ocamlcodefragment{\ocamltag{keyword}{inherit} \hyperref[container-page-test+u+package+++ml-module-Nested-class-z]{\ocamlinlinecode{z}}}\\ - - diff --git a/test/latex/expect/test_package+ml/Nested.tex b/test/latex/expect/test_package+ml/Nested.tex deleted file mode 100644 index 318323a465..0000000000 --- a/test/latex/expect/test_package+ml/Nested.tex +++ /dev/null @@ -1,34 +0,0 @@ -\section{Module \ocamlinlinecode{Nested}}\label{container-page-test+u+package+++ml-module-Nested}% -This comment needs to be here before \#235 is fixed. - -\subsection{Module\label{module}}% -\label{container-page-test+u+package+++ml-module-Nested-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Nested-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Type\label{type}}% -\label{container-page-test+u+package+++ml-module-Nested-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\begin{ocamlindent}Some type.\end{ocamlindent}% -\medbreak -\subsubsection{Values\label{values}}% -\label{container-page-test+u+package+++ml-module-Nested-module-X-val-x}\ocamlcodefragment{\ocamltag{keyword}{val} x : \hyperref[container-page-test+u+package+++ml-module-Nested-module-X-type-t]{\ocamlinlinecode{t}}}\begin{ocamlindent}The value of x.\end{ocamlindent}% -\medbreak -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This is module X.\end{ocamlindent}% -\medbreak -\subsection{Module type\label{module-type}}% -\label{container-page-test+u+package+++ml-module-Nested-module-type-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Nested-module-type-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Type\label{type}}% -\label{container-page-test+u+package+++ml-module-Nested-module-type-Y-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\begin{ocamlindent}Some type.\end{ocamlindent}% -\medbreak -\subsubsection{Values\label{values}}% -\label{container-page-test+u+package+++ml-module-Nested-module-type-Y-val-y}\ocamlcodefragment{\ocamltag{keyword}{val} y : \hyperref[container-page-test+u+package+++ml-module-Nested-module-type-Y-type-t]{\ocamlinlinecode{t}}}\begin{ocamlindent}The value of y.\end{ocamlindent}% -\medbreak -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This is module type Y.\end{ocamlindent}% -\medbreak -\subsection{Functor\label{functor}}% -\label{container-page-test+u+package+++ml-module-Nested-module-F}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Nested-module-F]{\ocamlinlinecode{F}}}\ocamlcodefragment{ (\hyperref[container-page-test+u+package+++ml-module-Nested-module-F-argument-1-Arg1]{\ocamlinlinecode{Arg1}} : \hyperref[container-page-test+u+package+++ml-module-Nested-module-type-Y]{\ocamlinlinecode{Y}}) (\hyperref[container-page-test+u+package+++ml-module-Nested-module-F-argument-2-Arg2]{\ocamlinlinecode{Arg2}} : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\begin{ocamlindent}This is a functor F.\end{ocamlindent}% -\medbreak -\subsection{Class\label{class}}% -\label{container-page-test+u+package+++ml-module-Nested-class-z}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{virtual} \hyperref[container-page-test+u+package+++ml-module-Nested-class-z]{\ocamlinlinecode{z}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\begin{ocamlindent}This is class z.\end{ocamlindent}% -\medbreak -\label{container-page-test+u+package+++ml-module-Nested-class-inherits}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{virtual} \hyperref[container-page-test+u+package+++ml-module-Nested-class-inherits]{\ocamlinlinecode{inherits}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ - -\input{test_package+ml/Nested.F.tex} -\input{test_package+ml/Nested.z.tex} -\input{test_package+ml/Nested.inherits.tex} diff --git a/test/latex/expect/test_package+ml/Nested.z.tex b/test/latex/expect/test_package+ml/Nested.z.tex deleted file mode 100644 index 9a6935c2cc..0000000000 --- a/test/latex/expect/test_package+ml/Nested.z.tex +++ /dev/null @@ -1,14 +0,0 @@ -\section{Class \ocamlinlinecode{Nested.\allowbreak{}z}}\label{container-page-test+u+package+++ml-module-Nested-class-z}% -This is class z. - -Some additional comments. - -\label{container-page-test+u+package+++ml-module-Nested-class-z-val-y}\ocamlcodefragment{\ocamltag{keyword}{val} y : int}\begin{ocamlindent}Some value.\end{ocamlindent}% -\medbreak -\label{container-page-test+u+package+++ml-module-Nested-class-z-val-y'}\ocamlcodefragment{\ocamltag{keyword}{val} \ocamltag{keyword}{mutable} \ocamltag{keyword}{virtual} y' : int}\\ -\subsection{Methods\label{methods}}% -\label{container-page-test+u+package+++ml-module-Nested-class-z-method-z}\ocamlcodefragment{\ocamltag{keyword}{method} z : int}\begin{ocamlindent}Some method.\end{ocamlindent}% -\medbreak -\label{container-page-test+u+package+++ml-module-Nested-class-z-method-z'}\ocamlcodefragment{\ocamltag{keyword}{method} \ocamltag{keyword}{private} \ocamltag{keyword}{virtual} z' : int}\\ - - diff --git a/test/latex/expect/test_package+ml/Recent.tex b/test/latex/expect/test_package+ml/Recent.tex deleted file mode 100644 index 8803a7b57b..0000000000 --- a/test/latex/expect/test_package+ml/Recent.tex +++ /dev/null @@ -1,78 +0,0 @@ -\section{Module \ocamlinlinecode{Recent}}\label{container-page-test+u+package+++ml-module-Recent}% -\label{container-page-test+u+package+++ml-module-Recent-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Recent-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent-module-type-S1}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Recent-module-type-S1]{\ocamlinlinecode{S1}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Parameters\label{parameters}}% -\label{container-page-test+u+package+++ml-module-Recent-module-type-S1-argument-1-+u+}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent-module-type-S1-argument-1-+u+]{\ocamlinlinecode{\_\allowbreak{}}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\subsubsection{Signature\label{signature}}% -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent-type-variant}\ocamlcodefragment{\ocamltag{keyword}{type} variant = }\begin{ocamlindent}\ocamlcodefragment{| \ocamltag{constructor}{A}}\label{container-page-test+u+package+++ml-module-Recent-type-variant.A}% -\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{| \ocamltag{constructor}{B} \ocamltag{keyword}{of} int}\label{container-page-test+u+package+++ml-module-Recent-type-variant.B}% -\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{| \ocamltag{constructor}{C}}\label{container-page-test+u+package+++ml-module-Recent-type-variant.C}% -\begin{ocamlindent}foo\end{ocamlindent}% -\ocamlcodefragment{| \ocamltag{constructor}{D}}\label{container-page-test+u+package+++ml-module-Recent-type-variant.D}% -\begin{ocamlindent}\emph{bar}\end{ocamlindent}% -\ocamlcodefragment{| \ocamltag{constructor}{E} \ocamltag{keyword}{of} \{}\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test+u+package+++ml-module-Recent-type-variant.a}\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{\}}\label{container-page-test+u+package+++ml-module-Recent-type-variant.E}% -\begin{ocamlindent}\end{ocamlindent}% -\end{ocamlindent}% -\label{container-page-test+u+package+++ml-module-Recent-type-gadt}\ocamlcodefragment{\ocamltag{keyword}{type} \_\allowbreak{} gadt = }\begin{ocamlindent}\ocamlcodefragment{| \ocamltag{constructor}{A} : int \hyperref[container-page-test+u+package+++ml-module-Recent-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test+u+package+++ml-module-Recent-type-gadt.A}% -\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{| \ocamltag{constructor}{B} : int \ocamltag{arrow}{$\rightarrow$} string \hyperref[container-page-test+u+package+++ml-module-Recent-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test+u+package+++ml-module-Recent-type-gadt.B}% -\begin{ocamlindent}foo\end{ocamlindent}% -\ocamlcodefragment{| \ocamltag{constructor}{C} : \{}\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test+u+package+++ml-module-Recent-type-gadt.a}\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{\} \ocamltag{arrow}{$\rightarrow$} unit \hyperref[container-page-test+u+package+++ml-module-Recent-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test+u+package+++ml-module-Recent-type-gadt.C}% -\begin{ocamlindent}\end{ocamlindent}% -\end{ocamlindent}% -\label{container-page-test+u+package+++ml-module-Recent-type-polymorphic+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} polymorphic\_\allowbreak{}variant = [ }\\ -\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`A}\label{container-page-test+u+package+++ml-module-Recent-type-polymorphic+u+variant.A}& \\ -\ocamlinlinecode{| }\ocamlinlinecode{`B \ocamltag{keyword}{of} int}\label{container-page-test+u+package+++ml-module-Recent-type-polymorphic+u+variant.B}& \\ -\ocamlinlinecode{| }\ocamlinlinecode{`C}\label{container-page-test+u+package+++ml-module-Recent-type-polymorphic+u+variant.C}& foo\\ -\ocamlinlinecode{| }\ocamlinlinecode{`D}\label{container-page-test+u+package+++ml-module-Recent-type-polymorphic+u+variant.D}& bar\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{ ]}\\ -\label{container-page-test+u+package+++ml-module-Recent-type-empty+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} empty\_\allowbreak{}variant = |}\\ -\label{container-page-test+u+package+++ml-module-Recent-type-nonrec+u+}\ocamlcodefragment{\ocamltag{keyword}{type} \ocamltag{keyword}{nonrec} nonrec\_\allowbreak{} = int}\\ -\label{container-page-test+u+package+++ml-module-Recent-type-empty+u+conj}\ocamlcodefragment{\ocamltag{keyword}{type} empty\_\allowbreak{}conj = }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{X} : [< `X of \& \ocamltag{type-var}{'a} \& int * float ] \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test+u+package+++ml-module-Recent-type-empty+u+conj]{\ocamlinlinecode{empty\_\allowbreak{}conj}}}\label{container-page-test+u+package+++ml-module-Recent-type-empty+u+conj.X}\\ -\end{ocamltabular}% -\\ -\label{container-page-test+u+package+++ml-module-Recent-type-conj}\ocamlcodefragment{\ocamltag{keyword}{type} conj = }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{X} : [< `X of int \& [< `B of int \& float ] ] \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test+u+package+++ml-module-Recent-type-conj]{\ocamlinlinecode{conj}}}\label{container-page-test+u+package+++ml-module-Recent-type-conj.X}\\ -\end{ocamltabular}% -\\ -\label{container-page-test+u+package+++ml-module-Recent-val-empty+u+conj}\ocamlcodefragment{\ocamltag{keyword}{val} empty\_\allowbreak{}conj : [< `X of \& \ocamltag{type-var}{'a} \& int * float ]}\\ -\label{container-page-test+u+package+++ml-module-Recent-val-conj}\ocamlcodefragment{\ocamltag{keyword}{val} conj : [< `X of int \& [< `B of int \& float ] ]}\\ -\label{container-page-test+u+package+++ml-module-Recent-module-Z}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent-module-Z]{\ocamlinlinecode{Z}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Recent-module-Z-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent-module-Z-module-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Recent-module-Z-module-Y-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent-module-Z-module-Y-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Recent-module-Z-module-Y-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} 'a t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Recent-module-X-module-L}\ocamlcodefragment{\ocamltag{keyword}{module} L := \hyperref[container-page-test+u+package+++ml-module-Recent-module-Z-module-Y]{\ocamlinlinecode{Z.\allowbreak{}Y}}}\\ -\label{container-page-test+u+package+++ml-module-Recent-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int \hyperref[container-page-test+u+package+++ml-module-Recent-module-Z-module-Y-module-X-type-t]{\ocamlinlinecode{Z.\allowbreak{}Y.\allowbreak{}X.\allowbreak{}t}}}\\ -\label{container-page-test+u+package+++ml-module-Recent-module-X-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u := int}\\ -\label{container-page-test+u+package+++ml-module-Recent-module-X-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} v = \hyperref[container-page-test+u+package+++ml-module-Recent-module-X-type-u]{\ocamlinlinecode{u}} \hyperref[container-page-test+u+package+++ml-module-Recent-module-Z-module-Y-module-X-type-t]{\ocamlinlinecode{Z.\allowbreak{}Y.\allowbreak{}X.\allowbreak{}t}}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent-module-type-PolyS}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Recent-module-type-PolyS]{\ocamlinlinecode{PolyS}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Recent-module-type-PolyS-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = [ }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`A}\label{container-page-test+u+package+++ml-module-Recent-module-type-PolyS-type-t.A}\\ -\ocamlinlinecode{| }\ocamlinlinecode{`B}\label{container-page-test+u+package+++ml-module-Recent-module-type-PolyS-type-t.B}\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{ ]}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ - - diff --git a/test/latex/expect/test_package+ml/Recent_impl.B.tex b/test/latex/expect/test_package+ml/Recent_impl.B.tex deleted file mode 100644 index 57dabad832..0000000000 --- a/test/latex/expect/test_package+ml/Recent_impl.B.tex +++ /dev/null @@ -1,7 +0,0 @@ -\section{Module \ocamlinlinecode{Recent\_\allowbreak{}impl.\allowbreak{}B}}\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-B}% -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-B-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{B}}\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-B-type-t.B}\\ -\end{ocamltabular}% -\\ - - diff --git a/test/latex/expect/test_package+ml/Recent_impl.tex b/test/latex/expect/test_package+ml/Recent_impl.tex deleted file mode 100644 index 64401c3a2e..0000000000 --- a/test/latex/expect/test_package+ml/Recent_impl.tex +++ /dev/null @@ -1,32 +0,0 @@ -\section{Module \ocamlinlinecode{Recent\_\allowbreak{}impl}}\label{container-page-test+u+package+++ml-module-Recent+u+impl}% -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo]{\ocamlinlinecode{Foo}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo-module-A}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo-module-A]{\ocamlinlinecode{A}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo-module-A-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A}}\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo-module-A-type-t.A}\\ -\end{ocamltabular}% -\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo-module-B}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo-module-B]{\ocamlinlinecode{B}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo-module-B-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{B}}\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo-module-B-type-t.B}\\ -\end{ocamltabular}% -\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-B}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-B]{\ocamlinlinecode{B}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent+u+impl-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S-module-F}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S-module-F]{\ocamlinlinecode{F}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Parameters\label{parameters}}% -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S-module-F-argument-1-+u+}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S-module-F-argument-1-+u+]{\ocamlinlinecode{\_\allowbreak{}}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\subsubsection{Signature\label{signature}}% -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S-module-F-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S-val-f}\ocamlcodefragment{\ocamltag{keyword}{val} f : \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-type-S-module-F-type-t]{\ocamlinlinecode{F(X).\allowbreak{}t}}}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Recent+u+impl-module-B'}\ocamlcodefragment{\ocamltag{keyword}{module} B' = \hyperref[container-page-test+u+package+++ml-module-Recent+u+impl-module-Foo-module-B]{\ocamlinlinecode{Foo.\allowbreak{}B}}}\\ - -\input{test_package+ml/Recent_impl.B.tex} diff --git a/test/latex/expect/test_package+ml/Section.tex b/test/latex/expect/test_package+ml/Section.tex deleted file mode 100644 index a1c65a43db..0000000000 --- a/test/latex/expect/test_package+ml/Section.tex +++ /dev/null @@ -1,20 +0,0 @@ -\section{Module \ocamlinlinecode{Section}}\label{container-page-test+u+package+++ml-module-Section}% -This is the module comment. Eventually, sections won't be allowed in it. - -\subsection{Empty section\label{empty-section}}% -\subsection{Text only\label{text-only}}% -Foo bar. - -\subsection{Aside only\label{aside-only}}% -Foo bar. - -\subsection{Value only\label{value-only}}% -\label{container-page-test+u+package+++ml-module-Section-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ -\subsection{Empty section\label{empty-section}}% -\subsection{within a comment\label{within-a-comment}}% -\subsubsection{and one with a nested section\label{and-one-with-a-nested-section}}% -\subsection{\emph{This} \ocamlinlinecode{section} \bold{title} \textsubscript{has} \textsuperscript{markup}\label{this-section-title-has-markup}}% -But links are impossible thanks to the parser, so we never have trouble rendering a section title in a table of contents – no link will be nested inside another link. - - - diff --git a/test/latex/expect/test_package+ml/Stop.tex b/test/latex/expect/test_package+ml/Stop.tex deleted file mode 100644 index 860f392ade..0000000000 --- a/test/latex/expect/test_package+ml/Stop.tex +++ /dev/null @@ -1,17 +0,0 @@ -\section{Module \ocamlinlinecode{Stop}}\label{container-page-test+u+package+++ml-module-Stop}% -This test cases exercises stop comments. - -\label{container-page-test+u+package+++ml-module-Stop-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : int}\begin{ocamlindent}This is normal commented text.\end{ocamlindent}% -\medbreak -The next value is \ocamlinlinecode{bar}, and it should be missing from the documentation. There is also an entire module, \ocamlinlinecode{M}, which should also be hidden. It contains a nested stop comment, but that stop comment should not turn documentation back on in this outer module, because stop comments respect scope. - -Documentation is on again. - -Now, we have a nested module, and it has a stop comment between its two items. We want to see that the first item is displayed, but the second is missing, and the stop comment disables documenation only in that module, and not in this outer module. - -\label{container-page-test+u+package+++ml-module-Stop-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Stop-module-N]{\ocamlinlinecode{N}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Stop-module-N-val-quux}\ocamlcodefragment{\ocamltag{keyword}{val} quux : int}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Stop-val-lol}\ocamlcodefragment{\ocamltag{keyword}{val} lol : int}\\ - - diff --git a/test/latex/expect/test_package+ml/Type.tex b/test/latex/expect/test_package+ml/Type.tex deleted file mode 100644 index 142f29d9dc..0000000000 --- a/test/latex/expect/test_package+ml/Type.tex +++ /dev/null @@ -1,124 +0,0 @@ -\section{Module \ocamlinlinecode{Type}}\label{container-page-test+u+package+++ml-module-Type}% -\label{container-page-test+u+package+++ml-module-Type-type-abstract}\ocamlcodefragment{\ocamltag{keyword}{type} abstract}\begin{ocamlindent}Some \emph{documentation}.\end{ocamlindent}% -\medbreak -\label{container-page-test+u+package+++ml-module-Type-type-alias}\ocamlcodefragment{\ocamltag{keyword}{type} alias = int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-private+u+}\ocamlcodefragment{\ocamltag{keyword}{type} private\_\allowbreak{} = \ocamltag{keyword}{private} int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-constructor}\ocamlcodefragment{\ocamltag{keyword}{type} 'a constructor = \ocamltag{type-var}{'a}}\\ -\label{container-page-test+u+package+++ml-module-Type-type-arrow}\ocamlcodefragment{\ocamltag{keyword}{type} arrow = int \ocamltag{arrow}{$\rightarrow$} int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-higher+u+order}\ocamlcodefragment{\ocamltag{keyword}{type} higher\_\allowbreak{}order = (int \ocamltag{arrow}{$\rightarrow$} int) \ocamltag{arrow}{$\rightarrow$} int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-labeled}\ocamlcodefragment{\ocamltag{keyword}{type} labeled = l:int \ocamltag{arrow}{$\rightarrow$} int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-optional}\ocamlcodefragment{\ocamltag{keyword}{type} optional = ?l:int \ocamltag{arrow}{$\rightarrow$} int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-labeled+u+higher+u+order}\ocamlcodefragment{\ocamltag{keyword}{type} labeled\_\allowbreak{}higher\_\allowbreak{}order = (l:int \ocamltag{arrow}{$\rightarrow$} int) \ocamltag{arrow}{$\rightarrow$} (?l:int \ocamltag{arrow}{$\rightarrow$} int) \ocamltag{arrow}{$\rightarrow$} int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-pair}\ocamlcodefragment{\ocamltag{keyword}{type} pair = int * int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-parens+u+dropped}\ocamlcodefragment{\ocamltag{keyword}{type} parens\_\allowbreak{}dropped = int * int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-triple}\ocamlcodefragment{\ocamltag{keyword}{type} triple = int * int * int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-nested+u+pair}\ocamlcodefragment{\ocamltag{keyword}{type} nested\_\allowbreak{}pair = (int * int) * int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-instance}\ocamlcodefragment{\ocamltag{keyword}{type} instance = int \hyperref[container-page-test+u+package+++ml-module-Type-type-constructor]{\ocamlinlinecode{constructor}}}\\ -\label{container-page-test+u+package+++ml-module-Type-type-long}\ocamlcodefragment{\ocamltag{keyword}{type} long = \hyperref[container-page-test+u+package+++ml-module-Type-type-labeled+u+higher+u+order]{\ocamlinlinecode{labeled\_\allowbreak{}higher\_\allowbreak{}order}} \ocamltag{arrow}{$\rightarrow$} [ `Bar | `Baz of \hyperref[container-page-test+u+package+++ml-module-Type-type-triple]{\ocamlinlinecode{triple}} ] \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test+u+package+++ml-module-Type-type-pair]{\ocamlinlinecode{pair}} \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test+u+package+++ml-module-Type-type-labeled]{\ocamlinlinecode{labeled}} \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test+u+package+++ml-module-Type-type-higher+u+order]{\ocamlinlinecode{higher\_\allowbreak{}order}} \ocamltag{arrow}{$\rightarrow$} (string \ocamltag{arrow}{$\rightarrow$} int) \ocamltag{arrow}{$\rightarrow$} (int,\allowbreak{} float,\allowbreak{} char,\allowbreak{} string,\allowbreak{} char,\allowbreak{} unit) \hyperref[xref-unresolved]{\ocamlinlinecode{CamlinternalFormatBasics}}.\allowbreak{}fmtty \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test+u+package+++ml-module-Type-type-nested+u+pair]{\ocamlinlinecode{nested\_\allowbreak{}pair}} \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test+u+package+++ml-module-Type-type-arrow]{\ocamlinlinecode{arrow}} \ocamltag{arrow}{$\rightarrow$} string \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test+u+package+++ml-module-Type-type-nested+u+pair]{\ocamlinlinecode{nested\_\allowbreak{}pair}} array}\\ -\label{container-page-test+u+package+++ml-module-Type-type-variant+u+e}\ocamlcodefragment{\ocamltag{keyword}{type} variant\_\allowbreak{}e = \{}\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test+u+package+++ml-module-Type-type-variant+u+e.a}\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{\}}\\ -\label{container-page-test+u+package+++ml-module-Type-type-variant}\ocamlcodefragment{\ocamltag{keyword}{type} variant = }\\ -\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A}}\label{container-page-test+u+package+++ml-module-Type-type-variant.A}& \\ -\ocamlcodefragment{| \ocamltag{constructor}{B} \ocamltag{keyword}{of} int}\label{container-page-test+u+package+++ml-module-Type-type-variant.B}& \\ -\ocamlcodefragment{| \ocamltag{constructor}{C}}\label{container-page-test+u+package+++ml-module-Type-type-variant.C}& foo\\ -\ocamlcodefragment{| \ocamltag{constructor}{D}}\label{container-page-test+u+package+++ml-module-Type-type-variant.D}& \emph{bar}\\ -\ocamlcodefragment{| \ocamltag{constructor}{E} \ocamltag{keyword}{of} \hyperref[container-page-test+u+package+++ml-module-Type-type-variant+u+e]{\ocamlinlinecode{variant\_\allowbreak{}e}}}\label{container-page-test+u+package+++ml-module-Type-type-variant.E}& \\ -\end{ocamltabular}% -\\ -\label{container-page-test+u+package+++ml-module-Type-type-variant+u+c}\ocamlcodefragment{\ocamltag{keyword}{type} variant\_\allowbreak{}c = \{}\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test+u+package+++ml-module-Type-type-variant+u+c.a}\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{\}}\\ -\label{container-page-test+u+package+++ml-module-Type-type-gadt}\ocamlcodefragment{\ocamltag{keyword}{type} \_\allowbreak{} gadt = }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A} : int \hyperref[container-page-test+u+package+++ml-module-Type-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test+u+package+++ml-module-Type-type-gadt.A}\\ -\ocamlcodefragment{| \ocamltag{constructor}{B} : int \ocamltag{arrow}{$\rightarrow$} string \hyperref[container-page-test+u+package+++ml-module-Type-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test+u+package+++ml-module-Type-type-gadt.B}\\ -\ocamlcodefragment{| \ocamltag{constructor}{C} : \hyperref[container-page-test+u+package+++ml-module-Type-type-variant+u+c]{\ocamlinlinecode{variant\_\allowbreak{}c}} \ocamltag{arrow}{$\rightarrow$} unit \hyperref[container-page-test+u+package+++ml-module-Type-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test+u+package+++ml-module-Type-type-gadt.C}\\ -\end{ocamltabular}% -\\ -\label{container-page-test+u+package+++ml-module-Type-type-degenerate+u+gadt}\ocamlcodefragment{\ocamltag{keyword}{type} degenerate\_\allowbreak{}gadt = }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A} : \hyperref[container-page-test+u+package+++ml-module-Type-type-degenerate+u+gadt]{\ocamlinlinecode{degenerate\_\allowbreak{}gadt}}}\label{container-page-test+u+package+++ml-module-Type-type-degenerate+u+gadt.A}\\ -\end{ocamltabular}% -\\ -\label{container-page-test+u+package+++ml-module-Type-type-private+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} private\_\allowbreak{}variant = \ocamltag{keyword}{private} }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A}}\label{container-page-test+u+package+++ml-module-Type-type-private+u+variant.A}\\ -\end{ocamltabular}% -\\ -\label{container-page-test+u+package+++ml-module-Type-type-record}\ocamlcodefragment{\ocamltag{keyword}{type} record = \{}\\ -\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test+u+package+++ml-module-Type-type-record.a}& \\ -\ocamlinlinecode{\ocamltag{keyword}{mutable} b : int;\allowbreak{}}\label{container-page-test+u+package+++ml-module-Type-type-record.b}& \\ -\ocamlinlinecode{c : int;\allowbreak{}}\label{container-page-test+u+package+++ml-module-Type-type-record.c}& foo\\ -\ocamlinlinecode{d : int;\allowbreak{}}\label{container-page-test+u+package+++ml-module-Type-type-record.d}& \emph{bar}\\ -\ocamlinlinecode{e : a.\allowbreak{} \ocamltag{type-var}{'a};\allowbreak{}}\label{container-page-test+u+package+++ml-module-Type-type-record.e}& \\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{\}}\\ -\label{container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} polymorphic\_\allowbreak{}variant = [ }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`A}\label{container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant.A}\\ -\ocamlinlinecode{| }\ocamlinlinecode{`B \ocamltag{keyword}{of} int}\label{container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant.B}\\ -\ocamlinlinecode{| }\ocamlinlinecode{`C \ocamltag{keyword}{of} int * unit}\label{container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant.C}\\ -\ocamlinlinecode{| }\ocamlinlinecode{`D}\label{container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant.D}\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{ ]}\\ -\label{container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant+u+extension}\ocamlcodefragment{\ocamltag{keyword}{type} polymorphic\_\allowbreak{}variant\_\allowbreak{}extension = [ }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{\hyperref[container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant]{\ocamlinlinecode{polymorphic\_\allowbreak{}variant}}}\label{container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant+u+extension.polymorphic+u+variant}\\ -\ocamlinlinecode{| }\ocamlinlinecode{`E}\label{container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant+u+extension.E}\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{ ]}\\ -\label{container-page-test+u+package+++ml-module-Type-type-nested+u+polymorphic+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} nested\_\allowbreak{}polymorphic\_\allowbreak{}variant = [ }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`A \ocamltag{keyword}{of} [ `B | `C ]}\label{container-page-test+u+package+++ml-module-Type-type-nested+u+polymorphic+u+variant.A}\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{ ]}\\ -\label{container-page-test+u+package+++ml-module-Type-type-private+u+extenion#row}\ocamlcodefragment{\ocamltag{keyword}{type} private\_\allowbreak{}extenion\#row}\\ -\label{container-page-test+u+package+++ml-module-Type-type-private+u+extenion}\ocamlcodefragment{\ocamltag{keyword}{and} private\_\allowbreak{}extenion = \ocamltag{keyword}{private} [> }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{\hyperref[container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant]{\ocamlinlinecode{polymorphic\_\allowbreak{}variant}}}\label{container-page-test+u+package+++ml-module-Type-type-private+u+extenion.polymorphic+u+variant}\\ -\end{ocamltabular}% -\\ -\ocamlcodefragment{ ]}\\ -\label{container-page-test+u+package+++ml-module-Type-type-object+u+}\ocamlcodefragment{\ocamltag{keyword}{type} object\_\allowbreak{} = < a : int;\allowbreak{} b : int;\allowbreak{} c : int;\allowbreak{} >}\\ -\label{container-page-test+u+package+++ml-module-Type-module-type-X}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Type-module-type-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test+u+package+++ml-module-Type-module-type-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ -\label{container-page-test+u+package+++ml-module-Type-module-type-X-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ -\end{ocamlindent}% -\ocamlcodefragment{\ocamltag{keyword}{end}}\\ -\label{container-page-test+u+package+++ml-module-Type-type-module+u+}\ocamlcodefragment{\ocamltag{keyword}{type} module\_\allowbreak{} = (\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Type-module-type-X]{\ocamlinlinecode{X}})}\\ -\label{container-page-test+u+package+++ml-module-Type-type-module+u+substitution}\ocamlcodefragment{\ocamltag{keyword}{type} module\_\allowbreak{}substitution = (\ocamltag{keyword}{module} \hyperref[container-page-test+u+package+++ml-module-Type-module-type-X]{\ocamlinlinecode{X}} \ocamltag{keyword}{with} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Type-module-type-X-type-t]{\ocamlinlinecode{t}} = int \ocamltag{keyword}{and} \ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Type-module-type-X-type-u]{\ocamlinlinecode{u}} = unit)}\\ -\label{container-page-test+u+package+++ml-module-Type-type-covariant}\ocamlcodefragment{\ocamltag{keyword}{type} +'a covariant}\\ -\label{container-page-test+u+package+++ml-module-Type-type-contravariant}\ocamlcodefragment{\ocamltag{keyword}{type} -'a contravariant}\\ -\label{container-page-test+u+package+++ml-module-Type-type-bivariant}\ocamlcodefragment{\ocamltag{keyword}{type} \_\allowbreak{} bivariant = int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-binary}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) binary}\\ -\label{container-page-test+u+package+++ml-module-Type-type-using+u+binary}\ocamlcodefragment{\ocamltag{keyword}{type} using\_\allowbreak{}binary = (int,\allowbreak{} int) \hyperref[container-page-test+u+package+++ml-module-Type-type-binary]{\ocamlinlinecode{binary}}}\\ -\label{container-page-test+u+package+++ml-module-Type-type-name}\ocamlcodefragment{\ocamltag{keyword}{type} 'custom name}\\ -\label{container-page-test+u+package+++ml-module-Type-type-constrained}\ocamlcodefragment{\ocamltag{keyword}{type} 'a constrained = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = int}\\ -\label{container-page-test+u+package+++ml-module-Type-type-exact+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a exact\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [ `A | `B of int ]}\\ -\label{container-page-test+u+package+++ml-module-Type-type-lower+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a lower\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [> `A | `B of int ]}\\ -\label{container-page-test+u+package+++ml-module-Type-type-any+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a any\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [> ]}\\ -\label{container-page-test+u+package+++ml-module-Type-type-upper+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a upper\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [< `A | `B of int ]}\\ -\label{container-page-test+u+package+++ml-module-Type-type-named+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a named\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [< \hyperref[container-page-test+u+package+++ml-module-Type-type-polymorphic+u+variant]{\ocamlinlinecode{polymorphic\_\allowbreak{}variant}} ]}\\ -\label{container-page-test+u+package+++ml-module-Type-type-exact+u+object}\ocamlcodefragment{\ocamltag{keyword}{type} 'a exact\_\allowbreak{}object = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = < a : int;\allowbreak{} b : int;\allowbreak{} >}\\ -\label{container-page-test+u+package+++ml-module-Type-type-lower+u+object}\ocamlcodefragment{\ocamltag{keyword}{type} 'a lower\_\allowbreak{}object = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = < a : int;\allowbreak{} b : int;\allowbreak{} .\allowbreak{}.\allowbreak{} >}\\ -\label{container-page-test+u+package+++ml-module-Type-type-poly+u+object}\ocamlcodefragment{\ocamltag{keyword}{type} 'a poly\_\allowbreak{}object = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = < a : a.\allowbreak{} \ocamltag{type-var}{'a};\allowbreak{} >}\\ -\label{container-page-test+u+package+++ml-module-Type-type-double+u+constrained}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) double\_\allowbreak{}constrained = \ocamltag{type-var}{'a} * \ocamltag{type-var}{'b} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = int \ocamltag{keyword}{constraint} \ocamltag{type-var}{'b} = unit}\\ -\label{container-page-test+u+package+++ml-module-Type-type-as+u+}\ocamlcodefragment{\ocamltag{keyword}{type} as\_\allowbreak{} = int \ocamltag{keyword}{as} 'a * \ocamltag{type-var}{'a}}\\ -\label{container-page-test+u+package+++ml-module-Type-type-extensible}\ocamlcodefragment{\ocamltag{keyword}{type} extensible = .\allowbreak{}.\allowbreak{}}\\ -\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test+u+package+++ml-module-Type-type-extensible]{\ocamlinlinecode{extensible}} += }\\ -\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{Extension}}\label{container-page-test+u+package+++ml-module-Type-extension-Extension}& Documentation for \hyperref[container-page-test+u+package+++ml-module-Type-extension-Extension]{\ocamlinlinecode{\ocamlinlinecode{Extension}}[p\pageref*{container-page-test+u+package+++ml-module-Type-extension-Extension}]}.\\ -\ocamlcodefragment{| \ocamltag{extension}{Another\_\allowbreak{}extension}}\label{container-page-test+u+package+++ml-module-Type-extension-Another+u+extension}& Documentation for \hyperref[container-page-test+u+package+++ml-module-Type-extension-Another+u+extension]{\ocamlinlinecode{\ocamlinlinecode{Another\_\allowbreak{}extension}}[p\pageref*{container-page-test+u+package+++ml-module-Type-extension-Another+u+extension}]}.\\ -\end{ocamltabular}% -\\ -\label{container-page-test+u+package+++ml-module-Type-type-mutually}\ocamlcodefragment{\ocamltag{keyword}{type} mutually = }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A} \ocamltag{keyword}{of} \hyperref[container-page-test+u+package+++ml-module-Type-type-recursive]{\ocamlinlinecode{recursive}}}\label{container-page-test+u+package+++ml-module-Type-type-mutually.A}\\ -\end{ocamltabular}% -\\ -\label{container-page-test+u+package+++ml-module-Type-type-recursive}\ocamlcodefragment{\ocamltag{keyword}{and} recursive = }\\ -\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{B} \ocamltag{keyword}{of} \hyperref[container-page-test+u+package+++ml-module-Type-type-mutually]{\ocamlinlinecode{mutually}}}\label{container-page-test+u+package+++ml-module-Type-type-recursive.B}\\ -\end{ocamltabular}% -\\ -\label{container-page-test+u+package+++ml-module-Type-exception-Foo}\ocamlcodefragment{\ocamltag{keyword}{exception} \ocamltag{exception}{Foo} \ocamltag{keyword}{of} int * int}\\ - - diff --git a/test/latex/expect/test_package+ml/Val.tex b/test/latex/expect/test_package+ml/Val.tex deleted file mode 100644 index 220f4fad27..0000000000 --- a/test/latex/expect/test_package+ml/Val.tex +++ /dev/null @@ -1,8 +0,0 @@ -\section{Module \ocamlinlinecode{Val}}\label{container-page-test+u+package+++ml-module-Val}% -\label{container-page-test+u+package+++ml-module-Val-val-documented}\ocamlcodefragment{\ocamltag{keyword}{val} documented : unit}\begin{ocamlindent}Foo.\end{ocamlindent}% -\medbreak -\label{container-page-test+u+package+++ml-module-Val-val-undocumented}\ocamlcodefragment{\ocamltag{keyword}{val} undocumented : unit}\\ -\label{container-page-test+u+package+++ml-module-Val-val-documented+u+above}\ocamlcodefragment{\ocamltag{keyword}{val} documented\_\allowbreak{}above : unit}\begin{ocamlindent}Bar.\end{ocamlindent}% -\medbreak - - diff --git a/test/latex/expect/test_package+ml/mld.tex b/test/latex/expect/test_package+ml/mld.tex deleted file mode 100644 index cd09dd64c4..0000000000 --- a/test/latex/expect/test_package+ml/mld.tex +++ /dev/null @@ -1,31 +0,0 @@ -\section{Mld Page\label{mld-page}}\label{container-page-test+u+package+++ml-page-mld}% -This is an \ocamlinlinecode{.\allowbreak{}mld} file. It doesn't have an auto-generated title, like modules and other pages generated fully by odoc do. - -It will have a TOC generated from section headings. - -\subsection{Section\label{section}}% -This is a section. - -Another paragraph in section. - -\subsection{Another section\label{another-section}}% -This is another section. - -Another paragraph in section 2. - -\subsubsection{Subsection\label{subsection}}% -This is a subsection. - -Another paragraph in subsection. - -Yet another paragraph in subsection. - -\subsubsection{Another Subsection\label{another-subsection}}% -This is another subsection. - -Another paragraph in subsection 2. - -Yet another paragraph in subsection 2. - - - diff --git a/test/latex/expect/visualizer.tex b/test/latex/expect/visualizer.tex deleted file mode 100644 index 35b487a614..0000000000 --- a/test/latex/expect/visualizer.tex +++ /dev/null @@ -1,90 +0,0 @@ -% Helper files for transforming the test files into a pdf -% compile with -% TEXINPUTS=${TEXINPUTS}:test_package+ml/ xelatex visualizer.tex -% -\documentclass{book} - -\usepackage{fontspec} -\usepackage{xunicode} - -\usepackage{changepage} -\usepackage{longtable} -\usepackage{listings} -\usepackage[strings]{underscore} - -\usepackage[colorlinks=true]{hyperref} -\usepackage{color} -\usepackage{lmodern} -\usepackage[T1]{fontenc} - -\newcommand{\ocamlcodefragment}[1]{{\ttfamily\setlength{\parindent}{0cm}% -\raggedright#1}} -\newcommand{\ocamlinlinecode}[1]{{\ttfamily#1}} -\newcommand{\bold}[1]{{\bfseries#1}} -\newenvironment{ocamlexception}{\bfseries}{} -\newenvironment{ocamlextension}{\bfseries}{} - -\newenvironment{ocamlkeyword}{\bfseries}{} - -\newenvironment{ocamlconstructor}{\bfseries}{} -\newenvironment{ocamltype-var}{\itshape\ttfamily}{} - -\newcommand{\ocamlhighlight}{\bfseries\uline} -\newcommand{\ocamlerror}{\bfseries} -\newcommand{\ocamlwarning}{\bfseries} - -\newcommand{\ocamltag}[2]{\begin{ocaml#1}#2\end{ocaml#1}} - -\definecolor{lightgray}{gray}{0.97} -\definecolor{gray}{gray}{0.5} -\newcommand{\ocamlcomment}{\color{gray}\normalfont\small} -\newcommand{\ocamlstring}{\color{gray}\bfseries} -\newenvironment{ocamlindent}{\begin{adjustwidth}{2em}{0pt}}{\end{adjustwidth}} -\newenvironment{ocamltabular}[1]{\begin{tabular}{#1}}% -{\end{tabular}} - -\lstnewenvironment{ocamlcodeblock}{ - \lstset{ - backgroundcolor = \color{lightgray}, - basicstyle=\ttfamily, - showstringspaces=false, - language=caml, - escapeinside={$}{$}, - columns=fullflexible, - stringstyle=\ocamlstring, - commentstyle=\ocamlcomment, - keepspaces=true, - keywordstyle=\ocamlkeyword, - moredelim=[is][\ocamlhighlight]{<<}{>>}, - moredelim=[s][\ocamlstring]{\{|}{|\}}, - moredelim=[s][\ocamlstring]{\{delimiter|}{|delimiter\}}, - keywords={[2]{val,initializer,nonrec}}, keywordstyle={[2]\ocamlkeyword}, - belowskip=0\baselineskip, - upquote=true, - literate={'"'}{\textquotesingle "\textquotesingle}3 - {'\\"'}{\textquotesingle \textbackslash"\textquotesingle}4, - } - }{} - - \newcommand{\inputchapter}[1]{\chapter{#1} - \input{#1}} - - \begin{document} -\inputchapter{Recent} -\inputchapter{Recent_impl} -\inputchapter{Val} -\inputchapter{Markup} -\inputchapter{Section} -\inputchapter{Module} -\inputchapter{Include} -\inputchapter{Include2} -\inputchapter{Mld} -\inputchapter{Nested} -\inputchapter{External} -\inputchapter{Functor} -\inputchapter{Class} -\inputchapter{Stop} -\inputchapter{Bugs} -\inputchapter{Bugs_pre_410} -\inputchapter{Alias} -\end{document} diff --git a/test/latex/test.ml b/test/latex/test.ml deleted file mode 100644 index e0c4b137bc..0000000000 --- a/test/latex/test.ml +++ /dev/null @@ -1,238 +0,0 @@ -open Printf - -(* Utils *) - -let ( // ) = Filename.concat - -let command label = - Printf.ksprintf (fun s -> - let exit_code = Sys.command s in - if exit_code <> 0 then - Alcotest.failf "'%s' exited with %i" label exit_code) - -(* Filename.extension is only available on 4.04. *) -module Filename = struct - include Filename - - let extension filename = - let dot_index = String.rindex filename '.' in - String.sub filename dot_index (String.length filename - dot_index) -end - -(* Testing environment *) - -module Env = struct - let package = "test_package" - - let odoc = "../../src/odoc/bin/main.exe" - - let path ?(from_root = false) = function - | `scratch when from_root -> "_build/default/test/latex/_scratch" - | `scratch -> "_scratch" - | `expect when from_root -> "test/latex/expect" - | `expect -> "expect" - | `cases when from_root -> "test/cases" - | `cases -> "../cases" - - let init () = Unix.mkdir (path `scratch) 0o755 -end - -(* Test case type and helpers *) - -(* A test case is a description of an input source file with a specific set of - options to be tested. Each test case results in a unique generated output to - be compared with an actually produced one. - - All paths defined in this module are relative to the build directory. *) -module Case = struct - type t = { - name : string; - kind : [ `mli | `mld | `ml ]; - syntax : [ `ml | `re ]; - outputs : string list; - } - - let make ?(syntax = `ml) (input, outputs) = - let name = Filename.chop_extension input in - let kind = - match Filename.extension input with - | ".mli" -> `mli - | ".mld" -> `mld - | ".ml" -> `ml - | _ -> - invalid_arg (sprintf "Expected mli, mld, or ml files, got %s" input) - in - { name; kind; syntax; outputs } - - let name case = case.name - - let kind case = case.kind - - let string_of_syntax = function `re -> "re" | `ml -> "ml" - - (* The package name is enriched with test case options. *) - let package case = - let opts = [ string_of_syntax case.syntax ] in - let opts = String.concat "," (List.sort compare opts) in - Env.package ^ "+" ^ opts - - let cmi_file case = Env.path `scratch // (case.name ^ ".cmi") - - let cmti_file case = Env.path `scratch // (case.name ^ ".cmti") - - let cmo_file case = Env.path `scratch // (case.name ^ ".cmo") - - let cmt_file case = Env.path `scratch // (case.name ^ ".cmt") - - let odoc_file case = - match case.kind with - | `mli | `ml -> Env.path `scratch // (case.name ^ ".odoc") - | `mld -> Env.path `scratch // ("page-" ^ case.name ^ ".odoc") - - let source_file case = - match case.kind with - | `mli -> (Env.path `cases // case.name) ^ ".mli" - | `mld -> (Env.path `cases // case.name) ^ ".mld" - | `ml -> (Env.path `cases // case.name) ^ ".ml" - - let outputs case = List.map (fun o -> package case // o) case.outputs -end - -let generate_latex case = - match Case.kind case with - | `mli -> - command "ocamlfind c" "ocamlfind c -bin-annot -o %s -c %s" - (Case.cmi_file case) (Case.source_file case); - - command "odoc compile" "%s compile --package=%s %s" Env.odoc - (Case.package case) (Case.cmti_file case); - - command "odoc latex" "%s latex --syntax=%s --output-dir=%s %s" Env.odoc - (Case.string_of_syntax case.syntax) - (Env.path `scratch) - (Case.odoc_file case) - | `mld -> - command "odoc compile" "%s compile --package=%s -o %s %s" Env.odoc - (Case.package case) (Case.odoc_file case) (Case.source_file case); - - command "odoc latex" "%s latex --output-dir=%s %s" Env.odoc - (Env.path `scratch) - (Case.odoc_file case) - | `ml -> - command "ocamlfind c" "ocamlfind c -bin-annot -o %s -c %s" - (Case.cmo_file case) (Case.source_file case); - - command "odoc compile" "%s compile --package=%s %s" Env.odoc - (Case.package case) (Case.cmt_file case); - - command "odoc latex" "%s latex --syntax=%s --output-dir=%s %s" Env.odoc - (Case.string_of_syntax case.syntax) - (Env.path `scratch) - (Case.odoc_file case) - -let diff = - (* Alcotest will run all tests. We need to know when something fails for the - first time to stop diffing and generating promotion files. *) - let already_failed = ref false in - fun output -> - let actual_file = Env.path `scratch // output in - let expected_file = Env.path `expect // output in - let cmd = sprintf "diff -N -u -b %s %s" expected_file actual_file in - match Sys.command cmd with - | 0 -> () - | 1 when !already_failed -> - (* Don't run diff for other failing tests as only one at time is shown. *) - Alcotest.fail "generated latex files should match expected" - | 1 -> - (* If the diff command exits with 1, the two MAN files are different. - diff has already written its output to STDOUT. - - Also provide the command for overwriting the expected output with the - actual output, in case it is the actual output that is correct. - The paths are defined relative to the project's root. *) - let root_actual_file = Env.path `scratch ~from_root:true // output in - let root_expected_file = Env.path `expect ~from_root:true // output in - let write_file filename data = - let oc = open_out filename in - output_string oc data; - close_out oc - in - write_file Env.(path `scratch // "actual") root_actual_file; - write_file Env.(path `scratch // "expected") root_expected_file; - - prerr_endline "\nTo promote the actual output to expected, run:"; - Printf.eprintf "cp `cat %s` `cat %s` && make test\n\n" - Env.(path ~from_root:true `scratch // "actual") - Env.(path ~from_root:true `scratch // "expected"); - - already_failed := true; - Alcotest.fail "generated latex files should match expected" - | exit_code -> Alcotest.failf "'diff' exited with %i" exit_code - -let make_test_case ?syntax case = - let case = Case.make ?syntax case in - let run () = - (* Compile the source file and generate latex files. *) - generate_latex case; - - List.iter diff (Case.outputs case) - in - (Case.name case, `Slow, run) - -let source_files_all = - [ - ("val.mli", [ "Val.tex" ]); - ("markup.mli", [ "Markup.tex" ]); - ("section.mli", [ "Section.tex" ]); - ("module.mli", [ "Module.tex" ]); - ("interlude.mli", [ "Interlude.tex" ]); - ("include.mli", [ "Include.tex" ]); - ("include2.ml", [ "Include2.tex" ]); - ("include_sections.mli", [ "Include_sections.tex" ]); - ("mld.mld", [ "mld.tex" ]); - ( "nested.mli", - [ "Nested.tex"; "Nested.F.tex"; "Nested.z.tex"; "Nested.inherits.tex" ] ); - ("type.mli", [ "Type.tex" ]); - ("external.mli", [ "External.tex" ]); - ( "functor.mli", - [ - "Functor.tex"; - "Functor.F1.tex"; - "Functor.F2.tex"; - "Functor.F3.tex"; - "Functor.F4.tex"; - ] ); - ("class.mli", [ "Class.tex" ]); - ("stop.mli", [ "Stop.tex" ]); - ("bugs.ml", [ "Bugs.tex" ]); - ("alias.ml", [ "Alias.tex"; "Alias.X.tex" ]); - ] - -let source_files_post408 = - [ - ("recent.mli", [ "Recent.tex" ]); - ("recent_impl.ml", [ "Recent_impl.tex"; "Recent_impl.B.tex" ]); - ] - -let source_files_pre410 = [ ("bugs_pre_410.ml", [ "Bugs_pre_410.tex" ]) ] - -let source_files = - let cur = - Astring.String.cuts ~sep:"." Sys.ocaml_version - |> List.map (fun i -> try Some (int_of_string i) with _ -> None) - in - match cur with - | Some major :: Some minor :: _ -> - List.concat - [ - (if major = 4 && minor < 10 then source_files_pre410 else []); - (if major = 4 && minor > 8 then source_files_post408 else []); - source_files_all; - ] - | _ -> source_files_all - -let () = - Env.init (); - - Alcotest.run "latex" - [ ("latex_ml", List.map (make_test_case ~syntax:`ml) source_files) ] From e8f6963e416bf3867d473742f02f1ac7351006b2 Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Mon, 26 Apr 2021 21:48:01 +0300 Subject: [PATCH 04/10] delete man dir and its content from test dir Signed-off-by: lubegasimon --- test/man/dune | 13 - test/man/expect/test_package+ml/Alias.3o | 16 - test/man/expect/test_package+ml/Alias.X.3o | 20 -- test/man/expect/test_package+ml/Bugs.3o | 26 -- .../expect/test_package+ml/Bugs_pre_410.3o | 26 -- test/man/expect/test_package+ml/Class.3o | 30 -- test/man/expect/test_package+ml/External.3o | 20 -- test/man/expect/test_package+ml/Functor.3o | 53 ---- test/man/expect/test_package+ml/Functor.F1.3o | 30 -- test/man/expect/test_package+ml/Functor.F2.3o | 30 -- test/man/expect/test_package+ml/Functor.F3.3o | 30 -- test/man/expect/test_package+ml/Functor.F4.3o | 30 -- test/man/expect/test_package+ml/Include.3o | 71 ----- test/man/expect/test_package+ml/Include2.3o | 41 --- .../test_package+ml/Include_sections.3o | 204 ------------- test/man/expect/test_package+ml/Interlude.3o | 54 ---- test/man/expect/test_package+ml/Markup.3o | 279 ------------------ test/man/expect/test_package+ml/Module.3o | 178 ----------- test/man/expect/test_package+ml/Nested.3o | 89 ------ test/man/expect/test_package+ml/Nested.F.3o | 87 ------ test/man/expect/test_package+ml/Nested.X.3o | 43 --- .../expect/test_package+ml/Nested.inherits.3o | 14 - test/man/expect/test_package+ml/Nested.z.3o | 41 --- test/man/expect/test_package+ml/Recent.3o | 145 --------- test/man/expect/test_package+ml/Recent.X.3o | 20 -- .../man/expect/test_package+ml/Recent_impl.3o | 50 ---- test/man/expect/test_package+ml/Section.3o | 63 ---- test/man/expect/test_package+ml/Stop.3o | 36 --- test/man/expect/test_package+ml/Type.3o | 257 ---------------- test/man/expect/test_package+ml/Val.3o | 29 -- test/man/expect/test_package+ml/mld.3o | 63 ---- test/man/expect/test_package+ml/mld.nroff | 63 ---- test/man/test.ml | 244 --------------- 33 files changed, 2395 deletions(-) delete mode 100644 test/man/dune delete mode 100644 test/man/expect/test_package+ml/Alias.3o delete mode 100644 test/man/expect/test_package+ml/Alias.X.3o delete mode 100644 test/man/expect/test_package+ml/Bugs.3o delete mode 100644 test/man/expect/test_package+ml/Bugs_pre_410.3o delete mode 100644 test/man/expect/test_package+ml/Class.3o delete mode 100644 test/man/expect/test_package+ml/External.3o delete mode 100644 test/man/expect/test_package+ml/Functor.3o delete mode 100644 test/man/expect/test_package+ml/Functor.F1.3o delete mode 100644 test/man/expect/test_package+ml/Functor.F2.3o delete mode 100644 test/man/expect/test_package+ml/Functor.F3.3o delete mode 100644 test/man/expect/test_package+ml/Functor.F4.3o delete mode 100644 test/man/expect/test_package+ml/Include.3o delete mode 100644 test/man/expect/test_package+ml/Include2.3o delete mode 100644 test/man/expect/test_package+ml/Include_sections.3o delete mode 100644 test/man/expect/test_package+ml/Interlude.3o delete mode 100644 test/man/expect/test_package+ml/Markup.3o delete mode 100644 test/man/expect/test_package+ml/Module.3o delete mode 100644 test/man/expect/test_package+ml/Nested.3o delete mode 100644 test/man/expect/test_package+ml/Nested.F.3o delete mode 100644 test/man/expect/test_package+ml/Nested.X.3o delete mode 100644 test/man/expect/test_package+ml/Nested.inherits.3o delete mode 100644 test/man/expect/test_package+ml/Nested.z.3o delete mode 100644 test/man/expect/test_package+ml/Recent.3o delete mode 100644 test/man/expect/test_package+ml/Recent.X.3o delete mode 100644 test/man/expect/test_package+ml/Recent_impl.3o delete mode 100644 test/man/expect/test_package+ml/Section.3o delete mode 100644 test/man/expect/test_package+ml/Stop.3o delete mode 100644 test/man/expect/test_package+ml/Type.3o delete mode 100644 test/man/expect/test_package+ml/Val.3o delete mode 100644 test/man/expect/test_package+ml/mld.3o delete mode 100644 test/man/expect/test_package+ml/mld.nroff delete mode 100644 test/man/test.ml diff --git a/test/man/dune b/test/man/dune deleted file mode 100644 index 0ddf0a06f1..0000000000 --- a/test/man/dune +++ /dev/null @@ -1,13 +0,0 @@ -(executable - (name test) - (libraries alcotest)) - -(rule - (alias runtest) - (action - (run %{exe:test.exe})) - (deps - test.exe - %{workspace_root}/src/odoc/bin/main.exe - (source_tree ../cases) - (source_tree expect))) diff --git a/test/man/expect/test_package+ml/Alias.3o b/test/man/expect/test_package+ml/Alias.3o deleted file mode 100644 index d4b883d5bf..0000000000 --- a/test/man/expect/test_package+ml/Alias.3o +++ /dev/null @@ -1,16 +0,0 @@ - -.TH Alias 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Alias -.SH Synopsis -.sp -.in 2 -\fBModule Alias\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]module\fR Foo__X : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.sp -\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/man/expect/test_package+ml/Alias.X.3o b/test/man/expect/test_package+ml/Alias.X.3o deleted file mode 100644 index 53b5e1bf7d..0000000000 --- a/test/man/expect/test_package+ml/Alias.X.3o +++ /dev/null @@ -1,20 +0,0 @@ - -.TH X 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Alias\.X -.SH Synopsis -.sp -.in 2 -\fBModule Alias\.X\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]type\fR t = int -.fi -.br -.ti +2 -Module Foo__X documentation\. This should appear in the documentation for the alias to this module 'X' -.nf - diff --git a/test/man/expect/test_package+ml/Bugs.3o b/test/man/expect/test_package+ml/Bugs.3o deleted file mode 100644 index d9d2b60fd2..0000000000 --- a/test/man/expect/test_package+ml/Bugs.3o +++ /dev/null @@ -1,26 +0,0 @@ - -.TH Bugs 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Bugs -.SH Synopsis -.sp -.in 2 -\fBModule Bugs\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]type\fR 'a opt = \f[CB]'a\fR option -.sp -\f[CB]val\fR foo : ?bar:\f[CB]'a\fR \f[CB]\->\fR unit \f[CB]\->\fR unit -.fi -.br -.ti +2 -Triggers an assertion failure when -.UR https://github.com/ocaml/odoc/issues/101 -https://github\.com/ocaml/odoc/issues/101 -.UE - is not fixed\. -.nf - diff --git a/test/man/expect/test_package+ml/Bugs_pre_410.3o b/test/man/expect/test_package+ml/Bugs_pre_410.3o deleted file mode 100644 index 13eb8be101..0000000000 --- a/test/man/expect/test_package+ml/Bugs_pre_410.3o +++ /dev/null @@ -1,26 +0,0 @@ - -.TH Bugs_pre_410 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Bugs_pre_410 -.SH Synopsis -.sp -.in 2 -\fBModule Bugs_pre_410\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]type\fR 'a opt' = int option -.sp -\f[CB]val\fR foo' : ?bar:\f[CB]'a\fR \f[CB]\->\fR unit \f[CB]\->\fR unit -.fi -.br -.ti +2 -Similar to Bugs, but the printed type of ~bar should be int, not 'a\. This probably requires fixing in the compiler\. See -.UR https://github.com/ocaml/odoc/pull/230#issuecomment-433226807 -https://github\.com/ocaml/odoc/pull/230#issuecomment-433226807 -.UE -\. -.nf - diff --git a/test/man/expect/test_package+ml/Class.3o b/test/man/expect/test_package+ml/Class.3o deleted file mode 100644 index 0f704875b6..0000000000 --- a/test/man/expect/test_package+ml/Class.3o +++ /dev/null @@ -1,30 +0,0 @@ - -.TH Class 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Class -.SH Synopsis -.sp -.in 2 -\fBModule Class\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]class\fR \f[CB]type\fR empty = \f[CB]object\fR \f[CB]end\fR -.sp -\f[CB]class\fR \f[CB]type\fR mutually = \f[CB]object\fR \f[CB]end\fR -.sp -\f[CB]class\fR \f[CB]type\fR recursive = \f[CB]object\fR \f[CB]end\fR -.sp -\f[CB]class\fR mutually' : mutually -.sp -\f[CB]class\fR recursive' : recursive -.sp -\f[CB]class\fR \f[CB]type\fR \f[CB]virtual\fR empty_virtual = \f[CB]object\fR \f[CB]end\fR -.sp -\f[CB]class\fR \f[CB]virtual\fR empty_virtual' : empty -.sp -\f[CB]class\fR \f[CB]type\fR 'a polymorphic = \f[CB]object\fR \f[CB]end\fR -.sp -\f[CB]class\fR 'a polymorphic' : \f[CB]'a\fR polymorphic diff --git a/test/man/expect/test_package+ml/External.3o b/test/man/expect/test_package+ml/External.3o deleted file mode 100644 index ad60ecb72b..0000000000 --- a/test/man/expect/test_package+ml/External.3o +++ /dev/null @@ -1,20 +0,0 @@ - -.TH External 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.External -.SH Synopsis -.sp -.in 2 -\fBModule External\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]val\fR foo : unit \f[CB]\->\fR unit -.fi -.br -.ti +2 -Foo bar\. -.nf - diff --git a/test/man/expect/test_package+ml/Functor.3o b/test/man/expect/test_package+ml/Functor.3o deleted file mode 100644 index c384b7bf54..0000000000 --- a/test/man/expect/test_package+ml/Functor.3o +++ /dev/null @@ -1,53 +0,0 @@ - -.TH Functor 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Functor -.SH Synopsis -.sp -.in 2 -\fBModule Functor\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.br -\f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR S1 = \f[CB]sig\fR -.br -.ti +2 -.sp -.ti +2 -\fB1\.1 Parameters\fR -.sp -.ti +2 -\f[CB]module\fR _ : \f[CB]sig\fR -.br -.ti +4 -\f[CB]type\fR t -.br -.ti +2 -\f[CB]end\fR -.sp -.ti +2 -\fB1\.2 Signature\fR -.sp -.ti +2 -\f[CB]type\fR t -.br -\f[CB]end\fR -.sp -\f[CB]module\fR F1 (Arg : S) : S -.sp -\f[CB]module\fR F2 (Arg : S) : S \f[CB]with\fR \f[CB]type\fR t = Arg\.t -.sp -\f[CB]module\fR F3 (Arg : S) : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.sp -\f[CB]module\fR F4 (Arg : S) : S -.sp -\f[CB]module\fR F5 () : S diff --git a/test/man/expect/test_package+ml/Functor.F1.3o b/test/man/expect/test_package+ml/Functor.F1.3o deleted file mode 100644 index 0834feb5d1..0000000000 --- a/test/man/expect/test_package+ml/Functor.F1.3o +++ /dev/null @@ -1,30 +0,0 @@ - -.TH F1 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Functor\.F1 -.SH Synopsis -.sp -.in 2 -\fBModule Functor\.F1\fR -.in -.sp -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Parameters\fR -.in -.sp -\f[CB]module\fR Arg : \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.br -\f[CB]end\fR -.sp -.in 3 -\fB2 Signature\fR -.in -.sp -\f[CB]type\fR t diff --git a/test/man/expect/test_package+ml/Functor.F2.3o b/test/man/expect/test_package+ml/Functor.F2.3o deleted file mode 100644 index f236ec8741..0000000000 --- a/test/man/expect/test_package+ml/Functor.F2.3o +++ /dev/null @@ -1,30 +0,0 @@ - -.TH F2 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Functor\.F2 -.SH Synopsis -.sp -.in 2 -\fBModule Functor\.F2\fR -.in -.sp -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Parameters\fR -.in -.sp -\f[CB]module\fR Arg : \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.br -\f[CB]end\fR -.sp -.in 3 -\fB2 Signature\fR -.in -.sp -\f[CB]type\fR t = Arg\.t diff --git a/test/man/expect/test_package+ml/Functor.F3.3o b/test/man/expect/test_package+ml/Functor.F3.3o deleted file mode 100644 index 36ad230b97..0000000000 --- a/test/man/expect/test_package+ml/Functor.F3.3o +++ /dev/null @@ -1,30 +0,0 @@ - -.TH F3 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Functor\.F3 -.SH Synopsis -.sp -.in 2 -\fBModule Functor\.F3\fR -.in -.sp -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Parameters\fR -.in -.sp -\f[CB]module\fR Arg : \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.br -\f[CB]end\fR -.sp -.in 3 -\fB2 Signature\fR -.in -.sp -\f[CB]type\fR t = Arg\.t diff --git a/test/man/expect/test_package+ml/Functor.F4.3o b/test/man/expect/test_package+ml/Functor.F4.3o deleted file mode 100644 index 2f754b4961..0000000000 --- a/test/man/expect/test_package+ml/Functor.F4.3o +++ /dev/null @@ -1,30 +0,0 @@ - -.TH F4 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Functor\.F4 -.SH Synopsis -.sp -.in 2 -\fBModule Functor\.F4\fR -.in -.sp -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Parameters\fR -.in -.sp -\f[CB]module\fR Arg : \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.br -\f[CB]end\fR -.sp -.in 3 -\fB2 Signature\fR -.in -.sp -\f[CB]type\fR t diff --git a/test/man/expect/test_package+ml/Include.3o b/test/man/expect/test_package+ml/Include.3o deleted file mode 100644 index 4013eee3b9..0000000000 --- a/test/man/expect/test_package+ml/Include.3o +++ /dev/null @@ -1,71 +0,0 @@ - -.TH Include 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Include -.SH Synopsis -.sp -.in 2 -\fBModule Include\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]module\fR \f[CB]type\fR Not_inlined = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.br -\f[CB]end\fR -.sp -\f[CB]type\fR t -.sp -\f[CB]module\fR \f[CB]type\fR Inlined = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR u -.br -\f[CB]end\fR -.sp -\f[CB]type\fR u -.sp -\f[CB]module\fR \f[CB]type\fR Not_inlined_and_closed = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR v -.br -\f[CB]end\fR -.sp -\f[CB]include\fR Not_inlined_and_closed -.sp -\f[CB]module\fR \f[CB]type\fR Not_inlined_and_opened = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR w -.br -\f[CB]end\fR -.sp -\f[CB]type\fR w -.sp -\f[CB]module\fR \f[CB]type\fR Inherent_Module = \f[CB]sig\fR -.br -.ti +2 -\f[CB]val\fR a : t -.br -\f[CB]end\fR -.sp -\f[CB]val\fR a : t -.sp -\f[CB]module\fR \f[CB]type\fR Dorminant_Module = \f[CB]sig\fR -.br -.ti +2 -\f[CB]val\fR a : t -.sp -.ti +2 -\f[CB]val\fR a : u -.br -\f[CB]end\fR -.sp -\f[CB]val\fR a : t -.sp -\f[CB]val\fR a : u diff --git a/test/man/expect/test_package+ml/Include2.3o b/test/man/expect/test_package+ml/Include2.3o deleted file mode 100644 index 7a146a155f..0000000000 --- a/test/man/expect/test_package+ml/Include2.3o +++ /dev/null @@ -1,41 +0,0 @@ - -.TH Include2 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Include2 -.SH Synopsis -.sp -.in 2 -\fBModule Include2\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.fi -.br -.ti +2 -Comment about X that should not appear when including X below\. -.nf -.sp -.fi -Comment about X that should not appear when including X below\. -.nf -.sp -\f[CB]type\fR t = int -.sp -\f[CB]module\fR Y : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.fi -.br -.ti +2 -Top-comment of Y\. -.nf -.sp -\f[CB]module\fR Y_include_synopsis : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.fi -.br -.ti +2 -The include Y below should have the synopsis from Y's top-comment attached to it\. -.nf -.sp -\f[CB]module\fR Y_include_doc : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/man/expect/test_package+ml/Include_sections.3o b/test/man/expect/test_package+ml/Include_sections.3o deleted file mode 100644 index d5c2a51b2d..0000000000 --- a/test/man/expect/test_package+ml/Include_sections.3o +++ /dev/null @@ -1,204 +0,0 @@ - -.TH Include_sections 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Include_sections -.SH Synopsis -.sp -.in 2 -\fBModule Include_sections\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]module\fR \f[CB]type\fR Something = \f[CB]sig\fR -.br -.ti +2 -\f[CB]val\fR something : unit -.sp -.ti +2 -\fB1\.1 Something 1\fR -.sp -.ti +2 -.fi -foo -.nf -.sp -.ti +2 -\f[CB]val\fR foo : unit -.sp -.ti +2 -\fB1\.1\.1 Something 2\fR -.sp -.ti +2 -\f[CB]val\fR bar : unit -.fi -.br -.ti +4 -foo bar -.nf -.sp -.ti +2 -\fB1\.2 Something 1-bis\fR -.sp -.ti +2 -.fi -Some text\. -.nf - -.br -\f[CB]end\fR -.fi -.br -.ti +2 -A module type\. -.nf -.sp -.fi -Let's include \f[CI]Something\fR once -.nf -.sp -\f[CB]val\fR something : unit -.sp -.in 3 -\fB2 Something 1\fR -.in -.sp -.fi -foo -.nf -.sp -\f[CB]val\fR foo : unit -.sp -.in 4 -\fB2\.1 Something 2\fR -.in -.sp -\f[CB]val\fR bar : unit -.fi -.br -.ti +2 -foo bar -.nf -.sp -.in 3 -\fB3 Something 1-bis\fR -.in -.sp -.fi -Some text\. -.nf -.sp -.in 3 -\fB4 Second include\fR -.in -.sp -.fi -Let's include \f[CI]Something\fR a second time: the heading level should be shift here\. -.nf -.sp -\f[CB]val\fR something : unit -.sp -.in 4 -\fB4\.1 Something 1\fR -.in -.sp -.fi -foo -.nf -.sp -\f[CB]val\fR foo : unit -.sp -.in 5 -\fB4\.1\.1 Something 2\fR -.in -.sp -\f[CB]val\fR bar : unit -.fi -.br -.ti +2 -foo bar -.nf -.sp -.in 4 -\fB4\.2 Something 1-bis\fR -.in -.sp -.fi -Some text\. -.nf -.sp -.in 4 -\fB4\.3 Third include\fR -.in -.sp -.fi -Shifted some more\. -.nf -.sp -\f[CB]val\fR something : unit -.sp -.in 5 -\fB4\.3\.1 Something 1\fR -.in -.sp -.fi -foo -.nf -.sp -\f[CB]val\fR foo : unit -.sp -.in 6 -\fBSomething 2\fR -.in -.sp -\f[CB]val\fR bar : unit -.fi -.br -.ti +2 -foo bar -.nf -.sp -.in 5 -\fB4\.3\.2 Something 1-bis\fR -.in -.sp -.fi -Some text\. -.nf -.sp -.fi -And let's include it again, but without inlining it this time: the ToC shouldn't grow\. -.nf -.sp -\f[CB]val\fR something : unit -.sp -.in 5 -\fB4\.3\.3 Something 1\fR -.in -.sp -.fi -foo -.nf -.sp -\f[CB]val\fR foo : unit -.sp -.in 6 -\fBSomething 2\fR -.in -.sp -\f[CB]val\fR bar : unit -.fi -.br -.ti +2 -foo bar -.nf -.sp -.in 5 -\fB4\.3\.4 Something 1-bis\fR -.in -.sp -.fi -Some text\. -.nf - diff --git a/test/man/expect/test_package+ml/Interlude.3o b/test/man/expect/test_package+ml/Interlude.3o deleted file mode 100644 index 2cb1d14aa7..0000000000 --- a/test/man/expect/test_package+ml/Interlude.3o +++ /dev/null @@ -1,54 +0,0 @@ - -.TH Interlude 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Interlude -.SH Synopsis -.sp -.in 2 -\fBModule Interlude\fR -.in -.sp -.fi -This is the comment associated to the module\. -.nf -.SH Documentation -.sp -.nf -.fi -Some separate stray text at the top of the module\. -.nf -.sp -\f[CB]val\fR foo : unit -.fi -.br -.ti +2 -Foo\. -.nf -.sp -.fi -Some stray text that is not associated with any signature item\. -.sp -It has multiple paragraphs\. -.nf -.sp -.fi -A separate block of stray text, adjacent to the preceding one\. -.nf -.sp -\f[CB]val\fR bar : unit -.fi -.br -.ti +2 -Bar\. -.nf -.sp -\f[CB]val\fR multiple : unit -.sp -\f[CB]val\fR signature : unit -.sp -\f[CB]val\fR items : unit -.sp -.fi -Stray text at the bottom of the module\. -.nf - diff --git a/test/man/expect/test_package+ml/Markup.3o b/test/man/expect/test_package+ml/Markup.3o deleted file mode 100644 index b1f56faa50..0000000000 --- a/test/man/expect/test_package+ml/Markup.3o +++ /dev/null @@ -1,279 +0,0 @@ - -.TH Markup 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Markup -.SH Synopsis -.sp -.in 2 -\fBModule Markup\fR -.in -.sp -.fi -Here, we test the rendering of comment markup\. -.nf -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Sections\fR -.in -.sp -.fi -Let's get these done first, because sections will be used to break up the rest of this test\. -.sp -Besides the section heading above, there are also -.nf -.sp -.in 4 -\fB1\.1 Subsection headings\fR -.in -.sp -.fi -and -.nf -.sp -.in 5 -\fB1\.1\.1 Sub-subsection headings\fR -.in -.sp -.fi -but odoc has banned deeper headings\. There are also title headings, but they are only allowed in mld files\. -.nf -.sp -.in 5 -\fB1\.1\.2 Anchors\fR -.in -.sp -.fi -Sections can have attached \f[CI]Anchors\fR, and it is possible to \f[CI]link\fR to them\. Links to section headers should not be set in source code style\. -.nf -.sp -.in 6 -\fBParagraph\fR -.in -.sp -.fi -Individual paragraphs can have a heading\. -.nf -.sp -.in 7 -\fBSubparagraph\fR -.in -.sp -.fi -Parts of a longer paragraph that can be considered alone can also have headings\. -.nf -.sp -.in 3 -\fB2 Styling\fR -.in -.sp -.fi -This paragraph has some styled elements: \fBbold\fR and \fIitalic\fR, \fB\fIbold italic\fB\fR, emphasis, emphasis within emphasis, \fB\fIbold italic\fB\fR, superscript, subscript\. The line spacing should be enough for superscripts and subscripts not to look odd\. -.sp -Note: \fIIn italics emphasis is rendered as normal text while emphasis in emphasis is rendered in italics\.\fR \fIIt also work the same in -.UR # -links in italics with emphasis in emphasis\. -.UE -\fR -.sp -code is a different kind of markup that doesn't allow nested markup\. -.sp -It's possible for two markup elements to appear \fBnext\fR \fIto\fR each other and have a space, and appear \fBnext\fR\fIto\fR each other with no space\. It doesn't matter \fBhow\fR \fImuch\fR space it was in the source: in this sentence, it was two space characters\. And in this one, there is \fBa\fR \fInewline\fR\. -.sp -This is also true between non-code markup and code\. -.sp -Code can appear \fBinside other markup\fR\. Its display shouldn't be affected\. -.nf -.sp -.in 3 -\fB3 Links and references\fR -.in -.sp -.fi -This is a -.UR # -link -.UE -\. It sends you to the top of this page\. Links can have markup inside them: -.UR # -\fBbold\fR -.UE -, -.UR # -\fIitalics\fR -.UE -, -.UR # -emphasis -.UE -, -.UR # -superscript -.UE -, -.UR # -subscript -.UE -, and -.UR # -code -.UE -\. Links can also be nested -.UR # -inside -.UE - markup\. Links cannot be nested inside each other\. This link has no replacement text: -.UR # -# -.UE -\. The text is filled in by odoc\. This is a shorthand link: -.UR # -# -.UE -\. The text is also filled in by odoc in this case\. -.sp -This is a reference to \f[CI]foo\fR\. References can have replacement text: \f[CI]the value foo\fR\. Except for the special lookup support, references are pretty much just like links\. The replacement text can have nested styles: \f[CI]\fBbold\f[CI]\fR, \f[CI]\fIitalic\f[CI]\fR, \f[CI]emphasis\fR, \f[CI]superscript\fR, \f[CI]subscript\fR, and \f[CI]code\fR\. It's also possible to surround a reference in a style: \fB\f[CI]foo\fB\fR\. References can't be nested inside references, and links and references can't be nested inside each other\. -.nf -.sp -.in 3 -\fB4 Preformatted text\fR -.in -.sp -.fi -This is a code block: -.sp -.EX -let foo = () -(** There are some nested comments in here, but an unpaired comment - terminator would terminate the whole doc surrounding comment\. It's - best to keep code blocks no wider than 72 characters\. *) - -let bar = - ignore foo -.EE -.sp -There are also verbatim blocks: -.sp -.EX -The main difference is these don't get syntax highlighting\. -.EE -.nf -.sp -.in 3 -\fB5 Lists\fR -.in -.sp -.fi -\(bu This is a -.br -\(bu shorthand bulleted list, -.br -\(bu and the paragraphs in each list item support styling\. -.sp -1) This is a -.br -2) shorthand numbered list\. -.sp -\(bu Shorthand list items can span multiple lines, however trying to put two paragraphs into a shorthand list item using a double line break -.sp -just creates a paragraph outside the list\. -.sp -\(bu Similarly, inserting a blank line between two list items -.sp -\(bu creates two separate lists\. -.sp -\(bu To get around this limitation, one -.sp -.ti +2 -can use explicitly-delimited lists\. -.br -\(bu This one is bulleted, -.sp -1) but there is also the numbered variant\. -.sp -\(bu \(bu lists -.br -.ti +2 -\(bu can be nested -.br -.ti +2 -\(bu and can include references -.br -.ti +2 -\(bu \f[CI]foo\fR -.nf -.sp -.in 3 -\fB6 Unicode\fR -.in -.sp -.fi -The parser supports any ASCII-compatible encoding, in particuλar UTF-8\. -.nf -.sp -.in 3 -\fB7 Raw HTML\fR -.in -.sp -.fi -Raw HTML can be as inline elements into sentences\. -.sp -.nf -.sp -.in 3 -\fB8 Modules\fR -.in -.sp -.fi -@X: -.br -@X: -.br -@Y: -.br -@Z: -.nf -.sp -.in 3 -\fB9 Tags\fR -.in -.sp -.fi -Each comment can end with zero or more tags\. Here are some examples: -.sp -@author: antron -.br -@deprecated: a long time ago -.br -@parameter foo: unused -.br -@raises Failure: always -.br -@returns: never -.br -@see -.UR # -# -.UE -: this url -.br -@see foo\.ml: this file -.br -@see Foo: this document -.br -@since: 0 -.br -@before 1\.0: it was in beta -.br -@version: -1 -.nf -.sp -\f[CB]val\fR foo : unit -.fi -.br -.ti +2 -Comments in structure items \fBsupport\fR markup, too\. -.nf - diff --git a/test/man/expect/test_package+ml/Module.3o b/test/man/expect/test_package+ml/Module.3o deleted file mode 100644 index a7da62d021..0000000000 --- a/test/man/expect/test_package+ml/Module.3o +++ /dev/null @@ -1,178 +0,0 @@ - -.TH Module 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Module -.SH Synopsis -.sp -.in 2 -\fBModule Module\fR -.in -.sp -.fi -Foo\. -.nf -.SH Documentation -.sp -.nf -\f[CB]val\fR foo : unit -.fi -.br -.ti +2 -The module needs at least one signature item, otherwise a bug causes the compiler to drop the module comment (above)\. See -.UR https://caml.inria.fr/mantis/view.php?id=7701 -https://caml\.inria\.fr/mantis/view\.php?id=7701 -.UE -\. -.nf -.sp -\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.sp -.ti +2 -\f[CB]type\fR u -.sp -.ti +2 -\f[CB]type\fR 'a v -.sp -.ti +2 -\f[CB]type\fR ('a, 'b) w -.sp -.ti +2 -\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR -.br -\f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR S1 -.sp -\f[CB]module\fR \f[CB]type\fR S2 = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.sp -.ti +2 -\f[CB]type\fR u -.sp -.ti +2 -\f[CB]type\fR 'a v -.sp -.ti +2 -\f[CB]type\fR ('a, 'b) w -.sp -.ti +2 -\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR -.br -\f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR S3 = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t = int -.sp -.ti +2 -\f[CB]type\fR u = string -.sp -.ti +2 -\f[CB]type\fR 'a v -.sp -.ti +2 -\f[CB]type\fR ('a, 'b) w -.sp -.ti +2 -\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR -.br -\f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR S4 = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR u -.sp -.ti +2 -\f[CB]type\fR 'a v -.sp -.ti +2 -\f[CB]type\fR ('a, 'b) w -.sp -.ti +2 -\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR -.br -\f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR S5 = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.sp -.ti +2 -\f[CB]type\fR u -.sp -.ti +2 -\f[CB]type\fR ('a, 'b) w -.sp -.ti +2 -\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR -.br -\f[CB]end\fR -.sp -\f[CB]type\fR ('a, 'b) result -.sp -\f[CB]module\fR \f[CB]type\fR S6 = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.sp -.ti +2 -\f[CB]type\fR u -.sp -.ti +2 -\f[CB]type\fR 'a v -.sp -.ti +2 -\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR -.br -\f[CB]end\fR -.sp -\f[CB]module\fR M' : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR S7 = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.sp -.ti +2 -\f[CB]type\fR u -.sp -.ti +2 -\f[CB]type\fR 'a v -.sp -.ti +2 -\f[CB]type\fR ('a, 'b) w -.sp -.ti +2 -\f[CB]module\fR M = M' -.br -\f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR S8 = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.sp -.ti +2 -\f[CB]type\fR u -.sp -.ti +2 -\f[CB]type\fR 'a v -.sp -.ti +2 -\f[CB]type\fR ('a, 'b) w -.br -\f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR S9 = \f[CB]sig\fR \f[CB]end\fR -.sp -\f[CB]module\fR Mutually : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.sp -\f[CB]module\fR Recursive : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/man/expect/test_package+ml/Nested.3o b/test/man/expect/test_package+ml/Nested.3o deleted file mode 100644 index cfff6f1403..0000000000 --- a/test/man/expect/test_package+ml/Nested.3o +++ /dev/null @@ -1,89 +0,0 @@ - -.TH Nested 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Nested -.SH Synopsis -.sp -.in 2 -\fBModule Nested\fR -.in -.sp -.fi -This comment needs to be here before #235 is fixed\. -.nf -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Module\fR -.in -.sp -\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.fi -.br -.ti +2 -This is module X\. -.nf -.sp -.in 3 -\fB2 Module type\fR -.in -.sp -\f[CB]module\fR \f[CB]type\fR Y = \f[CB]sig\fR -.br -.ti +2 -.sp -.ti +2 -\fB2\.1\.1 Type\fR -.sp -.ti +2 -\f[CB]type\fR t -.fi -.br -.ti +4 -Some type\. -.nf -.sp -.ti +2 -\fB2\.1\.2 Values\fR -.sp -.ti +2 -\f[CB]val\fR y : t -.fi -.br -.ti +4 -The value of y\. -.nf - -.br -\f[CB]end\fR -.fi -.br -.ti +2 -This is module type Y\. -.nf -.sp -.in 3 -\fB3 Functor\fR -.in -.sp -\f[CB]module\fR F (Arg1 : Y) (Arg2 : \f[CB]sig\fR \.\.\. \f[CB]end\fR) : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.fi -.br -.ti +2 -This is a functor F\. -.nf -.sp -.in 3 -\fB4 Class\fR -.in -.sp -\f[CB]class\fR \f[CB]virtual\fR z : \f[CB]object\fR \.\.\. \f[CB]end\fR -.fi -.br -.ti +2 -This is class z\. -.nf -.sp -\f[CB]class\fR \f[CB]virtual\fR inherits : \f[CB]object\fR \.\.\. \f[CB]end\fR diff --git a/test/man/expect/test_package+ml/Nested.F.3o b/test/man/expect/test_package+ml/Nested.F.3o deleted file mode 100644 index 4bf19ba437..0000000000 --- a/test/man/expect/test_package+ml/Nested.F.3o +++ /dev/null @@ -1,87 +0,0 @@ - -.TH F 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Nested\.F -.SH Synopsis -.sp -.in 2 -\fBModule Nested\.F\fR -.in -.sp -.fi -This is a functor F\. -.nf -.sp -.fi -Some additional comments\. -.nf -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Type\fR -.in -.sp -.in 3 -\fB2 Parameters\fR -.in -.sp -\f[CB]module\fR Arg1 : \f[CB]sig\fR -.br -.ti +2 -.sp -.ti +2 -\fB2\.1\.1 Type\fR -.sp -.ti +2 -\f[CB]type\fR t -.fi -.br -.ti +4 -Some type\. -.nf -.sp -.ti +2 -\fB2\.1\.2 Values\fR -.sp -.ti +2 -\f[CB]val\fR y : t -.fi -.br -.ti +4 -The value of y\. -.nf - -.br -\f[CB]end\fR -.sp -\f[CB]module\fR Arg2 : \f[CB]sig\fR -.br -.ti +2 -.sp -.ti +2 -\fB2\.1\.3 Type\fR -.sp -.ti +2 -\f[CB]type\fR t -.fi -.br -.ti +4 -Some type\. -.nf - -.br -\f[CB]end\fR -.sp -.in 3 -\fB3 Signature\fR -.in -.sp -\f[CB]type\fR t = Arg1\.t * Arg2\.t -.fi -.br -.ti +2 -Some type\. -.nf - diff --git a/test/man/expect/test_package+ml/Nested.X.3o b/test/man/expect/test_package+ml/Nested.X.3o deleted file mode 100644 index d9f6f77f4a..0000000000 --- a/test/man/expect/test_package+ml/Nested.X.3o +++ /dev/null @@ -1,43 +0,0 @@ - -.TH X 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Nested\.X -.SH Synopsis -.sp -.in 2 -\fBModule Nested\.X\fR -.in -.sp -.fi -This is module X\. -.nf -.sp -.fi -Some additional comments\. -.nf -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Type\fR -.in -.sp -\f[CB]type\fR t -.fi -.br -.ti +2 -Some type\. -.nf -.sp -.in 3 -\fB2 Values\fR -.in -.sp -\f[CB]val\fR x : t -.fi -.br -.ti +2 -The value of x\. -.nf - diff --git a/test/man/expect/test_package+ml/Nested.inherits.3o b/test/man/expect/test_package+ml/Nested.inherits.3o deleted file mode 100644 index 78176e0d46..0000000000 --- a/test/man/expect/test_package+ml/Nested.inherits.3o +++ /dev/null @@ -1,14 +0,0 @@ - -.TH inherits 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Nested\.inherits -.SH Synopsis -.sp -.in 2 -\fBClass Nested\.inherits\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]inherit\fR z diff --git a/test/man/expect/test_package+ml/Nested.z.3o b/test/man/expect/test_package+ml/Nested.z.3o deleted file mode 100644 index f9cfa01601..0000000000 --- a/test/man/expect/test_package+ml/Nested.z.3o +++ /dev/null @@ -1,41 +0,0 @@ - -.TH z 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Nested\.z -.SH Synopsis -.sp -.in 2 -\fBClass Nested\.z\fR -.in -.sp -.fi -This is class z\. -.nf -.sp -.fi -Some additional comments\. -.nf -.SH Documentation -.sp -.nf -\f[CB]val\fR y : int -.fi -.br -.ti +2 -Some value\. -.nf -.sp -\f[CB]val\fR \f[CB]mutable\fR \f[CB]virtual\fR y' : int -.sp -.in 3 -\fB1 Methods\fR -.in -.sp -\f[CB]method\fR z : int -.fi -.br -.ti +2 -Some method\. -.nf -.sp -\f[CB]method\fR \f[CB]private\fR \f[CB]virtual\fR z' : int diff --git a/test/man/expect/test_package+ml/Recent.3o b/test/man/expect/test_package+ml/Recent.3o deleted file mode 100644 index bb5dd5de24..0000000000 --- a/test/man/expect/test_package+ml/Recent.3o +++ /dev/null @@ -1,145 +0,0 @@ - -.TH Recent 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Recent -.SH Synopsis -.sp -.in 2 -\fBModule Recent\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR \f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR S1 = \f[CB]sig\fR -.br -.ti +2 -.sp -.ti +2 -\fB1\.1 Parameters\fR -.sp -.ti +2 -\f[CB]module\fR _ : \f[CB]sig\fR \f[CB]end\fR -.sp -.ti +2 -\fB1\.2 Signature\fR -.sp -.ti +2 - -.br -\f[CB]end\fR -.sp -\f[CB]type\fR variant = -.br -.ti +2 -| \f[CB]A\fR -.br -.ti +2 -| \f[CB]B\fR \f[CB]of\fR int -.br -.ti +2 -| \f[CB]C\fR -.br -.ti +4 -(* foo *) -.br -.ti +2 -| \f[CB]D\fR -.br -.ti +4 -(* bar *) -.br -.ti +2 -| \f[CB]E\fR \f[CB]of\fR { -.br -.ti +6 -a : int; -.br -.ti +4 -} -.br -.sp -\f[CB]type\fR _ gadt = -.br -.ti +2 -| \f[CB]A\fR : int gadt -.br -.ti +2 -| \f[CB]B\fR : int \f[CB]\->\fR string gadt -.br -.ti +4 -(* foo *) -.br -.ti +2 -| \f[CB]C\fR : { -.br -.ti +6 -a : int; -.br -.ti +4 -} \f[CB]\->\fR unit gadt -.br -.sp -\f[CB]type\fR polymorphic_variant = [ -.br -.ti +2 -| `A -.br -.ti +2 -| `B \f[CB]of\fR int -.br -.ti +2 -| `C -.br -.ti +4 -(* foo *) -.br -.ti +2 -| `D -.br -.ti +4 -(* bar *) -.br - ] -.sp -\f[CB]type\fR empty_variant = | -.sp -\f[CB]type\fR \f[CB]nonrec\fR nonrec_ = int -.sp -\f[CB]type\fR empty_conj = -.br -.ti +2 -| \f[CB]X\fR : [< `X of & \f[CB]'a\fR & int * float ] \f[CB]\->\fR empty_conj -.br -.sp -\f[CB]type\fR conj = -.br -.ti +2 -| \f[CB]X\fR : [< `X of int & [< `B of int & float ] ] \f[CB]\->\fR conj -.br -.sp -\f[CB]val\fR empty_conj : [< `X of & \f[CB]'a\fR & int * float ] -.sp -\f[CB]val\fR conj : [< `X of int & [< `B of int & float ] ] -.sp -\f[CB]module\fR Z : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.sp -\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.sp -\f[CB]module\fR \f[CB]type\fR PolyS = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t = [ -.br -.ti +4 -| `A -.br -.ti +4 -| `B -.br -.ti +2 - ] -.br -\f[CB]end\fR diff --git a/test/man/expect/test_package+ml/Recent.X.3o b/test/man/expect/test_package+ml/Recent.X.3o deleted file mode 100644 index 826574ac98..0000000000 --- a/test/man/expect/test_package+ml/Recent.X.3o +++ /dev/null @@ -1,20 +0,0 @@ - -.TH X 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Recent\.X -.SH Synopsis -.sp -.in 2 -\fBModule Recent\.X\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]module\fR L := Z\.Y -.sp -\f[CB]type\fR t = int Z\.Y\.X\.t -.sp -\f[CB]type\fR u := int -.sp -\f[CB]type\fR v = u Z\.Y\.X\.t diff --git a/test/man/expect/test_package+ml/Recent_impl.3o b/test/man/expect/test_package+ml/Recent_impl.3o deleted file mode 100644 index 837c6276b6..0000000000 --- a/test/man/expect/test_package+ml/Recent_impl.3o +++ /dev/null @@ -1,50 +0,0 @@ - -.TH Recent_impl 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Recent_impl -.SH Synopsis -.sp -.in 2 -\fBModule Recent_impl\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]module\fR Foo : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.sp -\f[CB]module\fR B : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.sp -\f[CB]type\fR u -.sp -\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR -.br -.ti +2 -\f[CB]module\fR F : \f[CB]sig\fR -.br -.ti +4 -.sp -.ti +4 -\fB1\.1 Parameters\fR -.sp -.ti +4 -\f[CB]module\fR _ : \f[CB]sig\fR \f[CB]end\fR -.sp -.ti +4 -\fB1\.2 Signature\fR -.sp -.ti +4 -\f[CB]type\fR t -.br -.ti +2 -\f[CB]end\fR -.sp -.ti +2 -\f[CB]module\fR X : \f[CB]sig\fR \f[CB]end\fR -.sp -.ti +2 -\f[CB]val\fR f : F(X)\.t -.br -\f[CB]end\fR -.sp -\f[CB]module\fR B' = Foo\.B diff --git a/test/man/expect/test_package+ml/Section.3o b/test/man/expect/test_package+ml/Section.3o deleted file mode 100644 index 474a7299e6..0000000000 --- a/test/man/expect/test_package+ml/Section.3o +++ /dev/null @@ -1,63 +0,0 @@ - -.TH Section 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Section -.SH Synopsis -.sp -.in 2 -\fBModule Section\fR -.in -.sp -.fi -This is the module comment\. Eventually, sections won't be allowed in it\. -.nf -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Empty section\fR -.in -.sp -.in 3 -\fB2 Text only\fR -.in -.sp -.fi -Foo bar\. -.nf -.sp -.in 3 -\fB3 Aside only\fR -.in -.sp -.fi -Foo bar\. -.nf -.sp -.in 3 -\fB4 Value only\fR -.in -.sp -\f[CB]val\fR foo : unit -.sp -.in 3 -\fB5 Empty section\fR -.in -.sp -.in 3 -\fB6 within a comment\fR -.in -.sp -.in 4 -\fB6\.1 and one with a nested section\fR -.in -.sp -.in 3 -\fB7 This section \fBtitle\fB has markup\fR -.in -.sp -.fi -But links are impossible thanks to the parser, so we never have trouble rendering a section title in a table of contents – no link will be nested inside another link\. -.nf - diff --git a/test/man/expect/test_package+ml/Stop.3o b/test/man/expect/test_package+ml/Stop.3o deleted file mode 100644 index 48f11ad6ba..0000000000 --- a/test/man/expect/test_package+ml/Stop.3o +++ /dev/null @@ -1,36 +0,0 @@ - -.TH Stop 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Stop -.SH Synopsis -.sp -.in 2 -\fBModule Stop\fR -.in -.sp -.fi -This test cases exercises stop comments\. -.nf -.SH Documentation -.sp -.nf -\f[CB]val\fR foo : int -.fi -.br -.ti +2 -This is normal commented text\. -.nf -.sp -.fi -The next value is bar, and it should be missing from the documentation\. There is also an entire module, M, which should also be hidden\. It contains a nested stop comment, but that stop comment should not turn documentation back on in this outer module, because stop comments respect scope\. -.nf -.sp -.fi -Documentation is on again\. -.sp -Now, we have a nested module, and it has a stop comment between its two items\. We want to see that the first item is displayed, but the second is missing, and the stop comment disables documenation only in that module, and not in this outer module\. -.nf -.sp -\f[CB]module\fR N : \f[CB]sig\fR \.\.\. \f[CB]end\fR -.sp -\f[CB]val\fR lol : int diff --git a/test/man/expect/test_package+ml/Type.3o b/test/man/expect/test_package+ml/Type.3o deleted file mode 100644 index 4a1cb7770b..0000000000 --- a/test/man/expect/test_package+ml/Type.3o +++ /dev/null @@ -1,257 +0,0 @@ - -.TH Type 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Type -.SH Synopsis -.sp -.in 2 -\fBModule Type\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]type\fR abstract -.fi -.br -.ti +2 -Some documentation\. -.nf -.sp -\f[CB]type\fR alias = int -.sp -\f[CB]type\fR private_ = \f[CB]private\fR int -.sp -\f[CB]type\fR 'a constructor = \f[CB]'a\fR -.sp -\f[CB]type\fR arrow = int \f[CB]\->\fR int -.sp -\f[CB]type\fR higher_order = (int \f[CB]\->\fR int) \f[CB]\->\fR int -.sp -\f[CB]type\fR labeled = l:int \f[CB]\->\fR int -.sp -\f[CB]type\fR optional = ?l:int \f[CB]\->\fR int -.sp -\f[CB]type\fR labeled_higher_order = (l:int \f[CB]\->\fR int) \f[CB]\->\fR (?l:int \f[CB]\->\fR int) \f[CB]\->\fR int -.sp -\f[CB]type\fR pair = int * int -.sp -\f[CB]type\fR parens_dropped = int * int -.sp -\f[CB]type\fR triple = int * int * int -.sp -\f[CB]type\fR nested_pair = (int * int) * int -.sp -\f[CB]type\fR instance = int constructor -.sp -\f[CB]type\fR long = labeled_higher_order \f[CB]\->\fR [ `Bar | `Baz of triple ] \f[CB]\->\fR pair \f[CB]\->\fR labeled \f[CB]\->\fR higher_order \f[CB]\->\fR (string \f[CB]\->\fR int) \f[CB]\->\fR (int, float, char, string, char, unit) CamlinternalFormatBasics\.fmtty \f[CB]\->\fR nested_pair \f[CB]\->\fR arrow \f[CB]\->\fR string \f[CB]\->\fR nested_pair array -.sp -\f[CB]type\fR variant_e = { -.br -.ti +2 -a : int; -.br -} -.sp -\f[CB]type\fR variant = -.br -.ti +2 -| \f[CB]A\fR -.br -.ti +2 -| \f[CB]B\fR \f[CB]of\fR int -.br -.ti +2 -| \f[CB]C\fR -.br -.ti +4 -(* foo *) -.br -.ti +2 -| \f[CB]D\fR -.br -.ti +4 -(* bar *) -.br -.ti +2 -| \f[CB]E\fR \f[CB]of\fR variant_e -.br -.sp -\f[CB]type\fR variant_c = { -.br -.ti +2 -a : int; -.br -} -.sp -\f[CB]type\fR _ gadt = -.br -.ti +2 -| \f[CB]A\fR : int gadt -.br -.ti +2 -| \f[CB]B\fR : int \f[CB]\->\fR string gadt -.br -.ti +2 -| \f[CB]C\fR : variant_c \f[CB]\->\fR unit gadt -.br -.sp -\f[CB]type\fR degenerate_gadt = -.br -.ti +2 -| \f[CB]A\fR : degenerate_gadt -.br -.sp -\f[CB]type\fR private_variant = \f[CB]private\fR -.br -.ti +2 -| \f[CB]A\fR -.br -.sp -\f[CB]type\fR record = { -.br -.ti +2 -a : int; -.br -.ti +2 -\f[CB]mutable\fR b : int; -.br -.ti +2 -c : int; -.br -.ti +4 -(* foo *) -.br -.ti +2 -d : int; -.br -.ti +4 -(* bar *) -.br -.ti +2 -e : a\. \f[CB]'a\fR; -.br -} -.sp -\f[CB]type\fR polymorphic_variant = [ -.br -.ti +2 -| `A -.br -.ti +2 -| `B \f[CB]of\fR int -.br -.ti +2 -| `C \f[CB]of\fR int * unit -.br -.ti +2 -| `D -.br - ] -.sp -\f[CB]type\fR polymorphic_variant_extension = [ -.br -.ti +2 -| polymorphic_variant -.br -.ti +2 -| `E -.br - ] -.sp -\f[CB]type\fR nested_polymorphic_variant = [ -.br -.ti +2 -| `A \f[CB]of\fR [ `B | `C ] -.br - ] -.sp -\f[CB]type\fR private_extenion#row -.sp -\f[CB]and\fR private_extenion = \f[CB]private\fR [> -.br -.ti +2 -| polymorphic_variant -.br - ] -.sp -\f[CB]type\fR object_ = < a : int; b : int; c : int; > -.sp -\f[CB]module\fR \f[CB]type\fR X = \f[CB]sig\fR -.br -.ti +2 -\f[CB]type\fR t -.sp -.ti +2 -\f[CB]type\fR u -.br -\f[CB]end\fR -.sp -\f[CB]type\fR module_ = (\f[CB]module\fR X) -.sp -\f[CB]type\fR module_substitution = (\f[CB]module\fR X \f[CB]with\fR \f[CB]type\fR t = int \f[CB]and\fR \f[CB]type\fR u = unit) -.sp -\f[CB]type\fR +'a covariant -.sp -\f[CB]type\fR -'a contravariant -.sp -\f[CB]type\fR _ bivariant = int -.sp -\f[CB]type\fR ('a, 'b) binary -.sp -\f[CB]type\fR using_binary = (int, int) binary -.sp -\f[CB]type\fR 'custom name -.sp -\f[CB]type\fR 'a constrained = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = int -.sp -\f[CB]type\fR 'a exact_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [ `A | `B of int ] -.sp -\f[CB]type\fR 'a lower_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [> `A | `B of int ] -.sp -\f[CB]type\fR 'a any_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [> ] -.sp -\f[CB]type\fR 'a upper_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [< `A | `B of int ] -.sp -\f[CB]type\fR 'a named_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [< polymorphic_variant ] -.sp -\f[CB]type\fR 'a exact_object = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = < a : int; b : int; > -.sp -\f[CB]type\fR 'a lower_object = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = < a : int; b : int; \.\. > -.sp -\f[CB]type\fR 'a poly_object = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = < a : a\. \f[CB]'a\fR; > -.sp -\f[CB]type\fR ('a, 'b) double_constrained = \f[CB]'a\fR * \f[CB]'b\fR \f[CB]constraint\fR \f[CB]'a\fR = int \f[CB]constraint\fR \f[CB]'b\fR = unit -.sp -\f[CB]type\fR as_ = int \f[CB]as\fR 'a * \f[CB]'a\fR -.sp -\f[CB]type\fR extensible = \.\. -.sp -\f[CB]type\fR extensible += -.br -.ti +2 -| \f[CB]Extension\fR -.br -.ti +4 -(* Documentation for \f[CI]Extension\fR\. *) -.br -.ti +2 -| \f[CB]Another_extension\fR -.br -.ti +4 -(* Documentation for \f[CI]Another_extension\fR\. *) -.br -.sp -\f[CB]type\fR mutually = -.br -.ti +2 -| \f[CB]A\fR \f[CB]of\fR recursive -.br -.sp -\f[CB]and\fR recursive = -.br -.ti +2 -| \f[CB]B\fR \f[CB]of\fR mutually -.br -.sp -\f[CB]exception\fR \f[CB]Foo\fR \f[CB]of\fR int * int diff --git a/test/man/expect/test_package+ml/Val.3o b/test/man/expect/test_package+ml/Val.3o deleted file mode 100644 index ed10f94e48..0000000000 --- a/test/man/expect/test_package+ml/Val.3o +++ /dev/null @@ -1,29 +0,0 @@ - -.TH Val 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.Val -.SH Synopsis -.sp -.in 2 -\fBModule Val\fR -.in -.sp -.SH Documentation -.sp -.nf -\f[CB]val\fR documented : unit -.fi -.br -.ti +2 -Foo\. -.nf -.sp -\f[CB]val\fR undocumented : unit -.sp -\f[CB]val\fR documented_above : unit -.fi -.br -.ti +2 -Bar\. -.nf - diff --git a/test/man/expect/test_package+ml/mld.3o b/test/man/expect/test_package+ml/mld.3o deleted file mode 100644 index b0b576b69d..0000000000 --- a/test/man/expect/test_package+ml/mld.3o +++ /dev/null @@ -1,63 +0,0 @@ - -.TH mld 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.mld -.SH Synopsis -.sp -.in 2 -\fBMld Page\fR -.in -.sp -.fi -This is an \.mld file\. It doesn't have an auto-generated title, like modules and other pages generated fully by odoc do\. -.sp -It will have a TOC generated from section headings\. -.nf -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Section\fR -.in -.sp -.fi -This is a section\. -.sp -Another paragraph in section\. -.nf -.sp -.in 3 -\fB2 Another section\fR -.in -.sp -.fi -This is another section\. -.sp -Another paragraph in section 2\. -.nf -.sp -.in 4 -\fB2\.1 Subsection\fR -.in -.sp -.fi -This is a subsection\. -.sp -Another paragraph in subsection\. -.sp -Yet another paragraph in subsection\. -.nf -.sp -.in 4 -\fB2\.2 Another Subsection\fR -.in -.sp -.fi -This is another subsection\. -.sp -Another paragraph in subsection 2\. -.sp -Yet another paragraph in subsection 2\. -.nf - diff --git a/test/man/expect/test_package+ml/mld.nroff b/test/man/expect/test_package+ml/mld.nroff deleted file mode 100644 index b0b576b69d..0000000000 --- a/test/man/expect/test_package+ml/mld.nroff +++ /dev/null @@ -1,63 +0,0 @@ - -.TH mld 3 "" "Odoc" "OCaml Library" -.SH Name -test_package+ml\.mld -.SH Synopsis -.sp -.in 2 -\fBMld Page\fR -.in -.sp -.fi -This is an \.mld file\. It doesn't have an auto-generated title, like modules and other pages generated fully by odoc do\. -.sp -It will have a TOC generated from section headings\. -.nf -.SH Documentation -.sp -.nf -.sp -.in 3 -\fB1 Section\fR -.in -.sp -.fi -This is a section\. -.sp -Another paragraph in section\. -.nf -.sp -.in 3 -\fB2 Another section\fR -.in -.sp -.fi -This is another section\. -.sp -Another paragraph in section 2\. -.nf -.sp -.in 4 -\fB2\.1 Subsection\fR -.in -.sp -.fi -This is a subsection\. -.sp -Another paragraph in subsection\. -.sp -Yet another paragraph in subsection\. -.nf -.sp -.in 4 -\fB2\.2 Another Subsection\fR -.in -.sp -.fi -This is another subsection\. -.sp -Another paragraph in subsection 2\. -.sp -Yet another paragraph in subsection 2\. -.nf - diff --git a/test/man/test.ml b/test/man/test.ml deleted file mode 100644 index e67a876dd5..0000000000 --- a/test/man/test.ml +++ /dev/null @@ -1,244 +0,0 @@ -open Printf - -(* Utils *) - -let ( // ) = Filename.concat - -let command label = - Printf.ksprintf (fun s -> - let exit_code = Sys.command s in - if exit_code <> 0 then - Alcotest.failf "'%s' exited with %i" label exit_code) - -(* Filename.extension is only available on 4.04. *) -module Filename = struct - include Filename - - let extension filename = - let dot_index = String.rindex filename '.' in - String.sub filename dot_index (String.length filename - dot_index) -end - -(* Testing environment *) - -module Env = struct - let package = "test_package" - - let odoc = "../../src/odoc/bin/main.exe" - - let path ?(from_root = false) = function - | `scratch when from_root -> "_build/default/test/man/_scratch" - | `scratch -> "_scratch" - | `expect when from_root -> "test/man/expect" - | `expect -> "expect" - | `cases when from_root -> "test/cases" - | `cases -> "../cases" - - let init () = Unix.mkdir (path `scratch) 0o755 -end - -(* Test case type and helpers *) - -(* A test case is a description of an input source file with a specific set of - options to be tested. Each test case results in a unique generated output to - be compared with an actually produced one. - - All paths defined in this module are relative to the build directory. *) -module Case = struct - type t = { - name : string; - kind : [ `mli | `mld | `ml ]; - syntax : [ `ml | `re ]; - outputs : string list; - } - - let make ?(syntax = `ml) (input, outputs) = - let name = Filename.chop_extension input in - let kind = - match Filename.extension input with - | ".mli" -> `mli - | ".mld" -> `mld - | ".ml" -> `ml - | _ -> - invalid_arg (sprintf "Expected mli, mld, or ml files, got %s" input) - in - { name; kind; syntax; outputs } - - let name case = case.name - - let kind case = case.kind - - let string_of_syntax = function `re -> "re" | `ml -> "ml" - - (* The package name is enriched with test case options. *) - let package case = - let opts = [ string_of_syntax case.syntax ] in - let opts = String.concat "," (List.sort compare opts) in - Env.package ^ "+" ^ opts - - let cmi_file case = Env.path `scratch // (case.name ^ ".cmi") - - let cmti_file case = Env.path `scratch // (case.name ^ ".cmti") - - let cmo_file case = Env.path `scratch // (case.name ^ ".cmo") - - let cmt_file case = Env.path `scratch // (case.name ^ ".cmt") - - let odoc_file case = - match case.kind with - | `mli | `ml -> Env.path `scratch // (case.name ^ ".odoc") - | `mld -> Env.path `scratch // ("page-" ^ case.name ^ ".odoc") - - let source_file case = - match case.kind with - | `mli -> (Env.path `cases // case.name) ^ ".mli" - | `mld -> (Env.path `cases // case.name) ^ ".mld" - | `ml -> (Env.path `cases // case.name) ^ ".ml" - - let outputs case = List.map (fun o -> package case // o) case.outputs -end - -let generate_man case = - match Case.kind case with - | `mli -> - command "ocamlfind c" "ocamlfind c -bin-annot -o %s -c %s" - (Case.cmi_file case) (Case.source_file case); - - command "odoc compile" "%s compile --package=%s %s" Env.odoc - (Case.package case) (Case.cmti_file case); - - command "odoc man" "%s man --syntax=%s --output-dir=%s %s" Env.odoc - (Case.string_of_syntax case.syntax) - (Env.path `scratch) - (Case.odoc_file case) - | `mld -> - command "odoc compile" "%s compile --package=%s -o %s %s" Env.odoc - (Case.package case) (Case.odoc_file case) (Case.source_file case); - - command "odoc man" "%s man --output-dir=%s %s" Env.odoc - (Env.path `scratch) - (Case.odoc_file case) - | `ml -> - command "ocamlfind c" "ocamlfind c -bin-annot -o %s -c %s" - (Case.cmo_file case) (Case.source_file case); - - command "odoc compile" "%s compile --package=%s %s" Env.odoc - (Case.package case) (Case.cmt_file case); - - command "odoc man" "%s man --syntax=%s --output-dir=%s %s" Env.odoc - (Case.string_of_syntax case.syntax) - (Env.path `scratch) - (Case.odoc_file case) - -let diff = - (* Alcotest will run all tests. We need to know when something fails for the - first time to stop diffing and generating promotion files. *) - let already_failed = ref false in - fun output -> - let actual_file = Env.path `scratch // output in - let expected_file = Env.path `expect // output in - let cmd = sprintf "diff -N -u -b %s %s" expected_file actual_file in - match Sys.command cmd with - | 0 -> () - | 1 when !already_failed -> - (* Don't run diff for other failing tests as only one at time is shown. *) - Alcotest.fail "generated MAN should match expected" - | 1 -> - (* If the diff command exits with 1, the two MAN files are different. - diff has already written its output to STDOUT. - - Also provide the command for overwriting the expected output with the - actual output, in case it is the actual output that is correct. - The paths are defined relative to the project's root. *) - let root_actual_file = Env.path `scratch ~from_root:true // output in - let root_expected_file = Env.path `expect ~from_root:true // output in - let write_file filename data = - let oc = open_out filename in - output_string oc data; - close_out oc - in - write_file Env.(path `scratch // "actual") root_actual_file; - write_file Env.(path `scratch // "expected") root_expected_file; - - prerr_endline "\nTo promote the actual output to expected, run:"; - Printf.eprintf "cp `cat %s` `cat %s` && make test\n\n" - Env.(path ~from_root:true `scratch // "actual") - Env.(path ~from_root:true `scratch // "expected"); - - already_failed := true; - Alcotest.fail "generated MAN should match expected" - | exit_code -> Alcotest.failf "'diff' exited with %i" exit_code - -let make_test_case ?syntax case = - let case = Case.make ?syntax case in - let run () = - (* Compile the source file and generate MAN. *) - generate_man case; - - List.iter diff (Case.outputs case) - in - (Case.name case, `Slow, run) - -let source_files_all = - [ - ("val.mli", [ "Val.3o" ]); - ("markup.mli", [ "Markup.3o" ]); - ("section.mli", [ "Section.3o" ]); - ("module.mli", [ "Module.3o" ]); - ("interlude.mli", [ "Interlude.3o" ]); - ("include.mli", [ "Include.3o" ]); - ("include2.ml", [ "Include2.3o" ]); - ("include_sections.mli", [ "Include_sections.3o" ]); - ("mld.mld", [ "mld.3o" ]); - ( "nested.mli", - [ - "Nested.3o"; - "Nested.F.3o"; - "Nested.X.3o"; - "Nested.z.3o"; - "Nested.inherits.3o"; - ] ); - ("type.mli", [ "Type.3o" ]); - ("external.mli", [ "External.3o" ]); - ( "functor.mli", - [ - "Functor.3o"; - "Functor.F1.3o"; - "Functor.F2.3o"; - "Functor.F3.3o"; - "Functor.F4.3o"; - ] ); - ("class.mli", [ "Class.3o" ]); - ("stop.mli", [ "Stop.3o" ]); - ("bugs.ml", [ "Bugs.3o" ]); - ("alias.ml", [ "Alias.3o"; "Alias.X.3o" ]); - ] - -let source_files_post408 = - [ - ("recent.mli", [ "Recent.3o"; "Recent.X.3o" ]); - ("recent_impl.ml", [ "Recent_impl.3o" ]); - ] - -let source_files_pre410 = [ ("bugs_pre_410.ml", [ "Bugs_pre_410.3o" ]) ] - -let source_files = - let cur = - Astring.String.cuts ~sep:"." Sys.ocaml_version - |> List.map (fun i -> try Some (int_of_string i) with _ -> None) - in - match cur with - | Some major :: Some minor :: _ -> - List.concat - [ - (if major = 4 && minor < 10 then source_files_pre410 else []); - (if major = 4 && minor > 8 then source_files_post408 else []); - source_files_all; - ] - | _ -> source_files_all - -let () = - Env.init (); - - Alcotest.run "man" - [ ("man_ml", List.map (make_test_case ~syntax:`ml) source_files) ] From 11ef243a409948f3177b749fa1a651d670b75fac Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Fri, 7 May 2021 22:02:45 +0300 Subject: [PATCH 05/10] add test cases Signed-off-by: lubegasimon --- test/generators/cases/.ocamlformat | 1 + test/generators/cases/alias.ml | 7 + test/generators/cases/bugs.ml | 5 + test/generators/cases/bugs_post_406.mli | 10 + test/generators/cases/bugs_pre_410.ml | 6 + test/generators/cases/class.mli | 26 + test/generators/cases/external.mli | 2 + test/generators/cases/functor.mli | 19 + test/generators/cases/functor2.mli | 15 + test/generators/cases/include.mli | 48 + test/generators/cases/include2.ml | 24 + test/generators/cases/include_sections.mli | 41 + test/generators/cases/interlude.mli | 21 + test/generators/cases/labels.mli | 58 + test/generators/cases/markup.mli | 179 +++ test/generators/cases/mld.mld | 34 + test/generators/cases/module.mli | 44 + test/generators/cases/nested.mli | 84 ++ test/generators/cases/ocamlary.mli | 1067 ++++++++++++++++++ test/generators/cases/recent.mli | 58 + test/generators/cases/recent_impl.ml | 29 + test/generators/cases/section.mli | 30 + test/generators/cases/stop.mli | 42 + test/generators/cases/stop_dead_link_doc.mli | 27 + test/generators/cases/toplevel_comments.mli | 72 ++ test/generators/cases/type.mli | 138 +++ test/generators/cases/val.mli | 7 + 27 files changed, 2094 insertions(+) create mode 100644 test/generators/cases/.ocamlformat create mode 100644 test/generators/cases/alias.ml create mode 100644 test/generators/cases/bugs.ml create mode 100644 test/generators/cases/bugs_post_406.mli create mode 100644 test/generators/cases/bugs_pre_410.ml create mode 100644 test/generators/cases/class.mli create mode 100644 test/generators/cases/external.mli create mode 100644 test/generators/cases/functor.mli create mode 100644 test/generators/cases/functor2.mli create mode 100644 test/generators/cases/include.mli create mode 100644 test/generators/cases/include2.ml create mode 100644 test/generators/cases/include_sections.mli create mode 100644 test/generators/cases/interlude.mli create mode 100644 test/generators/cases/labels.mli create mode 100644 test/generators/cases/markup.mli create mode 100644 test/generators/cases/mld.mld create mode 100644 test/generators/cases/module.mli create mode 100644 test/generators/cases/nested.mli create mode 100644 test/generators/cases/ocamlary.mli create mode 100644 test/generators/cases/recent.mli create mode 100644 test/generators/cases/recent_impl.ml create mode 100644 test/generators/cases/section.mli create mode 100644 test/generators/cases/stop.mli create mode 100644 test/generators/cases/stop_dead_link_doc.mli create mode 100644 test/generators/cases/toplevel_comments.mli create mode 100644 test/generators/cases/type.mli create mode 100644 test/generators/cases/val.mli diff --git a/test/generators/cases/.ocamlformat b/test/generators/cases/.ocamlformat new file mode 100644 index 0000000000..4d6556cb8b --- /dev/null +++ b/test/generators/cases/.ocamlformat @@ -0,0 +1 @@ +disable = true diff --git a/test/generators/cases/alias.ml b/test/generators/cases/alias.ml new file mode 100644 index 0000000000..b458bc3420 --- /dev/null +++ b/test/generators/cases/alias.ml @@ -0,0 +1,7 @@ +module Foo__X = struct + (** Module Foo__X documentation. This should appear in the documentation + for the alias to this module 'X' *) + type t = int +end + +module X = Foo__X diff --git a/test/generators/cases/bugs.ml b/test/generators/cases/bugs.ml new file mode 100644 index 0000000000..2c9c30bbd7 --- /dev/null +++ b/test/generators/cases/bugs.ml @@ -0,0 +1,5 @@ +type 'a opt = 'a option +let foo (type a) ?(bar : a opt) () = () +(** Triggers an assertion failure when + {:https://github.com/ocaml/odoc/issues/101} is not fixed. *) + diff --git a/test/generators/cases/bugs_post_406.mli b/test/generators/cases/bugs_post_406.mli new file mode 100644 index 0000000000..757c001a02 --- /dev/null +++ b/test/generators/cases/bugs_post_406.mli @@ -0,0 +1,10 @@ +(** Let-open in class types, https://github.com/ocaml/odoc/issues/543 + This was added to the language in 4.06 *) + +class type let_open = + let open List in + object end + +class let_open' : + let open List in + object end diff --git a/test/generators/cases/bugs_pre_410.ml b/test/generators/cases/bugs_pre_410.ml new file mode 100644 index 0000000000..0baca54d3b --- /dev/null +++ b/test/generators/cases/bugs_pre_410.ml @@ -0,0 +1,6 @@ +type 'a opt' = int option +let foo' (type a) ?(bar : a opt') () = () +(** Similar to [Bugs], but the printed type of [~bar] should be [int], not + ['a]. This probably requires fixing in the compiler. See + {:https://github.com/ocaml/odoc/pull/230#issuecomment-433226807}. *) + diff --git a/test/generators/cases/class.mli b/test/generators/cases/class.mli new file mode 100644 index 0000000000..b536b0dbda --- /dev/null +++ b/test/generators/cases/class.mli @@ -0,0 +1,26 @@ +class type empty = +object +end + +class type mutually = +object +end + +and recursive = +object +end + +class mutually' : mutually +and recursive' : recursive + +class type virtual empty_virtual = +object +end + +class virtual empty_virtual' : empty + +class type ['a] polymorphic = +object +end + +class ['a] polymorphic' : ['a] polymorphic diff --git a/test/generators/cases/external.mli b/test/generators/cases/external.mli new file mode 100644 index 0000000000..9d68518931 --- /dev/null +++ b/test/generators/cases/external.mli @@ -0,0 +1,2 @@ +external foo : unit -> unit = "bar" +(** Foo {e bar}. *) diff --git a/test/generators/cases/functor.mli b/test/generators/cases/functor.mli new file mode 100644 index 0000000000..8d13c39eb2 --- /dev/null +++ b/test/generators/cases/functor.mli @@ -0,0 +1,19 @@ +module type S = +sig + type t +end + +module type S1 = functor (_ : S) -> S + +module F1 : functor (Arg : S) -> S + +module F2 : functor (Arg : S) -> (S with type t = Arg.t) + +module F3 : functor (Arg : S) -> +sig + type t = Arg.t +end + +module F4 (Arg : S) : S + +module F5 () : S diff --git a/test/generators/cases/functor2.mli b/test/generators/cases/functor2.mli new file mode 100644 index 0000000000..404e4671a2 --- /dev/null +++ b/test/generators/cases/functor2.mli @@ -0,0 +1,15 @@ +(* test *) + +module type S = sig type t end + +module X : functor (Y:S) -> functor (Z:S) -> sig + type y_t = Y.t + type z_t = Z.t + type x_t = y_t +end + +module type XF = functor (Y:S) -> functor (Z:S) -> sig + type y_t = Y.t + type z_t = Z.t + type x_t = y_t +end diff --git a/test/generators/cases/include.mli b/test/generators/cases/include.mli new file mode 100644 index 0000000000..f468c3cfc0 --- /dev/null +++ b/test/generators/cases/include.mli @@ -0,0 +1,48 @@ +module type Not_inlined = +sig + type t +end + +include Not_inlined + +module type Inlined = +sig + type u +end + +include Inlined +(** @inline *) + +module type Not_inlined_and_closed = +sig + type v +end + +include Not_inlined_and_closed +(** @closed *) + +module type Not_inlined_and_opened = +sig + type w +end + +include Not_inlined_and_opened +(** @open + @closed *) + +(* This demostrates that overridden values are never rendered*) +module type Inherent_Module = +sig + val a : t +end + +include Inherent_Module + + +module type Dorminant_Module = +sig + include Inherent_Module + val a : u +end + +include Dorminant_Module diff --git a/test/generators/cases/include2.ml b/test/generators/cases/include2.ml new file mode 100644 index 0000000000..bbfc4ca841 --- /dev/null +++ b/test/generators/cases/include2.ml @@ -0,0 +1,24 @@ +(** Comment about X that should not appear when including X below. *) +module X = struct + type t = int +end + +include X + +module Y = struct + (** Top-comment of Y. *) + + type t +end + +module Y_include_synopsis = struct + (** The [include Y] below should have the synopsis from [Y]'s top-comment + attached to it. *) + + include Y +end + +module Y_include_doc = struct + include Y + (** Doc attached to [include Y]. [Y]'s top-comment shouldn't appear here. *) +end diff --git a/test/generators/cases/include_sections.mli b/test/generators/cases/include_sections.mli new file mode 100644 index 0000000000..d4357c182a --- /dev/null +++ b/test/generators/cases/include_sections.mli @@ -0,0 +1,41 @@ +(** A module type. *) +module type Something = sig + + val something : unit + + (** {1 Something 1} + + foo *) + + val foo : unit + + (** {2 Something 2} *) + + val bar : unit + (** foo bar *) + + (** {1 Something 1-bis} + + Some text. *) +end + +(** Let's include {!Something} once *) + +include Something (** @inline *) + +(** {1 Second include} + + Let's include {!Something} a second time: the heading level should be shift here. *) + +include Something (** @inline *) + +(** {2 Third include} + + Shifted some more. *) + +include Something (** @inline *) + +(** And let's include it again, but without inlining it this time: the ToC + shouldn't grow. *) + +include Something diff --git a/test/generators/cases/interlude.mli b/test/generators/cases/interlude.mli new file mode 100644 index 0000000000..d8e79875b1 --- /dev/null +++ b/test/generators/cases/interlude.mli @@ -0,0 +1,21 @@ +(** This is the comment associated to the module. *) + +(** Some separate stray text at the top of the module. *) + +val foo : unit +(** Foo. *) + +(** Some stray text that is not associated with any signature item. + + It has multiple paragraphs. *) + +(** A separate block of stray text, adjacent to the preceding one. *) + +val bar : unit +(** Bar. *) + +val multiple : unit +val signature : unit +val items : unit + +(** Stray text at the bottom of the module. *) diff --git a/test/generators/cases/labels.mli b/test/generators/cases/labels.mli new file mode 100644 index 0000000000..5b361ca20e --- /dev/null +++ b/test/generators/cases/labels.mli @@ -0,0 +1,58 @@ +(** {1:L1 Attached to unit} *) + +(** {1:L2 Attached to nothing} *) + +(** {1:L3 Attached to module} *) +module A : sig end + +(** {1:L4 Attached to type} *) +type t + +(** {1:L5 Attached to value} *) +val f : t + +(** {1:L5bis Attached to external} *) +external e : unit -> t = "t" + +(** {1:L6 Attached to module type} *) +module type S = sig end + +(** {1:L6 Attached to class} *) +class c : object end + +(** {1:L7 Attached to class type} *) +class type cs = object end + +(** {1:L8 Attached to exception} *) +exception E + +type x = .. + +(** {1:L9 Attached to extension} *) +type x += X + +(** {1:L10 Attached to module subst} *) +module S := A + +(** {1:L11 Attached to type subst} *) +type s := t + +type u = A' (** {1:L12 Attached to constructor} *) + +type v = { f : t (** {1:L13 Attached to field} *) } + +(** Testing that labels can be referenced + - {!L1} + - {!L2} + - {!L3} + - {!L4} + - {!L5} + - {!L6} + - {!L7} + - {!L8} + - {!L9} + - {!L10} + - {!L11} + - {!L12} + - {!L13} + *) diff --git a/test/generators/cases/markup.mli b/test/generators/cases/markup.mli new file mode 100644 index 0000000000..369c7e6dda --- /dev/null +++ b/test/generators/cases/markup.mli @@ -0,0 +1,179 @@ +(** Here, we test the rendering of comment markup. *) + + +(** {1 Sections} + + Let's get these done first, because sections will be used to break up the + rest of this test. + + Besides the section heading above, there are also + + {2 Subsection headings} + + and + + {3 Sub-subsection headings} + + but odoc has banned deeper headings. There are also title headings, but they + are only allowed in mld files. + + {3:anchors Anchors} + + Sections can have attached {!anchors}, and it is possible to {{!anchors} + link} to them. Links to section headers should not be set in source code + style. + + {4 Paragraph} + + Individual paragraphs can have a heading. + + {5 Subparagraph} + + Parts of a longer paragraph that can be considered alone can also have + headings. + + + {1 Styling} + + This paragraph has some styled elements: {b bold} and {i italic}, + {b {i bold italic}}, {e emphasis}, {e {e emphasis} within emphasis}, + {b {i bold italic}}, super{^script}, sub{_script}. The line spacing should + be enough for superscripts and subscripts not to look odd. + + Note: {i In italics {e emphasis} is rendered as normal text while {e + emphasis {e in} emphasis} is rendered in italics.} {i It also work the same + in {{:#} links in italics with {e emphasis {e in} emphasis}.}} + + [code] is a different kind of markup that doesn't allow nested markup. + + It's possible for two markup elements to appear {b next} {i to} each other + and have a space, and appear {b next}{i to} each other with no space. It + doesn't matter {b how} {i much} space it was in the source: in this + sentence, it was two space characters. And in this one, there is {b a} + {i newline}. + + This is also true between {e non-}[code] markup {e and} [code]. + + Code can appear {b inside [other] markup}. Its display shouldn't be + affected. + + + {1 Links and references} + + This is a {{:#} link}. It sends you to the top of this page. Links can have + markup inside them: {{:#} {b bold}}, {{:#} {i italics}}, + {{:#} {e emphasis}}, {{:#} super{^script}}, {{:#} sub{_script}}, and + {{:#} [code]}. Links can also be nested {e {{:#} inside}} markup. Links + cannot be nested inside each other. This link has no replacement text: + {{:#}}. The text is filled in by odoc. This is a shorthand link: {:#}. The + text is also filled in by odoc in this case. + + This is a reference to {!foo}. References can have replacement text: + {{!foo} the value foo}. Except for the special lookup support, references + are pretty much just like links. The replacement text can have nested + styles: {{!foo} {b bold}}, {{!foo} {i italic}}, {{!foo} {e emphasis}}, + {{!foo} super{^script}}, {{!foo} sub{_script}}, and {{!foo} [code]}. It's + also possible to surround a reference in a style: {b {!foo}}. References + can't be nested inside references, and links and references can't be nested + inside each other. + + + {1 Preformatted text} + + This is a code block: + + {[ + let foo = () + (** There are some nested comments in here, but an unpaired comment + terminator would terminate the whole doc surrounding comment. It's + best to keep code blocks no wider than 72 characters. *) + + let bar = + ignore foo + ]} + + There are also verbatim blocks: + +{v +The main difference is these don't get syntax highlighting. +v} + + + {1 Lists} + + - This is a + - shorthand bulleted list, + - and the paragraphs in each list item support {e styling}. + + + This is a + + shorthand numbered list. + + - Shorthand list items can span multiple lines, however trying to put two + paragraphs into a shorthand list item using a double line break + + just creates a paragraph outside the list. + + - Similarly, inserting a blank line between two list items + + - creates two separate lists. + + {ul + {li To get around this limitation, one + + can use explicitly-delimited lists.} + {li This one is bulleted,}} + + {ol {li but there is also the numbered variant.}} + + {ul + {li + {ul + {li lists} + {li can be nested} + {li and can include references} + {li {!foo}}}}} + + + {1 Unicode} + + The parser supports any ASCII-compatible encoding, in particuλar UTF-8. + + + {1 Raw HTML} + + Raw HTML can be {%html:%} as + inline elements into sentences. + + {%html: +
      + If the raw HTML is the only thing in a paragraph, it is treated as a block + element, and won't be wrapped in paragraph tags by the HTML generator. +
      + %} + + + {1 Modules} + + {!modules: } + {!modules: X} + {!modules: X Y Z} + + + {1 Tags} + + Each comment can end with zero or more tags. Here are some examples: + + @author antron + @deprecated a {e long} time ago + @param foo unused + @raise Failure always + @return never + @see <#> this url + @see 'foo.ml' this file + @see "Foo" this document + @since 0 + @before 1.0 it was in b{^e}t{_a} + @version -1 *) + +val foo : unit +(** Comments in structure items {b support} {e markup}, t{^o}{_o}. *) diff --git a/test/generators/cases/mld.mld b/test/generators/cases/mld.mld new file mode 100644 index 0000000000..65e78dcb9b --- /dev/null +++ b/test/generators/cases/mld.mld @@ -0,0 +1,34 @@ +{0 Mld Page} + +This is an [.mld] file. It doesn't have an auto-generated title, like modules +and other pages generated fully by odoc do. + +It will have a TOC generated from section headings. + +{1 Section} + +This is a section. + +Another paragraph in section. + +{1 Another section} + +This is another section. + +Another paragraph in section 2. + +{2 Subsection} + +This is a subsection. + +Another paragraph in subsection. + +Yet another paragraph in subsection. + +{2 Another Subsection} + +This is another subsection. + +Another paragraph in subsection 2. + +Yet another paragraph in subsection 2. diff --git a/test/generators/cases/module.mli b/test/generators/cases/module.mli new file mode 100644 index 0000000000..a270d525b4 --- /dev/null +++ b/test/generators/cases/module.mli @@ -0,0 +1,44 @@ +(** Foo. *) + +val foo : unit +(** The module needs at least one signature item, otherwise a bug causes the + compiler to drop the module comment (above). See + {{:https://caml.inria.fr/mantis/view.php?id=7701}}. *) + +module type S = +sig + type t + type u + type 'a v + type ('a, 'b) w + module M : sig end +end + +module type S1 + +module type S2 = S + +module type S3 = S with type t = int and type u = string + +module type S4 = S with type t := int + +module type S5 = S with type 'a v := 'a list + +type ('a, 'b) result + +module type S6 = S with type ('a, 'b) w := ('a, 'b) result + +module M' : sig end + +module type S7 = S with module M = M' + +module type S8 = S with module M := M' + +module type S9 = module type of M' + +open M' + +open! M' + +module rec Mutually : sig end +and Recursive : sig end diff --git a/test/generators/cases/nested.mli b/test/generators/cases/nested.mli new file mode 100644 index 0000000000..795cc7a6ff --- /dev/null +++ b/test/generators/cases/nested.mli @@ -0,0 +1,84 @@ + +(** This comment needs to be here before #235 is fixed. *) + +(** {1 Module} *) + +(** This is module X. + + Some additional comments. *) +module X : sig + + (** {1 Type} *) + + type t + (** Some type. *) + + (** {1 Values} *) + + val x : t + (** The value of x. *) +end + + +(** {1 Module type} *) + +(** This is module type Y. + + Some additional comments. *) +module type Y = sig + + (** {1 Type} *) + + type t + (** Some type. *) + + (** {1 Values} *) + + val y : t + (** The value of y. *) +end + + +(** {1 Functor} *) + +(** This is a functor F. + + Some additional comments. *) +module F + (Arg1 : Y) (Arg2 : sig + (** {1 Type} *) + + type t + (** Some type. *) + end) : sig + (** {1 Type} *) + + type t = Arg1.t * Arg2.t + (** Some type. *) +end + + +(** {1 Class} *) + +(** This is class z. + + Some additional comments. *) +class virtual z : object + + val y : int + (** Some value. *) + + val mutable virtual y' : int + + (** {1 Methods} *) + + method z : int + (** Some method. *) + + method private virtual z' : int +end + + +class virtual inherits : object + inherit z +end diff --git a/test/generators/cases/ocamlary.mli b/test/generators/cases/ocamlary.mli new file mode 100644 index 0000000000..4d42613125 --- /dev/null +++ b/test/generators/cases/ocamlary.mli @@ -0,0 +1,1067 @@ +(* + * Copyright (c) 2014 David Sheets + * Leo White + * + * Permission to use, copy, modify, and distribute this software for any + * purpose with or without fee is hereby granted, provided that the above + * copyright notice and this permission notice appear in all copies. + * + * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES + * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF + * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR + * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES + * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN + * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF + * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. + *) + +(** This is an {i interface} with {b all} of the {e module system} features. + This documentation demonstrates: +- comment formatting +- unassociated comments +- documentation sections +- module system documentation including + {ol + {- submodules} + {- module aliases} + {- module types} + {- module type aliases} + {- modules with signatures} + {- modules with aliased signatures} +} + +A numbered list: ++ 3 ++ 2 ++ 1 + + David Sheets is the author. + @author David Sheets +*) + +(** + You may find more information about this HTML documentation renderer + at {{:https://github.com/dsheets/ocamlary} github.com/dsheets/ocamlary }. +*) + +(** + This is some verbatim text: + {v verbatim v} +*) + +(** + This is some verbatim text: + {v [][df[]]}} v} +*) + +(** + Here is some raw LaTeX: + {%latex: $e^{i\pi} = -1$ %} +*) + +(** + Here is an index table of [Empty] modules: + {!modules: Empty EmptyAlias} +*) + +(** + Here is a table of links to indexes: {!indexlist} +*) + +(** + Here is some superscript: x{^2} +*) + +(** + Here is some subscript: x{_0} +*) + +(** + Here are some escaped brackets: \{ \[ \@ \] \} +*) + +(** Here is some {e emphasis} [followed by code]. *) + +(** An unassociated comment *) + +(******************************************************************************) + +(** {1 Level 1 } *) + +(** {2 Level 2 } *) + +(** {3 Level 3 } *) + +(** {4 Level 4 } *) + +(** {3 Basic module stuff} *) + +(** A plain, empty module *) +module Empty : sig end +(** This module has a signature without any members. *) + +(** An ambiguous, misnamed module type *) +module type Empty = sig + type t +end + +(** An ambiguous, misnamed module type *) +module type MissingComment = sig + type t +end + +(** {1:s9000 Section 9000 } *) + +module EmptyAlias = Empty +(** A plain module alias of [Empty] *) + +(** {3:emptySig EmptySig} *) + +module type EmptySig = sig end +(** A plain, empty module signature *) + +module type EmptySigAlias = EmptySig +(** A plain, empty module signature alias of + {[EmptySig]} + (preformatted). *) + +module ModuleWithSignature : EmptySig +(** A plain module of a signature of {!module-type:EmptySig} (reference) *) + +module ModuleWithSignatureAlias : EmptySigAlias +(** A plain module with an alias signature + @deprecated I don't like this element any more. +*) + +module One : sig + type one +end + +(** There's a signature in a module in this signature. *) +module type SigForMod = sig + module Inner : sig + module type Empty = sig end + end +end + +module type SuperSig = sig + module type SubSigA = sig + (** {3:subSig A Labeled Section Header Inside of a Signature} *) + + type t + + module SubSigAMod : sig + type sub_sig_a_mod + end + end + + module type SubSigB = sig + (** {3:subSig Another Labeled Section Header Inside of a Signature} *) + + type t + end + + module type EmptySig = sig + type not_actually_empty + end + + module type One = sig + type two + end + + module type SuperSig = sig end +end + +(** For a good time, see + {!SuperSig.SubSigA.subSig} or {!SuperSig.SubSigB.subSig} or + {!SuperSig.EmptySig}. Section {!s9000} is also + interesting. + {!section:emptySig} is the section and {!module-type:EmptySig} is the + module signature. *) + +(** {!Buffer.t} *) +module Buffer : sig + val f : Buffer.t -> unit +end + +(** Some text before exception title. + + {3 Basic exception stuff} + + After exception title. *) + +exception Kaboom of unit +(** Unary exception constructor *) + +exception Kablam of unit * unit +(** Binary exception constructor *) + +exception Kapow of (unit * unit) +(** Unary exception constructor over binary tuple *) + +exception EmptySig +(** {!module-type:EmptySig} is a module and + {!exception:EmptySig} is this exception. *) + +exception EmptySigAlias +(** {!exception:EmptySigAlias} is this exception. *) + +(** {3 Basic type and value stuff with advanced doc comments } *) + +type ('a, 'b) a_function = 'a -> 'b +(** {!type:a_function} is this type and + {!val:a_function} is the value below. *) + +val a_function : x:int -> int +(** + This is [a_function] with param and return type. + @param x the [x] coordinate + @return the [y] coordinate +*) + +val fun_fun_fun : ((int, int) a_function, (unit, unit) a_function) a_function + +val fun_maybe : ?yes:unit -> unit -> int + +val not_found : unit -> unit +(** @raise Not_found That's all it does *) + +val ocaml_org : string +(** @see The OCaml Web site *) + +val some_file : string +(** @see 'some_file' The file called [some_file] *) + +val some_doc : string +(** @see "some_doc" The document called [some_doc] *) + +val since_mesozoic : unit +(** + This value was introduced in the Mesozoic era. + @since mesozoic +*) + +val changing : unit +(** + This value has had changes in 1.0.0, 1.1.0, and 1.2.0. + @before 1.0.0 before 1.0.0 + @before 1.1.0 before 1.1.0 + @version 1.2.0 +*) + +(** {3 Some Operators } *) + +val ( ~- ) : unit + +val ( ! ) : unit + +val ( @ ) : unit + +val ( $ ) : unit + +val ( % ) : unit + +(* Disabling the following four until we figure out what to do about + https://github.com/ocsigen/tyxml/issues/264 + +val ( ^ ) : unit + +val ( < ) : unit + +val ( > ) : unit + +val ( -| ) : unit *) + +val ( & ) : unit + +val ( * ) : unit + +val ( - ) : unit + +val ( + ) : unit + +val ( -? ) : unit + +val ( / ) : unit + +val ( := ) : unit + +val ( = ) : unit + +val ( land ) : unit + +(**/**) + +(** I'm hidden *) + +(**/**) + +(** {3 Advanced Module Stuff} *) + +(** This comment is for [CollectionModule]. *) +module CollectionModule : sig + type collection + (** This comment is for [collection]. *) + + type element + + (** This comment is for [InnerModuleA]. *) + module InnerModuleA : sig + type t = collection + (** This comment is for [t]. *) + + (** This comment is for [InnerModuleA']. *) + module InnerModuleA' : sig + type t = (unit, unit) a_function + (** This comment is for [t]. *) + end + + (** This comment is for [InnerModuleTypeA']. *) + module type InnerModuleTypeA' = sig + type t = InnerModuleA'.t + (** This comment is for [t]. *) + end + end + + module type InnerModuleTypeA = InnerModuleA.InnerModuleTypeA' + (** This comment is for [InnerModuleTypeA]. *) +end + +module type COLLECTION = module type of CollectionModule +(** module type of *) + +module Recollection : functor (C : COLLECTION) -> + COLLECTION + with type collection = C.element list + and type element = C.collection + +module type MMM = sig + module C : COLLECTION +end + +module type RECOLLECTION = MMM with module C = Recollection(CollectionModule) + +module type RecollectionModule = sig + include module type of Recollection (CollectionModule) +end + +module type A = sig + type t + + module Q : COLLECTION +end + +module type B = sig + type t + + module Q : COLLECTION +end + +(** This module type includes two signatures. + {ul + {- it includes {!module-type:A}} + {- it includes {!module-type:B} with some substitution}} *) +module type C = sig + include A + + include B with type t := t and module Q := Q +end + +(* TODO: figure out why this doesn't work + +(** This comment is for [Functor]. *) +module Functor(EmptyAlias : EmptySigAlias) : sig + (** This comment is for [FunctorInner]. *) + module FunctorInner = EmptyAlias +end +*) + +(** This comment is for [FunctorTypeOf]. *) +module FunctorTypeOf (Collection : module type of CollectionModule) : sig + type t = Collection.collection + (** This comment is for [t]. *) +end + +(** This comment is for [IncludeModuleType]. *) +module type IncludeModuleType = sig + include EmptySigAlias + (** This comment is for [include EmptySigAlias]. *) +end + +module type ToInclude = sig + module IncludedA : sig + type t + end + + module type IncludedB = sig + type s + end +end + +include ToInclude + +(** {3 Advanced Type Stuff} *) + +(** This comment is for [record]. *) +type record = { + field1 : int; (** This comment is for [field1]. *) + field2 : int; (** This comment is for [field2]. *) +} +(** This comment is also for [record]. *) + +type mutable_record = { + mutable a : int; (** [a] is first and mutable *) + b : unit; (** [b] is second and immutable *) + mutable c : int; (** [c] is third and mutable *) +} + +type universe_record = { nihilate : 'a. 'a -> unit } + +(** This comment is for [variant]. *) +type variant = + | TagA (** This comment is for [TagA]. *) + | ConstrB of int (** This comment is for [ConstrB]. *) + | ConstrC of int * int (** This comment is for binary [ConstrC]. *) + | ConstrD of (int * int) + (** This comment is for unary [ConstrD] of binary tuple. *) +(** This comment is also for [variant]. *) + +(** This comment is for [poly_variant]. *) +type poly_variant = [ `TagA | `ConstrB of int ] +(** Wow! It was a polymorphic variant! *) + +(** This comment is for [full_gadt]. *) +type (_, _) full_gadt = + | Tag : (unit, unit) full_gadt + | First : 'a -> ('a, unit) full_gadt + | Second : 'a -> (unit, 'a) full_gadt + | Exist : 'a * 'b -> ('b, unit) full_gadt (** *) +(** Wow! It was a GADT! *) + +(** This comment is for [partial_gadt]. *) +type 'a partial_gadt = + | AscribeTag : 'a partial_gadt + | OfTag of 'a partial_gadt + | ExistGadtTag : ('a -> 'b) -> 'a partial_gadt (** *) +(** Wow! It was a mixed GADT! *) + +type alias = variant +(** This comment is for [alias]. *) + +type tuple = (alias * alias) * alias * (alias * alias) +(** This comment is for [tuple]. *) + +(** This comment is for [variant_alias]. *) +type variant_alias = variant = + | TagA + | ConstrB of int + | ConstrC of int * int + | ConstrD of (int * int) + +type record_alias = record = { field1 : int; field2 : int } +(** This comment is for [record_alias]. *) + +type poly_variant_union = [ poly_variant | `TagC ] +(** This comment is for [poly_variant_union]. *) + +type 'a poly_poly_variant = [ `TagA of 'a ] + +type ('a, 'b) bin_poly_poly_variant = [ `TagA of 'a | `ConstrB of 'b ] + +(* TODO: figure out how to spec a conjunctive type +type amb_poly_variant = [ +| unit poly_poly_variant +| (int,unit) bin_poly_poly_variant +| `TagC +] +*) + +type 'a open_poly_variant = [> `TagA ] as 'a + +type 'a open_poly_variant2 = [> `ConstrB of int ] as 'a + +type 'a open_poly_variant_alias = 'a open_poly_variant open_poly_variant2 + +type 'a poly_fun = ([> `ConstrB of int ] as 'a) -> 'a + +type 'a poly_fun_constraint = 'a -> 'a constraint 'a = [> `TagA ] + +type 'a closed_poly_variant = [< `One | `Two ] as 'a + +type 'a clopen_poly_variant = + [< `One | `Two of int | `Three > `Two `Three ] as 'a + +type nested_poly_variant = + [ `A | `B of [ `B1 | `B2 ] | `C | `D of [ `D1 of [ `D1a ] ] ] + +(** This comment is for [full_gadt_alias]. *) +type ('a, 'b) full_gadt_alias = ('a, 'b) full_gadt = + | Tag : (unit, unit) full_gadt_alias + | First : 'a -> ('a, unit) full_gadt_alias + | Second : 'a -> (unit, 'a) full_gadt_alias + | Exist : 'a * 'b -> ('b, unit) full_gadt_alias + +(** This comment is for [partial_gadt_alias]. *) +type 'a partial_gadt_alias = 'a partial_gadt = + | AscribeTag : 'a partial_gadt_alias + | OfTag of 'a partial_gadt_alias + | ExistGadtTag : ('a -> 'b) -> 'a partial_gadt_alias + +exception Exn_arrow : unit -> exn +(** This comment is for {!Exn_arrow}. *) + +(** This comment is for {!mutual_constr_a} then {!mutual_constr_b}. *) +type mutual_constr_a = + | A + | B_ish of mutual_constr_b + (** This comment is between {!mutual_constr_a} and {!mutual_constr_b}. *) + +(** This comment is for {!mutual_constr_b} then {!mutual_constr_a}. *) +and mutual_constr_b = + | B + | A_ish of mutual_constr_a + (** This comment must be here for the next to associate correctly. *) + +type rec_obj = < f : int ; g : unit -> unit ; h : rec_obj > + +type 'a open_obj = < f : int ; g : unit -> unit ; .. > as 'a + +type 'a oof = (< a : unit ; .. > as 'a) -> 'a + +type 'a any_obj = < .. > as 'a + +type empty_obj = < > + +type one_meth = < meth : unit > + +type ext = .. +(** A mystery wrapped in an ellipsis *) + +type ext += ExtA + +type ext += ExtB + +type ext += ExtC of unit | ExtD of ext + +type ext += ExtE + +type ext += private ExtF + +type 'a poly_ext = .. +(** 'a poly_ext *) + +type 'b poly_ext += Foo of 'b | Bar of 'b * 'b (** 'b poly_ext *) + +type 'c poly_ext += Quux of 'c (** 'c poly_ext *) + +module ExtMod : sig + type t = .. + + type t += Leisureforce +end + +type ExtMod.t += ZzzTop0 (** It's got the rock *) + +type ExtMod.t += ZzzTop of unit (** and it packs a unit. *) + +external launch_missiles : unit -> unit = "tetris" +(** Rotate keys on my mark... *) + +type my_mod = (module COLLECTION) +(** A brown paper package tied up with string*) + +class empty_class : object end + +class one_method_class : + object + method go : unit + end + +class two_method_class : + object + method one : one_method_class + + method undo : unit + end + +class ['a] param_class : + 'a + -> object + method v : 'a + end + +type my_unit_object = unit param_class + +type 'a my_unit_class = unit #param_class as 'a + +(* Bug in compiler breaks this example on cmi's *) +(* class type my_unit_class_type = [unit] param_class *) + +(* TODO: classes, class types, ...? *) + +(* Test resolution of dependently typed modules *) +module Dep1 : sig + module type S = sig + class c : + object + method m : int + end + end + + module X : sig + module Y : S + end +end + +module Dep2 : functor + (Arg : sig + module type S + + module X : sig + module Y : S + end + end) + -> sig + module A : sig + module Y : Arg.S + end + + module B = A.Y +end + +type dep1 = Dep2(Dep1).B.c + +module Dep3 : sig + type a +end + +module Dep4 : sig + module type T = sig + type b + end + + module type S = sig + module X : T + + module Y : sig end + end + + module X : T +end + +module Dep5 : functor + (Arg : sig + module type T + + module type S = sig + module X : T + + module Y : sig end + end + + module X : T + end) + -> sig + module Z : Arg.S with module Y = Dep3 +end + +type dep2 = Dep5(Dep4).Z.X.b + +type dep3 = Dep5(Dep4).Z.Y.a + +module Dep6 : sig + module type S = sig + type d + end + + module type T = sig + module type R = S + + module Y : R + end + + module X : T +end + +module Dep7 : functor + (Arg : sig + module type S + + module type T = sig + module type R = S + + module Y : R + end + + module X : T + end) + -> sig + module M : Arg.T +end + +type dep4 = Dep7(Dep6).M.Y.d + +module Dep8 : sig + module type T = sig + type t + end +end + +module Dep9 : functor + (X : sig + module type T + end) + -> sig + module type T = X.T +end + +module type Dep10 = Dep9(Dep8).T with type t = int + +module Dep11 : sig + module type S = sig + class c : + object + method m : int + end + end +end + +module Dep12 : functor + (Arg : sig + module type S + end) + -> sig + module type T = Arg.S +end + +module Dep13 : Dep12(Dep11).T + +type dep5 = Dep13.c + +(* Test resolution of difficult with examples *) + +module type With1 = sig + module M : sig + module type S + end + + module N : M.S +end + +module With2 : sig + module type S = sig + type t + end +end + +module With3 : With1 with module M = With2 + +type with1 = With3.N.t + +module With4 : With1 with module M := With2 + +type with2 = With4.N.t + +module With5 : sig + module type S = sig + type t + end + + module N : S +end + +module With6 : sig + module type T = sig + module M : sig + module type S + + module N : S + end + end +end + +module With7 : functor + (X : sig + module type T + end) + -> sig + module type T = X.T +end + +module type With8 = + With7(With6).T with module M = With5 and type M.N.t = With5.N.t + +module With9 : sig + module type S = sig + type t + end +end + +module With10 : sig + (** {!With10.T} is a submodule type. *) + module type T = sig + module M : sig + module type S + end + + module N : M.S + end +end + +module type With11 = With7(With10).T with module M = With9 and type N.t = int + +module type NestedInclude1 = sig + module type NestedInclude2 = sig + type nested_include + end +end + +include NestedInclude1 + +include NestedInclude2 with type nested_include = int + +module DoubleInclude1 : sig + module DoubleInclude2 : sig + type double_include + end +end + +module DoubleInclude3 : sig + include module type of DoubleInclude1 +end + +include module type of DoubleInclude3.DoubleInclude2 + +module IncludeInclude1 : sig + module type IncludeInclude2 = sig + type include_include + end +end + +include module type of IncludeInclude1 + +include IncludeInclude2 + +(** {1:indexmodules Trying the \{!modules: ...\} command.} + + With ocamldoc, toplevel units will be linked and documented, while + submodules will behave as simple references. + + With odoc, everything should be resolved (and linked) but only toplevel + units will be documented. + + {!modules: Dep1.X DocOckTypes Ocamlary.IncludeInclude1 Ocamlary} + + {3 Weirder usages involving module types} + + {!modules: IncludeInclude1.IncludeInclude2 Dep4.T A.Q} +*) + +(** {1 Playing with \@canonical paths} *) + +module CanonicalTest : sig + module Base__List : sig + type 'a t + + val id : 'a t -> 'a t + end + + module Base__ : sig + module List = Base__List + (** @canonical Ocamlary.CanonicalTest.Base.List *) + end + + module Base : sig + module List = Base__.List + end + + module Base__Tests : sig + module C : module type of Base__.List + + open Base__ + module L = List + + val foo : int L.t -> float L.t + + val bar : 'a List.t -> 'a List.t + (** This is just {!List.id}, or rather {!L.id} *) + + val baz : 'a Base__.List.t -> unit + (** Just seeing if {!Base__.List.t} ([Base__.List.t]) gets rewriten to + {!Base.List.t} ([Base.List.t]) *) + end + + module List_modif : module type of Base.List with type 'c t = 'c Base__.List.t +end + +val test : 'a CanonicalTest.Base__.List.t -> unit +(** Some ref to {!CanonicalTest.Base__Tests.C.t} and {!CanonicalTest.Base__Tests.L.id}. + But also to {!CanonicalTest.Base__.List} and {!CanonicalTest.Base__.List.t} *) + +(** {1:aliases Aliases again} *) + +module Aliases : sig + (** Let's imitate jst's layout. *) + + module Foo__A : sig + type t + + val id : t -> t + end + + module Foo__B : sig + type t + + val id : t -> t + end + + module Foo__C : sig + type t + + val id : t -> t + end + + module Foo__D : sig + type t + + val id : t -> t + end + + module Foo__E : sig + type t + + val id : t -> t + end + + module Foo__ : sig + module A = Foo__A + (** @canonical Ocamlary.Aliases.Foo.A *) + + module B = Foo__B + (** @canonical Ocamlary.Aliases.Foo.B *) + + module C = Foo__C + (** @canonical Ocamlary.Aliases.Foo.C *) + + module D = Foo__D + (** @canonical Ocamlary.Aliases.Foo.D *) + + module E = Foo__E + end + + module Foo : sig + open Foo__ + module A = A + module B = B + module C = C + module D = D + module E = E + end + + module A' = Foo.A + + type tata = Foo.A.t + + type tbtb = Foo__.B.t + + type tete = Foo__.E.t + + type tata' = A'.t + + type tete2 = Foo.E.t + + module Std : sig + module A = Foo.A + module B = Foo.B + module C = Foo.C + module D = Foo.D + module E = Foo.E + end + + type stde = Std.E.t + + (** {3:incl include of Foo} + + Just for giggle, let's see what happens when we include {!module-Foo}. *) + + include module type of Foo + + type testa = A.t + + (** And also, let's refer to {!type:module-A.t} and {!Foo.B.id} *) + + module P1 : sig + (** @canonical Ocamlary.Aliases.P2.Z *) + module Y : sig + type t + + val id : t -> t + end + end + + module P2 : sig + module Z = P1.Y + end + + module X1 = P1.Y + module X2 = P2.Z + + type p1 = X1.t + + type p2 = X2.t +end + +(** {1 Section title splicing} + + I can refer to + - [{!section:indexmodules}] : {!section:indexmodules} + - [{!aliases}] : {!aliases} + + But also to things in submodules: + - [{!section:SuperSig.SubSigA.subSig}] : {!section:SuperSig.SubSigA.subSig} + - [{!Aliases.incl}] : {!Aliases.incl} + + And just to make sure we do not mess up: + - [{{!section:indexmodules}A}] : {{!section:indexmodules}A} + - [{{!aliases}B}] : {{!aliases}B} + - [{{!section:SuperSig.SubSigA.subSig}C}] : + {{!section:SuperSig.SubSigA.subSig}C} + - [{{!Aliases.incl}D}] : {{!Aliases.incl}D} +*) + +(** {1 New reference syntax} *) + +module type M = sig + type t +end + +module M : sig + type t +end + +(** Here goes: + - [{!module-M.t}] : {!module-M.t} + - [{!module-type-M.t}] : {!module-type-M.t} *) + +module Only_a_module : sig + type t +end + +(** Some here should fail: + - [{!Only_a_module.t}] : {!Only_a_module.t} + - [{!module-Only_a_module.t}] : {!module-Only_a_module.t} + - [{!module-type-Only_a_module.t}] : {!module-type-Only_a_module.t} : {{!module-type-Only_a_module.t}test}*) + +module type TypeExt = sig + type t = .. + + type t += C + + val f : t -> unit +end + +type new_t = .. + +type new_t += C + +module type TypeExtPruned = TypeExt with type t := new_t diff --git a/test/generators/cases/recent.mli b/test/generators/cases/recent.mli new file mode 100644 index 0000000000..a6ceb09654 --- /dev/null +++ b/test/generators/cases/recent.mli @@ -0,0 +1,58 @@ +(* These tests are run on only the most recent version of the compiler that is + explicitly supported by odoc. This allows us to test doc generation for new + language features. *) + +module type S = sig end + +module type S1 = S -> S + +type variant = + | A + | B of int + | C (** foo *) + | D (** {e bar} *) + | E of {a : int} + +type _ gadt = + | A : int gadt + | B : int -> string gadt (** foo *) + | C : {a : int} -> unit gadt + +type polymorphic_variant = [ + | `A + | `B of int + | `C (** foo *) + | `D (** bar *) +] + +type empty_variant = | + +type nonrec nonrec_ = int + + +(* Conjunctive types: dune compilation scheme exposes a bug in old + versions of the compiler *) +type empty_conj= X: [< `X of & 'a & int * float ] -> empty_conj +type conj = X: [< `X of int & [< `B of int & float ] ] -> conj +val empty_conj: [< `X of & 'a & int * float ] +val conj : [< `X of int & [< `B of int & float ] ] + +module Z : sig + module Y : sig + module X : sig + type 'a t + end + end +end + +module X : sig + module L := Z.Y + type t = int L.X.t + type u := int + type v = u L.X.t +end + +module type PolyS = + sig type a = [ `A ] type t = [ a | `B ] end with type a := [ `A ] + + diff --git a/test/generators/cases/recent_impl.ml b/test/generators/cases/recent_impl.ml new file mode 100644 index 0000000000..7aa10c958d --- /dev/null +++ b/test/generators/cases/recent_impl.ml @@ -0,0 +1,29 @@ +module Foo = struct + module A = struct + type t = A + end + module B = struct + type t = B + end +end + +open (Foo : module type of Foo with module A := Foo.A) + +module B = B + +open Set.Make(struct type t = Foo.A.t let compare = compare end) + +type u = t + +module type S = sig + module F: sig end -> sig type t end + module X: sig end + open F(X) + val f: t +end + +open Foo + +(* Check that regular open still works as expected *) +module B' = B + diff --git a/test/generators/cases/section.mli b/test/generators/cases/section.mli new file mode 100644 index 0000000000..44e14fa9f0 --- /dev/null +++ b/test/generators/cases/section.mli @@ -0,0 +1,30 @@ +(* Blank lines are needed because of + https://caml.inria.fr/mantis/view.php?id=7701. *) + +(** This is the module comment. Eventually, sections won't be allowed in it. *) + +(** {1 Empty section} *) + +(** {1 Text only} + + Foo bar. *) + +(** {1 Aside only} *) + +(** Foo bar. *) + +(** {1 Value only} *) + +val foo : unit + +(** {1 Empty section} + + {1 within a comment} + + {2 and one with a nested section} *) + +(** {1 {e This} [section] {b title} {_has} {^markup}} + + But links are impossible thanks to the parser, so we never have trouble + rendering a section title in a table of contents – no link will be nested + inside another link. *) diff --git a/test/generators/cases/stop.mli b/test/generators/cases/stop.mli new file mode 100644 index 0000000000..789257b134 --- /dev/null +++ b/test/generators/cases/stop.mli @@ -0,0 +1,42 @@ +(** This test cases exercises stop comments. *) + +val foo : int +(** This is normal commented text. *) + +(** The next value is [bar], and it should be missing from the documentation. + There is also an entire module, [M], which should also be hidden. It + contains a nested stop comment, but that stop comment should not turn + documentation back on in this outer module, because stop comments respect + scope. *) + +(**/**) + +val bar : int +(** OMG! *) + +module M : +sig + val baz : int + + (**/**) +end + +(**/**) + +(** Documentation is on again. + + Now, we have a nested module, and it has a stop comment between its two + items. We want to see that the first item is displayed, but the second is + missing, and the stop comment disables documenation only in that module, and + not in this outer module. *) + +module N : +sig + val quux : int + + (**/**) + + val omg : int +end + +val lol : int diff --git a/test/generators/cases/stop_dead_link_doc.mli b/test/generators/cases/stop_dead_link_doc.mli new file mode 100644 index 0000000000..351e2b1b6c --- /dev/null +++ b/test/generators/cases/stop_dead_link_doc.mli @@ -0,0 +1,27 @@ +(* This tests that references to hidden items (items in no documentation mode) don't get rendered *) + +module Foo : sig + type t +end + +type foo = | Bar of Foo.t + +type bar = | Bar of { field : Foo.t } + +type foo_ = Bar_ of (int * Foo.t) * int +type bar_ = Bar__ of Foo.t option + +(**/**) +module Another_Foo : sig + type t +end +(**/**) + +(* this should be rendered as `type another_foo` because it contains a reference to a hidden module*) +type another_foo = | Bar of Another_Foo.t + +(* this should be rendered as `type another_bar` because it contains a reference to a hidden module*) +type another_bar = | Bar of { field : Another_Foo.t } + +type another_foo_ = Bar_ of (int * Another_Foo.t) * int +type another_bar_ = Bar__ of Another_Foo.t option diff --git a/test/generators/cases/toplevel_comments.mli b/test/generators/cases/toplevel_comments.mli new file mode 100644 index 0000000000..93dc362a58 --- /dev/null +++ b/test/generators/cases/toplevel_comments.mli @@ -0,0 +1,72 @@ +(** A doc comment at the beginning of a module is considered to be that + module's doc. *) + +(** Doc of [T], part 1. *) +module type T = sig + (** Doc of [T], part 2. *) + + type t +end + +module Include_inline : sig + include T + (** @inline *) +end + +(** Doc of [Include_inline], part 1. *) +module Include_inline' : sig + (** Doc of [Include_inline], part 2. *) + + include T + (** part 3 + @inline *) +end + +module type Include_inline_T = sig + include T + (** @inline *) +end + +(** Doc of [Include_inline_T'], part 1. *) +module type Include_inline_T' = sig + (** Doc of [Include_inline_T'], part 2. *) + + include T + (** part 3 + @inline *) +end + +module M : sig + + (** Doc of [M] *) +end + +module M' : sig end +(** Doc of [M'] from outside *) + +(** Doc of [M''], part 1. *) +module M'' : sig + + (** Doc of [M''], part 2. *) +end + +module Alias : T +(** Doc of [Alias]. *) + +(** Doc of [c1], part 1. *) +class c1 : + int + -> object + + (** Doc of [c1], part 2. *) + end + +(** Doc of [ct], part 1. *) +class type ct = + object + + (** Doc of [ct], part 2. *) + end + +class c2 : ct +(** Doc of [c2]. *) diff --git a/test/generators/cases/type.mli b/test/generators/cases/type.mli new file mode 100644 index 0000000000..228aeec027 --- /dev/null +++ b/test/generators/cases/type.mli @@ -0,0 +1,138 @@ +type abstract +(** Some {e documentation}. *) + +type alias = int + +type private_ = private int + +type 'a constructor = 'a + +type arrow = int -> int + +type higher_order = (int -> int) -> int + +type labeled = l:int -> int + +type optional = ?l:int -> int + +type labeled_higher_order = (l:int -> int) -> (?l:int -> int) -> int + +type pair = int * int + +type parens_dropped = (int * int) + +type triple = int * int * int + +type nested_pair = (int * int) * int + +type instance = int constructor + +type long = labeled_higher_order -> [ `Bar | `Baz of triple] -> pair -> labeled -> higher_order -> (string -> int) -> (int,float,char,string,char,unit) CamlinternalFormatBasics.fmtty -> nested_pair -> arrow -> string -> nested_pair array + +type variant_e = {a : int} +type variant = + | A + | B of int + | C (** foo *) + | D (** {e bar} *) + | E of variant_e + +type variant_c = {a: int} +type _ gadt = + | A : int gadt + | B : int -> string gadt + | C : variant_c -> unit gadt + +type degenerate_gadt = + | A : degenerate_gadt + +type private_variant = private A + +type record = { + a : int; + mutable b : int; + c : int; (** foo *) + d : int; (** {e bar} *) + e : 'a. 'a; +} + +(* 4.02 doesn't preserve doc comments on polymorphic variant constructors, but + they should be restored if 4.02 support is dropped, or if creating a test + that won't run on 4.02. *) +type polymorphic_variant = [ + | `A + | `B of int + | `C of int * unit + | `D +] + +type polymorphic_variant_extension = [ + | polymorphic_variant (** {not e} shown *) + | `E +] + +type nested_polymorphic_variant = [ + | `A of [ `B | `C ] +] + +type private_extenion = private [> polymorphic_variant ] + +type object_ = < + a : int; + b : int; (** foo *) + c : int; (** {e bar} *) +> + +module type X = sig type t type u end + +type module_ = (module X) + +type module_substitution = (module X with type t = int and type u = unit) + +type +'a covariant + +type -'a contravariant + +type _ bivariant = int + +type ('a, 'b) binary + +type using_binary = (int, int) binary + +type 'custom name + +type 'a constrained = 'a constraint 'a = int + +type 'a exact_variant = 'a constraint 'a = [ `A | `B of int ] + +type 'a lower_variant = 'a constraint 'a = [> `A | `B of int ] + +type 'a any_variant = 'a constraint 'a = [> ] + +type 'a upper_variant = 'a constraint 'a = [< `A | `B of int ] + +type 'a named_variant = 'a constraint 'a = [< polymorphic_variant ] + +type 'a exact_object = 'a constraint 'a = + +type 'a lower_object = 'a constraint 'a = + +type 'a poly_object = 'a constraint 'a = + +type ('a, 'b) double_constrained = 'a * 'b + constraint 'a = int + constraint 'b = unit + +type as_ = (int as 'a) * 'a + +type extensible = .. + +type extensible += + | Extension (** Documentation for {!Extension}. *) + | Another_extension (** Documentation for {!Another_extension}. *) + +type mutually = A of recursive +and recursive = B of mutually + +(* Not a type, but analogous to extensions. *) +exception Foo of int * int diff --git a/test/generators/cases/val.mli b/test/generators/cases/val.mli new file mode 100644 index 0000000000..9503f92397 --- /dev/null +++ b/test/generators/cases/val.mli @@ -0,0 +1,7 @@ +val documented : unit +(** Foo. *) + +val undocumented : unit + +(** Bar. *) +val documented_above : unit From c389f4d22c9371fd89baa47544d52f2ada3c4fc3 Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Wed, 26 May 2021 17:13:02 +0300 Subject: [PATCH 06/10] modify Makefile Signed-off-by: lubegasimon --- Makefile | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/Makefile b/Makefile index 32500435cb..a85321b3e9 100644 --- a/Makefile +++ b/Makefile @@ -38,12 +38,7 @@ serve : .PHONY : test test : build - $(DUNE) runtest $(DUNE_ARGS) src/parser/test - $(DUNE) build $(DUNE_ARGS) @test/model/runtest --no-buffer -j 1 - $(DUNE) build $(DUNE_ARGS) @test/html/runtest --no-buffer -j 1 - $(DUNE) build $(DUNE_ARGS) @test/man/runtest --no-buffer -j 1 - $(DUNE) build $(DUNE_ARGS) @test/latex/runtest --no-buffer -j 1 - $(DUNE) build $(DUNE_ARGS) @test/xref2/runtest --no-buffer -j 1 + $(DUNE) runtest $(DUNE_ARGS) ODOC_RELATIVE_PATH := ../../_build/install/default/bin/ From 07ffb3936d362608c8d26e9643f18be03c0abfa7 Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Wed, 26 May 2021 17:14:13 +0300 Subject: [PATCH 07/10] handled cases post ocaml_version 4.08 Signed-off-by: lubegasimon --- .../cases_post408/cases/.ocamlformat | 1 + .../cases_post408/cases/bugs_post_406.mli | 10 + .../generators/cases_post408/cases/labels.mli | 58 +++ .../generators/cases_post408/cases/recent.mli | 60 ++++ .../cases_post408/cases/recent_impl.ml | 38 ++ test/generators/cases_post408/dune | 20 ++ test/generators/cases_post408/gen_link/dune | 5 + .../cases_post408/gen_link/gen_link.ml | 9 + .../Bugs_post_406.class-let_open'.index.html | 19 + ...gs_post_406.class-type-let_open.index.html | 19 + .../html/Bugs_post_406.index.html | 48 +++ .../cases_post408/html/Labels.A.index.html | 25 ++ .../html/Labels.class-c.index.html | 24 ++ .../html/Labels.class-type-cs.index.html | 25 ++ .../cases_post408/html/Labels.index.html | 202 +++++++++++ .../html/Labels.module-type-S.index.html | 25 ++ .../cases_post408/html/Recent.X.index.html | 61 ++++ .../html/Recent.Z.Y.X.index.html | 29 ++ .../cases_post408/html/Recent.Z.Y.index.html | 32 ++ .../cases_post408/html/Recent.Z.index.html | 32 ++ .../cases_post408/html/Recent.index.html | 340 ++++++++++++++++++ .../html/Recent.module-type-PolyS.index.html | 41 +++ .../html/Recent.module-type-S.index.html | 19 + ...ent.module-type-S1.argument-1-_.index.html | 20 ++ .../html/Recent.module-type-S1.index.html | 38 ++ .../html/Recent_impl.B.index.html | 37 ++ .../html/Recent_impl.Foo.A.index.html | 38 ++ .../html/Recent_impl.Foo.B.index.html | 38 ++ .../html/Recent_impl.Foo.index.html | 43 +++ .../cases_post408/html/Recent_impl.index.html | 69 ++++ ...pl.module-type-S.F.argument-1-_.index.html | 21 ++ .../Recent_impl.module-type-S.F.index.html | 46 +++ .../Recent_impl.module-type-S.X.index.html | 19 + .../html/Recent_impl.module-type-S.index.html | 55 +++ test/generators/cases_post408/html/dune | 1 + .../cases_post408/html/gen_html/dune | 5 + .../cases_post408/html/gen_html/gen_html.ml | 6 + .../cases_post408/html/html.dune.inc | 333 +++++++++++++++++ .../latex/Bugs_post_406.let_open'.tex | 3 + .../cases_post408/latex/Bugs_post_406.tex | 8 + .../cases_post408/latex/Labels.c.tex | 4 + .../generators/cases_post408/latex/Labels.tex | 58 +++ .../generators/cases_post408/latex/Recent.tex | 78 ++++ .../cases_post408/latex/Recent_impl.B.tex | 7 + .../cases_post408/latex/Recent_impl.tex | 32 ++ test/generators/cases_post408/latex/dune | 1 + .../cases_post408/latex/gen_latex/dune | 5 + .../latex/gen_latex/gen_latex.ml | 6 + .../cases_post408/latex/latex.dune.inc | 96 +++++ test/generators/cases_post408/link.dune.inc | 134 +++++++ .../cases_post408/man/Bugs_post_406.3o | 19 + .../man/Bugs_post_406.let_open'.3o | 14 + test/generators/cases_post408/man/Labels.3o | 154 ++++++++ test/generators/cases_post408/man/Labels.A.3o | 19 + test/generators/cases_post408/man/Labels.c.3o | 19 + test/generators/cases_post408/man/Recent.3o | 145 ++++++++ test/generators/cases_post408/man/Recent.X.3o | 20 ++ test/generators/cases_post408/man/Recent.Z.3o | 14 + .../cases_post408/man/Recent.Z.Y.3o | 14 + .../cases_post408/man/Recent.Z.Y.X.3o | 14 + .../cases_post408/man/Recent_impl.3o | 50 +++ .../cases_post408/man/Recent_impl.B.3o | 19 + .../cases_post408/man/Recent_impl.Foo.3o | 16 + .../cases_post408/man/Recent_impl.Foo.A.3o | 19 + .../cases_post408/man/Recent_impl.Foo.B.3o | 19 + test/generators/cases_post408/man/dune | 1 + .../generators/cases_post408/man/gen_man/dune | 5 + .../cases_post408/man/gen_man/gen_man.ml | 6 + .../generators/cases_post408/man/man.dune.inc | 184 ++++++++++ 69 files changed, 3094 insertions(+) create mode 100644 test/generators/cases_post408/cases/.ocamlformat create mode 100644 test/generators/cases_post408/cases/bugs_post_406.mli create mode 100644 test/generators/cases_post408/cases/labels.mli create mode 100644 test/generators/cases_post408/cases/recent.mli create mode 100644 test/generators/cases_post408/cases/recent_impl.ml create mode 100644 test/generators/cases_post408/dune create mode 100644 test/generators/cases_post408/gen_link/dune create mode 100644 test/generators/cases_post408/gen_link/gen_link.ml create mode 100644 test/generators/cases_post408/html/Bugs_post_406.class-let_open'.index.html create mode 100644 test/generators/cases_post408/html/Bugs_post_406.class-type-let_open.index.html create mode 100644 test/generators/cases_post408/html/Bugs_post_406.index.html create mode 100644 test/generators/cases_post408/html/Labels.A.index.html create mode 100644 test/generators/cases_post408/html/Labels.class-c.index.html create mode 100644 test/generators/cases_post408/html/Labels.class-type-cs.index.html create mode 100644 test/generators/cases_post408/html/Labels.index.html create mode 100644 test/generators/cases_post408/html/Labels.module-type-S.index.html create mode 100644 test/generators/cases_post408/html/Recent.X.index.html create mode 100644 test/generators/cases_post408/html/Recent.Z.Y.X.index.html create mode 100644 test/generators/cases_post408/html/Recent.Z.Y.index.html create mode 100644 test/generators/cases_post408/html/Recent.Z.index.html create mode 100644 test/generators/cases_post408/html/Recent.index.html create mode 100644 test/generators/cases_post408/html/Recent.module-type-PolyS.index.html create mode 100644 test/generators/cases_post408/html/Recent.module-type-S.index.html create mode 100644 test/generators/cases_post408/html/Recent.module-type-S1.argument-1-_.index.html create mode 100644 test/generators/cases_post408/html/Recent.module-type-S1.index.html create mode 100644 test/generators/cases_post408/html/Recent_impl.B.index.html create mode 100644 test/generators/cases_post408/html/Recent_impl.Foo.A.index.html create mode 100644 test/generators/cases_post408/html/Recent_impl.Foo.B.index.html create mode 100644 test/generators/cases_post408/html/Recent_impl.Foo.index.html create mode 100644 test/generators/cases_post408/html/Recent_impl.index.html create mode 100644 test/generators/cases_post408/html/Recent_impl.module-type-S.F.argument-1-_.index.html create mode 100644 test/generators/cases_post408/html/Recent_impl.module-type-S.F.index.html create mode 100644 test/generators/cases_post408/html/Recent_impl.module-type-S.X.index.html create mode 100644 test/generators/cases_post408/html/Recent_impl.module-type-S.index.html create mode 100644 test/generators/cases_post408/html/dune create mode 100644 test/generators/cases_post408/html/gen_html/dune create mode 100644 test/generators/cases_post408/html/gen_html/gen_html.ml create mode 100644 test/generators/cases_post408/html/html.dune.inc create mode 100644 test/generators/cases_post408/latex/Bugs_post_406.let_open'.tex create mode 100644 test/generators/cases_post408/latex/Bugs_post_406.tex create mode 100644 test/generators/cases_post408/latex/Labels.c.tex create mode 100644 test/generators/cases_post408/latex/Labels.tex create mode 100644 test/generators/cases_post408/latex/Recent.tex create mode 100644 test/generators/cases_post408/latex/Recent_impl.B.tex create mode 100644 test/generators/cases_post408/latex/Recent_impl.tex create mode 100644 test/generators/cases_post408/latex/dune create mode 100644 test/generators/cases_post408/latex/gen_latex/dune create mode 100644 test/generators/cases_post408/latex/gen_latex/gen_latex.ml create mode 100644 test/generators/cases_post408/latex/latex.dune.inc create mode 100644 test/generators/cases_post408/link.dune.inc create mode 100644 test/generators/cases_post408/man/Bugs_post_406.3o create mode 100644 test/generators/cases_post408/man/Bugs_post_406.let_open'.3o create mode 100644 test/generators/cases_post408/man/Labels.3o create mode 100644 test/generators/cases_post408/man/Labels.A.3o create mode 100644 test/generators/cases_post408/man/Labels.c.3o create mode 100644 test/generators/cases_post408/man/Recent.3o create mode 100644 test/generators/cases_post408/man/Recent.X.3o create mode 100644 test/generators/cases_post408/man/Recent.Z.3o create mode 100644 test/generators/cases_post408/man/Recent.Z.Y.3o create mode 100644 test/generators/cases_post408/man/Recent.Z.Y.X.3o create mode 100644 test/generators/cases_post408/man/Recent_impl.3o create mode 100644 test/generators/cases_post408/man/Recent_impl.B.3o create mode 100644 test/generators/cases_post408/man/Recent_impl.Foo.3o create mode 100644 test/generators/cases_post408/man/Recent_impl.Foo.A.3o create mode 100644 test/generators/cases_post408/man/Recent_impl.Foo.B.3o create mode 100644 test/generators/cases_post408/man/dune create mode 100644 test/generators/cases_post408/man/gen_man/dune create mode 100644 test/generators/cases_post408/man/gen_man/gen_man.ml create mode 100644 test/generators/cases_post408/man/man.dune.inc diff --git a/test/generators/cases_post408/cases/.ocamlformat b/test/generators/cases_post408/cases/.ocamlformat new file mode 100644 index 0000000000..4d6556cb8b --- /dev/null +++ b/test/generators/cases_post408/cases/.ocamlformat @@ -0,0 +1 @@ +disable = true diff --git a/test/generators/cases_post408/cases/bugs_post_406.mli b/test/generators/cases_post408/cases/bugs_post_406.mli new file mode 100644 index 0000000000..757c001a02 --- /dev/null +++ b/test/generators/cases_post408/cases/bugs_post_406.mli @@ -0,0 +1,10 @@ +(** Let-open in class types, https://github.com/ocaml/odoc/issues/543 + This was added to the language in 4.06 *) + +class type let_open = + let open List in + object end + +class let_open' : + let open List in + object end diff --git a/test/generators/cases_post408/cases/labels.mli b/test/generators/cases_post408/cases/labels.mli new file mode 100644 index 0000000000..f180a63deb --- /dev/null +++ b/test/generators/cases_post408/cases/labels.mli @@ -0,0 +1,58 @@ +(** {1:L1 Attached to unit} *) + +(** {1:L2 Attached to nothing} *) + +module A : sig end +(** {1:L3 Attached to module} *) + +type t +(** {1:L4 Attached to type} *) + +val f : t +(** {1:L5 Attached to value} *) + +external e : unit -> t = "t" +(** {1:L5bis Attached to external} *) + +module type S = sig end +(** {1:L6 Attached to module type} *) + +class c : object end +(** {1:L6 Attached to class} *) + +class type cs = object end +(** {1:L7 Attached to class type} *) + +exception E +(** {1:L8 Attached to exception} *) + +type x = .. + +(** {1:L9 Attached to extension} *) +type x += X + +module S := A +(** {1:L10 Attached to module subst} *) + +type s := t +(** {1:L11 Attached to type subst} *) + +type u = A' (** {1:L12 Attached to constructor} *) + +type v = { f : t (** {1:L13 Attached to field} *) } + +(** Testing that labels can be referenced + - {!L1} + - {!L2} + - {!L3} + - {!L4} + - {!L5} + - {!L6} + - {!L7} + - {!L8} + - {!L9} + - {!L10} + - {!L11} + - {!L12} + - {!L13} + *) diff --git a/test/generators/cases_post408/cases/recent.mli b/test/generators/cases_post408/cases/recent.mli new file mode 100644 index 0000000000..773504acf8 --- /dev/null +++ b/test/generators/cases_post408/cases/recent.mli @@ -0,0 +1,60 @@ +(* These tests are run on only the most recent version of the compiler that is + explicitly supported by odoc. This allows us to test doc generation for new + language features. *) + +module type S = sig end + +module type S1 = functor (_ : S) -> S + +type variant = + | A + | B of int + | C (** foo *) + | D (** {e bar} *) + | E of { a : int } + +type _ gadt = + | A : int gadt + | B : int -> string gadt (** foo *) + | C : { a : int } -> unit gadt + +type polymorphic_variant = [ `A | `B of int | `C (** foo *) | `D (** bar *) ] + +type empty_variant = | + +type nonrec nonrec_ = int + +(* Conjunctive types: dune compilation scheme exposes a bug in old + versions of the compiler *) +type empty_conj = X : [< `X of & 'a & int * float ] -> empty_conj + +type conj = X : [< `X of int & [< `B of int & float ] ] -> conj + +val empty_conj : [< `X of & 'a & int * float ] + +val conj : [< `X of int & [< `B of int & float ] ] + +module Z : sig + module Y : sig + module X : sig + type 'a t + end + end +end + +module X : sig + module L := Z.Y + + type t = int L.X.t + + type u := int + + type v = u L.X.t +end + +module type PolyS = sig + type a = [ `A ] + + type t = [ a | `B ] +end +with type a := [ `A ] diff --git a/test/generators/cases_post408/cases/recent_impl.ml b/test/generators/cases_post408/cases/recent_impl.ml new file mode 100644 index 0000000000..fce38772f0 --- /dev/null +++ b/test/generators/cases_post408/cases/recent_impl.ml @@ -0,0 +1,38 @@ +module Foo = struct + module A = struct + type t = A + end + + module B = struct + type t = B + end +end + +open (Foo : module type of Foo with module A := Foo.A) + +module B = B + +open Set.Make (struct + type t = Foo.A.t + + let compare = compare +end) + +type u = t + +module type S = sig + module F (_ : sig end) : sig + type t + end + + module X : sig end + + open F(X) + + val f : t +end + +open Foo + +(* Check that regular open still works as expected *) +module B' = B diff --git a/test/generators/cases_post408/dune b/test/generators/cases_post408/dune new file mode 100644 index 0000000000..212e15cda6 --- /dev/null +++ b/test/generators/cases_post408/dune @@ -0,0 +1,20 @@ +(include link.dune.inc) + +(rule + (deps + (glob_files cases/*)) + (enabled_if + (>= %{ocaml_version} 4.08)) + (action + (with-stdout-to + link.dune.inc.gen + (pipe-stdout + (run gen_link/gen_link.exe) + (run dune format-dune-file))))) + +(rule + (enabled_if + (>= %{ocaml_version} 4.08)) + (alias runtest) + (action + (diff link.dune.inc link.dune.inc.gen))) diff --git a/test/generators/cases_post408/gen_link/dune b/test/generators/cases_post408/gen_link/dune new file mode 100644 index 0000000000..7579f2ecf2 --- /dev/null +++ b/test/generators/cases_post408/gen_link/dune @@ -0,0 +1,5 @@ +(executable + (name gen_link) + (libraries gen_link_lib) + (enabled_if + (>= %{ocaml_version} 4.04))) diff --git a/test/generators/cases_post408/gen_link/gen_link.ml b/test/generators/cases_post408/gen_link/gen_link.ml new file mode 100644 index 0000000000..cdec4729d3 --- /dev/null +++ b/test/generators/cases_post408/gen_link/gen_link.ml @@ -0,0 +1,9 @@ +let () = + let paths = + Gen_link_lib.read_file_from_dir (Fpath.filename Gen_link_lib.cases) + in + let paths = + List.filter (fun p -> not (Gen_link_lib.is_dot_ocamlformat p)) paths + in + let stanzas = Gen_link_lib.gen_rule paths "4.08" in + List.iter (Sexplib0.Sexp.pp Format.std_formatter) stanzas diff --git a/test/generators/cases_post408/html/Bugs_post_406.class-let_open'.index.html b/test/generators/cases_post408/html/Bugs_post_406.class-let_open'.index.html new file mode 100644 index 0000000000..7e3ed2b285 --- /dev/null +++ b/test/generators/cases_post408/html/Bugs_post_406.class-let_open'.index.html @@ -0,0 +1,19 @@ + + + let_open' (test.Bugs_post_406.let_open') + + + + + + + + +
      +

      Class Bugs_post_406.let_open'

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Bugs_post_406.class-type-let_open.index.html b/test/generators/cases_post408/html/Bugs_post_406.class-type-let_open.index.html new file mode 100644 index 0000000000..081e6ce386 --- /dev/null +++ b/test/generators/cases_post408/html/Bugs_post_406.class-type-let_open.index.html @@ -0,0 +1,19 @@ + + + let_open (test.Bugs_post_406.let_open) + + + + + + + + +
      +

      Class type Bugs_post_406.let_open

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Bugs_post_406.index.html b/test/generators/cases_post408/html/Bugs_post_406.index.html new file mode 100644 index 0000000000..3719f6c912 --- /dev/null +++ b/test/generators/cases_post408/html/Bugs_post_406.index.html @@ -0,0 +1,48 @@ + + + Bugs_post_406 (test.Bugs_post_406) + + + + + + + + +
      +

      Module Bugs_post_406

      +

      Let-open in class types, https://github.com/ocaml/odoc/issues/543 + This was added to the language in 4.06 +

      +
      +
      +
      +
      + + + class + type + + let_open + = object ... + end + + +
      +
      +
      +
      + + class + let_open' + : object ... + end + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Labels.A.index.html b/test/generators/cases_post408/html/Labels.A.index.html new file mode 100644 index 0000000000..cd3086c154 --- /dev/null +++ b/test/generators/cases_post408/html/Labels.A.index.html @@ -0,0 +1,25 @@ + + + A (test.Labels.A) + + + + + + + + +
      +

      Module Labels.A

      +
      + +
      +

      Attached to module

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Labels.class-c.index.html b/test/generators/cases_post408/html/Labels.class-c.index.html new file mode 100644 index 0000000000..e5a3c5440e --- /dev/null +++ b/test/generators/cases_post408/html/Labels.class-c.index.html @@ -0,0 +1,24 @@ + + + c (test.Labels.c) + + + + + + + + +
      +

      Class Labels.c

      +
      + +
      +

      Attached to class

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Labels.class-type-cs.index.html b/test/generators/cases_post408/html/Labels.class-type-cs.index.html new file mode 100644 index 0000000000..01c4306d80 --- /dev/null +++ b/test/generators/cases_post408/html/Labels.class-type-cs.index.html @@ -0,0 +1,25 @@ + + + cs (test.Labels.cs) + + + + + + + + +
      +

      Class type Labels.cs

      +
      + +
      +

      Attached to class type

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Labels.index.html b/test/generators/cases_post408/html/Labels.index.html new file mode 100644 index 0000000000..124217ff85 --- /dev/null +++ b/test/generators/cases_post408/html/Labels.index.html @@ -0,0 +1,202 @@ + + + Labels (test.Labels) + + + + + + + + +
      +

      Module Labels

      +
      + +
      +

      Attached to unit

      +

      Attached to nothing

      +
      +
      + + module + A + : sig ... + end + + +
      +
      +
      +
      + + type t +

      Attached to type

      +
      +
      +
      + + + val f : t + + +

      Attached to value

      +
      +
      +
      + + + val e : + unit -> + t + + +

      Attached to external

      +
      +
      +
      + + + module + type + S + = sig ... + end + + +
      +
      +
      +
      + + class + c + : object ... + end + + +
      +
      +
      +
      + + + class + type + cs + = object ... + end + + +
      +
      +
      +
      + + exception + E + +

      Attached to exception

      +
      +
      +
      + + type x = + .. + +
      +
      +
      +
      + + type x += + + + + + + +
      + | X + +
      +

      Attached to extension

      +
      +
      +
      + + + module S := + A + + +

      Attached to module subst

      +
      +
      +
      + + type s + := t + +

      Attached to type subst

      +
      +
      +
      + + type u = + + + + + + +
      + + | A' + + (* +

      Attached to constructor

      *) +
      +
      +
      +
      +
      + + type v = + { + + + + + + +
      + f : t; + (* +

      Attached to field

      *) +
      } +
      +

      Testing that labels can be referenced

      + +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Labels.module-type-S.index.html b/test/generators/cases_post408/html/Labels.module-type-S.index.html new file mode 100644 index 0000000000..a310cc87a2 --- /dev/null +++ b/test/generators/cases_post408/html/Labels.module-type-S.index.html @@ -0,0 +1,25 @@ + + + S (test.Labels.S) + + + + + + + + +
      +

      Module type Labels.S

      +
      + +
      +

      Attached to module type

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent.X.index.html b/test/generators/cases_post408/html/Recent.X.index.html new file mode 100644 index 0000000000..8ab96fe918 --- /dev/null +++ b/test/generators/cases_post408/html/Recent.X.index.html @@ -0,0 +1,61 @@ + + + X (test.Recent.X) + + + + + + + + +
      +

      Module Recent.X

      +
      +
      +
      +
      + + + module L := + Z.Y + + +
      +
      +
      +
      + + type t + = + int Z.Y.X.t + + +
      +
      +
      +
      + + type u + := int + +
      +
      +
      +
      + + type v + = + u + Z.Y.X.t + + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent.Z.Y.X.index.html b/test/generators/cases_post408/html/Recent.Z.Y.X.index.html new file mode 100644 index 0000000000..0a7350116b --- /dev/null +++ b/test/generators/cases_post408/html/Recent.Z.Y.X.index.html @@ -0,0 +1,29 @@ + + + X (test.Recent.Z.Y.X) + + + + + + + + +

      Module Y.X

      +
      +
      +
      +
      + + type 'a t + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent.Z.Y.index.html b/test/generators/cases_post408/html/Recent.Z.Y.index.html new file mode 100644 index 0000000000..3d9b323258 --- /dev/null +++ b/test/generators/cases_post408/html/Recent.Z.Y.index.html @@ -0,0 +1,32 @@ + + + Y (test.Recent.Z.Y) + + + + + + + + +

      Module Z.Y

      +
      +
      +
      +
      + + module + X + : sig ... + end + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent.Z.index.html b/test/generators/cases_post408/html/Recent.Z.index.html new file mode 100644 index 0000000000..dc40eb2bbe --- /dev/null +++ b/test/generators/cases_post408/html/Recent.Z.index.html @@ -0,0 +1,32 @@ + + + Z (test.Recent.Z) + + + + + + + + +
      +

      Module Recent.Z

      +
      +
      +
      +
      + + module + Y + : sig ... + end + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent.index.html b/test/generators/cases_post408/html/Recent.index.html new file mode 100644 index 0000000000..f9903b7b42 --- /dev/null +++ b/test/generators/cases_post408/html/Recent.index.html @@ -0,0 +1,340 @@ + + + Recent (test.Recent) + + + + + + + + +
      +

      Module Recent

      +
      +
      +
      +
      + + + module + type + S + = sig ... + end + + +
      +
      +
      +
      + + + module + type + S1 + = functor + (_ + : S) + -> + S + + +
      +
      +
      +
      + + type variant + = + + + + + + + + + + + + + + + + + + + +
      + + | A + +
      + + | + B + of int + + +
      + + | C + + (*

      foo

      + *) +
      + + | D + + (* +

      bar

      *) +
      + + | + E + of + { + + + + + +
      + + a : int; +
      } +
      +
      +
      +
      +
      + + type _ gadt + = + + + + + + + + + + + + +
      + + | + A : + int gadt + + +
      + + | + B : int + -> + string gadt + + + (*

      foo

      + *) +
      + + | + C : { + + + + + +
      + + a : int; +
      + } + -> + unit gadt + + +
      +
      +
      +
      +
      + + type polymorphic_variant + = [ + + + + + + + + + + + + + + + + +
      + + | `A +
      + + | + `B of int +
      + + | `C + (*

      foo

      + *) +
      + + | `D + (*

      bar

      + *) +
      ] +
      +
      +
      +
      + + type empty_variant + = | + +
      +
      +
      +
      + + + type + nonrec nonrec_ + = int + +
      +
      +
      +
      + + type empty_conj + = + + + + + +
      + + | + X : + [< + `X of & 'a & int + * float + ] + -> + empty_conj + + +
      +
      +
      +
      +
      + + type conj + = + + + + + +
      + + | + X : + [< + `X of int & + [< `B of int & float ] + ] + -> + conj + + +
      +
      +
      +
      +
      + + + val empty_conj : + [< + `X of & 'a & int * float + ] + + + +
      +
      +
      +
      + + + val conj : + [< + `X of int & + [< `B of int & float ] + ] + + + +
      +
      +
      +
      + + module + Z + : sig ... + end + + +
      +
      +
      +
      + + module + X + : sig ... + end + + +
      +
      +
      +
      + + + module + type + PolyS + = sig ... + end + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent.module-type-PolyS.index.html b/test/generators/cases_post408/html/Recent.module-type-PolyS.index.html new file mode 100644 index 0000000000..462ed05678 --- /dev/null +++ b/test/generators/cases_post408/html/Recent.module-type-PolyS.index.html @@ -0,0 +1,41 @@ + + + PolyS (test.Recent.PolyS) + + + + + + + + +
      +

      Module type Recent.PolyS

      +
      +
      +
      +
      + + type t = + [ + + + + + + + + +
      + | `A +
      + | `B +
      ] +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent.module-type-S.index.html b/test/generators/cases_post408/html/Recent.module-type-S.index.html new file mode 100644 index 0000000000..167f0d3a2e --- /dev/null +++ b/test/generators/cases_post408/html/Recent.module-type-S.index.html @@ -0,0 +1,19 @@ + + + S (test.Recent.S) + + + + + + + + +
      +

      Module type Recent.S

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent.module-type-S1.argument-1-_.index.html b/test/generators/cases_post408/html/Recent.module-type-S1.argument-1-_.index.html new file mode 100644 index 0000000000..aadedfc888 --- /dev/null +++ b/test/generators/cases_post408/html/Recent.module-type-S1.argument-1-_.index.html @@ -0,0 +1,20 @@ + + + _ (test.Recent.S1.1-_) + + + + + + + + +
      +

      Parameter S1.1-_

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent.module-type-S1.index.html b/test/generators/cases_post408/html/Recent.module-type-S1.index.html new file mode 100644 index 0000000000..ec8081cc6d --- /dev/null +++ b/test/generators/cases_post408/html/Recent.module-type-S1.index.html @@ -0,0 +1,38 @@ + + + S1 (test.Recent.S1) + + + + + + + + +
      +

      Module type Recent.S1

      +
      + +
      +

      Parameters +

      +
      +
      + + module + _ + : S + +
      +
      +

      Signature

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent_impl.B.index.html b/test/generators/cases_post408/html/Recent_impl.B.index.html new file mode 100644 index 0000000000..e36576feb5 --- /dev/null +++ b/test/generators/cases_post408/html/Recent_impl.B.index.html @@ -0,0 +1,37 @@ + + + B (test.Recent_impl.B) + + + + + + + + +
      +

      Module Recent_impl.B

      +
      +
      +
      +
      + + type t = + + + + + +
      + + | B + +
      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent_impl.Foo.A.index.html b/test/generators/cases_post408/html/Recent_impl.Foo.A.index.html new file mode 100644 index 0000000000..fc68d4d307 --- /dev/null +++ b/test/generators/cases_post408/html/Recent_impl.Foo.A.index.html @@ -0,0 +1,38 @@ + + + A (test.Recent_impl.Foo.A) + + + + + + + + +
      +

      Module Foo.A

      +
      +
      +
      +
      + + type t = + + + + + +
      + + | A + +
      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent_impl.Foo.B.index.html b/test/generators/cases_post408/html/Recent_impl.Foo.B.index.html new file mode 100644 index 0000000000..8e7fbd70cf --- /dev/null +++ b/test/generators/cases_post408/html/Recent_impl.Foo.B.index.html @@ -0,0 +1,38 @@ + + + B (test.Recent_impl.Foo.B) + + + + + + + + +
      +

      Module Foo.B

      +
      +
      +
      +
      + + type t = + + + + + +
      + + | B + +
      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent_impl.Foo.index.html b/test/generators/cases_post408/html/Recent_impl.Foo.index.html new file mode 100644 index 0000000000..22c862c541 --- /dev/null +++ b/test/generators/cases_post408/html/Recent_impl.Foo.index.html @@ -0,0 +1,43 @@ + + + Foo (test.Recent_impl.Foo) + + + + + + + + +
      +

      Module Recent_impl.Foo

      +
      +
      +
      +
      + + module + A + : sig ... + end + + +
      +
      +
      +
      + + module + B + : sig ... + end + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent_impl.index.html b/test/generators/cases_post408/html/Recent_impl.index.html new file mode 100644 index 0000000000..c169694af9 --- /dev/null +++ b/test/generators/cases_post408/html/Recent_impl.index.html @@ -0,0 +1,69 @@ + + + Recent_impl (test.Recent_impl) + + + + + + + + +
      +

      Module Recent_impl

      +
      +
      +
      +
      + + module + Foo + : sig ... + end + + +
      +
      +
      +
      + + module + B + : sig ... + end + + +
      +
      +
      +
      + + type u +
      +
      +
      +
      + + + module + type + S + = sig ... + end + + +
      +
      +
      +
      + + module B' + = Foo.B + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent_impl.module-type-S.F.argument-1-_.index.html b/test/generators/cases_post408/html/Recent_impl.module-type-S.F.argument-1-_.index.html new file mode 100644 index 0000000000..a4a8a1d9ea --- /dev/null +++ b/test/generators/cases_post408/html/Recent_impl.module-type-S.F.argument-1-_.index.html @@ -0,0 +1,21 @@ + + + _ (test.Recent_impl.S.F.1-_) + + + + + + + + +
      +

      Parameter F.1-_

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent_impl.module-type-S.F.index.html b/test/generators/cases_post408/html/Recent_impl.module-type-S.F.index.html new file mode 100644 index 0000000000..8d91b22db3 --- /dev/null +++ b/test/generators/cases_post408/html/Recent_impl.module-type-S.F.index.html @@ -0,0 +1,46 @@ + + + F (test.Recent_impl.S.F) + + + + + + + + +

      Module S.F

      +
      + +
      +

      Parameters +

      +
      +
      + + module + _ + : sig ... + end + + +
      +
      +

      Signature

      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent_impl.module-type-S.X.index.html b/test/generators/cases_post408/html/Recent_impl.module-type-S.X.index.html new file mode 100644 index 0000000000..e82f6da7f8 --- /dev/null +++ b/test/generators/cases_post408/html/Recent_impl.module-type-S.X.index.html @@ -0,0 +1,19 @@ + + + X (test.Recent_impl.S.X) + + + + + + + + +

      Module S.X

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/Recent_impl.module-type-S.index.html b/test/generators/cases_post408/html/Recent_impl.module-type-S.index.html new file mode 100644 index 0000000000..6a7f41f56c --- /dev/null +++ b/test/generators/cases_post408/html/Recent_impl.module-type-S.index.html @@ -0,0 +1,55 @@ + + + S (test.Recent_impl.S) + + + + + + + + +
      +

      Module type Recent_impl.S

      +
      +
      +
      +
      + + module + F + (_ : + sig ... end + ) : sig ... + end + + +
      +
      +
      +
      + + module + X + : sig ... + end + + +
      +
      +
      +
      + + + val f : + F(X).t + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_post408/html/dune b/test/generators/cases_post408/html/dune new file mode 100644 index 0000000000..1900258c3c --- /dev/null +++ b/test/generators/cases_post408/html/dune @@ -0,0 +1 @@ +(include html.dune.inc) diff --git a/test/generators/cases_post408/html/gen_html/dune b/test/generators/cases_post408/html/gen_html/dune new file mode 100644 index 0000000000..7bf6d5d0a0 --- /dev/null +++ b/test/generators/cases_post408/html/gen_html/dune @@ -0,0 +1,5 @@ +(executable + (name gen_html) + (libraries html_t_rule) + (enabled_if + (>= %{ocaml_version} 4.04))) diff --git a/test/generators/cases_post408/html/gen_html/gen_html.ml b/test/generators/cases_post408/html/gen_html/gen_html.ml new file mode 100644 index 0000000000..6c4bdc9427 --- /dev/null +++ b/test/generators/cases_post408/html/gen_html/gen_html.ml @@ -0,0 +1,6 @@ +let () = + let stanzas = + Gen_backend.gen_backend_rules "html" Html_t_rule.html_target_rule + Gen_backend.files "4.08" + in + List.iter (Sexplib0.Sexp.pp Format.std_formatter) stanzas diff --git a/test/generators/cases_post408/html/html.dune.inc b/test/generators/cases_post408/html/html.dune.inc new file mode 100644 index 0000000000..b995318fa8 --- /dev/null +++ b/test/generators/cases_post408/html/html.dune.inc @@ -0,0 +1,333 @@ +(rule + (action + (progn + (run + odoc + html-generate + --indent + -o + html.gen + %{dep:../bugs_post_406.odocl}) + (with-stdout-to + Bugs_post_406.index.html.gen + (progn + (system "cat 'html.gen/test/Bugs_post_406/index.html'"))) + (with-stdout-to + Bugs_post_406.class-type-let_open.index.html.gen + (progn + (system + "cat 'html.gen/test/Bugs_post_406/class-type-let_open/index.html'"))) + (with-stdout-to + Bugs_post_406.class-let_open'.index.html.gen + (progn + (system + "cat 'html.gen/test/Bugs_post_406/class-let_open'\\''/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Bugs_post_406.index.html Bugs_post_406.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff + Bugs_post_406.class-type-let_open.index.html + Bugs_post_406.class-type-let_open.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff + Bugs_post_406.class-let_open'.index.html + Bugs_post_406.class-let_open'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../labels.odocl}) + (with-stdout-to + Labels.index.html.gen + (progn + (system "cat 'html.gen/test/Labels/index.html'"))) + (with-stdout-to + Labels.A.index.html.gen + (progn + (system "cat 'html.gen/test/Labels/A/index.html'"))) + (with-stdout-to + Labels.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Labels/module-type-S/index.html'"))) + (with-stdout-to + Labels.class-c.index.html.gen + (progn + (system "cat 'html.gen/test/Labels/class-c/index.html'"))) + (with-stdout-to + Labels.class-type-cs.index.html.gen + (progn + (system "cat 'html.gen/test/Labels/class-type-cs/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Labels.index.html Labels.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Labels.A.index.html Labels.A.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Labels.module-type-S.index.html Labels.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Labels.class-c.index.html Labels.class-c.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Labels.class-type-cs.index.html Labels.class-type-cs.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../recent.odocl}) + (with-stdout-to + Recent.index.html.gen + (progn + (system "cat 'html.gen/test/Recent/index.html'"))) + (with-stdout-to + Recent.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Recent/module-type-S/index.html'"))) + (with-stdout-to + Recent.module-type-S1.index.html.gen + (progn + (system "cat 'html.gen/test/Recent/module-type-S1/index.html'"))) + (with-stdout-to + Recent.module-type-S1.argument-1-_.index.html.gen + (progn + (system + "cat 'html.gen/test/Recent/module-type-S1/argument-1-_/index.html'"))) + (with-stdout-to + Recent.Z.index.html.gen + (progn + (system "cat 'html.gen/test/Recent/Z/index.html'"))) + (with-stdout-to + Recent.Z.Y.index.html.gen + (progn + (system "cat 'html.gen/test/Recent/Z/Y/index.html'"))) + (with-stdout-to + Recent.Z.Y.X.index.html.gen + (progn + (system "cat 'html.gen/test/Recent/Z/Y/X/index.html'"))) + (with-stdout-to + Recent.X.index.html.gen + (progn + (system "cat 'html.gen/test/Recent/X/index.html'"))) + (with-stdout-to + Recent.module-type-PolyS.index.html.gen + (progn + (system "cat 'html.gen/test/Recent/module-type-PolyS/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Recent.index.html Recent.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent.module-type-S.index.html Recent.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff + Recent.module-type-S1.index.html + Recent.module-type-S1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff + Recent.module-type-S1.argument-1-_.index.html + Recent.module-type-S1.argument-1-_.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent.Z.index.html Recent.Z.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent.Z.Y.index.html Recent.Z.Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent.Z.Y.X.index.html Recent.Z.Y.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent.X.index.html Recent.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff + Recent.module-type-PolyS.index.html + Recent.module-type-PolyS.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../recent_impl.odocl}) + (with-stdout-to + Recent_impl.index.html.gen + (progn + (system "cat 'html.gen/test/Recent_impl/index.html'"))) + (with-stdout-to + Recent_impl.Foo.index.html.gen + (progn + (system "cat 'html.gen/test/Recent_impl/Foo/index.html'"))) + (with-stdout-to + Recent_impl.Foo.A.index.html.gen + (progn + (system "cat 'html.gen/test/Recent_impl/Foo/A/index.html'"))) + (with-stdout-to + Recent_impl.Foo.B.index.html.gen + (progn + (system "cat 'html.gen/test/Recent_impl/Foo/B/index.html'"))) + (with-stdout-to + Recent_impl.B.index.html.gen + (progn + (system "cat 'html.gen/test/Recent_impl/B/index.html'"))) + (with-stdout-to + Recent_impl.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Recent_impl/module-type-S/index.html'"))) + (with-stdout-to + Recent_impl.module-type-S.F.index.html.gen + (progn + (system "cat 'html.gen/test/Recent_impl/module-type-S/F/index.html'"))) + (with-stdout-to + Recent_impl.module-type-S.F.argument-1-_.index.html.gen + (progn + (system + "cat 'html.gen/test/Recent_impl/module-type-S/F/argument-1-_/index.html'"))) + (with-stdout-to + Recent_impl.module-type-S.X.index.html.gen + (progn + (system "cat 'html.gen/test/Recent_impl/module-type-S/X/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Recent_impl.index.html Recent_impl.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent_impl.Foo.index.html Recent_impl.Foo.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent_impl.Foo.A.index.html Recent_impl.Foo.A.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent_impl.Foo.B.index.html Recent_impl.Foo.B.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent_impl.B.index.html Recent_impl.B.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff + Recent_impl.module-type-S.index.html + Recent_impl.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff + Recent_impl.module-type-S.F.index.html + Recent_impl.module-type-S.F.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff + Recent_impl.module-type-S.F.argument-1-_.index.html + Recent_impl.module-type-S.F.argument-1-_.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff + Recent_impl.module-type-S.X.index.html + Recent_impl.module-type-S.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) diff --git a/test/generators/cases_post408/latex/Bugs_post_406.let_open'.tex b/test/generators/cases_post408/latex/Bugs_post_406.let_open'.tex new file mode 100644 index 0000000000..dda7495991 --- /dev/null +++ b/test/generators/cases_post408/latex/Bugs_post_406.let_open'.tex @@ -0,0 +1,3 @@ +\section{Class \ocamlinlinecode{Bugs\_\allowbreak{}post\_\allowbreak{}406.\allowbreak{}let\_\allowbreak{}open'}}\label{container-page-test-module-Bugs+u+post+u+406-class-let+u+open'}% + + diff --git a/test/generators/cases_post408/latex/Bugs_post_406.tex b/test/generators/cases_post408/latex/Bugs_post_406.tex new file mode 100644 index 0000000000..012f563229 --- /dev/null +++ b/test/generators/cases_post408/latex/Bugs_post_406.tex @@ -0,0 +1,8 @@ +\section{Module \ocamlinlinecode{Bugs\_\allowbreak{}post\_\allowbreak{}406}}\label{container-page-test-module-Bugs+u+post+u+406}% +Let-open in class types, https://github.com/ocaml/odoc/issues/543 This was added to the language in 4.06 + +\label{container-page-test-module-Bugs+u+post+u+406-class-type-let+u+open}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Bugs+u+post+u+406-class-type-let+u+open]{\ocamlinlinecode{let\_\allowbreak{}open}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Bugs+u+post+u+406-class-let+u+open'}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Bugs+u+post+u+406-class-let+u+open']{\ocamlinlinecode{let\_\allowbreak{}open'}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ + +\input{test/Bugs_post_406.let_open'.tex} diff --git a/test/generators/cases_post408/latex/Labels.c.tex b/test/generators/cases_post408/latex/Labels.c.tex new file mode 100644 index 0000000000..5e73a39ca3 --- /dev/null +++ b/test/generators/cases_post408/latex/Labels.c.tex @@ -0,0 +1,4 @@ +\section{Class \ocamlinlinecode{Labels.\allowbreak{}c}}\label{container-page-test-module-Labels-class-c}% +\subsection{Attached to class\label{L6}}% + + diff --git a/test/generators/cases_post408/latex/Labels.tex b/test/generators/cases_post408/latex/Labels.tex new file mode 100644 index 0000000000..de97645a2e --- /dev/null +++ b/test/generators/cases_post408/latex/Labels.tex @@ -0,0 +1,58 @@ +\section{Module \ocamlinlinecode{Labels}}\label{container-page-test-module-Labels}% +\subsection{Attached to unit\label{L1}}% +\subsection{Attached to nothing\label{L2}}% +\label{container-page-test-module-Labels-module-A}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Labels-module-A]{\ocamlinlinecode{A}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Attached to module\label{L3}}% +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Labels-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\begin{ocamlindent}Attached to type\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Labels-val-f}\ocamlcodefragment{\ocamltag{keyword}{val} f : \hyperref[container-page-test-module-Labels-type-t]{\ocamlinlinecode{t}}}\begin{ocamlindent}Attached to value\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Labels-val-e}\ocamlcodefragment{\ocamltag{keyword}{val} e : unit \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Labels-type-t]{\ocamlinlinecode{t}}}\begin{ocamlindent}Attached to external\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Labels-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Labels-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Attached to module type\label{L6}}% +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Labels-class-c}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Labels-class-c]{\ocamlinlinecode{c}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Labels-class-type-cs}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Labels-class-type-cs]{\ocamlinlinecode{cs}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\subsubsection{Attached to class type\label{L7}}% +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Labels-exception-E}\ocamlcodefragment{\ocamltag{keyword}{exception} \ocamltag{exception}{E}}\begin{ocamlindent}Attached to exception\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Labels-type-x}\ocamlcodefragment{\ocamltag{keyword}{type} x = .\allowbreak{}.\allowbreak{}}\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Labels-type-x]{\ocamlinlinecode{x}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{X}}\label{container-page-test-module-Labels-extension-X}\\ +\end{ocamltabular}% +\\ +\begin{ocamlindent}Attached to extension\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Labels-module-S}\ocamlcodefragment{\ocamltag{keyword}{module} S := \hyperref[container-page-test-module-Labels-module-A]{\ocamlinlinecode{A}}}\begin{ocamlindent}Attached to module subst\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Labels-type-s}\ocamlcodefragment{\ocamltag{keyword}{type} s := \hyperref[container-page-test-module-Labels-type-t]{\ocamlinlinecode{t}}}\begin{ocamlindent}Attached to type subst\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Labels-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u = }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A'}}\label{container-page-test-module-Labels-type-u.A'}& Attached to constructor\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Labels-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} v = \{}\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlinlinecode{f : \hyperref[container-page-test-module-Labels-type-t]{\ocamlinlinecode{t}};\allowbreak{}}\label{container-page-test-module-Labels-type-v.f}& Attached to field\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\\ +Testing that labels can be referenced + +\begin{itemize}\item{\hyperref[container-page-test-module-Labels-L1]{\ocamlinlinecode{Attached to unit}[p\pageref*{container-page-test-module-Labels-L1}]}}% +\item{\hyperref[container-page-test-module-Labels-L2]{\ocamlinlinecode{Attached to nothing}[p\pageref*{container-page-test-module-Labels-L2}]}}% +\item{\hyperref[container-page-test-module-Labels-L3]{\ocamlinlinecode{Attached to module}[p\pageref*{container-page-test-module-Labels-L3}]}}% +\item{\hyperref[container-page-test-module-Labels-L4]{\ocamlinlinecode{Attached to type}[p\pageref*{container-page-test-module-Labels-L4}]}}% +\item{\hyperref[container-page-test-module-Labels-L5]{\ocamlinlinecode{Attached to value}[p\pageref*{container-page-test-module-Labels-L5}]}}% +\item{\hyperref[container-page-test-module-Labels-L6]{\ocamlinlinecode{Attached to class}[p\pageref*{container-page-test-module-Labels-L6}]}}% +\item{\hyperref[container-page-test-module-Labels-L7]{\ocamlinlinecode{Attached to class type}[p\pageref*{container-page-test-module-Labels-L7}]}}% +\item{\hyperref[container-page-test-module-Labels-L8]{\ocamlinlinecode{Attached to exception}[p\pageref*{container-page-test-module-Labels-L8}]}}% +\item{\hyperref[container-page-test-module-Labels-L9]{\ocamlinlinecode{Attached to extension}[p\pageref*{container-page-test-module-Labels-L9}]}}% +\item{\hyperref[container-page-test-module-Labels-L10]{\ocamlinlinecode{Attached to module subst}[p\pageref*{container-page-test-module-Labels-L10}]}}% +\item{\hyperref[container-page-test-module-Labels-L11]{\ocamlinlinecode{Attached to type subst}[p\pageref*{container-page-test-module-Labels-L11}]}}% +\item{\hyperref[container-page-test-module-Labels-L12]{\ocamlinlinecode{Attached to constructor}[p\pageref*{container-page-test-module-Labels-L12}]}}% +\item{\hyperref[container-page-test-module-Labels-L13]{\ocamlinlinecode{Attached to field}[p\pageref*{container-page-test-module-Labels-L13}]}}\end{itemize}% + +\input{test/Labels.c.tex} diff --git a/test/generators/cases_post408/latex/Recent.tex b/test/generators/cases_post408/latex/Recent.tex new file mode 100644 index 0000000000..3efc02749d --- /dev/null +++ b/test/generators/cases_post408/latex/Recent.tex @@ -0,0 +1,78 @@ +\section{Module \ocamlinlinecode{Recent}}\label{container-page-test-module-Recent}% +\label{container-page-test-module-Recent-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Recent-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent-module-type-S1}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Recent-module-type-S1]{\ocamlinlinecode{S1}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Parameters\label{parameters}}% +\label{container-page-test-module-Recent-module-type-S1-argument-1-+u+}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent-module-type-S1-argument-1-+u+]{\ocamlinlinecode{\_\allowbreak{}}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsubsection{Signature\label{signature}}% +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent-type-variant}\ocamlcodefragment{\ocamltag{keyword}{type} variant = }\begin{ocamlindent}\ocamlcodefragment{| \ocamltag{constructor}{A}}\label{container-page-test-module-Recent-type-variant.A}% +\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{| \ocamltag{constructor}{B} \ocamltag{keyword}{of} int}\label{container-page-test-module-Recent-type-variant.B}% +\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{| \ocamltag{constructor}{C}}\label{container-page-test-module-Recent-type-variant.C}% +\begin{ocamlindent}foo\end{ocamlindent}% +\ocamlcodefragment{| \ocamltag{constructor}{D}}\label{container-page-test-module-Recent-type-variant.D}% +\begin{ocamlindent}\emph{bar}\end{ocamlindent}% +\ocamlcodefragment{| \ocamltag{constructor}{E} \ocamltag{keyword}{of} \{}\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test-module-Recent-type-variant.a}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\label{container-page-test-module-Recent-type-variant.E}% +\begin{ocamlindent}\end{ocamlindent}% +\end{ocamlindent}% +\label{container-page-test-module-Recent-type-gadt}\ocamlcodefragment{\ocamltag{keyword}{type} \_\allowbreak{} gadt = }\begin{ocamlindent}\ocamlcodefragment{| \ocamltag{constructor}{A} : int \hyperref[container-page-test-module-Recent-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test-module-Recent-type-gadt.A}% +\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{| \ocamltag{constructor}{B} : int \ocamltag{arrow}{$\rightarrow$} string \hyperref[container-page-test-module-Recent-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test-module-Recent-type-gadt.B}% +\begin{ocamlindent}foo\end{ocamlindent}% +\ocamlcodefragment{| \ocamltag{constructor}{C} : \{}\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test-module-Recent-type-gadt.a}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\} \ocamltag{arrow}{$\rightarrow$} unit \hyperref[container-page-test-module-Recent-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test-module-Recent-type-gadt.C}% +\begin{ocamlindent}\end{ocamlindent}% +\end{ocamlindent}% +\label{container-page-test-module-Recent-type-polymorphic+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} polymorphic\_\allowbreak{}variant = [ }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`A}\label{container-page-test-module-Recent-type-polymorphic+u+variant.A}& \\ +\ocamlinlinecode{| }\ocamlinlinecode{`B \ocamltag{keyword}{of} int}\label{container-page-test-module-Recent-type-polymorphic+u+variant.B}& \\ +\ocamlinlinecode{| }\ocamlinlinecode{`C}\label{container-page-test-module-Recent-type-polymorphic+u+variant.C}& foo\\ +\ocamlinlinecode{| }\ocamlinlinecode{`D}\label{container-page-test-module-Recent-type-polymorphic+u+variant.D}& bar\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\\ +\label{container-page-test-module-Recent-type-empty+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} empty\_\allowbreak{}variant = |}\\ +\label{container-page-test-module-Recent-type-nonrec+u+}\ocamlcodefragment{\ocamltag{keyword}{type} \ocamltag{keyword}{nonrec} nonrec\_\allowbreak{} = int}\\ +\label{container-page-test-module-Recent-type-empty+u+conj}\ocamlcodefragment{\ocamltag{keyword}{type} empty\_\allowbreak{}conj = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{X} : [< `X of \& \ocamltag{type-var}{'a} \& int * float ] \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Recent-type-empty+u+conj]{\ocamlinlinecode{empty\_\allowbreak{}conj}}}\label{container-page-test-module-Recent-type-empty+u+conj.X}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Recent-type-conj}\ocamlcodefragment{\ocamltag{keyword}{type} conj = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{X} : [< `X of int \& [< `B of int \& float ] ] \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Recent-type-conj]{\ocamlinlinecode{conj}}}\label{container-page-test-module-Recent-type-conj.X}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Recent-val-empty+u+conj}\ocamlcodefragment{\ocamltag{keyword}{val} empty\_\allowbreak{}conj : [< `X of \& \ocamltag{type-var}{'a} \& int * float ]}\\ +\label{container-page-test-module-Recent-val-conj}\ocamlcodefragment{\ocamltag{keyword}{val} conj : [< `X of int \& [< `B of int \& float ] ]}\\ +\label{container-page-test-module-Recent-module-Z}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent-module-Z]{\ocamlinlinecode{Z}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Recent-module-Z-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent-module-Z-module-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Recent-module-Z-module-Y-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent-module-Z-module-Y-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Recent-module-Z-module-Y-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} 'a t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Recent-module-X-module-L}\ocamlcodefragment{\ocamltag{keyword}{module} L := \hyperref[container-page-test-module-Recent-module-Z-module-Y]{\ocamlinlinecode{Z.\allowbreak{}Y}}}\\ +\label{container-page-test-module-Recent-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int \hyperref[container-page-test-module-Recent-module-Z-module-Y-module-X-type-t]{\ocamlinlinecode{Z.\allowbreak{}Y.\allowbreak{}X.\allowbreak{}t}}}\\ +\label{container-page-test-module-Recent-module-X-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u := int}\\ +\label{container-page-test-module-Recent-module-X-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} v = \hyperref[container-page-test-module-Recent-module-X-type-u]{\ocamlinlinecode{u}} \hyperref[container-page-test-module-Recent-module-Z-module-Y-module-X-type-t]{\ocamlinlinecode{Z.\allowbreak{}Y.\allowbreak{}X.\allowbreak{}t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent-module-type-PolyS}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Recent-module-type-PolyS]{\ocamlinlinecode{PolyS}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Recent-module-type-PolyS-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = [ }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`A}\label{container-page-test-module-Recent-module-type-PolyS-type-t.A}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`B}\label{container-page-test-module-Recent-module-type-PolyS-type-t.B}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ + + diff --git a/test/generators/cases_post408/latex/Recent_impl.B.tex b/test/generators/cases_post408/latex/Recent_impl.B.tex new file mode 100644 index 0000000000..1ee8741511 --- /dev/null +++ b/test/generators/cases_post408/latex/Recent_impl.B.tex @@ -0,0 +1,7 @@ +\section{Module \ocamlinlinecode{Recent\_\allowbreak{}impl.\allowbreak{}B}}\label{container-page-test-module-Recent+u+impl-module-B}% +\label{container-page-test-module-Recent+u+impl-module-B-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{B}}\label{container-page-test-module-Recent+u+impl-module-B-type-t.B}\\ +\end{ocamltabular}% +\\ + + diff --git a/test/generators/cases_post408/latex/Recent_impl.tex b/test/generators/cases_post408/latex/Recent_impl.tex new file mode 100644 index 0000000000..cb58359787 --- /dev/null +++ b/test/generators/cases_post408/latex/Recent_impl.tex @@ -0,0 +1,32 @@ +\section{Module \ocamlinlinecode{Recent\_\allowbreak{}impl}}\label{container-page-test-module-Recent+u+impl}% +\label{container-page-test-module-Recent+u+impl-module-Foo}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent+u+impl-module-Foo]{\ocamlinlinecode{Foo}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Recent+u+impl-module-Foo-module-A}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent+u+impl-module-Foo-module-A]{\ocamlinlinecode{A}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Recent+u+impl-module-Foo-module-A-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A}}\label{container-page-test-module-Recent+u+impl-module-Foo-module-A-type-t.A}\\ +\end{ocamltabular}% +\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent+u+impl-module-Foo-module-B}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent+u+impl-module-Foo-module-B]{\ocamlinlinecode{B}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Recent+u+impl-module-Foo-module-B-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{B}}\label{container-page-test-module-Recent+u+impl-module-Foo-module-B-type-t.B}\\ +\end{ocamltabular}% +\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent+u+impl-module-B}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent+u+impl-module-B]{\ocamlinlinecode{B}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent+u+impl-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\label{container-page-test-module-Recent+u+impl-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Recent+u+impl-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Recent+u+impl-module-type-S-module-F}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent+u+impl-module-type-S-module-F]{\ocamlinlinecode{F}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Parameters\label{parameters}}% +\label{container-page-test-module-Recent+u+impl-module-type-S-module-F-argument-1-+u+}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent+u+impl-module-type-S-module-F-argument-1-+u+]{\ocamlinlinecode{\_\allowbreak{}}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsubsection{Signature\label{signature}}% +\label{container-page-test-module-Recent+u+impl-module-type-S-module-F-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent+u+impl-module-type-S-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Recent+u+impl-module-type-S-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent+u+impl-module-type-S-val-f}\ocamlcodefragment{\ocamltag{keyword}{val} f : \hyperref[container-page-test-module-Recent+u+impl-module-type-S-module-F-type-t]{\ocamlinlinecode{F(X).\allowbreak{}t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Recent+u+impl-module-B'}\ocamlcodefragment{\ocamltag{keyword}{module} B' = \hyperref[container-page-test-module-Recent+u+impl-module-Foo-module-B]{\ocamlinlinecode{Foo.\allowbreak{}B}}}\\ + +\input{test/Recent_impl.B.tex} diff --git a/test/generators/cases_post408/latex/dune b/test/generators/cases_post408/latex/dune new file mode 100644 index 0000000000..11244a7204 --- /dev/null +++ b/test/generators/cases_post408/latex/dune @@ -0,0 +1 @@ +(include latex.dune.inc) diff --git a/test/generators/cases_post408/latex/gen_latex/dune b/test/generators/cases_post408/latex/gen_latex/dune new file mode 100644 index 0000000000..a8328f0f5d --- /dev/null +++ b/test/generators/cases_post408/latex/gen_latex/dune @@ -0,0 +1,5 @@ +(executable + (name gen_latex) + (libraries latex_t_rule) + (enabled_if + (>= %{ocaml_version} 4.04))) diff --git a/test/generators/cases_post408/latex/gen_latex/gen_latex.ml b/test/generators/cases_post408/latex/gen_latex/gen_latex.ml new file mode 100644 index 0000000000..25c4381bde --- /dev/null +++ b/test/generators/cases_post408/latex/gen_latex/gen_latex.ml @@ -0,0 +1,6 @@ +let () = + let stanzas = + Gen_backend.gen_backend_rules "latex" Latex_t_rule.latex_target_rule + Gen_backend.files "4.08" + in + List.iter (Sexplib0.Sexp.pp Format.std_formatter) stanzas diff --git a/test/generators/cases_post408/latex/latex.dune.inc b/test/generators/cases_post408/latex/latex.dune.inc new file mode 100644 index 0000000000..303aee7ed3 --- /dev/null +++ b/test/generators/cases_post408/latex/latex.dune.inc @@ -0,0 +1,96 @@ +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../bugs_post_406.odocl}) + (with-stdout-to + Bugs_post_406.tex.gen + (progn + (system "cat 'latex.gen/test/Bugs_post_406.tex'"))) + (with-stdout-to + Bugs_post_406.let_open'.tex.gen + (progn + (system "cat 'latex.gen/test/Bugs_post_406.let_open'\\''.tex'")))))) + +(rule + (alias runtest) + (action + (diff Bugs_post_406.tex Bugs_post_406.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Bugs_post_406.let_open'.tex Bugs_post_406.let_open'.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../labels.odocl}) + (with-stdout-to + Labels.tex.gen + (progn + (system "cat 'latex.gen/test/Labels.tex'"))) + (with-stdout-to + Labels.c.tex.gen + (progn + (system "cat 'latex.gen/test/Labels.c.tex'")))))) + +(rule + (alias runtest) + (action + (diff Labels.tex Labels.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Labels.c.tex Labels.c.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../recent.odocl}) + (with-stdout-to + Recent.tex.gen + (progn + (system "cat 'latex.gen/test/Recent.tex'")))))) + +(rule + (alias runtest) + (action + (diff Recent.tex Recent.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../recent_impl.odocl}) + (with-stdout-to + Recent_impl.tex.gen + (progn + (system "cat 'latex.gen/test/Recent_impl.tex'"))) + (with-stdout-to + Recent_impl.B.tex.gen + (progn + (system "cat 'latex.gen/test/Recent_impl.B.tex'")))))) + +(rule + (alias runtest) + (action + (diff Recent_impl.tex Recent_impl.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent_impl.B.tex Recent_impl.B.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) diff --git a/test/generators/cases_post408/link.dune.inc b/test/generators/cases_post408/link.dune.inc new file mode 100644 index 0000000000..e5783f544c --- /dev/null +++ b/test/generators/cases_post408/link.dune.inc @@ -0,0 +1,134 @@ +(rule + (target bugs_post_406.cmti) + (deps cases/bugs_post_406.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target bugs_post_406.odoc) + (deps bugs_post_406.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target bugs_post_406.odocl) + (deps bugs_post_406.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target labels.cmti) + (deps cases/labels.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target labels.odoc) + (deps labels.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target labels.odocl) + (deps labels.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target recent.cmti) + (deps cases/recent.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target recent.odoc) + (deps recent.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target recent.odocl) + (deps recent.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target recent_impl.cmt) + (deps cases/recent_impl.ml) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target recent_impl.odoc) + (deps recent_impl.cmt) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target recent_impl.odocl) + (deps recent_impl.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(subdir + html + (rule + (with-stdout-to + html.dune.inc.gen + (pipe-stdout + (run + gen_html/gen_html.exe + %{dep:../bugs_post_406.odocl} + %{dep:../labels.odocl} + %{dep:../recent.odocl} + %{dep:../recent_impl.odocl}) + (run dune format-dune-file))))) + +(subdir + latex + (rule + (with-stdout-to + latex.dune.inc.gen + (pipe-stdout + (run + gen_latex/gen_latex.exe + %{dep:../bugs_post_406.odocl} + %{dep:../labels.odocl} + %{dep:../recent.odocl} + %{dep:../recent_impl.odocl}) + (run dune format-dune-file))))) + +(subdir + man + (rule + (with-stdout-to + man.dune.inc.gen + (pipe-stdout + (run + gen_man/gen_man.exe + %{dep:../bugs_post_406.odocl} + %{dep:../labels.odocl} + %{dep:../recent.odocl} + %{dep:../recent_impl.odocl}) + (run dune format-dune-file))))) + +(rule + (alias runtest) + (action + (diff html/html.dune.inc html/html.dune.inc.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff latex/latex.dune.inc latex/latex.dune.inc.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff man/man.dune.inc man/man.dune.inc.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) diff --git a/test/generators/cases_post408/man/Bugs_post_406.3o b/test/generators/cases_post408/man/Bugs_post_406.3o new file mode 100644 index 0000000000..3e51aee056 --- /dev/null +++ b/test/generators/cases_post408/man/Bugs_post_406.3o @@ -0,0 +1,19 @@ + +.TH Bugs_post_406 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Bugs_post_406 +.SH Synopsis +.sp +.in 2 +\fBModule Bugs_post_406\fR +.in +.sp +.fi +Let-open in class types, https://github\.com/ocaml/odoc/issues/543 This was added to the language in 4\.06 +.nf +.SH Documentation +.sp +.nf +\f[CB]class\fR \f[CB]type\fR let_open = \f[CB]object\fR \f[CB]end\fR +.sp +\f[CB]class\fR let_open' : \f[CB]object\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_post408/man/Bugs_post_406.let_open'.3o b/test/generators/cases_post408/man/Bugs_post_406.let_open'.3o new file mode 100644 index 0000000000..08c57488d3 --- /dev/null +++ b/test/generators/cases_post408/man/Bugs_post_406.let_open'.3o @@ -0,0 +1,14 @@ + +.TH let_open' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Bugs_post_406\.let_open' +.SH Synopsis +.sp +.in 2 +\fBClass Bugs_post_406\.let_open'\fR +.in +.sp +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_post408/man/Labels.3o b/test/generators/cases_post408/man/Labels.3o new file mode 100644 index 0000000000..a47d1dd2c7 --- /dev/null +++ b/test/generators/cases_post408/man/Labels.3o @@ -0,0 +1,154 @@ + +.TH Labels 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Labels +.SH Synopsis +.sp +.in 2 +\fBModule Labels\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Attached to unit\fR +.in +.sp +.in 3 +\fB2 Attached to nothing\fR +.in +.sp +\f[CB]module\fR A : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR t +.fi +.br +.ti +2 +Attached to type +.nf +.sp +\f[CB]val\fR f : t +.fi +.br +.ti +2 +Attached to value +.nf +.sp +\f[CB]val\fR e : unit \f[CB]\->\fR t +.fi +.br +.ti +2 +Attached to external +.nf +.sp +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +.sp +.ti +2 +\fB2\.1\.1 Attached to module type\fR +.sp +.ti +2 + +.br +\f[CB]end\fR +.sp +\f[CB]class\fR c : \f[CB]object\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]class\fR \f[CB]type\fR cs = \f[CB]object\fR +.br +.ti +2 +.sp +.ti +2 +\fB2\.1\.2 Attached to class type\fR +.sp +.ti +2 + +.br +\f[CB]end\fR +.sp +\f[CB]exception\fR \f[CB]E\fR +.fi +.br +.ti +2 +Attached to exception +.nf +.sp +\f[CB]type\fR x = \.\. +.sp +\f[CB]type\fR x += +.br +.ti +2 +| \f[CB]X\fR +.br +.fi +.br +.ti +2 +Attached to extension +.nf +.sp +\f[CB]module\fR S := A +.fi +.br +.ti +2 +Attached to module subst +.nf +.sp +\f[CB]type\fR s := t +.fi +.br +.ti +2 +Attached to type subst +.nf +.sp +\f[CB]type\fR u = +.br +.ti +2 +| \f[CB]A'\fR +.br +.ti +4 +(* Attached to constructor *) +.br +.sp +\f[CB]type\fR v = { +.br +.ti +2 +f : t; +.br +.ti +4 +(* Attached to field *) +.br +} +.sp +.fi +Testing that labels can be referenced +.sp +\(bu \f[CI]Attached to unit\fR +.br +\(bu \f[CI]Attached to nothing\fR +.br +\(bu \f[CI]Attached to module\fR +.br +\(bu \f[CI]Attached to type\fR +.br +\(bu \f[CI]Attached to value\fR +.br +\(bu \f[CI]Attached to class\fR +.br +\(bu \f[CI]Attached to class type\fR +.br +\(bu \f[CI]Attached to exception\fR +.br +\(bu \f[CI]Attached to extension\fR +.br +\(bu \f[CI]Attached to module subst\fR +.br +\(bu \f[CI]Attached to type subst\fR +.br +\(bu \f[CI]Attached to constructor\fR +.br +\(bu \f[CI]Attached to field\fR +.nf + diff --git a/test/generators/cases_post408/man/Labels.A.3o b/test/generators/cases_post408/man/Labels.A.3o new file mode 100644 index 0000000000..2c9d46167a --- /dev/null +++ b/test/generators/cases_post408/man/Labels.A.3o @@ -0,0 +1,19 @@ + +.TH A 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Labels\.A +.SH Synopsis +.sp +.in 2 +\fBModule Labels\.A\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Attached to module\fR +.in +.sp + diff --git a/test/generators/cases_post408/man/Labels.c.3o b/test/generators/cases_post408/man/Labels.c.3o new file mode 100644 index 0000000000..b978bba39b --- /dev/null +++ b/test/generators/cases_post408/man/Labels.c.3o @@ -0,0 +1,19 @@ + +.TH c 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Labels\.c +.SH Synopsis +.sp +.in 2 +\fBClass Labels\.c\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Attached to class\fR +.in +.sp + diff --git a/test/generators/cases_post408/man/Recent.3o b/test/generators/cases_post408/man/Recent.3o new file mode 100644 index 0000000000..9a39f34861 --- /dev/null +++ b/test/generators/cases_post408/man/Recent.3o @@ -0,0 +1,145 @@ + +.TH Recent 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent +.SH Synopsis +.sp +.in 2 +\fBModule Recent\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S1 = \f[CB]sig\fR +.br +.ti +2 +.sp +.ti +2 +\fB1\.1 Parameters\fR +.sp +.ti +2 +\f[CB]module\fR _ : \f[CB]sig\fR \f[CB]end\fR +.sp +.ti +2 +\fB1\.2 Signature\fR +.sp +.ti +2 + +.br +\f[CB]end\fR +.sp +\f[CB]type\fR variant = +.br +.ti +2 +| \f[CB]A\fR +.br +.ti +2 +| \f[CB]B\fR \f[CB]of\fR int +.br +.ti +2 +| \f[CB]C\fR +.br +.ti +4 +(* foo *) +.br +.ti +2 +| \f[CB]D\fR +.br +.ti +4 +(* bar *) +.br +.ti +2 +| \f[CB]E\fR \f[CB]of\fR { +.br +.ti +6 +a : int; +.br +.ti +4 +} +.br +.sp +\f[CB]type\fR _ gadt = +.br +.ti +2 +| \f[CB]A\fR : int gadt +.br +.ti +2 +| \f[CB]B\fR : int \f[CB]\->\fR string gadt +.br +.ti +4 +(* foo *) +.br +.ti +2 +| \f[CB]C\fR : { +.br +.ti +6 +a : int; +.br +.ti +4 +} \f[CB]\->\fR unit gadt +.br +.sp +\f[CB]type\fR polymorphic_variant = [ +.br +.ti +2 +| `A +.br +.ti +2 +| `B \f[CB]of\fR int +.br +.ti +2 +| `C +.br +.ti +4 +(* foo *) +.br +.ti +2 +| `D +.br +.ti +4 +(* bar *) +.br + ] +.sp +\f[CB]type\fR empty_variant = | +.sp +\f[CB]type\fR \f[CB]nonrec\fR nonrec_ = int +.sp +\f[CB]type\fR empty_conj = +.br +.ti +2 +| \f[CB]X\fR : [< `X of & \f[CB]'a\fR & int * float ] \f[CB]\->\fR empty_conj +.br +.sp +\f[CB]type\fR conj = +.br +.ti +2 +| \f[CB]X\fR : [< `X of int & [< `B of int & float ] ] \f[CB]\->\fR conj +.br +.sp +\f[CB]val\fR empty_conj : [< `X of & \f[CB]'a\fR & int * float ] +.sp +\f[CB]val\fR conj : [< `X of int & [< `B of int & float ] ] +.sp +\f[CB]module\fR Z : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR PolyS = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t = [ +.br +.ti +4 +| `A +.br +.ti +4 +| `B +.br +.ti +2 + ] +.br +\f[CB]end\fR diff --git a/test/generators/cases_post408/man/Recent.X.3o b/test/generators/cases_post408/man/Recent.X.3o new file mode 100644 index 0000000000..855ef065cc --- /dev/null +++ b/test/generators/cases_post408/man/Recent.X.3o @@ -0,0 +1,20 @@ + +.TH X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent\.X +.SH Synopsis +.sp +.in 2 +\fBModule Recent\.X\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR L := Z\.Y +.sp +\f[CB]type\fR t = int Z\.Y\.X\.t +.sp +\f[CB]type\fR u := int +.sp +\f[CB]type\fR v = u Z\.Y\.X\.t diff --git a/test/generators/cases_post408/man/Recent.Z.3o b/test/generators/cases_post408/man/Recent.Z.3o new file mode 100644 index 0000000000..f1ec72167b --- /dev/null +++ b/test/generators/cases_post408/man/Recent.Z.3o @@ -0,0 +1,14 @@ + +.TH Z 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent\.Z +.SH Synopsis +.sp +.in 2 +\fBModule Recent\.Z\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR Y : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_post408/man/Recent.Z.Y.3o b/test/generators/cases_post408/man/Recent.Z.Y.3o new file mode 100644 index 0000000000..1b966f15c2 --- /dev/null +++ b/test/generators/cases_post408/man/Recent.Z.Y.3o @@ -0,0 +1,14 @@ + +.TH Y 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent\.Z\.Y +.SH Synopsis +.sp +.in 2 +\fBModule Z\.Y\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_post408/man/Recent.Z.Y.X.3o b/test/generators/cases_post408/man/Recent.Z.Y.X.3o new file mode 100644 index 0000000000..768815611b --- /dev/null +++ b/test/generators/cases_post408/man/Recent.Z.Y.X.3o @@ -0,0 +1,14 @@ + +.TH X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent\.Z\.Y\.X +.SH Synopsis +.sp +.in 2 +\fBModule Y\.X\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR 'a t diff --git a/test/generators/cases_post408/man/Recent_impl.3o b/test/generators/cases_post408/man/Recent_impl.3o new file mode 100644 index 0000000000..8a96555a74 --- /dev/null +++ b/test/generators/cases_post408/man/Recent_impl.3o @@ -0,0 +1,50 @@ + +.TH Recent_impl 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent_impl +.SH Synopsis +.sp +.in 2 +\fBModule Recent_impl\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR Foo : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR B : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR u +.sp +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR F : \f[CB]sig\fR +.br +.ti +4 +.sp +.ti +4 +\fB1\.1 Parameters\fR +.sp +.ti +4 +\f[CB]module\fR _ : \f[CB]sig\fR \f[CB]end\fR +.sp +.ti +4 +\fB1\.2 Signature\fR +.sp +.ti +4 +\f[CB]type\fR t +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR X : \f[CB]sig\fR \f[CB]end\fR +.sp +.ti +2 +\f[CB]val\fR f : F(X)\.t +.br +\f[CB]end\fR +.sp +\f[CB]module\fR B' = Foo\.B diff --git a/test/generators/cases_post408/man/Recent_impl.B.3o b/test/generators/cases_post408/man/Recent_impl.B.3o new file mode 100644 index 0000000000..42053e03b2 --- /dev/null +++ b/test/generators/cases_post408/man/Recent_impl.B.3o @@ -0,0 +1,19 @@ + +.TH B 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent_impl\.B +.SH Synopsis +.sp +.in 2 +\fBModule Recent_impl\.B\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t = +.br +.ti +2 +| \f[CB]B\fR +.br + diff --git a/test/generators/cases_post408/man/Recent_impl.Foo.3o b/test/generators/cases_post408/man/Recent_impl.Foo.3o new file mode 100644 index 0000000000..5fcdcef7e2 --- /dev/null +++ b/test/generators/cases_post408/man/Recent_impl.Foo.3o @@ -0,0 +1,16 @@ + +.TH Foo 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent_impl\.Foo +.SH Synopsis +.sp +.in 2 +\fBModule Recent_impl\.Foo\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR A : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR B : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_post408/man/Recent_impl.Foo.A.3o b/test/generators/cases_post408/man/Recent_impl.Foo.A.3o new file mode 100644 index 0000000000..bd5b2f356b --- /dev/null +++ b/test/generators/cases_post408/man/Recent_impl.Foo.A.3o @@ -0,0 +1,19 @@ + +.TH A 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent_impl\.Foo\.A +.SH Synopsis +.sp +.in 2 +\fBModule Foo\.A\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t = +.br +.ti +2 +| \f[CB]A\fR +.br + diff --git a/test/generators/cases_post408/man/Recent_impl.Foo.B.3o b/test/generators/cases_post408/man/Recent_impl.Foo.B.3o new file mode 100644 index 0000000000..b2c134e56f --- /dev/null +++ b/test/generators/cases_post408/man/Recent_impl.Foo.B.3o @@ -0,0 +1,19 @@ + +.TH B 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Recent_impl\.Foo\.B +.SH Synopsis +.sp +.in 2 +\fBModule Foo\.B\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t = +.br +.ti +2 +| \f[CB]B\fR +.br + diff --git a/test/generators/cases_post408/man/dune b/test/generators/cases_post408/man/dune new file mode 100644 index 0000000000..985a2da3ef --- /dev/null +++ b/test/generators/cases_post408/man/dune @@ -0,0 +1 @@ +(include man.dune.inc) diff --git a/test/generators/cases_post408/man/gen_man/dune b/test/generators/cases_post408/man/gen_man/dune new file mode 100644 index 0000000000..c282dcce51 --- /dev/null +++ b/test/generators/cases_post408/man/gen_man/dune @@ -0,0 +1,5 @@ +(executable + (name gen_man) + (libraries man_t_rule) + (enabled_if + (>= %{ocaml_version} 4.04))) diff --git a/test/generators/cases_post408/man/gen_man/gen_man.ml b/test/generators/cases_post408/man/gen_man/gen_man.ml new file mode 100644 index 0000000000..68f17be506 --- /dev/null +++ b/test/generators/cases_post408/man/gen_man/gen_man.ml @@ -0,0 +1,6 @@ +let () = + let stanzas = + Gen_backend.gen_backend_rules "man" Man_t_rule.man_target_rule + Gen_backend.files "4.08" + in + List.iter (Sexplib0.Sexp.pp Format.std_formatter) stanzas diff --git a/test/generators/cases_post408/man/man.dune.inc b/test/generators/cases_post408/man/man.dune.inc new file mode 100644 index 0000000000..565f2352ed --- /dev/null +++ b/test/generators/cases_post408/man/man.dune.inc @@ -0,0 +1,184 @@ +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../bugs_post_406.odocl}) + (with-stdout-to + Bugs_post_406.3o.gen + (progn + (system "cat 'man.gen/test/Bugs_post_406.3o'"))) + (with-stdout-to + Bugs_post_406.let_open'.3o.gen + (progn + (system "cat 'man.gen/test/Bugs_post_406.let_open'\\''.3o'")))))) + +(rule + (alias runtest) + (action + (diff Bugs_post_406.3o Bugs_post_406.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Bugs_post_406.let_open'.3o Bugs_post_406.let_open'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../labels.odocl}) + (with-stdout-to + Labels.3o.gen + (progn + (system "cat 'man.gen/test/Labels.3o'"))) + (with-stdout-to + Labels.A.3o.gen + (progn + (system "cat 'man.gen/test/Labels.A.3o'"))) + (with-stdout-to + Labels.c.3o.gen + (progn + (system "cat 'man.gen/test/Labels.c.3o'")))))) + +(rule + (alias runtest) + (action + (diff Labels.3o Labels.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Labels.A.3o Labels.A.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Labels.c.3o Labels.c.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../recent.odocl}) + (with-stdout-to + Recent.3o.gen + (progn + (system "cat 'man.gen/test/Recent.3o'"))) + (with-stdout-to + Recent.Z.3o.gen + (progn + (system "cat 'man.gen/test/Recent.Z.3o'"))) + (with-stdout-to + Recent.Z.Y.3o.gen + (progn + (system "cat 'man.gen/test/Recent.Z.Y.3o'"))) + (with-stdout-to + Recent.Z.Y.X.3o.gen + (progn + (system "cat 'man.gen/test/Recent.Z.Y.X.3o'"))) + (with-stdout-to + Recent.X.3o.gen + (progn + (system "cat 'man.gen/test/Recent.X.3o'")))))) + +(rule + (alias runtest) + (action + (diff Recent.3o Recent.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent.Z.3o Recent.Z.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent.Z.Y.3o Recent.Z.Y.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent.Z.Y.X.3o Recent.Z.Y.X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent.X.3o Recent.X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../recent_impl.odocl}) + (with-stdout-to + Recent_impl.3o.gen + (progn + (system "cat 'man.gen/test/Recent_impl.3o'"))) + (with-stdout-to + Recent_impl.Foo.3o.gen + (progn + (system "cat 'man.gen/test/Recent_impl.Foo.3o'"))) + (with-stdout-to + Recent_impl.Foo.A.3o.gen + (progn + (system "cat 'man.gen/test/Recent_impl.Foo.A.3o'"))) + (with-stdout-to + Recent_impl.Foo.B.3o.gen + (progn + (system "cat 'man.gen/test/Recent_impl.Foo.B.3o'"))) + (with-stdout-to + Recent_impl.B.3o.gen + (progn + (system "cat 'man.gen/test/Recent_impl.B.3o'")))))) + +(rule + (alias runtest) + (action + (diff Recent_impl.3o Recent_impl.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent_impl.Foo.3o Recent_impl.Foo.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent_impl.Foo.A.3o Recent_impl.Foo.A.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent_impl.Foo.B.3o Recent_impl.Foo.B.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) + +(rule + (alias runtest) + (action + (diff Recent_impl.B.3o Recent_impl.B.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.08))) From 2c2eae9d80055084ae5807b1af5a438cf63d988c Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Wed, 26 May 2021 17:15:32 +0300 Subject: [PATCH 08/10] handled cases pre ocaml_version 4.08 Signed-off-by: lubegasimon --- .../cases_pre408/cases/.ocamlformat | 1 + test/generators/cases_pre408/cases/alias.ml | 7 + test/generators/cases_pre408/cases/bugs.ml | 5 + .../cases_pre408/cases/bugs_pre_410.ml | 6 + test/generators/cases_pre408/cases/class.mli | 26 + .../cases_pre408/cases/external.mli | 2 + .../generators/cases_pre408/cases/functor.mli | 19 + .../cases_pre408/cases/functor2.mli | 15 + .../generators/cases_pre408/cases/include.mli | 48 + .../generators/cases_pre408/cases/include2.ml | 24 + .../cases_pre408/cases/include_sections.mli | 41 + .../cases_pre408/cases/interlude.mli | 21 + test/generators/cases_pre408/cases/markup.mli | 179 + test/generators/cases_pre408/cases/mld.mld | 34 + test/generators/cases_pre408/cases/module.mli | 44 + test/generators/cases_pre408/cases/nested.mli | 84 + .../cases_pre408/cases/ocamlary.mli | 1 + .../generators/cases_pre408/cases/section.mli | 30 + test/generators/cases_pre408/cases/stop.mli | 42 + .../cases_pre408/cases/stop_dead_link_doc.mli | 27 + .../cases_pre408/cases/toplevel_comments.mli | 72 + test/generators/cases_pre408/cases/type.mli | 138 + test/generators/cases_pre408/cases/val.mli | 7 + test/generators/cases_pre408/dune | 20 + test/generators/cases_pre408/gen_link/dune | 5 + .../cases_pre408/gen_link/gen_link.ml | 9 + .../cases_pre408/html/Alias.Foo__X.index.html | 34 + .../cases_pre408/html/Alias.X.index.html | 34 + .../cases_pre408/html/Alias.index.html | 42 + .../cases_pre408/html/Bugs.index.html | 48 + .../cases_pre408/html/Bugs_pre_410.index.html | 49 + .../Class.class-empty_virtual'.index.html | 19 + .../html/Class.class-mutually'.index.html | 19 + .../html/Class.class-polymorphic'.index.html | 19 + .../html/Class.class-recursive'.index.html | 19 + .../html/Class.class-type-empty.index.html | 19 + .../Class.class-type-empty_virtual.index.html | 19 + .../html/Class.class-type-mutually.index.html | 19 + .../Class.class-type-polymorphic.index.html | 19 + .../Class.class-type-recursive.index.html | 19 + .../cases_pre408/html/Class.index.html | 135 + .../cases_pre408/html/External.index.html | 30 + .../html/Functor.F1.argument-1-Arg.index.html | 28 + .../cases_pre408/html/Functor.F1.index.html | 44 + .../html/Functor.F2.argument-1-Arg.index.html | 28 + .../cases_pre408/html/Functor.F2.index.html | 46 + .../html/Functor.F3.argument-1-Arg.index.html | 28 + .../cases_pre408/html/Functor.F3.index.html | 46 + .../html/Functor.F4.argument-1-Arg.index.html | 28 + .../cases_pre408/html/Functor.F4.index.html | 44 + .../cases_pre408/html/Functor.F5.index.html | 35 + .../cases_pre408/html/Functor.index.html | 111 + .../html/Functor.module-type-S.index.html | 27 + ...tor.module-type-S1.argument-1-_.index.html | 28 + .../html/Functor.module-type-S1.index.html | 44 + .../html/Functor2.X.argument-1-Y.index.html | 28 + .../html/Functor2.X.argument-2-Z.index.html | 28 + .../cases_pre408/html/Functor2.X.index.html | 71 + .../cases_pre408/html/Functor2.index.html | 68 + .../html/Functor2.module-type-S.index.html | 27 + ...or2.module-type-XF.argument-1-Y.index.html | 28 + ...or2.module-type-XF.argument-2-Z.index.html | 28 + .../html/Functor2.module-type-XF.index.html | 71 + .../cases_pre408/html/Include.index.html | 246 + ...de.module-type-Dorminant_Module.index.html | 53 + ...ude.module-type-Inherent_Module.index.html | 31 + .../Include.module-type-Inlined.index.html | 27 + ...Include.module-type-Not_inlined.index.html | 27 + ...ule-type-Not_inlined_and_closed.index.html | 29 + ...ule-type-Not_inlined_and_opened.index.html | 29 + .../cases_pre408/html/Include2.X.index.html | 30 + .../cases_pre408/html/Include2.Y.index.html | 28 + .../html/Include2.Y_include_doc.index.html | 48 + .../Include2.Y_include_synopsis.index.html | 46 + .../cases_pre408/html/Include2.index.html | 96 + .../html/Include_sections.index.html | 201 + ..._sections.module-type-Something.index.html | 55 + .../cases_pre408/html/Interlude.index.html | 57 + .../cases_pre408/html/Markup.index.html | 253 ++ .../cases_pre408/html/Module.M'.index.html | 19 + .../html/Module.Mutually.index.html | 19 + .../html/Module.Recursive.index.html | 19 + .../cases_pre408/html/Module.index.html | 232 + .../html/Module.module-type-S.M.index.html | 19 + .../html/Module.module-type-S.index.html | 59 + .../html/Module.module-type-S2.M.index.html | 20 + .../html/Module.module-type-S2.index.html | 59 + .../html/Module.module-type-S3.M.index.html | 20 + .../html/Module.module-type-S3.index.html | 63 + .../html/Module.module-type-S4.M.index.html | 20 + .../html/Module.module-type-S4.index.html | 53 + .../html/Module.module-type-S5.M.index.html | 20 + .../html/Module.module-type-S5.index.html | 52 + .../html/Module.module-type-S6.M.index.html | 20 + .../html/Module.module-type-S6.index.html | 51 + .../html/Module.module-type-S7.index.html | 56 + .../html/Module.module-type-S8.index.html | 48 + .../html/Module.module-type-S9.index.html | 19 + .../html/Nested.F.argument-1-Arg1.index.html | 42 + .../html/Nested.F.argument-2-Arg2.index.html | 30 + .../cases_pre408/html/Nested.F.index.html | 62 + .../cases_pre408/html/Nested.X.index.html | 42 + .../html/Nested.class-inherits.index.html | 30 + .../html/Nested.class-z.index.html | 58 + .../cases_pre408/html/Nested.index.html | 96 + .../html/Nested.module-type-Y.index.html | 42 + .../html/Ocamlary.Aliases.E.index.html | 39 + .../html/Ocamlary.Aliases.Foo.A.index.html | 40 + .../html/Ocamlary.Aliases.Foo.B.index.html | 40 + .../html/Ocamlary.Aliases.Foo.C.index.html | 40 + .../html/Ocamlary.Aliases.Foo.D.index.html | 40 + .../html/Ocamlary.Aliases.Foo.E.index.html | 40 + .../html/Ocamlary.Aliases.Foo.index.html | 77 + .../html/Ocamlary.Aliases.Foo__.index.html | 62 + .../html/Ocamlary.Aliases.Foo__A.index.html | 40 + .../html/Ocamlary.Aliases.Foo__B.index.html | 40 + .../html/Ocamlary.Aliases.Foo__C.index.html | 40 + .../html/Ocamlary.Aliases.Foo__D.index.html | 40 + .../html/Ocamlary.Aliases.Foo__E.index.html | 40 + .../html/Ocamlary.Aliases.P1.Y.index.html | 40 + .../html/Ocamlary.Aliases.P1.index.html | 33 + .../html/Ocamlary.Aliases.P2.Z.index.html | 40 + .../html/Ocamlary.Aliases.P2.index.html | 30 + .../html/Ocamlary.Aliases.Std.index.html | 62 + .../html/Ocamlary.Aliases.index.html | 290 ++ .../html/Ocamlary.Buffer.index.html | 34 + ...camlary.CanonicalTest.Base.List.index.html | 44 + .../Ocamlary.CanonicalTest.Base.index.html | 33 + .../Ocamlary.CanonicalTest.Base__.index.html | 30 + ...amlary.CanonicalTest.Base__List.index.html | 46 + ...ary.CanonicalTest.Base__Tests.C.index.html | 47 + ...mlary.CanonicalTest.Base__Tests.index.html | 99 + ...amlary.CanonicalTest.List_modif.index.html | 48 + .../html/Ocamlary.CanonicalTest.index.html | 84 + ...dule.InnerModuleA.InnerModuleA'.index.html | 39 + ...y.CollectionModule.InnerModuleA.index.html | 68 + ...A.module-type-InnerModuleTypeA'.index.html | 38 + .../html/Ocamlary.CollectionModule.index.html | 72 + ...le.module-type-InnerModuleTypeA.index.html | 38 + .../html/Ocamlary.Dep1.X.Y.class-c.index.html | 29 + .../html/Ocamlary.Dep1.X.Y.index.html | 33 + .../html/Ocamlary.Dep1.X.index.html | 31 + .../html/Ocamlary.Dep1.index.html | 45 + ...lary.Dep1.module-type-S.class-c.index.html | 28 + .../Ocamlary.Dep1.module-type-S.index.html | 33 + .../html/Ocamlary.Dep11.index.html | 34 + ...ary.Dep11.module-type-S.class-c.index.html | 28 + .../Ocamlary.Dep11.module-type-S.index.html | 33 + .../Ocamlary.Dep12.argument-1-Arg.index.html | 32 + .../html/Ocamlary.Dep12.index.html | 52 + .../html/Ocamlary.Dep13.class-c.index.html | 28 + .../html/Ocamlary.Dep13.index.html | 32 + .../html/Ocamlary.Dep2.A.index.html | 31 + .../Ocamlary.Dep2.argument-1-Arg.X.index.html | 31 + .../Ocamlary.Dep2.argument-1-Arg.index.html | 43 + .../html/Ocamlary.Dep2.index.html | 59 + .../html/Ocamlary.Dep3.index.html | 27 + .../html/Ocamlary.Dep4.X.index.html | 28 + .../html/Ocamlary.Dep4.index.html | 56 + .../Ocamlary.Dep4.module-type-S.X.index.html | 28 + .../Ocamlary.Dep4.module-type-S.Y.index.html | 20 + .../Ocamlary.Dep4.module-type-S.index.html | 42 + .../Ocamlary.Dep4.module-type-T.index.html | 28 + .../html/Ocamlary.Dep5.Z.index.html | 39 + .../Ocamlary.Dep5.argument-1-Arg.index.html | 53 + ....argument-1-Arg.module-type-S.Y.index.html | 21 + ...p5.argument-1-Arg.module-type-S.index.html | 42 + .../html/Ocamlary.Dep5.index.html | 55 + .../html/Ocamlary.Dep6.X.Y.index.html | 28 + .../html/Ocamlary.Dep6.X.index.html | 42 + .../Ocamlary.Dep6.X.module-type-R.index.html | 29 + .../html/Ocamlary.Dep6.index.html | 56 + .../Ocamlary.Dep6.module-type-S.index.html | 28 + .../Ocamlary.Dep6.module-type-T.Y.index.html | 28 + .../Ocamlary.Dep6.module-type-T.index.html | 42 + ...ep6.module-type-T.module-type-R.index.html | 29 + .../html/Ocamlary.Dep7.M.index.html | 42 + .../Ocamlary.Dep7.argument-1-Arg.X.index.html | 42 + .../Ocamlary.Dep7.argument-1-Arg.index.html | 54 + ...p7.argument-1-Arg.module-type-T.index.html | 42 + .../html/Ocamlary.Dep7.index.html | 50 + .../html/Ocamlary.Dep8.index.html | 34 + .../Ocamlary.Dep8.module-type-T.index.html | 28 + .../Ocamlary.Dep9.argument-1-X.index.html | 32 + .../html/Ocamlary.Dep9.index.html | 51 + ...y.DoubleInclude1.DoubleInclude2.index.html | 30 + .../html/Ocamlary.DoubleInclude1.index.html | 32 + ...y.DoubleInclude3.DoubleInclude2.index.html | 30 + .../html/Ocamlary.DoubleInclude3.index.html | 45 + .../html/Ocamlary.Empty.index.html | 21 + .../html/Ocamlary.ExtMod.index.html | 47 + ...tion.InnerModuleA.InnerModuleA'.index.html | 41 + ...ument-1-Collection.InnerModuleA.index.html | 69 + ...A.module-type-InnerModuleTypeA'.index.html | 39 + ...torTypeOf.argument-1-Collection.index.html | 73 + ...on.module-type-InnerModuleTypeA.index.html | 40 + .../html/Ocamlary.FunctorTypeOf.index.html | 55 + .../html/Ocamlary.IncludeInclude1.index.html | 38 + ...de1.module-type-IncludeInclude2.index.html | 31 + .../html/Ocamlary.IncludedA.index.html | 27 + .../cases_pre408/html/Ocamlary.M.index.html | 27 + .../Ocamlary.ModuleWithSignature.index.html | 23 + ...amlary.ModuleWithSignatureAlias.index.html | 26 + .../cases_pre408/html/Ocamlary.One.index.html | 27 + .../html/Ocamlary.Only_a_module.index.html | 27 + ...tion.InnerModuleA.InnerModuleA'.index.html | 39 + ...mlary.Recollection.InnerModuleA.index.html | 67 + ...A.module-type-InnerModuleTypeA'.index.html | 38 + ...-1-C.InnerModuleA.InnerModuleA'.index.html | 40 + ...ction.argument-1-C.InnerModuleA.index.html | 69 + ...A.module-type-InnerModuleTypeA'.index.html | 39 + ...mlary.Recollection.argument-1-C.index.html | 73 + ...-C.module-type-InnerModuleTypeA.index.html | 38 + .../html/Ocamlary.Recollection.index.html | 100 + ...on.module-type-InnerModuleTypeA.index.html | 37 + .../html/Ocamlary.With10.index.html | 39 + ...Ocamlary.With10.module-type-T.M.index.html | 32 + .../Ocamlary.With10.module-type-T.index.html | 42 + .../html/Ocamlary.With2.index.html | 34 + .../Ocamlary.With2.module-type-S.index.html | 28 + .../html/Ocamlary.With3.N.index.html | 28 + .../html/Ocamlary.With3.index.html | 38 + .../html/Ocamlary.With4.N.index.html | 28 + .../html/Ocamlary.With4.index.html | 30 + .../html/Ocamlary.With5.N.index.html | 28 + .../html/Ocamlary.With5.index.html | 43 + .../Ocamlary.With5.module-type-S.index.html | 28 + .../html/Ocamlary.With6.index.html | 34 + .../Ocamlary.With6.module-type-T.M.index.html | 40 + .../Ocamlary.With6.module-type-T.index.html | 33 + .../Ocamlary.With7.argument-1-X.index.html | 32 + .../html/Ocamlary.With7.index.html | 51 + .../html/Ocamlary.With9.index.html | 34 + .../Ocamlary.With9.module-type-S.index.html | 28 + .../Ocamlary.class-empty_class.index.html | 19 + ...Ocamlary.class-one_method_class.index.html | 27 + .../Ocamlary.class-param_class.index.html | 31 + ...Ocamlary.class-two_method_class.index.html | 38 + .../cases_pre408/html/Ocamlary.index.html | 2923 ++++++++++++ ...-A.Q.InnerModuleA.InnerModuleA'.index.html | 39 + ...ry.module-type-A.Q.InnerModuleA.index.html | 68 + ...A.module-type-InnerModuleTypeA'.index.html | 37 + .../html/Ocamlary.module-type-A.Q.index.html | 72 + ....Q.module-type-InnerModuleTypeA.index.html | 37 + .../html/Ocamlary.module-type-A.index.html | 37 + ...-B.Q.InnerModuleA.InnerModuleA'.index.html | 39 + ...ry.module-type-B.Q.InnerModuleA.index.html | 68 + ...A.module-type-InnerModuleTypeA'.index.html | 37 + .../html/Ocamlary.module-type-B.Q.index.html | 72 + ....Q.module-type-InnerModuleTypeA.index.html | 37 + .../html/Ocamlary.module-type-B.index.html | 37 + ...-C.Q.InnerModuleA.InnerModuleA'.index.html | 39 + ...ry.module-type-C.Q.InnerModuleA.index.html | 68 + ...A.module-type-InnerModuleTypeA'.index.html | 37 + .../html/Ocamlary.module-type-C.Q.index.html | 72 + ....Q.module-type-InnerModuleTypeA.index.html | 37 + .../html/Ocamlary.module-type-C.index.html | 77 + ...TION.InnerModuleA.InnerModuleA'.index.html | 38 + ...le-type-COLLECTION.InnerModuleA.index.html | 67 + ...A.module-type-InnerModuleTypeA'.index.html | 38 + ...Ocamlary.module-type-COLLECTION.index.html | 73 + ...ON.module-type-InnerModuleTypeA.index.html | 37 + .../Ocamlary.module-type-Dep10.index.html | 29 + .../Ocamlary.module-type-Empty.index.html | 28 + .../Ocamlary.module-type-EmptySig.index.html | 20 + ...mlary.module-type-EmptySigAlias.index.html | 21 + ...ary.module-type-IncludeInclude2.index.html | 28 + ...y.module-type-IncludeModuleType.index.html | 36 + .../Ocamlary.module-type-IncludedB.index.html | 27 + .../html/Ocamlary.module-type-M.index.html | 27 + ...MM.C.InnerModuleA.InnerModuleA'.index.html | 39 + ....module-type-MMM.C.InnerModuleA.index.html | 68 + ...A.module-type-InnerModuleTypeA'.index.html | 38 + .../Ocamlary.module-type-MMM.C.index.html | 73 + ....C.module-type-InnerModuleTypeA.index.html | 37 + .../html/Ocamlary.module-type-MMM.index.html | 31 + ...lary.module-type-MissingComment.index.html | 28 + ...lary.module-type-NestedInclude1.index.html | 38 + ...ude1.module-type-NestedInclude2.index.html | 31 + ...lary.module-type-NestedInclude2.index.html | 28 + ...amlary.module-type-RECOLLECTION.index.html | 32 + ...dule.InnerModuleA.InnerModuleA'.index.html | 40 + ...RecollectionModule.InnerModuleA.index.html | 68 + ...A.module-type-InnerModuleTypeA'.index.html | 38 + ....module-type-RecollectionModule.index.html | 83 + ...le.module-type-InnerModuleTypeA.index.html | 38 + ...ary.module-type-SigForMod.Inner.index.html | 35 + ...gForMod.Inner.module-type-Empty.index.html | 21 + .../Ocamlary.module-type-SigForMod.index.html | 33 + .../Ocamlary.module-type-SuperSig.index.html | 90 + ...e-SuperSig.module-type-EmptySig.index.html | 29 + ...e-type-SuperSig.module-type-One.index.html | 28 + ....module-type-SubSigA.SubSigAMod.index.html | 30 + ...pe-SuperSig.module-type-SubSigA.index.html | 48 + ...pe-SuperSig.module-type-SubSigB.index.html | 39 + ...e-SuperSig.module-type-SuperSig.index.html | 20 + ...module-type-ToInclude.IncludedA.index.html | 28 + .../Ocamlary.module-type-ToInclude.index.html | 46 + ...ToInclude.module-type-IncludedB.index.html | 28 + .../Ocamlary.module-type-TypeExt.index.html | 56 + ...mlary.module-type-TypeExtPruned.index.html | 50 + .../Ocamlary.module-type-With1.M.index.html | 32 + .../Ocamlary.module-type-With1.index.html | 40 + .../Ocamlary.module-type-With11.N.index.html | 30 + .../Ocamlary.module-type-With11.index.html | 43 + .../Ocamlary.module-type-With8.M.N.index.html | 31 + .../Ocamlary.module-type-With8.M.index.html | 55 + ...dule-type-With8.M.module-type-S.index.html | 29 + .../Ocamlary.module-type-With8.index.html | 41 + .../cases_pre408/html/Section.index.html | 77 + .../cases_pre408/html/Stop.N.index.html | 27 + .../cases_pre408/html/Stop.index.html | 55 + .../html/Stop_dead_link_doc.Foo.index.html | 27 + .../html/Stop_dead_link_doc.index.html | 146 + .../html/Toplevel_comments.Alias.index.html | 28 + ...plevel_comments.Include_inline'.index.html | 32 + ...oplevel_comments.Include_inline.index.html | 30 + .../html/Toplevel_comments.M''.index.html | 21 + .../html/Toplevel_comments.M'.index.html | 20 + .../html/Toplevel_comments.M.index.html | 20 + .../Toplevel_comments.class-c1.index.html | 21 + .../Toplevel_comments.class-c2.index.html | 20 + ...Toplevel_comments.class-type-ct.index.html | 21 + .../html/Toplevel_comments.index.html | 175 + ...s.module-type-Include_inline_T'.index.html | 33 + ...ts.module-type-Include_inline_T.index.html | 32 + ...Toplevel_comments.module-type-T.index.html | 28 + .../cases_pre408/html/Type.index.html | 879 ++++ .../html/Type.module-type-X.index.html | 33 + .../cases_pre408/html/Val.index.html | 41 + test/generators/cases_pre408/html/dune | 1 + .../cases_pre408/html/gen_html/dune | 5 + .../cases_pre408/html/gen_html/gen_html.ml | 6 + .../cases_pre408/html/html.dune.inc | 4002 +++++++++++++++++ test/generators/cases_pre408/html/mld.html | 45 + .../generators/cases_pre408/latex/Alias.X.tex | 5 + test/generators/cases_pre408/latex/Alias.tex | 8 + test/generators/cases_pre408/latex/Bugs.tex | 6 + .../cases_pre408/latex/Bugs_pre_410.tex | 6 + .../latex/Class.empty_virtual'.tex | 3 + .../cases_pre408/latex/Class.mutually'.tex | 3 + .../cases_pre408/latex/Class.polymorphic'.tex | 3 + .../cases_pre408/latex/Class.recursive'.tex | 3 + test/generators/cases_pre408/latex/Class.tex | 20 + .../cases_pre408/latex/External.tex | 5 + .../cases_pre408/latex/Functor.F1.tex | 9 + .../cases_pre408/latex/Functor.F2.tex | 9 + .../cases_pre408/latex/Functor.F3.tex | 9 + .../cases_pre408/latex/Functor.F4.tex | 9 + .../cases_pre408/latex/Functor.F5.tex | 6 + .../generators/cases_pre408/latex/Functor.tex | 23 + .../cases_pre408/latex/Functor2.X.tex | 14 + .../cases_pre408/latex/Functor2.tex | 20 + .../generators/cases_pre408/latex/Include.tex | 29 + .../cases_pre408/latex/Include2.tex | 21 + .../cases_pre408/latex/Include_sections.tex | 71 + .../cases_pre408/latex/Interlude.tex | 22 + test/generators/cases_pre408/latex/Markup.tex | 149 + test/generators/cases_pre408/latex/Module.tex | 75 + .../cases_pre408/latex/Nested.F.tex | 25 + .../cases_pre408/latex/Nested.inherits.tex | 4 + test/generators/cases_pre408/latex/Nested.tex | 34 + .../cases_pre408/latex/Nested.z.tex | 14 + .../cases_pre408/latex/Ocamlary.Dep12.tex | 9 + .../cases_pre408/latex/Ocamlary.Dep13.c.tex | 4 + .../cases_pre408/latex/Ocamlary.Dep13.tex | 4 + .../cases_pre408/latex/Ocamlary.Dep2.tex | 15 + .../cases_pre408/latex/Ocamlary.Dep5.Z.tex | 5 + .../cases_pre408/latex/Ocamlary.Dep5.tex | 15 + .../cases_pre408/latex/Ocamlary.Dep7.M.tex | 5 + .../cases_pre408/latex/Ocamlary.Dep7.tex | 17 + .../cases_pre408/latex/Ocamlary.Dep9.tex | 9 + .../latex/Ocamlary.FunctorTypeOf.tex | 36 + .../latex/Ocamlary.ModuleWithSignature.tex | 5 + .../Ocamlary.ModuleWithSignatureAlias.tex | 10 + .../latex/Ocamlary.Recollection.tex | 57 + .../cases_pre408/latex/Ocamlary.With3.N.tex | 4 + .../cases_pre408/latex/Ocamlary.With3.tex | 5 + .../cases_pre408/latex/Ocamlary.With4.N.tex | 4 + .../cases_pre408/latex/Ocamlary.With4.tex | 4 + .../cases_pre408/latex/Ocamlary.With7.tex | 9 + .../latex/Ocamlary.empty_class.tex | 3 + .../latex/Ocamlary.one_method_class.tex | 4 + .../latex/Ocamlary.param_class.tex | 4 + .../cases_pre408/latex/Ocamlary.tex | 970 ++++ .../latex/Ocamlary.two_method_class.tex | 5 + .../generators/cases_pre408/latex/Section.tex | 20 + test/generators/cases_pre408/latex/Stop.tex | 17 + .../cases_pre408/latex/Stop_dead_link_doc.tex | 28 + .../latex/Toplevel_comments.Alias.tex | 8 + .../latex/Toplevel_comments.c1.tex | 7 + .../latex/Toplevel_comments.c2.tex | 7 + .../cases_pre408/latex/Toplevel_comments.tex | 45 + test/generators/cases_pre408/latex/Type.tex | 124 + test/generators/cases_pre408/latex/Val.tex | 8 + test/generators/cases_pre408/latex/dune | 1 + .../cases_pre408/latex/gen_latex/dune | 5 + .../cases_pre408/latex/gen_latex/gen_latex.ml | 6 + .../cases_pre408/latex/latex.dune.inc | 784 ++++ test/generators/cases_pre408/latex/mld.tex | 31 + test/generators/cases_pre408/link.dune.inc | 506 +++ test/generators/cases_pre408/man/Alias.3o | 16 + .../cases_pre408/man/Alias.Foo__X.3o | 20 + test/generators/cases_pre408/man/Alias.X.3o | 20 + test/generators/cases_pre408/man/Bugs.3o | 26 + .../cases_pre408/man/Bugs_pre_410.3o | 26 + test/generators/cases_pre408/man/Class.3o | 30 + .../cases_pre408/man/Class.empty_virtual'.3o | 14 + .../cases_pre408/man/Class.mutually'.3o | 14 + .../cases_pre408/man/Class.polymorphic'.3o | 14 + .../cases_pre408/man/Class.recursive'.3o | 14 + test/generators/cases_pre408/man/External.3o | 20 + test/generators/cases_pre408/man/Functor.3o | 53 + .../generators/cases_pre408/man/Functor.F1.3o | 30 + .../generators/cases_pre408/man/Functor.F2.3o | 30 + .../generators/cases_pre408/man/Functor.F3.3o | 30 + .../generators/cases_pre408/man/Functor.F4.3o | 30 + .../generators/cases_pre408/man/Functor.F5.3o | 23 + test/generators/cases_pre408/man/Functor2.3o | 60 + .../generators/cases_pre408/man/Functor2.X.3o | 41 + test/generators/cases_pre408/man/Include.3o | 71 + test/generators/cases_pre408/man/Include2.3o | 41 + .../generators/cases_pre408/man/Include2.X.3o | 17 + .../generators/cases_pre408/man/Include2.Y.3o | 17 + .../man/Include2.Y_include_doc.3o | 14 + .../man/Include2.Y_include_synopsis.3o | 17 + .../cases_pre408/man/Include_sections.3o | 204 + test/generators/cases_pre408/man/Interlude.3o | 54 + test/generators/cases_pre408/man/Markup.3o | 279 ++ test/generators/cases_pre408/man/Module.3o | 178 + test/generators/cases_pre408/man/Module.M'.3o | 14 + .../cases_pre408/man/Module.Mutually.3o | 14 + .../cases_pre408/man/Module.Recursive.3o | 14 + test/generators/cases_pre408/man/Nested.3o | 89 + test/generators/cases_pre408/man/Nested.F.3o | 87 + test/generators/cases_pre408/man/Nested.X.3o | 43 + .../cases_pre408/man/Nested.inherits.3o | 14 + test/generators/cases_pre408/man/Nested.z.3o | 41 + test/generators/cases_pre408/man/Ocamlary.3o | 1971 ++++++++ .../cases_pre408/man/Ocamlary.Aliases.3o | 81 + .../cases_pre408/man/Ocamlary.Aliases.E.3o | 16 + .../cases_pre408/man/Ocamlary.Aliases.Foo.3o | 22 + .../man/Ocamlary.Aliases.Foo.A.3o | 16 + .../man/Ocamlary.Aliases.Foo.B.3o | 16 + .../man/Ocamlary.Aliases.Foo.C.3o | 16 + .../man/Ocamlary.Aliases.Foo.D.3o | 16 + .../man/Ocamlary.Aliases.Foo.E.3o | 16 + .../man/Ocamlary.Aliases.Foo__.3o | 22 + .../man/Ocamlary.Aliases.Foo__A.3o | 16 + .../man/Ocamlary.Aliases.Foo__B.3o | 16 + .../man/Ocamlary.Aliases.Foo__C.3o | 16 + .../man/Ocamlary.Aliases.Foo__D.3o | 16 + .../man/Ocamlary.Aliases.Foo__E.3o | 16 + .../cases_pre408/man/Ocamlary.Aliases.P1.3o | 14 + .../cases_pre408/man/Ocamlary.Aliases.P1.Y.3o | 16 + .../cases_pre408/man/Ocamlary.Aliases.P2.3o | 14 + .../cases_pre408/man/Ocamlary.Aliases.P2.Z.3o | 19 + .../cases_pre408/man/Ocamlary.Aliases.Std.3o | 22 + .../cases_pre408/man/Ocamlary.Buffer.3o | 17 + .../man/Ocamlary.CanonicalTest.3o | 22 + .../man/Ocamlary.CanonicalTest.Base.3o | 14 + .../man/Ocamlary.CanonicalTest.Base.List.3o | 16 + .../man/Ocamlary.CanonicalTest.Base__.3o | 14 + .../man/Ocamlary.CanonicalTest.Base__List.3o | 16 + .../man/Ocamlary.CanonicalTest.Base__Tests.3o | 33 + .../Ocamlary.CanonicalTest.Base__Tests.C.3o | 16 + .../man/Ocamlary.CanonicalTest.List_modif.3o | 16 + .../man/Ocamlary.CollectionModule.3o | 50 + .../Ocamlary.CollectionModule.InnerModuleA.3o | 48 + ...ectionModule.InnerModuleA.InnerModuleA'.3o | 23 + .../cases_pre408/man/Ocamlary.Dep1.3o | 27 + .../cases_pre408/man/Ocamlary.Dep1.X.3o | 14 + .../cases_pre408/man/Ocamlary.Dep1.X.Y.3o | 14 + .../cases_pre408/man/Ocamlary.Dep1.X.Y.c.3o | 14 + .../cases_pre408/man/Ocamlary.Dep11.3o | 25 + .../cases_pre408/man/Ocamlary.Dep12.3o | 30 + .../cases_pre408/man/Ocamlary.Dep13.3o | 14 + .../cases_pre408/man/Ocamlary.Dep13.c.3o | 14 + .../cases_pre408/man/Ocamlary.Dep2.3o | 41 + .../cases_pre408/man/Ocamlary.Dep2.A.3o | 14 + .../cases_pre408/man/Ocamlary.Dep3.3o | 14 + .../cases_pre408/man/Ocamlary.Dep4.3o | 37 + .../cases_pre408/man/Ocamlary.Dep4.X.3o | 14 + .../cases_pre408/man/Ocamlary.Dep5.3o | 45 + .../cases_pre408/man/Ocamlary.Dep5.Z.3o | 16 + .../cases_pre408/man/Ocamlary.Dep6.3o | 43 + .../cases_pre408/man/Ocamlary.Dep6.X.3o | 21 + .../cases_pre408/man/Ocamlary.Dep6.X.Y.3o | 14 + .../cases_pre408/man/Ocamlary.Dep7.3o | 54 + .../cases_pre408/man/Ocamlary.Dep7.M.3o | 16 + .../cases_pre408/man/Ocamlary.Dep8.3o | 19 + .../cases_pre408/man/Ocamlary.Dep9.3o | 30 + .../man/Ocamlary.DoubleInclude1.3o | 14 + .../Ocamlary.DoubleInclude1.DoubleInclude2.3o | 14 + .../man/Ocamlary.DoubleInclude3.3o | 14 + .../Ocamlary.DoubleInclude3.DoubleInclude2.3o | 14 + .../cases_pre408/man/Ocamlary.Empty.3o | 21 + .../cases_pre408/man/Ocamlary.ExtMod.3o | 21 + .../man/Ocamlary.FunctorTypeOf.3o | 133 + .../man/Ocamlary.IncludeInclude1.3o | 19 + .../cases_pre408/man/Ocamlary.IncludedA.3o | 14 + .../generators/cases_pre408/man/Ocamlary.M.3o | 14 + .../man/Ocamlary.ModuleWithSignature.3o | 17 + .../man/Ocamlary.ModuleWithSignatureAlias.3o | 21 + .../cases_pre408/man/Ocamlary.One.3o | 14 + .../man/Ocamlary.Only_a_module.3o | 14 + .../cases_pre408/man/Ocamlary.Recollection.3o | 161 + .../man/Ocamlary.Recollection.InnerModuleA.3o | 48 + ...Recollection.InnerModuleA.InnerModuleA'.3o | 23 + .../cases_pre408/man/Ocamlary.With10.3o | 34 + .../cases_pre408/man/Ocamlary.With2.3o | 19 + .../cases_pre408/man/Ocamlary.With3.3o | 16 + .../cases_pre408/man/Ocamlary.With3.N.3o | 14 + .../cases_pre408/man/Ocamlary.With4.3o | 14 + .../cases_pre408/man/Ocamlary.With4.N.3o | 14 + .../cases_pre408/man/Ocamlary.With5.3o | 21 + .../cases_pre408/man/Ocamlary.With5.N.3o | 14 + .../cases_pre408/man/Ocamlary.With6.3o | 28 + .../cases_pre408/man/Ocamlary.With7.3o | 30 + .../cases_pre408/man/Ocamlary.With9.3o | 19 + .../cases_pre408/man/Ocamlary.empty_class.3o | 14 + .../man/Ocamlary.one_method_class.3o | 14 + .../cases_pre408/man/Ocamlary.param_class.3o | 14 + .../man/Ocamlary.two_method_class.3o | 16 + test/generators/cases_pre408/man/Section.3o | 63 + test/generators/cases_pre408/man/Stop.3o | 36 + test/generators/cases_pre408/man/Stop.N.3o | 14 + .../cases_pre408/man/Stop_dead_link_doc.3o | 52 + .../man/Stop_dead_link_doc.Foo.3o | 14 + .../cases_pre408/man/Toplevel_comments.3o | 115 + .../man/Toplevel_comments.Alias.3o | 21 + .../man/Toplevel_comments.Include_inline'.3o | 21 + .../man/Toplevel_comments.Include_inline.3o | 17 + .../cases_pre408/man/Toplevel_comments.M''.3o | 21 + .../cases_pre408/man/Toplevel_comments.M'.3o | 17 + .../cases_pre408/man/Toplevel_comments.M.3o | 17 + .../cases_pre408/man/Toplevel_comments.c1.3o | 21 + .../cases_pre408/man/Toplevel_comments.c2.3o | 21 + test/generators/cases_pre408/man/Type.3o | 257 ++ test/generators/cases_pre408/man/Val.3o | 29 + test/generators/cases_pre408/man/dune | 1 + test/generators/cases_pre408/man/gen_man/dune | 5 + .../cases_pre408/man/gen_man/gen_man.ml | 6 + test/generators/cases_pre408/man/man.dune.inc | 1670 +++++++ test/generators/cases_pre408/man/mld.3o | 63 + 545 files changed, 33759 insertions(+) create mode 100644 test/generators/cases_pre408/cases/.ocamlformat create mode 100644 test/generators/cases_pre408/cases/alias.ml create mode 100644 test/generators/cases_pre408/cases/bugs.ml create mode 100644 test/generators/cases_pre408/cases/bugs_pre_410.ml create mode 100644 test/generators/cases_pre408/cases/class.mli create mode 100644 test/generators/cases_pre408/cases/external.mli create mode 100644 test/generators/cases_pre408/cases/functor.mli create mode 100644 test/generators/cases_pre408/cases/functor2.mli create mode 100644 test/generators/cases_pre408/cases/include.mli create mode 100644 test/generators/cases_pre408/cases/include2.ml create mode 100644 test/generators/cases_pre408/cases/include_sections.mli create mode 100644 test/generators/cases_pre408/cases/interlude.mli create mode 100644 test/generators/cases_pre408/cases/markup.mli create mode 100644 test/generators/cases_pre408/cases/mld.mld create mode 100644 test/generators/cases_pre408/cases/module.mli create mode 100644 test/generators/cases_pre408/cases/nested.mli create mode 120000 test/generators/cases_pre408/cases/ocamlary.mli create mode 100644 test/generators/cases_pre408/cases/section.mli create mode 100644 test/generators/cases_pre408/cases/stop.mli create mode 100644 test/generators/cases_pre408/cases/stop_dead_link_doc.mli create mode 100644 test/generators/cases_pre408/cases/toplevel_comments.mli create mode 100644 test/generators/cases_pre408/cases/type.mli create mode 100644 test/generators/cases_pre408/cases/val.mli create mode 100644 test/generators/cases_pre408/dune create mode 100644 test/generators/cases_pre408/gen_link/dune create mode 100644 test/generators/cases_pre408/gen_link/gen_link.ml create mode 100644 test/generators/cases_pre408/html/Alias.Foo__X.index.html create mode 100644 test/generators/cases_pre408/html/Alias.X.index.html create mode 100644 test/generators/cases_pre408/html/Alias.index.html create mode 100644 test/generators/cases_pre408/html/Bugs.index.html create mode 100644 test/generators/cases_pre408/html/Bugs_pre_410.index.html create mode 100644 test/generators/cases_pre408/html/Class.class-empty_virtual'.index.html create mode 100644 test/generators/cases_pre408/html/Class.class-mutually'.index.html create mode 100644 test/generators/cases_pre408/html/Class.class-polymorphic'.index.html create mode 100644 test/generators/cases_pre408/html/Class.class-recursive'.index.html create mode 100644 test/generators/cases_pre408/html/Class.class-type-empty.index.html create mode 100644 test/generators/cases_pre408/html/Class.class-type-empty_virtual.index.html create mode 100644 test/generators/cases_pre408/html/Class.class-type-mutually.index.html create mode 100644 test/generators/cases_pre408/html/Class.class-type-polymorphic.index.html create mode 100644 test/generators/cases_pre408/html/Class.class-type-recursive.index.html create mode 100644 test/generators/cases_pre408/html/Class.index.html create mode 100644 test/generators/cases_pre408/html/External.index.html create mode 100644 test/generators/cases_pre408/html/Functor.F1.argument-1-Arg.index.html create mode 100644 test/generators/cases_pre408/html/Functor.F1.index.html create mode 100644 test/generators/cases_pre408/html/Functor.F2.argument-1-Arg.index.html create mode 100644 test/generators/cases_pre408/html/Functor.F2.index.html create mode 100644 test/generators/cases_pre408/html/Functor.F3.argument-1-Arg.index.html create mode 100644 test/generators/cases_pre408/html/Functor.F3.index.html create mode 100644 test/generators/cases_pre408/html/Functor.F4.argument-1-Arg.index.html create mode 100644 test/generators/cases_pre408/html/Functor.F4.index.html create mode 100644 test/generators/cases_pre408/html/Functor.F5.index.html create mode 100644 test/generators/cases_pre408/html/Functor.index.html create mode 100644 test/generators/cases_pre408/html/Functor.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Functor.module-type-S1.argument-1-_.index.html create mode 100644 test/generators/cases_pre408/html/Functor.module-type-S1.index.html create mode 100644 test/generators/cases_pre408/html/Functor2.X.argument-1-Y.index.html create mode 100644 test/generators/cases_pre408/html/Functor2.X.argument-2-Z.index.html create mode 100644 test/generators/cases_pre408/html/Functor2.X.index.html create mode 100644 test/generators/cases_pre408/html/Functor2.index.html create mode 100644 test/generators/cases_pre408/html/Functor2.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Functor2.module-type-XF.argument-1-Y.index.html create mode 100644 test/generators/cases_pre408/html/Functor2.module-type-XF.argument-2-Z.index.html create mode 100644 test/generators/cases_pre408/html/Functor2.module-type-XF.index.html create mode 100644 test/generators/cases_pre408/html/Include.index.html create mode 100644 test/generators/cases_pre408/html/Include.module-type-Dorminant_Module.index.html create mode 100644 test/generators/cases_pre408/html/Include.module-type-Inherent_Module.index.html create mode 100644 test/generators/cases_pre408/html/Include.module-type-Inlined.index.html create mode 100644 test/generators/cases_pre408/html/Include.module-type-Not_inlined.index.html create mode 100644 test/generators/cases_pre408/html/Include.module-type-Not_inlined_and_closed.index.html create mode 100644 test/generators/cases_pre408/html/Include.module-type-Not_inlined_and_opened.index.html create mode 100644 test/generators/cases_pre408/html/Include2.X.index.html create mode 100644 test/generators/cases_pre408/html/Include2.Y.index.html create mode 100644 test/generators/cases_pre408/html/Include2.Y_include_doc.index.html create mode 100644 test/generators/cases_pre408/html/Include2.Y_include_synopsis.index.html create mode 100644 test/generators/cases_pre408/html/Include2.index.html create mode 100644 test/generators/cases_pre408/html/Include_sections.index.html create mode 100644 test/generators/cases_pre408/html/Include_sections.module-type-Something.index.html create mode 100644 test/generators/cases_pre408/html/Interlude.index.html create mode 100644 test/generators/cases_pre408/html/Markup.index.html create mode 100644 test/generators/cases_pre408/html/Module.M'.index.html create mode 100644 test/generators/cases_pre408/html/Module.Mutually.index.html create mode 100644 test/generators/cases_pre408/html/Module.Recursive.index.html create mode 100644 test/generators/cases_pre408/html/Module.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S.M.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S2.M.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S2.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S3.M.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S3.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S4.M.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S4.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S5.M.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S5.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S6.M.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S6.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S7.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S8.index.html create mode 100644 test/generators/cases_pre408/html/Module.module-type-S9.index.html create mode 100644 test/generators/cases_pre408/html/Nested.F.argument-1-Arg1.index.html create mode 100644 test/generators/cases_pre408/html/Nested.F.argument-2-Arg2.index.html create mode 100644 test/generators/cases_pre408/html/Nested.F.index.html create mode 100644 test/generators/cases_pre408/html/Nested.X.index.html create mode 100644 test/generators/cases_pre408/html/Nested.class-inherits.index.html create mode 100644 test/generators/cases_pre408/html/Nested.class-z.index.html create mode 100644 test/generators/cases_pre408/html/Nested.index.html create mode 100644 test/generators/cases_pre408/html/Nested.module-type-Y.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.E.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.A.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.B.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.C.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.D.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.E.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__A.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__B.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__C.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__D.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__E.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.P1.Y.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.P1.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.P2.Z.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.P2.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.Std.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Aliases.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Buffer.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base.List.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__List.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__Tests.C.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__Tests.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CanonicalTest.List_modif.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CanonicalTest.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CollectionModule.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.CollectionModule.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep1.X.Y.class-c.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep1.X.Y.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep1.X.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep1.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep1.module-type-S.class-c.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep1.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep11.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep11.module-type-S.class-c.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep11.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep12.argument-1-Arg.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep12.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep13.class-c.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep13.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep2.A.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep2.argument-1-Arg.X.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep2.argument-1-Arg.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep2.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep3.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep4.X.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep4.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.X.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.Y.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-T.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep5.Z.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.module-type-S.Y.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep5.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep6.X.Y.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep6.X.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep6.X.module-type-R.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep6.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.Y.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.module-type-R.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep7.M.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.X.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.module-type-T.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep7.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep8.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep8.module-type-T.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep9.argument-1-X.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Dep9.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.DoubleInclude1.DoubleInclude2.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.DoubleInclude1.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.DoubleInclude3.DoubleInclude2.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.DoubleInclude3.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Empty.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.ExtMod.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.IncludeInclude1.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.IncludeInclude1.module-type-IncludeInclude2.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.IncludedA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.M.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.ModuleWithSignature.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.ModuleWithSignatureAlias.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.One.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Only_a_module.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.Recollection.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With10.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With10.module-type-T.M.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With10.module-type-T.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With2.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With2.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With3.N.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With3.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With4.N.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With4.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With5.N.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With5.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With5.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With6.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With6.module-type-T.M.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With6.module-type-T.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With7.argument-1-X.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With7.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With9.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.With9.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.class-empty_class.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.class-one_method_class.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.class-param_class.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.class-two_method_class.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-A.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-B.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-C.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-Dep10.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-Empty.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-EmptySig.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-EmptySigAlias.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-IncludeInclude2.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-IncludeModuleType.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-IncludedB.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-M.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-MMM.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-MissingComment.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude1.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude1.module-type-NestedInclude2.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude2.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-RECOLLECTION.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.InnerModuleA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.module-type-InnerModuleTypeA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.Inner.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.Inner.module-type-Empty.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-EmptySig.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-One.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigA.SubSigAMod.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigB.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SuperSig.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.IncludedA.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.module-type-IncludedB.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-TypeExt.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-TypeExtPruned.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-With1.M.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-With1.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-With11.N.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-With11.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.N.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.module-type-S.index.html create mode 100644 test/generators/cases_pre408/html/Ocamlary.module-type-With8.index.html create mode 100644 test/generators/cases_pre408/html/Section.index.html create mode 100644 test/generators/cases_pre408/html/Stop.N.index.html create mode 100644 test/generators/cases_pre408/html/Stop.index.html create mode 100644 test/generators/cases_pre408/html/Stop_dead_link_doc.Foo.index.html create mode 100644 test/generators/cases_pre408/html/Stop_dead_link_doc.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.Alias.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.Include_inline'.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.Include_inline.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.M''.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.M'.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.M.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.class-c1.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.class-c2.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.class-type-ct.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.module-type-Include_inline_T'.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.module-type-Include_inline_T.index.html create mode 100644 test/generators/cases_pre408/html/Toplevel_comments.module-type-T.index.html create mode 100644 test/generators/cases_pre408/html/Type.index.html create mode 100644 test/generators/cases_pre408/html/Type.module-type-X.index.html create mode 100644 test/generators/cases_pre408/html/Val.index.html create mode 100644 test/generators/cases_pre408/html/dune create mode 100644 test/generators/cases_pre408/html/gen_html/dune create mode 100644 test/generators/cases_pre408/html/gen_html/gen_html.ml create mode 100644 test/generators/cases_pre408/html/html.dune.inc create mode 100644 test/generators/cases_pre408/html/mld.html create mode 100644 test/generators/cases_pre408/latex/Alias.X.tex create mode 100644 test/generators/cases_pre408/latex/Alias.tex create mode 100644 test/generators/cases_pre408/latex/Bugs.tex create mode 100644 test/generators/cases_pre408/latex/Bugs_pre_410.tex create mode 100644 test/generators/cases_pre408/latex/Class.empty_virtual'.tex create mode 100644 test/generators/cases_pre408/latex/Class.mutually'.tex create mode 100644 test/generators/cases_pre408/latex/Class.polymorphic'.tex create mode 100644 test/generators/cases_pre408/latex/Class.recursive'.tex create mode 100644 test/generators/cases_pre408/latex/Class.tex create mode 100644 test/generators/cases_pre408/latex/External.tex create mode 100644 test/generators/cases_pre408/latex/Functor.F1.tex create mode 100644 test/generators/cases_pre408/latex/Functor.F2.tex create mode 100644 test/generators/cases_pre408/latex/Functor.F3.tex create mode 100644 test/generators/cases_pre408/latex/Functor.F4.tex create mode 100644 test/generators/cases_pre408/latex/Functor.F5.tex create mode 100644 test/generators/cases_pre408/latex/Functor.tex create mode 100644 test/generators/cases_pre408/latex/Functor2.X.tex create mode 100644 test/generators/cases_pre408/latex/Functor2.tex create mode 100644 test/generators/cases_pre408/latex/Include.tex create mode 100644 test/generators/cases_pre408/latex/Include2.tex create mode 100644 test/generators/cases_pre408/latex/Include_sections.tex create mode 100644 test/generators/cases_pre408/latex/Interlude.tex create mode 100644 test/generators/cases_pre408/latex/Markup.tex create mode 100644 test/generators/cases_pre408/latex/Module.tex create mode 100644 test/generators/cases_pre408/latex/Nested.F.tex create mode 100644 test/generators/cases_pre408/latex/Nested.inherits.tex create mode 100644 test/generators/cases_pre408/latex/Nested.tex create mode 100644 test/generators/cases_pre408/latex/Nested.z.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Dep12.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Dep13.c.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Dep13.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Dep2.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Dep5.Z.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Dep5.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Dep7.M.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Dep7.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Dep9.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.FunctorTypeOf.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.ModuleWithSignature.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.ModuleWithSignatureAlias.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.Recollection.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.With3.N.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.With3.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.With4.N.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.With4.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.With7.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.empty_class.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.one_method_class.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.param_class.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.tex create mode 100644 test/generators/cases_pre408/latex/Ocamlary.two_method_class.tex create mode 100644 test/generators/cases_pre408/latex/Section.tex create mode 100644 test/generators/cases_pre408/latex/Stop.tex create mode 100644 test/generators/cases_pre408/latex/Stop_dead_link_doc.tex create mode 100644 test/generators/cases_pre408/latex/Toplevel_comments.Alias.tex create mode 100644 test/generators/cases_pre408/latex/Toplevel_comments.c1.tex create mode 100644 test/generators/cases_pre408/latex/Toplevel_comments.c2.tex create mode 100644 test/generators/cases_pre408/latex/Toplevel_comments.tex create mode 100644 test/generators/cases_pre408/latex/Type.tex create mode 100644 test/generators/cases_pre408/latex/Val.tex create mode 100644 test/generators/cases_pre408/latex/dune create mode 100644 test/generators/cases_pre408/latex/gen_latex/dune create mode 100644 test/generators/cases_pre408/latex/gen_latex/gen_latex.ml create mode 100644 test/generators/cases_pre408/latex/latex.dune.inc create mode 100644 test/generators/cases_pre408/latex/mld.tex create mode 100644 test/generators/cases_pre408/link.dune.inc create mode 100644 test/generators/cases_pre408/man/Alias.3o create mode 100644 test/generators/cases_pre408/man/Alias.Foo__X.3o create mode 100644 test/generators/cases_pre408/man/Alias.X.3o create mode 100644 test/generators/cases_pre408/man/Bugs.3o create mode 100644 test/generators/cases_pre408/man/Bugs_pre_410.3o create mode 100644 test/generators/cases_pre408/man/Class.3o create mode 100644 test/generators/cases_pre408/man/Class.empty_virtual'.3o create mode 100644 test/generators/cases_pre408/man/Class.mutually'.3o create mode 100644 test/generators/cases_pre408/man/Class.polymorphic'.3o create mode 100644 test/generators/cases_pre408/man/Class.recursive'.3o create mode 100644 test/generators/cases_pre408/man/External.3o create mode 100644 test/generators/cases_pre408/man/Functor.3o create mode 100644 test/generators/cases_pre408/man/Functor.F1.3o create mode 100644 test/generators/cases_pre408/man/Functor.F2.3o create mode 100644 test/generators/cases_pre408/man/Functor.F3.3o create mode 100644 test/generators/cases_pre408/man/Functor.F4.3o create mode 100644 test/generators/cases_pre408/man/Functor.F5.3o create mode 100644 test/generators/cases_pre408/man/Functor2.3o create mode 100644 test/generators/cases_pre408/man/Functor2.X.3o create mode 100644 test/generators/cases_pre408/man/Include.3o create mode 100644 test/generators/cases_pre408/man/Include2.3o create mode 100644 test/generators/cases_pre408/man/Include2.X.3o create mode 100644 test/generators/cases_pre408/man/Include2.Y.3o create mode 100644 test/generators/cases_pre408/man/Include2.Y_include_doc.3o create mode 100644 test/generators/cases_pre408/man/Include2.Y_include_synopsis.3o create mode 100644 test/generators/cases_pre408/man/Include_sections.3o create mode 100644 test/generators/cases_pre408/man/Interlude.3o create mode 100644 test/generators/cases_pre408/man/Markup.3o create mode 100644 test/generators/cases_pre408/man/Module.3o create mode 100644 test/generators/cases_pre408/man/Module.M'.3o create mode 100644 test/generators/cases_pre408/man/Module.Mutually.3o create mode 100644 test/generators/cases_pre408/man/Module.Recursive.3o create mode 100644 test/generators/cases_pre408/man/Nested.3o create mode 100644 test/generators/cases_pre408/man/Nested.F.3o create mode 100644 test/generators/cases_pre408/man/Nested.X.3o create mode 100644 test/generators/cases_pre408/man/Nested.inherits.3o create mode 100644 test/generators/cases_pre408/man/Nested.z.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.E.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.A.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.B.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.C.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.D.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.E.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__A.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__B.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__C.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__D.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__E.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.P1.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.P1.Y.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.P2.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.P2.Z.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Aliases.Std.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Buffer.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CanonicalTest.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base.List.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__List.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__Tests.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__Tests.C.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CanonicalTest.List_modif.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CollectionModule.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CollectionModule.InnerModuleA.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep1.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep1.X.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep1.X.Y.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep1.X.Y.c.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep11.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep12.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep13.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep13.c.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep2.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep2.A.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep3.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep4.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep4.X.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep5.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep5.Z.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep6.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep6.X.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep6.X.Y.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep7.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep7.M.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep8.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Dep9.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.DoubleInclude1.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.DoubleInclude1.DoubleInclude2.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.DoubleInclude3.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.DoubleInclude3.DoubleInclude2.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Empty.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.ExtMod.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.FunctorTypeOf.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.IncludeInclude1.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.IncludedA.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.M.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.ModuleWithSignature.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.ModuleWithSignatureAlias.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.One.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Only_a_module.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Recollection.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Recollection.InnerModuleA.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.Recollection.InnerModuleA.InnerModuleA'.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With10.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With2.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With3.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With3.N.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With4.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With4.N.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With5.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With5.N.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With6.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With7.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.With9.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.empty_class.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.one_method_class.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.param_class.3o create mode 100644 test/generators/cases_pre408/man/Ocamlary.two_method_class.3o create mode 100644 test/generators/cases_pre408/man/Section.3o create mode 100644 test/generators/cases_pre408/man/Stop.3o create mode 100644 test/generators/cases_pre408/man/Stop.N.3o create mode 100644 test/generators/cases_pre408/man/Stop_dead_link_doc.3o create mode 100644 test/generators/cases_pre408/man/Stop_dead_link_doc.Foo.3o create mode 100644 test/generators/cases_pre408/man/Toplevel_comments.3o create mode 100644 test/generators/cases_pre408/man/Toplevel_comments.Alias.3o create mode 100644 test/generators/cases_pre408/man/Toplevel_comments.Include_inline'.3o create mode 100644 test/generators/cases_pre408/man/Toplevel_comments.Include_inline.3o create mode 100644 test/generators/cases_pre408/man/Toplevel_comments.M''.3o create mode 100644 test/generators/cases_pre408/man/Toplevel_comments.M'.3o create mode 100644 test/generators/cases_pre408/man/Toplevel_comments.M.3o create mode 100644 test/generators/cases_pre408/man/Toplevel_comments.c1.3o create mode 100644 test/generators/cases_pre408/man/Toplevel_comments.c2.3o create mode 100644 test/generators/cases_pre408/man/Type.3o create mode 100644 test/generators/cases_pre408/man/Val.3o create mode 100644 test/generators/cases_pre408/man/dune create mode 100644 test/generators/cases_pre408/man/gen_man/dune create mode 100644 test/generators/cases_pre408/man/gen_man/gen_man.ml create mode 100644 test/generators/cases_pre408/man/man.dune.inc create mode 100644 test/generators/cases_pre408/man/mld.3o diff --git a/test/generators/cases_pre408/cases/.ocamlformat b/test/generators/cases_pre408/cases/.ocamlformat new file mode 100644 index 0000000000..4d6556cb8b --- /dev/null +++ b/test/generators/cases_pre408/cases/.ocamlformat @@ -0,0 +1 @@ +disable = true diff --git a/test/generators/cases_pre408/cases/alias.ml b/test/generators/cases_pre408/cases/alias.ml new file mode 100644 index 0000000000..b458bc3420 --- /dev/null +++ b/test/generators/cases_pre408/cases/alias.ml @@ -0,0 +1,7 @@ +module Foo__X = struct + (** Module Foo__X documentation. This should appear in the documentation + for the alias to this module 'X' *) + type t = int +end + +module X = Foo__X diff --git a/test/generators/cases_pre408/cases/bugs.ml b/test/generators/cases_pre408/cases/bugs.ml new file mode 100644 index 0000000000..2c9c30bbd7 --- /dev/null +++ b/test/generators/cases_pre408/cases/bugs.ml @@ -0,0 +1,5 @@ +type 'a opt = 'a option +let foo (type a) ?(bar : a opt) () = () +(** Triggers an assertion failure when + {:https://github.com/ocaml/odoc/issues/101} is not fixed. *) + diff --git a/test/generators/cases_pre408/cases/bugs_pre_410.ml b/test/generators/cases_pre408/cases/bugs_pre_410.ml new file mode 100644 index 0000000000..0baca54d3b --- /dev/null +++ b/test/generators/cases_pre408/cases/bugs_pre_410.ml @@ -0,0 +1,6 @@ +type 'a opt' = int option +let foo' (type a) ?(bar : a opt') () = () +(** Similar to [Bugs], but the printed type of [~bar] should be [int], not + ['a]. This probably requires fixing in the compiler. See + {:https://github.com/ocaml/odoc/pull/230#issuecomment-433226807}. *) + diff --git a/test/generators/cases_pre408/cases/class.mli b/test/generators/cases_pre408/cases/class.mli new file mode 100644 index 0000000000..b536b0dbda --- /dev/null +++ b/test/generators/cases_pre408/cases/class.mli @@ -0,0 +1,26 @@ +class type empty = +object +end + +class type mutually = +object +end + +and recursive = +object +end + +class mutually' : mutually +and recursive' : recursive + +class type virtual empty_virtual = +object +end + +class virtual empty_virtual' : empty + +class type ['a] polymorphic = +object +end + +class ['a] polymorphic' : ['a] polymorphic diff --git a/test/generators/cases_pre408/cases/external.mli b/test/generators/cases_pre408/cases/external.mli new file mode 100644 index 0000000000..9d68518931 --- /dev/null +++ b/test/generators/cases_pre408/cases/external.mli @@ -0,0 +1,2 @@ +external foo : unit -> unit = "bar" +(** Foo {e bar}. *) diff --git a/test/generators/cases_pre408/cases/functor.mli b/test/generators/cases_pre408/cases/functor.mli new file mode 100644 index 0000000000..8d13c39eb2 --- /dev/null +++ b/test/generators/cases_pre408/cases/functor.mli @@ -0,0 +1,19 @@ +module type S = +sig + type t +end + +module type S1 = functor (_ : S) -> S + +module F1 : functor (Arg : S) -> S + +module F2 : functor (Arg : S) -> (S with type t = Arg.t) + +module F3 : functor (Arg : S) -> +sig + type t = Arg.t +end + +module F4 (Arg : S) : S + +module F5 () : S diff --git a/test/generators/cases_pre408/cases/functor2.mli b/test/generators/cases_pre408/cases/functor2.mli new file mode 100644 index 0000000000..404e4671a2 --- /dev/null +++ b/test/generators/cases_pre408/cases/functor2.mli @@ -0,0 +1,15 @@ +(* test *) + +module type S = sig type t end + +module X : functor (Y:S) -> functor (Z:S) -> sig + type y_t = Y.t + type z_t = Z.t + type x_t = y_t +end + +module type XF = functor (Y:S) -> functor (Z:S) -> sig + type y_t = Y.t + type z_t = Z.t + type x_t = y_t +end diff --git a/test/generators/cases_pre408/cases/include.mli b/test/generators/cases_pre408/cases/include.mli new file mode 100644 index 0000000000..f468c3cfc0 --- /dev/null +++ b/test/generators/cases_pre408/cases/include.mli @@ -0,0 +1,48 @@ +module type Not_inlined = +sig + type t +end + +include Not_inlined + +module type Inlined = +sig + type u +end + +include Inlined +(** @inline *) + +module type Not_inlined_and_closed = +sig + type v +end + +include Not_inlined_and_closed +(** @closed *) + +module type Not_inlined_and_opened = +sig + type w +end + +include Not_inlined_and_opened +(** @open + @closed *) + +(* This demostrates that overridden values are never rendered*) +module type Inherent_Module = +sig + val a : t +end + +include Inherent_Module + + +module type Dorminant_Module = +sig + include Inherent_Module + val a : u +end + +include Dorminant_Module diff --git a/test/generators/cases_pre408/cases/include2.ml b/test/generators/cases_pre408/cases/include2.ml new file mode 100644 index 0000000000..bbfc4ca841 --- /dev/null +++ b/test/generators/cases_pre408/cases/include2.ml @@ -0,0 +1,24 @@ +(** Comment about X that should not appear when including X below. *) +module X = struct + type t = int +end + +include X + +module Y = struct + (** Top-comment of Y. *) + + type t +end + +module Y_include_synopsis = struct + (** The [include Y] below should have the synopsis from [Y]'s top-comment + attached to it. *) + + include Y +end + +module Y_include_doc = struct + include Y + (** Doc attached to [include Y]. [Y]'s top-comment shouldn't appear here. *) +end diff --git a/test/generators/cases_pre408/cases/include_sections.mli b/test/generators/cases_pre408/cases/include_sections.mli new file mode 100644 index 0000000000..d4357c182a --- /dev/null +++ b/test/generators/cases_pre408/cases/include_sections.mli @@ -0,0 +1,41 @@ +(** A module type. *) +module type Something = sig + + val something : unit + + (** {1 Something 1} + + foo *) + + val foo : unit + + (** {2 Something 2} *) + + val bar : unit + (** foo bar *) + + (** {1 Something 1-bis} + + Some text. *) +end + +(** Let's include {!Something} once *) + +include Something (** @inline *) + +(** {1 Second include} + + Let's include {!Something} a second time: the heading level should be shift here. *) + +include Something (** @inline *) + +(** {2 Third include} + + Shifted some more. *) + +include Something (** @inline *) + +(** And let's include it again, but without inlining it this time: the ToC + shouldn't grow. *) + +include Something diff --git a/test/generators/cases_pre408/cases/interlude.mli b/test/generators/cases_pre408/cases/interlude.mli new file mode 100644 index 0000000000..d8e79875b1 --- /dev/null +++ b/test/generators/cases_pre408/cases/interlude.mli @@ -0,0 +1,21 @@ +(** This is the comment associated to the module. *) + +(** Some separate stray text at the top of the module. *) + +val foo : unit +(** Foo. *) + +(** Some stray text that is not associated with any signature item. + + It has multiple paragraphs. *) + +(** A separate block of stray text, adjacent to the preceding one. *) + +val bar : unit +(** Bar. *) + +val multiple : unit +val signature : unit +val items : unit + +(** Stray text at the bottom of the module. *) diff --git a/test/generators/cases_pre408/cases/markup.mli b/test/generators/cases_pre408/cases/markup.mli new file mode 100644 index 0000000000..369c7e6dda --- /dev/null +++ b/test/generators/cases_pre408/cases/markup.mli @@ -0,0 +1,179 @@ +(** Here, we test the rendering of comment markup. *) + + +(** {1 Sections} + + Let's get these done first, because sections will be used to break up the + rest of this test. + + Besides the section heading above, there are also + + {2 Subsection headings} + + and + + {3 Sub-subsection headings} + + but odoc has banned deeper headings. There are also title headings, but they + are only allowed in mld files. + + {3:anchors Anchors} + + Sections can have attached {!anchors}, and it is possible to {{!anchors} + link} to them. Links to section headers should not be set in source code + style. + + {4 Paragraph} + + Individual paragraphs can have a heading. + + {5 Subparagraph} + + Parts of a longer paragraph that can be considered alone can also have + headings. + + + {1 Styling} + + This paragraph has some styled elements: {b bold} and {i italic}, + {b {i bold italic}}, {e emphasis}, {e {e emphasis} within emphasis}, + {b {i bold italic}}, super{^script}, sub{_script}. The line spacing should + be enough for superscripts and subscripts not to look odd. + + Note: {i In italics {e emphasis} is rendered as normal text while {e + emphasis {e in} emphasis} is rendered in italics.} {i It also work the same + in {{:#} links in italics with {e emphasis {e in} emphasis}.}} + + [code] is a different kind of markup that doesn't allow nested markup. + + It's possible for two markup elements to appear {b next} {i to} each other + and have a space, and appear {b next}{i to} each other with no space. It + doesn't matter {b how} {i much} space it was in the source: in this + sentence, it was two space characters. And in this one, there is {b a} + {i newline}. + + This is also true between {e non-}[code] markup {e and} [code]. + + Code can appear {b inside [other] markup}. Its display shouldn't be + affected. + + + {1 Links and references} + + This is a {{:#} link}. It sends you to the top of this page. Links can have + markup inside them: {{:#} {b bold}}, {{:#} {i italics}}, + {{:#} {e emphasis}}, {{:#} super{^script}}, {{:#} sub{_script}}, and + {{:#} [code]}. Links can also be nested {e {{:#} inside}} markup. Links + cannot be nested inside each other. This link has no replacement text: + {{:#}}. The text is filled in by odoc. This is a shorthand link: {:#}. The + text is also filled in by odoc in this case. + + This is a reference to {!foo}. References can have replacement text: + {{!foo} the value foo}. Except for the special lookup support, references + are pretty much just like links. The replacement text can have nested + styles: {{!foo} {b bold}}, {{!foo} {i italic}}, {{!foo} {e emphasis}}, + {{!foo} super{^script}}, {{!foo} sub{_script}}, and {{!foo} [code]}. It's + also possible to surround a reference in a style: {b {!foo}}. References + can't be nested inside references, and links and references can't be nested + inside each other. + + + {1 Preformatted text} + + This is a code block: + + {[ + let foo = () + (** There are some nested comments in here, but an unpaired comment + terminator would terminate the whole doc surrounding comment. It's + best to keep code blocks no wider than 72 characters. *) + + let bar = + ignore foo + ]} + + There are also verbatim blocks: + +{v +The main difference is these don't get syntax highlighting. +v} + + + {1 Lists} + + - This is a + - shorthand bulleted list, + - and the paragraphs in each list item support {e styling}. + + + This is a + + shorthand numbered list. + + - Shorthand list items can span multiple lines, however trying to put two + paragraphs into a shorthand list item using a double line break + + just creates a paragraph outside the list. + + - Similarly, inserting a blank line between two list items + + - creates two separate lists. + + {ul + {li To get around this limitation, one + + can use explicitly-delimited lists.} + {li This one is bulleted,}} + + {ol {li but there is also the numbered variant.}} + + {ul + {li + {ul + {li lists} + {li can be nested} + {li and can include references} + {li {!foo}}}}} + + + {1 Unicode} + + The parser supports any ASCII-compatible encoding, in particuλar UTF-8. + + + {1 Raw HTML} + + Raw HTML can be {%html:%} as + inline elements into sentences. + + {%html: +
      + If the raw HTML is the only thing in a paragraph, it is treated as a block + element, and won't be wrapped in paragraph tags by the HTML generator. +
      + %} + + + {1 Modules} + + {!modules: } + {!modules: X} + {!modules: X Y Z} + + + {1 Tags} + + Each comment can end with zero or more tags. Here are some examples: + + @author antron + @deprecated a {e long} time ago + @param foo unused + @raise Failure always + @return never + @see <#> this url + @see 'foo.ml' this file + @see "Foo" this document + @since 0 + @before 1.0 it was in b{^e}t{_a} + @version -1 *) + +val foo : unit +(** Comments in structure items {b support} {e markup}, t{^o}{_o}. *) diff --git a/test/generators/cases_pre408/cases/mld.mld b/test/generators/cases_pre408/cases/mld.mld new file mode 100644 index 0000000000..65e78dcb9b --- /dev/null +++ b/test/generators/cases_pre408/cases/mld.mld @@ -0,0 +1,34 @@ +{0 Mld Page} + +This is an [.mld] file. It doesn't have an auto-generated title, like modules +and other pages generated fully by odoc do. + +It will have a TOC generated from section headings. + +{1 Section} + +This is a section. + +Another paragraph in section. + +{1 Another section} + +This is another section. + +Another paragraph in section 2. + +{2 Subsection} + +This is a subsection. + +Another paragraph in subsection. + +Yet another paragraph in subsection. + +{2 Another Subsection} + +This is another subsection. + +Another paragraph in subsection 2. + +Yet another paragraph in subsection 2. diff --git a/test/generators/cases_pre408/cases/module.mli b/test/generators/cases_pre408/cases/module.mli new file mode 100644 index 0000000000..a270d525b4 --- /dev/null +++ b/test/generators/cases_pre408/cases/module.mli @@ -0,0 +1,44 @@ +(** Foo. *) + +val foo : unit +(** The module needs at least one signature item, otherwise a bug causes the + compiler to drop the module comment (above). See + {{:https://caml.inria.fr/mantis/view.php?id=7701}}. *) + +module type S = +sig + type t + type u + type 'a v + type ('a, 'b) w + module M : sig end +end + +module type S1 + +module type S2 = S + +module type S3 = S with type t = int and type u = string + +module type S4 = S with type t := int + +module type S5 = S with type 'a v := 'a list + +type ('a, 'b) result + +module type S6 = S with type ('a, 'b) w := ('a, 'b) result + +module M' : sig end + +module type S7 = S with module M = M' + +module type S8 = S with module M := M' + +module type S9 = module type of M' + +open M' + +open! M' + +module rec Mutually : sig end +and Recursive : sig end diff --git a/test/generators/cases_pre408/cases/nested.mli b/test/generators/cases_pre408/cases/nested.mli new file mode 100644 index 0000000000..795cc7a6ff --- /dev/null +++ b/test/generators/cases_pre408/cases/nested.mli @@ -0,0 +1,84 @@ + +(** This comment needs to be here before #235 is fixed. *) + +(** {1 Module} *) + +(** This is module X. + + Some additional comments. *) +module X : sig + + (** {1 Type} *) + + type t + (** Some type. *) + + (** {1 Values} *) + + val x : t + (** The value of x. *) +end + + +(** {1 Module type} *) + +(** This is module type Y. + + Some additional comments. *) +module type Y = sig + + (** {1 Type} *) + + type t + (** Some type. *) + + (** {1 Values} *) + + val y : t + (** The value of y. *) +end + + +(** {1 Functor} *) + +(** This is a functor F. + + Some additional comments. *) +module F + (Arg1 : Y) (Arg2 : sig + (** {1 Type} *) + + type t + (** Some type. *) + end) : sig + (** {1 Type} *) + + type t = Arg1.t * Arg2.t + (** Some type. *) +end + + +(** {1 Class} *) + +(** This is class z. + + Some additional comments. *) +class virtual z : object + + val y : int + (** Some value. *) + + val mutable virtual y' : int + + (** {1 Methods} *) + + method z : int + (** Some method. *) + + method private virtual z' : int +end + + +class virtual inherits : object + inherit z +end diff --git a/test/generators/cases_pre408/cases/ocamlary.mli b/test/generators/cases_pre408/cases/ocamlary.mli new file mode 120000 index 0000000000..71395fad4c --- /dev/null +++ b/test/generators/cases_pre408/cases/ocamlary.mli @@ -0,0 +1 @@ +../../../../src/ocamlary/ocamlary.mli \ No newline at end of file diff --git a/test/generators/cases_pre408/cases/section.mli b/test/generators/cases_pre408/cases/section.mli new file mode 100644 index 0000000000..44e14fa9f0 --- /dev/null +++ b/test/generators/cases_pre408/cases/section.mli @@ -0,0 +1,30 @@ +(* Blank lines are needed because of + https://caml.inria.fr/mantis/view.php?id=7701. *) + +(** This is the module comment. Eventually, sections won't be allowed in it. *) + +(** {1 Empty section} *) + +(** {1 Text only} + + Foo bar. *) + +(** {1 Aside only} *) + +(** Foo bar. *) + +(** {1 Value only} *) + +val foo : unit + +(** {1 Empty section} + + {1 within a comment} + + {2 and one with a nested section} *) + +(** {1 {e This} [section] {b title} {_has} {^markup}} + + But links are impossible thanks to the parser, so we never have trouble + rendering a section title in a table of contents – no link will be nested + inside another link. *) diff --git a/test/generators/cases_pre408/cases/stop.mli b/test/generators/cases_pre408/cases/stop.mli new file mode 100644 index 0000000000..789257b134 --- /dev/null +++ b/test/generators/cases_pre408/cases/stop.mli @@ -0,0 +1,42 @@ +(** This test cases exercises stop comments. *) + +val foo : int +(** This is normal commented text. *) + +(** The next value is [bar], and it should be missing from the documentation. + There is also an entire module, [M], which should also be hidden. It + contains a nested stop comment, but that stop comment should not turn + documentation back on in this outer module, because stop comments respect + scope. *) + +(**/**) + +val bar : int +(** OMG! *) + +module M : +sig + val baz : int + + (**/**) +end + +(**/**) + +(** Documentation is on again. + + Now, we have a nested module, and it has a stop comment between its two + items. We want to see that the first item is displayed, but the second is + missing, and the stop comment disables documenation only in that module, and + not in this outer module. *) + +module N : +sig + val quux : int + + (**/**) + + val omg : int +end + +val lol : int diff --git a/test/generators/cases_pre408/cases/stop_dead_link_doc.mli b/test/generators/cases_pre408/cases/stop_dead_link_doc.mli new file mode 100644 index 0000000000..351e2b1b6c --- /dev/null +++ b/test/generators/cases_pre408/cases/stop_dead_link_doc.mli @@ -0,0 +1,27 @@ +(* This tests that references to hidden items (items in no documentation mode) don't get rendered *) + +module Foo : sig + type t +end + +type foo = | Bar of Foo.t + +type bar = | Bar of { field : Foo.t } + +type foo_ = Bar_ of (int * Foo.t) * int +type bar_ = Bar__ of Foo.t option + +(**/**) +module Another_Foo : sig + type t +end +(**/**) + +(* this should be rendered as `type another_foo` because it contains a reference to a hidden module*) +type another_foo = | Bar of Another_Foo.t + +(* this should be rendered as `type another_bar` because it contains a reference to a hidden module*) +type another_bar = | Bar of { field : Another_Foo.t } + +type another_foo_ = Bar_ of (int * Another_Foo.t) * int +type another_bar_ = Bar__ of Another_Foo.t option diff --git a/test/generators/cases_pre408/cases/toplevel_comments.mli b/test/generators/cases_pre408/cases/toplevel_comments.mli new file mode 100644 index 0000000000..93dc362a58 --- /dev/null +++ b/test/generators/cases_pre408/cases/toplevel_comments.mli @@ -0,0 +1,72 @@ +(** A doc comment at the beginning of a module is considered to be that + module's doc. *) + +(** Doc of [T], part 1. *) +module type T = sig + (** Doc of [T], part 2. *) + + type t +end + +module Include_inline : sig + include T + (** @inline *) +end + +(** Doc of [Include_inline], part 1. *) +module Include_inline' : sig + (** Doc of [Include_inline], part 2. *) + + include T + (** part 3 + @inline *) +end + +module type Include_inline_T = sig + include T + (** @inline *) +end + +(** Doc of [Include_inline_T'], part 1. *) +module type Include_inline_T' = sig + (** Doc of [Include_inline_T'], part 2. *) + + include T + (** part 3 + @inline *) +end + +module M : sig + + (** Doc of [M] *) +end + +module M' : sig end +(** Doc of [M'] from outside *) + +(** Doc of [M''], part 1. *) +module M'' : sig + + (** Doc of [M''], part 2. *) +end + +module Alias : T +(** Doc of [Alias]. *) + +(** Doc of [c1], part 1. *) +class c1 : + int + -> object + + (** Doc of [c1], part 2. *) + end + +(** Doc of [ct], part 1. *) +class type ct = + object + + (** Doc of [ct], part 2. *) + end + +class c2 : ct +(** Doc of [c2]. *) diff --git a/test/generators/cases_pre408/cases/type.mli b/test/generators/cases_pre408/cases/type.mli new file mode 100644 index 0000000000..228aeec027 --- /dev/null +++ b/test/generators/cases_pre408/cases/type.mli @@ -0,0 +1,138 @@ +type abstract +(** Some {e documentation}. *) + +type alias = int + +type private_ = private int + +type 'a constructor = 'a + +type arrow = int -> int + +type higher_order = (int -> int) -> int + +type labeled = l:int -> int + +type optional = ?l:int -> int + +type labeled_higher_order = (l:int -> int) -> (?l:int -> int) -> int + +type pair = int * int + +type parens_dropped = (int * int) + +type triple = int * int * int + +type nested_pair = (int * int) * int + +type instance = int constructor + +type long = labeled_higher_order -> [ `Bar | `Baz of triple] -> pair -> labeled -> higher_order -> (string -> int) -> (int,float,char,string,char,unit) CamlinternalFormatBasics.fmtty -> nested_pair -> arrow -> string -> nested_pair array + +type variant_e = {a : int} +type variant = + | A + | B of int + | C (** foo *) + | D (** {e bar} *) + | E of variant_e + +type variant_c = {a: int} +type _ gadt = + | A : int gadt + | B : int -> string gadt + | C : variant_c -> unit gadt + +type degenerate_gadt = + | A : degenerate_gadt + +type private_variant = private A + +type record = { + a : int; + mutable b : int; + c : int; (** foo *) + d : int; (** {e bar} *) + e : 'a. 'a; +} + +(* 4.02 doesn't preserve doc comments on polymorphic variant constructors, but + they should be restored if 4.02 support is dropped, or if creating a test + that won't run on 4.02. *) +type polymorphic_variant = [ + | `A + | `B of int + | `C of int * unit + | `D +] + +type polymorphic_variant_extension = [ + | polymorphic_variant (** {not e} shown *) + | `E +] + +type nested_polymorphic_variant = [ + | `A of [ `B | `C ] +] + +type private_extenion = private [> polymorphic_variant ] + +type object_ = < + a : int; + b : int; (** foo *) + c : int; (** {e bar} *) +> + +module type X = sig type t type u end + +type module_ = (module X) + +type module_substitution = (module X with type t = int and type u = unit) + +type +'a covariant + +type -'a contravariant + +type _ bivariant = int + +type ('a, 'b) binary + +type using_binary = (int, int) binary + +type 'custom name + +type 'a constrained = 'a constraint 'a = int + +type 'a exact_variant = 'a constraint 'a = [ `A | `B of int ] + +type 'a lower_variant = 'a constraint 'a = [> `A | `B of int ] + +type 'a any_variant = 'a constraint 'a = [> ] + +type 'a upper_variant = 'a constraint 'a = [< `A | `B of int ] + +type 'a named_variant = 'a constraint 'a = [< polymorphic_variant ] + +type 'a exact_object = 'a constraint 'a = + +type 'a lower_object = 'a constraint 'a = + +type 'a poly_object = 'a constraint 'a = + +type ('a, 'b) double_constrained = 'a * 'b + constraint 'a = int + constraint 'b = unit + +type as_ = (int as 'a) * 'a + +type extensible = .. + +type extensible += + | Extension (** Documentation for {!Extension}. *) + | Another_extension (** Documentation for {!Another_extension}. *) + +type mutually = A of recursive +and recursive = B of mutually + +(* Not a type, but analogous to extensions. *) +exception Foo of int * int diff --git a/test/generators/cases_pre408/cases/val.mli b/test/generators/cases_pre408/cases/val.mli new file mode 100644 index 0000000000..9503f92397 --- /dev/null +++ b/test/generators/cases_pre408/cases/val.mli @@ -0,0 +1,7 @@ +val documented : unit +(** Foo. *) + +val undocumented : unit + +(** Bar. *) +val documented_above : unit diff --git a/test/generators/cases_pre408/dune b/test/generators/cases_pre408/dune new file mode 100644 index 0000000000..8c968778d9 --- /dev/null +++ b/test/generators/cases_pre408/dune @@ -0,0 +1,20 @@ +(include link.dune.inc) + +(rule + (deps + (glob_files cases/*)) + (enabled_if + (>= %{ocaml_version} 4.10)) + (action + (with-stdout-to + link.dune.inc.gen + (pipe-stdout + (run gen_link/gen_link.exe) + (run dune format-dune-file))))) + +(rule + (enabled_if + (>= %{ocaml_version} 4.10)) + (alias runtest) + (action + (diff link.dune.inc link.dune.inc.gen))) diff --git a/test/generators/cases_pre408/gen_link/dune b/test/generators/cases_pre408/gen_link/dune new file mode 100644 index 0000000000..7579f2ecf2 --- /dev/null +++ b/test/generators/cases_pre408/gen_link/dune @@ -0,0 +1,5 @@ +(executable + (name gen_link) + (libraries gen_link_lib) + (enabled_if + (>= %{ocaml_version} 4.04))) diff --git a/test/generators/cases_pre408/gen_link/gen_link.ml b/test/generators/cases_pre408/gen_link/gen_link.ml new file mode 100644 index 0000000000..ec5ce2aec6 --- /dev/null +++ b/test/generators/cases_pre408/gen_link/gen_link.ml @@ -0,0 +1,9 @@ +let () = + let paths = + Gen_link_lib.read_file_from_dir (Fpath.filename Gen_link_lib.cases) + in + let paths = + List.filter (fun p -> not (Gen_link_lib.is_dot_ocamlformat p)) paths + in + let stanzas = Gen_link_lib.gen_rule paths "4.10" in + List.iter (Sexplib0.Sexp.pp Format.std_formatter) stanzas diff --git a/test/generators/cases_pre408/html/Alias.Foo__X.index.html b/test/generators/cases_pre408/html/Alias.Foo__X.index.html new file mode 100644 index 0000000000..df1eea8b04 --- /dev/null +++ b/test/generators/cases_pre408/html/Alias.Foo__X.index.html @@ -0,0 +1,34 @@ + + + Foo__X (test.Alias.Foo__X) + + + + + + + + +
      +

      Module Alias.Foo__X

      +
      +
      +
      +
      + + type t + = int + +
      +
      +

      Module Foo__X documentation. This should appear in the documentation + for the alias to this module 'X' +

      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Alias.X.index.html b/test/generators/cases_pre408/html/Alias.X.index.html new file mode 100644 index 0000000000..19b7adae56 --- /dev/null +++ b/test/generators/cases_pre408/html/Alias.X.index.html @@ -0,0 +1,34 @@ + + + X (test.Alias.X) + + + + + + + + +
      +

      Module Alias.X

      +
      +
      +
      +
      + + type t + = int + +
      +
      +

      Module Foo__X documentation. This should appear in the documentation + for the alias to this module 'X' +

      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Alias.index.html b/test/generators/cases_pre408/html/Alias.index.html new file mode 100644 index 0000000000..6d0ce1821a --- /dev/null +++ b/test/generators/cases_pre408/html/Alias.index.html @@ -0,0 +1,42 @@ + + + Alias (test.Alias) + + + + + + + + +
      +

      Module Alias

      +
      +
      +
      +
      + + module + Foo__X + : sig ... + end + + +
      +
      +
      +
      + + module + X + : sig ... + end + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Bugs.index.html b/test/generators/cases_pre408/html/Bugs.index.html new file mode 100644 index 0000000000..183984135f --- /dev/null +++ b/test/generators/cases_pre408/html/Bugs.index.html @@ -0,0 +1,48 @@ + + + Bugs (test.Bugs) + + + + + + + + +
      +

      Module Bugs

      +
      +
      +
      +
      + + type 'a opt + = 'a option + +
      +
      +
      +
      + + + val foo : + ?bar:'a + -> + unit -> + unit + + +
      +
      +

      Triggers an assertion failure when + + https://github.com/ocaml/odoc/issues/101 + is not fixed. +

      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Bugs_pre_410.index.html b/test/generators/cases_pre408/html/Bugs_pre_410.index.html new file mode 100644 index 0000000000..29263f8686 --- /dev/null +++ b/test/generators/cases_pre408/html/Bugs_pre_410.index.html @@ -0,0 +1,49 @@ + + + Bugs_pre_410 (test.Bugs_pre_410) + + + + + + + + +
      +

      Module Bugs_pre_410

      +
      +
      +
      +
      + + + type 'a opt' + = int option + +
      +
      +
      +
      + + + val foo' : + ?bar:int -> + unit -> unit + + +
      +
      +

      Similar to Bugs, but the printed type of + ~bar should be int, not 'a + . This probably requires fixing in the compiler. See + + https://github.com/ocaml/odoc/pull/230#issuecomment-433226807 + . +

      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.class-empty_virtual'.index.html b/test/generators/cases_pre408/html/Class.class-empty_virtual'.index.html new file mode 100644 index 0000000000..c91e90333d --- /dev/null +++ b/test/generators/cases_pre408/html/Class.class-empty_virtual'.index.html @@ -0,0 +1,19 @@ + + + empty_virtual' (test.Class.empty_virtual') + + + + + + + + +
      +

      Class Class.empty_virtual'

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.class-mutually'.index.html b/test/generators/cases_pre408/html/Class.class-mutually'.index.html new file mode 100644 index 0000000000..991f72872b --- /dev/null +++ b/test/generators/cases_pre408/html/Class.class-mutually'.index.html @@ -0,0 +1,19 @@ + + + mutually' (test.Class.mutually') + + + + + + + + +
      +

      Class Class.mutually'

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.class-polymorphic'.index.html b/test/generators/cases_pre408/html/Class.class-polymorphic'.index.html new file mode 100644 index 0000000000..fca66ee3ee --- /dev/null +++ b/test/generators/cases_pre408/html/Class.class-polymorphic'.index.html @@ -0,0 +1,19 @@ + + + polymorphic' (test.Class.polymorphic') + + + + + + + + +
      +

      Class Class.polymorphic'

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.class-recursive'.index.html b/test/generators/cases_pre408/html/Class.class-recursive'.index.html new file mode 100644 index 0000000000..f01ad22ad9 --- /dev/null +++ b/test/generators/cases_pre408/html/Class.class-recursive'.index.html @@ -0,0 +1,19 @@ + + + recursive' (test.Class.recursive') + + + + + + + + +
      +

      Class Class.recursive'

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.class-type-empty.index.html b/test/generators/cases_pre408/html/Class.class-type-empty.index.html new file mode 100644 index 0000000000..c55ff33b66 --- /dev/null +++ b/test/generators/cases_pre408/html/Class.class-type-empty.index.html @@ -0,0 +1,19 @@ + + + empty (test.Class.empty) + + + + + + + + +
      +

      Class type Class.empty

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.class-type-empty_virtual.index.html b/test/generators/cases_pre408/html/Class.class-type-empty_virtual.index.html new file mode 100644 index 0000000000..d9feeec2a8 --- /dev/null +++ b/test/generators/cases_pre408/html/Class.class-type-empty_virtual.index.html @@ -0,0 +1,19 @@ + + + empty_virtual (test.Class.empty_virtual) + + + + + + + + +
      +

      Class type Class.empty_virtual

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.class-type-mutually.index.html b/test/generators/cases_pre408/html/Class.class-type-mutually.index.html new file mode 100644 index 0000000000..39a8c0708d --- /dev/null +++ b/test/generators/cases_pre408/html/Class.class-type-mutually.index.html @@ -0,0 +1,19 @@ + + + mutually (test.Class.mutually) + + + + + + + + +
      +

      Class type Class.mutually

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.class-type-polymorphic.index.html b/test/generators/cases_pre408/html/Class.class-type-polymorphic.index.html new file mode 100644 index 0000000000..0791a1fc36 --- /dev/null +++ b/test/generators/cases_pre408/html/Class.class-type-polymorphic.index.html @@ -0,0 +1,19 @@ + + + polymorphic (test.Class.polymorphic) + + + + + + + + +
      +

      Class type Class.polymorphic

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.class-type-recursive.index.html b/test/generators/cases_pre408/html/Class.class-type-recursive.index.html new file mode 100644 index 0000000000..df4bdb5482 --- /dev/null +++ b/test/generators/cases_pre408/html/Class.class-type-recursive.index.html @@ -0,0 +1,19 @@ + + + recursive (test.Class.recursive) + + + + + + + + +
      +

      Class type Class.recursive

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Class.index.html b/test/generators/cases_pre408/html/Class.index.html new file mode 100644 index 0000000000..ddb44c9e37 --- /dev/null +++ b/test/generators/cases_pre408/html/Class.index.html @@ -0,0 +1,135 @@ + + + Class (test.Class) + + + + + + + + +
      +

      Module Class

      +
      +
      +
      +
      + + + class + type + empty + = object ... + end + + +
      +
      +
      +
      + + + class + type + + mutually + = object ... + end + + +
      +
      +
      +
      + + + class + type + + recursive + = object ... + end + + +
      +
      +
      +
      + + class + mutually' + : mutually + +
      +
      +
      +
      + + class + recursive' + : recursive + +
      +
      +
      +
      + + class + type virtual + + + empty_virtual + + = object ... + end + + +
      +
      +
      +
      + + + class + virtual + + empty_virtual' + : empty + +
      +
      +
      +
      + + + class + type 'a + + polymorphic + + = object ... + end + + +
      +
      +
      +
      + + class 'a + polymorphic' + : + 'a + polymorphic + + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/External.index.html b/test/generators/cases_pre408/html/External.index.html new file mode 100644 index 0000000000..682f7639f1 --- /dev/null +++ b/test/generators/cases_pre408/html/External.index.html @@ -0,0 +1,30 @@ + + + External (test.External) + + + + + + + + +
      +

      Module External

      +
      +
      +
      +
      + + + val foo : + unit -> unit + + +

      Foo bar.

      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.F1.argument-1-Arg.index.html b/test/generators/cases_pre408/html/Functor.F1.argument-1-Arg.index.html new file mode 100644 index 0000000000..435b9d2580 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.F1.argument-1-Arg.index.html @@ -0,0 +1,28 @@ + + + Arg (test.Functor.F1.1-Arg) + + + + + + + + +
      +

      Parameter F1.1-Arg

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.F1.index.html b/test/generators/cases_pre408/html/Functor.F1.index.html new file mode 100644 index 0000000000..d083922658 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.F1.index.html @@ -0,0 +1,44 @@ + + + F1 (test.Functor.F1) + + + + + + + + +
      +

      Module Functor.F1

      +
      + +
      +

      Parameters +

      +
      +
      + + module + Arg + : S + +
      +
      +

      Signature

      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.F2.argument-1-Arg.index.html b/test/generators/cases_pre408/html/Functor.F2.argument-1-Arg.index.html new file mode 100644 index 0000000000..db266568c4 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.F2.argument-1-Arg.index.html @@ -0,0 +1,28 @@ + + + Arg (test.Functor.F2.1-Arg) + + + + + + + + +
      +

      Parameter F2.1-Arg

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.F2.index.html b/test/generators/cases_pre408/html/Functor.F2.index.html new file mode 100644 index 0000000000..f89ad45819 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.F2.index.html @@ -0,0 +1,46 @@ + + + F2 (test.Functor.F2) + + + + + + + + +
      +

      Module Functor.F2

      +
      + +
      +

      Parameters +

      +
      +
      + + module + Arg + : S + +
      +
      +

      Signature

      +
      +
      + + type t + = Arg.t + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.F3.argument-1-Arg.index.html b/test/generators/cases_pre408/html/Functor.F3.argument-1-Arg.index.html new file mode 100644 index 0000000000..fec5441d80 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.F3.argument-1-Arg.index.html @@ -0,0 +1,28 @@ + + + Arg (test.Functor.F3.1-Arg) + + + + + + + + +
      +

      Parameter F3.1-Arg

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.F3.index.html b/test/generators/cases_pre408/html/Functor.F3.index.html new file mode 100644 index 0000000000..25a433743b --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.F3.index.html @@ -0,0 +1,46 @@ + + + F3 (test.Functor.F3) + + + + + + + + +
      +

      Module Functor.F3

      +
      + +
      +

      Parameters +

      +
      +
      + + module + Arg + : S + +
      +
      +

      Signature

      +
      +
      + + type t + = Arg.t + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.F4.argument-1-Arg.index.html b/test/generators/cases_pre408/html/Functor.F4.argument-1-Arg.index.html new file mode 100644 index 0000000000..cb1e279744 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.F4.argument-1-Arg.index.html @@ -0,0 +1,28 @@ + + + Arg (test.Functor.F4.1-Arg) + + + + + + + + +
      +

      Parameter F4.1-Arg

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.F4.index.html b/test/generators/cases_pre408/html/Functor.F4.index.html new file mode 100644 index 0000000000..affda58405 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.F4.index.html @@ -0,0 +1,44 @@ + + + F4 (test.Functor.F4) + + + + + + + + +
      +

      Module Functor.F4

      +
      + +
      +

      Parameters +

      +
      +
      + + module + Arg + : S + +
      +
      +

      Signature

      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.F5.index.html b/test/generators/cases_pre408/html/Functor.F5.index.html new file mode 100644 index 0000000000..9f95548bc5 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.F5.index.html @@ -0,0 +1,35 @@ + + + F5 (test.Functor.F5) + + + + + + + + +
      +

      Module Functor.F5

      +
      + +
      +

      Parameters +

      +

      Signature

      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.index.html b/test/generators/cases_pre408/html/Functor.index.html new file mode 100644 index 0000000000..2b5eeba09a --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.index.html @@ -0,0 +1,111 @@ + + + Functor (test.Functor) + + + + + + + + +
      +

      Module Functor

      +
      +
      +
      +
      + + + module + type + S + = sig ... + end + + +
      +
      +
      +
      + + + module + type + S1 + = functor + (_ + : S) + -> + S + + +
      +
      +
      +
      + + module + F1 + (Arg : + S) : + S + + +
      +
      +
      +
      + + module + F2 + (Arg : + S) : + S + with + type + t = + Arg.t + + + +
      +
      +
      +
      + + module + F3 + (Arg : + S) : + sig ... end + + +
      +
      +
      +
      + + module + F4 + (Arg : + S) : + S + + +
      +
      +
      +
      + + module + F5 + () : S + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.module-type-S.index.html b/test/generators/cases_pre408/html/Functor.module-type-S.index.html new file mode 100644 index 0000000000..125ffabbc7 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.module-type-S.index.html @@ -0,0 +1,27 @@ + + + S (test.Functor.S) + + + + + + + + +
      +

      Module type Functor.S

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.module-type-S1.argument-1-_.index.html b/test/generators/cases_pre408/html/Functor.module-type-S1.argument-1-_.index.html new file mode 100644 index 0000000000..0da2d05f42 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.module-type-S1.argument-1-_.index.html @@ -0,0 +1,28 @@ + + + _ (test.Functor.S1.1-_) + + + + + + + + +
      +

      Parameter S1.1-_

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor.module-type-S1.index.html b/test/generators/cases_pre408/html/Functor.module-type-S1.index.html new file mode 100644 index 0000000000..4da49126d4 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor.module-type-S1.index.html @@ -0,0 +1,44 @@ + + + S1 (test.Functor.S1) + + + + + + + + +
      +

      Module type Functor.S1

      +
      + +
      +

      Parameters +

      +
      +
      + + module + _ + : S + +
      +
      +

      Signature

      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor2.X.argument-1-Y.index.html b/test/generators/cases_pre408/html/Functor2.X.argument-1-Y.index.html new file mode 100644 index 0000000000..88645429d0 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor2.X.argument-1-Y.index.html @@ -0,0 +1,28 @@ + + + Y (test.Functor2.X.1-Y) + + + + + + + + +
      +

      Parameter X.1-Y

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor2.X.argument-2-Z.index.html b/test/generators/cases_pre408/html/Functor2.X.argument-2-Z.index.html new file mode 100644 index 0000000000..5f3aec063c --- /dev/null +++ b/test/generators/cases_pre408/html/Functor2.X.argument-2-Z.index.html @@ -0,0 +1,28 @@ + + + Z (test.Functor2.X.2-Z) + + + + + + + + +
      +

      Parameter X.2-Z

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor2.X.index.html b/test/generators/cases_pre408/html/Functor2.X.index.html new file mode 100644 index 0000000000..a938f817f7 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor2.X.index.html @@ -0,0 +1,71 @@ + + + X (test.Functor2.X) + + + + + + + + +
      +

      Module Functor2.X

      +
      + +
      +

      Parameters +

      +
      +
      + + module + Y + : S + +
      +
      +
      +
      + + module + Z + : S + +
      +
      +

      Signature

      +
      +
      + + type y_t + = Y.t + +
      +
      +
      +
      + + type z_t + = Z.t + +
      +
      +
      +
      + + type x_t + = y_t + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor2.index.html b/test/generators/cases_pre408/html/Functor2.index.html new file mode 100644 index 0000000000..286c0cffd5 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor2.index.html @@ -0,0 +1,68 @@ + + + Functor2 (test.Functor2) + + + + + + + + +
      +

      Module Functor2

      +
      +
      +
      +
      + + + module + type + S + = sig ... + end + + +
      +
      +
      +
      + + module + X + (Y : + S) ( + Z : + S) : + sig ... end + + +
      +
      +
      +
      + + + module + type + XF + = functor + (Y + : S) + -> + functor + (Z + : S) + -> + sig ... + end + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor2.module-type-S.index.html b/test/generators/cases_pre408/html/Functor2.module-type-S.index.html new file mode 100644 index 0000000000..60fdfaabbc --- /dev/null +++ b/test/generators/cases_pre408/html/Functor2.module-type-S.index.html @@ -0,0 +1,27 @@ + + + S (test.Functor2.S) + + + + + + + + +
      +

      Module type Functor2.S

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor2.module-type-XF.argument-1-Y.index.html b/test/generators/cases_pre408/html/Functor2.module-type-XF.argument-1-Y.index.html new file mode 100644 index 0000000000..27f4585a02 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor2.module-type-XF.argument-1-Y.index.html @@ -0,0 +1,28 @@ + + + Y (test.Functor2.XF.1-Y) + + + + + + + + +
      +

      Parameter XF.1-Y

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor2.module-type-XF.argument-2-Z.index.html b/test/generators/cases_pre408/html/Functor2.module-type-XF.argument-2-Z.index.html new file mode 100644 index 0000000000..9cdb2ac20e --- /dev/null +++ b/test/generators/cases_pre408/html/Functor2.module-type-XF.argument-2-Z.index.html @@ -0,0 +1,28 @@ + + + Z (test.Functor2.XF.2-Z) + + + + + + + + +
      +

      Parameter XF.2-Z

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Functor2.module-type-XF.index.html b/test/generators/cases_pre408/html/Functor2.module-type-XF.index.html new file mode 100644 index 0000000000..6e4e5ba166 --- /dev/null +++ b/test/generators/cases_pre408/html/Functor2.module-type-XF.index.html @@ -0,0 +1,71 @@ + + + XF (test.Functor2.XF) + + + + + + + + +
      +

      Module type Functor2.XF

      +
      + +
      +

      Parameters +

      +
      +
      + + module + Y + : S + +
      +
      +
      +
      + + module + Z + : S + +
      +
      +

      Signature

      +
      +
      + + type y_t + = Y.t + +
      +
      +
      +
      + + type z_t + = Z.t + +
      +
      +
      +
      + + type x_t + = y_t + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include.index.html b/test/generators/cases_pre408/html/Include.index.html new file mode 100644 index 0000000000..99329fef3c --- /dev/null +++ b/test/generators/cases_pre408/html/Include.index.html @@ -0,0 +1,246 @@ + + + Include (test.Include) + + + + + + + + +
      +

      Module Include

      +
      +
      +
      +
      + + module + type + + Not_inlined + + = sig ... + end + + +
      +
      +
      +
      + + + include + Not_inlined + + + +
      +
      + + type t +
      +
      +
      +
      +
      +
      + + + module + type + + Inlined + = sig ... + end + + +
      +
      +
      +
      +
      + + type u +
      +
      +
      +
      +
      + + + module + type + + + + Not_inlined_and_closed + + + = sig ... + end + + +
      +
      +
      +
      + + + include + + Not_inlined_and_closed + + + + +
      +
      + + type v +
      +
      +
      +
      +
      +
      + + + module + type + + + + Not_inlined_and_opened + + + = sig ... + end + + +
      +
      +
      +
      + + + include + + Not_inlined_and_opened + + + + +
      +
      + + type w +
      +
      +
      +
      +
      +
      + + + module + type + + + Inherent_Module + + = sig ... + end + + +
      +
      +
      +
      + + + include + Inherent_Module + + + +
      +
      + + + val a : t + + +
      +
      +
      +
      +
      +
      + + + module + type + + + Dorminant_Module + + = sig ... + end + + +
      +
      +
      +
      + + + include + Dorminant_Module + + + + +
      +
      + + + include + Inherent_Module + + + + +
      +
      + + + val a : t + + +
      +
      +
      +
      +
      +
      + + + val a : u + + +
      +
      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include.module-type-Dorminant_Module.index.html b/test/generators/cases_pre408/html/Include.module-type-Dorminant_Module.index.html new file mode 100644 index 0000000000..da784c8aa5 --- /dev/null +++ b/test/generators/cases_pre408/html/Include.module-type-Dorminant_Module.index.html @@ -0,0 +1,53 @@ + + + Dorminant_Module (test.Include.Dorminant_Module) + + + + + + + + +
      +

      Module type Include.Dorminant_Module

      +
      +
      +
      +
      + + + include + Inherent_Module + + + + +
      +
      + + + val a : + t + + +
      +
      +
      +
      +
      +
      + + + val a : + u + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include.module-type-Inherent_Module.index.html b/test/generators/cases_pre408/html/Include.module-type-Inherent_Module.index.html new file mode 100644 index 0000000000..d6273d8cc6 --- /dev/null +++ b/test/generators/cases_pre408/html/Include.module-type-Inherent_Module.index.html @@ -0,0 +1,31 @@ + + + Inherent_Module (test.Include.Inherent_Module) + + + + + + + + +
      +

      Module type Include.Inherent_Module

      +
      +
      +
      +
      + + + val a : + t + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include.module-type-Inlined.index.html b/test/generators/cases_pre408/html/Include.module-type-Inlined.index.html new file mode 100644 index 0000000000..26d4e15828 --- /dev/null +++ b/test/generators/cases_pre408/html/Include.module-type-Inlined.index.html @@ -0,0 +1,27 @@ + + + Inlined (test.Include.Inlined) + + + + + + + + +
      +

      Module type Include.Inlined

      +
      +
      +
      +
      + + type u +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include.module-type-Not_inlined.index.html b/test/generators/cases_pre408/html/Include.module-type-Not_inlined.index.html new file mode 100644 index 0000000000..cb1d6a5446 --- /dev/null +++ b/test/generators/cases_pre408/html/Include.module-type-Not_inlined.index.html @@ -0,0 +1,27 @@ + + + Not_inlined (test.Include.Not_inlined) + + + + + + + + +
      +

      Module type Include.Not_inlined

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include.module-type-Not_inlined_and_closed.index.html b/test/generators/cases_pre408/html/Include.module-type-Not_inlined_and_closed.index.html new file mode 100644 index 0000000000..90f1c50bff --- /dev/null +++ b/test/generators/cases_pre408/html/Include.module-type-Not_inlined_and_closed.index.html @@ -0,0 +1,29 @@ + + + + Not_inlined_and_closed (test.Include.Not_inlined_and_closed) + + + + + + + + +
      +

      Module type Include.Not_inlined_and_closed +

      +
      +
      +
      +
      + + type v +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include.module-type-Not_inlined_and_opened.index.html b/test/generators/cases_pre408/html/Include.module-type-Not_inlined_and_opened.index.html new file mode 100644 index 0000000000..3191d0fd39 --- /dev/null +++ b/test/generators/cases_pre408/html/Include.module-type-Not_inlined_and_opened.index.html @@ -0,0 +1,29 @@ + + + + Not_inlined_and_opened (test.Include.Not_inlined_and_opened) + + + + + + + + +
      +

      Module type Include.Not_inlined_and_opened +

      +
      +
      +
      +
      + + type w +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include2.X.index.html b/test/generators/cases_pre408/html/Include2.X.index.html new file mode 100644 index 0000000000..385f5b3c97 --- /dev/null +++ b/test/generators/cases_pre408/html/Include2.X.index.html @@ -0,0 +1,30 @@ + + + X (test.Include2.X) + + + + + + + + +
      +

      Module Include2.X

      +

      Comment about X that should not appear when including X below.

      +
      +
      +
      +
      + + type t + = int + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include2.Y.index.html b/test/generators/cases_pre408/html/Include2.Y.index.html new file mode 100644 index 0000000000..9ff5367b64 --- /dev/null +++ b/test/generators/cases_pre408/html/Include2.Y.index.html @@ -0,0 +1,28 @@ + + + Y (test.Include2.Y) + + + + + + + + +
      +

      Module Include2.Y

      +

      Top-comment of Y.

      +
      +
      +
      +
      + + type t +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include2.Y_include_doc.index.html b/test/generators/cases_pre408/html/Include2.Y_include_doc.index.html new file mode 100644 index 0000000000..ebbdd18ac0 --- /dev/null +++ b/test/generators/cases_pre408/html/Include2.Y_include_doc.index.html @@ -0,0 +1,48 @@ + + + Y_include_doc (test.Include2.Y_include_doc) + + + + + + + + +
      +

      Module Include2.Y_include_doc

      +
      +
      +
      +
      +

      Doc attached to include Y. Y's top-comment + shouldn't appear here. +

      +
      +
      + + + include + module type + of struct + include Y + end + + + +
      +
      + + type t + = Y.t + +
      +
      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include2.Y_include_synopsis.index.html b/test/generators/cases_pre408/html/Include2.Y_include_synopsis.index.html new file mode 100644 index 0000000000..f9cee4eb32 --- /dev/null +++ b/test/generators/cases_pre408/html/Include2.Y_include_synopsis.index.html @@ -0,0 +1,46 @@ + + + Y_include_synopsis (test.Include2.Y_include_synopsis) + + + + + + + + +
      +

      Module Include2.Y_include_synopsis

      +

      The include Y below should have the synopsis from + Y's top-comment attached to it. +

      +
      +
      +
      +
      + + + include + module type + of struct + include Y + end + + + +
      +
      + + type t + = Y.t + +
      +
      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include2.index.html b/test/generators/cases_pre408/html/Include2.index.html new file mode 100644 index 0000000000..cb60f64c58 --- /dev/null +++ b/test/generators/cases_pre408/html/Include2.index.html @@ -0,0 +1,96 @@ + + + Include2 (test.Include2) + + + + + + + + +
      +

      Module Include2

      +
      +
      +
      +
      + + module + X + : sig ... + end + + +
      +
      +

      Comment about X that should not appear when including X below.

      +
      +
      +
      +
      + + + include + module type + of struct + include X + end + + + +

      Comment about X that should not appear when including X below.

      +
      +
      + + type t + = int + +
      +
      +
      +
      +
      +
      + + module + Y + : sig ... + end + + +

      Top-comment of Y.

      +
      +
      +
      + + module + Y_include_synopsis + + : sig ... + end + + +
      +
      +

      The include Y below should have the synopsis from + Y's top-comment attached to it. +

      +
      +
      +
      +
      + + module + Y_include_doc + : sig ... + end + + +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include_sections.index.html b/test/generators/cases_pre408/html/Include_sections.index.html new file mode 100644 index 0000000000..7fa1021aa6 --- /dev/null +++ b/test/generators/cases_pre408/html/Include_sections.index.html @@ -0,0 +1,201 @@ + + + Include_sections (test.Include_sections) + + + + + + + + +
      +

      Module Include_sections

      +
      + +
      +
      +
      + + + module + type + + Something + = sig ... + end + + +

      A module type.

      +
      +

      Let's include + Something + once +

      +
      +
      +
      + + val something : unit + +
      +
      +

      Something + 1 +

      foo

      +
      +
      + + val foo : unit +
      +
      +

      Something + 2 +

      +
      +
      + + val bar : unit +

      foo bar

      +
      +

      + Something 1-bis +

      Some text.

      +
      +

      + Second include +

      +

      Let's include + Something + a second time: the heading level should be shift here. +

      +
      +
      +
      + + val something : unit + +
      +
      +

      Something + 1 +

      foo

      +
      +
      + + val foo : unit +
      +
      +

      Something + 2 +

      +
      +
      + + val bar : unit +

      foo bar

      +
      +

      + Something 1-bis +

      Some text.

      +
      +

      + Third include +

      Shifted some more.

      +
      +
      +
      + + val something : unit + +
      +
      +

      Something + 1 +

      foo

      +
      +
      + + val foo : unit +
      +
      +
      Something + 2 +
      +
      +
      + + val bar : unit +

      foo bar

      +
      +

      + Something 1-bis +

      Some text.

      +
      +

      And let's include it again, but without inlining it this time: + the ToC shouldn't grow. +

      +
      +
      + + + include + Something + + + +
      +
      + + val something : unit + +
      +
      +

      Something + 1 +

      foo

      +
      +
      + + val foo : unit +
      +
      +

      Something + 2 +

      +
      +
      + + val bar : unit +

      foo bar

      +
      +

      + Something 1-bis +

      Some text.

      +
      +
      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Include_sections.module-type-Something.index.html b/test/generators/cases_pre408/html/Include_sections.module-type-Something.index.html new file mode 100644 index 0000000000..1334c195a3 --- /dev/null +++ b/test/generators/cases_pre408/html/Include_sections.module-type-Something.index.html @@ -0,0 +1,55 @@ + + + Something (test.Include_sections.Something) + + + + + + + + +
      +

      Module type Include_sections.Something

      +

      A module type.

      +
      + +
      +
      +
      + + val something : unit + +
      +
      +

      Something 1 +

      foo

      +
      +
      + + val foo : unit +
      +
      +

      Something 2 +

      +
      +
      + + val bar : unit +

      foo bar

      +
      +

      + Something 1-bis +

      Some text.

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Interlude.index.html b/test/generators/cases_pre408/html/Interlude.index.html new file mode 100644 index 0000000000..eb272f1b60 --- /dev/null +++ b/test/generators/cases_pre408/html/Interlude.index.html @@ -0,0 +1,57 @@ + + + Interlude (test.Interlude) + + + + + + + + +
      +

      Module Interlude

      +

      This is the comment associated to the module.

      +
      +
      +

      Some separate stray text at the top of the module.

      +
      +
      + + val foo : unit +

      Foo.

      +
      +

      Some stray text that is not associated with any signature item.

      +

      It has multiple paragraphs.

      +

      A separate block of stray text, adjacent to the preceding one.

      +
      +
      + + val bar : unit +

      Bar.

      +
      +
      +
      + + val multiple : unit + +
      +
      +
      +
      + + val signature : unit + +
      +
      +
      +
      + + val items : unit +
      +

      Stray text at the bottom of the module.

      +
      + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Markup.index.html b/test/generators/cases_pre408/html/Markup.index.html new file mode 100644 index 0000000000..cd48a8cb94 --- /dev/null +++ b/test/generators/cases_pre408/html/Markup.index.html @@ -0,0 +1,253 @@ + + + Markup (test.Markup) + + + + + + + + +
      +

      Module Markup

      +

      Here, we test the rendering of comment markup.

      +
      + +
      +

      Sections

      +

      Let's get these done first, because sections will be used to break + up the rest of this test. +

      Besides the section heading above, there are also

      +

      + Subsection headings +

      and

      +

      + Sub-subsection + headings +

      +

      but odoc has banned deeper headings. There are also title headings, + but they are only allowed in mld files. +

      Anchors

      +

      Sections can have attached Anchors, and + it is possible to link to them. Links to section + headers should not be set in source code style. +

      +
      Paragraph
      +

      Individual paragraphs can have a heading.

      +
      + Subparagraph +
      +

      Parts of a longer paragraph that can be considered alone can also + have headings. +

      Styling

      +

      This paragraph has some styled elements: bold and italic + , bold italic, emphasis, + emphasis within emphasis, + bold italic, superscript, subscript + . The line spacing should be enough for superscripts and subscripts + not to look odd. +

      +

      Note: + In italics emphasis is rendered as normal text while + emphasis in emphasis is rendered in + italics. + + It also work the same in + links in italics with + emphasis in emphasis. + + +

      +

      code is a different kind of markup that doesn't allow + nested markup. +

      +

      It's possible for two markup elements to appear next to + each other and have a space, and appear nextto each + other with no space. It doesn't matter how much space + it was in the source: in this sentence, it was two space characters. + And in this one, there is a newline. +

      +

      This is also true between non-code markup + and code. +

      +

      Code can appear inside other markup. Its display + shouldn't be affected. +

      + +

      This is a link. It sends you to the top of this + page. Links can have markup inside them: bold + , italics, emphasis + , superscript, + subscript, and + code. Links can also be nested + inside markup. Links cannot be nested inside + each other. This link has no replacement text: # + . The text is filled in by odoc. This is a shorthand link: + #. The text is also filled in by odoc in this case. +

      +

      This is a reference to foo. + References can have replacement text: + the value foo. Except for the special lookup + support, references are pretty much just like links. The replacement + text can have nested styles: bold, + italic, + emphasis, + superscript, + subscript, and + code. It's also possible to surround + a reference in a style: foo + . References can't be nested inside references, and links and references + can't be nested inside each other. +

      +

      + Preformatted text +

      This is a code block:

      + 
      +    
+     let foo = ()
+     (** There are some nested comments in here, but an unpaired comment
+         terminator would terminate the whole doc surrounding comment. It's
+         best to keep code blocks no wider than 72 characters. *)
+     
+     let bar =
+       ignore foo
+    
+

      There are also verbatim blocks:

      + 
      The main difference is these don't get syntax highlighting.
      +

      Lists

      +
      • This is a
      • shorthand bulleted list,
        • +
      • and the paragraphs in each list item support styling.
        • +
      1. This is a
      2. shorthand numbered list.
      +
        +
      • Shorthand list items can span multiple lines, however trying + to put two paragraphs into a shorthand list item using a double + line break +
        • +

      just creates a paragraph outside the list.

      +
      • Similarly, inserting a blank line between two list items
      +
      • creates two separate lists.
      +
        +

      • To get around this limitation, one

        +

        can use explicitly-delimited lists.

        +
      • This one is bulleted,
        • +
      1. but there is also the numbered variant.
      +
        +
      • +
        • lists
        • can be nested
          • +
        • and can include references
          • +
        • foo
          • +
        +
        • +

      Unicode

      +

      The parser supports any ASCII-compatible encoding, in particuλar + UTF-8. +

      Raw HTML

      +

      Raw HTML can be as inline + elements into sentences. +

      + +
      + If the raw HTML is the only thing in a paragraph, it is treated as a block + element, and won't be wrapped in paragraph tags by the HTML generator. +
      + +

      Modules

      +
        • X
        +
        • X
        • Y
          • +
        • Z
          • +

        Tags

        +

        Each comment can end with zero or more tags. Here are some examples: +

        +
          +
        • author antron
          • +
        +
          +
        • deprecated +

          a long time ago

          +
          • +
        +
          +
        • parameter + foo

          unused

          +
          • +
        +
          +
        • raises + Failure

          always

          +
          • +
        +
          +
        • returns

          never

          • +
        +
          +
        • see + #

          this url

          +
          • +
        +
          +
        • see + foo.ml

          this file

          +
          • +
        +
          +
        • see + Foo

          this document

          +
          • +
        +
          +
        • since 0
          • +
        +
          +
        • before + 1.0 +

          it was in beta

          +
          • +
        +
          +
        • version -1
          • +
        +
        +
        + + val foo : unit +
        +
        +

        Comments in structure items support markup, t + oo. +

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.M'.index.html b/test/generators/cases_pre408/html/Module.M'.index.html new file mode 100644 index 0000000000..93843e07a7 --- /dev/null +++ b/test/generators/cases_pre408/html/Module.M'.index.html @@ -0,0 +1,19 @@ + + + M' (test.Module.M') + + + + + + + + +
        +

        Module Module.M'

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.Mutually.index.html b/test/generators/cases_pre408/html/Module.Mutually.index.html new file mode 100644 index 0000000000..0cd8d130a1 --- /dev/null +++ b/test/generators/cases_pre408/html/Module.Mutually.index.html @@ -0,0 +1,19 @@ + + + Mutually (test.Module.Mutually) + + + + + + + + +
        +

        Module Module.Mutually

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.Recursive.index.html b/test/generators/cases_pre408/html/Module.Recursive.index.html new file mode 100644 index 0000000000..923a69e296 --- /dev/null +++ b/test/generators/cases_pre408/html/Module.Recursive.index.html @@ -0,0 +1,19 @@ + + + Recursive (test.Module.Recursive) + + + + + + + + +
        +

        Module Module.Recursive

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.index.html b/test/generators/cases_pre408/html/Module.index.html new file mode 100644 index 0000000000..f5c353f6da --- /dev/null +++ b/test/generators/cases_pre408/html/Module.index.html @@ -0,0 +1,232 @@ + + + Module (test.Module) + + + + + + + + +
        +

        Module Module

        Foo.

        +
        +
        +
        +
        + + val foo : unit +
        +
        +

        The module needs at least one signature item, otherwise a bug + causes the compiler to drop the module comment (above). See + + https://caml.inria.fr/mantis/view.php?id=7701 + . +

        +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        +
        + + + module + type + S1 + +
        +
        +
        +
        + + + module + type + S2 + = S + +
        +
        +
        +
        + + + module + type + S3 + = S + with + type + t = int + and + type + u = string + + + +
        +
        +
        +
        + + + module + type + S4 + = S + with + type + t := int + + + +
        +
        +
        +
        + + + module + type + S5 + = S + with + type + 'a v + := 'a list + + + +
        +
        +
        +
        + + + type ('a, 'b) result + + +
        +
        +
        +
        + + + module + type + S6 + = S + with + type + ('a, 'b) w + := + + ('a,  + 'b) + result + + + + +
        +
        +
        +
        + + module + M' + : sig ... + end + + +
        +
        +
        +
        + + + module + type + S7 + = S + with + module + M = + M' + + + +
        +
        +
        +
        + + + module + type + S8 + = S + with + module + M := + M' + + + +
        +
        +
        +
        + + + module + type + S9 + = module + type of + M' + + +
        +
        +
        +
        + + module + Mutually + : sig ... + end + + +
        +
        +
        +
        + + module + Recursive + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S.M.index.html b/test/generators/cases_pre408/html/Module.module-type-S.M.index.html new file mode 100644 index 0000000000..b2ce5e7f43 --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S.M.index.html @@ -0,0 +1,19 @@ + + + M (test.Module.S.M) + + + + + + + + +

        Module S.M

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S.index.html b/test/generators/cases_pre408/html/Module.module-type-S.index.html new file mode 100644 index 0000000000..acc7c571e8 --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S.index.html @@ -0,0 +1,59 @@ + + + S (test.Module.S) + + + + + + + + +
        +

        Module type Module.S

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + type u +
        +
        +
        +
        + + type 'a v + +
        +
        +
        +
        + + + type ('a, 'b) w + +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S2.M.index.html b/test/generators/cases_pre408/html/Module.module-type-S2.M.index.html new file mode 100644 index 0000000000..347097bd5e --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S2.M.index.html @@ -0,0 +1,20 @@ + + + M (test.Module.S2.M) + + + + + + + + +
        +

        Module S2.M

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S2.index.html b/test/generators/cases_pre408/html/Module.module-type-S2.index.html new file mode 100644 index 0000000000..0a1ea74a5d --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S2.index.html @@ -0,0 +1,59 @@ + + + S2 (test.Module.S2) + + + + + + + + +
        +

        Module type Module.S2

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + type u +
        +
        +
        +
        + + type 'a v + +
        +
        +
        +
        + + + type ('a, 'b) w + +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S3.M.index.html b/test/generators/cases_pre408/html/Module.module-type-S3.M.index.html new file mode 100644 index 0000000000..be99cdd56c --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S3.M.index.html @@ -0,0 +1,20 @@ + + + M (test.Module.S3.M) + + + + + + + + +
        +

        Module S3.M

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S3.index.html b/test/generators/cases_pre408/html/Module.module-type-S3.index.html new file mode 100644 index 0000000000..5587cf895f --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S3.index.html @@ -0,0 +1,63 @@ + + + S3 (test.Module.S3) + + + + + + + + +
        +

        Module type Module.S3

        +
        +
        +
        +
        + + type t + = int + +
        +
        +
        +
        + + type u + = string + +
        +
        +
        +
        + + type 'a v + +
        +
        +
        +
        + + + type ('a, 'b) w + +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S4.M.index.html b/test/generators/cases_pre408/html/Module.module-type-S4.M.index.html new file mode 100644 index 0000000000..ba66d4d97b --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S4.M.index.html @@ -0,0 +1,20 @@ + + + M (test.Module.S4.M) + + + + + + + + +
        +

        Module S4.M

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S4.index.html b/test/generators/cases_pre408/html/Module.module-type-S4.index.html new file mode 100644 index 0000000000..7a0012376f --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S4.index.html @@ -0,0 +1,53 @@ + + + S4 (test.Module.S4) + + + + + + + + +
        +

        Module type Module.S4

        +
        +
        +
        +
        + + type u +
        +
        +
        +
        + + type 'a v + +
        +
        +
        +
        + + + type ('a, 'b) w + +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S5.M.index.html b/test/generators/cases_pre408/html/Module.module-type-S5.M.index.html new file mode 100644 index 0000000000..421f2773af --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S5.M.index.html @@ -0,0 +1,20 @@ + + + M (test.Module.S5.M) + + + + + + + + +
        +

        Module S5.M

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S5.index.html b/test/generators/cases_pre408/html/Module.module-type-S5.index.html new file mode 100644 index 0000000000..afff1edc81 --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S5.index.html @@ -0,0 +1,52 @@ + + + S5 (test.Module.S5) + + + + + + + + +
        +

        Module type Module.S5

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + type u +
        +
        +
        +
        + + + type ('a, 'b) w + +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S6.M.index.html b/test/generators/cases_pre408/html/Module.module-type-S6.M.index.html new file mode 100644 index 0000000000..926bfe2e7f --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S6.M.index.html @@ -0,0 +1,20 @@ + + + M (test.Module.S6.M) + + + + + + + + +
        +

        Module S6.M

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S6.index.html b/test/generators/cases_pre408/html/Module.module-type-S6.index.html new file mode 100644 index 0000000000..5af6741c0f --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S6.index.html @@ -0,0 +1,51 @@ + + + S6 (test.Module.S6) + + + + + + + + +
        +

        Module type Module.S6

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + type u +
        +
        +
        +
        + + type 'a v + +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S7.index.html b/test/generators/cases_pre408/html/Module.module-type-S7.index.html new file mode 100644 index 0000000000..f5099f4c5f --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S7.index.html @@ -0,0 +1,56 @@ + + + S7 (test.Module.S7) + + + + + + + + +
        +

        Module type Module.S7

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + type u +
        +
        +
        +
        + + type 'a v + +
        +
        +
        +
        + + + type ('a, 'b) w + +
        +
        +
        +
        + + module M + = M' + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S8.index.html b/test/generators/cases_pre408/html/Module.module-type-S8.index.html new file mode 100644 index 0000000000..bbfaaa4815 --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S8.index.html @@ -0,0 +1,48 @@ + + + S8 (test.Module.S8) + + + + + + + + +
        +

        Module type Module.S8

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + type u +
        +
        +
        +
        + + type 'a v + +
        +
        +
        +
        + + + type ('a, 'b) w + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Module.module-type-S9.index.html b/test/generators/cases_pre408/html/Module.module-type-S9.index.html new file mode 100644 index 0000000000..dc13a95f86 --- /dev/null +++ b/test/generators/cases_pre408/html/Module.module-type-S9.index.html @@ -0,0 +1,19 @@ + + + S9 (test.Module.S9) + + + + + + + + +
        +

        Module type Module.S9

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Nested.F.argument-1-Arg1.index.html b/test/generators/cases_pre408/html/Nested.F.argument-1-Arg1.index.html new file mode 100644 index 0000000000..2958e5ca2f --- /dev/null +++ b/test/generators/cases_pre408/html/Nested.F.argument-1-Arg1.index.html @@ -0,0 +1,42 @@ + + + Arg1 (test.Nested.F.1-Arg1) + + + + + + + + +
        +

        Parameter F.1-Arg1

        +
        + +
        +

        Type

        +
        +
        + + type t +

        Some type.

        +

        Values

        +
        +
        + + + val y : t + + +

        The value of y.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Nested.F.argument-2-Arg2.index.html b/test/generators/cases_pre408/html/Nested.F.argument-2-Arg2.index.html new file mode 100644 index 0000000000..45a572b3fa --- /dev/null +++ b/test/generators/cases_pre408/html/Nested.F.argument-2-Arg2.index.html @@ -0,0 +1,30 @@ + + + Arg2 (test.Nested.F.2-Arg2) + + + + + + + + +
        +

        Parameter F.2-Arg2

        +
        + +
        +

        Type

        +
        +
        + + type t +

        Some type.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Nested.F.index.html b/test/generators/cases_pre408/html/Nested.F.index.html new file mode 100644 index 0000000000..799bbe2101 --- /dev/null +++ b/test/generators/cases_pre408/html/Nested.F.index.html @@ -0,0 +1,62 @@ + + + F (test.Nested.F) + + + + + + + + +
        +

        Module Nested.F

        +

        This is a functor F.

        Some additional comments.

        +
        + +
        +

        Type

        +

        Parameters +

        +
        +
        + + module + Arg1 + : Y + +
        +
        +
        +
        + + module + Arg2 + : sig ... + end + + +
        +
        +

        Signature

        +
        +
        + + type t + = Arg1.t + * Arg2.t + + +

        Some type.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Nested.X.index.html b/test/generators/cases_pre408/html/Nested.X.index.html new file mode 100644 index 0000000000..5dedbf5e14 --- /dev/null +++ b/test/generators/cases_pre408/html/Nested.X.index.html @@ -0,0 +1,42 @@ + + + X (test.Nested.X) + + + + + + + + +
        +

        Module Nested.X

        This is module X.

        +

        Some additional comments.

        +
        + +
        +

        Type

        +
        +
        + + type t +

        Some type.

        +

        Values

        +
        +
        + + + val x : t + + +

        The value of x.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Nested.class-inherits.index.html b/test/generators/cases_pre408/html/Nested.class-inherits.index.html new file mode 100644 index 0000000000..b6df9c0b8d --- /dev/null +++ b/test/generators/cases_pre408/html/Nested.class-inherits.index.html @@ -0,0 +1,30 @@ + + + inherits (test.Nested.inherits) + + + + + + + + +
        +

        Class Nested.inherits

        +
        +
        +
        +
        + + inherit + z + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Nested.class-z.index.html b/test/generators/cases_pre408/html/Nested.class-z.index.html new file mode 100644 index 0000000000..83d5194aaa --- /dev/null +++ b/test/generators/cases_pre408/html/Nested.class-z.index.html @@ -0,0 +1,58 @@ + + + z (test.Nested.z) + + + + + + + + +
        +

        Class Nested.z

        This is class z.

        +

        Some additional comments.

        +
        + +
        +
        +
        + + val y : int +

        Some value.

        +
        +
        +
        + + + val + mutable + virtual y' : int + + +
        +

        Methods

        +
        +
        + + method z : int +

        Some method.

        +
        +
        +
        + + + method + private + virtual z' : int + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Nested.index.html b/test/generators/cases_pre408/html/Nested.index.html new file mode 100644 index 0000000000..a36f2e4022 --- /dev/null +++ b/test/generators/cases_pre408/html/Nested.index.html @@ -0,0 +1,96 @@ + + + Nested (test.Nested) + + + + + + + + +
        +

        Module Nested

        +

        This comment needs to be here before #235 is fixed.

        +
        + +
        +

        Module

        +
        +
        + + module + X + : sig ... + end + + +

        This is module X.

        +
        +

        Module type +

        +
        +
        + + + module + type + Y + = sig ... + end + + +

        This is module type Y.

        +

        Functor

        +
        +
        + + module + F + (Arg1 : + Y) ( + Arg2 : + sig ... end + ) : sig ... + end + + +

        This is a functor F.

        +

        Class

        +
        +
        + + + class + virtual + z + : object ... + end + + +

        This is class z.

        +
        +
        +
        + + + class + virtual + inherits + : object ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Nested.module-type-Y.index.html b/test/generators/cases_pre408/html/Nested.module-type-Y.index.html new file mode 100644 index 0000000000..9b2a2800f9 --- /dev/null +++ b/test/generators/cases_pre408/html/Nested.module-type-Y.index.html @@ -0,0 +1,42 @@ + + + Y (test.Nested.Y) + + + + + + + + +
        +

        Module type Nested.Y

        +

        This is module type Y.

        Some additional comments.

        +
        + +
        +

        Type

        +
        +
        + + type t +

        Some type.

        +

        Values

        +
        +
        + + + val y : t + + +

        The value of y.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.E.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.E.index.html new file mode 100644 index 0000000000..a4886afab7 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.E.index.html @@ -0,0 +1,39 @@ + + + E (test.Ocamlary.Aliases.E) + + + + + + + + +
        +

        Module Aliases.E

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.A.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.A.index.html new file mode 100644 index 0000000000..dbbb773d49 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.A.index.html @@ -0,0 +1,40 @@ + + + A (test.Ocamlary.Aliases.Foo.A) + + + + + + + + +
        +

        Module Foo.A

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.B.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.B.index.html new file mode 100644 index 0000000000..b499fb9d05 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.B.index.html @@ -0,0 +1,40 @@ + + + B (test.Ocamlary.Aliases.Foo.B) + + + + + + + + +
        +

        Module Foo.B

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.C.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.C.index.html new file mode 100644 index 0000000000..7a8bc9ee33 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.C.index.html @@ -0,0 +1,40 @@ + + + C (test.Ocamlary.Aliases.Foo.C) + + + + + + + + +
        +

        Module Foo.C

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.D.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.D.index.html new file mode 100644 index 0000000000..6454617260 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.D.index.html @@ -0,0 +1,40 @@ + + + D (test.Ocamlary.Aliases.Foo.D) + + + + + + + + +
        +

        Module Foo.D

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.E.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.E.index.html new file mode 100644 index 0000000000..0af7a5fa80 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.E.index.html @@ -0,0 +1,40 @@ + + + E (test.Ocamlary.Aliases.Foo.E) + + + + + + + + +
        +

        Module Foo.E

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.index.html new file mode 100644 index 0000000000..decdb92a5b --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo.index.html @@ -0,0 +1,77 @@ + + + Foo (test.Ocamlary.Aliases.Foo) + + + + + + + + +
        +

        Module Aliases.Foo

        +
        +
        +
        +
        + + module + A + : sig ... + end + + +
        +
        +
        +
        + + module + B + : sig ... + end + + +
        +
        +
        +
        + + module + C + : sig ... + end + + +
        +
        +
        +
        + + module + D + : sig ... + end + + +
        +
        +
        +
        + + module + E + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__.index.html new file mode 100644 index 0000000000..e316fd42bb --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__.index.html @@ -0,0 +1,62 @@ + + + Foo__ (test.Ocamlary.Aliases.Foo__) + + + + + + + + +
        +

        Module Aliases.Foo__

        +
        +
        +
        +
        + + module A + = Foo__A + +
        +
        +
        +
        + + module B + = Foo__B + +
        +
        +
        +
        + + module C + = Foo__C + +
        +
        +
        +
        + + module D + = Foo__D + +
        +
        +
        +
        + + module E + = Foo__E + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__A.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__A.index.html new file mode 100644 index 0000000000..eeb561a618 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__A.index.html @@ -0,0 +1,40 @@ + + + Foo__A (test.Ocamlary.Aliases.Foo__A) + + + + + + + + +
        +

        Module Aliases.Foo__A

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t + -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__B.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__B.index.html new file mode 100644 index 0000000000..5ac72c37b8 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__B.index.html @@ -0,0 +1,40 @@ + + + Foo__B (test.Ocamlary.Aliases.Foo__B) + + + + + + + + +
        +

        Module Aliases.Foo__B

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t + -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__C.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__C.index.html new file mode 100644 index 0000000000..2078eb276b --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__C.index.html @@ -0,0 +1,40 @@ + + + Foo__C (test.Ocamlary.Aliases.Foo__C) + + + + + + + + +
        +

        Module Aliases.Foo__C

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t + -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__D.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__D.index.html new file mode 100644 index 0000000000..122cadfc56 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__D.index.html @@ -0,0 +1,40 @@ + + + Foo__D (test.Ocamlary.Aliases.Foo__D) + + + + + + + + +
        +

        Module Aliases.Foo__D

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t + -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__E.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__E.index.html new file mode 100644 index 0000000000..d0978c4d10 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Foo__E.index.html @@ -0,0 +1,40 @@ + + + Foo__E (test.Ocamlary.Aliases.Foo__E) + + + + + + + + +
        +

        Module Aliases.Foo__E

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t + -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.P1.Y.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.P1.Y.index.html new file mode 100644 index 0000000000..42e2c362f0 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.P1.Y.index.html @@ -0,0 +1,40 @@ + + + Y (test.Ocamlary.Aliases.P1.Y) + + + + + + + + +
        +

        Module P1.Y

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.P1.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.P1.index.html new file mode 100644 index 0000000000..1c46e0ea9e --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.P1.index.html @@ -0,0 +1,33 @@ + + + P1 (test.Ocamlary.Aliases.P1) + + + + + + + + +
        +

        Module Aliases.P1

        +
        +
        +
        +
        + + module + Y + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.P2.Z.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.P2.Z.index.html new file mode 100644 index 0000000000..840992a769 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.P2.Z.index.html @@ -0,0 +1,40 @@ + + + Z (test.Ocamlary.Aliases.P2.Z) + + + + + + + + +
        +

        Module P2.Z

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + + val id : + t -> + t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.P2.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.P2.index.html new file mode 100644 index 0000000000..589c25d085 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.P2.index.html @@ -0,0 +1,30 @@ + + + P2 (test.Ocamlary.Aliases.P2) + + + + + + + + +
        +

        Module Aliases.P2

        +
        +
        +
        +
        + + module Z + = Z + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.Std.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.Std.index.html new file mode 100644 index 0000000000..d8aaefaa8c --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.Std.index.html @@ -0,0 +1,62 @@ + + + Std (test.Ocamlary.Aliases.Std) + + + + + + + + +
        +

        Module Aliases.Std

        +
        +
        +
        +
        + + module A + = Foo.A + +
        +
        +
        +
        + + module B + = Foo.B + +
        +
        +
        +
        + + module C + = Foo.C + +
        +
        +
        +
        + + module D + = Foo.D + +
        +
        +
        +
        + + module E + = Foo.E + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Aliases.index.html b/test/generators/cases_pre408/html/Ocamlary.Aliases.index.html new file mode 100644 index 0000000000..5a2d3cc52e --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Aliases.index.html @@ -0,0 +1,290 @@ + + + Aliases (test.Ocamlary.Aliases) + + + + + + + + +
        +

        Module Ocamlary.Aliases

        +

        Let's imitate jst's layout.

        +
        + +
        +
        +
        + + module + Foo__A + : sig ... + end + + +
        +
        +
        +
        + + module + Foo__B + : sig ... + end + + +
        +
        +
        +
        + + module + Foo__C + : sig ... + end + + +
        +
        +
        +
        + + module + Foo__D + : sig ... + end + + +
        +
        +
        +
        + + module + Foo__E + : sig ... + end + + +
        +
        +
        +
        + + module + Foo__ + : sig ... + end + + +
        +
        +
        +
        + + module + Foo + : sig ... + end + + +
        +
        +
        +
        + + module A' + = Foo.A + +
        +
        +
        +
        + + type tata + = Foo.A.t + +
        +
        +
        +
        + + type tbtb + = Foo.B.t + +
        +
        +
        +
        + + type tete +
        +
        +
        +
        + + type tata' + = A'.t + +
        +
        +
        +
        + + type tete2 + = Foo.E.t + +
        +
        +
        +
        + + module + Std + : sig ... + end + + +
        +
        +
        +
        + + type stde + = Std.E.t + +
        +

        include of Foo

        +

        Just for giggle, let's see what happens when we include + Foo. +

        +
        +
        + + + include + module type + of Foo + + + +
        +
        + + module A + = Foo.A + +
        +
        +
        +
        + + module B + = Foo.B + +
        +
        +
        +
        + + module C + = Foo.C + +
        +
        +
        +
        + + module D + = Foo.D + +
        +
        +
        +
        + + module + E + : sig ... + end + + +
        +
        +
        +
        +
        +
        + + type testa + = A.t + +
        +
        +

        And also, let's refer to + A.t and + Foo.B.id +

        +
        +
        + + module + P1 + : sig ... + end + + +
        +
        +
        +
        + + module + P2 + : sig ... + end + + +
        +
        +
        +
        + + module X1 + = P2.Z + +
        +
        +
        +
        + + module X2 + = P2.Z + +
        +
        +
        +
        + + type p1 + = X1.t + +
        +
        +
        +
        + + type p2 + = X2.t + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Buffer.index.html b/test/generators/cases_pre408/html/Ocamlary.Buffer.index.html new file mode 100644 index 0000000000..1a5e5c8bb6 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Buffer.index.html @@ -0,0 +1,34 @@ + + + Buffer (test.Ocamlary.Buffer) + + + + + + + + +
        +

        Module Ocamlary.Buffer

        +

        Buffer.t

        +
        +
        +
        +
        + + + val f : + Stdlib.Buffer.t + -> + unit + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base.List.index.html b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base.List.index.html new file mode 100644 index 0000000000..cea23d7ccb --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base.List.index.html @@ -0,0 +1,44 @@ + + + List (test.Ocamlary.CanonicalTest.Base.List) + + + + + + + + +
        +

        Module Base.List

        +
        +
        +
        +
        + + type 'a t + +
        +
        +
        +
        + + + val id : + + 'a t + -> + + 'a t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base.index.html b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base.index.html new file mode 100644 index 0000000000..77f45222a6 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base.index.html @@ -0,0 +1,33 @@ + + + Base (test.Ocamlary.CanonicalTest.Base) + + + + + + + + +
        +

        Module CanonicalTest.Base

        +
        +
        +
        +
        + + module + List + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__.index.html b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__.index.html new file mode 100644 index 0000000000..3493679239 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__.index.html @@ -0,0 +1,30 @@ + + + Base__ (test.Ocamlary.CanonicalTest.Base__) + + + + + + + + +
        +

        Module CanonicalTest.Base__

        +
        +
        +
        +
        + + module List + = Base__List + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__List.index.html b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__List.index.html new file mode 100644 index 0000000000..4b0dcd21c1 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__List.index.html @@ -0,0 +1,46 @@ + + + Base__List (test.Ocamlary.CanonicalTest.Base__List) + + + + + + + + +
        +

        Module CanonicalTest.Base__List

        +
        +
        +
        +
        + + type 'a t + +
        +
        +
        +
        + + + val id : + + 'a + t + -> + + 'a + t + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__Tests.C.index.html b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__Tests.C.index.html new file mode 100644 index 0000000000..5b83bb8f46 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__Tests.C.index.html @@ -0,0 +1,47 @@ + + + C (test.Ocamlary.CanonicalTest.Base__Tests.C) + + + + + + + + +
        +

        Module Base__Tests.C

        +
        +
        +
        +
        + + type 'a t + +
        +
        +
        +
        + + + val id : + + 'a + t + -> + + 'a + t + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__Tests.index.html b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__Tests.index.html new file mode 100644 index 0000000000..ff6b81d886 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.Base__Tests.index.html @@ -0,0 +1,99 @@ + + + Base__Tests (test.Ocamlary.CanonicalTest.Base__Tests) + + + + + + + + +
        +

        Module CanonicalTest.Base__Tests

        +
        +
        +
        +
        + + module + C + : module + type of + Base__.List + + +
        +
        +
        +
        + + module L + = Base__.List + +
        +
        +
        +
        + + + val foo : + + int + L.t + -> + + float + L.t + + + +
        +
        +
        +
        + + + val bar : + + 'a + Base__.List.t + -> + + 'a + Base__.List.t + + + +
        +
        +

        This is just List.id, or rather L.id

        +
        +
        +
        +
        + + + val baz : + + 'a + Base__.List.t + -> + unit + + +
        +
        +

        Just seeing if Base__.List.t (Base__.List.t + ) gets rewriten to Base.List.t (Base.List.t + ) +

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.List_modif.index.html b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.List_modif.index.html new file mode 100644 index 0000000000..e6fc5d15ef --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.List_modif.index.html @@ -0,0 +1,48 @@ + + + List_modif (test.Ocamlary.CanonicalTest.List_modif) + + + + + + + + +
        +

        Module CanonicalTest.List_modif

        +
        +
        +
        +
        + + type 'c t + = + 'c + Base.List.t + + + +
        +
        +
        +
        + + + val id : + + 'a t + -> + + 'a t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.index.html b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.index.html new file mode 100644 index 0000000000..0d34f072ee --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CanonicalTest.index.html @@ -0,0 +1,84 @@ + + + CanonicalTest (test.Ocamlary.CanonicalTest) + + + + + + + + +
        +

        Module Ocamlary.CanonicalTest

        +
        +
        +
        +
        + + module + Base__List + : sig ... + end + + +
        +
        +
        +
        + + module + Base__ + : sig ... + end + + +
        +
        +
        +
        + + module + Base + : sig ... + end + + +
        +
        +
        +
        + + module + Base__Tests + : sig ... + end + + +
        +
        +
        +
        + + module + List_modif + : module + type of + Base.List + with + type + 'c t = + 'c + Base.List.t + + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..f1b2cf092f --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,39 @@ + + + + + InnerModuleA' (test.Ocamlary.CollectionModule.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.index.html new file mode 100644 index 0000000000..e53a784a25 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.index.html @@ -0,0 +1,68 @@ + + + + InnerModuleA (test.Ocamlary.CollectionModule.InnerModuleA) + + + + + + + + +
        +

        Module CollectionModule.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..f54455ad05 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,38 @@ + + + + + InnerModuleTypeA' + (test.Ocamlary.CollectionModule.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CollectionModule.index.html b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.index.html new file mode 100644 index 0000000000..a8e75a8c29 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.index.html @@ -0,0 +1,72 @@ + + + CollectionModule (test.Ocamlary.CollectionModule) + + + + + + + + +
        +

        Module Ocamlary.CollectionModule

        +

        This comment is for CollectionModule.

        +
        +
        +
        +
        + + type collection +
        +

        This comment is for collection.

        +
        +
        +
        +
        + + type element +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.CollectionModule.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..da199e88bc --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.CollectionModule.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,38 @@ + + + + InnerModuleTypeA (test.Ocamlary.CollectionModule.InnerModuleTypeA) + + + + + + + + +
        +

        Module type + CollectionModule.InnerModuleTypeA +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep1.X.Y.class-c.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep1.X.Y.class-c.index.html new file mode 100644 index 0000000000..a8e841fb24 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep1.X.Y.class-c.index.html @@ -0,0 +1,29 @@ + + + c (test.Ocamlary.Dep1.X.Y.c) + + + + + + + + +

        Class Y.c

        +
        +
        +
        +
        + + method m : int +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep1.X.Y.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep1.X.Y.index.html new file mode 100644 index 0000000000..9d1db976ee --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep1.X.Y.index.html @@ -0,0 +1,33 @@ + + + Y (test.Ocamlary.Dep1.X.Y) + + + + + + + + +

        Module X.Y

        +
        +
        +
        +
        + + class + c + : object ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep1.X.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep1.X.index.html new file mode 100644 index 0000000000..7aeef1a096 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep1.X.index.html @@ -0,0 +1,31 @@ + + + X (test.Ocamlary.Dep1.X) + + + + + + + + +
        +

        Module Dep1.X

        +
        +
        +
        +
        + + module + Y + : S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep1.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep1.index.html new file mode 100644 index 0000000000..bbcd7acc71 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep1.index.html @@ -0,0 +1,45 @@ + + + Dep1 (test.Ocamlary.Dep1) + + + + + + + + +
        +

        Module Ocamlary.Dep1

        +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        +
        + + module + X + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep1.module-type-S.class-c.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep1.module-type-S.class-c.index.html new file mode 100644 index 0000000000..707f05125d --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep1.module-type-S.class-c.index.html @@ -0,0 +1,28 @@ + + + c (test.Ocamlary.Dep1.S.c) + + + + + + + + +

        Class S.c

        +
        +
        +
        +
        + + method m : int +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep1.module-type-S.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep1.module-type-S.index.html new file mode 100644 index 0000000000..efbc5858a5 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep1.module-type-S.index.html @@ -0,0 +1,33 @@ + + + S (test.Ocamlary.Dep1.S) + + + + + + + + +
        +

        Module type Dep1.S

        +
        +
        +
        +
        + + class + c + : object ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep11.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep11.index.html new file mode 100644 index 0000000000..a24a09d5c1 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep11.index.html @@ -0,0 +1,34 @@ + + + Dep11 (test.Ocamlary.Dep11) + + + + + + + + +
        +

        Module Ocamlary.Dep11

        +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep11.module-type-S.class-c.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep11.module-type-S.class-c.index.html new file mode 100644 index 0000000000..8ffa4158e0 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep11.module-type-S.class-c.index.html @@ -0,0 +1,28 @@ + + + c (test.Ocamlary.Dep11.S.c) + + + + + + + + +

        Class S.c

        +
        +
        +
        +
        + + method m : int +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep11.module-type-S.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep11.module-type-S.index.html new file mode 100644 index 0000000000..e6b15aefa6 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep11.module-type-S.index.html @@ -0,0 +1,33 @@ + + + S (test.Ocamlary.Dep11.S) + + + + + + + + +
        +

        Module type Dep11.S

        +
        +
        +
        +
        + + class + c + : object ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep12.argument-1-Arg.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep12.argument-1-Arg.index.html new file mode 100644 index 0000000000..f19654e817 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep12.argument-1-Arg.index.html @@ -0,0 +1,32 @@ + + + Arg (test.Ocamlary.Dep12.1-Arg) + + + + + + + + +
        +

        Parameter Dep12.1-Arg

        +
        +
        +
        +
        + + + module + type + S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep12.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep12.index.html new file mode 100644 index 0000000000..e953092b42 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep12.index.html @@ -0,0 +1,52 @@ + + + Dep12 (test.Ocamlary.Dep12) + + + + + + + + +
        +

        Module Ocamlary.Dep12

        +
        + +
        +

        Parameters +

        +
        +
        + + module + Arg + : sig ... + end + + +
        +
        +

        Signature

        +
        +
        + + + module + type + T + = Arg.S + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep13.class-c.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep13.class-c.index.html new file mode 100644 index 0000000000..12810fead8 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep13.class-c.index.html @@ -0,0 +1,28 @@ + + + c (test.Ocamlary.Dep13.c) + + + + + + + + +
        +

        Class Dep13.c

        +
        +
        +
        +
        + + method m : int +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep13.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep13.index.html new file mode 100644 index 0000000000..6fb441a5e4 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep13.index.html @@ -0,0 +1,32 @@ + + + Dep13 (test.Ocamlary.Dep13) + + + + + + + + +
        +

        Module Ocamlary.Dep13

        +
        +
        +
        +
        + + class + c + : object ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep2.A.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep2.A.index.html new file mode 100644 index 0000000000..60fc0d7560 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep2.A.index.html @@ -0,0 +1,31 @@ + + + A (test.Ocamlary.Dep2.A) + + + + + + + + +
        +

        Module Dep2.A

        +
        +
        +
        +
        + + module Y + : Arg.S + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep2.argument-1-Arg.X.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep2.argument-1-Arg.X.index.html new file mode 100644 index 0000000000..57f38eabd9 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep2.argument-1-Arg.X.index.html @@ -0,0 +1,31 @@ + + + X (test.Ocamlary.Dep2.1-Arg.X) + + + + + + + + +
        +

        Module 1-Arg.X

        +
        +
        +
        +
        + + module Y + : S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep2.argument-1-Arg.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep2.argument-1-Arg.index.html new file mode 100644 index 0000000000..ab6dea957d --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep2.argument-1-Arg.index.html @@ -0,0 +1,43 @@ + + + Arg (test.Ocamlary.Dep2.1-Arg) + + + + + + + + +
        +

        Parameter Dep2.1-Arg

        +
        +
        +
        +
        + + + module + type + S + +
        +
        +
        +
        + + module + X + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep2.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep2.index.html new file mode 100644 index 0000000000..cd05829209 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep2.index.html @@ -0,0 +1,59 @@ + + + Dep2 (test.Ocamlary.Dep2) + + + + + + + + +
        +

        Module Ocamlary.Dep2

        +
        + +
        +

        Parameters +

        +
        +
        + + module + Arg + : sig ... + end + + +
        +
        +

        Signature

        +
        +
        + + module + A + : sig ... + end + + +
        +
        +
        +
        + + module B + = A.Y + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep3.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep3.index.html new file mode 100644 index 0000000000..8d201237f3 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep3.index.html @@ -0,0 +1,27 @@ + + + Dep3 (test.Ocamlary.Dep3) + + + + + + + + +
        +

        Module Ocamlary.Dep3

        +
        +
        +
        +
        + + type a +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep4.X.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep4.X.index.html new file mode 100644 index 0000000000..54afd35d34 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep4.X.index.html @@ -0,0 +1,28 @@ + + + X (test.Ocamlary.Dep4.X) + + + + + + + + +
        +

        Module Dep4.X

        +
        +
        +
        +
        + + type b +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep4.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep4.index.html new file mode 100644 index 0000000000..7f2d09cbb0 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep4.index.html @@ -0,0 +1,56 @@ + + + Dep4 (test.Ocamlary.Dep4) + + + + + + + + +
        +

        Module Ocamlary.Dep4

        +
        +
        +
        +
        + + + module + type + T + = sig ... + end + + +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        +
        + + module + X + : T + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.X.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.X.index.html new file mode 100644 index 0000000000..0e916de6c8 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.X.index.html @@ -0,0 +1,28 @@ + + + X (test.Ocamlary.Dep4.S.X) + + + + + + + + +

        Module S.X

        +
        +
        +
        +
        + + type b +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.Y.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.Y.index.html new file mode 100644 index 0000000000..5a333fd9c4 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.Y.index.html @@ -0,0 +1,20 @@ + + + Y (test.Ocamlary.Dep4.S.Y) + + + + + + + + +

        Module S.Y

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.index.html new file mode 100644 index 0000000000..ae8cdee527 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-S.index.html @@ -0,0 +1,42 @@ + + + S (test.Ocamlary.Dep4.S) + + + + + + + + +
        +

        Module type Dep4.S

        +
        +
        +
        +
        + + module + X + : T + +
        +
        +
        +
        + + module + Y + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-T.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-T.index.html new file mode 100644 index 0000000000..d9c00347ce --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep4.module-type-T.index.html @@ -0,0 +1,28 @@ + + + T (test.Ocamlary.Dep4.T) + + + + + + + + +
        +

        Module type Dep4.T

        +
        +
        +
        +
        + + type b +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep5.Z.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep5.Z.index.html new file mode 100644 index 0000000000..77789e49a9 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep5.Z.index.html @@ -0,0 +1,39 @@ + + + Z (test.Ocamlary.Dep5.Z) + + + + + + + + +
        +

        Module Dep5.Z

        +
        +
        +
        +
        + + module X + : Arg.T + + +
        +
        +
        +
        + + module Y + = Dep3 + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.index.html new file mode 100644 index 0000000000..456fe6f9a3 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.index.html @@ -0,0 +1,53 @@ + + + Arg (test.Ocamlary.Dep5.1-Arg) + + + + + + + + +
        +

        Parameter Dep5.1-Arg

        +
        +
        +
        +
        + + + module + type + T + +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        +
        + + module X + : T + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.module-type-S.Y.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.module-type-S.Y.index.html new file mode 100644 index 0000000000..f3691e9f57 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.module-type-S.Y.index.html @@ -0,0 +1,21 @@ + + + Y (test.Ocamlary.Dep5.1-Arg.S.Y) + + + + + + + + +

        Module S.Y

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.module-type-S.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.module-type-S.index.html new file mode 100644 index 0000000000..1183b50f63 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep5.argument-1-Arg.module-type-S.index.html @@ -0,0 +1,42 @@ + + + S (test.Ocamlary.Dep5.1-Arg.S) + + + + + + + + +
        +

        Module type 1-Arg.S

        +
        +
        +
        +
        + + module X + : T + +
        +
        +
        +
        + + module + Y + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep5.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep5.index.html new file mode 100644 index 0000000000..1c180d38a8 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep5.index.html @@ -0,0 +1,55 @@ + + + Dep5 (test.Ocamlary.Dep5) + + + + + + + + +
        +

        Module Ocamlary.Dep5

        +
        + +
        +

        Parameters +

        +
        +
        + + module + Arg + : sig ... + end + + +
        +
        +

        Signature

        +
        +
        + + module + Z + : Arg.S + with + module + Y = + Dep3 + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep6.X.Y.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep6.X.Y.index.html new file mode 100644 index 0000000000..f5397a4f78 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep6.X.Y.index.html @@ -0,0 +1,28 @@ + + + Y (test.Ocamlary.Dep6.X.Y) + + + + + + + + +

        Module X.Y

        +
        +
        +
        +
        + + type d +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep6.X.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep6.X.index.html new file mode 100644 index 0000000000..2335b50e5a --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep6.X.index.html @@ -0,0 +1,42 @@ + + + X (test.Ocamlary.Dep6.X) + + + + + + + + +
        +

        Module Dep6.X

        +
        +
        +
        +
        + + + module + type + R + = S + +
        +
        +
        +
        + + module + Y + : R + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep6.X.module-type-R.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep6.X.module-type-R.index.html new file mode 100644 index 0000000000..6d5b3ecfc0 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep6.X.module-type-R.index.html @@ -0,0 +1,29 @@ + + + R (test.Ocamlary.Dep6.X.R) + + + + + + + + +
        +

        Module type X.R

        +
        +
        +
        +
        + + type d +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep6.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep6.index.html new file mode 100644 index 0000000000..4f718aa17f --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep6.index.html @@ -0,0 +1,56 @@ + + + Dep6 (test.Ocamlary.Dep6) + + + + + + + + +
        +

        Module Ocamlary.Dep6

        +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        +
        + + + module + type + T + = sig ... + end + + +
        +
        +
        +
        + + module + X + : T + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-S.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-S.index.html new file mode 100644 index 0000000000..24b8be3135 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-S.index.html @@ -0,0 +1,28 @@ + + + S (test.Ocamlary.Dep6.S) + + + + + + + + +
        +

        Module type Dep6.S

        +
        +
        +
        +
        + + type d +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.Y.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.Y.index.html new file mode 100644 index 0000000000..533068e395 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.Y.index.html @@ -0,0 +1,28 @@ + + + Y (test.Ocamlary.Dep6.T.Y) + + + + + + + + +

        Module T.Y

        +
        +
        +
        +
        + + type d +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.index.html new file mode 100644 index 0000000000..f4578507be --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.index.html @@ -0,0 +1,42 @@ + + + T (test.Ocamlary.Dep6.T) + + + + + + + + +
        +

        Module type Dep6.T

        +
        +
        +
        +
        + + + module + type + R + = S + +
        +
        +
        +
        + + module + Y + : R + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.module-type-R.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.module-type-R.index.html new file mode 100644 index 0000000000..3fe1181163 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep6.module-type-T.module-type-R.index.html @@ -0,0 +1,29 @@ + + + R (test.Ocamlary.Dep6.T.R) + + + + + + + + +
        +

        Module type T.R

        +
        +
        +
        +
        + + type d +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep7.M.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep7.M.index.html new file mode 100644 index 0000000000..3be847995d --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep7.M.index.html @@ -0,0 +1,42 @@ + + + M (test.Ocamlary.Dep7.M) + + + + + + + + +
        +

        Module Dep7.M

        +
        +
        +
        +
        + + + module + type + R + = Arg.S + + +
        +
        +
        +
        + + module Y + : R + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.X.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.X.index.html new file mode 100644 index 0000000000..73cdb5f12e --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.X.index.html @@ -0,0 +1,42 @@ + + + X (test.Ocamlary.Dep7.1-Arg.X) + + + + + + + + +
        +

        Module 1-Arg.X

        +
        +
        +
        +
        + + + module + type + R + = S + +
        +
        +
        +
        + + module Y + : R + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.index.html new file mode 100644 index 0000000000..d7030c02f3 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.index.html @@ -0,0 +1,54 @@ + + + Arg (test.Ocamlary.Dep7.1-Arg) + + + + + + + + +
        +

        Parameter Dep7.1-Arg

        +
        +
        +
        +
        + + + module + type + S + +
        +
        +
        +
        + + + module + type + T + = sig ... + end + + +
        +
        +
        +
        + + module + X + : T + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.module-type-T.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.module-type-T.index.html new file mode 100644 index 0000000000..918ae54f55 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep7.argument-1-Arg.module-type-T.index.html @@ -0,0 +1,42 @@ + + + T (test.Ocamlary.Dep7.1-Arg.T) + + + + + + + + +
        +

        Module type 1-Arg.T

        +
        +
        +
        +
        + + + module + type + R + = S + +
        +
        +
        +
        + + module Y + : R + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep7.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep7.index.html new file mode 100644 index 0000000000..c14a7a77ca --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep7.index.html @@ -0,0 +1,50 @@ + + + Dep7 (test.Ocamlary.Dep7) + + + + + + + + +
        +

        Module Ocamlary.Dep7

        +
        + +
        +

        Parameters +

        +
        +
        + + module + Arg + : sig ... + end + + +
        +
        +

        Signature

        +
        +
        + + module + M + : Arg.T + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep8.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep8.index.html new file mode 100644 index 0000000000..80de4d27ce --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep8.index.html @@ -0,0 +1,34 @@ + + + Dep8 (test.Ocamlary.Dep8) + + + + + + + + +
        +

        Module Ocamlary.Dep8

        +
        +
        +
        +
        + + + module + type + T + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep8.module-type-T.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep8.module-type-T.index.html new file mode 100644 index 0000000000..6d732793aa --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep8.module-type-T.index.html @@ -0,0 +1,28 @@ + + + T (test.Ocamlary.Dep8.T) + + + + + + + + +
        +

        Module type Dep8.T

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep9.argument-1-X.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep9.argument-1-X.index.html new file mode 100644 index 0000000000..b936d73ae1 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep9.argument-1-X.index.html @@ -0,0 +1,32 @@ + + + X (test.Ocamlary.Dep9.1-X) + + + + + + + + +
        +

        Parameter Dep9.1-X

        +
        +
        +
        +
        + + + module + type + T + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Dep9.index.html b/test/generators/cases_pre408/html/Ocamlary.Dep9.index.html new file mode 100644 index 0000000000..21da7e89a1 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Dep9.index.html @@ -0,0 +1,51 @@ + + + Dep9 (test.Ocamlary.Dep9) + + + + + + + + +
        +

        Module Ocamlary.Dep9

        +
        + +
        +

        Parameters +

        +
        +
        + + module + X + : sig ... + end + + +
        +
        +

        Signature

        +
        +
        + + + module + type + T + = X.T + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.DoubleInclude1.DoubleInclude2.index.html b/test/generators/cases_pre408/html/Ocamlary.DoubleInclude1.DoubleInclude2.index.html new file mode 100644 index 0000000000..aef7701e7b --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.DoubleInclude1.DoubleInclude2.index.html @@ -0,0 +1,30 @@ + + + + DoubleInclude2 (test.Ocamlary.DoubleInclude1.DoubleInclude2) + + + + + + + + +
        +

        Module DoubleInclude1.DoubleInclude2

        +
        +
        +
        +
        + + type double_include + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.DoubleInclude1.index.html b/test/generators/cases_pre408/html/Ocamlary.DoubleInclude1.index.html new file mode 100644 index 0000000000..01a43c59bc --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.DoubleInclude1.index.html @@ -0,0 +1,32 @@ + + + DoubleInclude1 (test.Ocamlary.DoubleInclude1) + + + + + + + + +
        +

        Module Ocamlary.DoubleInclude1

        +
        +
        +
        +
        + + module + DoubleInclude2 + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.DoubleInclude3.DoubleInclude2.index.html b/test/generators/cases_pre408/html/Ocamlary.DoubleInclude3.DoubleInclude2.index.html new file mode 100644 index 0000000000..1a48d56ccc --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.DoubleInclude3.DoubleInclude2.index.html @@ -0,0 +1,30 @@ + + + + DoubleInclude2 (test.Ocamlary.DoubleInclude3.DoubleInclude2) + + + + + + + + +
        +

        Module DoubleInclude3.DoubleInclude2

        +
        +
        +
        +
        + + type double_include + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.DoubleInclude3.index.html b/test/generators/cases_pre408/html/Ocamlary.DoubleInclude3.index.html new file mode 100644 index 0000000000..f2e345ea79 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.DoubleInclude3.index.html @@ -0,0 +1,45 @@ + + + DoubleInclude3 (test.Ocamlary.DoubleInclude3) + + + + + + + + +
        +

        Module Ocamlary.DoubleInclude3

        +
        +
        +
        +
        + + + include + module type + of + DoubleInclude1 + + + +
        +
        + + module + DoubleInclude2 + : sig ... + end + + +
        +
        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Empty.index.html b/test/generators/cases_pre408/html/Ocamlary.Empty.index.html new file mode 100644 index 0000000000..697395583d --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Empty.index.html @@ -0,0 +1,21 @@ + + + Empty (test.Ocamlary.Empty) + + + + + + + + +
        +

        Module Ocamlary.Empty

        +

        A plain, empty module

        +

        This module has a signature without any members.

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.ExtMod.index.html b/test/generators/cases_pre408/html/Ocamlary.ExtMod.index.html new file mode 100644 index 0000000000..42648a742f --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.ExtMod.index.html @@ -0,0 +1,47 @@ + + + ExtMod (test.Ocamlary.ExtMod) + + + + + + + + +
        +

        Module Ocamlary.ExtMod

        +
        +
        +
        +
        + + type t = + .. + +
        +
        +
        +
        + + type t += + + + + + + +
        + + | + Leisureforce + +
        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..35443ea7e5 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,41 @@ + + + + + InnerModuleA' + (test.Ocamlary.FunctorTypeOf.1-Collection.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.index.html new file mode 100644 index 0000000000..d4fb39370c --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.index.html @@ -0,0 +1,69 @@ + + + + InnerModuleA (test.Ocamlary.FunctorTypeOf.1-Collection.InnerModuleA) + + + + + + + + +
        +

        Module 1-Collection.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..7c79adb942 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,39 @@ + + + + + InnerModuleTypeA' + (test.Ocamlary.FunctorTypeOf.1-Collection.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.index.html b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.index.html new file mode 100644 index 0000000000..7ad18abd07 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.index.html @@ -0,0 +1,73 @@ + + + Collection (test.Ocamlary.FunctorTypeOf.1-Collection) + + + + + + + + +
        +

        Parameter FunctorTypeOf.1-Collection

        +
        +
        +

        This comment is for CollectionModule.

        +
        +
        + + type collection +
        +

        This comment is for collection.

        +
        +
        +
        +
        + + type element +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..2d7c73bfbf --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.argument-1-Collection.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,40 @@ + + + + + InnerModuleTypeA + (test.Ocamlary.FunctorTypeOf.1-Collection.InnerModuleTypeA) + + + + + + + + +
        +

        Module type 1-Collection.InnerModuleTypeA +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.index.html b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.index.html new file mode 100644 index 0000000000..2fef843261 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.FunctorTypeOf.index.html @@ -0,0 +1,55 @@ + + + FunctorTypeOf (test.Ocamlary.FunctorTypeOf) + + + + + + + + +
        +

        Module Ocamlary.FunctorTypeOf

        +

        This comment is for FunctorTypeOf.

        +
        + +
        +

        Parameters +

        +
        +
        + + module + Collection + : module + type of + CollectionModule + + +
        +
        +

        Signature

        +
        +
        + + type t + = + + Collection.collection + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.IncludeInclude1.index.html b/test/generators/cases_pre408/html/Ocamlary.IncludeInclude1.index.html new file mode 100644 index 0000000000..cd82e4aca6 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.IncludeInclude1.index.html @@ -0,0 +1,38 @@ + + + IncludeInclude1 (test.Ocamlary.IncludeInclude1) + + + + + + + + +
        +

        Module Ocamlary.IncludeInclude1

        +
        +
        +
        +
        + + + module + type + + + IncludeInclude2 + + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.IncludeInclude1.module-type-IncludeInclude2.index.html b/test/generators/cases_pre408/html/Ocamlary.IncludeInclude1.module-type-IncludeInclude2.index.html new file mode 100644 index 0000000000..a52f7eaf33 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.IncludeInclude1.module-type-IncludeInclude2.index.html @@ -0,0 +1,31 @@ + + + + IncludeInclude2 (test.Ocamlary.IncludeInclude1.IncludeInclude2) + + + + + + + + +
        +

        Module type IncludeInclude1.IncludeInclude2 +

        +
        +
        +
        +
        + + type include_include + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.IncludedA.index.html b/test/generators/cases_pre408/html/Ocamlary.IncludedA.index.html new file mode 100644 index 0000000000..6981fbe812 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.IncludedA.index.html @@ -0,0 +1,27 @@ + + + IncludedA (test.Ocamlary.IncludedA) + + + + + + + + +
        +

        Module Ocamlary.IncludedA

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.M.index.html b/test/generators/cases_pre408/html/Ocamlary.M.index.html new file mode 100644 index 0000000000..8dabcb550d --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.M.index.html @@ -0,0 +1,27 @@ + + + M (test.Ocamlary.M) + + + + + + + + +
        +

        Module Ocamlary.M

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.ModuleWithSignature.index.html b/test/generators/cases_pre408/html/Ocamlary.ModuleWithSignature.index.html new file mode 100644 index 0000000000..e1bf794735 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.ModuleWithSignature.index.html @@ -0,0 +1,23 @@ + + + ModuleWithSignature (test.Ocamlary.ModuleWithSignature) + + + + + + + + +
        +

        Module Ocamlary.ModuleWithSignature

        +

        A plain module of a signature of + EmptySig + (reference) +

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.ModuleWithSignatureAlias.index.html b/test/generators/cases_pre408/html/Ocamlary.ModuleWithSignatureAlias.index.html new file mode 100644 index 0000000000..eb8d393d90 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.ModuleWithSignatureAlias.index.html @@ -0,0 +1,26 @@ + + + + ModuleWithSignatureAlias (test.Ocamlary.ModuleWithSignatureAlias) + + + + + + + + +
        +

        Module Ocamlary.ModuleWithSignatureAlias +

        A plain module with an alias signature

        +
          +
        • deprecated +

          I don't like this element any more.

          +
          • +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.One.index.html b/test/generators/cases_pre408/html/Ocamlary.One.index.html new file mode 100644 index 0000000000..d7fa457c50 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.One.index.html @@ -0,0 +1,27 @@ + + + One (test.Ocamlary.One) + + + + + + + + +
        +

        Module Ocamlary.One

        +
        +
        +
        +
        + + type one +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Only_a_module.index.html b/test/generators/cases_pre408/html/Ocamlary.Only_a_module.index.html new file mode 100644 index 0000000000..c4f6a139fe --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Only_a_module.index.html @@ -0,0 +1,27 @@ + + + Only_a_module (test.Ocamlary.Only_a_module) + + + + + + + + +
        +

        Module Ocamlary.Only_a_module

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..b4d5fd0991 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,39 @@ + + + + + InnerModuleA' (test.Ocamlary.Recollection.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.index.html new file mode 100644 index 0000000000..f021d98c32 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.index.html @@ -0,0 +1,67 @@ + + + InnerModuleA (test.Ocamlary.Recollection.InnerModuleA) + + + + + + + + +
        +

        Module Recollection.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..08d907655f --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,38 @@ + + + + + InnerModuleTypeA' + (test.Ocamlary.Recollection.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..28d23698a7 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,40 @@ + + + + + InnerModuleA' (test.Ocamlary.Recollection.1-C.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.index.html new file mode 100644 index 0000000000..2d13d0cb7a --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.index.html @@ -0,0 +1,69 @@ + + + + InnerModuleA (test.Ocamlary.Recollection.1-C.InnerModuleA) + + + + + + + + +
        +

        Module 1-C.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..5036a5dc99 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,39 @@ + + + + + InnerModuleTypeA' + (test.Ocamlary.Recollection.1-C.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.index.html new file mode 100644 index 0000000000..fc56dd28f6 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.index.html @@ -0,0 +1,73 @@ + + + C (test.Ocamlary.Recollection.1-C) + + + + + + + + +
        +

        Parameter Recollection.1-C

        +
        +
        +

        This comment is for CollectionModule.

        +
        +
        + + type collection +
        +

        This comment is for collection.

        +
        +
        +
        +
        + + type element +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..565f6a2dcf --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.argument-1-C.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,38 @@ + + + + InnerModuleTypeA (test.Ocamlary.Recollection.1-C.InnerModuleTypeA) + + + + + + + + +
        +

        Module type 1-C.InnerModuleTypeA

        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.index.html new file mode 100644 index 0000000000..399df13eb7 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.index.html @@ -0,0 +1,100 @@ + + + Recollection (test.Ocamlary.Recollection) + + + + + + + + +
        +

        Module Ocamlary.Recollection

        +
        + +
        +

        Parameters +

        +
        +
        + + module + C + : COLLECTION + + +
        +
        +

        Signature

        +

        This comment is for CollectionModule.

        +
        +
        + + type collection + = + C.element + list + + + +
        +

        This comment is for collection.

        +
        +
        +
        +
        + + type element + = + C.collection + + +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.Recollection.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.Recollection.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..51718cc56a --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.Recollection.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,37 @@ + + + + InnerModuleTypeA (test.Ocamlary.Recollection.InnerModuleTypeA) + + + + + + + + +
        +

        Module type Recollection.InnerModuleTypeA +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With10.index.html b/test/generators/cases_pre408/html/Ocamlary.With10.index.html new file mode 100644 index 0000000000..2c19923738 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With10.index.html @@ -0,0 +1,39 @@ + + + With10 (test.Ocamlary.With10) + + + + + + + + +
        +

        Module Ocamlary.With10

        +
        +
        +
        +
        + + + module + type + T + = sig ... + end + + +
        +
        +

        With10.T + is a submodule type. +

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With10.module-type-T.M.index.html b/test/generators/cases_pre408/html/Ocamlary.With10.module-type-T.M.index.html new file mode 100644 index 0000000000..99bc713483 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With10.module-type-T.M.index.html @@ -0,0 +1,32 @@ + + + M (test.Ocamlary.With10.T.M) + + + + + + + + +

        Module T.M

        +
        +
        +
        +
        + + + module + type + S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With10.module-type-T.index.html b/test/generators/cases_pre408/html/Ocamlary.With10.module-type-T.index.html new file mode 100644 index 0000000000..277136b49d --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With10.module-type-T.index.html @@ -0,0 +1,42 @@ + + + T (test.Ocamlary.With10.T) + + + + + + + + +
        +

        Module type With10.T

        +

        With10.T is a submodule type.

        +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +
        +
        +
        + + module N + : M.S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With2.index.html b/test/generators/cases_pre408/html/Ocamlary.With2.index.html new file mode 100644 index 0000000000..a5db9c512b --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With2.index.html @@ -0,0 +1,34 @@ + + + With2 (test.Ocamlary.With2) + + + + + + + + +
        +

        Module Ocamlary.With2

        +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With2.module-type-S.index.html b/test/generators/cases_pre408/html/Ocamlary.With2.module-type-S.index.html new file mode 100644 index 0000000000..95e7348180 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With2.module-type-S.index.html @@ -0,0 +1,28 @@ + + + S (test.Ocamlary.With2.S) + + + + + + + + +
        +

        Module type With2.S

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With3.N.index.html b/test/generators/cases_pre408/html/Ocamlary.With3.N.index.html new file mode 100644 index 0000000000..3bce0710fc --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With3.N.index.html @@ -0,0 +1,28 @@ + + + N (test.Ocamlary.With3.N) + + + + + + + + +
        +

        Module With3.N

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With3.index.html b/test/generators/cases_pre408/html/Ocamlary.With3.index.html new file mode 100644 index 0000000000..e5120f3b6d --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With3.index.html @@ -0,0 +1,38 @@ + + + With3 (test.Ocamlary.With3) + + + + + + + + +
        +

        Module Ocamlary.With3

        +
        +
        +
        +
        + + module M + = With2 + +
        +
        +
        +
        + + module + N + : M.S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With4.N.index.html b/test/generators/cases_pre408/html/Ocamlary.With4.N.index.html new file mode 100644 index 0000000000..58e8e2c71d --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With4.N.index.html @@ -0,0 +1,28 @@ + + + N (test.Ocamlary.With4.N) + + + + + + + + +
        +

        Module With4.N

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With4.index.html b/test/generators/cases_pre408/html/Ocamlary.With4.index.html new file mode 100644 index 0000000000..812267dbd8 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With4.index.html @@ -0,0 +1,30 @@ + + + With4 (test.Ocamlary.With4) + + + + + + + + +
        +

        Module Ocamlary.With4

        +
        +
        +
        +
        + + module + N + : With2.S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With5.N.index.html b/test/generators/cases_pre408/html/Ocamlary.With5.N.index.html new file mode 100644 index 0000000000..2a99f5e564 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With5.N.index.html @@ -0,0 +1,28 @@ + + + N (test.Ocamlary.With5.N) + + + + + + + + +
        +

        Module With5.N

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With5.index.html b/test/generators/cases_pre408/html/Ocamlary.With5.index.html new file mode 100644 index 0000000000..8dfd27ff52 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With5.index.html @@ -0,0 +1,43 @@ + + + With5 (test.Ocamlary.With5) + + + + + + + + +
        +

        Module Ocamlary.With5

        +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        +
        + + module + N + : S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With5.module-type-S.index.html b/test/generators/cases_pre408/html/Ocamlary.With5.module-type-S.index.html new file mode 100644 index 0000000000..2a02825e50 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With5.module-type-S.index.html @@ -0,0 +1,28 @@ + + + S (test.Ocamlary.With5.S) + + + + + + + + +
        +

        Module type With5.S

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With6.index.html b/test/generators/cases_pre408/html/Ocamlary.With6.index.html new file mode 100644 index 0000000000..2333051eaa --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With6.index.html @@ -0,0 +1,34 @@ + + + With6 (test.Ocamlary.With6) + + + + + + + + +
        +

        Module Ocamlary.With6

        +
        +
        +
        +
        + + + module + type + T + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With6.module-type-T.M.index.html b/test/generators/cases_pre408/html/Ocamlary.With6.module-type-T.M.index.html new file mode 100644 index 0000000000..407d31d2ec --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With6.module-type-T.M.index.html @@ -0,0 +1,40 @@ + + + M (test.Ocamlary.With6.T.M) + + + + + + + + +

        Module T.M

        +
        +
        +
        +
        + + + module + type + S + +
        +
        +
        +
        + + module N + : S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With6.module-type-T.index.html b/test/generators/cases_pre408/html/Ocamlary.With6.module-type-T.index.html new file mode 100644 index 0000000000..beb496331a --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With6.module-type-T.index.html @@ -0,0 +1,33 @@ + + + T (test.Ocamlary.With6.T) + + + + + + + + +
        +

        Module type With6.T

        +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With7.argument-1-X.index.html b/test/generators/cases_pre408/html/Ocamlary.With7.argument-1-X.index.html new file mode 100644 index 0000000000..52815c8124 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With7.argument-1-X.index.html @@ -0,0 +1,32 @@ + + + X (test.Ocamlary.With7.1-X) + + + + + + + + +
        +

        Parameter With7.1-X

        +
        +
        +
        +
        + + + module + type + T + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With7.index.html b/test/generators/cases_pre408/html/Ocamlary.With7.index.html new file mode 100644 index 0000000000..edc62f0cfe --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With7.index.html @@ -0,0 +1,51 @@ + + + With7 (test.Ocamlary.With7) + + + + + + + + +
        +

        Module Ocamlary.With7

        +
        + +
        +

        Parameters +

        +
        +
        + + module + X + : sig ... + end + + +
        +
        +

        Signature

        +
        +
        + + + module + type + T + = X.T + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With9.index.html b/test/generators/cases_pre408/html/Ocamlary.With9.index.html new file mode 100644 index 0000000000..a1b4d9f294 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With9.index.html @@ -0,0 +1,34 @@ + + + With9 (test.Ocamlary.With9) + + + + + + + + +
        +

        Module Ocamlary.With9

        +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.With9.module-type-S.index.html b/test/generators/cases_pre408/html/Ocamlary.With9.module-type-S.index.html new file mode 100644 index 0000000000..635624dc1e --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.With9.module-type-S.index.html @@ -0,0 +1,28 @@ + + + S (test.Ocamlary.With9.S) + + + + + + + + +
        +

        Module type With9.S

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.class-empty_class.index.html b/test/generators/cases_pre408/html/Ocamlary.class-empty_class.index.html new file mode 100644 index 0000000000..caa4504e5a --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.class-empty_class.index.html @@ -0,0 +1,19 @@ + + + empty_class (test.Ocamlary.empty_class) + + + + + + + + +
        +

        Class Ocamlary.empty_class

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.class-one_method_class.index.html b/test/generators/cases_pre408/html/Ocamlary.class-one_method_class.index.html new file mode 100644 index 0000000000..1de4787279 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.class-one_method_class.index.html @@ -0,0 +1,27 @@ + + + one_method_class (test.Ocamlary.one_method_class) + + + + + + + + +
        +

        Class Ocamlary.one_method_class

        +
        +
        +
        +
        + + method go : unit +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.class-param_class.index.html b/test/generators/cases_pre408/html/Ocamlary.class-param_class.index.html new file mode 100644 index 0000000000..9be3fcb54a --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.class-param_class.index.html @@ -0,0 +1,31 @@ + + + param_class (test.Ocamlary.param_class) + + + + + + + + +
        +

        Class Ocamlary.param_class

        +
        +
        +
        +
        + + + method v : + 'a + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.class-two_method_class.index.html b/test/generators/cases_pre408/html/Ocamlary.class-two_method_class.index.html new file mode 100644 index 0000000000..30c873a8ef --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.class-two_method_class.index.html @@ -0,0 +1,38 @@ + + + two_method_class (test.Ocamlary.two_method_class) + + + + + + + + +
        +

        Class Ocamlary.two_method_class

        +
        +
        +
        +
        + + + method one : + one_method_class + + +
        +
        +
        +
        + + method undo : unit + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.index.html b/test/generators/cases_pre408/html/Ocamlary.index.html new file mode 100644 index 0000000000..4ff7f6aad4 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.index.html @@ -0,0 +1,2923 @@ + + + Ocamlary (test.Ocamlary) + + + + + + + + +
        +

        Module Ocamlary

        +

        This is an interface with all of the + module system features. This documentation demonstrates: +

        +
        • comment formatting
        • unassociated comments
          • +
        • documentation sections
          • +

        • module system documentation including

          +
          1. submodules
          2. module aliases
          3. module types
            4. +
          4. module type aliases
          5. modules with signatures
            6. +
          6. modules with aliased signatures
            7. +
          +
          • +

        A numbered list:

        1. 3
        2. 2
        3. 1
        +

        David Sheets is the author.

        +
          +
        • author David Sheets
          • +
        +
        + +
        +

        You may find more information about this HTML documentation renderer + at + github.com/dsheets/ocamlary + . +

        This is some verbatim text:

        verbatim
        +

        This is some verbatim text:

        [][df[]]}}
        +

        Here is some raw LaTeX:

        +

        Here is an index table of Empty modules:

        +
          +
        • Empty + A plain, empty module +
          • +
        • EmptyAlias + A plain module alias of Empty +
          • +

        Here is a table of links to indexes: indexlist

        +

        Here is some superscript: x2

        +

        Here is some subscript: x0

        +

        Here are some escaped brackets: { [ @ ] }

        +

        Here is some emphasis followed by code.

        +

        An unassociated comment

        +

        Level 1

        +

        Level 2

        +

        Level 3

        +
        Level 4
        +

        + Basic module stuff +

        +
        +
        + + module + Empty + : sig ... + end + + +

        A plain, empty module

        +
        +
        +
        + + + module + type + Empty + = sig ... + end + + +
        +

        An ambiguous, misnamed module type

        +
        +
        +
        + + + module + type + + + MissingComment + + = sig ... + end + + +
        +

        An ambiguous, misnamed module type

        +

        Section 9000

        +
        +
        + + module + EmptyAlias + = Empty + +
        +

        A plain module alias of Empty

        +
        +
        +

        EmptySig

        +
        +
        + + + module + type + + EmptySig + = sig ... + end + + +

        A plain, empty module signature

        +
        +
        +
        + + + module + type + + EmptySigAlias + + = EmptySig + +
        +

        A plain, empty module signature alias of

        +
        +
        +
        +
        + + module + ModuleWithSignature + + : EmptySig + +
        +
        +

        A plain module of a signature of + EmptySig + (reference) +

        +
        +
        +
        +
        + + module + + ModuleWithSignatureAlias + + + : + EmptySigAlias + + +
        +

        A plain module with an alias signature

        +
        +
        +
        + + module + One + : sig ... + end + + +
        +
        +
        +
        + + + module + type + + SigForMod + = sig ... + end + + +
        +
        +

        There's a signature in a module in this signature.

        +
        +
        +
        +
        + + + module + type + + SuperSig + = sig ... + end + + +
        +
        +

        For a good time, see SuperSig.SubSigA.subSig or + SuperSig.SubSigB.subSig or + + SuperSig.EmptySig + . Section Section 9000 is also interesting. + EmptySig is the section and + EmptySig + is the module signature. +

        +
        +
        + + module + Buffer + : sig ... + end + + +

        Buffer.t

        +

        Some text before exception title.

        +

        + Basic exception + stuff +

        After exception title.

        +
        +
        + + exception + Kaboom + of unit + + +

        Unary exception constructor

        +
        +
        +
        + + exception + Kablam + of unit * unit + + +

        Binary exception constructor

        +
        +
        +
        + + exception + Kapow + of unit * unit + + +
        +
        +

        Unary exception constructor over binary tuple

        +
        +
        +
        +
        + + exception + EmptySig + +
        +
        +

        EmptySig + is a module and + EmptySig is this + exception. +

        +
        +
        +
        +
        + + exception + EmptySigAlias + +
        +
        +

        EmptySigAlias + is this exception. +

        +
        +
        +

        + + Basic type and value stuff with advanced doc comments +

        +
        +
        + + + type + ('a, 'b) a_function + + = + 'a + -> + 'b + + +
        +
        +

        a_function is this + type and a_function + is the value below. +

        +
        +
        +
        +
        + + + val a_function : + x:int -> int + + +
        +
        +

        This is a_function with param and return type.

        +
          +
        • parameter + x

          the x coordinate

          +
          • +
        +
          +
        • returns +

          the y coordinate

          +
          • +
        +
        +
        +
        +
        + + + val fun_fun_fun : + + ( + (int, int) + a_function + ,  + (unit, unit) + a_function + ) + a_function + + + +
        +
        +
        +
        + + + val fun_maybe : + ?yes:unit -> + unit -> int + + +
        +
        +
        +
        + + + val not_found : + unit -> unit + + +
        +
        +
          +
        • raises + Not_found

          That's all it does

          +
          • +
        +
        +
        +
        +
        + + val ocaml_org : string + +
        +
        + +
        +
        +
        +
        + + val some_file : string + +
        +
        +
          +
        • see + some_file +

          The file called some_file

          +
          • +
        +
        +
        +
        +
        + + val some_doc : string + +
        +
        +
          +
        • see + some_doc +

          The document called some_doc

          +
          • +
        +
        +
        +
        +
        + + + val since_mesozoic : unit + +
        +
        +

        This value was introduced in the Mesozoic era.

        +
          +
        • since mesozoic
          • +
        +
        +
        +
        +
        + + val changing : unit + +
        +
        +

        This value has had changes in 1.0.0, 1.1.0, and 1.2.0.

        +
          +
        • before + 1.0.0

          before 1.0.0

          +
          • +
        +
          +
        • before + 1.1.0

          before 1.1.0

          +
          • +
        +
          +
        • version 1.2.0
          • +
        +
        +
        +

        + Some Operators +

        +
        +
        + + val (~-) : unit +
        +
        +
        +
        + + val (!) : unit +
        +
        +
        +
        + + val (@) : unit +
        +
        +
        +
        + + val ($) : unit +
        +
        +
        +
        + + val (%) : unit +
        +
        +
        +
        + + val (&) : unit + +
        +
        +
        +
        + + val (*) : unit +
        +
        +
        +
        + + val (-) : unit +
        +
        +
        +
        + + val (+) : unit +
        +
        +
        +
        + + val (-?) : unit +
        +
        +
        +
        + + val (/) : unit +
        +
        +
        +
        + + val (:=) : unit +
        +
        +
        +
        + + val (=) : unit +
        +
        +
        +
        + + val (land) : unit +
        +
        +

        + Advanced Module + Stuff +

        +
        +
        + + module + CollectionModule + : sig ... + end + + +
        +
        +

        This comment is for CollectionModule.

        +
        +
        +
        +
        + + module + type + + COLLECTION + = module + type of + CollectionModule + + +

        module type of

        +
        +
        +
        + + module + Recollection + (C : + COLLECTION) : + COLLECTION + with + type + + collection + = + + + C.element + list + + and + type + element + = + + C.collection + + + + +
        +
        +
        +
        + + + module + type + MMM + = sig ... + end + + +
        +
        +
        +
        + + module + type + + RECOLLECTION + + = MMM + with + module + C = + Recollection(CollectionModule) + + + +
        +
        +
        +
        + + + module + type + + + RecollectionModule + + + = sig ... + end + + +
        +
        +
        +
        + + + module + type + A + = sig ... + end + + +
        +
        +
        +
        + + + module + type + B + = sig ... + end + + +
        +
        +
        +
        + + + module + type + C + = sig ... + end + + +
        +

        This module type includes two signatures.

        +
        +
        +
        +
        + + module + FunctorTypeOf + ( + Collection + : module + type of + CollectionModule) : + sig ... end + + +
        +
        +

        This comment is for FunctorTypeOf.

        +
        +
        +
        +
        + + + module + type + + + IncludeModuleType + + + = sig ... + end + + +
        +
        +

        This comment is for IncludeModuleType.

        +
        +
        +
        +
        + + + module + type + + ToInclude + = sig ... + end + + +
        +
        +
        +
        + + + include + ToInclude + + + +
        +
        + + module + IncludedA + : sig ... + end + + +
        +
        +
        +
        + + module + type + + IncludedB + = sig ... + end + + +
        +
        +
        +
        +

        + Advanced Type Stuff +

        +
        +
        + + type record + = { + + + + + + + + + + +
        + + field1 : int; + (* +

        This comment is for field1.

        + *) +
        + + field2 : int; + (* +

        This comment is for field2.

        + *) +
        } +
        +

        This comment is for record.

        +

        This comment is also for record.

        +
        +
        +
        +
        + + type mutable_record + = { + + + + + + + + + + + + + + +
        + + mutable a : int; + + (* +

        a is first and mutable

        + *) +
        + + b : unit; + (* +

        b is second and immutable

        + *) +
        + + mutable c : int; + + (* +

        c is third and mutable

        + *) +
        } +
        +
        +
        +
        + + type universe_record + = { + + + + + +
        + + + nihilate : a. + 'a + -> + unit; + + +
        } +
        +
        +
        +
        + + type variant + = + + + + + + + + + + + + + + + + + + +
        + + | + TagA + + (* +

        This comment is for TagA.

        + *) +
        + + | + ConstrB + of int + + + (* +

        This comment is for ConstrB.

        + *) +
        + + | + ConstrC + of int * int + + + (* +

        This comment is for binary ConstrC.

        + *) +
        + + | + ConstrD + of int * int + + + (* +

        This comment is for unary ConstrD of binary tuple. +

        *) +
        +
        +

        This comment is for variant.

        +

        This comment is also for variant.

        +
        +
        +
        +
        + + type poly_variant + = [ + + + + + + + + +
        + + | `TagA +
        + + | + `ConstrB of int + +
        ] +
        +
        +

        This comment is for poly_variant.

        +

        Wow! It was a polymorphic variant!

        +
        +
        +
        +
        + + + type (_, _) full_gadt + = + + + + + + + + + + + + + + +
        + + | + Tag : + (unit, unit) + full_gadt + + + +
        + + | + First : + 'a + -> + ('a, unit) + full_gadt + + + +
        + + | + Second : + 'a + -> + (unit, 'a) + full_gadt + + + +
        + + | + Exist : + 'a * 'b + -> + ('b, unit) + full_gadt + + + +
        +
        +

        This comment is for full_gadt.

        +

        Wow! It was a GADT!

        +
        +
        +
        +
        + + + type 'a partial_gadt + = + + + + + + + + + + + +
        + + | + AscribeTag : + 'a + partial_gadt + + + +
        + + | + OfTag + of + 'a + partial_gadt + + + +
        + + | + ExistGadtTag : + ( + 'a + -> + 'b) + -> + 'a + partial_gadt + + + +
        +
        +
        +

        This comment is for partial_gadt.

        +

        Wow! It was a mixed GADT!

        +
        +
        +
        +
        + + type alias + = variant + +
        +

        This comment is for alias.

        +
        +
        +
        +
        + + type tuple + = + (alias * + alias) + * alias * + (alias * + alias) + + + +
        +

        This comment is for tuple.

        +
        +
        +
        +
        + + type variant_alias + = variant = + + + + + + + + + + + + + + +
        + + | + TagA + +
        + + | + ConstrB + of int + + +
        + + | + ConstrC + of int * int + + +
        + + | + ConstrD + of int * int + + +
        +
        +
        +

        This comment is for variant_alias.

        +
        +
        +
        +
        + + type record_alias + = record = + { + + + + + + + + +
        + + field1 : int; +
        + + field2 : int; +
        } +
        +
        +

        This comment is for record_alias.

        +
        +
        +
        +
        + + type poly_variant_union + = [ + + + + + + + + +
        + + | + poly_variant + +
        + + | `TagC +
        ] +
        +
        +

        This comment is for poly_variant_union.

        +
        +
        +
        +
        + + + type + 'a poly_poly_variant + = [ + + + + + +
        + + | + + `TagA of + 'a + + +
        ] +
        +
        +
        +
        + + + type + ('a, 'b) bin_poly_poly_variant + = [ + + + + + + + + +
        + + | + + `TagA of + 'a + + +
        + + | + + `ConstrB of + 'b + + +
        ] +
        +
        +
        +
        + + + type + 'a open_poly_variant + + = [> `TagA ] as 'a + + +
        +
        +
        +
        + + + type + 'a open_poly_variant2 + + = [> `ConstrB of int ] + as 'a + + +
        +
        +
        +
        + + + type + 'a open_poly_variant_alias + + = + + 'a + open_poly_variant + open_poly_variant2 + + + +
        +
        +
        +
        + + + type 'a poly_fun + = + [> `ConstrB of int ] + as 'a + -> + 'a + + +
        +
        +
        +
        + + + type + 'a poly_fun_constraint + + = + 'a + -> + 'a + + constraint + 'a = [> `TagA ] + + +
        +
        +
        +
        + + + type + 'a closed_poly_variant + + = [< `One | `Two ] + as 'a + + +
        +
        +
        +
        + + + type + 'a clopen_poly_variant + + = + [< `One | `Two of int + | `Three Two Three ] + as 'a + + +
        +
        +
        +
        + + type nested_poly_variant + = [ + + + + + + + + + + + + + + +
        + + | `A +
        + + | + + `B of + [ `B1 | `B2 ] + + +
        + + | `C +
        + + | + + `D of + [ `D1 of [ `D1a ] ] + + +
        ] +
        +
        +
        +
        + + + type + ('a, 'b) full_gadt_alias + + = + + ('a,  + 'b) + full_gadt + + = + + + + + + + + + + + + + + +
        + + | + Tag : + (unit, unit) + full_gadt_alias + + + +
        + + | + First : + 'a + -> + ('a, unit) + full_gadt_alias + + + +
        + + | + Second : + 'a + -> + (unit, 'a) + full_gadt_alias + + + +
        + + | + Exist : + 'a * 'b + -> + ('b, unit) + full_gadt_alias + + + +
        +
        +
        +

        This comment is for full_gadt_alias.

        +
        +
        +
        +
        + + + type + 'a partial_gadt_alias + + = + 'a + partial_gadt + + = + + + + + + + + + + + +
        + + | + AscribeTag : + 'a + partial_gadt_alias + + + +
        + + | + OfTag + of + 'a + partial_gadt_alias + + + +
        + + | + ExistGadtTag : + ( + 'a + -> + 'b) + -> + 'a + partial_gadt_alias + + + +
        +
        +
        +

        This comment is for partial_gadt_alias.

        +
        +
        +
        +
        + + exception + Exn_arrow : unit + -> exn + + +
        +
        +

        This comment is for + Exn_arrow. +

        +
        +
        +
        +
        + + type mutual_constr_a + = + + + + + + + + + +
        + + | A + +
        + + | + B_ish + of + mutual_constr_b + + + (* +

        This comment is between + mutual_constr_a + and + mutual_constr_b + . +

        *) +
        +
        +
        +

        This comment is for + mutual_constr_a + then mutual_constr_b + . +

        +
        +
        +
        +
        + + and mutual_constr_b + = + + + + + + + + + +
        + + | B + +
        + + | + A_ish + of + mutual_constr_a + + + (* +

        This comment must be here for the next to associate correctly.

        + *) +
        +
        +
        +

        This comment is for + mutual_constr_b + then mutual_constr_a + . +

        +
        +
        +
        +
        + + type rec_obj + = + < f : int; g : + unit -> unit; + h : rec_obj; > + + + +
        +
        +
        +
        + + + type 'a open_obj + = + < f : int; g : + unit -> unit; + .. > + as 'a + + +
        +
        +
        +
        + + type 'a oof + = + < a : unit; .. > + as 'a + -> + 'a + + +
        +
        +
        +
        + + + type 'a any_obj + = < .. > as 'a + + +
        +
        +
        +
        + + type empty_obj + = < > + +
        +
        +
        +
        + + type one_meth + = < meth : unit; > + +
        +
        +
        +
        + + type ext = + .. + +

        A mystery wrapped in an ellipsis

        +
        +
        +
        + + type ext += + + + + + + +
        + + | ExtA + +
        +
        +
        +
        +
        + + type ext += + + + + + + +
        + + | ExtB + +
        +
        +
        +
        +
        + + type ext += + + + + + + + + + +
        + + | + ExtC + of unit + + +
        + + | + ExtD + of ext + + +
        +
        +
        +
        +
        + + type ext += + + + + + + +
        + + | ExtE + +
        +
        +
        +
        +
        + + type ext += + + + + + + +
        + + | ExtF + +
        +
        +
        +
        +
        + + + type 'a poly_ext + = .. + +

        'a poly_ext

        +
        +
        +
        + + type + poly_ext += + + + + + + + + + + +
        + | + Foo + of 'b + + +
        + | + Bar + of 'b + * 'b + + + (* +

        'b poly_ext

        *) +
        +
        +
        +
        +
        + + type + poly_ext += + + + + + + + +
        + + | + Quux + of 'c + + + (* +

        'c poly_ext

        *) +
        +
        +
        +
        +
        + + module + ExtMod + : sig ... + end + + +
        +
        +
        +
        + + type + ExtMod.t += + + + + + + + +
        + + | + ZzzTop0 + + (* +

        It's got the rock

        *) +
        +
        +
        +
        +
        + + type + ExtMod.t += + + + + + + + +
        + + | + ZzzTop + of unit + + + (* +

        and it packs a unit.

        *) +
        +
        +
        +
        +
        + + val launch_missiles : + unit -> unit + + +

        Rotate keys on my mark...

        +
        +
        +
        + + type my_mod + = + (module + COLLECTION) + + + +
        +

        A brown paper package tied up with string

        +
        +
        +
        +
        + + class + empty_class + : object ... + end + + +
        +
        +
        +
        + + class + one_method_class + + : object ... + end + + +
        +
        +
        +
        + + class + two_method_class + + : object ... + end + + +
        +
        +
        +
        + + class 'a + param_class + : + 'a + -> + object ... + end + + +
        +
        +
        +
        + + type my_unit_object + = + unit param_class + + + +
        +
        +
        +
        + + + type 'a my_unit_class + + = + unit param_class + as 'a + + +
        +
        +
        +
        + + module + Dep1 + : sig ... + end + + +
        +
        +
        +
        + + module + Dep2 + (Arg : + sig ... end + ) : sig ... + end + + +
        +
        +
        +
        + + type dep1 + = + Dep2(Dep1).B.c + + +
        +
        +
        +
        + + module + Dep3 + : sig ... + end + + +
        +
        +
        +
        + + module + Dep4 + : sig ... + end + + +
        +
        +
        +
        + + module + Dep5 + (Arg : + sig ... end + ) : sig ... + end + + +
        +
        +
        +
        + + type dep2 + = + Dep5(Dep4).Z.X.b + + +
        +
        +
        +
        + + type dep3 + = Dep5(Dep4).Z.Y.a + +
        +
        +
        +
        + + module + Dep6 + : sig ... + end + + +
        +
        +
        +
        + + module + Dep7 + (Arg : + sig ... end + ) : sig ... + end + + +
        +
        +
        +
        + + type dep4 + = + Dep7(Dep6).M.Y.d + + +
        +
        +
        +
        + + module + Dep8 + : sig ... + end + + +
        +
        +
        +
        + + module + Dep9 + (X : + sig ... end + ) : sig ... + end + + +
        +
        +
        +
        + + + module + type + Dep10 + = Dep9(Dep8).T + with + type + t = int + + + +
        +
        +
        +
        + + module + Dep11 + : sig ... + end + + +
        +
        +
        +
        + + module + Dep12 + (Arg : + sig ... end + ) : sig ... + end + + +
        +
        +
        +
        + + module + Dep13 + : Dep12(Dep11).T + + +
        +
        +
        +
        + + type dep5 + = Dep13.c + +
        +
        +
        +
        + + + module + type + With1 + = sig ... + end + + +
        +
        +
        +
        + + module + With2 + : sig ... + end + + +
        +
        +
        +
        + + module + With3 + : With1 + with + module + M = + With2 + + + +
        +
        +
        +
        + + type with1 + = With3.N.t + +
        +
        +
        +
        + + module + With4 + : With1 + with + module + M := + With2 + + + +
        +
        +
        +
        + + type with2 + = With4.N.t + +
        +
        +
        +
        + + module + With5 + : sig ... + end + + +
        +
        +
        +
        + + module + With6 + : sig ... + end + + +
        +
        +
        +
        + + module + With7 + (X : + sig ... end + ) : sig ... + end + + +
        +
        +
        +
        + + + module + type + With8 + = With7(With6).T + with + module + M = + With5 + and + type + M.N.t = + With5.N.t + + + +
        +
        +
        +
        + + module + With9 + : sig ... + end + + +
        +
        +
        +
        + + module + With10 + : sig ... + end + + +
        +
        +
        +
        + + + module + type + With11 + = With7(With10).T + with + module + M = + With9 + and + type + N.t = int + + + +
        +
        +
        +
        + + + module + type + + + NestedInclude1 + + = sig ... + end + + +
        +
        +
        +
        + + + include + NestedInclude1 + + + +
        +
        + + + module + type + + + NestedInclude2 + + = sig ... + end + + +
        +
        +
        +
        +
        +
        + + + include + NestedInclude2 + with + type + + nested_include + = int + + + + +
        +
        + + type nested_include + = int + +
        +
        +
        +
        +
        +
        + + module + DoubleInclude1 + : sig ... + end + + +
        +
        +
        +
        + + module + DoubleInclude3 + : sig ... + end + + +
        +
        +
        +
        + + + include + module type + of + + DoubleInclude3.DoubleInclude2 + + + + +
        +
        + + type double_include + +
        +
        +
        +
        +
        +
        + + module + IncludeInclude1 + : sig ... + end + + +
        +
        +
        +
        + + + include + module type + of + IncludeInclude1 + + + +
        +
        + + + module + type + + + IncludeInclude2 + + = sig ... + end + + +
        +
        +
        +
        +
        +
        + + + include + IncludeInclude2 + + + +
        +
        + + type include_include + +
        +
        +
        +
        +

        Trying + the {!modules: ...} command. +

        +

        With ocamldoc, toplevel units will be linked and documented, while + submodules will behave as simple references. +

        +

        With odoc, everything should be resolved (and linked) but only + toplevel units will be documented. +

        + +

        + + Weirder usages involving module types +

        +
        • IncludeInclude1.IncludeInclude2
          • +
        • Dep4.T
          • +
        • A.Q
          • +
        +

        + Playing + with @canonical paths +

        +
        +
        + + module + CanonicalTest + : sig ... + end + + +
        +
        +
        +
        + + + val test : + + 'a + + CanonicalTest.Base.List.t + + -> + unit + + +
        +
        +

        Some ref to + + CanonicalTest.Base__Tests.C.t + and + + CanonicalTest.Base__Tests.L.id + . But also to + + CanonicalTest.Base__.List + and + + CanonicalTest.Base__.List.t + +

        +
        +
        +

        Aliases again

        +
        +
        + + module + Aliases + : sig ... + end + + +

        Let's imitate jst's layout.

        +
        +

        + Section title + splicing +

        I can refer to

        +

        But also to things in submodules:

        +
          +
        • {!section:SuperSig.SubSigA.subSig} : + SuperSig.SubSigA.subSig +
          • +
        • {!Aliases.incl} : + Aliases:incl +
          • +

        And just to make sure we do not mess up:

        +
          +
        • {{!section:indexmodules}A} : + A +
        • {{!aliases}B} : B
          • +
        • {{!section:SuperSig.SubSigA.subSig}C} : + C +
          • +
        • {{!Aliases.incl}D} : + D +
          • +
        +

        + New reference + syntax +

        +
        +
        + + + module + type + M + = sig ... + end + + +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +

        Here goes:

        +
          +
        • {!module-M.t} : + M.t +
          • +
        • {!module-type-M.t} : + M.t +
          • +
        +
        +
        + + module + Only_a_module + : sig ... + end + + +
        +

        Some here should fail:

        + +
        +
        + + + module + type + + TypeExt + = sig ... + end + + +
        +
        +
        +
        + + type new_t + = .. + +
        +
        +
        +
        + + type new_t + += + + + + + + +
        + | C + +
        +
        +
        +
        +
        + + + module + type + + TypeExtPruned + + = TypeExt + with + type + t := + new_t + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..2335eed72c --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,39 @@ + + + + InnerModuleA' (test.Ocamlary.A.Q.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.index.html new file mode 100644 index 0000000000..f8c3c1b865 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.index.html @@ -0,0 +1,68 @@ + + + InnerModuleA (test.Ocamlary.A.Q.InnerModuleA) + + + + + + + + +
        +

        Module Q.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..1d55af581b --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,37 @@ + + + + InnerModuleTypeA' (test.Ocamlary.A.Q.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.index.html new file mode 100644 index 0000000000..18e4e24be2 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.index.html @@ -0,0 +1,72 @@ + + + Q (test.Ocamlary.A.Q) + + + + + + + + +

        Module A.Q

        +
        +
        +

        This comment is for CollectionModule.

        +
        +
        + + type collection +
        +

        This comment is for collection.

        +
        +
        +
        +
        + + type element +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..635db4ac95 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-A.Q.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,37 @@ + + + InnerModuleTypeA (test.Ocamlary.A.Q.InnerModuleTypeA) + + + + + + + + +
        +

        Module type Q.InnerModuleTypeA

        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-A.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-A.index.html new file mode 100644 index 0000000000..648ad5cf73 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-A.index.html @@ -0,0 +1,37 @@ + + + A (test.Ocamlary.A) + + + + + + + + +
        +

        Module type Ocamlary.A

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + module + Q + : COLLECTION + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..1b9f7493fd --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,39 @@ + + + + InnerModuleA' (test.Ocamlary.B.Q.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.index.html new file mode 100644 index 0000000000..33e679dd57 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.index.html @@ -0,0 +1,68 @@ + + + InnerModuleA (test.Ocamlary.B.Q.InnerModuleA) + + + + + + + + +
        +

        Module Q.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..c94e9480ce --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,37 @@ + + + + InnerModuleTypeA' (test.Ocamlary.B.Q.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.index.html new file mode 100644 index 0000000000..c7a2d42a5b --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.index.html @@ -0,0 +1,72 @@ + + + Q (test.Ocamlary.B.Q) + + + + + + + + +

        Module B.Q

        +
        +
        +

        This comment is for CollectionModule.

        +
        +
        + + type collection +
        +

        This comment is for collection.

        +
        +
        +
        +
        + + type element +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..63047d7b61 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-B.Q.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,37 @@ + + + InnerModuleTypeA (test.Ocamlary.B.Q.InnerModuleTypeA) + + + + + + + + +
        +

        Module type Q.InnerModuleTypeA

        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-B.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-B.index.html new file mode 100644 index 0000000000..bc7edfea1c --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-B.index.html @@ -0,0 +1,37 @@ + + + B (test.Ocamlary.B) + + + + + + + + +
        +

        Module type Ocamlary.B

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + module + Q + : COLLECTION + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..0bc342bc00 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,39 @@ + + + + InnerModuleA' (test.Ocamlary.C.Q.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.index.html new file mode 100644 index 0000000000..9369a59fe2 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.index.html @@ -0,0 +1,68 @@ + + + InnerModuleA (test.Ocamlary.C.Q.InnerModuleA) + + + + + + + + +
        +

        Module Q.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..17ae73d190 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,37 @@ + + + + InnerModuleTypeA' (test.Ocamlary.C.Q.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.index.html new file mode 100644 index 0000000000..72698b6f84 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.index.html @@ -0,0 +1,72 @@ + + + Q (test.Ocamlary.C.Q) + + + + + + + + +

        Module C.Q

        +
        +
        +

        This comment is for CollectionModule.

        +
        +
        + + type collection +
        +

        This comment is for collection.

        +
        +
        +
        +
        + + type element +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..07f16b5735 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-C.Q.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,37 @@ + + + InnerModuleTypeA (test.Ocamlary.C.Q.InnerModuleTypeA) + + + + + + + + +
        +

        Module type Q.InnerModuleTypeA

        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-C.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-C.index.html new file mode 100644 index 0000000000..df8c991352 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-C.index.html @@ -0,0 +1,77 @@ + + + C (test.Ocamlary.C) + + + + + + + + +
        +

        Module type Ocamlary.C

        +

        This module type includes two signatures.

        +
          +
        • it includes A +
          • +
        • it includes B + with some substitution +
          • +
        +
        +
        +
        +
        + + + include + A + + + +
        +
        + + type t +
        +
        +
        +
        + + module + Q + : + COLLECTION + + +
        +
        +
        +
        +
        +
        + + + include + B + with + type + t := + t + and + module + Q := + Q + + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..14826adf55 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,38 @@ + + + + InnerModuleA' (test.Ocamlary.COLLECTION.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.index.html new file mode 100644 index 0000000000..f80dd2ed80 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.index.html @@ -0,0 +1,67 @@ + + + InnerModuleA (test.Ocamlary.COLLECTION.InnerModuleA) + + + + + + + + +
        +

        Module COLLECTION.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..280c8622cf --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,38 @@ + + + + + InnerModuleTypeA' + (test.Ocamlary.COLLECTION.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.index.html new file mode 100644 index 0000000000..c9b689f205 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.index.html @@ -0,0 +1,73 @@ + + + COLLECTION (test.Ocamlary.COLLECTION) + + + + + + + + +
        +

        Module type Ocamlary.COLLECTION

        +

        module type of

        +
        +
        +

        This comment is for CollectionModule.

        +
        +
        + + type collection +
        +

        This comment is for collection.

        +
        +
        +
        +
        + + type element +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..501307b2c0 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-COLLECTION.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,37 @@ + + + + InnerModuleTypeA (test.Ocamlary.COLLECTION.InnerModuleTypeA) + + + + + + + + +
        +

        Module type COLLECTION.InnerModuleTypeA

        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-Dep10.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-Dep10.index.html new file mode 100644 index 0000000000..c8022d82be --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-Dep10.index.html @@ -0,0 +1,29 @@ + + + Dep10 (test.Ocamlary.Dep10) + + + + + + + + +
        +

        Module type Ocamlary.Dep10

        +
        +
        +
        +
        + + type t + = int + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-Empty.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-Empty.index.html new file mode 100644 index 0000000000..a15251b7d6 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-Empty.index.html @@ -0,0 +1,28 @@ + + + Empty (test.Ocamlary.Empty) + + + + + + + + +
        +

        Module type Ocamlary.Empty

        +

        An ambiguous, misnamed module type

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-EmptySig.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-EmptySig.index.html new file mode 100644 index 0000000000..ed14fde314 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-EmptySig.index.html @@ -0,0 +1,20 @@ + + + EmptySig (test.Ocamlary.EmptySig) + + + + + + + + +
        +

        Module type Ocamlary.EmptySig

        +

        A plain, empty module signature

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-EmptySigAlias.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-EmptySigAlias.index.html new file mode 100644 index 0000000000..9705c27e9a --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-EmptySigAlias.index.html @@ -0,0 +1,21 @@ + + + EmptySigAlias (test.Ocamlary.EmptySigAlias) + + + + + + + + +
        +

        Module type Ocamlary.EmptySigAlias

        +

        A plain, empty module signature alias of

        + 
        EmptySig

        (preformatted).

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-IncludeInclude2.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-IncludeInclude2.index.html new file mode 100644 index 0000000000..870add67a2 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-IncludeInclude2.index.html @@ -0,0 +1,28 @@ + + + IncludeInclude2 (test.Ocamlary.IncludeInclude2) + + + + + + + + +
        +

        Module type Ocamlary.IncludeInclude2

        +
        +
        +
        +
        + + type include_include + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-IncludeModuleType.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-IncludeModuleType.index.html new file mode 100644 index 0000000000..cfeb08cb79 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-IncludeModuleType.index.html @@ -0,0 +1,36 @@ + + + IncludeModuleType (test.Ocamlary.IncludeModuleType) + + + + + + + + +
        +

        Module type Ocamlary.IncludeModuleType

        +

        This comment is for IncludeModuleType.

        +
        +
        +
        +
        +

        This comment is for include EmptySigAlias.

        +
        +
        + + + include + EmptySigAlias + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-IncludedB.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-IncludedB.index.html new file mode 100644 index 0000000000..625e08ff1f --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-IncludedB.index.html @@ -0,0 +1,27 @@ + + + IncludedB (test.Ocamlary.IncludedB) + + + + + + + + +
        +

        Module type Ocamlary.IncludedB

        +
        +
        +
        +
        + + type s +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-M.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-M.index.html new file mode 100644 index 0000000000..45d7daf044 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-M.index.html @@ -0,0 +1,27 @@ + + + M (test.Ocamlary.M) + + + + + + + + +
        +

        Module type Ocamlary.M

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..ae5fed7de3 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,39 @@ + + + + InnerModuleA' (test.Ocamlary.MMM.C.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.index.html new file mode 100644 index 0000000000..1a3ea52cb1 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.index.html @@ -0,0 +1,68 @@ + + + InnerModuleA (test.Ocamlary.MMM.C.InnerModuleA) + + + + + + + + +
        +

        Module C.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..fbc36a7998 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,38 @@ + + + + + InnerModuleTypeA' (test.Ocamlary.MMM.C.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.index.html new file mode 100644 index 0000000000..19a21b645b --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.index.html @@ -0,0 +1,73 @@ + + + C (test.Ocamlary.MMM.C) + + + + + + + + +
        +

        Module MMM.C

        +
        +
        +

        This comment is for CollectionModule.

        +
        +
        + + type collection +
        +

        This comment is for collection.

        +
        +
        +
        +
        + + type element +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..f73ec0cb81 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.C.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,37 @@ + + + InnerModuleTypeA (test.Ocamlary.MMM.C.InnerModuleTypeA) + + + + + + + + +
        +

        Module type C.InnerModuleTypeA

        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.index.html new file mode 100644 index 0000000000..d755f5e185 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-MMM.index.html @@ -0,0 +1,31 @@ + + + MMM (test.Ocamlary.MMM) + + + + + + + + +
        +

        Module type Ocamlary.MMM

        +
        +
        +
        +
        + + module + C + : COLLECTION + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-MissingComment.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-MissingComment.index.html new file mode 100644 index 0000000000..df55a0d68b --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-MissingComment.index.html @@ -0,0 +1,28 @@ + + + MissingComment (test.Ocamlary.MissingComment) + + + + + + + + +
        +

        Module type Ocamlary.MissingComment

        +

        An ambiguous, misnamed module type

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude1.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude1.index.html new file mode 100644 index 0000000000..4e887412be --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude1.index.html @@ -0,0 +1,38 @@ + + + NestedInclude1 (test.Ocamlary.NestedInclude1) + + + + + + + + +
        +

        Module type Ocamlary.NestedInclude1

        +
        +
        +
        +
        + + + module + type + + + NestedInclude2 + + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude1.module-type-NestedInclude2.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude1.module-type-NestedInclude2.index.html new file mode 100644 index 0000000000..4b387c2fb3 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude1.module-type-NestedInclude2.index.html @@ -0,0 +1,31 @@ + + + + NestedInclude2 (test.Ocamlary.NestedInclude1.NestedInclude2) + + + + + + + + +
        +

        Module type NestedInclude1.NestedInclude2 +

        +
        +
        +
        +
        + + type nested_include + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude2.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude2.index.html new file mode 100644 index 0000000000..26029f45d0 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-NestedInclude2.index.html @@ -0,0 +1,28 @@ + + + NestedInclude2 (test.Ocamlary.NestedInclude2) + + + + + + + + +
        +

        Module type Ocamlary.NestedInclude2

        +
        +
        +
        +
        + + type nested_include + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-RECOLLECTION.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-RECOLLECTION.index.html new file mode 100644 index 0000000000..f316a8a5f4 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-RECOLLECTION.index.html @@ -0,0 +1,32 @@ + + + RECOLLECTION (test.Ocamlary.RECOLLECTION) + + + + + + + + +
        +

        Module type Ocamlary.RECOLLECTION

        +
        +
        +
        +
        + + module C + = + Recollection(CollectionModule) + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.InnerModuleA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.InnerModuleA'.index.html new file mode 100644 index 0000000000..8776c33632 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.InnerModuleA'.index.html @@ -0,0 +1,40 @@ + + + + + InnerModuleA' + (test.Ocamlary.RecollectionModule.InnerModuleA.InnerModuleA') + + + + + + + + +
        +

        Module InnerModuleA.InnerModuleA'

        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + type t + = + (unit, unit) + a_function + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.index.html new file mode 100644 index 0000000000..ee1b52e57d --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.index.html @@ -0,0 +1,68 @@ + + + + InnerModuleA (test.Ocamlary.RecollectionModule.InnerModuleA) + + + + + + + + +
        +

        Module RecollectionModule.InnerModuleA

        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + type t + = collection + +
        +

        This comment is for t.

        +
        +
        +
        + + module + InnerModuleA' + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA'.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA' + + + = sig ... + end + + +
        +
        +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html new file mode 100644 index 0000000000..d975ffa732 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html @@ -0,0 +1,38 @@ + + + + + InnerModuleTypeA' + (test.Ocamlary.RecollectionModule.InnerModuleA.InnerModuleTypeA') + + + + + + + + +
        +

        Module type InnerModuleA.InnerModuleTypeA' +

        This comment is for InnerModuleTypeA'.

        +
        +
        +
        +
        + + type t + = + InnerModuleA'.t + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.index.html new file mode 100644 index 0000000000..c329decb32 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.index.html @@ -0,0 +1,83 @@ + + + RecollectionModule (test.Ocamlary.RecollectionModule) + + + + + + + + +
        +

        Module type Ocamlary.RecollectionModule

        +
        +
        +
        +
        + + type collection + = + + + CollectionModule.element + list + + + +
        +
        +
        +
        + + type element + = + + CollectionModule.collection + + + +
        +
        +
        +
        + + module + InnerModuleA + : sig ... + end + + +
        +
        +

        This comment is for InnerModuleA.

        +
        +
        +
        +
        + + + module + type + + + InnerModuleTypeA + + = + + InnerModuleA.InnerModuleTypeA' + + + +
        +
        +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.module-type-InnerModuleTypeA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.module-type-InnerModuleTypeA.index.html new file mode 100644 index 0000000000..e568e31530 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-RecollectionModule.module-type-InnerModuleTypeA.index.html @@ -0,0 +1,38 @@ + + + + InnerModuleTypeA (test.Ocamlary.RecollectionModule.InnerModuleTypeA) + + + + + + + + +
        +

        Module type + RecollectionModule.InnerModuleTypeA +

        This comment is for InnerModuleTypeA.

        +
        +
        +
        +
        + + type t + = + + InnerModuleA.InnerModuleA'.t + + + +
        +

        This comment is for t.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.Inner.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.Inner.index.html new file mode 100644 index 0000000000..5ea76c1b4e --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.Inner.index.html @@ -0,0 +1,35 @@ + + + Inner (test.Ocamlary.SigForMod.Inner) + + + + + + + + +
        +

        Module SigForMod.Inner

        +
        +
        +
        +
        + + + module + type + Empty + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.Inner.module-type-Empty.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.Inner.module-type-Empty.index.html new file mode 100644 index 0000000000..40192eeb85 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.Inner.module-type-Empty.index.html @@ -0,0 +1,21 @@ + + + Empty (test.Ocamlary.SigForMod.Inner.Empty) + + + + + + + + +
        +

        Module type Inner.Empty

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.index.html new file mode 100644 index 0000000000..61a001228a --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SigForMod.index.html @@ -0,0 +1,33 @@ + + + SigForMod (test.Ocamlary.SigForMod) + + + + + + + + +
        +

        Module type Ocamlary.SigForMod

        +

        There's a signature in a module in this signature.

        +
        +
        +
        +
        + + module + Inner + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.index.html new file mode 100644 index 0000000000..7089e368d2 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.index.html @@ -0,0 +1,90 @@ + + + SuperSig (test.Ocamlary.SuperSig) + + + + + + + + +
        +

        Module type Ocamlary.SuperSig

        +
        +
        +
        +
        + + + module + type + + SubSigA + = sig ... + end + + +
        +
        +
        +
        + + + module + type + + SubSigB + = sig ... + end + + +
        +
        +
        +
        + + + module + type + + EmptySig + = sig ... + end + + +
        +
        +
        +
        + + + module + type + One + = sig ... + end + + +
        +
        +
        +
        + + + module + type + + SuperSig + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-EmptySig.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-EmptySig.index.html new file mode 100644 index 0000000000..56852abfd2 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-EmptySig.index.html @@ -0,0 +1,29 @@ + + + EmptySig (test.Ocamlary.SuperSig.EmptySig) + + + + + + + + +
        +

        Module type SuperSig.EmptySig

        +
        +
        +
        +
        + + type not_actually_empty + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-One.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-One.index.html new file mode 100644 index 0000000000..a0f542e129 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-One.index.html @@ -0,0 +1,28 @@ + + + One (test.Ocamlary.SuperSig.One) + + + + + + + + +
        +

        Module type SuperSig.One

        +
        +
        +
        +
        + + type two +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigA.SubSigAMod.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigA.SubSigAMod.index.html new file mode 100644 index 0000000000..2e161b4227 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigA.SubSigAMod.index.html @@ -0,0 +1,30 @@ + + + SubSigAMod (test.Ocamlary.SuperSig.SubSigA.SubSigAMod) + + + + + + + + +
        +

        Module SubSigA.SubSigAMod

        +
        +
        +
        +
        + + type sub_sig_a_mod + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigA.index.html new file mode 100644 index 0000000000..8b4fc41135 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigA.index.html @@ -0,0 +1,48 @@ + + + SubSigA (test.Ocamlary.SuperSig.SubSigA) + + + + + + + + +
        +

        Module type SuperSig.SubSigA

        +
        + +
        +

        A Labeled Section + Header Inside of a Signature +

        +
        +
        + + type t +
        +
        +
        +
        + + module + SubSigAMod + : sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigB.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigB.index.html new file mode 100644 index 0000000000..31b8b14463 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SubSigB.index.html @@ -0,0 +1,39 @@ + + + SubSigB (test.Ocamlary.SuperSig.SubSigB) + + + + + + + + +
        +

        Module type SuperSig.SubSigB

        +
        + +
        +

        Another Labeled + Section Header Inside of a Signature +

        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SuperSig.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SuperSig.index.html new file mode 100644 index 0000000000..0ba444d17f --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-SuperSig.module-type-SuperSig.index.html @@ -0,0 +1,20 @@ + + + SuperSig (test.Ocamlary.SuperSig.SuperSig) + + + + + + + + +
        +

        Module type SuperSig.SuperSig

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.IncludedA.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.IncludedA.index.html new file mode 100644 index 0000000000..16e5bb6c9a --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.IncludedA.index.html @@ -0,0 +1,28 @@ + + + IncludedA (test.Ocamlary.ToInclude.IncludedA) + + + + + + + + +
        +

        Module ToInclude.IncludedA

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.index.html new file mode 100644 index 0000000000..c7c893faf2 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.index.html @@ -0,0 +1,46 @@ + + + ToInclude (test.Ocamlary.ToInclude) + + + + + + + + +
        +

        Module type Ocamlary.ToInclude

        +
        +
        +
        +
        + + module + IncludedA + : sig ... + end + + +
        +
        +
        +
        + + + module + type + + IncludedB + = sig ... + end + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.module-type-IncludedB.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.module-type-IncludedB.index.html new file mode 100644 index 0000000000..0c5230e769 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-ToInclude.module-type-IncludedB.index.html @@ -0,0 +1,28 @@ + + + IncludedB (test.Ocamlary.ToInclude.IncludedB) + + + + + + + + +
        +

        Module type ToInclude.IncludedB

        +
        +
        +
        +
        + + type s +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-TypeExt.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-TypeExt.index.html new file mode 100644 index 0000000000..dee925b414 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-TypeExt.index.html @@ -0,0 +1,56 @@ + + + TypeExt (test.Ocamlary.TypeExt) + + + + + + + + +
        +

        Module type Ocamlary.TypeExt

        +
        +
        +
        +
        + + type t = + .. + +
        +
        +
        +
        + + type t += + + + + + + +
        + | C + +
        +
        +
        +
        +
        + + + val f : + t -> + unit + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-TypeExtPruned.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-TypeExtPruned.index.html new file mode 100644 index 0000000000..2785e188cb --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-TypeExtPruned.index.html @@ -0,0 +1,50 @@ + + + TypeExtPruned (test.Ocamlary.TypeExtPruned) + + + + + + + + +
        +

        Module type Ocamlary.TypeExtPruned

        +
        +
        +
        +
        + + type + new_t += + + + + + + +
        + | C + +
        +
        +
        +
        +
        + + + val f : + new_t + -> + unit + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-With1.M.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-With1.M.index.html new file mode 100644 index 0000000000..aaa0474696 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-With1.M.index.html @@ -0,0 +1,32 @@ + + + M (test.Ocamlary.With1.M) + + + + + + + + +
        +

        Module With1.M

        +
        +
        +
        +
        + + + module + type + S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-With1.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-With1.index.html new file mode 100644 index 0000000000..994d998f92 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-With1.index.html @@ -0,0 +1,40 @@ + + + With1 (test.Ocamlary.With1) + + + + + + + + +
        +

        Module type Ocamlary.With1

        +
        +
        +
        +
        + + module + M + : sig ... + end + + +
        +
        +
        +
        + + module N + : M.S + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-With11.N.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-With11.N.index.html new file mode 100644 index 0000000000..1f18ad98e8 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-With11.N.index.html @@ -0,0 +1,30 @@ + + + N (test.Ocamlary.With11.N) + + + + + + + + +
        +

        Module With11.N

        +
        +
        +
        +
        + + type t + = int + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-With11.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-With11.index.html new file mode 100644 index 0000000000..15f898e759 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-With11.index.html @@ -0,0 +1,43 @@ + + + With11 (test.Ocamlary.With11) + + + + + + + + +
        +

        Module type Ocamlary.With11

        +
        +
        +
        +
        + + module M + = With9 + +
        +
        +
        +
        + + module + N + : M.S + with + type + t = int + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.N.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.N.index.html new file mode 100644 index 0000000000..89fd4f5f32 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.N.index.html @@ -0,0 +1,31 @@ + + + N (test.Ocamlary.With8.M.N) + + + + + + + + +

        Module M.N

        +
        +
        +
        +
        + + type t + = With5.N.t + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.index.html new file mode 100644 index 0000000000..7735cf906e --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.index.html @@ -0,0 +1,55 @@ + + + M (test.Ocamlary.With8.M) + + + + + + + + +
        +

        Module With8.M

        +
        +
        +
        +
        + + + module + type + S + = sig ... + end + + +
        +
        +
        +
        + + module + N + : module + type of + struct + include + With5.N + end with + + type + t = + With5.N.t + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.module-type-S.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.module-type-S.index.html new file mode 100644 index 0000000000..86bcc2b771 --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-With8.M.module-type-S.index.html @@ -0,0 +1,29 @@ + + + S (test.Ocamlary.With8.M.S) + + + + + + + + +
        +

        Module type M.S

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Ocamlary.module-type-With8.index.html b/test/generators/cases_pre408/html/Ocamlary.module-type-With8.index.html new file mode 100644 index 0000000000..0668a281ec --- /dev/null +++ b/test/generators/cases_pre408/html/Ocamlary.module-type-With8.index.html @@ -0,0 +1,41 @@ + + + With8 (test.Ocamlary.With8) + + + + + + + + +
        +

        Module type Ocamlary.With8

        +
        +
        +
        +
        + + module + M + : module + type of + struct + include + With5 + end with + + type + N.t = + With5.N.t + + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Section.index.html b/test/generators/cases_pre408/html/Section.index.html new file mode 100644 index 0000000000..595f56fb59 --- /dev/null +++ b/test/generators/cases_pre408/html/Section.index.html @@ -0,0 +1,77 @@ + + + Section (test.Section) + + + + + + + + +
        +

        Module Section

        +

        This is the module comment. Eventually, sections won't be allowed + in it. +

        +
        + +
        +

        + Empty section +

        +

        Text only

        +

        Foo bar.

        +

        Aside only +

        Foo bar.

        +

        Value only +

        +
        +
        + + val foo : unit +
        +
        +

        + Empty section +

        +

        + within a comment +

        +

        + and one + with a nested section +

        +

        + This + section title has markup +

        +

        But links are impossible thanks to the parser, so we never have + trouble rendering a section title in a table of contents – no + link will be nested inside another link. +

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Stop.N.index.html b/test/generators/cases_pre408/html/Stop.N.index.html new file mode 100644 index 0000000000..7b47fa687c --- /dev/null +++ b/test/generators/cases_pre408/html/Stop.N.index.html @@ -0,0 +1,27 @@ + + + N (test.Stop.N) + + + + + + + + +
        +

        Module Stop.N

        +
        +
        +
        +
        + + val quux : int +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Stop.index.html b/test/generators/cases_pre408/html/Stop.index.html new file mode 100644 index 0000000000..e6d9cfcd18 --- /dev/null +++ b/test/generators/cases_pre408/html/Stop.index.html @@ -0,0 +1,55 @@ + + + Stop (test.Stop) + + + + + + + + +
        +

        Module Stop

        +

        This test cases exercises stop comments.

        +
        +
        +
        +
        + + val foo : int +

        This is normal commented text.

        +
        +

        The next value is bar, and it should be missing from + the documentation. There is also an entire module, M + , which should also be hidden. It contains a nested stop comment, + but that stop comment should not turn documentation back on in this + outer module, because stop comments respect scope. +

        Documentation is on again.

        +

        Now, we have a nested module, and it has a stop comment between + its two items. We want to see that the first item is displayed, + but the second is missing, and the stop comment disables documenation + only in that module, and not in this outer module. +

        +
        +
        + + module + N + : sig ... + end + + +
        +
        +
        +
        + + val lol : int +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Stop_dead_link_doc.Foo.index.html b/test/generators/cases_pre408/html/Stop_dead_link_doc.Foo.index.html new file mode 100644 index 0000000000..efe4277bea --- /dev/null +++ b/test/generators/cases_pre408/html/Stop_dead_link_doc.Foo.index.html @@ -0,0 +1,27 @@ + + + Foo (test.Stop_dead_link_doc.Foo) + + + + + + + + +
        +

        Module Stop_dead_link_doc.Foo

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Stop_dead_link_doc.index.html b/test/generators/cases_pre408/html/Stop_dead_link_doc.index.html new file mode 100644 index 0000000000..bf85543eeb --- /dev/null +++ b/test/generators/cases_pre408/html/Stop_dead_link_doc.index.html @@ -0,0 +1,146 @@ + + + Stop_dead_link_doc (test.Stop_dead_link_doc) + + + + + + + + +
        +

        Module Stop_dead_link_doc

        +
        +
        +
        +
        + + module + Foo + : sig ... + end + + +
        +
        +
        +
        + + type foo = + + + + + +
        + + | + Bar + of + Foo.t + + +
        +
        +
        +
        +
        + + type bar = + + + + + +
        + + | + Bar + of + { + + + + + +
        + + + field : Foo.t; + +
        } +
        +
        +
        +
        +
        + + type foo_ + = + + + + + +
        + + | + Bar_ + of int * + Foo.t * int + + +
        +
        +
        +
        +
        + + type bar_ + = + + + + + +
        + + | + Bar__ + of + Foo.t option + + +
        +
        +
        +
        +
        + + type another_foo +
        +
        +
        +
        + + type another_bar +
        +
        +
        +
        + + type another_foo_ +
        +
        +
        +
        + + type another_bar_ +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.Alias.index.html b/test/generators/cases_pre408/html/Toplevel_comments.Alias.index.html new file mode 100644 index 0000000000..149b7e5ecf --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.Alias.index.html @@ -0,0 +1,28 @@ + + + Alias (test.Toplevel_comments.Alias) + + + + + + + + +
        +

        Module Toplevel_comments.Alias

        +

        Doc of Alias.

        Doc of T, part 2.

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.Include_inline'.index.html b/test/generators/cases_pre408/html/Toplevel_comments.Include_inline'.index.html new file mode 100644 index 0000000000..0da198a020 --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.Include_inline'.index.html @@ -0,0 +1,32 @@ + + + + Include_inline' (test.Toplevel_comments.Include_inline') + + + + + + + + +
        +

        Module Toplevel_comments.Include_inline' +

        Doc of Include_inline, part 1.

        +

        Doc of Include_inline, part 2.

        +
        +
        +

        part 3

        +
        +
        + + type t +
        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.Include_inline.index.html b/test/generators/cases_pre408/html/Toplevel_comments.Include_inline.index.html new file mode 100644 index 0000000000..dca65ecfd9 --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.Include_inline.index.html @@ -0,0 +1,30 @@ + + + Include_inline (test.Toplevel_comments.Include_inline) + + + + + + + + +
        +

        Module Toplevel_comments.Include_inline

        +

        Doc of T, part 2.

        +
        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.M''.index.html b/test/generators/cases_pre408/html/Toplevel_comments.M''.index.html new file mode 100644 index 0000000000..6216e87184 --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.M''.index.html @@ -0,0 +1,21 @@ + + + M'' (test.Toplevel_comments.M'') + + + + + + + + +
        +

        Module Toplevel_comments.M''

        +

        Doc of M'', part 1.

        +

        Doc of M'', part 2.

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.M'.index.html b/test/generators/cases_pre408/html/Toplevel_comments.M'.index.html new file mode 100644 index 0000000000..26cc2e3d73 --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.M'.index.html @@ -0,0 +1,20 @@ + + + M' (test.Toplevel_comments.M') + + + + + + + + +
        +

        Module Toplevel_comments.M'

        +

        Doc of M' from outside

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.M.index.html b/test/generators/cases_pre408/html/Toplevel_comments.M.index.html new file mode 100644 index 0000000000..1d15ee8fb7 --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.M.index.html @@ -0,0 +1,20 @@ + + + M (test.Toplevel_comments.M) + + + + + + + + +
        +

        Module Toplevel_comments.M

        +

        Doc of M

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.class-c1.index.html b/test/generators/cases_pre408/html/Toplevel_comments.class-c1.index.html new file mode 100644 index 0000000000..9e6dd9ae68 --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.class-c1.index.html @@ -0,0 +1,21 @@ + + + c1 (test.Toplevel_comments.c1) + + + + + + + + +
        +

        Class Toplevel_comments.c1

        +

        Doc of c1, part 1.

        +

        Doc of c1, part 2.

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.class-c2.index.html b/test/generators/cases_pre408/html/Toplevel_comments.class-c2.index.html new file mode 100644 index 0000000000..4b6a48e42e --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.class-c2.index.html @@ -0,0 +1,20 @@ + + + c2 (test.Toplevel_comments.c2) + + + + + + + + +
        +

        Class Toplevel_comments.c2

        +

        Doc of c2.

        Doc of ct, part 2.

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.class-type-ct.index.html b/test/generators/cases_pre408/html/Toplevel_comments.class-type-ct.index.html new file mode 100644 index 0000000000..0c52b3183c --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.class-type-ct.index.html @@ -0,0 +1,21 @@ + + + ct (test.Toplevel_comments.ct) + + + + + + + + +
        +

        Class type Toplevel_comments.ct

        +

        Doc of ct, part 1.

        +

        Doc of ct, part 2.

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.index.html b/test/generators/cases_pre408/html/Toplevel_comments.index.html new file mode 100644 index 0000000000..0937eb216c --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.index.html @@ -0,0 +1,175 @@ + + + Toplevel_comments (test.Toplevel_comments) + + + + + + + + +
        +

        Module Toplevel_comments

        +

        A doc comment at the beginning of a module is considered to be + that module's doc. +

        +
        +
        +
        +
        + + + module + type + T + = sig ... + end + + +

        Doc of T, part 1.

        +
        +
        +
        + + module + Include_inline + : sig ... + end + + +

        Doc of T, part 2.

        +
        +
        +
        + + module + Include_inline' + : sig ... + end + + +
        +

        Doc of Include_inline, part 1.

        +
        +
        +
        +
        + + + module + type + + + Include_inline_T + + = sig ... + end + + +

        Doc of T, part 2.

        +
        +
        +
        + + + module + type + + + Include_inline_T' + + + = sig ... + end + + +
        +
        +

        Doc of Include_inline_T', part 1.

        +
        +
        +
        +
        + + module + M + : sig ... + end + + +

        Doc of M

        +
        +
        +
        + + module + M' + : sig ... + end + + +
        +

        Doc of M' from outside

        +
        +
        +
        + + module + M'' + : sig ... + end + + +

        Doc of M'', part 1.

        +
        +
        +
        + + module + Alias + : T + +

        Doc of Alias.

        +
        +
        +
        + + class + c1 + : int -> + object ... + end + + +

        Doc of c1, part 1.

        +
        +
        +
        + + + class + type + ct + = object ... + end + + +

        Doc of ct, part 1.

        +
        +
        +
        + + class + c2 + : ct + +

        Doc of c2.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.module-type-Include_inline_T'.index.html b/test/generators/cases_pre408/html/Toplevel_comments.module-type-Include_inline_T'.index.html new file mode 100644 index 0000000000..037a4f71ae --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.module-type-Include_inline_T'.index.html @@ -0,0 +1,33 @@ + + + + Include_inline_T' (test.Toplevel_comments.Include_inline_T') + + + + + + + + +
        +

        Module type + Toplevel_comments.Include_inline_T' +

        Doc of Include_inline_T', part 1.

        +

        Doc of Include_inline_T', part 2.

        +
        +
        +

        part 3

        +
        +
        + + type t +
        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.module-type-Include_inline_T.index.html b/test/generators/cases_pre408/html/Toplevel_comments.module-type-Include_inline_T.index.html new file mode 100644 index 0000000000..4c84316f69 --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.module-type-Include_inline_T.index.html @@ -0,0 +1,32 @@ + + + + Include_inline_T (test.Toplevel_comments.Include_inline_T) + + + + + + + + +
        +

        Module type + Toplevel_comments.Include_inline_T +

        Doc of T, part 2.

        +
        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Toplevel_comments.module-type-T.index.html b/test/generators/cases_pre408/html/Toplevel_comments.module-type-T.index.html new file mode 100644 index 0000000000..2926e15b16 --- /dev/null +++ b/test/generators/cases_pre408/html/Toplevel_comments.module-type-T.index.html @@ -0,0 +1,28 @@ + + + T (test.Toplevel_comments.T) + + + + + + + + +
        +

        Module type Toplevel_comments.T

        +

        Doc of T, part 1.

        Doc of T, part 2.

        +
        +
        +
        +
        + + type t +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Type.index.html b/test/generators/cases_pre408/html/Type.index.html new file mode 100644 index 0000000000..a522966af7 --- /dev/null +++ b/test/generators/cases_pre408/html/Type.index.html @@ -0,0 +1,879 @@ + + + Type (test.Type) + + + + + + + + +
        +

        Module Type

        +
        +
        +
        +
        + + type abstract +

        Some documentation.

        +
        +
        +
        + + type alias + = int + +
        +
        +
        +
        + + type private_ + = private int + +
        +
        +
        +
        + + + type 'a constructor + = 'a + +
        +
        +
        +
        + + type arrow + = int -> int + + +
        +
        +
        +
        + + type higher_order + = + + (int -> int) + -> + int + + +
        +
        +
        +
        + + type labeled + = l:int -> int + + +
        +
        +
        +
        + + type optional + = ?l:int -> int + + +
        +
        +
        +
        + + + type labeled_higher_order + = + + (l:int -> int) + -> + + + (?l:int -> int) + -> + int + + +
        +
        +
        +
        + + type pair + = int * int + +
        +
        +
        +
        + + type parens_dropped + = int * int + +
        +
        +
        +
        + + type triple + = int * int * int + +
        +
        +
        +
        + + type nested_pair + = (int * int) * int + +
        +
        +
        +
        + + type instance + = int constructor + + +
        +
        +
        +
        + + type long + = + labeled_higher_order + -> + + + [ `Bar + | `Baz of triple + ] + -> + + pair + -> + + labeled + -> + + higher_order + -> + + + (string -> int) + -> + + + (int, float, char, string, char, unit) + CamlinternalFormatBasics + .fmtty + -> + + nested_pair + -> + + arrow + -> + string -> + nested_pair array + + +
        +
        +
        +
        + + type variant_e + = { + + + + + +
        + + a : int; +
        } +
        +
        +
        +
        + + type variant + = + + + + + + + + + + + + + + + + + + + +
        + + | A + +
        + + | + B + of int + + +
        + + | C + + (*

        foo

        + *) +
        + + | D + + (* +

        bar

        *) +
        + + | + E + of + variant_e + + +
        +
        +
        +
        +
        + + type variant_c + = { + + + + + +
        + + a : int; +
        } +
        +
        +
        +
        + + type _ gadt + = + + + + + + + + + + + +
        + + | + A : + int gadt + + +
        + + | + B : int + -> + string gadt + + +
        + + | + C : + variant_c + -> + unit gadt + + +
        +
        +
        +
        +
        + + type degenerate_gadt + = + + + + + +
        + + | + A : + degenerate_gadt + + +
        +
        +
        +
        +
        + + type private_variant + = private + + + + + +
        + + | A + +
        +
        +
        +
        +
        + + type record + = { + + + + + + + + + + + + + + + + + + + +
        + + a : int; +
        + + mutable b : int; + +
        + + c : int; + (*

        foo

        + *) +
        + + d : int; + (* +

        bar

        *) +
        + + e : a. 'a; +
        } +
        +
        +
        +
        + + type polymorphic_variant + = [ + + + + + + + + + + + + + + +
        + + | `A +
        + + | + `B of int +
        + + | + `C of int * unit + +
        + + | `D +
        ] +
        +
        +
        +
        + + + type polymorphic_variant_extension + = [ + + + + + + + + +
        + + | + + polymorphic_variant + + +
        + + | `E +
        ] +
        +
        +
        +
        + + + type nested_polymorphic_variant + = [ + + + + + +
        + + | + + `A of + [ `B | `C ] + + +
        ] +
        +
        +
        +
        + + + type private_extenion#row + +
        +
        +
        +
        + + and private_extenion + = private + [> + + + + + +
        + + | + + polymorphic_variant + + +
        ] +
        +
        +
        +
        + + type object_ + = < a : int; b : int; c : int; > + +
        +
        +
        +
        + + + module + type + X + = sig ... + end + + +
        +
        +
        +
        + + type module_ + = + (module + X) + + + +
        +
        +
        +
        + + type module_substitution + = + (module + X + with type + t = int + and type + u = unit) + + + +
        +
        +
        +
        + + + type +'a covariant + + +
        +
        +
        +
        + + + type -'a contravariant + + +
        +
        +
        +
        + + + type _ bivariant + = int + +
        +
        +
        +
        + + + type ('a, 'b) binary + + +
        +
        +
        +
        + + type using_binary + = + (int, int) binary + + + +
        +
        +
        +
        + + + type 'custom name + + +
        +
        +
        +
        + + + type 'a constrained + = 'a + constraint + 'a = int + + +
        +
        +
        +
        + + + type 'a exact_variant + = 'a + constraint + 'a = + [ `A | `B of int ] + + +
        +
        +
        +
        + + + type 'a lower_variant + = 'a + constraint + 'a = + [> `A | `B of int ] + + +
        +
        +
        +
        + + + type 'a any_variant + = 'a + constraint + 'a = [> ] + + +
        +
        +
        +
        + + + type 'a upper_variant + = 'a + constraint + 'a = + [< `A | `B of int ] + + +
        +
        +
        +
        + + + type 'a named_variant + = 'a + constraint + 'a = + [< + polymorphic_variant ] + + + +
        +
        +
        +
        + + + type 'a exact_object + = 'a + constraint + 'a = + < a : int; b : int; > + + +
        +
        +
        +
        + + + type 'a lower_object + = 'a + constraint + 'a = + < a : int; b : int; .. > + + +
        +
        +
        +
        + + + type 'a poly_object + = 'a + constraint + 'a = + < a : a. 'a; > + + +
        +
        +
        +
        + + + type + ('a, 'b) double_constrained + + = 'a * + 'b + + constraint + 'a = int + constraint + 'b = unit + + +
        +
        +
        +
        + + type as_ + = int as 'a * + 'a + + +
        +
        +
        +
        + + type extensible + = .. + +
        +
        +
        +
        + + type + extensible += + + + + + + + + + + + +
        + + | + Extension + + (* +

        Documentation for + Extension. +

        *) +
        + + | + Another_extension + + (* +

        Documentation for + + Another_extension + . +

        *) +
        +
        +
        +
        +
        + + type mutually + = + + + + + +
        + + | + A + of + recursive + + +
        +
        +
        +
        +
        + + and recursive + = + + + + + +
        + + | + B + of + mutually + + +
        +
        +
        +
        +
        + + exception + Foo + of int * int + + +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Type.module-type-X.index.html b/test/generators/cases_pre408/html/Type.module-type-X.index.html new file mode 100644 index 0000000000..4e3dea7fbe --- /dev/null +++ b/test/generators/cases_pre408/html/Type.module-type-X.index.html @@ -0,0 +1,33 @@ + + + X (test.Type.X) + + + + + + + + +
        +

        Module type Type.X

        +
        +
        +
        +
        + + type t +
        +
        +
        +
        + + type u +
        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/Val.index.html b/test/generators/cases_pre408/html/Val.index.html new file mode 100644 index 0000000000..96cd937c7b --- /dev/null +++ b/test/generators/cases_pre408/html/Val.index.html @@ -0,0 +1,41 @@ + + + Val (test.Val) + + + + + + + + +

        Module Val

        +
        +
        +
        +
        + + val documented : unit + +

        Foo.

        +
        +
        +
        + + val undocumented : unit + +
        +
        +
        +
        + + + val documented_above : unit + +

        Bar.

        +
        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/html/dune b/test/generators/cases_pre408/html/dune new file mode 100644 index 0000000000..1900258c3c --- /dev/null +++ b/test/generators/cases_pre408/html/dune @@ -0,0 +1 @@ +(include html.dune.inc) diff --git a/test/generators/cases_pre408/html/gen_html/dune b/test/generators/cases_pre408/html/gen_html/dune new file mode 100644 index 0000000000..7bf6d5d0a0 --- /dev/null +++ b/test/generators/cases_pre408/html/gen_html/dune @@ -0,0 +1,5 @@ +(executable + (name gen_html) + (libraries html_t_rule) + (enabled_if + (>= %{ocaml_version} 4.04))) diff --git a/test/generators/cases_pre408/html/gen_html/gen_html.ml b/test/generators/cases_pre408/html/gen_html/gen_html.ml new file mode 100644 index 0000000000..9976d0a936 --- /dev/null +++ b/test/generators/cases_pre408/html/gen_html/gen_html.ml @@ -0,0 +1,6 @@ +let () = + let stanzas = + Gen_backend.gen_backend_rules "html" Html_t_rule.html_target_rule + Gen_backend.files "4.10" + in + List.iter (Sexplib0.Sexp.pp Format.std_formatter) stanzas diff --git a/test/generators/cases_pre408/html/html.dune.inc b/test/generators/cases_pre408/html/html.dune.inc new file mode 100644 index 0000000000..64fde50c6e --- /dev/null +++ b/test/generators/cases_pre408/html/html.dune.inc @@ -0,0 +1,4002 @@ +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../alias.odocl}) + (with-stdout-to + Alias.index.html.gen + (progn + (system "cat 'html.gen/test/Alias/index.html'"))) + (with-stdout-to + Alias.Foo__X.index.html.gen + (progn + (system "cat 'html.gen/test/Alias/Foo__X/index.html'"))) + (with-stdout-to + Alias.X.index.html.gen + (progn + (system "cat 'html.gen/test/Alias/X/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Alias.index.html Alias.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Alias.Foo__X.index.html Alias.Foo__X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Alias.X.index.html Alias.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../bugs.odocl}) + (with-stdout-to + Bugs.index.html.gen + (progn + (system "cat 'html.gen/test/Bugs/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Bugs.index.html Bugs.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../bugs_pre_410.odocl}) + (with-stdout-to + Bugs_pre_410.index.html.gen + (progn + (system "cat 'html.gen/test/Bugs_pre_410/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Bugs_pre_410.index.html Bugs_pre_410.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../class.odocl}) + (with-stdout-to + Class.index.html.gen + (progn + (system "cat 'html.gen/test/Class/index.html'"))) + (with-stdout-to + Class.class-type-empty.index.html.gen + (progn + (system "cat 'html.gen/test/Class/class-type-empty/index.html'"))) + (with-stdout-to + Class.class-type-mutually.index.html.gen + (progn + (system "cat 'html.gen/test/Class/class-type-mutually/index.html'"))) + (with-stdout-to + Class.class-type-recursive.index.html.gen + (progn + (system "cat 'html.gen/test/Class/class-type-recursive/index.html'"))) + (with-stdout-to + Class.class-mutually'.index.html.gen + (progn + (system "cat 'html.gen/test/Class/class-mutually'\\''/index.html'"))) + (with-stdout-to + Class.class-recursive'.index.html.gen + (progn + (system "cat 'html.gen/test/Class/class-recursive'\\''/index.html'"))) + (with-stdout-to + Class.class-type-empty_virtual.index.html.gen + (progn + (system "cat 'html.gen/test/Class/class-type-empty_virtual/index.html'"))) + (with-stdout-to + Class.class-empty_virtual'.index.html.gen + (progn + (system "cat 'html.gen/test/Class/class-empty_virtual'\\''/index.html'"))) + (with-stdout-to + Class.class-type-polymorphic.index.html.gen + (progn + (system "cat 'html.gen/test/Class/class-type-polymorphic/index.html'"))) + (with-stdout-to + Class.class-polymorphic'.index.html.gen + (progn + (system "cat 'html.gen/test/Class/class-polymorphic'\\''/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Class.index.html Class.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Class.class-type-empty.index.html + Class.class-type-empty.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Class.class-type-mutually.index.html + Class.class-type-mutually.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Class.class-type-recursive.index.html + Class.class-type-recursive.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Class.class-mutually'.index.html + Class.class-mutually'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Class.class-recursive'.index.html + Class.class-recursive'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Class.class-type-empty_virtual.index.html + Class.class-type-empty_virtual.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Class.class-empty_virtual'.index.html + Class.class-empty_virtual'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Class.class-type-polymorphic.index.html + Class.class-type-polymorphic.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Class.class-polymorphic'.index.html + Class.class-polymorphic'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../external.odocl}) + (with-stdout-to + External.index.html.gen + (progn + (system "cat 'html.gen/test/External/index.html'")))))) + +(rule + (alias runtest) + (action + (diff External.index.html External.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../functor.odocl}) + (with-stdout-to + Functor.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/index.html'"))) + (with-stdout-to + Functor.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/module-type-S/index.html'"))) + (with-stdout-to + Functor.module-type-S1.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/module-type-S1/index.html'"))) + (with-stdout-to + Functor.module-type-S1.argument-1-_.index.html.gen + (progn + (system + "cat 'html.gen/test/Functor/module-type-S1/argument-1-_/index.html'"))) + (with-stdout-to + Functor.F1.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/F1/index.html'"))) + (with-stdout-to + Functor.F1.argument-1-Arg.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/F1/argument-1-Arg/index.html'"))) + (with-stdout-to + Functor.F2.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/F2/index.html'"))) + (with-stdout-to + Functor.F2.argument-1-Arg.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/F2/argument-1-Arg/index.html'"))) + (with-stdout-to + Functor.F3.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/F3/index.html'"))) + (with-stdout-to + Functor.F3.argument-1-Arg.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/F3/argument-1-Arg/index.html'"))) + (with-stdout-to + Functor.F4.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/F4/index.html'"))) + (with-stdout-to + Functor.F4.argument-1-Arg.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/F4/argument-1-Arg/index.html'"))) + (with-stdout-to + Functor.F5.index.html.gen + (progn + (system "cat 'html.gen/test/Functor/F5/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Functor.index.html Functor.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor.module-type-S.index.html + Functor.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor.module-type-S1.index.html + Functor.module-type-S1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor.module-type-S1.argument-1-_.index.html + Functor.module-type-S1.argument-1-_.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F1.index.html Functor.F1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor.F1.argument-1-Arg.index.html + Functor.F1.argument-1-Arg.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F2.index.html Functor.F2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor.F2.argument-1-Arg.index.html + Functor.F2.argument-1-Arg.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F3.index.html Functor.F3.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor.F3.argument-1-Arg.index.html + Functor.F3.argument-1-Arg.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F4.index.html Functor.F4.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor.F4.argument-1-Arg.index.html + Functor.F4.argument-1-Arg.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F5.index.html Functor.F5.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../functor2.odocl}) + (with-stdout-to + Functor2.index.html.gen + (progn + (system "cat 'html.gen/test/Functor2/index.html'"))) + (with-stdout-to + Functor2.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Functor2/module-type-S/index.html'"))) + (with-stdout-to + Functor2.X.index.html.gen + (progn + (system "cat 'html.gen/test/Functor2/X/index.html'"))) + (with-stdout-to + Functor2.X.argument-1-Y.index.html.gen + (progn + (system "cat 'html.gen/test/Functor2/X/argument-1-Y/index.html'"))) + (with-stdout-to + Functor2.X.argument-2-Z.index.html.gen + (progn + (system "cat 'html.gen/test/Functor2/X/argument-2-Z/index.html'"))) + (with-stdout-to + Functor2.module-type-XF.index.html.gen + (progn + (system "cat 'html.gen/test/Functor2/module-type-XF/index.html'"))) + (with-stdout-to + Functor2.module-type-XF.argument-1-Y.index.html.gen + (progn + (system + "cat 'html.gen/test/Functor2/module-type-XF/argument-1-Y/index.html'"))) + (with-stdout-to + Functor2.module-type-XF.argument-2-Z.index.html.gen + (progn + (system + "cat 'html.gen/test/Functor2/module-type-XF/argument-2-Z/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Functor2.index.html Functor2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor2.module-type-S.index.html + Functor2.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor2.X.index.html Functor2.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor2.X.argument-1-Y.index.html + Functor2.X.argument-1-Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor2.X.argument-2-Z.index.html + Functor2.X.argument-2-Z.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor2.module-type-XF.index.html + Functor2.module-type-XF.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor2.module-type-XF.argument-1-Y.index.html + Functor2.module-type-XF.argument-1-Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Functor2.module-type-XF.argument-2-Z.index.html + Functor2.module-type-XF.argument-2-Z.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../include.odocl}) + (with-stdout-to + Include.index.html.gen + (progn + (system "cat 'html.gen/test/Include/index.html'"))) + (with-stdout-to + Include.module-type-Not_inlined.index.html.gen + (progn + (system + "cat 'html.gen/test/Include/module-type-Not_inlined/index.html'"))) + (with-stdout-to + Include.module-type-Inlined.index.html.gen + (progn + (system "cat 'html.gen/test/Include/module-type-Inlined/index.html'"))) + (with-stdout-to + Include.module-type-Not_inlined_and_closed.index.html.gen + (progn + (system + "cat 'html.gen/test/Include/module-type-Not_inlined_and_closed/index.html'"))) + (with-stdout-to + Include.module-type-Not_inlined_and_opened.index.html.gen + (progn + (system + "cat 'html.gen/test/Include/module-type-Not_inlined_and_opened/index.html'"))) + (with-stdout-to + Include.module-type-Inherent_Module.index.html.gen + (progn + (system + "cat 'html.gen/test/Include/module-type-Inherent_Module/index.html'"))) + (with-stdout-to + Include.module-type-Dorminant_Module.index.html.gen + (progn + (system + "cat 'html.gen/test/Include/module-type-Dorminant_Module/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Include.index.html Include.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Include.module-type-Not_inlined.index.html + Include.module-type-Not_inlined.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Include.module-type-Inlined.index.html + Include.module-type-Inlined.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Include.module-type-Not_inlined_and_closed.index.html + Include.module-type-Not_inlined_and_closed.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Include.module-type-Not_inlined_and_opened.index.html + Include.module-type-Not_inlined_and_opened.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Include.module-type-Inherent_Module.index.html + Include.module-type-Inherent_Module.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Include.module-type-Dorminant_Module.index.html + Include.module-type-Dorminant_Module.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../include2.odocl}) + (with-stdout-to + Include2.index.html.gen + (progn + (system "cat 'html.gen/test/Include2/index.html'"))) + (with-stdout-to + Include2.X.index.html.gen + (progn + (system "cat 'html.gen/test/Include2/X/index.html'"))) + (with-stdout-to + Include2.Y.index.html.gen + (progn + (system "cat 'html.gen/test/Include2/Y/index.html'"))) + (with-stdout-to + Include2.Y_include_synopsis.index.html.gen + (progn + (system "cat 'html.gen/test/Include2/Y_include_synopsis/index.html'"))) + (with-stdout-to + Include2.Y_include_doc.index.html.gen + (progn + (system "cat 'html.gen/test/Include2/Y_include_doc/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Include2.index.html Include2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Include2.X.index.html Include2.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Include2.Y.index.html Include2.Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Include2.Y_include_synopsis.index.html + Include2.Y_include_synopsis.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Include2.Y_include_doc.index.html + Include2.Y_include_doc.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run + odoc + html-generate + --indent + -o + html.gen + %{dep:../include_sections.odocl}) + (with-stdout-to + Include_sections.index.html.gen + (progn + (system "cat 'html.gen/test/Include_sections/index.html'"))) + (with-stdout-to + Include_sections.module-type-Something.index.html.gen + (progn + (system + "cat 'html.gen/test/Include_sections/module-type-Something/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Include_sections.index.html Include_sections.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Include_sections.module-type-Something.index.html + Include_sections.module-type-Something.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../interlude.odocl}) + (with-stdout-to + Interlude.index.html.gen + (progn + (system "cat 'html.gen/test/Interlude/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Interlude.index.html Interlude.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../markup.odocl}) + (with-stdout-to + Markup.index.html.gen + (progn + (system "cat 'html.gen/test/Markup/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Markup.index.html Markup.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../page-mld.odocl}) + (with-stdout-to + mld.html.gen + (progn + (system "cat 'html.gen/test/mld.html'")))))) + +(rule + (alias runtest) + (action + (diff mld.html mld.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../module.odocl}) + (with-stdout-to + Module.index.html.gen + (progn + (system "cat 'html.gen/test/Module/index.html'"))) + (with-stdout-to + Module.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S/index.html'"))) + (with-stdout-to + Module.module-type-S.M.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S/M/index.html'"))) + (with-stdout-to + Module.module-type-S2.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S2/index.html'"))) + (with-stdout-to + Module.module-type-S2.M.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S2/M/index.html'"))) + (with-stdout-to + Module.module-type-S3.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S3/index.html'"))) + (with-stdout-to + Module.module-type-S3.M.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S3/M/index.html'"))) + (with-stdout-to + Module.module-type-S4.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S4/index.html'"))) + (with-stdout-to + Module.module-type-S4.M.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S4/M/index.html'"))) + (with-stdout-to + Module.module-type-S5.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S5/index.html'"))) + (with-stdout-to + Module.module-type-S5.M.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S5/M/index.html'"))) + (with-stdout-to + Module.module-type-S6.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S6/index.html'"))) + (with-stdout-to + Module.module-type-S6.M.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S6/M/index.html'"))) + (with-stdout-to + Module.M'.index.html.gen + (progn + (system "cat 'html.gen/test/Module/M'\\''/index.html'"))) + (with-stdout-to + Module.module-type-S7.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S7/index.html'"))) + (with-stdout-to + Module.module-type-S8.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S8/index.html'"))) + (with-stdout-to + Module.module-type-S9.index.html.gen + (progn + (system "cat 'html.gen/test/Module/module-type-S9/index.html'"))) + (with-stdout-to + Module.Mutually.index.html.gen + (progn + (system "cat 'html.gen/test/Module/Mutually/index.html'"))) + (with-stdout-to + Module.Recursive.index.html.gen + (progn + (system "cat 'html.gen/test/Module/Recursive/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Module.index.html Module.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Module.module-type-S.index.html Module.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S.M.index.html + Module.module-type-S.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S2.index.html + Module.module-type-S2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S2.M.index.html + Module.module-type-S2.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S3.index.html + Module.module-type-S3.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S3.M.index.html + Module.module-type-S3.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S4.index.html + Module.module-type-S4.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S4.M.index.html + Module.module-type-S4.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S5.index.html + Module.module-type-S5.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S5.M.index.html + Module.module-type-S5.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S6.index.html + Module.module-type-S6.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S6.M.index.html + Module.module-type-S6.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Module.M'.index.html Module.M'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S7.index.html + Module.module-type-S7.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S8.index.html + Module.module-type-S8.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Module.module-type-S9.index.html + Module.module-type-S9.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Module.Mutually.index.html Module.Mutually.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Module.Recursive.index.html Module.Recursive.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../nested.odocl}) + (with-stdout-to + Nested.index.html.gen + (progn + (system "cat 'html.gen/test/Nested/index.html'"))) + (with-stdout-to + Nested.X.index.html.gen + (progn + (system "cat 'html.gen/test/Nested/X/index.html'"))) + (with-stdout-to + Nested.module-type-Y.index.html.gen + (progn + (system "cat 'html.gen/test/Nested/module-type-Y/index.html'"))) + (with-stdout-to + Nested.F.index.html.gen + (progn + (system "cat 'html.gen/test/Nested/F/index.html'"))) + (with-stdout-to + Nested.F.argument-1-Arg1.index.html.gen + (progn + (system "cat 'html.gen/test/Nested/F/argument-1-Arg1/index.html'"))) + (with-stdout-to + Nested.F.argument-2-Arg2.index.html.gen + (progn + (system "cat 'html.gen/test/Nested/F/argument-2-Arg2/index.html'"))) + (with-stdout-to + Nested.class-z.index.html.gen + (progn + (system "cat 'html.gen/test/Nested/class-z/index.html'"))) + (with-stdout-to + Nested.class-inherits.index.html.gen + (progn + (system "cat 'html.gen/test/Nested/class-inherits/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Nested.index.html Nested.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.X.index.html Nested.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.module-type-Y.index.html Nested.module-type-Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.F.index.html Nested.F.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Nested.F.argument-1-Arg1.index.html + Nested.F.argument-1-Arg1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Nested.F.argument-2-Arg2.index.html + Nested.F.argument-2-Arg2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.class-z.index.html Nested.class-z.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Nested.class-inherits.index.html + Nested.class-inherits.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../ocamlary.odocl}) + (with-stdout-to + Ocamlary.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/index.html'"))) + (with-stdout-to + Ocamlary.Empty.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Empty/index.html'"))) + (with-stdout-to + Ocamlary.module-type-Empty.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-Empty/index.html'"))) + (with-stdout-to + Ocamlary.module-type-MissingComment.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-MissingComment/index.html'"))) + (with-stdout-to + Ocamlary.module-type-EmptySig.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-EmptySig/index.html'"))) + (with-stdout-to + Ocamlary.module-type-EmptySigAlias.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-EmptySigAlias/index.html'"))) + (with-stdout-to + Ocamlary.ModuleWithSignature.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/ModuleWithSignature/index.html'"))) + (with-stdout-to + Ocamlary.ModuleWithSignatureAlias.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/ModuleWithSignatureAlias/index.html'"))) + (with-stdout-to + Ocamlary.One.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/One/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SigForMod.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-SigForMod/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SigForMod.Inner.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-SigForMod/Inner/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SigForMod.Inner.module-type-Empty.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-SigForMod/Inner/module-type-Empty/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SuperSig.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-SuperSig/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SuperSig.module-type-SubSigA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-SuperSig/module-type-SubSigA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SuperSig.module-type-SubSigA.SubSigAMod.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-SuperSig/module-type-SubSigA/SubSigAMod/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SuperSig.module-type-SubSigB.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-SuperSig/module-type-SubSigB/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SuperSig.module-type-EmptySig.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-SuperSig/module-type-EmptySig/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SuperSig.module-type-One.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-SuperSig/module-type-One/index.html'"))) + (with-stdout-to + Ocamlary.module-type-SuperSig.module-type-SuperSig.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-SuperSig/module-type-SuperSig/index.html'"))) + (with-stdout-to + Ocamlary.Buffer.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Buffer/index.html'"))) + (with-stdout-to + Ocamlary.CollectionModule.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/CollectionModule/index.html'"))) + (with-stdout-to + Ocamlary.CollectionModule.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/CollectionModule/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/CollectionModule/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.CollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/CollectionModule/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.CollectionModule.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/CollectionModule/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-COLLECTION.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-COLLECTION/index.html'"))) + (with-stdout-to + Ocamlary.module-type-COLLECTION.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-COLLECTION/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-COLLECTION.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-COLLECTION/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-COLLECTION.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-COLLECTION/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-COLLECTION.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-COLLECTION/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Recollection/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.argument-1-C.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Recollection/argument-1-C/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.argument-1-C.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Recollection/argument-1-C/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.argument-1-C.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Recollection/argument-1-C/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.argument-1-C.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Recollection/argument-1-C/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.argument-1-C.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Recollection/argument-1-C/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Recollection/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Recollection/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Recollection/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.Recollection.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Recollection/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-MMM.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-MMM/index.html'"))) + (with-stdout-to + Ocamlary.module-type-MMM.C.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-MMM/C/index.html'"))) + (with-stdout-to + Ocamlary.module-type-MMM.C.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-MMM/C/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-MMM.C.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-MMM/C/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-MMM.C.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-MMM/C/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-MMM.C.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-MMM/C/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-RECOLLECTION.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-RECOLLECTION/index.html'"))) + (with-stdout-to + Ocamlary.module-type-RecollectionModule.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-RecollectionModule/index.html'"))) + (with-stdout-to + Ocamlary.module-type-RecollectionModule.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-RecollectionModule/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-RecollectionModule.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-RecollectionModule/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-RecollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-RecollectionModule/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-RecollectionModule.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-RecollectionModule/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-A.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-A/index.html'"))) + (with-stdout-to + Ocamlary.module-type-A.Q.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-A/Q/index.html'"))) + (with-stdout-to + Ocamlary.module-type-A.Q.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-A/Q/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-A.Q.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-A/Q/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-A.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-A/Q/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-A.Q.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-A/Q/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-B.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-B/index.html'"))) + (with-stdout-to + Ocamlary.module-type-B.Q.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-B/Q/index.html'"))) + (with-stdout-to + Ocamlary.module-type-B.Q.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-B/Q/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-B.Q.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-B/Q/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-B.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-B/Q/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-B.Q.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-B/Q/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-C.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-C/index.html'"))) + (with-stdout-to + Ocamlary.module-type-C.Q.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-C/Q/index.html'"))) + (with-stdout-to + Ocamlary.module-type-C.Q.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-C/Q/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-C.Q.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-C/Q/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-C.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-C/Q/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.module-type-C.Q.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-C/Q/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.FunctorTypeOf.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/FunctorTypeOf/index.html'"))) + (with-stdout-to + Ocamlary.FunctorTypeOf.argument-1-Collection.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/FunctorTypeOf/argument-1-Collection/index.html'"))) + (with-stdout-to + Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/FunctorTypeOf/argument-1-Collection/InnerModuleA/index.html'"))) + (with-stdout-to + Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.InnerModuleA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/FunctorTypeOf/argument-1-Collection/InnerModuleA/InnerModuleA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/FunctorTypeOf/argument-1-Collection/InnerModuleA/module-type-InnerModuleTypeA'\\''/index.html'"))) + (with-stdout-to + Ocamlary.FunctorTypeOf.argument-1-Collection.module-type-InnerModuleTypeA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/FunctorTypeOf/argument-1-Collection/module-type-InnerModuleTypeA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-IncludeModuleType.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-IncludeModuleType/index.html'"))) + (with-stdout-to + Ocamlary.module-type-ToInclude.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-ToInclude/index.html'"))) + (with-stdout-to + Ocamlary.module-type-ToInclude.IncludedA.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-ToInclude/IncludedA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-ToInclude.module-type-IncludedB.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-ToInclude/module-type-IncludedB/index.html'"))) + (with-stdout-to + Ocamlary.IncludedA.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/IncludedA/index.html'"))) + (with-stdout-to + Ocamlary.module-type-IncludedB.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-IncludedB/index.html'"))) + (with-stdout-to + Ocamlary.ExtMod.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/ExtMod/index.html'"))) + (with-stdout-to + Ocamlary.class-empty_class.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/class-empty_class/index.html'"))) + (with-stdout-to + Ocamlary.class-one_method_class.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/class-one_method_class/index.html'"))) + (with-stdout-to + Ocamlary.class-two_method_class.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/class-two_method_class/index.html'"))) + (with-stdout-to + Ocamlary.class-param_class.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/class-param_class/index.html'"))) + (with-stdout-to + Ocamlary.Dep1.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep1/index.html'"))) + (with-stdout-to + Ocamlary.Dep1.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep1/module-type-S/index.html'"))) + (with-stdout-to + Ocamlary.Dep1.module-type-S.class-c.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Dep1/module-type-S/class-c/index.html'"))) + (with-stdout-to + Ocamlary.Dep1.X.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep1/X/index.html'"))) + (with-stdout-to + Ocamlary.Dep1.X.Y.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep1/X/Y/index.html'"))) + (with-stdout-to + Ocamlary.Dep1.X.Y.class-c.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep1/X/Y/class-c/index.html'"))) + (with-stdout-to + Ocamlary.Dep2.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep2/index.html'"))) + (with-stdout-to + Ocamlary.Dep2.argument-1-Arg.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep2/argument-1-Arg/index.html'"))) + (with-stdout-to + Ocamlary.Dep2.argument-1-Arg.X.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep2/argument-1-Arg/X/index.html'"))) + (with-stdout-to + Ocamlary.Dep2.A.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep2/A/index.html'"))) + (with-stdout-to + Ocamlary.Dep3.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep3/index.html'"))) + (with-stdout-to + Ocamlary.Dep4.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep4/index.html'"))) + (with-stdout-to + Ocamlary.Dep4.module-type-T.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep4/module-type-T/index.html'"))) + (with-stdout-to + Ocamlary.Dep4.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep4/module-type-S/index.html'"))) + (with-stdout-to + Ocamlary.Dep4.module-type-S.X.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep4/module-type-S/X/index.html'"))) + (with-stdout-to + Ocamlary.Dep4.module-type-S.Y.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep4/module-type-S/Y/index.html'"))) + (with-stdout-to + Ocamlary.Dep4.X.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep4/X/index.html'"))) + (with-stdout-to + Ocamlary.Dep5.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep5/index.html'"))) + (with-stdout-to + Ocamlary.Dep5.argument-1-Arg.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep5/argument-1-Arg/index.html'"))) + (with-stdout-to + Ocamlary.Dep5.argument-1-Arg.module-type-S.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Dep5/argument-1-Arg/module-type-S/index.html'"))) + (with-stdout-to + Ocamlary.Dep5.argument-1-Arg.module-type-S.Y.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Dep5/argument-1-Arg/module-type-S/Y/index.html'"))) + (with-stdout-to + Ocamlary.Dep5.Z.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep5/Z/index.html'"))) + (with-stdout-to + Ocamlary.Dep6.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep6/index.html'"))) + (with-stdout-to + Ocamlary.Dep6.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep6/module-type-S/index.html'"))) + (with-stdout-to + Ocamlary.Dep6.module-type-T.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep6/module-type-T/index.html'"))) + (with-stdout-to + Ocamlary.Dep6.module-type-T.module-type-R.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Dep6/module-type-T/module-type-R/index.html'"))) + (with-stdout-to + Ocamlary.Dep6.module-type-T.Y.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep6/module-type-T/Y/index.html'"))) + (with-stdout-to + Ocamlary.Dep6.X.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep6/X/index.html'"))) + (with-stdout-to + Ocamlary.Dep6.X.module-type-R.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep6/X/module-type-R/index.html'"))) + (with-stdout-to + Ocamlary.Dep6.X.Y.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep6/X/Y/index.html'"))) + (with-stdout-to + Ocamlary.Dep7.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep7/index.html'"))) + (with-stdout-to + Ocamlary.Dep7.argument-1-Arg.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep7/argument-1-Arg/index.html'"))) + (with-stdout-to + Ocamlary.Dep7.argument-1-Arg.module-type-T.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Dep7/argument-1-Arg/module-type-T/index.html'"))) + (with-stdout-to + Ocamlary.Dep7.argument-1-Arg.X.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep7/argument-1-Arg/X/index.html'"))) + (with-stdout-to + Ocamlary.Dep7.M.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep7/M/index.html'"))) + (with-stdout-to + Ocamlary.Dep8.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep8/index.html'"))) + (with-stdout-to + Ocamlary.Dep8.module-type-T.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep8/module-type-T/index.html'"))) + (with-stdout-to + Ocamlary.Dep9.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep9/index.html'"))) + (with-stdout-to + Ocamlary.Dep9.argument-1-X.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep9/argument-1-X/index.html'"))) + (with-stdout-to + Ocamlary.module-type-Dep10.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-Dep10/index.html'"))) + (with-stdout-to + Ocamlary.Dep11.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep11/index.html'"))) + (with-stdout-to + Ocamlary.Dep11.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep11/module-type-S/index.html'"))) + (with-stdout-to + Ocamlary.Dep11.module-type-S.class-c.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/Dep11/module-type-S/class-c/index.html'"))) + (with-stdout-to + Ocamlary.Dep12.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep12/index.html'"))) + (with-stdout-to + Ocamlary.Dep12.argument-1-Arg.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep12/argument-1-Arg/index.html'"))) + (with-stdout-to + Ocamlary.Dep13.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep13/index.html'"))) + (with-stdout-to + Ocamlary.Dep13.class-c.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Dep13/class-c/index.html'"))) + (with-stdout-to + Ocamlary.module-type-With1.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-With1/index.html'"))) + (with-stdout-to + Ocamlary.module-type-With1.M.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-With1/M/index.html'"))) + (with-stdout-to + Ocamlary.With2.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With2/index.html'"))) + (with-stdout-to + Ocamlary.With2.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With2/module-type-S/index.html'"))) + (with-stdout-to + Ocamlary.With3.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With3/index.html'"))) + (with-stdout-to + Ocamlary.With3.N.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With3/N/index.html'"))) + (with-stdout-to + Ocamlary.With4.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With4/index.html'"))) + (with-stdout-to + Ocamlary.With4.N.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With4/N/index.html'"))) + (with-stdout-to + Ocamlary.With5.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With5/index.html'"))) + (with-stdout-to + Ocamlary.With5.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With5/module-type-S/index.html'"))) + (with-stdout-to + Ocamlary.With5.N.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With5/N/index.html'"))) + (with-stdout-to + Ocamlary.With6.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With6/index.html'"))) + (with-stdout-to + Ocamlary.With6.module-type-T.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With6/module-type-T/index.html'"))) + (with-stdout-to + Ocamlary.With6.module-type-T.M.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With6/module-type-T/M/index.html'"))) + (with-stdout-to + Ocamlary.With7.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With7/index.html'"))) + (with-stdout-to + Ocamlary.With7.argument-1-X.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With7/argument-1-X/index.html'"))) + (with-stdout-to + Ocamlary.module-type-With8.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-With8/index.html'"))) + (with-stdout-to + Ocamlary.module-type-With8.M.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-With8/M/index.html'"))) + (with-stdout-to + Ocamlary.module-type-With8.M.module-type-S.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-With8/M/module-type-S/index.html'"))) + (with-stdout-to + Ocamlary.module-type-With8.M.N.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-With8/M/N/index.html'"))) + (with-stdout-to + Ocamlary.With9.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With9/index.html'"))) + (with-stdout-to + Ocamlary.With9.module-type-S.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With9/module-type-S/index.html'"))) + (with-stdout-to + Ocamlary.With10.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With10/index.html'"))) + (with-stdout-to + Ocamlary.With10.module-type-T.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/With10/module-type-T/index.html'"))) + (with-stdout-to + Ocamlary.With10.module-type-T.M.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/With10/module-type-T/M/index.html'"))) + (with-stdout-to + Ocamlary.module-type-With11.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-With11/index.html'"))) + (with-stdout-to + Ocamlary.module-type-With11.N.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-With11/N/index.html'"))) + (with-stdout-to + Ocamlary.module-type-NestedInclude1.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-NestedInclude1/index.html'"))) + (with-stdout-to + Ocamlary.module-type-NestedInclude1.module-type-NestedInclude2.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-NestedInclude1/module-type-NestedInclude2/index.html'"))) + (with-stdout-to + Ocamlary.module-type-NestedInclude2.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-NestedInclude2/index.html'"))) + (with-stdout-to + Ocamlary.DoubleInclude1.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/DoubleInclude1/index.html'"))) + (with-stdout-to + Ocamlary.DoubleInclude1.DoubleInclude2.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/DoubleInclude1/DoubleInclude2/index.html'"))) + (with-stdout-to + Ocamlary.DoubleInclude3.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/DoubleInclude3/index.html'"))) + (with-stdout-to + Ocamlary.DoubleInclude3.DoubleInclude2.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/DoubleInclude3/DoubleInclude2/index.html'"))) + (with-stdout-to + Ocamlary.IncludeInclude1.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/IncludeInclude1/index.html'"))) + (with-stdout-to + Ocamlary.IncludeInclude1.module-type-IncludeInclude2.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/IncludeInclude1/module-type-IncludeInclude2/index.html'"))) + (with-stdout-to + Ocamlary.module-type-IncludeInclude2.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-IncludeInclude2/index.html'"))) + (with-stdout-to + Ocamlary.CanonicalTest.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/CanonicalTest/index.html'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base__List.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/CanonicalTest/Base__List/index.html'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base__.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/CanonicalTest/Base__/index.html'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/CanonicalTest/Base/index.html'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base.List.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/CanonicalTest/Base/List/index.html'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base__Tests.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/CanonicalTest/Base__Tests/index.html'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base__Tests.C.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/CanonicalTest/Base__Tests/C/index.html'"))) + (with-stdout-to + Ocamlary.CanonicalTest.List_modif.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/CanonicalTest/List_modif/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__A.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo__A/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__B.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo__B/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__C.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo__C/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__D.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo__D/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__E.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo__E/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo__/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.A.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo/A/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.B.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo/B/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.C.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo/C/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.D.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo/D/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.E.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Foo/E/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.Std.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/Std/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.E.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/E/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.P1.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/P1/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.P1.Y.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/P1/Y/index.html'"))) + (with-stdout-to + Ocamlary.Aliases.P2.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Aliases/P2/index.html'"))) + (with-stdout-to + Ocamlary.module-type-M.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-M/index.html'"))) + (with-stdout-to + Ocamlary.M.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/M/index.html'"))) + (with-stdout-to + Ocamlary.Only_a_module.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/Only_a_module/index.html'"))) + (with-stdout-to + Ocamlary.module-type-TypeExt.index.html.gen + (progn + (system "cat 'html.gen/test/Ocamlary/module-type-TypeExt/index.html'"))) + (with-stdout-to + Ocamlary.module-type-TypeExtPruned.index.html.gen + (progn + (system + "cat 'html.gen/test/Ocamlary/module-type-TypeExtPruned/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Ocamlary.index.html Ocamlary.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Empty.index.html Ocamlary.Empty.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-Empty.index.html + Ocamlary.module-type-Empty.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-MissingComment.index.html + Ocamlary.module-type-MissingComment.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-EmptySig.index.html + Ocamlary.module-type-EmptySig.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-EmptySigAlias.index.html + Ocamlary.module-type-EmptySigAlias.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.ModuleWithSignature.index.html + Ocamlary.ModuleWithSignature.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.ModuleWithSignatureAlias.index.html + Ocamlary.ModuleWithSignatureAlias.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.One.index.html Ocamlary.One.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SigForMod.index.html + Ocamlary.module-type-SigForMod.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SigForMod.Inner.index.html + Ocamlary.module-type-SigForMod.Inner.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SigForMod.Inner.module-type-Empty.index.html + Ocamlary.module-type-SigForMod.Inner.module-type-Empty.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SuperSig.index.html + Ocamlary.module-type-SuperSig.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SuperSig.module-type-SubSigA.index.html + Ocamlary.module-type-SuperSig.module-type-SubSigA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SuperSig.module-type-SubSigA.SubSigAMod.index.html + Ocamlary.module-type-SuperSig.module-type-SubSigA.SubSigAMod.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SuperSig.module-type-SubSigB.index.html + Ocamlary.module-type-SuperSig.module-type-SubSigB.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SuperSig.module-type-EmptySig.index.html + Ocamlary.module-type-SuperSig.module-type-EmptySig.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SuperSig.module-type-One.index.html + Ocamlary.module-type-SuperSig.module-type-One.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-SuperSig.module-type-SuperSig.index.html + Ocamlary.module-type-SuperSig.module-type-SuperSig.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Buffer.index.html Ocamlary.Buffer.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CollectionModule.index.html + Ocamlary.CollectionModule.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CollectionModule.InnerModuleA.index.html + Ocamlary.CollectionModule.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.index.html + Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.CollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CollectionModule.module-type-InnerModuleTypeA.index.html + Ocamlary.CollectionModule.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-COLLECTION.index.html + Ocamlary.module-type-COLLECTION.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-COLLECTION.InnerModuleA.index.html + Ocamlary.module-type-COLLECTION.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-COLLECTION.InnerModuleA.InnerModuleA'.index.html + Ocamlary.module-type-COLLECTION.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-COLLECTION.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.module-type-COLLECTION.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-COLLECTION.module-type-InnerModuleTypeA.index.html + Ocamlary.module-type-COLLECTION.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.index.html + Ocamlary.Recollection.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.argument-1-C.index.html + Ocamlary.Recollection.argument-1-C.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.argument-1-C.InnerModuleA.index.html + Ocamlary.Recollection.argument-1-C.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.argument-1-C.InnerModuleA.InnerModuleA'.index.html + Ocamlary.Recollection.argument-1-C.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.argument-1-C.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.Recollection.argument-1-C.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.argument-1-C.module-type-InnerModuleTypeA.index.html + Ocamlary.Recollection.argument-1-C.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.InnerModuleA.index.html + Ocamlary.Recollection.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.InnerModuleA.InnerModuleA'.index.html + Ocamlary.Recollection.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.Recollection.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.module-type-InnerModuleTypeA.index.html + Ocamlary.Recollection.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-MMM.index.html + Ocamlary.module-type-MMM.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-MMM.C.index.html + Ocamlary.module-type-MMM.C.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-MMM.C.InnerModuleA.index.html + Ocamlary.module-type-MMM.C.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-MMM.C.InnerModuleA.InnerModuleA'.index.html + Ocamlary.module-type-MMM.C.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-MMM.C.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.module-type-MMM.C.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-MMM.C.module-type-InnerModuleTypeA.index.html + Ocamlary.module-type-MMM.C.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-RECOLLECTION.index.html + Ocamlary.module-type-RECOLLECTION.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-RecollectionModule.index.html + Ocamlary.module-type-RecollectionModule.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-RecollectionModule.InnerModuleA.index.html + Ocamlary.module-type-RecollectionModule.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-RecollectionModule.InnerModuleA.InnerModuleA'.index.html + Ocamlary.module-type-RecollectionModule.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-RecollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.module-type-RecollectionModule.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-RecollectionModule.module-type-InnerModuleTypeA.index.html + Ocamlary.module-type-RecollectionModule.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-A.index.html + Ocamlary.module-type-A.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-A.Q.index.html + Ocamlary.module-type-A.Q.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-A.Q.InnerModuleA.index.html + Ocamlary.module-type-A.Q.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-A.Q.InnerModuleA.InnerModuleA'.index.html + Ocamlary.module-type-A.Q.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-A.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.module-type-A.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-A.Q.module-type-InnerModuleTypeA.index.html + Ocamlary.module-type-A.Q.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-B.index.html + Ocamlary.module-type-B.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-B.Q.index.html + Ocamlary.module-type-B.Q.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-B.Q.InnerModuleA.index.html + Ocamlary.module-type-B.Q.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-B.Q.InnerModuleA.InnerModuleA'.index.html + Ocamlary.module-type-B.Q.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-B.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.module-type-B.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-B.Q.module-type-InnerModuleTypeA.index.html + Ocamlary.module-type-B.Q.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-C.index.html + Ocamlary.module-type-C.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-C.Q.index.html + Ocamlary.module-type-C.Q.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-C.Q.InnerModuleA.index.html + Ocamlary.module-type-C.Q.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-C.Q.InnerModuleA.InnerModuleA'.index.html + Ocamlary.module-type-C.Q.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-C.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.module-type-C.Q.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-C.Q.module-type-InnerModuleTypeA.index.html + Ocamlary.module-type-C.Q.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.FunctorTypeOf.index.html + Ocamlary.FunctorTypeOf.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.FunctorTypeOf.argument-1-Collection.index.html + Ocamlary.FunctorTypeOf.argument-1-Collection.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.index.html + Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.InnerModuleA'.index.html + Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.InnerModuleA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.module-type-InnerModuleTypeA'.index.html + Ocamlary.FunctorTypeOf.argument-1-Collection.InnerModuleA.module-type-InnerModuleTypeA'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.FunctorTypeOf.argument-1-Collection.module-type-InnerModuleTypeA.index.html + Ocamlary.FunctorTypeOf.argument-1-Collection.module-type-InnerModuleTypeA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-IncludeModuleType.index.html + Ocamlary.module-type-IncludeModuleType.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-ToInclude.index.html + Ocamlary.module-type-ToInclude.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-ToInclude.IncludedA.index.html + Ocamlary.module-type-ToInclude.IncludedA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-ToInclude.module-type-IncludedB.index.html + Ocamlary.module-type-ToInclude.module-type-IncludedB.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.IncludedA.index.html Ocamlary.IncludedA.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-IncludedB.index.html + Ocamlary.module-type-IncludedB.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.ExtMod.index.html Ocamlary.ExtMod.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.class-empty_class.index.html + Ocamlary.class-empty_class.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.class-one_method_class.index.html + Ocamlary.class-one_method_class.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.class-two_method_class.index.html + Ocamlary.class-two_method_class.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.class-param_class.index.html + Ocamlary.class-param_class.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep1.index.html Ocamlary.Dep1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep1.module-type-S.index.html + Ocamlary.Dep1.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep1.module-type-S.class-c.index.html + Ocamlary.Dep1.module-type-S.class-c.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep1.X.index.html Ocamlary.Dep1.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep1.X.Y.index.html Ocamlary.Dep1.X.Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep1.X.Y.class-c.index.html + Ocamlary.Dep1.X.Y.class-c.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep2.index.html Ocamlary.Dep2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep2.argument-1-Arg.index.html + Ocamlary.Dep2.argument-1-Arg.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep2.argument-1-Arg.X.index.html + Ocamlary.Dep2.argument-1-Arg.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep2.A.index.html Ocamlary.Dep2.A.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep3.index.html Ocamlary.Dep3.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep4.index.html Ocamlary.Dep4.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep4.module-type-T.index.html + Ocamlary.Dep4.module-type-T.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep4.module-type-S.index.html + Ocamlary.Dep4.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep4.module-type-S.X.index.html + Ocamlary.Dep4.module-type-S.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep4.module-type-S.Y.index.html + Ocamlary.Dep4.module-type-S.Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep4.X.index.html Ocamlary.Dep4.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep5.index.html Ocamlary.Dep5.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep5.argument-1-Arg.index.html + Ocamlary.Dep5.argument-1-Arg.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep5.argument-1-Arg.module-type-S.index.html + Ocamlary.Dep5.argument-1-Arg.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep5.argument-1-Arg.module-type-S.Y.index.html + Ocamlary.Dep5.argument-1-Arg.module-type-S.Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep5.Z.index.html Ocamlary.Dep5.Z.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep6.index.html Ocamlary.Dep6.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep6.module-type-S.index.html + Ocamlary.Dep6.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep6.module-type-T.index.html + Ocamlary.Dep6.module-type-T.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep6.module-type-T.module-type-R.index.html + Ocamlary.Dep6.module-type-T.module-type-R.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep6.module-type-T.Y.index.html + Ocamlary.Dep6.module-type-T.Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep6.X.index.html Ocamlary.Dep6.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep6.X.module-type-R.index.html + Ocamlary.Dep6.X.module-type-R.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep6.X.Y.index.html Ocamlary.Dep6.X.Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep7.index.html Ocamlary.Dep7.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep7.argument-1-Arg.index.html + Ocamlary.Dep7.argument-1-Arg.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep7.argument-1-Arg.module-type-T.index.html + Ocamlary.Dep7.argument-1-Arg.module-type-T.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep7.argument-1-Arg.X.index.html + Ocamlary.Dep7.argument-1-Arg.X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep7.M.index.html Ocamlary.Dep7.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep8.index.html Ocamlary.Dep8.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep8.module-type-T.index.html + Ocamlary.Dep8.module-type-T.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep9.index.html Ocamlary.Dep9.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep9.argument-1-X.index.html + Ocamlary.Dep9.argument-1-X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-Dep10.index.html + Ocamlary.module-type-Dep10.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep11.index.html Ocamlary.Dep11.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep11.module-type-S.index.html + Ocamlary.Dep11.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep11.module-type-S.class-c.index.html + Ocamlary.Dep11.module-type-S.class-c.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep12.index.html Ocamlary.Dep12.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep12.argument-1-Arg.index.html + Ocamlary.Dep12.argument-1-Arg.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep13.index.html Ocamlary.Dep13.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Dep13.class-c.index.html + Ocamlary.Dep13.class-c.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-With1.index.html + Ocamlary.module-type-With1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-With1.M.index.html + Ocamlary.module-type-With1.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With2.index.html Ocamlary.With2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.With2.module-type-S.index.html + Ocamlary.With2.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With3.index.html Ocamlary.With3.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With3.N.index.html Ocamlary.With3.N.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With4.index.html Ocamlary.With4.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With4.N.index.html Ocamlary.With4.N.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With5.index.html Ocamlary.With5.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.With5.module-type-S.index.html + Ocamlary.With5.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With5.N.index.html Ocamlary.With5.N.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With6.index.html Ocamlary.With6.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.With6.module-type-T.index.html + Ocamlary.With6.module-type-T.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.With6.module-type-T.M.index.html + Ocamlary.With6.module-type-T.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With7.index.html Ocamlary.With7.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.With7.argument-1-X.index.html + Ocamlary.With7.argument-1-X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-With8.index.html + Ocamlary.module-type-With8.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-With8.M.index.html + Ocamlary.module-type-With8.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-With8.M.module-type-S.index.html + Ocamlary.module-type-With8.M.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-With8.M.N.index.html + Ocamlary.module-type-With8.M.N.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With9.index.html Ocamlary.With9.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.With9.module-type-S.index.html + Ocamlary.With9.module-type-S.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With10.index.html Ocamlary.With10.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.With10.module-type-T.index.html + Ocamlary.With10.module-type-T.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.With10.module-type-T.M.index.html + Ocamlary.With10.module-type-T.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-With11.index.html + Ocamlary.module-type-With11.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-With11.N.index.html + Ocamlary.module-type-With11.N.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-NestedInclude1.index.html + Ocamlary.module-type-NestedInclude1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-NestedInclude1.module-type-NestedInclude2.index.html + Ocamlary.module-type-NestedInclude1.module-type-NestedInclude2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-NestedInclude2.index.html + Ocamlary.module-type-NestedInclude2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.DoubleInclude1.index.html + Ocamlary.DoubleInclude1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.DoubleInclude1.DoubleInclude2.index.html + Ocamlary.DoubleInclude1.DoubleInclude2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.DoubleInclude3.index.html + Ocamlary.DoubleInclude3.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.DoubleInclude3.DoubleInclude2.index.html + Ocamlary.DoubleInclude3.DoubleInclude2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.IncludeInclude1.index.html + Ocamlary.IncludeInclude1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.IncludeInclude1.module-type-IncludeInclude2.index.html + Ocamlary.IncludeInclude1.module-type-IncludeInclude2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-IncludeInclude2.index.html + Ocamlary.module-type-IncludeInclude2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.index.html + Ocamlary.CanonicalTest.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base__List.index.html + Ocamlary.CanonicalTest.Base__List.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base__.index.html + Ocamlary.CanonicalTest.Base__.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base.index.html + Ocamlary.CanonicalTest.Base.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base.List.index.html + Ocamlary.CanonicalTest.Base.List.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base__Tests.index.html + Ocamlary.CanonicalTest.Base__Tests.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base__Tests.C.index.html + Ocamlary.CanonicalTest.Base__Tests.C.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.List_modif.index.html + Ocamlary.CanonicalTest.List_modif.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.index.html Ocamlary.Aliases.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo__A.index.html + Ocamlary.Aliases.Foo__A.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo__B.index.html + Ocamlary.Aliases.Foo__B.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo__C.index.html + Ocamlary.Aliases.Foo__C.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo__D.index.html + Ocamlary.Aliases.Foo__D.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo__E.index.html + Ocamlary.Aliases.Foo__E.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo__.index.html + Ocamlary.Aliases.Foo__.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo.index.html Ocamlary.Aliases.Foo.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo.A.index.html + Ocamlary.Aliases.Foo.A.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo.B.index.html + Ocamlary.Aliases.Foo.B.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo.C.index.html + Ocamlary.Aliases.Foo.C.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo.D.index.html + Ocamlary.Aliases.Foo.D.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.Foo.E.index.html + Ocamlary.Aliases.Foo.E.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Std.index.html Ocamlary.Aliases.Std.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.E.index.html Ocamlary.Aliases.E.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.P1.index.html Ocamlary.Aliases.P1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Aliases.P1.Y.index.html + Ocamlary.Aliases.P1.Y.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.P2.index.html Ocamlary.Aliases.P2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-M.index.html + Ocamlary.module-type-M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.M.index.html Ocamlary.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Only_a_module.index.html + Ocamlary.Only_a_module.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-TypeExt.index.html + Ocamlary.module-type-TypeExt.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.module-type-TypeExtPruned.index.html + Ocamlary.module-type-TypeExtPruned.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../section.odocl}) + (with-stdout-to + Section.index.html.gen + (progn + (system "cat 'html.gen/test/Section/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Section.index.html Section.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../stop.odocl}) + (with-stdout-to + Stop.index.html.gen + (progn + (system "cat 'html.gen/test/Stop/index.html'"))) + (with-stdout-to + Stop.N.index.html.gen + (progn + (system "cat 'html.gen/test/Stop/N/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Stop.index.html Stop.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Stop.N.index.html Stop.N.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run + odoc + html-generate + --indent + -o + html.gen + %{dep:../stop_dead_link_doc.odocl}) + (with-stdout-to + Stop_dead_link_doc.index.html.gen + (progn + (system "cat 'html.gen/test/Stop_dead_link_doc/index.html'"))) + (with-stdout-to + Stop_dead_link_doc.Foo.index.html.gen + (progn + (system "cat 'html.gen/test/Stop_dead_link_doc/Foo/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Stop_dead_link_doc.index.html Stop_dead_link_doc.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Stop_dead_link_doc.Foo.index.html + Stop_dead_link_doc.Foo.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run + odoc + html-generate + --indent + -o + html.gen + %{dep:../toplevel_comments.odocl}) + (with-stdout-to + Toplevel_comments.index.html.gen + (progn + (system "cat 'html.gen/test/Toplevel_comments/index.html'"))) + (with-stdout-to + Toplevel_comments.module-type-T.index.html.gen + (progn + (system + "cat 'html.gen/test/Toplevel_comments/module-type-T/index.html'"))) + (with-stdout-to + Toplevel_comments.Include_inline.index.html.gen + (progn + (system + "cat 'html.gen/test/Toplevel_comments/Include_inline/index.html'"))) + (with-stdout-to + Toplevel_comments.Include_inline'.index.html.gen + (progn + (system + "cat 'html.gen/test/Toplevel_comments/Include_inline'\\''/index.html'"))) + (with-stdout-to + Toplevel_comments.module-type-Include_inline_T.index.html.gen + (progn + (system + "cat 'html.gen/test/Toplevel_comments/module-type-Include_inline_T/index.html'"))) + (with-stdout-to + Toplevel_comments.module-type-Include_inline_T'.index.html.gen + (progn + (system + "cat 'html.gen/test/Toplevel_comments/module-type-Include_inline_T'\\''/index.html'"))) + (with-stdout-to + Toplevel_comments.M.index.html.gen + (progn + (system "cat 'html.gen/test/Toplevel_comments/M/index.html'"))) + (with-stdout-to + Toplevel_comments.M'.index.html.gen + (progn + (system "cat 'html.gen/test/Toplevel_comments/M'\\''/index.html'"))) + (with-stdout-to + Toplevel_comments.M''.index.html.gen + (progn + (system "cat 'html.gen/test/Toplevel_comments/M'\\'''\\''/index.html'"))) + (with-stdout-to + Toplevel_comments.Alias.index.html.gen + (progn + (system "cat 'html.gen/test/Toplevel_comments/Alias/index.html'"))) + (with-stdout-to + Toplevel_comments.class-c1.index.html.gen + (progn + (system "cat 'html.gen/test/Toplevel_comments/class-c1/index.html'"))) + (with-stdout-to + Toplevel_comments.class-type-ct.index.html.gen + (progn + (system + "cat 'html.gen/test/Toplevel_comments/class-type-ct/index.html'"))) + (with-stdout-to + Toplevel_comments.class-c2.index.html.gen + (progn + (system "cat 'html.gen/test/Toplevel_comments/class-c2/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.index.html Toplevel_comments.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.module-type-T.index.html + Toplevel_comments.module-type-T.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.Include_inline.index.html + Toplevel_comments.Include_inline.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.Include_inline'.index.html + Toplevel_comments.Include_inline'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.module-type-Include_inline_T.index.html + Toplevel_comments.module-type-Include_inline_T.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.module-type-Include_inline_T'.index.html + Toplevel_comments.module-type-Include_inline_T'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.M.index.html Toplevel_comments.M.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.M'.index.html Toplevel_comments.M'.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.M''.index.html + Toplevel_comments.M''.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.Alias.index.html + Toplevel_comments.Alias.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.class-c1.index.html + Toplevel_comments.class-c1.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.class-type-ct.index.html + Toplevel_comments.class-type-ct.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.class-c2.index.html + Toplevel_comments.class-c2.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../type.odocl}) + (with-stdout-to + Type.index.html.gen + (progn + (system "cat 'html.gen/test/Type/index.html'"))) + (with-stdout-to + Type.module-type-X.index.html.gen + (progn + (system "cat 'html.gen/test/Type/module-type-X/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Type.index.html Type.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Type.module-type-X.index.html Type.module-type-X.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc html-generate --indent -o html.gen %{dep:../val.odocl}) + (with-stdout-to + Val.index.html.gen + (progn + (system "cat 'html.gen/test/Val/index.html'")))))) + +(rule + (alias runtest) + (action + (diff Val.index.html Val.index.html.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) diff --git a/test/generators/cases_pre408/html/mld.html b/test/generators/cases_pre408/html/mld.html new file mode 100644 index 0000000000..06e3fba16e --- /dev/null +++ b/test/generators/cases_pre408/html/mld.html @@ -0,0 +1,45 @@ + + + mld (test.mld) + + + + + + + + +
        +

        Mld Page

        +

        This is an .mld file. It doesn't have an auto-generated + title, like modules and other pages generated fully by odoc do. +

        It will have a TOC generated from section headings.

        +
        + +
        +

        Section

        +

        This is a section.

        Another paragraph in section.

        +

        + Another section +

        This is another section.

        Another paragraph in section 2.

        +

        Subsection +

        This is a subsection.

        Another paragraph in subsection.

        +

        Yet another paragraph in subsection.

        +

        + Another Subsection +

        This is another subsection.

        +

        Another paragraph in subsection 2.

        +

        Yet another paragraph in subsection 2.

        +
        + + \ No newline at end of file diff --git a/test/generators/cases_pre408/latex/Alias.X.tex b/test/generators/cases_pre408/latex/Alias.X.tex new file mode 100644 index 0000000000..5d5900f8c5 --- /dev/null +++ b/test/generators/cases_pre408/latex/Alias.X.tex @@ -0,0 +1,5 @@ +\section{Module \ocamlinlinecode{Alias.\allowbreak{}X}}\label{container-page-test-module-Alias-module-X}% +\label{container-page-test-module-Alias-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\begin{ocamlindent}Module Foo\_\_X documentation. This should appear in the documentation for the alias to this module 'X'\end{ocamlindent}% +\medbreak + + diff --git a/test/generators/cases_pre408/latex/Alias.tex b/test/generators/cases_pre408/latex/Alias.tex new file mode 100644 index 0000000000..240cb64a62 --- /dev/null +++ b/test/generators/cases_pre408/latex/Alias.tex @@ -0,0 +1,8 @@ +\section{Module \ocamlinlinecode{Alias}}\label{container-page-test-module-Alias}% +\label{container-page-test-module-Alias-module-Foo+u++u+X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Alias-module-Foo+u++u+X]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Alias-module-Foo+u++u+X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[xref-unresolved]{\ocamlinlinecode{int}}}\begin{ocamlindent}Module Foo\_\_X documentation. This should appear in the documentation for the alias to this module 'X'\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Alias-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Alias-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ + +\input{test/Alias.X.tex} diff --git a/test/generators/cases_pre408/latex/Bugs.tex b/test/generators/cases_pre408/latex/Bugs.tex new file mode 100644 index 0000000000..b32094ab37 --- /dev/null +++ b/test/generators/cases_pre408/latex/Bugs.tex @@ -0,0 +1,6 @@ +\section{Module \ocamlinlinecode{Bugs}}\label{container-page-test-module-Bugs}% +\label{container-page-test-module-Bugs-type-opt}\ocamlcodefragment{\ocamltag{keyword}{type} 'a opt = \ocamltag{type-var}{'a} option}\\ +\label{container-page-test-module-Bugs-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : ?bar:\ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} unit \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}Triggers an assertion failure when \href{https://github.com/ocaml/odoc/issues/101}{https://github.com/ocaml/odoc/issues/101}\footnote{\url{https://github.com/ocaml/odoc/issues/101}} is not fixed.\end{ocamlindent}% +\medbreak + + diff --git a/test/generators/cases_pre408/latex/Bugs_pre_410.tex b/test/generators/cases_pre408/latex/Bugs_pre_410.tex new file mode 100644 index 0000000000..a0cfe898bb --- /dev/null +++ b/test/generators/cases_pre408/latex/Bugs_pre_410.tex @@ -0,0 +1,6 @@ +\section{Module \ocamlinlinecode{Bugs\_\allowbreak{}pre\_\allowbreak{}410}}\label{container-page-test-module-Bugs+u+pre+u+410}% +\label{container-page-test-module-Bugs+u+pre+u+410-type-opt'}\ocamlcodefragment{\ocamltag{keyword}{type} 'a opt' = int option}\\ +\label{container-page-test-module-Bugs+u+pre+u+410-val-foo'}\ocamlcodefragment{\ocamltag{keyword}{val} foo' : ?bar:int \ocamltag{arrow}{$\rightarrow$} unit \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}Similar to \ocamlinlinecode{Bugs}, but the printed type of \ocamlinlinecode{\textasciitilde{}bar} should be \ocamlinlinecode{int}, not \ocamlinlinecode{'a}. This probably requires fixing in the compiler. See \href{https://github.com/ocaml/odoc/pull/230\#issuecomment-433226807}{https://github.com/ocaml/odoc/pull/230\#issuecomment-433226807}\footnote{\url{https://github.com/ocaml/odoc/pull/230\#issuecomment-433226807}}.\end{ocamlindent}% +\medbreak + + diff --git a/test/generators/cases_pre408/latex/Class.empty_virtual'.tex b/test/generators/cases_pre408/latex/Class.empty_virtual'.tex new file mode 100644 index 0000000000..539acacd8b --- /dev/null +++ b/test/generators/cases_pre408/latex/Class.empty_virtual'.tex @@ -0,0 +1,3 @@ +\section{Class \ocamlinlinecode{Class.\allowbreak{}empty\_\allowbreak{}virtual'}}\label{container-page-test-module-Class-class-empty+u+virtual'}% + + diff --git a/test/generators/cases_pre408/latex/Class.mutually'.tex b/test/generators/cases_pre408/latex/Class.mutually'.tex new file mode 100644 index 0000000000..24a2f689e3 --- /dev/null +++ b/test/generators/cases_pre408/latex/Class.mutually'.tex @@ -0,0 +1,3 @@ +\section{Class \ocamlinlinecode{Class.\allowbreak{}mutually'}}\label{container-page-test-module-Class-class-mutually'}% + + diff --git a/test/generators/cases_pre408/latex/Class.polymorphic'.tex b/test/generators/cases_pre408/latex/Class.polymorphic'.tex new file mode 100644 index 0000000000..59293e3dce --- /dev/null +++ b/test/generators/cases_pre408/latex/Class.polymorphic'.tex @@ -0,0 +1,3 @@ +\section{Class \ocamlinlinecode{Class.\allowbreak{}polymorphic'}}\label{container-page-test-module-Class-class-polymorphic'}% + + diff --git a/test/generators/cases_pre408/latex/Class.recursive'.tex b/test/generators/cases_pre408/latex/Class.recursive'.tex new file mode 100644 index 0000000000..17bf7d2c96 --- /dev/null +++ b/test/generators/cases_pre408/latex/Class.recursive'.tex @@ -0,0 +1,3 @@ +\section{Class \ocamlinlinecode{Class.\allowbreak{}recursive'}}\label{container-page-test-module-Class-class-recursive'}% + + diff --git a/test/generators/cases_pre408/latex/Class.tex b/test/generators/cases_pre408/latex/Class.tex new file mode 100644 index 0000000000..e728201520 --- /dev/null +++ b/test/generators/cases_pre408/latex/Class.tex @@ -0,0 +1,20 @@ +\section{Module \ocamlinlinecode{Class}}\label{container-page-test-module-Class}% +\label{container-page-test-module-Class-class-type-empty}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Class-class-type-empty]{\ocamlinlinecode{empty}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Class-class-type-mutually}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Class-class-type-mutually]{\ocamlinlinecode{mutually}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Class-class-type-recursive}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Class-class-type-recursive]{\ocamlinlinecode{recursive}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Class-class-mutually'}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Class-class-mutually']{\ocamlinlinecode{mutually'}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Class-class-type-mutually]{\ocamlinlinecode{mutually}}}\\ +\label{container-page-test-module-Class-class-recursive'}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Class-class-recursive']{\ocamlinlinecode{recursive'}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Class-class-type-recursive]{\ocamlinlinecode{recursive}}}\\ +\label{container-page-test-module-Class-class-type-empty+u+virtual}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \ocamltag{keyword}{virtual} \hyperref[container-page-test-module-Class-class-type-empty+u+virtual]{\ocamlinlinecode{empty\_\allowbreak{}virtual}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Class-class-empty+u+virtual'}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{virtual} \hyperref[container-page-test-module-Class-class-empty+u+virtual']{\ocamlinlinecode{empty\_\allowbreak{}virtual'}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Class-class-type-empty]{\ocamlinlinecode{empty}}}\\ +\label{container-page-test-module-Class-class-type-polymorphic}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} 'a \hyperref[container-page-test-module-Class-class-type-polymorphic]{\ocamlinlinecode{polymorphic}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Class-class-polymorphic'}\ocamlcodefragment{\ocamltag{keyword}{class} 'a \hyperref[container-page-test-module-Class-class-polymorphic']{\ocamlinlinecode{polymorphic'}}}\ocamlcodefragment{ : \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Class-class-type-polymorphic]{\ocamlinlinecode{polymorphic}}}\\ + +\input{test/Class.mutually'.tex} +\input{test/Class.recursive'.tex} +\input{test/Class.empty_virtual'.tex} +\input{test/Class.polymorphic'.tex} diff --git a/test/generators/cases_pre408/latex/External.tex b/test/generators/cases_pre408/latex/External.tex new file mode 100644 index 0000000000..8021b64b4c --- /dev/null +++ b/test/generators/cases_pre408/latex/External.tex @@ -0,0 +1,5 @@ +\section{Module \ocamlinlinecode{External}}\label{container-page-test-module-External}% +\label{container-page-test-module-External-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}Foo \emph{bar}.\end{ocamlindent}% +\medbreak + + diff --git a/test/generators/cases_pre408/latex/Functor.F1.tex b/test/generators/cases_pre408/latex/Functor.F1.tex new file mode 100644 index 0000000000..f6abd681c3 --- /dev/null +++ b/test/generators/cases_pre408/latex/Functor.F1.tex @@ -0,0 +1,9 @@ +\section{Module \ocamlinlinecode{Functor.\allowbreak{}F1}}\label{container-page-test-module-Functor-module-F1}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Functor-module-F1-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-F1-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor-module-F1-argument-1-Arg-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Functor-module-F1-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ + + diff --git a/test/generators/cases_pre408/latex/Functor.F2.tex b/test/generators/cases_pre408/latex/Functor.F2.tex new file mode 100644 index 0000000000..988eafa648 --- /dev/null +++ b/test/generators/cases_pre408/latex/Functor.F2.tex @@ -0,0 +1,9 @@ +\section{Module \ocamlinlinecode{Functor.\allowbreak{}F2}}\label{container-page-test-module-Functor-module-F2}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Functor-module-F2-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-F2-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor-module-F2-argument-1-Arg-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Functor-module-F2-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Functor-module-F2-argument-1-Arg-type-t]{\ocamlinlinecode{Arg.\allowbreak{}t}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Functor.F3.tex b/test/generators/cases_pre408/latex/Functor.F3.tex new file mode 100644 index 0000000000..e17833e77c --- /dev/null +++ b/test/generators/cases_pre408/latex/Functor.F3.tex @@ -0,0 +1,9 @@ +\section{Module \ocamlinlinecode{Functor.\allowbreak{}F3}}\label{container-page-test-module-Functor-module-F3}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Functor-module-F3-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-F3-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor-module-F3-argument-1-Arg-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Functor-module-F3-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Functor-module-F3-argument-1-Arg-type-t]{\ocamlinlinecode{Arg.\allowbreak{}t}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Functor.F4.tex b/test/generators/cases_pre408/latex/Functor.F4.tex new file mode 100644 index 0000000000..f37b786377 --- /dev/null +++ b/test/generators/cases_pre408/latex/Functor.F4.tex @@ -0,0 +1,9 @@ +\section{Module \ocamlinlinecode{Functor.\allowbreak{}F4}}\label{container-page-test-module-Functor-module-F4}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Functor-module-F4-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-F4-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor-module-F4-argument-1-Arg-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Functor-module-F4-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ + + diff --git a/test/generators/cases_pre408/latex/Functor.F5.tex b/test/generators/cases_pre408/latex/Functor.F5.tex new file mode 100644 index 0000000000..d10dcc0b5e --- /dev/null +++ b/test/generators/cases_pre408/latex/Functor.F5.tex @@ -0,0 +1,6 @@ +\section{Module \ocamlinlinecode{Functor.\allowbreak{}F5}}\label{container-page-test-module-Functor-module-F5}% +\subsection{Parameters\label{parameters}}% +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Functor-module-F5-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ + + diff --git a/test/generators/cases_pre408/latex/Functor.tex b/test/generators/cases_pre408/latex/Functor.tex new file mode 100644 index 0000000000..e93d8051fc --- /dev/null +++ b/test/generators/cases_pre408/latex/Functor.tex @@ -0,0 +1,23 @@ +\section{Module \ocamlinlinecode{Functor}}\label{container-page-test-module-Functor}% +\label{container-page-test-module-Functor-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Functor-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor-module-type-S-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Functor-module-type-S1}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Functor-module-type-S1]{\ocamlinlinecode{S1}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Parameters\label{parameters}}% +\label{container-page-test-module-Functor-module-type-S1-argument-1-+u+}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-type-S1-argument-1-+u+]{\ocamlinlinecode{\_\allowbreak{}}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor-module-type-S1-argument-1-+u+-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsubsection{Signature\label{signature}}% +\label{container-page-test-module-Functor-module-type-S1-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Functor-module-F1}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-F1]{\ocamlinlinecode{F1}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Functor-module-F1-argument-1-Arg]{\ocamlinlinecode{Arg}} : \hyperref[container-page-test-module-Functor-module-type-S]{\ocamlinlinecode{S}}) : \hyperref[container-page-test-module-Functor-module-type-S]{\ocamlinlinecode{S}}}\\ +\label{container-page-test-module-Functor-module-F2}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-F2]{\ocamlinlinecode{F2}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Functor-module-F2-argument-1-Arg]{\ocamlinlinecode{Arg}} : \hyperref[container-page-test-module-Functor-module-type-S]{\ocamlinlinecode{S}}) : \hyperref[container-page-test-module-Functor-module-type-S]{\ocamlinlinecode{S}} \ocamltag{keyword}{with} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Functor-module-type-S-type-t]{\ocamlinlinecode{t}} = \hyperref[container-page-test-module-Functor-module-F2-argument-1-Arg-type-t]{\ocamlinlinecode{Arg.\allowbreak{}t}}}\\ +\label{container-page-test-module-Functor-module-F3}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-F3]{\ocamlinlinecode{F3}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Functor-module-F3-argument-1-Arg]{\ocamlinlinecode{Arg}} : \hyperref[container-page-test-module-Functor-module-type-S]{\ocamlinlinecode{S}}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Functor-module-F4}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-F4]{\ocamlinlinecode{F4}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Functor-module-F4-argument-1-Arg]{\ocamlinlinecode{Arg}} : \hyperref[container-page-test-module-Functor-module-type-S]{\ocamlinlinecode{S}}) : \hyperref[container-page-test-module-Functor-module-type-S]{\ocamlinlinecode{S}}}\\ +\label{container-page-test-module-Functor-module-F5}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor-module-F5]{\ocamlinlinecode{F5}}}\ocamlcodefragment{ () : \hyperref[container-page-test-module-Functor-module-type-S]{\ocamlinlinecode{S}}}\\ + +\input{test/Functor.F1.tex} +\input{test/Functor.F2.tex} +\input{test/Functor.F3.tex} +\input{test/Functor.F4.tex} +\input{test/Functor.F5.tex} diff --git a/test/generators/cases_pre408/latex/Functor2.X.tex b/test/generators/cases_pre408/latex/Functor2.X.tex new file mode 100644 index 0000000000..302ca6e84e --- /dev/null +++ b/test/generators/cases_pre408/latex/Functor2.X.tex @@ -0,0 +1,14 @@ +\section{Module \ocamlinlinecode{Functor2.\allowbreak{}X}}\label{container-page-test-module-Functor2-module-X}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Functor2-module-X-argument-1-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor2-module-X-argument-1-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor2-module-X-argument-1-Y-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Functor2-module-X-argument-2-Z}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor2-module-X-argument-2-Z]{\ocamlinlinecode{Z}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor2-module-X-argument-2-Z-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Functor2-module-X-type-y+u+t}\ocamlcodefragment{\ocamltag{keyword}{type} y\_\allowbreak{}t = \hyperref[container-page-test-module-Functor2-module-X-argument-1-Y-type-t]{\ocamlinlinecode{Y.\allowbreak{}t}}}\\ +\label{container-page-test-module-Functor2-module-X-type-z+u+t}\ocamlcodefragment{\ocamltag{keyword}{type} z\_\allowbreak{}t = \hyperref[container-page-test-module-Functor2-module-X-argument-2-Z-type-t]{\ocamlinlinecode{Z.\allowbreak{}t}}}\\ +\label{container-page-test-module-Functor2-module-X-type-x+u+t}\ocamlcodefragment{\ocamltag{keyword}{type} x\_\allowbreak{}t = \hyperref[container-page-test-module-Functor2-module-X-type-y+u+t]{\ocamlinlinecode{y\_\allowbreak{}t}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Functor2.tex b/test/generators/cases_pre408/latex/Functor2.tex new file mode 100644 index 0000000000..cd85d0cd8e --- /dev/null +++ b/test/generators/cases_pre408/latex/Functor2.tex @@ -0,0 +1,20 @@ +\section{Module \ocamlinlinecode{Functor2}}\label{container-page-test-module-Functor2}% +\label{container-page-test-module-Functor2-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Functor2-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor2-module-type-S-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Functor2-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor2-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Functor2-module-X-argument-1-Y]{\ocamlinlinecode{Y}} : \hyperref[container-page-test-module-Functor2-module-type-S]{\ocamlinlinecode{S}}) (\hyperref[container-page-test-module-Functor2-module-X-argument-2-Z]{\ocamlinlinecode{Z}} : \hyperref[container-page-test-module-Functor2-module-type-S]{\ocamlinlinecode{S}}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Functor2-module-type-XF}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Functor2-module-type-XF]{\ocamlinlinecode{XF}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Parameters\label{parameters}}% +\label{container-page-test-module-Functor2-module-type-XF-argument-1-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor2-module-type-XF-argument-1-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor2-module-type-XF-argument-1-Y-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Functor2-module-type-XF-argument-2-Z}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Functor2-module-type-XF-argument-2-Z]{\ocamlinlinecode{Z}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Functor2-module-type-XF-argument-2-Z-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsubsection{Signature\label{signature}}% +\label{container-page-test-module-Functor2-module-type-XF-type-y+u+t}\ocamlcodefragment{\ocamltag{keyword}{type} y\_\allowbreak{}t = \hyperref[container-page-test-module-Functor2-module-type-XF-argument-1-Y-type-t]{\ocamlinlinecode{Y.\allowbreak{}t}}}\\ +\label{container-page-test-module-Functor2-module-type-XF-type-z+u+t}\ocamlcodefragment{\ocamltag{keyword}{type} z\_\allowbreak{}t = \hyperref[container-page-test-module-Functor2-module-type-XF-argument-2-Z-type-t]{\ocamlinlinecode{Z.\allowbreak{}t}}}\\ +\label{container-page-test-module-Functor2-module-type-XF-type-x+u+t}\ocamlcodefragment{\ocamltag{keyword}{type} x\_\allowbreak{}t = \hyperref[container-page-test-module-Functor2-module-type-XF-type-y+u+t]{\ocamlinlinecode{y\_\allowbreak{}t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ + +\input{test/Functor2.X.tex} diff --git a/test/generators/cases_pre408/latex/Include.tex b/test/generators/cases_pre408/latex/Include.tex new file mode 100644 index 0000000000..adc7ee609a --- /dev/null +++ b/test/generators/cases_pre408/latex/Include.tex @@ -0,0 +1,29 @@ +\section{Module \ocamlinlinecode{Include}}\label{container-page-test-module-Include}% +\label{container-page-test-module-Include-module-type-Not+u+inlined}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Include-module-type-Not+u+inlined]{\ocamlinlinecode{Not\_\allowbreak{}inlined}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Include-module-type-Not+u+inlined-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include-module-type-Not+u+inlined]{\ocamlinlinecode{Not\_\allowbreak{}inlined}}\label{container-page-test-module-Include-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Include-module-type-Inlined}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Include-module-type-Inlined]{\ocamlinlinecode{Inlined}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Include-module-type-Inlined-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include-module-type-Inlined]{\ocamlinlinecode{Inlined}}\label{container-page-test-module-Include-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\label{container-page-test-module-Include-module-type-Not+u+inlined+u+and+u+closed}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Include-module-type-Not+u+inlined+u+and+u+closed]{\ocamlinlinecode{Not\_\allowbreak{}inlined\_\allowbreak{}and\_\allowbreak{}closed}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Include-module-type-Not+u+inlined+u+and+u+closed-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} v}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include-module-type-Not+u+inlined+u+and+u+closed]{\ocamlinlinecode{Not\_\allowbreak{}inlined\_\allowbreak{}and\_\allowbreak{}closed}}\label{container-page-test-module-Include-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} v}\\ +\label{container-page-test-module-Include-module-type-Not+u+inlined+u+and+u+opened}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Include-module-type-Not+u+inlined+u+and+u+opened]{\ocamlinlinecode{Not\_\allowbreak{}inlined\_\allowbreak{}and\_\allowbreak{}opened}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Include-module-type-Not+u+inlined+u+and+u+opened-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} w}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include-module-type-Not+u+inlined+u+and+u+opened]{\ocamlinlinecode{Not\_\allowbreak{}inlined\_\allowbreak{}and\_\allowbreak{}opened}}\label{container-page-test-module-Include-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} w}\\ +\label{container-page-test-module-Include-module-type-Inherent+u+Module}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Include-module-type-Inherent+u+Module]{\ocamlinlinecode{Inherent\_\allowbreak{}Module}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Include-module-type-Inherent+u+Module-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test-module-Include-type-t]{\ocamlinlinecode{t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include-module-type-Inherent+u+Module]{\ocamlinlinecode{Inherent\_\allowbreak{}Module}}\label{container-page-test-module-Include-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test-module-Include-type-t]{\ocamlinlinecode{t}}}\\ +\label{container-page-test-module-Include-module-type-Dorminant+u+Module}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Include-module-type-Dorminant+u+Module]{\ocamlinlinecode{Dorminant\_\allowbreak{}Module}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include-module-type-Inherent+u+Module]{\ocamlinlinecode{Inherent\_\allowbreak{}Module}}\label{container-page-test-module-Include-module-type-Dorminant+u+Module-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test-module-Include-type-t]{\ocamlinlinecode{t}}}\\ +\label{container-page-test-module-Include-module-type-Dorminant+u+Module-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test-module-Include-type-u]{\ocamlinlinecode{u}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include-module-type-Dorminant+u+Module]{\ocamlinlinecode{Dorminant\_\allowbreak{}Module}}\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include-module-type-Inherent+u+Module]{\ocamlinlinecode{Inherent\_\allowbreak{}Module}}\label{container-page-test-module-Include-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test-module-Include-type-t]{\ocamlinlinecode{t}}}\\ +\label{container-page-test-module-Include-val-a}\ocamlcodefragment{\ocamltag{keyword}{val} a : \hyperref[container-page-test-module-Include-type-u]{\ocamlinlinecode{u}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Include2.tex b/test/generators/cases_pre408/latex/Include2.tex new file mode 100644 index 0000000000..e529d4521f --- /dev/null +++ b/test/generators/cases_pre408/latex/Include2.tex @@ -0,0 +1,21 @@ +\section{Module \ocamlinlinecode{Include2}}\label{container-page-test-module-Include2}% +\label{container-page-test-module-Include2-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Include2-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Include2-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Comment about X that should not appear when including X below.\end{ocamlindent}% +\medbreak +\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \ocamltag{keyword}{struct} \ocamltag{keyword}{include} \hyperref[container-page-test-module-Include2-module-X]{\ocamlinlinecode{X}} \ocamltag{keyword}{end}Comment about X that should not appear when including X below. + +\label{container-page-test-module-Include2-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\\ +\label{container-page-test-module-Include2-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Include2-module-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Include2-module-Y-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Top-comment of Y.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Include2-module-Y+u+include+u+synopsis}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Include2-module-Y+u+include+u+synopsis]{\ocamlinlinecode{Y\_\allowbreak{}include\_\allowbreak{}synopsis}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \ocamltag{keyword}{struct} \ocamltag{keyword}{include} \hyperref[container-page-test-module-Include2-module-Y]{\ocamlinlinecode{Y}} \ocamltag{keyword}{end}\label{container-page-test-module-Include2-module-Y+u+include+u+synopsis-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Include2-module-Y-type-t]{\ocamlinlinecode{Y.\allowbreak{}t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}The \ocamlinlinecode{include Y} below should have the synopsis from \ocamlinlinecode{Y}'s top-comment attached to it.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Include2-module-Y+u+include+u+doc}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Include2-module-Y+u+include+u+doc]{\ocamlinlinecode{Y\_\allowbreak{}include\_\allowbreak{}doc}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}Doc attached to \ocamlinlinecode{include Y}. \ocamlinlinecode{Y}'s top-comment shouldn't appear here.\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \ocamltag{keyword}{struct} \ocamltag{keyword}{include} \hyperref[container-page-test-module-Include2-module-Y]{\ocamlinlinecode{Y}} \ocamltag{keyword}{end}\label{container-page-test-module-Include2-module-Y+u+include+u+doc-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Include2-module-Y-type-t]{\ocamlinlinecode{Y.\allowbreak{}t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ + + diff --git a/test/generators/cases_pre408/latex/Include_sections.tex b/test/generators/cases_pre408/latex/Include_sections.tex new file mode 100644 index 0000000000..8a8df5536e --- /dev/null +++ b/test/generators/cases_pre408/latex/Include_sections.tex @@ -0,0 +1,71 @@ +\section{Module \ocamlinlinecode{Include\_\allowbreak{}sections}}\label{container-page-test-module-Include+u+sections}% +\label{container-page-test-module-Include+u+sections-module-type-Something}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Include+u+sections-module-type-Something-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ +\subsubsection{Something 1\label{something-1}}% +foo + +\label{container-page-test-module-Include+u+sections-module-type-Something-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ +\subsubsection{Something 2\label{something-2}}% +\label{container-page-test-module-Include+u+sections-module-type-Something-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% +\medbreak +\subsubsection{Something 1-bis\label{something-1-bis}}% +Some text. + +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}A module type.\end{ocamlindent}% +\medbreak +Let's include \hyperref[container-page-test-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{\ocamlinlinecode{Something}}[p\pageref*{container-page-test-module-Include+u+sections-module-type-Something}]} once + +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}\label{container-page-test-module-Include+u+sections-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ +\subsection{Something 1\label{something-1}}% +foo + +\label{container-page-test-module-Include+u+sections-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ +\subsubsection{Something 2\label{something-2}}% +\label{container-page-test-module-Include+u+sections-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% +\medbreak +\subsection{Something 1-bis\label{something-1-bis}}% +Some text. + +\subsection{Second include\label{second-include}}% +Let's include \hyperref[container-page-test-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{\ocamlinlinecode{Something}}[p\pageref*{container-page-test-module-Include+u+sections-module-type-Something}]} a second time: the heading level should be shift here. + +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}\label{container-page-test-module-Include+u+sections-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ +\subsection{Something 1\label{something-1}}% +foo + +\label{container-page-test-module-Include+u+sections-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ +\subsubsection{Something 2\label{something-2}}% +\label{container-page-test-module-Include+u+sections-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% +\medbreak +\subsection{Something 1-bis\label{something-1-bis}}% +Some text. + +\subsubsection{Third include\label{third-include}}% +Shifted some more. + +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}\label{container-page-test-module-Include+u+sections-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ +\subsection{Something 1\label{something-1}}% +foo + +\label{container-page-test-module-Include+u+sections-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ +\subsubsection{Something 2\label{something-2}}% +\label{container-page-test-module-Include+u+sections-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% +\medbreak +\subsection{Something 1-bis\label{something-1-bis}}% +Some text. + +And let's include it again, but without inlining it this time: the ToC shouldn't grow. + +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Include+u+sections-module-type-Something]{\ocamlinlinecode{Something}}\label{container-page-test-module-Include+u+sections-val-something}\ocamlcodefragment{\ocamltag{keyword}{val} something : unit}\\ +\subsection{Something 1\label{something-1}}% +foo + +\label{container-page-test-module-Include+u+sections-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ +\subsubsection{Something 2\label{something-2}}% +\label{container-page-test-module-Include+u+sections-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}foo bar\end{ocamlindent}% +\medbreak +\subsection{Something 1-bis\label{something-1-bis}}% +Some text. + + + diff --git a/test/generators/cases_pre408/latex/Interlude.tex b/test/generators/cases_pre408/latex/Interlude.tex new file mode 100644 index 0000000000..3d88672981 --- /dev/null +++ b/test/generators/cases_pre408/latex/Interlude.tex @@ -0,0 +1,22 @@ +\section{Module \ocamlinlinecode{Interlude}}\label{container-page-test-module-Interlude}% +This is the comment associated to the module. + +Some separate stray text at the top of the module. + +\label{container-page-test-module-Interlude-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\begin{ocamlindent}Foo.\end{ocamlindent}% +\medbreak +Some stray text that is not associated with any signature item. + +It has multiple paragraphs. + +A separate block of stray text, adjacent to the preceding one. + +\label{container-page-test-module-Interlude-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : unit}\begin{ocamlindent}Bar.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Interlude-val-multiple}\ocamlcodefragment{\ocamltag{keyword}{val} multiple : unit}\\ +\label{container-page-test-module-Interlude-val-signature}\ocamlcodefragment{\ocamltag{keyword}{val} signature : unit}\\ +\label{container-page-test-module-Interlude-val-items}\ocamlcodefragment{\ocamltag{keyword}{val} items : unit}\\ +Stray text at the bottom of the module. + + + diff --git a/test/generators/cases_pre408/latex/Markup.tex b/test/generators/cases_pre408/latex/Markup.tex new file mode 100644 index 0000000000..c6cfa88925 --- /dev/null +++ b/test/generators/cases_pre408/latex/Markup.tex @@ -0,0 +1,149 @@ +\section{Module \ocamlinlinecode{Markup}}\label{container-page-test-module-Markup}% +Here, we test the rendering of comment markup. + +\subsection{Sections\label{sections}}% +Let's get these done first, because sections will be used to break up the rest of this test. + +Besides the section heading above, there are also + +\subsubsection{Subsection headings\label{subsection-headings}}% +and + +\subsubsection{Sub-subsection headings\label{sub-subsection-headings}}% +but odoc has banned deeper headings. There are also title headings, but they are only allowed in mld files. + +\subsubsection{Anchors\label{anchors}}% +Sections can have attached \hyperref[container-page-test-module-Markup-anchors]{\ocamlinlinecode{Anchors}[p\pageref*{container-page-test-module-Markup-anchors}]}, and it is possible to \hyperref[container-page-test-module-Markup-anchors]{\ocamlinlinecode{link}[p\pageref*{container-page-test-module-Markup-anchors}]} to them. Links to section headers should not be set in source code style. + +\subsubsection{Paragraph\label{paragraph}}% +Individual paragraphs can have a heading. + +\subsubsection{Subparagraph\label{subparagraph}}% +Parts of a longer paragraph that can be considered alone can also have headings. + +\subsection{Styling\label{styling}}% +This paragraph has some styled elements: \bold{bold} and \emph{italic}, \bold{\emph{bold italic}}, \emph{emphasis}, \emph{\emph{emphasis} within emphasis}, \bold{\emph{bold italic}}, super\textsuperscript{script}, sub\textsubscript{script}. The line spacing should be enough for superscripts and subscripts not to look odd. + +Note: \emph{In italics \emph{emphasis} is rendered as normal text while \emph{emphasis \emph{in} emphasis} is rendered in italics.} \emph{It also work the same in \href{\#}{links in italics with \emph{emphasis \emph{in} emphasis}.}\footnote{\url{\#}}} + +\ocamlinlinecode{code} is a different kind of markup that doesn't allow nested markup. + +It's possible for two markup elements to appear \bold{next} \emph{to} each other and have a space, and appear \bold{next}\emph{to} each other with no space. It doesn't matter \bold{how} \emph{much} space it was in the source: in this sentence, it was two space characters. And in this one, there is \bold{a} \emph{newline}. + +This is also true between \emph{non-}\ocamlinlinecode{code} markup \emph{and} \ocamlinlinecode{code}. + +Code can appear \bold{inside \ocamlinlinecode{other} markup}. Its display shouldn't be affected. + +\subsection{Links and references\label{links-and-references}}% +This is a \href{\#}{link}\footnote{\url{\#}}. It sends you to the top of this page. Links can have markup inside them: \href{\#}{\bold{bold}}\footnote{\url{\#}}, \href{\#}{\emph{italics}}\footnote{\url{\#}}, \href{\#}{\emph{emphasis}}\footnote{\url{\#}}, \href{\#}{super\textsuperscript{script}}\footnote{\url{\#}}, \href{\#}{sub\textsubscript{script}}\footnote{\url{\#}}, and \href{\#}{\ocamlinlinecode{code}}\footnote{\url{\#}}. Links can also be nested \emph{\href{\#}{inside}\footnote{\url{\#}}} markup. Links cannot be nested inside each other. This link has no replacement text: \href{\#}{\#}\footnote{\url{\#}}. The text is filled in by odoc. This is a shorthand link: \href{\#}{\#}\footnote{\url{\#}}. The text is also filled in by odoc in this case. + +This is a reference to \hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{\ocamlinlinecode{foo}}[p\pageref*{container-page-test-module-Markup-val-foo}]}. References can have replacement text: \hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{the value foo}[p\pageref*{container-page-test-module-Markup-val-foo}]}. Except for the special lookup support, references are pretty much just like links. The replacement text can have nested styles: \hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{\bold{bold}}[p\pageref*{container-page-test-module-Markup-val-foo}]}, \hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{\emph{italic}}[p\pageref*{container-page-test-module-Markup-val-foo}]}, \hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{\emph{emphasis}}[p\pageref*{container-page-test-module-Markup-val-foo}]}, \hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{super\textsuperscript{script}}[p\pageref*{container-page-test-module-Markup-val-foo}]}, \hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{sub\textsubscript{script}}[p\pageref*{container-page-test-module-Markup-val-foo}]}, and \hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{\ocamlinlinecode{code}}[p\pageref*{container-page-test-module-Markup-val-foo}]}. It's also possible to surround a reference in a style: \bold{\hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{\ocamlinlinecode{foo}}[p\pageref*{container-page-test-module-Markup-val-foo}]}}. References can't be nested inside references, and links and references can't be nested inside each other. + +\subsection{Preformatted text\label{preformatted-text}}% +This is a code block:\medbreak +\begin{ocamlcodeblock} +let foo = () +(** There are some nested comments in here, but an unpaired comment + terminator would terminate the whole doc surrounding comment. It's + best to keep code blocks no wider than 72 characters. *) + +let bar = + ignore foo +\end{ocamlcodeblock}\medbreak +There are also verbatim blocks: + +\begin{verbatim}The main difference is these don't get syntax highlighting.\end{verbatim}% +\subsection{Lists\label{lists}}% +\begin{itemize}\item{This is a}% +\item{shorthand bulleted list,}% +\item{and the paragraphs in each list item support \emph{styling}.}\end{itemize}% +\begin{enumerate}\item{This is a}% +\item{shorthand numbered list.}\end{enumerate}% +\begin{itemize}\item{Shorthand list items can span multiple lines, however trying to put two paragraphs into a shorthand list item using a double line break}\end{itemize}% +just creates a paragraph outside the list. + +\begin{itemize}\item{Similarly, inserting a blank line between two list items}\end{itemize}% +\begin{itemize}\item{creates two separate lists.}\end{itemize}% +\begin{itemize}\item{To get around this limitation, one + +can use explicitly-delimited lists. + +}% +\item{This one is bulleted,}\end{itemize}% +\begin{enumerate}\item{but there is also the numbered variant.}\end{enumerate}% +\begin{itemize}\item{\begin{itemize}\item{lists}% +\item{can be nested}% +\item{and can include references}% +\item{\hyperref[container-page-test-module-Markup-val-foo]{\ocamlinlinecode{\ocamlinlinecode{foo}}[p\pageref*{container-page-test-module-Markup-val-foo}]}}\end{itemize}% +}\end{itemize}% +\subsection{Unicode\label{unicode}}% +The parser supports any ASCII-compatible encoding, in particuλar UTF-8. + +\subsection{Raw HTML\label{raw-html}}% +Raw HTML can be as inline elements into sentences. + +\subsection{Modules\label{modules}}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{\ocamlinlinecode{X}}]{}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{\ocamlinlinecode{X}}]{}% +\item[{\ocamlinlinecode{Y}}]{}% +\item[{\ocamlinlinecode{Z}}]{}\end{description}% +\subsection{Tags\label{tags}}% +Each comment can end with zero or more tags. Here are some examples: + +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{author}]{antron}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{deprecated}]{a \emph{long} time ago + +}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{parameter foo}]{unused + +}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{raises Failure}]{always + +}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{returns}]{never + +}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{see \href{\#}{\#}\footnote{\url{\#}}}]{this url + +}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{see \ocamlinlinecode{foo.\allowbreak{}ml}}]{this file + +}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{see Foo}]{this document + +}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{since}]{0}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{before 1.0}]{it was in b\textsuperscript{e}t\textsubscript{a} + +}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{version}]{-1}\end{description}% +\label{container-page-test-module-Markup-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\begin{ocamlindent}Comments in structure items \bold{support} \emph{markup}, t\textsuperscript{o}\textsubscript{o}.\end{ocamlindent}% +\medbreak + + diff --git a/test/generators/cases_pre408/latex/Module.tex b/test/generators/cases_pre408/latex/Module.tex new file mode 100644 index 0000000000..3d4f8773fd --- /dev/null +++ b/test/generators/cases_pre408/latex/Module.tex @@ -0,0 +1,75 @@ +\section{Module \ocamlinlinecode{Module}}\label{container-page-test-module-Module}% +Foo. + +\label{container-page-test-module-Module-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\begin{ocamlindent}The module needs at least one signature item, otherwise a bug causes the compiler to drop the module comment (above). See \href{https://caml.inria.fr/mantis/view.php?id=7701}{https://caml.inria.fr/mantis/view.php?id=7701}\footnote{\url{https://caml.inria.fr/mantis/view.php?id=7701}}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Module-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Module-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Module-module-type-S-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Module-module-type-S-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\label{container-page-test-module-Module-module-type-S-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ +\label{container-page-test-module-Module-module-type-S-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ +\label{container-page-test-module-Module-module-type-S-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Module-module-type-S-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-type-S1}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} S1}\\ +\label{container-page-test-module-Module-module-type-S2}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Module-module-type-S2]{\ocamlinlinecode{S2}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Module-module-type-S2-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Module-module-type-S2-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\label{container-page-test-module-Module-module-type-S2-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ +\label{container-page-test-module-Module-module-type-S2-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ +\label{container-page-test-module-Module-module-type-S2-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Module-module-type-S2-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-type-S3}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Module-module-type-S3]{\ocamlinlinecode{S3}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Module-module-type-S3-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\\ +\label{container-page-test-module-Module-module-type-S3-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u = string}\\ +\label{container-page-test-module-Module-module-type-S3-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ +\label{container-page-test-module-Module-module-type-S3-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ +\label{container-page-test-module-Module-module-type-S3-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Module-module-type-S3-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-type-S4}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Module-module-type-S4]{\ocamlinlinecode{S4}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Module-module-type-S4-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\label{container-page-test-module-Module-module-type-S4-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ +\label{container-page-test-module-Module-module-type-S4-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ +\label{container-page-test-module-Module-module-type-S4-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Module-module-type-S4-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-type-S5}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Module-module-type-S5]{\ocamlinlinecode{S5}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Module-module-type-S5-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Module-module-type-S5-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\label{container-page-test-module-Module-module-type-S5-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ +\label{container-page-test-module-Module-module-type-S5-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Module-module-type-S5-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-type-result}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) result}\\ +\label{container-page-test-module-Module-module-type-S6}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Module-module-type-S6]{\ocamlinlinecode{S6}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Module-module-type-S6-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Module-module-type-S6-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\label{container-page-test-module-Module-module-type-S6-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ +\label{container-page-test-module-Module-module-type-S6-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Module-module-type-S6-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-M'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Module-module-M']{\ocamlinlinecode{M'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-type-S7}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Module-module-type-S7]{\ocamlinlinecode{S7}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Module-module-type-S7-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Module-module-type-S7-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\label{container-page-test-module-Module-module-type-S7-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ +\label{container-page-test-module-Module-module-type-S7-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ +\label{container-page-test-module-Module-module-type-S7-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} M = \hyperref[container-page-test-module-Module-module-M']{\ocamlinlinecode{M'}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-type-S8}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Module-module-type-S8]{\ocamlinlinecode{S8}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Module-module-type-S8-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Module-module-type-S8-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\label{container-page-test-module-Module-module-type-S8-type-v}\ocamlcodefragment{\ocamltag{keyword}{type} 'a v}\\ +\label{container-page-test-module-Module-module-type-S8-type-w}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) w}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-type-S9}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Module-module-type-S9]{\ocamlinlinecode{S9}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-Mutually}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Module-module-Mutually]{\ocamlinlinecode{Mutually}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Module-module-Recursive}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Module-module-Recursive]{\ocamlinlinecode{Recursive}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ + + diff --git a/test/generators/cases_pre408/latex/Nested.F.tex b/test/generators/cases_pre408/latex/Nested.F.tex new file mode 100644 index 0000000000..838e50ce93 --- /dev/null +++ b/test/generators/cases_pre408/latex/Nested.F.tex @@ -0,0 +1,25 @@ +\section{Module \ocamlinlinecode{Nested.\allowbreak{}F}}\label{container-page-test-module-Nested-module-F}% +This is a functor F. + +Some additional comments. + +\subsection{Type\label{type}}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Nested-module-F-argument-1-Arg1}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Nested-module-F-argument-1-Arg1]{\ocamlinlinecode{Arg1}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Type\label{type}}% +\label{container-page-test-module-Nested-module-F-argument-1-Arg1-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\begin{ocamlindent}Some type.\end{ocamlindent}% +\medbreak +\subsubsection{Values\label{values}}% +\label{container-page-test-module-Nested-module-F-argument-1-Arg1-val-y}\ocamlcodefragment{\ocamltag{keyword}{val} y : \hyperref[container-page-test-module-Nested-module-F-argument-1-Arg1-type-t]{\ocamlinlinecode{t}}}\begin{ocamlindent}The value of y.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Nested-module-F-argument-2-Arg2}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Nested-module-F-argument-2-Arg2]{\ocamlinlinecode{Arg2}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Type\label{type}}% +\label{container-page-test-module-Nested-module-F-argument-2-Arg2-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\begin{ocamlindent}Some type.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Nested-module-F-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Nested-module-F-argument-1-Arg1-type-t]{\ocamlinlinecode{Arg1.\allowbreak{}t}} * \hyperref[container-page-test-module-Nested-module-F-argument-2-Arg2-type-t]{\ocamlinlinecode{Arg2.\allowbreak{}t}}}\begin{ocamlindent}Some type.\end{ocamlindent}% +\medbreak + + diff --git a/test/generators/cases_pre408/latex/Nested.inherits.tex b/test/generators/cases_pre408/latex/Nested.inherits.tex new file mode 100644 index 0000000000..361a92e9dd --- /dev/null +++ b/test/generators/cases_pre408/latex/Nested.inherits.tex @@ -0,0 +1,4 @@ +\section{Class \ocamlinlinecode{Nested.\allowbreak{}inherits}}\label{container-page-test-module-Nested-class-inherits}% +\ocamlcodefragment{\ocamltag{keyword}{inherit} \hyperref[container-page-test-module-Nested-class-z]{\ocamlinlinecode{z}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Nested.tex b/test/generators/cases_pre408/latex/Nested.tex new file mode 100644 index 0000000000..38992a5568 --- /dev/null +++ b/test/generators/cases_pre408/latex/Nested.tex @@ -0,0 +1,34 @@ +\section{Module \ocamlinlinecode{Nested}}\label{container-page-test-module-Nested}% +This comment needs to be here before \#235 is fixed. + +\subsection{Module\label{module}}% +\label{container-page-test-module-Nested-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Nested-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Type\label{type}}% +\label{container-page-test-module-Nested-module-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\begin{ocamlindent}Some type.\end{ocamlindent}% +\medbreak +\subsubsection{Values\label{values}}% +\label{container-page-test-module-Nested-module-X-val-x}\ocamlcodefragment{\ocamltag{keyword}{val} x : \hyperref[container-page-test-module-Nested-module-X-type-t]{\ocamlinlinecode{t}}}\begin{ocamlindent}The value of x.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This is module X.\end{ocamlindent}% +\medbreak +\subsection{Module type\label{module-type}}% +\label{container-page-test-module-Nested-module-type-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Nested-module-type-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Type\label{type}}% +\label{container-page-test-module-Nested-module-type-Y-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\begin{ocamlindent}Some type.\end{ocamlindent}% +\medbreak +\subsubsection{Values\label{values}}% +\label{container-page-test-module-Nested-module-type-Y-val-y}\ocamlcodefragment{\ocamltag{keyword}{val} y : \hyperref[container-page-test-module-Nested-module-type-Y-type-t]{\ocamlinlinecode{t}}}\begin{ocamlindent}The value of y.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This is module type Y.\end{ocamlindent}% +\medbreak +\subsection{Functor\label{functor}}% +\label{container-page-test-module-Nested-module-F}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Nested-module-F]{\ocamlinlinecode{F}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Nested-module-F-argument-1-Arg1]{\ocamlinlinecode{Arg1}} : \hyperref[container-page-test-module-Nested-module-type-Y]{\ocamlinlinecode{Y}}) (\hyperref[container-page-test-module-Nested-module-F-argument-2-Arg2]{\ocamlinlinecode{Arg2}} : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\begin{ocamlindent}This is a functor F.\end{ocamlindent}% +\medbreak +\subsection{Class\label{class}}% +\label{container-page-test-module-Nested-class-z}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{virtual} \hyperref[container-page-test-module-Nested-class-z]{\ocamlinlinecode{z}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\begin{ocamlindent}This is class z.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Nested-class-inherits}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{virtual} \hyperref[container-page-test-module-Nested-class-inherits]{\ocamlinlinecode{inherits}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ + +\input{test/Nested.F.tex} +\input{test/Nested.z.tex} +\input{test/Nested.inherits.tex} diff --git a/test/generators/cases_pre408/latex/Nested.z.tex b/test/generators/cases_pre408/latex/Nested.z.tex new file mode 100644 index 0000000000..db7e48d1a6 --- /dev/null +++ b/test/generators/cases_pre408/latex/Nested.z.tex @@ -0,0 +1,14 @@ +\section{Class \ocamlinlinecode{Nested.\allowbreak{}z}}\label{container-page-test-module-Nested-class-z}% +This is class z. + +Some additional comments. + +\label{container-page-test-module-Nested-class-z-val-y}\ocamlcodefragment{\ocamltag{keyword}{val} y : int}\begin{ocamlindent}Some value.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Nested-class-z-val-y'}\ocamlcodefragment{\ocamltag{keyword}{val} \ocamltag{keyword}{mutable} \ocamltag{keyword}{virtual} y' : int}\\ +\subsection{Methods\label{methods}}% +\label{container-page-test-module-Nested-class-z-method-z}\ocamlcodefragment{\ocamltag{keyword}{method} z : int}\begin{ocamlindent}Some method.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Nested-class-z-method-z'}\ocamlcodefragment{\ocamltag{keyword}{method} \ocamltag{keyword}{private} \ocamltag{keyword}{virtual} z' : int}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.Dep12.tex b/test/generators/cases_pre408/latex/Ocamlary.Dep12.tex new file mode 100644 index 0000000000..f6df514666 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Dep12.tex @@ -0,0 +1,9 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}Dep12}}\label{container-page-test-module-Ocamlary-module-Dep12}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Ocamlary-module-Dep12-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep12-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep12-argument-1-Arg-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} S}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Ocamlary-module-Dep12-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} T = \hyperref[container-page-test-module-Ocamlary-module-Dep12-argument-1-Arg-module-type-S]{\ocamlinlinecode{Arg.\allowbreak{}S}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.Dep13.c.tex b/test/generators/cases_pre408/latex/Ocamlary.Dep13.c.tex new file mode 100644 index 0000000000..3af2cfc0e9 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Dep13.c.tex @@ -0,0 +1,4 @@ +\section{Class \ocamlinlinecode{Dep13.\allowbreak{}c}}\label{container-page-test-module-Ocamlary-module-Dep13-class-c}% +\label{container-page-test-module-Ocamlary-module-Dep13-class-c-method-m}\ocamlcodefragment{\ocamltag{keyword}{method} m : int}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.Dep13.tex b/test/generators/cases_pre408/latex/Ocamlary.Dep13.tex new file mode 100644 index 0000000000..873fa0f5de --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Dep13.tex @@ -0,0 +1,4 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}Dep13}}\label{container-page-test-module-Ocamlary-module-Dep13}% +\label{container-page-test-module-Ocamlary-module-Dep13-class-c}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Ocamlary-module-Dep13-class-c]{\ocamlinlinecode{c}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ + +\input{test/Ocamlary.Dep13.c.tex} diff --git a/test/generators/cases_pre408/latex/Ocamlary.Dep2.tex b/test/generators/cases_pre408/latex/Ocamlary.Dep2.tex new file mode 100644 index 0000000000..93232b462f --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Dep2.tex @@ -0,0 +1,15 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}Dep2}}\label{container-page-test-module-Ocamlary-module-Dep2}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Ocamlary-module-Dep2-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep2-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep2-argument-1-Arg-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} S}\\ +\label{container-page-test-module-Ocamlary-module-Dep2-argument-1-Arg-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep2-argument-1-Arg-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep2-argument-1-Arg-module-X-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} Y : \hyperref[container-page-test-module-Ocamlary-module-Dep2-argument-1-Arg-module-type-S]{\ocamlinlinecode{S}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Ocamlary-module-Dep2-module-A}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep2-module-A]{\ocamlinlinecode{A}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep2-module-A-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} Y : \hyperref[container-page-test-module-Ocamlary-module-Dep2-argument-1-Arg-module-type-S]{\ocamlinlinecode{Arg.\allowbreak{}S}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep2-module-B}\ocamlcodefragment{\ocamltag{keyword}{module} B = \hyperref[container-page-test-module-Ocamlary-module-Dep2-module-A-module-Y]{\ocamlinlinecode{A.\allowbreak{}Y}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.Dep5.Z.tex b/test/generators/cases_pre408/latex/Ocamlary.Dep5.Z.tex new file mode 100644 index 0000000000..4d6e8b09c7 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Dep5.Z.tex @@ -0,0 +1,5 @@ +\section{Module \ocamlinlinecode{Dep5.\allowbreak{}Z}}\label{container-page-test-module-Ocamlary-module-Dep5-module-Z}% +\label{container-page-test-module-Ocamlary-module-Dep5-module-Z-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} X : \hyperref[container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-T]{\ocamlinlinecode{Arg.\allowbreak{}T}}}\\ +\label{container-page-test-module-Ocamlary-module-Dep5-module-Z-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} Y = \hyperref[container-page-test-module-Ocamlary-module-Dep3]{\ocamlinlinecode{Dep3}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.Dep5.tex b/test/generators/cases_pre408/latex/Ocamlary.Dep5.tex new file mode 100644 index 0000000000..46120a8c7f --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Dep5.tex @@ -0,0 +1,15 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}Dep5}}\label{container-page-test-module-Ocamlary-module-Dep5}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} T}\\ +\label{container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-S-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} X : \hyperref[container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-T]{\ocamlinlinecode{T}}}\\ +\label{container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-S-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-S-module-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} X : \hyperref[container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-T]{\ocamlinlinecode{T}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Ocamlary-module-Dep5-module-Z}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep5-module-Z]{\ocamlinlinecode{Z}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-S]{\ocamlinlinecode{Arg.\allowbreak{}S}} \ocamltag{keyword}{with} \ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg-module-type-S-module-Y]{\ocamlinlinecode{Y}} = \hyperref[container-page-test-module-Ocamlary-module-Dep3]{\ocamlinlinecode{Dep3}}}\\ + +\input{test/Ocamlary.Dep5.Z.tex} diff --git a/test/generators/cases_pre408/latex/Ocamlary.Dep7.M.tex b/test/generators/cases_pre408/latex/Ocamlary.Dep7.M.tex new file mode 100644 index 0000000000..8b035e81c3 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Dep7.M.tex @@ -0,0 +1,5 @@ +\section{Module \ocamlinlinecode{Dep7.\allowbreak{}M}}\label{container-page-test-module-Ocamlary-module-Dep7-module-M}% +\label{container-page-test-module-Ocamlary-module-Dep7-module-M-module-type-R}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} R = \hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-S]{\ocamlinlinecode{Arg.\allowbreak{}S}}}\\ +\label{container-page-test-module-Ocamlary-module-Dep7-module-M-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} Y : \hyperref[container-page-test-module-Ocamlary-module-Dep7-module-M-module-type-R]{\ocamlinlinecode{R}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.Dep7.tex b/test/generators/cases_pre408/latex/Ocamlary.Dep7.tex new file mode 100644 index 0000000000..676bc98b88 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Dep7.tex @@ -0,0 +1,17 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}Dep7}}\label{container-page-test-module-Ocamlary-module-Dep7}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg]{\ocamlinlinecode{Arg}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} S}\\ +\label{container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-T]{\ocamlinlinecode{T}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-T-module-type-R}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} R = \hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-S]{\ocamlinlinecode{S}}}\\ +\label{container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-T-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} Y : \hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-T-module-type-R]{\ocamlinlinecode{R}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-X-module-type-R}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} R = \hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-S]{\ocamlinlinecode{S}}}\\ +\label{container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-X-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} Y : \hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-X-module-type-R]{\ocamlinlinecode{R}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Ocamlary-module-Dep7-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep7-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg-module-type-T]{\ocamlinlinecode{Arg.\allowbreak{}T}}}\\ + +\input{test/Ocamlary.Dep7.M.tex} diff --git a/test/generators/cases_pre408/latex/Ocamlary.Dep9.tex b/test/generators/cases_pre408/latex/Ocamlary.Dep9.tex new file mode 100644 index 0000000000..0df6d95e9a --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Dep9.tex @@ -0,0 +1,9 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}Dep9}}\label{container-page-test-module-Ocamlary-module-Dep9}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Ocamlary-module-Dep9-argument-1-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep9-argument-1-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep9-argument-1-X-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} T}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Ocamlary-module-Dep9-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} T = \hyperref[container-page-test-module-Ocamlary-module-Dep9-argument-1-X-module-type-T]{\ocamlinlinecode{X.\allowbreak{}T}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.FunctorTypeOf.tex b/test/generators/cases_pre408/latex/Ocamlary.FunctorTypeOf.tex new file mode 100644 index 0000000000..fe42ae97fe --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.FunctorTypeOf.tex @@ -0,0 +1,36 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}FunctorTypeOf}}\label{container-page-test-module-Ocamlary-module-FunctorTypeOf}% +This comment is for \ocamlinlinecode{FunctorTypeOf}. + +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection]{\ocamlinlinecode{Collection}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}This comment is for \ocamlinlinecode{CollectionModule}. + +\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection}\begin{ocamlindent}This comment is for \ocamlinlinecode{collection}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element}\\ +\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Ocamlary-module-FunctorTypeOf-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection-type-collection]{\ocamlinlinecode{Collection.\allowbreak{}collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.ModuleWithSignature.tex b/test/generators/cases_pre408/latex/Ocamlary.ModuleWithSignature.tex new file mode 100644 index 0000000000..db44ab8d2f --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.ModuleWithSignature.tex @@ -0,0 +1,5 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}ModuleWithSignature}}\label{container-page-test-module-Ocamlary-module-ModuleWithSignature}% +A plain module of a signature of \hyperref[container-page-test-module-Ocamlary-module-type-EmptySig]{\ocamlinlinecode{\ocamlinlinecode{EmptySig}}[p\pageref*{container-page-test-module-Ocamlary-module-type-EmptySig}]} (reference) + + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.ModuleWithSignatureAlias.tex b/test/generators/cases_pre408/latex/Ocamlary.ModuleWithSignatureAlias.tex new file mode 100644 index 0000000000..c0e73089de --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.ModuleWithSignatureAlias.tex @@ -0,0 +1,10 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}ModuleWithSignatureAlias}}\label{container-page-test-module-Ocamlary-module-ModuleWithSignatureAlias}% +A plain module with an alias signature + +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{deprecated}]{I don't like this element any more. + +}\end{description}% + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.Recollection.tex b/test/generators/cases_pre408/latex/Ocamlary.Recollection.tex new file mode 100644 index 0000000000..909ede9220 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.Recollection.tex @@ -0,0 +1,57 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}Recollection}}\label{container-page-test-module-Ocamlary-module-Recollection}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C]{\ocamlinlinecode{C}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}This comment is for \ocamlinlinecode{CollectionModule}. + +\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection}\begin{ocamlindent}This comment is for \ocamlinlinecode{collection}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element}\\ +\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +This comment is for \ocamlinlinecode{CollectionModule}. + +\label{container-page-test-module-Ocamlary-module-Recollection-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection = \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-type-element]{\ocamlinlinecode{C.\allowbreak{}element}} list}\begin{ocamlindent}This comment is for \ocamlinlinecode{collection}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-Recollection-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element = \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-type-collection]{\ocamlinlinecode{C.\allowbreak{}collection}}}\\ +\label{container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-Recollection-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-Recollection-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Recollection-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Recollection-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-Recollection-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.With3.N.tex b/test/generators/cases_pre408/latex/Ocamlary.With3.N.tex new file mode 100644 index 0000000000..b7a9499297 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.With3.N.tex @@ -0,0 +1,4 @@ +\section{Module \ocamlinlinecode{With3.\allowbreak{}N}}\label{container-page-test-module-Ocamlary-module-With3-module-N}% +\label{container-page-test-module-Ocamlary-module-With3-module-N-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.With3.tex b/test/generators/cases_pre408/latex/Ocamlary.With3.tex new file mode 100644 index 0000000000..f67df784aa --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.With3.tex @@ -0,0 +1,5 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}With3}}\label{container-page-test-module-Ocamlary-module-With3}% +\label{container-page-test-module-Ocamlary-module-With3-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} M = \hyperref[container-page-test-module-Ocamlary-module-With2]{\ocamlinlinecode{With2}}}\\ +\label{container-page-test-module-Ocamlary-module-With3-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With3-module-N]{\ocamlinlinecode{N}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-With2-module-type-S]{\ocamlinlinecode{M.\allowbreak{}S}}}\\ + +\input{test/Ocamlary.With3.N.tex} diff --git a/test/generators/cases_pre408/latex/Ocamlary.With4.N.tex b/test/generators/cases_pre408/latex/Ocamlary.With4.N.tex new file mode 100644 index 0000000000..87c35d68af --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.With4.N.tex @@ -0,0 +1,4 @@ +\section{Module \ocamlinlinecode{With4.\allowbreak{}N}}\label{container-page-test-module-Ocamlary-module-With4-module-N}% +\label{container-page-test-module-Ocamlary-module-With4-module-N-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.With4.tex b/test/generators/cases_pre408/latex/Ocamlary.With4.tex new file mode 100644 index 0000000000..7821c6b08b --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.With4.tex @@ -0,0 +1,4 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}With4}}\label{container-page-test-module-Ocamlary-module-With4}% +\label{container-page-test-module-Ocamlary-module-With4-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With4-module-N]{\ocamlinlinecode{N}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-With2-module-type-S]{\ocamlinlinecode{With2.\allowbreak{}S}}}\\ + +\input{test/Ocamlary.With4.N.tex} diff --git a/test/generators/cases_pre408/latex/Ocamlary.With7.tex b/test/generators/cases_pre408/latex/Ocamlary.With7.tex new file mode 100644 index 0000000000..e58c0d2260 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.With7.tex @@ -0,0 +1,9 @@ +\section{Module \ocamlinlinecode{Ocamlary.\allowbreak{}With7}}\label{container-page-test-module-Ocamlary-module-With7}% +\subsection{Parameters\label{parameters}}% +\label{container-page-test-module-Ocamlary-module-With7-argument-1-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With7-argument-1-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With7-argument-1-X-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} T}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsection{Signature\label{signature}}% +\label{container-page-test-module-Ocamlary-module-With7-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} T = \hyperref[container-page-test-module-Ocamlary-module-With7-argument-1-X-module-type-T]{\ocamlinlinecode{X.\allowbreak{}T}}}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.empty_class.tex b/test/generators/cases_pre408/latex/Ocamlary.empty_class.tex new file mode 100644 index 0000000000..f2a6a038a0 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.empty_class.tex @@ -0,0 +1,3 @@ +\section{Class \ocamlinlinecode{Ocamlary.\allowbreak{}empty\_\allowbreak{}class}}\label{container-page-test-module-Ocamlary-class-empty+u+class}% + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.one_method_class.tex b/test/generators/cases_pre408/latex/Ocamlary.one_method_class.tex new file mode 100644 index 0000000000..c5eda57ea1 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.one_method_class.tex @@ -0,0 +1,4 @@ +\section{Class \ocamlinlinecode{Ocamlary.\allowbreak{}one\_\allowbreak{}method\_\allowbreak{}class}}\label{container-page-test-module-Ocamlary-class-one+u+method+u+class}% +\label{container-page-test-module-Ocamlary-class-one+u+method+u+class-method-go}\ocamlcodefragment{\ocamltag{keyword}{method} go : unit}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.param_class.tex b/test/generators/cases_pre408/latex/Ocamlary.param_class.tex new file mode 100644 index 0000000000..f7e2376c9b --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.param_class.tex @@ -0,0 +1,4 @@ +\section{Class \ocamlinlinecode{Ocamlary.\allowbreak{}param\_\allowbreak{}class}}\label{container-page-test-module-Ocamlary-class-param+u+class}% +\label{container-page-test-module-Ocamlary-class-param+u+class-method-v}\ocamlcodefragment{\ocamltag{keyword}{method} v : \ocamltag{type-var}{'a}}\\ + + diff --git a/test/generators/cases_pre408/latex/Ocamlary.tex b/test/generators/cases_pre408/latex/Ocamlary.tex new file mode 100644 index 0000000000..c079517ed6 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.tex @@ -0,0 +1,970 @@ +\section{Module \ocamlinlinecode{Ocamlary}}\label{container-page-test-module-Ocamlary}% +This is an \emph{interface} with \bold{all} of the \emph{module system} features. This documentation demonstrates: + +\begin{itemize}\item{comment formatting}% +\item{unassociated comments}% +\item{documentation sections}% +\item{module system documentation including + +\begin{enumerate}\item{submodules}% +\item{module aliases}% +\item{module types}% +\item{module type aliases}% +\item{modules with signatures}% +\item{modules with aliased signatures}\end{enumerate}% +}\end{itemize}% +A numbered list: + +\begin{enumerate}\item{3}% +\item{2}% +\item{1}\end{enumerate}% +David Sheets is the author. + +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{author}]{David Sheets}\end{description}% +You may find more information about this HTML documentation renderer at \href{https://github.com/dsheets/ocamlary}{github.com/dsheets/ocamlary}\footnote{\url{https://github.com/dsheets/ocamlary}}. + +This is some verbatim text: + +\begin{verbatim}verbatim\end{verbatim}% +This is some verbatim text: + +\begin{verbatim}[][df[]]}}\end{verbatim}% +Here is some raw LaTeX: $e^{i\pi} = -1$ + +Here is an index table of \ocamlinlinecode{Empty} modules: + +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{\hyperref[container-page-test-module-Ocamlary-module-Empty]{\ocamlinlinecode{\ocamlinlinecode{Empty}}[p\pageref*{container-page-test-module-Ocamlary-module-Empty}]}}]{A plain, empty module}% +\item[{\hyperref[container-page-test-module-Ocamlary-module-Empty]{\ocamlinlinecode{\ocamlinlinecode{EmptyAlias}}[p\pageref*{container-page-test-module-Ocamlary-module-Empty}]}}]{A plain module alias of \ocamlinlinecode{Empty}}\end{description}% +Here is a table of links to indexes: \ocamlinlinecode{indexlist} + +Here is some superscript: x\textsuperscript{2} + +Here is some subscript: x\textsubscript{0} + +Here are some escaped brackets: \{ [ @ ] \} + +Here is some \emph{emphasis} \ocamlinlinecode{followed by code}. + +An unassociated comment + +\subsection{Level 1\label{level-1}}% +\subsubsection{Level 2\label{level-2}}% +\subsubsection{Level 3\label{level-3}}% +\subsubsection{Level 4\label{level-4}}% +\subsubsection{Basic module stuff\label{basic-module-stuff}}% +\label{container-page-test-module-Ocamlary-module-Empty}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Empty]{\ocamlinlinecode{Empty}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}A plain, empty module\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-Empty}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-Empty]{\ocamlinlinecode{Empty}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-Empty-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}An ambiguous, misnamed module type\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-MissingComment}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-MissingComment]{\ocamlinlinecode{MissingComment}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-MissingComment-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}An ambiguous, misnamed module type\end{ocamlindent}% +\medbreak +\subsection{Section 9000\label{s9000}}% +\label{container-page-test-module-Ocamlary-module-EmptyAlias}\ocamlcodefragment{\ocamltag{keyword}{module} EmptyAlias = \hyperref[container-page-test-module-Ocamlary-module-Empty]{\ocamlinlinecode{Empty}}}\begin{ocamlindent}A plain module alias of \ocamlinlinecode{Empty}\end{ocamlindent}% +\medbreak +\subsubsection{EmptySig\label{emptySig}}% +\label{container-page-test-module-Ocamlary-module-type-EmptySig}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-EmptySig]{\ocamlinlinecode{EmptySig}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}A plain, empty module signature\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-EmptySigAlias}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-EmptySigAlias]{\ocamlinlinecode{EmptySigAlias}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}A plain, empty module signature alias of\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-ModuleWithSignature}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-ModuleWithSignature]{\ocamlinlinecode{ModuleWithSignature}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-type-EmptySig]{\ocamlinlinecode{EmptySig}}}\begin{ocamlindent}A plain module of a signature of \hyperref[container-page-test-module-Ocamlary-module-type-EmptySig]{\ocamlinlinecode{\ocamlinlinecode{EmptySig}}[p\pageref*{container-page-test-module-Ocamlary-module-type-EmptySig}]} (reference)\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-ModuleWithSignatureAlias}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-ModuleWithSignatureAlias]{\ocamlinlinecode{ModuleWithSignatureAlias}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-type-EmptySigAlias]{\ocamlinlinecode{EmptySigAlias}}}\begin{ocamlindent}A plain module with an alias signature\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-One}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-One]{\ocamlinlinecode{One}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-One-type-one}\ocamlcodefragment{\ocamltag{keyword}{type} one}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-SigForMod}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-SigForMod]{\ocamlinlinecode{SigForMod}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-SigForMod-module-Inner}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-SigForMod-module-Inner]{\ocamlinlinecode{Inner}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-SigForMod-module-Inner-module-type-Empty}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-SigForMod-module-Inner-module-type-Empty]{\ocamlinlinecode{Empty}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}There's a signature in a module in this signature.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-SuperSig}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-SuperSig]{\ocamlinlinecode{SuperSig}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SubSigA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SubSigA]{\ocamlinlinecode{SubSigA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{A Labeled Section Header Inside of a Signature\label{subSig}}% +\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SubSigA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SubSigA-module-SubSigAMod}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SubSigA-module-SubSigAMod]{\ocamlinlinecode{SubSigAMod}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SubSigA-module-SubSigAMod-type-sub+u+sig+u+a+u+mod}\ocamlcodefragment{\ocamltag{keyword}{type} sub\_\allowbreak{}sig\_\allowbreak{}a\_\allowbreak{}mod}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SubSigB}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SubSigB]{\ocamlinlinecode{SubSigB}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\subsubsection{Another Labeled Section Header Inside of a Signature\label{subSig}}% +\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SubSigB-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-EmptySig}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-SuperSig-module-type-EmptySig]{\ocamlinlinecode{EmptySig}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-EmptySig-type-not+u+actually+u+empty}\ocamlcodefragment{\ocamltag{keyword}{type} not\_\allowbreak{}actually\_\allowbreak{}empty}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-One}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-SuperSig-module-type-One]{\ocamlinlinecode{One}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-One-type-two}\ocamlcodefragment{\ocamltag{keyword}{type} two}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SuperSig}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-SuperSig-module-type-SuperSig]{\ocamlinlinecode{SuperSig}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +For a good time, see \ocamlinlinecode{SuperSig}.SubSigA.subSig or \ocamlinlinecode{SuperSig}.SubSigB.subSig or \hyperref[container-page-test-module-Ocamlary-module-type-SuperSig-module-type-EmptySig]{\ocamlinlinecode{\ocamlinlinecode{SuperSig.\allowbreak{}EmptySig}}[p\pageref*{container-page-test-module-Ocamlary-module-type-SuperSig-module-type-EmptySig}]}. Section \hyperref[container-page-test-module-Ocamlary-s9000]{\ocamlinlinecode{Section 9000}[p\pageref*{container-page-test-module-Ocamlary-s9000}]} is also interesting. \hyperref[container-page-test-module-Ocamlary-emptySig]{\ocamlinlinecode{EmptySig}[p\pageref*{container-page-test-module-Ocamlary-emptySig}]} is the section and \hyperref[container-page-test-module-Ocamlary-module-type-EmptySig]{\ocamlinlinecode{\ocamlinlinecode{EmptySig}}[p\pageref*{container-page-test-module-Ocamlary-module-type-EmptySig}]} is the module signature. + +\label{container-page-test-module-Ocamlary-module-Buffer}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Buffer]{\ocamlinlinecode{Buffer}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Buffer-val-f}\ocamlcodefragment{\ocamltag{keyword}{val} f : \hyperref[xref-unresolved]{\ocamlinlinecode{Stdlib}}.\allowbreak{}Buffer.\allowbreak{}t \ocamltag{arrow}{$\rightarrow$} unit}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}\ocamlinlinecode{Buffer}.t\end{ocamlindent}% +\medbreak +Some text before exception title. + +\subsubsection{Basic exception stuff\label{basic-exception-stuff}}% +After exception title. + +\label{container-page-test-module-Ocamlary-exception-Kaboom}\ocamlcodefragment{\ocamltag{keyword}{exception} \ocamltag{exception}{Kaboom} \ocamltag{keyword}{of} unit}\begin{ocamlindent}Unary exception constructor\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-exception-Kablam}\ocamlcodefragment{\ocamltag{keyword}{exception} \ocamltag{exception}{Kablam} \ocamltag{keyword}{of} unit * unit}\begin{ocamlindent}Binary exception constructor\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-exception-Kapow}\ocamlcodefragment{\ocamltag{keyword}{exception} \ocamltag{exception}{Kapow} \ocamltag{keyword}{of} unit * unit}\begin{ocamlindent}Unary exception constructor over binary tuple\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-exception-EmptySig}\ocamlcodefragment{\ocamltag{keyword}{exception} \ocamltag{exception}{EmptySig}}\begin{ocamlindent}\hyperref[container-page-test-module-Ocamlary-module-type-EmptySig]{\ocamlinlinecode{\ocamlinlinecode{EmptySig}}[p\pageref*{container-page-test-module-Ocamlary-module-type-EmptySig}]} is a module and \hyperref[container-page-test-module-Ocamlary-exception-EmptySig]{\ocamlinlinecode{\ocamlinlinecode{EmptySig}}[p\pageref*{container-page-test-module-Ocamlary-exception-EmptySig}]} is this exception.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-exception-EmptySigAlias}\ocamlcodefragment{\ocamltag{keyword}{exception} \ocamltag{exception}{EmptySigAlias}}\begin{ocamlindent}\hyperref[container-page-test-module-Ocamlary-exception-EmptySigAlias]{\ocamlinlinecode{\ocamlinlinecode{EmptySigAlias}}[p\pageref*{container-page-test-module-Ocamlary-exception-EmptySigAlias}]} is this exception.\end{ocamlindent}% +\medbreak +\subsubsection{Basic type and value stuff with advanced doc comments\label{basic-type-and-value-stuff-with-advanced-doc-comments}}% +\label{container-page-test-module-Ocamlary-type-a+u+function}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) a\_\allowbreak{}function = \ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'b}}\begin{ocamlindent}\hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{\ocamlinlinecode{a\_\allowbreak{}function}}[p\pageref*{container-page-test-module-Ocamlary-type-a+u+function}]} is this type and \hyperref[container-page-test-module-Ocamlary-val-a+u+function]{\ocamlinlinecode{\ocamlinlinecode{a\_\allowbreak{}function}}[p\pageref*{container-page-test-module-Ocamlary-val-a+u+function}]} is the value below.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-val-a+u+function}\ocamlcodefragment{\ocamltag{keyword}{val} a\_\allowbreak{}function : x:int \ocamltag{arrow}{$\rightarrow$} int}\begin{ocamlindent}This is \ocamlinlinecode{a\_\allowbreak{}function} with param and return type.\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{parameter x}]{the \ocamlinlinecode{x} coordinate}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{returns}]{the \ocamlinlinecode{y} coordinate}\end{description}% +\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-val-fun+u+fun+u+fun}\ocamlcodefragment{\ocamltag{keyword}{val} fun\_\allowbreak{}fun\_\allowbreak{}fun : ((int,\allowbreak{} int) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}},\allowbreak{} (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\\ +\label{container-page-test-module-Ocamlary-val-fun+u+maybe}\ocamlcodefragment{\ocamltag{keyword}{val} fun\_\allowbreak{}maybe : ?yes:unit \ocamltag{arrow}{$\rightarrow$} unit \ocamltag{arrow}{$\rightarrow$} int}\\ +\label{container-page-test-module-Ocamlary-val-not+u+found}\ocamlcodefragment{\ocamltag{keyword}{val} not\_\allowbreak{}found : unit \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{raises Not\_\allowbreak{}found}]{That's all it does}\end{description}% +\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-val-ocaml+u+org}\ocamlcodefragment{\ocamltag{keyword}{val} ocaml\_\allowbreak{}org : string}\begin{ocamlindent}\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{see \href{http://ocaml.org/}{http://ocaml.org/}\footnote{\url{http://ocaml.org/}}}]{The OCaml Web site}\end{description}% +\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-val-some+u+file}\ocamlcodefragment{\ocamltag{keyword}{val} some\_\allowbreak{}file : string}\begin{ocamlindent}\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{see \ocamlinlinecode{some\_\allowbreak{}file}}]{The file called \ocamlinlinecode{some\_\allowbreak{}file}}\end{description}% +\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-val-some+u+doc}\ocamlcodefragment{\ocamltag{keyword}{val} some\_\allowbreak{}doc : string}\begin{ocamlindent}\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{see some\_\allowbreak{}doc}]{The document called \ocamlinlinecode{some\_\allowbreak{}doc}}\end{description}% +\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-val-since+u+mesozoic}\ocamlcodefragment{\ocamltag{keyword}{val} since\_\allowbreak{}mesozoic : unit}\begin{ocamlindent}This value was introduced in the Mesozoic era.\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{since}]{mesozoic}\end{description}% +\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-val-changing}\ocamlcodefragment{\ocamltag{keyword}{val} changing : unit}\begin{ocamlindent}This value has had changes in 1.0.0, 1.1.0, and 1.2.0.\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{before 1.\allowbreak{}0.\allowbreak{}0}]{before 1.0.0}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{before 1.\allowbreak{}1.\allowbreak{}0}]{before 1.1.0}\end{description}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{version}]{1.2.0}\end{description}% +\end{ocamlindent}% +\medbreak +\subsubsection{Some Operators\label{some-operators}}% +\label{container-page-test-module-Ocamlary-val-(+t+-)}\ocamlcodefragment{\ocamltag{keyword}{val} (\textasciitilde{}-) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(!)}\ocamlcodefragment{\ocamltag{keyword}{val} (!) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(@)}\ocamlcodefragment{\ocamltag{keyword}{val} (@) : unit}\\ +\label{container-page-test-module-Ocamlary-val-($)}\ocamlcodefragment{\ocamltag{keyword}{val} (\$) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(%)}\ocamlcodefragment{\ocamltag{keyword}{val} (\%) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(&)}\ocamlcodefragment{\ocamltag{keyword}{val} (\&) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(*)}\ocamlcodefragment{\ocamltag{keyword}{val} (*) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(-)}\ocamlcodefragment{\ocamltag{keyword}{val} (-) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(+++)}\ocamlcodefragment{\ocamltag{keyword}{val} (+) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(-?)}\ocamlcodefragment{\ocamltag{keyword}{val} (-?) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(/)}\ocamlcodefragment{\ocamltag{keyword}{val} (/) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(:=)}\ocamlcodefragment{\ocamltag{keyword}{val} (:=) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(=)}\ocamlcodefragment{\ocamltag{keyword}{val} (=) : unit}\\ +\label{container-page-test-module-Ocamlary-val-(land)}\ocamlcodefragment{\ocamltag{keyword}{val} (land) : unit}\\ +\subsubsection{Advanced Module Stuff\label{advanced-module-stuff}}% +\label{container-page-test-module-Ocamlary-module-CollectionModule}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CollectionModule]{\ocamlinlinecode{CollectionModule}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CollectionModule-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection}\begin{ocamlindent}This comment is for \ocamlinlinecode{collection}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-CollectionModule-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element}\\ +\label{container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-CollectionModule-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-CollectionModule-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-CollectionModule-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CollectionModule-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-CollectionModule-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{CollectionModule}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-COLLECTION}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION]{\ocamlinlinecode{COLLECTION}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}This comment is for \ocamlinlinecode{CollectionModule}. + +\label{container-page-test-module-Ocamlary-module-type-COLLECTION-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection}\begin{ocamlindent}This comment is for \ocamlinlinecode{collection}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-COLLECTION-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element}\\ +\label{container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-COLLECTION-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-COLLECTION-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}module type of\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-Recollection}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Recollection]{\ocamlinlinecode{Recollection}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C]{\ocamlinlinecode{C}} : \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION]{\ocamlinlinecode{COLLECTION}}) : \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION]{\ocamlinlinecode{COLLECTION}} \ocamltag{keyword}{with} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION-type-collection]{\ocamlinlinecode{collection}} = \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-type-element]{\ocamlinlinecode{C.\allowbreak{}element}} list \ocamltag{keyword}{and} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION-type-element]{\ocamlinlinecode{element}} = \hyperref[container-page-test-module-Ocamlary-module-Recollection-argument-1-C-type-collection]{\ocamlinlinecode{C.\allowbreak{}collection}}}\\ +\label{container-page-test-module-Ocamlary-module-type-MMM}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-MMM]{\ocamlinlinecode{MMM}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-MMM-module-C}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-MMM-module-C]{\ocamlinlinecode{C}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}This comment is for \ocamlinlinecode{CollectionModule}. + +\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection}\begin{ocamlindent}This comment is for \ocamlinlinecode{collection}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element}\\ +\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-MMM-module-C-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-MMM-module-C-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-MMM-module-C-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-MMM-module-C-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-RECOLLECTION}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-RECOLLECTION]{\ocamlinlinecode{RECOLLECTION}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-RECOLLECTION-module-C}\ocamlcodefragment{\ocamltag{keyword}{module} C = \hyperref[container-page-test-module-Ocamlary-module-Recollection]{\ocamlinlinecode{Recollection(CollectionModule)}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-RecollectionModule}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-RecollectionModule]{\ocamlinlinecode{RecollectionModule}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection = \hyperref[container-page-test-module-Ocamlary-module-CollectionModule-type-element]{\ocamlinlinecode{CollectionModule.\allowbreak{}element}} list}\\ +\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element = \hyperref[container-page-test-module-Ocamlary-module-CollectionModule-type-collection]{\ocamlinlinecode{CollectionModule.\allowbreak{}collection}}}\\ +\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-RecollectionModule-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-RecollectionModule-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-RecollectionModule-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-RecollectionModule-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-A}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-A]{\ocamlinlinecode{A}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-A-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-type-A-module-Q}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-A-module-Q]{\ocamlinlinecode{Q}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}This comment is for \ocamlinlinecode{CollectionModule}. + +\label{container-page-test-module-Ocamlary-module-type-A-module-Q-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection}\begin{ocamlindent}This comment is for \ocamlinlinecode{collection}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-A-module-Q-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element}\\ +\label{container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-A-module-Q-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-A-module-Q-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-A-module-Q-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-A-module-Q-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-A-module-Q-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-B}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-B]{\ocamlinlinecode{B}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-B-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-type-B-module-Q}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-B-module-Q]{\ocamlinlinecode{Q}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}This comment is for \ocamlinlinecode{CollectionModule}. + +\label{container-page-test-module-Ocamlary-module-type-B-module-Q-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection}\begin{ocamlindent}This comment is for \ocamlinlinecode{collection}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-B-module-Q-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element}\\ +\label{container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-B-module-Q-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-B-module-Q-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-B-module-Q-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-B-module-Q-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-B-module-Q-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-C}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-C]{\ocamlinlinecode{C}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\ocamltag{keyword}{include} \hyperref[container-page-test-module-Ocamlary-module-type-A]{\ocamlinlinecode{A}}\label{container-page-test-module-Ocamlary-module-type-C-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-type-C-module-Q}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-C-module-Q]{\ocamlinlinecode{Q}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}This comment is for \ocamlinlinecode{CollectionModule}. + +\label{container-page-test-module-Ocamlary-module-type-C-module-Q-type-collection}\ocamlcodefragment{\ocamltag{keyword}{type} collection}\begin{ocamlindent}This comment is for \ocamlinlinecode{collection}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-C-module-Q-type-element}\ocamlcodefragment{\ocamltag{keyword}{type} element}\\ +\label{container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA]{\ocamlinlinecode{InnerModuleA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-C-module-Q-type-collection]{\ocamlinlinecode{collection}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA-module-InnerModuleA'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA-module-InnerModuleA']{\ocamlinlinecode{InnerModuleA'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA-module-InnerModuleA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-a+u+function]{\ocamlinlinecode{a\_\allowbreak{}function}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA'}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA-module-type-InnerModuleTypeA'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA-module-type-InnerModuleTypeA']{\ocamlinlinecode{InnerModuleTypeA'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA-module-type-InnerModuleTypeA'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA'}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleA}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-C-module-Q-module-type-InnerModuleTypeA}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-C-module-Q-module-type-InnerModuleTypeA]{\ocamlinlinecode{InnerModuleTypeA}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-C-module-Q-module-type-InnerModuleTypeA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-type-C-module-Q-module-InnerModuleA-module-InnerModuleA'-type-t]{\ocamlinlinecode{InnerModuleA.\allowbreak{}InnerModuleA'.\allowbreak{}t}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{t}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{InnerModuleTypeA}.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Ocamlary-module-type-B]{\ocamlinlinecode{B}} \ocamltag{keyword}{with} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-B-type-t]{\ocamlinlinecode{t}} := \hyperref[container-page-test-module-Ocamlary-module-type-C-type-t]{\ocamlinlinecode{t}} \ocamltag{keyword}{and} \ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-B-module-Q]{\ocamlinlinecode{Q}} := \hyperref[container-page-test-module-Ocamlary-module-type-C-module-Q]{\ocamlinlinecode{Q}}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This module type includes two signatures.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-FunctorTypeOf}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf]{\ocamlinlinecode{FunctorTypeOf}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Ocamlary-module-FunctorTypeOf-argument-1-Collection]{\ocamlinlinecode{Collection}} : \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Ocamlary-module-CollectionModule]{\ocamlinlinecode{CollectionModule}}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{FunctorTypeOf}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-IncludeModuleType}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-IncludeModuleType]{\ocamlinlinecode{IncludeModuleType}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}This comment is for \ocamlinlinecode{include EmptySigAlias}.\ocamltag{keyword}{include} \hyperref[container-page-test-module-Ocamlary-module-type-EmptySigAlias]{\ocamlinlinecode{EmptySigAlias}}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}This comment is for \ocamlinlinecode{IncludeModuleType}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-type-ToInclude}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-ToInclude]{\ocamlinlinecode{ToInclude}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-ToInclude-module-IncludedA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-ToInclude-module-IncludedA]{\ocamlinlinecode{IncludedA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-ToInclude-module-IncludedA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-ToInclude-module-type-IncludedB}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-ToInclude-module-type-IncludedB]{\ocamlinlinecode{IncludedB}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-ToInclude-module-type-IncludedB-type-s}\ocamlcodefragment{\ocamltag{keyword}{type} s}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Ocamlary-module-type-ToInclude]{\ocamlinlinecode{ToInclude}}\label{container-page-test-module-Ocamlary-module-IncludedA}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-IncludedA]{\ocamlinlinecode{IncludedA}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-IncludedA-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-IncludedB}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-IncludedB]{\ocamlinlinecode{IncludedB}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-IncludedB-type-s}\ocamlcodefragment{\ocamltag{keyword}{type} s}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\subsubsection{Advanced Type Stuff\label{advanced-type-stuff}}% +\label{container-page-test-module-Ocamlary-type-record}\ocamlcodefragment{\ocamltag{keyword}{type} record = \{}\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlinlinecode{field1 : int;\allowbreak{}}\label{container-page-test-module-Ocamlary-type-record.field1}& This comment is for \ocamlinlinecode{field1}.\\ +\ocamlinlinecode{field2 : int;\allowbreak{}}\label{container-page-test-module-Ocamlary-type-record.field2}& This comment is for \ocamlinlinecode{field2}.\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\begin{ocamlindent}This comment is for \ocamlinlinecode{record}.This comment is also for \ocamlinlinecode{record}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-mutable+u+record}\ocamlcodefragment{\ocamltag{keyword}{type} mutable\_\allowbreak{}record = \{}\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlinlinecode{\ocamltag{keyword}{mutable} a : int;\allowbreak{}}\label{container-page-test-module-Ocamlary-type-mutable+u+record.a}& \ocamlinlinecode{a} is first and mutable\\ +\ocamlinlinecode{b : unit;\allowbreak{}}\label{container-page-test-module-Ocamlary-type-mutable+u+record.b}& \ocamlinlinecode{b} is second and immutable\\ +\ocamlinlinecode{\ocamltag{keyword}{mutable} c : int;\allowbreak{}}\label{container-page-test-module-Ocamlary-type-mutable+u+record.c}& \ocamlinlinecode{c} is third and mutable\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\\ +\label{container-page-test-module-Ocamlary-type-universe+u+record}\ocamlcodefragment{\ocamltag{keyword}{type} universe\_\allowbreak{}record = \{}\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{nihilate : a.\allowbreak{} \ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} unit;\allowbreak{}}\label{container-page-test-module-Ocamlary-type-universe+u+record.nihilate}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\\ +\label{container-page-test-module-Ocamlary-type-variant}\ocamlcodefragment{\ocamltag{keyword}{type} variant = }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{TagA}}\label{container-page-test-module-Ocamlary-type-variant.TagA}& This comment is for \ocamlinlinecode{TagA}.\\ +\ocamlcodefragment{| \ocamltag{constructor}{ConstrB} \ocamltag{keyword}{of} int}\label{container-page-test-module-Ocamlary-type-variant.ConstrB}& This comment is for \ocamlinlinecode{ConstrB}.\\ +\ocamlcodefragment{| \ocamltag{constructor}{ConstrC} \ocamltag{keyword}{of} int * int}\label{container-page-test-module-Ocamlary-type-variant.ConstrC}& This comment is for binary \ocamlinlinecode{ConstrC}.\\ +\ocamlcodefragment{| \ocamltag{constructor}{ConstrD} \ocamltag{keyword}{of} int * int}\label{container-page-test-module-Ocamlary-type-variant.ConstrD}& This comment is for unary \ocamlinlinecode{ConstrD} of binary tuple.\\ +\end{ocamltabular}% +\\ +\begin{ocamlindent}This comment is for \ocamlinlinecode{variant}.This comment is also for \ocamlinlinecode{variant}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-poly+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} poly\_\allowbreak{}variant = [ }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`TagA}\label{container-page-test-module-Ocamlary-type-poly+u+variant.TagA}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`ConstrB \ocamltag{keyword}{of} int}\label{container-page-test-module-Ocamlary-type-poly+u+variant.ConstrB}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\begin{ocamlindent}This comment is for \ocamlinlinecode{poly\_\allowbreak{}variant}.Wow! It was a polymorphic variant!\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-full+u+gadt}\ocamlcodefragment{\ocamltag{keyword}{type} (\_\allowbreak{},\allowbreak{} \_\allowbreak{}) full\_\allowbreak{}gadt = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{Tag} : (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-full+u+gadt]{\ocamlinlinecode{full\_\allowbreak{}gadt}}}\label{container-page-test-module-Ocamlary-type-full+u+gadt.Tag}\\ +\ocamlcodefragment{| \ocamltag{constructor}{First} : \ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} (\ocamltag{type-var}{'a},\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-full+u+gadt]{\ocamlinlinecode{full\_\allowbreak{}gadt}}}\label{container-page-test-module-Ocamlary-type-full+u+gadt.First}\\ +\ocamlcodefragment{| \ocamltag{constructor}{Second} : \ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} (unit,\allowbreak{} \ocamltag{type-var}{'a}) \hyperref[container-page-test-module-Ocamlary-type-full+u+gadt]{\ocamlinlinecode{full\_\allowbreak{}gadt}}}\label{container-page-test-module-Ocamlary-type-full+u+gadt.Second}\\ +\ocamlcodefragment{| \ocamltag{constructor}{Exist} : \ocamltag{type-var}{'a} * \ocamltag{type-var}{'b} \ocamltag{arrow}{$\rightarrow$} (\ocamltag{type-var}{'b},\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-full+u+gadt]{\ocamlinlinecode{full\_\allowbreak{}gadt}}}\label{container-page-test-module-Ocamlary-type-full+u+gadt.Exist}\\ +\end{ocamltabular}% +\\ +\begin{ocamlindent}This comment is for \ocamlinlinecode{full\_\allowbreak{}gadt}.Wow! It was a GADT!\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-partial+u+gadt}\ocamlcodefragment{\ocamltag{keyword}{type} 'a partial\_\allowbreak{}gadt = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{AscribeTag} : \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Ocamlary-type-partial+u+gadt]{\ocamlinlinecode{partial\_\allowbreak{}gadt}}}\label{container-page-test-module-Ocamlary-type-partial+u+gadt.AscribeTag}\\ +\ocamlcodefragment{| \ocamltag{constructor}{OfTag} \ocamltag{keyword}{of} \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Ocamlary-type-partial+u+gadt]{\ocamlinlinecode{partial\_\allowbreak{}gadt}}}\label{container-page-test-module-Ocamlary-type-partial+u+gadt.OfTag}\\ +\ocamlcodefragment{| \ocamltag{constructor}{ExistGadtTag} : (\ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'b}) \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Ocamlary-type-partial+u+gadt]{\ocamlinlinecode{partial\_\allowbreak{}gadt}}}\label{container-page-test-module-Ocamlary-type-partial+u+gadt.ExistGadtTag}\\ +\end{ocamltabular}% +\\ +\begin{ocamlindent}This comment is for \ocamlinlinecode{partial\_\allowbreak{}gadt}.Wow! It was a mixed GADT!\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-alias}\ocamlcodefragment{\ocamltag{keyword}{type} alias = \hyperref[container-page-test-module-Ocamlary-type-variant]{\ocamlinlinecode{variant}}}\begin{ocamlindent}This comment is for \ocamlinlinecode{alias}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-tuple}\ocamlcodefragment{\ocamltag{keyword}{type} tuple = (\hyperref[container-page-test-module-Ocamlary-type-alias]{\ocamlinlinecode{alias}} * \hyperref[container-page-test-module-Ocamlary-type-alias]{\ocamlinlinecode{alias}}) * \hyperref[container-page-test-module-Ocamlary-type-alias]{\ocamlinlinecode{alias}} * (\hyperref[container-page-test-module-Ocamlary-type-alias]{\ocamlinlinecode{alias}} * \hyperref[container-page-test-module-Ocamlary-type-alias]{\ocamlinlinecode{alias}})}\begin{ocamlindent}This comment is for \ocamlinlinecode{tuple}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-variant+u+alias}\ocamlcodefragment{\ocamltag{keyword}{type} variant\_\allowbreak{}alias = \hyperref[container-page-test-module-Ocamlary-type-variant]{\ocamlinlinecode{variant}} = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{TagA}}\label{container-page-test-module-Ocamlary-type-variant+u+alias.TagA}\\ +\ocamlcodefragment{| \ocamltag{constructor}{ConstrB} \ocamltag{keyword}{of} int}\label{container-page-test-module-Ocamlary-type-variant+u+alias.ConstrB}\\ +\ocamlcodefragment{| \ocamltag{constructor}{ConstrC} \ocamltag{keyword}{of} int * int}\label{container-page-test-module-Ocamlary-type-variant+u+alias.ConstrC}\\ +\ocamlcodefragment{| \ocamltag{constructor}{ConstrD} \ocamltag{keyword}{of} int * int}\label{container-page-test-module-Ocamlary-type-variant+u+alias.ConstrD}\\ +\end{ocamltabular}% +\\ +\begin{ocamlindent}This comment is for \ocamlinlinecode{variant\_\allowbreak{}alias}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-record+u+alias}\ocamlcodefragment{\ocamltag{keyword}{type} record\_\allowbreak{}alias = \hyperref[container-page-test-module-Ocamlary-type-record]{\ocamlinlinecode{record}} = \{}\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{field1 : int;\allowbreak{}}\label{container-page-test-module-Ocamlary-type-record+u+alias.field1}\\ +\ocamlinlinecode{field2 : int;\allowbreak{}}\label{container-page-test-module-Ocamlary-type-record+u+alias.field2}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\begin{ocamlindent}This comment is for \ocamlinlinecode{record\_\allowbreak{}alias}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-poly+u+variant+u+union}\ocamlcodefragment{\ocamltag{keyword}{type} poly\_\allowbreak{}variant\_\allowbreak{}union = [ }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{\hyperref[container-page-test-module-Ocamlary-type-poly+u+variant]{\ocamlinlinecode{poly\_\allowbreak{}variant}}}\label{container-page-test-module-Ocamlary-type-poly+u+variant+u+union.poly+u+variant}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`TagC}\label{container-page-test-module-Ocamlary-type-poly+u+variant+u+union.TagC}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\begin{ocamlindent}This comment is for \ocamlinlinecode{poly\_\allowbreak{}variant\_\allowbreak{}union}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-poly+u+poly+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a poly\_\allowbreak{}poly\_\allowbreak{}variant = [ }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`TagA \ocamltag{keyword}{of} \ocamltag{type-var}{'a}}\label{container-page-test-module-Ocamlary-type-poly+u+poly+u+variant.TagA}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\\ +\label{container-page-test-module-Ocamlary-type-bin+u+poly+u+poly+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) bin\_\allowbreak{}poly\_\allowbreak{}poly\_\allowbreak{}variant = [ }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`TagA \ocamltag{keyword}{of} \ocamltag{type-var}{'a}}\label{container-page-test-module-Ocamlary-type-bin+u+poly+u+poly+u+variant.TagA}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`ConstrB \ocamltag{keyword}{of} \ocamltag{type-var}{'b}}\label{container-page-test-module-Ocamlary-type-bin+u+poly+u+poly+u+variant.ConstrB}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\\ +\label{container-page-test-module-Ocamlary-type-open+u+poly+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a open\_\allowbreak{}poly\_\allowbreak{}variant = [> `TagA ] \ocamltag{keyword}{as} 'a}\\ +\label{container-page-test-module-Ocamlary-type-open+u+poly+u+variant2}\ocamlcodefragment{\ocamltag{keyword}{type} 'a open\_\allowbreak{}poly\_\allowbreak{}variant2 = [> `ConstrB of int ] \ocamltag{keyword}{as} 'a}\\ +\label{container-page-test-module-Ocamlary-type-open+u+poly+u+variant+u+alias}\ocamlcodefragment{\ocamltag{keyword}{type} 'a open\_\allowbreak{}poly\_\allowbreak{}variant\_\allowbreak{}alias = \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Ocamlary-type-open+u+poly+u+variant]{\ocamlinlinecode{open\_\allowbreak{}poly\_\allowbreak{}variant}} \hyperref[container-page-test-module-Ocamlary-type-open+u+poly+u+variant2]{\ocamlinlinecode{open\_\allowbreak{}poly\_\allowbreak{}variant2}}}\\ +\label{container-page-test-module-Ocamlary-type-poly+u+fun}\ocamlcodefragment{\ocamltag{keyword}{type} 'a poly\_\allowbreak{}fun = [> `ConstrB of int ] \ocamltag{keyword}{as} 'a \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'a}}\\ +\label{container-page-test-module-Ocamlary-type-poly+u+fun+u+constraint}\ocamlcodefragment{\ocamltag{keyword}{type} 'a poly\_\allowbreak{}fun\_\allowbreak{}constraint = \ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [> `TagA ]}\\ +\label{container-page-test-module-Ocamlary-type-closed+u+poly+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a closed\_\allowbreak{}poly\_\allowbreak{}variant = [< `One | `Two ] \ocamltag{keyword}{as} 'a}\\ +\label{container-page-test-module-Ocamlary-type-clopen+u+poly+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a clopen\_\allowbreak{}poly\_\allowbreak{}variant = [< `One | `Two of int | `Three Two Three ] \ocamltag{keyword}{as} 'a}\\ +\label{container-page-test-module-Ocamlary-type-nested+u+poly+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} nested\_\allowbreak{}poly\_\allowbreak{}variant = [ }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`A}\label{container-page-test-module-Ocamlary-type-nested+u+poly+u+variant.A}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`B \ocamltag{keyword}{of} [ `B1 | `B2 ]}\label{container-page-test-module-Ocamlary-type-nested+u+poly+u+variant.B}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`C}\label{container-page-test-module-Ocamlary-type-nested+u+poly+u+variant.C}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`D \ocamltag{keyword}{of} [ `D1 of [ `D1a ] ]}\label{container-page-test-module-Ocamlary-type-nested+u+poly+u+variant.D}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\\ +\label{container-page-test-module-Ocamlary-type-full+u+gadt+u+alias}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) full\_\allowbreak{}gadt\_\allowbreak{}alias = (\ocamltag{type-var}{'a},\allowbreak{} \ocamltag{type-var}{'b}) \hyperref[container-page-test-module-Ocamlary-type-full+u+gadt]{\ocamlinlinecode{full\_\allowbreak{}gadt}} = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{Tag} : (unit,\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-full+u+gadt+u+alias]{\ocamlinlinecode{full\_\allowbreak{}gadt\_\allowbreak{}alias}}}\label{container-page-test-module-Ocamlary-type-full+u+gadt+u+alias.Tag}\\ +\ocamlcodefragment{| \ocamltag{constructor}{First} : \ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} (\ocamltag{type-var}{'a},\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-full+u+gadt+u+alias]{\ocamlinlinecode{full\_\allowbreak{}gadt\_\allowbreak{}alias}}}\label{container-page-test-module-Ocamlary-type-full+u+gadt+u+alias.First}\\ +\ocamlcodefragment{| \ocamltag{constructor}{Second} : \ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} (unit,\allowbreak{} \ocamltag{type-var}{'a}) \hyperref[container-page-test-module-Ocamlary-type-full+u+gadt+u+alias]{\ocamlinlinecode{full\_\allowbreak{}gadt\_\allowbreak{}alias}}}\label{container-page-test-module-Ocamlary-type-full+u+gadt+u+alias.Second}\\ +\ocamlcodefragment{| \ocamltag{constructor}{Exist} : \ocamltag{type-var}{'a} * \ocamltag{type-var}{'b} \ocamltag{arrow}{$\rightarrow$} (\ocamltag{type-var}{'b},\allowbreak{} unit) \hyperref[container-page-test-module-Ocamlary-type-full+u+gadt+u+alias]{\ocamlinlinecode{full\_\allowbreak{}gadt\_\allowbreak{}alias}}}\label{container-page-test-module-Ocamlary-type-full+u+gadt+u+alias.Exist}\\ +\end{ocamltabular}% +\\ +\begin{ocamlindent}This comment is for \ocamlinlinecode{full\_\allowbreak{}gadt\_\allowbreak{}alias}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-partial+u+gadt+u+alias}\ocamlcodefragment{\ocamltag{keyword}{type} 'a partial\_\allowbreak{}gadt\_\allowbreak{}alias = \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Ocamlary-type-partial+u+gadt]{\ocamlinlinecode{partial\_\allowbreak{}gadt}} = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{AscribeTag} : \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Ocamlary-type-partial+u+gadt+u+alias]{\ocamlinlinecode{partial\_\allowbreak{}gadt\_\allowbreak{}alias}}}\label{container-page-test-module-Ocamlary-type-partial+u+gadt+u+alias.AscribeTag}\\ +\ocamlcodefragment{| \ocamltag{constructor}{OfTag} \ocamltag{keyword}{of} \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Ocamlary-type-partial+u+gadt+u+alias]{\ocamlinlinecode{partial\_\allowbreak{}gadt\_\allowbreak{}alias}}}\label{container-page-test-module-Ocamlary-type-partial+u+gadt+u+alias.OfTag}\\ +\ocamlcodefragment{| \ocamltag{constructor}{ExistGadtTag} : (\ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'b}) \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Ocamlary-type-partial+u+gadt+u+alias]{\ocamlinlinecode{partial\_\allowbreak{}gadt\_\allowbreak{}alias}}}\label{container-page-test-module-Ocamlary-type-partial+u+gadt+u+alias.ExistGadtTag}\\ +\end{ocamltabular}% +\\ +\begin{ocamlindent}This comment is for \ocamlinlinecode{partial\_\allowbreak{}gadt\_\allowbreak{}alias}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-exception-Exn+u+arrow}\ocamlcodefragment{\ocamltag{keyword}{exception} \ocamltag{exception}{Exn\_\allowbreak{}arrow} : unit \ocamltag{arrow}{$\rightarrow$} exn}\begin{ocamlindent}This comment is for \hyperref[container-page-test-module-Ocamlary-exception-Exn+u+arrow]{\ocamlinlinecode{\ocamlinlinecode{Exn\_\allowbreak{}arrow}}[p\pageref*{container-page-test-module-Ocamlary-exception-Exn+u+arrow}]}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-mutual+u+constr+u+a}\ocamlcodefragment{\ocamltag{keyword}{type} mutual\_\allowbreak{}constr\_\allowbreak{}a = }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A}}\label{container-page-test-module-Ocamlary-type-mutual+u+constr+u+a.A}& \\ +\ocamlcodefragment{| \ocamltag{constructor}{B\_\allowbreak{}ish} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Ocamlary-type-mutual+u+constr+u+b]{\ocamlinlinecode{mutual\_\allowbreak{}constr\_\allowbreak{}b}}}\label{container-page-test-module-Ocamlary-type-mutual+u+constr+u+a.B+u+ish}& This comment is between \hyperref[container-page-test-module-Ocamlary-type-mutual+u+constr+u+a]{\ocamlinlinecode{\ocamlinlinecode{mutual\_\allowbreak{}constr\_\allowbreak{}a}}[p\pageref*{container-page-test-module-Ocamlary-type-mutual+u+constr+u+a}]} and \hyperref[container-page-test-module-Ocamlary-type-mutual+u+constr+u+b]{\ocamlinlinecode{\ocamlinlinecode{mutual\_\allowbreak{}constr\_\allowbreak{}b}}[p\pageref*{container-page-test-module-Ocamlary-type-mutual+u+constr+u+b}]}.\\ +\end{ocamltabular}% +\\ +\begin{ocamlindent}This comment is for \hyperref[container-page-test-module-Ocamlary-type-mutual+u+constr+u+a]{\ocamlinlinecode{\ocamlinlinecode{mutual\_\allowbreak{}constr\_\allowbreak{}a}}[p\pageref*{container-page-test-module-Ocamlary-type-mutual+u+constr+u+a}]} then \hyperref[container-page-test-module-Ocamlary-type-mutual+u+constr+u+b]{\ocamlinlinecode{\ocamlinlinecode{mutual\_\allowbreak{}constr\_\allowbreak{}b}}[p\pageref*{container-page-test-module-Ocamlary-type-mutual+u+constr+u+b}]}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-mutual+u+constr+u+b}\ocamlcodefragment{\ocamltag{keyword}{and} mutual\_\allowbreak{}constr\_\allowbreak{}b = }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{B}}\label{container-page-test-module-Ocamlary-type-mutual+u+constr+u+b.B}& \\ +\ocamlcodefragment{| \ocamltag{constructor}{A\_\allowbreak{}ish} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Ocamlary-type-mutual+u+constr+u+a]{\ocamlinlinecode{mutual\_\allowbreak{}constr\_\allowbreak{}a}}}\label{container-page-test-module-Ocamlary-type-mutual+u+constr+u+b.A+u+ish}& This comment must be here for the next to associate correctly.\\ +\end{ocamltabular}% +\\ +\begin{ocamlindent}This comment is for \hyperref[container-page-test-module-Ocamlary-type-mutual+u+constr+u+b]{\ocamlinlinecode{\ocamlinlinecode{mutual\_\allowbreak{}constr\_\allowbreak{}b}}[p\pageref*{container-page-test-module-Ocamlary-type-mutual+u+constr+u+b}]} then \hyperref[container-page-test-module-Ocamlary-type-mutual+u+constr+u+a]{\ocamlinlinecode{\ocamlinlinecode{mutual\_\allowbreak{}constr\_\allowbreak{}a}}[p\pageref*{container-page-test-module-Ocamlary-type-mutual+u+constr+u+a}]}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-rec+u+obj}\ocamlcodefragment{\ocamltag{keyword}{type} rec\_\allowbreak{}obj = < f : int;\allowbreak{} g : unit \ocamltag{arrow}{$\rightarrow$} unit;\allowbreak{} h : \hyperref[container-page-test-module-Ocamlary-type-rec+u+obj]{\ocamlinlinecode{rec\_\allowbreak{}obj}};\allowbreak{} >}\\ +\label{container-page-test-module-Ocamlary-type-open+u+obj}\ocamlcodefragment{\ocamltag{keyword}{type} 'a open\_\allowbreak{}obj = < f : int;\allowbreak{} g : unit \ocamltag{arrow}{$\rightarrow$} unit;\allowbreak{} .\allowbreak{}.\allowbreak{} > \ocamltag{keyword}{as} 'a}\\ +\label{container-page-test-module-Ocamlary-type-oof}\ocamlcodefragment{\ocamltag{keyword}{type} 'a oof = < a : unit;\allowbreak{} .\allowbreak{}.\allowbreak{} > \ocamltag{keyword}{as} 'a \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'a}}\\ +\label{container-page-test-module-Ocamlary-type-any+u+obj}\ocamlcodefragment{\ocamltag{keyword}{type} 'a any\_\allowbreak{}obj = < .\allowbreak{}.\allowbreak{} > \ocamltag{keyword}{as} 'a}\\ +\label{container-page-test-module-Ocamlary-type-empty+u+obj}\ocamlcodefragment{\ocamltag{keyword}{type} empty\_\allowbreak{}obj = < >}\\ +\label{container-page-test-module-Ocamlary-type-one+u+meth}\ocamlcodefragment{\ocamltag{keyword}{type} one\_\allowbreak{}meth = < meth : unit;\allowbreak{} >}\\ +\label{container-page-test-module-Ocamlary-type-ext}\ocamlcodefragment{\ocamltag{keyword}{type} ext = .\allowbreak{}.\allowbreak{}}\begin{ocamlindent}A mystery wrapped in an ellipsis\end{ocamlindent}% +\medbreak +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-type-ext]{\ocamlinlinecode{ext}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{ExtA}}\label{container-page-test-module-Ocamlary-extension-ExtA}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-type-ext]{\ocamlinlinecode{ext}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{ExtB}}\label{container-page-test-module-Ocamlary-extension-ExtB}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-type-ext]{\ocamlinlinecode{ext}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{ExtC} \ocamltag{keyword}{of} unit}\label{container-page-test-module-Ocamlary-extension-ExtC}\\ +\ocamlcodefragment{| \ocamltag{extension}{ExtD} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Ocamlary-type-ext]{\ocamlinlinecode{ext}}}\label{container-page-test-module-Ocamlary-extension-ExtD}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-type-ext]{\ocamlinlinecode{ext}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{ExtE}}\label{container-page-test-module-Ocamlary-extension-ExtE}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-type-ext]{\ocamlinlinecode{ext}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{ExtF}}\label{container-page-test-module-Ocamlary-extension-ExtF}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Ocamlary-type-poly+u+ext}\ocamlcodefragment{\ocamltag{keyword}{type} 'a poly\_\allowbreak{}ext = .\allowbreak{}.\allowbreak{}}\begin{ocamlindent}'a poly\_ext\end{ocamlindent}% +\medbreak +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-type-poly+u+ext]{\ocamlinlinecode{poly\_\allowbreak{}ext}} += }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{Foo} \ocamltag{keyword}{of} \ocamltag{type-var}{'b}}\label{container-page-test-module-Ocamlary-extension-Foo}& \\ +\ocamlcodefragment{| \ocamltag{extension}{Bar} \ocamltag{keyword}{of} \ocamltag{type-var}{'b} * \ocamltag{type-var}{'b}}\label{container-page-test-module-Ocamlary-extension-Bar}& 'b poly\_ext\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-type-poly+u+ext]{\ocamlinlinecode{poly\_\allowbreak{}ext}} += }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{Quux} \ocamltag{keyword}{of} \ocamltag{type-var}{'c}}\label{container-page-test-module-Ocamlary-extension-Quux}& 'c poly\_ext\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Ocamlary-module-ExtMod}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-ExtMod]{\ocamlinlinecode{ExtMod}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-ExtMod-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = .\allowbreak{}.\allowbreak{}}\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-ExtMod-type-t]{\ocamlinlinecode{t}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{Leisureforce}}\label{container-page-test-module-Ocamlary-module-ExtMod-extension-Leisureforce}\\ +\end{ocamltabular}% +\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-ExtMod-type-t]{\ocamlinlinecode{ExtMod.\allowbreak{}t}} += }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{ZzzTop0}}\label{container-page-test-module-Ocamlary-extension-ZzzTop0}& It's got the rock\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-ExtMod-type-t]{\ocamlinlinecode{ExtMod.\allowbreak{}t}} += }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{ZzzTop} \ocamltag{keyword}{of} unit}\label{container-page-test-module-Ocamlary-extension-ZzzTop}& and it packs a unit.\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Ocamlary-val-launch+u+missiles}\ocamlcodefragment{\ocamltag{keyword}{val} launch\_\allowbreak{}missiles : unit \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}Rotate keys on my mark...\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-type-my+u+mod}\ocamlcodefragment{\ocamltag{keyword}{type} my\_\allowbreak{}mod = (\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-COLLECTION]{\ocamlinlinecode{COLLECTION}})}\begin{ocamlindent}A brown paper package tied up with string\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-class-empty+u+class}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Ocamlary-class-empty+u+class]{\ocamlinlinecode{empty\_\allowbreak{}class}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-class-one+u+method+u+class}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Ocamlary-class-one+u+method+u+class]{\ocamlinlinecode{one\_\allowbreak{}method\_\allowbreak{}class}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-class-two+u+method+u+class}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Ocamlary-class-two+u+method+u+class]{\ocamlinlinecode{two\_\allowbreak{}method\_\allowbreak{}class}}}\ocamlcodefragment{ : \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-class-param+u+class}\ocamlcodefragment{\ocamltag{keyword}{class} 'a \hyperref[container-page-test-module-Ocamlary-class-param+u+class]{\ocamlinlinecode{param\_\allowbreak{}class}}}\ocamlcodefragment{ : \ocamltag{type-var}{'a} \ocamltag{arrow}{$\rightarrow$} \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-type-my+u+unit+u+object}\ocamlcodefragment{\ocamltag{keyword}{type} my\_\allowbreak{}unit\_\allowbreak{}object = unit \hyperref[container-page-test-module-Ocamlary-class-param+u+class]{\ocamlinlinecode{param\_\allowbreak{}class}}}\\ +\label{container-page-test-module-Ocamlary-type-my+u+unit+u+class}\ocamlcodefragment{\ocamltag{keyword}{type} 'a my\_\allowbreak{}unit\_\allowbreak{}class = unit \hyperref[xref-unresolved]{\ocamlinlinecode{param\_\allowbreak{}class}} \ocamltag{keyword}{as} 'a}\\ +\label{container-page-test-module-Ocamlary-module-Dep1}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep1]{\ocamlinlinecode{Dep1}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep1-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep1-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep1-module-type-S-class-c}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Ocamlary-module-Dep1-module-type-S-class-c]{\ocamlinlinecode{c}}}\ocamlcodefragment{ : \ocamltag{keyword}{object}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep1-module-type-S-class-c-method-m}\ocamlcodefragment{\ocamltag{keyword}{method} m : int}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep1-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep1-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep1-module-X-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep1-module-X-module-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-Dep1-module-type-S]{\ocamlinlinecode{S}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep2}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep2]{\ocamlinlinecode{Dep2}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Ocamlary-module-Dep2-argument-1-Arg]{\ocamlinlinecode{Arg}} : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-type-dep1}\ocamlcodefragment{\ocamltag{keyword}{type} dep1 = \hyperref[container-page-test-module-Ocamlary-module-Dep1-module-type-S-class-c]{\ocamlinlinecode{Dep2(Dep1).\allowbreak{}B.\allowbreak{}c}}}\\ +\label{container-page-test-module-Ocamlary-module-Dep3}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep3]{\ocamlinlinecode{Dep3}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep3-type-a}\ocamlcodefragment{\ocamltag{keyword}{type} a}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep4}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep4]{\ocamlinlinecode{Dep4}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep4-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep4-module-type-T]{\ocamlinlinecode{T}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep4-module-type-T-type-b}\ocamlcodefragment{\ocamltag{keyword}{type} b}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep4-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep4-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep4-module-type-S-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep4-module-type-S-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep4-module-type-S-module-X-type-b}\ocamlcodefragment{\ocamltag{keyword}{type} b}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep4-module-type-S-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep4-module-type-S-module-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep4-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep4-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-Dep4-module-type-T]{\ocamlinlinecode{T}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep5}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep5]{\ocamlinlinecode{Dep5}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Ocamlary-module-Dep5-argument-1-Arg]{\ocamlinlinecode{Arg}} : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-type-dep2}\ocamlcodefragment{\ocamltag{keyword}{type} dep2 = \hyperref[container-page-test-module-Ocamlary-module-Dep4-module-type-T-type-b]{\ocamlinlinecode{Dep5(Dep4).\allowbreak{}Z.\allowbreak{}X.\allowbreak{}b}}}\\ +\label{container-page-test-module-Ocamlary-type-dep3}\ocamlcodefragment{\ocamltag{keyword}{type} dep3 = \hyperref[container-page-test-module-Ocamlary-module-Dep3-type-a]{\ocamlinlinecode{Dep5(Dep4).\allowbreak{}Z.\allowbreak{}Y.\allowbreak{}a}}}\\ +\label{container-page-test-module-Ocamlary-module-Dep6}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep6]{\ocamlinlinecode{Dep6}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep6-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep6-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep6-module-type-S-type-d}\ocamlcodefragment{\ocamltag{keyword}{type} d}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep6-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep6-module-type-T]{\ocamlinlinecode{T}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep6-module-type-T-module-type-R}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep6-module-type-T-module-type-R]{\ocamlinlinecode{R}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep6-module-type-T-module-type-R-type-d}\ocamlcodefragment{\ocamltag{keyword}{type} d}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep6-module-type-T-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep6-module-type-T-module-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep6-module-type-T-module-Y-type-d}\ocamlcodefragment{\ocamltag{keyword}{type} d}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep6-module-X}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep6-module-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-Dep6-module-type-T]{\ocamlinlinecode{T}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep7}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep7]{\ocamlinlinecode{Dep7}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Ocamlary-module-Dep7-argument-1-Arg]{\ocamlinlinecode{Arg}} : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-type-dep4}\ocamlcodefragment{\ocamltag{keyword}{type} dep4 = \hyperref[container-page-test-module-Ocamlary-module-Dep6-module-type-T-module-Y-type-d]{\ocamlinlinecode{Dep7(Dep6).\allowbreak{}M.\allowbreak{}Y.\allowbreak{}d}}}\\ +\label{container-page-test-module-Ocamlary-module-Dep8}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep8]{\ocamlinlinecode{Dep8}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep8-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep8-module-type-T]{\ocamlinlinecode{T}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep8-module-type-T-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep9}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep9]{\ocamlinlinecode{Dep9}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Ocamlary-module-Dep9-argument-1-X]{\ocamlinlinecode{X}} : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-Dep10}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-Dep10]{\ocamlinlinecode{Dep10}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-Dep10-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep11}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep11]{\ocamlinlinecode{Dep11}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep11-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-Dep11-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep11-module-type-S-class-c}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Ocamlary-module-Dep11-module-type-S-class-c]{\ocamlinlinecode{c}}}\ocamlcodefragment{ : \ocamltag{keyword}{object}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Dep11-module-type-S-class-c-method-m}\ocamlcodefragment{\ocamltag{keyword}{method} m : int}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep12}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep12]{\ocamlinlinecode{Dep12}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Ocamlary-module-Dep12-argument-1-Arg]{\ocamlinlinecode{Arg}} : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Dep13}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Dep13]{\ocamlinlinecode{Dep13}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-Dep11-module-type-S]{\ocamlinlinecode{Dep12(Dep11).\allowbreak{}T}}}\\ +\label{container-page-test-module-Ocamlary-type-dep5}\ocamlcodefragment{\ocamltag{keyword}{type} dep5 = \hyperref[container-page-test-module-Ocamlary-module-Dep13-class-c]{\ocamlinlinecode{Dep13.\allowbreak{}c}}}\\ +\label{container-page-test-module-Ocamlary-module-type-With1}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-With1]{\ocamlinlinecode{With1}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-With1-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-With1-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-With1-module-M-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} S}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-With1-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} N : \hyperref[container-page-test-module-Ocamlary-module-type-With1-module-M-module-type-S]{\ocamlinlinecode{M.\allowbreak{}S}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-With2}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With2]{\ocamlinlinecode{With2}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With2-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-With2-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With2-module-type-S-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-With3}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With3]{\ocamlinlinecode{With3}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-type-With1]{\ocamlinlinecode{With1}} \ocamltag{keyword}{with} \ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-With1-module-M]{\ocamlinlinecode{M}} = \hyperref[container-page-test-module-Ocamlary-module-With2]{\ocamlinlinecode{With2}}}\\ +\label{container-page-test-module-Ocamlary-type-with1}\ocamlcodefragment{\ocamltag{keyword}{type} with1 = \hyperref[container-page-test-module-Ocamlary-module-With3-module-N-type-t]{\ocamlinlinecode{With3.\allowbreak{}N.\allowbreak{}t}}}\\ +\label{container-page-test-module-Ocamlary-module-With4}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With4]{\ocamlinlinecode{With4}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-type-With1]{\ocamlinlinecode{With1}} \ocamltag{keyword}{with} \ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-With1-module-M]{\ocamlinlinecode{M}} := \hyperref[container-page-test-module-Ocamlary-module-With2]{\ocamlinlinecode{With2}}}\\ +\label{container-page-test-module-Ocamlary-type-with2}\ocamlcodefragment{\ocamltag{keyword}{type} with2 = \hyperref[container-page-test-module-Ocamlary-module-With4-module-N-type-t]{\ocamlinlinecode{With4.\allowbreak{}N.\allowbreak{}t}}}\\ +\label{container-page-test-module-Ocamlary-module-With5}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With5]{\ocamlinlinecode{With5}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With5-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-With5-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With5-module-type-S-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-With5-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With5-module-N]{\ocamlinlinecode{N}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Ocamlary-module-With5-module-type-S]{\ocamlinlinecode{S}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-With6}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With6]{\ocamlinlinecode{With6}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With6-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-With6-module-type-T]{\ocamlinlinecode{T}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With6-module-type-T-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With6-module-type-T-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With6-module-type-T-module-M-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} S}\\ +\label{container-page-test-module-Ocamlary-module-With6-module-type-T-module-M-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} N : \hyperref[container-page-test-module-Ocamlary-module-With6-module-type-T-module-M-module-type-S]{\ocamlinlinecode{S}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-With7}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With7]{\ocamlinlinecode{With7}}}\ocamlcodefragment{ (\hyperref[container-page-test-module-Ocamlary-module-With7-argument-1-X]{\ocamlinlinecode{X}} : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}) : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-With8}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-With8]{\ocamlinlinecode{With8}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-With8-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-With8-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-With8-module-M-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-With8-module-M-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-With8-module-M-module-type-S-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-With8-module-M-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-With8-module-M-module-N]{\ocamlinlinecode{N}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-With8-module-M-module-N-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = \hyperref[container-page-test-module-Ocamlary-module-With5-module-N-type-t]{\ocamlinlinecode{With5.\allowbreak{}N.\allowbreak{}t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-With9}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With9]{\ocamlinlinecode{With9}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With9-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-With9-module-type-S]{\ocamlinlinecode{S}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With9-module-type-S-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-With10}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With10]{\ocamlinlinecode{With10}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With10-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-With10-module-type-T]{\ocamlinlinecode{T}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With10-module-type-T-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-With10-module-type-T-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-With10-module-type-T-module-M-module-type-S}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} S}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-With10-module-type-T-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} N : \hyperref[container-page-test-module-Ocamlary-module-With10-module-type-T-module-M-module-type-S]{\ocamlinlinecode{M.\allowbreak{}S}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}\hyperref[container-page-test-module-Ocamlary-module-With10-module-type-T]{\ocamlinlinecode{\ocamlinlinecode{With10.\allowbreak{}T}}[p\pageref*{container-page-test-module-Ocamlary-module-With10-module-type-T}]} is a submodule type.\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-With11}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-With11]{\ocamlinlinecode{With11}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-With11-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} M = \hyperref[container-page-test-module-Ocamlary-module-With9]{\ocamlinlinecode{With9}}}\\ +\label{container-page-test-module-Ocamlary-module-type-With11-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-type-With11-module-N]{\ocamlinlinecode{N}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-With11-module-N-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = int}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-type-NestedInclude1}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-NestedInclude1]{\ocamlinlinecode{NestedInclude1}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-NestedInclude1-module-type-NestedInclude2}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-NestedInclude1-module-type-NestedInclude2]{\ocamlinlinecode{NestedInclude2}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-NestedInclude1-module-type-NestedInclude2-type-nested+u+include}\ocamlcodefragment{\ocamltag{keyword}{type} nested\_\allowbreak{}include}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Ocamlary-module-type-NestedInclude1]{\ocamlinlinecode{NestedInclude1}}\label{container-page-test-module-Ocamlary-module-type-NestedInclude2}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-NestedInclude2]{\ocamlinlinecode{NestedInclude2}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-NestedInclude2-type-nested+u+include}\ocamlcodefragment{\ocamltag{keyword}{type} nested\_\allowbreak{}include}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Ocamlary-module-type-NestedInclude2]{\ocamlinlinecode{NestedInclude2}} \ocamltag{keyword}{with} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-NestedInclude2-type-nested+u+include]{\ocamlinlinecode{nested\_\allowbreak{}include}} = int\label{container-page-test-module-Ocamlary-type-nested+u+include}\ocamlcodefragment{\ocamltag{keyword}{type} nested\_\allowbreak{}include = int}\\ +\label{container-page-test-module-Ocamlary-module-DoubleInclude1}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-DoubleInclude1]{\ocamlinlinecode{DoubleInclude1}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-DoubleInclude1-module-DoubleInclude2}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-DoubleInclude1-module-DoubleInclude2]{\ocamlinlinecode{DoubleInclude2}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-DoubleInclude1-module-DoubleInclude2-type-double+u+include}\ocamlcodefragment{\ocamltag{keyword}{type} double\_\allowbreak{}include}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-DoubleInclude3}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-DoubleInclude3]{\ocamlinlinecode{DoubleInclude3}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Ocamlary-module-DoubleInclude1]{\ocamlinlinecode{DoubleInclude1}}\label{container-page-test-module-Ocamlary-module-DoubleInclude3-module-DoubleInclude2}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-DoubleInclude3-module-DoubleInclude2]{\ocamlinlinecode{DoubleInclude2}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-DoubleInclude3-module-DoubleInclude2-type-double+u+include}\ocamlcodefragment{\ocamltag{keyword}{type} double\_\allowbreak{}include}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Ocamlary-module-DoubleInclude3-module-DoubleInclude2]{\ocamlinlinecode{DoubleInclude3.\allowbreak{}DoubleInclude2}}\label{container-page-test-module-Ocamlary-type-double+u+include}\ocamlcodefragment{\ocamltag{keyword}{type} double\_\allowbreak{}include}\\ +\label{container-page-test-module-Ocamlary-module-IncludeInclude1}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-IncludeInclude1]{\ocamlinlinecode{IncludeInclude1}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-IncludeInclude1-module-type-IncludeInclude2}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-IncludeInclude1-module-type-IncludeInclude2]{\ocamlinlinecode{IncludeInclude2}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-IncludeInclude1-module-type-IncludeInclude2-type-include+u+include}\ocamlcodefragment{\ocamltag{keyword}{type} include\_\allowbreak{}include}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Ocamlary-module-IncludeInclude1]{\ocamlinlinecode{IncludeInclude1}}\label{container-page-test-module-Ocamlary-module-type-IncludeInclude2}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-IncludeInclude2]{\ocamlinlinecode{IncludeInclude2}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-IncludeInclude2-type-include+u+include}\ocamlcodefragment{\ocamltag{keyword}{type} include\_\allowbreak{}include}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\ocamltag{keyword}{include} \hyperref[container-page-test-module-Ocamlary-module-type-IncludeInclude2]{\ocamlinlinecode{IncludeInclude2}}\label{container-page-test-module-Ocamlary-type-include+u+include}\ocamlcodefragment{\ocamltag{keyword}{type} include\_\allowbreak{}include}\\ +\subsection{Trying the \{!modules: ...\} command.\label{indexmodules}}% +With ocamldoc, toplevel units will be linked and documented, while submodules will behave as simple references. + +With odoc, everything should be resolved (and linked) but only toplevel units will be documented. + +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{\hyperref[container-page-test-module-Ocamlary-module-Dep1-module-X]{\ocamlinlinecode{\ocamlinlinecode{Dep1.\allowbreak{}X}}[p\pageref*{container-page-test-module-Ocamlary-module-Dep1-module-X}]}}]{}% +\item[{\ocamlinlinecode{DocOckTypes}}]{}% +\item[{\hyperref[container-page-test-module-Ocamlary-module-IncludeInclude1]{\ocamlinlinecode{\ocamlinlinecode{Ocamlary.\allowbreak{}IncludeInclude1}}[p\pageref*{container-page-test-module-Ocamlary-module-IncludeInclude1}]}}]{}% +\item[{\hyperref[container-page-test-module-Ocamlary]{\ocamlinlinecode{\ocamlinlinecode{Ocamlary}}[p\pageref*{container-page-test-module-Ocamlary}]}}]{This is an \emph{interface} with \bold{all} of the \emph{module system} features. This documentation demonstrates:}\end{description}% +\subsubsection{Weirder usages involving module types\label{weirder-usages-involving-module-types}}% +\begin{description}\kern-\topsep +\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded +\item[{\ocamlinlinecode{IncludeInclude1}.IncludeInclude2}]{}% +\item[{\ocamlinlinecode{Dep4}.T}]{}% +\item[{\hyperref[container-page-test-module-Ocamlary-module-type-A-module-Q]{\ocamlinlinecode{\ocamlinlinecode{A.\allowbreak{}Q}}[p\pageref*{container-page-test-module-Ocamlary-module-type-A-module-Q}]}}]{}\end{description}% +\subsection{Playing with @canonical paths\label{playing-with-@canonical-paths}}% +\label{container-page-test-module-Ocamlary-module-CanonicalTest}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest]{\ocamlinlinecode{CanonicalTest}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+List}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+List]{\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}List}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+List-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} 'a t}\\ +\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+List-val-id}\ocamlcodefragment{\ocamltag{keyword}{val} id : \ocamltag{type-var}{'a} \hyperref[xref-unresolved]{\ocamlinlinecode{t}} \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'a} \hyperref[xref-unresolved]{\ocamlinlinecode{t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+]{\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+-module-List}\ocamlcodefragment{\ocamltag{keyword}{module} List = \hyperref[xref-unresolved]{\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}List}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base]{\ocamlinlinecode{Base}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base-module-List}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base-module-List]{\ocamlinlinecode{List}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests]{\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}Tests}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests-module-C}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests-module-C]{\ocamlinlinecode{C}}}\ocamlcodefragment{ : \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \hyperref[xref-unresolved]{\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}}}.\allowbreak{}List}\\ +\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests-module-L}\ocamlcodefragment{\ocamltag{keyword}{module} L = \hyperref[xref-unresolved]{\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}}}.\allowbreak{}List}\\ +\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : \hyperref[xref-unresolved]{\ocamlinlinecode{int}} \hyperref[xref-unresolved]{\ocamlinlinecode{L}}.\allowbreak{}t \ocamltag{arrow}{$\rightarrow$} \hyperref[xref-unresolved]{\ocamlinlinecode{float}} \hyperref[xref-unresolved]{\ocamlinlinecode{L}}.\allowbreak{}t}\\ +\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests-val-bar}\ocamlcodefragment{\ocamltag{keyword}{val} bar : \ocamltag{type-var}{'a} \hyperref[xref-unresolved]{\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}}}.\allowbreak{}List.\allowbreak{}t \ocamltag{arrow}{$\rightarrow$} \ocamltag{type-var}{'a} \hyperref[xref-unresolved]{\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}}}.\allowbreak{}List.\allowbreak{}t}\begin{ocamlindent}This is just \ocamlinlinecode{List}.id, or rather \ocamlinlinecode{L}.id\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests-val-baz}\ocamlcodefragment{\ocamltag{keyword}{val} baz : \ocamltag{type-var}{'a} \hyperref[xref-unresolved]{\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}}}.\allowbreak{}List.\allowbreak{}t \ocamltag{arrow}{$\rightarrow$} \hyperref[xref-unresolved]{\ocamlinlinecode{unit}}}\begin{ocamlindent}Just seeing if \ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}}.List.t (\ocamlinlinecode{Base\_\allowbreak{}\_\allowbreak{}.\allowbreak{}List.\allowbreak{}t}) gets rewriten to \ocamlinlinecode{Base}.List.t (\ocamlinlinecode{Base.\allowbreak{}List.\allowbreak{}t})\end{ocamlindent}% +\medbreak +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-CanonicalTest-module-List+u+modif}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-List+u+modif]{\ocamlinlinecode{List\_\allowbreak{}modif}}}\ocamlcodefragment{ : \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base-module-List]{\ocamlinlinecode{Base.\allowbreak{}List}} \ocamltag{keyword}{with} \ocamltag{keyword}{type} 'c \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base-module-List-type-t]{\ocamlinlinecode{t}} = \ocamltag{type-var}{'c} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base-module-List-type-t]{\ocamlinlinecode{Base.\allowbreak{}List.\allowbreak{}t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-val-test}\ocamlcodefragment{\ocamltag{keyword}{val} test : \ocamltag{type-var}{'a} \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base-module-List-type-t]{\ocamlinlinecode{CanonicalTest.\allowbreak{}Base.\allowbreak{}List.\allowbreak{}t}} \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}Some ref to \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests-module-C-type-t]{\ocamlinlinecode{\ocamlinlinecode{CanonicalTest.\allowbreak{}Base\_\allowbreak{}\_\allowbreak{}Tests.\allowbreak{}C.\allowbreak{}t}}[p\pageref*{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+Tests-module-C-type-t}]} and \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base-module-List-val-id]{\ocamlinlinecode{\ocamlinlinecode{CanonicalTest.\allowbreak{}Base\_\allowbreak{}\_\allowbreak{}Tests.\allowbreak{}L.\allowbreak{}id}}[p\pageref*{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base-module-List-val-id}]}. But also to \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+-module-List]{\ocamlinlinecode{\ocamlinlinecode{CanonicalTest.\allowbreak{}Base\_\allowbreak{}\_\allowbreak{}.\allowbreak{}List}}[p\pageref*{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+-module-List}]} and \hyperref[container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+-module-List-type-t]{\ocamlinlinecode{\ocamlinlinecode{CanonicalTest.\allowbreak{}Base\_\allowbreak{}\_\allowbreak{}.\allowbreak{}List.\allowbreak{}t}}[p\pageref*{container-page-test-module-Ocamlary-module-CanonicalTest-module-Base+u++u+-module-List-type-t}]}\end{ocamlindent}% +\medbreak +\subsection{Aliases again\label{aliases}}% +\label{container-page-test-module-Ocamlary-module-Aliases}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases]{\ocamlinlinecode{Aliases}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+A}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+A]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}A}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+A-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+A-val-id}\ocamlcodefragment{\ocamltag{keyword}{val} id : \hyperref[xref-unresolved]{\ocamlinlinecode{t}} \ocamltag{arrow}{$\rightarrow$} \hyperref[xref-unresolved]{\ocamlinlinecode{t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+B}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+B]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}B}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+B-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+B-val-id}\ocamlcodefragment{\ocamltag{keyword}{val} id : \hyperref[xref-unresolved]{\ocamlinlinecode{t}} \ocamltag{arrow}{$\rightarrow$} \hyperref[xref-unresolved]{\ocamlinlinecode{t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+C}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+C]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}C}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+C-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+C-val-id}\ocamlcodefragment{\ocamltag{keyword}{val} id : \hyperref[xref-unresolved]{\ocamlinlinecode{t}} \ocamltag{arrow}{$\rightarrow$} \hyperref[xref-unresolved]{\ocamlinlinecode{t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+D}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+D]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}D}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+D-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+D-val-id}\ocamlcodefragment{\ocamltag{keyword}{val} id : \hyperref[xref-unresolved]{\ocamlinlinecode{t}} \ocamltag{arrow}{$\rightarrow$} \hyperref[xref-unresolved]{\ocamlinlinecode{t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+E}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+E]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}E}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+E-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+E-val-id}\ocamlcodefragment{\ocamltag{keyword}{val} id : \hyperref[xref-unresolved]{\ocamlinlinecode{t}} \ocamltag{arrow}{$\rightarrow$} \hyperref[xref-unresolved]{\ocamlinlinecode{t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+-module-A}\ocamlcodefragment{\ocamltag{keyword}{module} A = \hyperref[xref-unresolved]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}A}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+-module-B}\ocamlcodefragment{\ocamltag{keyword}{module} B = \hyperref[xref-unresolved]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}B}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+-module-C}\ocamlcodefragment{\ocamltag{keyword}{module} C = \hyperref[xref-unresolved]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}C}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+-module-D}\ocamlcodefragment{\ocamltag{keyword}{module} D = \hyperref[xref-unresolved]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}D}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo+u++u+-module-E}\ocamlcodefragment{\ocamltag{keyword}{module} E = \hyperref[xref-unresolved]{\ocamlinlinecode{Foo\_\allowbreak{}\_\allowbreak{}E}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo]{\ocamlinlinecode{Foo}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A]{\ocamlinlinecode{A}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-B}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-B]{\ocamlinlinecode{B}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-C}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-C]{\ocamlinlinecode{C}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-D}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-D]{\ocamlinlinecode{D}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-E}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-E]{\ocamlinlinecode{E}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-A'}\ocamlcodefragment{\ocamltag{keyword}{module} A' = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A]{\ocamlinlinecode{Foo.\allowbreak{}A}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-type-tata}\ocamlcodefragment{\ocamltag{keyword}{type} tata = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A-type-t]{\ocamlinlinecode{Foo.\allowbreak{}A.\allowbreak{}t}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-type-tbtb}\ocamlcodefragment{\ocamltag{keyword}{type} tbtb = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-B-type-t]{\ocamlinlinecode{Foo.\allowbreak{}B.\allowbreak{}t}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-type-tete}\ocamlcodefragment{\ocamltag{keyword}{type} tete}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-type-tata'}\ocamlcodefragment{\ocamltag{keyword}{type} tata' = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A-type-t]{\ocamlinlinecode{A'.\allowbreak{}t}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-type-tete2}\ocamlcodefragment{\ocamltag{keyword}{type} tete2 = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-E-type-t]{\ocamlinlinecode{Foo.\allowbreak{}E.\allowbreak{}t}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Std}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Std]{\ocamlinlinecode{Std}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-Std-module-A}\ocamlcodefragment{\ocamltag{keyword}{module} A = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A]{\ocamlinlinecode{Foo.\allowbreak{}A}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Std-module-B}\ocamlcodefragment{\ocamltag{keyword}{module} B = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-B]{\ocamlinlinecode{Foo.\allowbreak{}B}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Std-module-C}\ocamlcodefragment{\ocamltag{keyword}{module} C = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-C]{\ocamlinlinecode{Foo.\allowbreak{}C}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Std-module-D}\ocamlcodefragment{\ocamltag{keyword}{module} D = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-D]{\ocamlinlinecode{Foo.\allowbreak{}D}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-Std-module-E}\ocamlcodefragment{\ocamltag{keyword}{module} E = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-E]{\ocamlinlinecode{Foo.\allowbreak{}E}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-type-stde}\ocamlcodefragment{\ocamltag{keyword}{type} stde = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-E-type-t]{\ocamlinlinecode{Std.\allowbreak{}E.\allowbreak{}t}}}\\ +\subsubsection{include of Foo\label{incl}}% +Just for giggle, let's see what happens when we include \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo]{\ocamlinlinecode{\ocamlinlinecode{Foo}}[p\pageref*{container-page-test-module-Ocamlary-module-Aliases-module-Foo}]}. + +\ocamltag{keyword}{include} \ocamltag{keyword}{module} \ocamltag{keyword}{type} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo]{\ocamlinlinecode{Foo}}\label{container-page-test-module-Ocamlary-module-Aliases-module-A}\ocamlcodefragment{\ocamltag{keyword}{module} A = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A]{\ocamlinlinecode{Foo.\allowbreak{}A}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-B}\ocamlcodefragment{\ocamltag{keyword}{module} B = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-B]{\ocamlinlinecode{Foo.\allowbreak{}B}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-C}\ocamlcodefragment{\ocamltag{keyword}{module} C = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-C]{\ocamlinlinecode{Foo.\allowbreak{}C}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-D}\ocamlcodefragment{\ocamltag{keyword}{module} D = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-D]{\ocamlinlinecode{Foo.\allowbreak{}D}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-E}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-E]{\ocamlinlinecode{E}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-type-testa}\ocamlcodefragment{\ocamltag{keyword}{type} testa = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A-type-t]{\ocamlinlinecode{A.\allowbreak{}t}}}\\ +And also, let's refer to \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A-type-t]{\ocamlinlinecode{\ocamlinlinecode{A.\allowbreak{}t}}[p\pageref*{container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-A-type-t}]} and \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-B-val-id]{\ocamlinlinecode{\ocamlinlinecode{Foo.\allowbreak{}B.\allowbreak{}id}}[p\pageref*{container-page-test-module-Ocamlary-module-Aliases-module-Foo-module-B-val-id}]} + +\label{container-page-test-module-Ocamlary-module-Aliases-module-P1}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P1]{\ocamlinlinecode{P1}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y]{\ocamlinlinecode{Y}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y-val-id}\ocamlcodefragment{\ocamltag{keyword}{val} id : \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y-type-t]{\ocamlinlinecode{t}} \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y-type-t]{\ocamlinlinecode{t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-P2}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P2]{\ocamlinlinecode{P2}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Aliases-module-P2-module-Z}\ocamlcodefragment{\ocamltag{keyword}{module} Z = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y]{\ocamlinlinecode{Z}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-X1}\ocamlcodefragment{\ocamltag{keyword}{module} X1 = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y]{\ocamlinlinecode{P2.\allowbreak{}Z}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-module-X2}\ocamlcodefragment{\ocamltag{keyword}{module} X2 = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y]{\ocamlinlinecode{P2.\allowbreak{}Z}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-type-p1}\ocamlcodefragment{\ocamltag{keyword}{type} p1 = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y-type-t]{\ocamlinlinecode{X1.\allowbreak{}t}}}\\ +\label{container-page-test-module-Ocamlary-module-Aliases-type-p2}\ocamlcodefragment{\ocamltag{keyword}{type} p2 = \hyperref[container-page-test-module-Ocamlary-module-Aliases-module-P1-module-Y-type-t]{\ocamlinlinecode{X2.\allowbreak{}t}}}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Let's imitate jst's layout.\end{ocamlindent}% +\medbreak +\subsection{Section title splicing\label{section-title-splicing}}% +I can refer to + +\begin{itemize}\item{\ocamlinlinecode{\{!section:indexmodules\}} : \hyperref[container-page-test-module-Ocamlary-indexmodules]{\ocamlinlinecode{Trying the \{!modules: ...\} command.}[p\pageref*{container-page-test-module-Ocamlary-indexmodules}]}}% +\item{\ocamlinlinecode{\{!aliases\}} : \hyperref[container-page-test-module-Ocamlary-aliases]{\ocamlinlinecode{Aliases again}[p\pageref*{container-page-test-module-Ocamlary-aliases}]}}\end{itemize}% +But also to things in submodules: + +\begin{itemize}\item{\ocamlinlinecode{\{!section:SuperSig.\allowbreak{}SubSigA.\allowbreak{}subSig\}} : \ocamlinlinecode{SuperSig}.SubSigA.subSig}% +\item{\ocamlinlinecode{\{!Aliases.\allowbreak{}incl\}} : \hyperref[container-page-test-module-Ocamlary-module-Aliases-incl]{\ocamlinlinecode{\ocamlinlinecode{Aliases:incl}}[p\pageref*{container-page-test-module-Ocamlary-module-Aliases-incl}]}}\end{itemize}% +And just to make sure we do not mess up: + +\begin{itemize}\item{\ocamlinlinecode{\{\{!section:indexmodules\}A\}} : \hyperref[container-page-test-module-Ocamlary-indexmodules]{\ocamlinlinecode{A}[p\pageref*{container-page-test-module-Ocamlary-indexmodules}]}}% +\item{\ocamlinlinecode{\{\{!aliases\}B\}} : \hyperref[container-page-test-module-Ocamlary-aliases]{\ocamlinlinecode{B}[p\pageref*{container-page-test-module-Ocamlary-aliases}]}}% +\item{\ocamlinlinecode{\{\{!section:SuperSig.\allowbreak{}SubSigA.\allowbreak{}subSig\}C\}} : \hyperref[xref-unresolved]{\ocamlinlinecode{C}[p\pageref*{xref-unresolved}]}}% +\item{\ocamlinlinecode{\{\{!Aliases.\allowbreak{}incl\}D\}} : \hyperref[container-page-test-module-Ocamlary-module-Aliases-incl]{\ocamlinlinecode{D}[p\pageref*{container-page-test-module-Ocamlary-module-Aliases-incl}]}}\end{itemize}% +\subsection{New reference syntax\label{new-reference-syntax}}% +\label{container-page-test-module-Ocamlary-module-type-M}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-M-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-M-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +Here goes: + +\begin{itemize}\item{\ocamlinlinecode{\{!module-M.\allowbreak{}t\}} : \hyperref[container-page-test-module-Ocamlary-module-M-type-t]{\ocamlinlinecode{\ocamlinlinecode{M.\allowbreak{}t}}[p\pageref*{container-page-test-module-Ocamlary-module-M-type-t}]}}% +\item{\ocamlinlinecode{\{!module-type-M.\allowbreak{}t\}} : \hyperref[container-page-test-module-Ocamlary-module-type-M-type-t]{\ocamlinlinecode{\ocamlinlinecode{M.\allowbreak{}t}}[p\pageref*{container-page-test-module-Ocamlary-module-type-M-type-t}]}}\end{itemize}% +\label{container-page-test-module-Ocamlary-module-Only+u+a+u+module}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Ocamlary-module-Only+u+a+u+module]{\ocamlinlinecode{Only\_\allowbreak{}a\_\allowbreak{}module}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-Only+u+a+u+module-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +Some here should fail: + +\begin{itemize}\item{\ocamlinlinecode{\{!Only\_\allowbreak{}a\_\allowbreak{}module.\allowbreak{}t\}} : \hyperref[container-page-test-module-Ocamlary-module-Only+u+a+u+module-type-t]{\ocamlinlinecode{\ocamlinlinecode{Only\_\allowbreak{}a\_\allowbreak{}module.\allowbreak{}t}}[p\pageref*{container-page-test-module-Ocamlary-module-Only+u+a+u+module-type-t}]}}% +\item{\ocamlinlinecode{\{!module-Only\_\allowbreak{}a\_\allowbreak{}module.\allowbreak{}t\}} : \hyperref[container-page-test-module-Ocamlary-module-Only+u+a+u+module-type-t]{\ocamlinlinecode{\ocamlinlinecode{Only\_\allowbreak{}a\_\allowbreak{}module.\allowbreak{}t}}[p\pageref*{container-page-test-module-Ocamlary-module-Only+u+a+u+module-type-t}]}}% +\item{\ocamlinlinecode{\{!module-type-Only\_\allowbreak{}a\_\allowbreak{}module.\allowbreak{}t\}} : \ocamlinlinecode{Only\_\allowbreak{}a\_\allowbreak{}module}.t : \hyperref[xref-unresolved]{\ocamlinlinecode{test}[p\pageref*{xref-unresolved}]}}\end{itemize}% +\label{container-page-test-module-Ocamlary-module-type-TypeExt}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-TypeExt]{\ocamlinlinecode{TypeExt}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Ocamlary-module-type-TypeExt-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t = .\allowbreak{}.\allowbreak{}}\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-TypeExt-type-t]{\ocamlinlinecode{t}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{C}}\label{container-page-test-module-Ocamlary-module-type-TypeExt-extension-C}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Ocamlary-module-type-TypeExt-val-f}\ocamlcodefragment{\ocamltag{keyword}{val} f : \hyperref[container-page-test-module-Ocamlary-module-type-TypeExt-type-t]{\ocamlinlinecode{t}} \ocamltag{arrow}{$\rightarrow$} unit}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Ocamlary-type-new+u+t}\ocamlcodefragment{\ocamltag{keyword}{type} new\_\allowbreak{}t = .\allowbreak{}.\allowbreak{}}\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-type-new+u+t]{\ocamlinlinecode{new\_\allowbreak{}t}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{C}}\label{container-page-test-module-Ocamlary-extension-C}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Ocamlary-module-type-TypeExtPruned}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-module-type-TypeExtPruned]{\ocamlinlinecode{TypeExtPruned}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Ocamlary-type-new+u+t]{\ocamlinlinecode{new\_\allowbreak{}t}} += }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{C}}\label{container-page-test-module-Ocamlary-module-type-TypeExtPruned-extension-C}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Ocamlary-module-type-TypeExtPruned-val-f}\ocamlcodefragment{\ocamltag{keyword}{val} f : \hyperref[container-page-test-module-Ocamlary-type-new+u+t]{\ocamlinlinecode{new\_\allowbreak{}t}} \ocamltag{arrow}{$\rightarrow$} unit}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ + +\input{test/Ocamlary.ModuleWithSignature.tex} +\input{test/Ocamlary.ModuleWithSignatureAlias.tex} +\input{test/Ocamlary.Recollection.tex} +\input{test/Ocamlary.FunctorTypeOf.tex} +\input{test/Ocamlary.empty_class.tex} +\input{test/Ocamlary.one_method_class.tex} +\input{test/Ocamlary.two_method_class.tex} +\input{test/Ocamlary.param_class.tex} +\input{test/Ocamlary.Dep2.tex} +\input{test/Ocamlary.Dep5.tex} +\input{test/Ocamlary.Dep7.tex} +\input{test/Ocamlary.Dep9.tex} +\input{test/Ocamlary.Dep12.tex} +\input{test/Ocamlary.Dep13.tex} +\input{test/Ocamlary.With3.tex} +\input{test/Ocamlary.With4.tex} +\input{test/Ocamlary.With7.tex} diff --git a/test/generators/cases_pre408/latex/Ocamlary.two_method_class.tex b/test/generators/cases_pre408/latex/Ocamlary.two_method_class.tex new file mode 100644 index 0000000000..0c731deff1 --- /dev/null +++ b/test/generators/cases_pre408/latex/Ocamlary.two_method_class.tex @@ -0,0 +1,5 @@ +\section{Class \ocamlinlinecode{Ocamlary.\allowbreak{}two\_\allowbreak{}method\_\allowbreak{}class}}\label{container-page-test-module-Ocamlary-class-two+u+method+u+class}% +\label{container-page-test-module-Ocamlary-class-two+u+method+u+class-method-one}\ocamlcodefragment{\ocamltag{keyword}{method} one : \hyperref[container-page-test-module-Ocamlary-class-one+u+method+u+class]{\ocamlinlinecode{one\_\allowbreak{}method\_\allowbreak{}class}}}\\ +\label{container-page-test-module-Ocamlary-class-two+u+method+u+class-method-undo}\ocamlcodefragment{\ocamltag{keyword}{method} undo : unit}\\ + + diff --git a/test/generators/cases_pre408/latex/Section.tex b/test/generators/cases_pre408/latex/Section.tex new file mode 100644 index 0000000000..ef1961d6db --- /dev/null +++ b/test/generators/cases_pre408/latex/Section.tex @@ -0,0 +1,20 @@ +\section{Module \ocamlinlinecode{Section}}\label{container-page-test-module-Section}% +This is the module comment. Eventually, sections won't be allowed in it. + +\subsection{Empty section\label{empty-section}}% +\subsection{Text only\label{text-only}}% +Foo bar. + +\subsection{Aside only\label{aside-only}}% +Foo bar. + +\subsection{Value only\label{value-only}}% +\label{container-page-test-module-Section-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : unit}\\ +\subsection{Empty section\label{empty-section}}% +\subsection{within a comment\label{within-a-comment}}% +\subsubsection{and one with a nested section\label{and-one-with-a-nested-section}}% +\subsection{\emph{This} \ocamlinlinecode{section} \bold{title} \textsubscript{has} \textsuperscript{markup}\label{this-section-title-has-markup}}% +But links are impossible thanks to the parser, so we never have trouble rendering a section title in a table of contents – no link will be nested inside another link. + + + diff --git a/test/generators/cases_pre408/latex/Stop.tex b/test/generators/cases_pre408/latex/Stop.tex new file mode 100644 index 0000000000..42ea0474b1 --- /dev/null +++ b/test/generators/cases_pre408/latex/Stop.tex @@ -0,0 +1,17 @@ +\section{Module \ocamlinlinecode{Stop}}\label{container-page-test-module-Stop}% +This test cases exercises stop comments. + +\label{container-page-test-module-Stop-val-foo}\ocamlcodefragment{\ocamltag{keyword}{val} foo : int}\begin{ocamlindent}This is normal commented text.\end{ocamlindent}% +\medbreak +The next value is \ocamlinlinecode{bar}, and it should be missing from the documentation. There is also an entire module, \ocamlinlinecode{M}, which should also be hidden. It contains a nested stop comment, but that stop comment should not turn documentation back on in this outer module, because stop comments respect scope. + +Documentation is on again. + +Now, we have a nested module, and it has a stop comment between its two items. We want to see that the first item is displayed, but the second is missing, and the stop comment disables documenation only in that module, and not in this outer module. + +\label{container-page-test-module-Stop-module-N}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Stop-module-N]{\ocamlinlinecode{N}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Stop-module-N-val-quux}\ocamlcodefragment{\ocamltag{keyword}{val} quux : int}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Stop-val-lol}\ocamlcodefragment{\ocamltag{keyword}{val} lol : int}\\ + + diff --git a/test/generators/cases_pre408/latex/Stop_dead_link_doc.tex b/test/generators/cases_pre408/latex/Stop_dead_link_doc.tex new file mode 100644 index 0000000000..56bc6f5fc7 --- /dev/null +++ b/test/generators/cases_pre408/latex/Stop_dead_link_doc.tex @@ -0,0 +1,28 @@ +\section{Module \ocamlinlinecode{Stop\_\allowbreak{}dead\_\allowbreak{}link\_\allowbreak{}doc}}\label{container-page-test-module-Stop+u+dead+u+link+u+doc}% +\label{container-page-test-module-Stop+u+dead+u+link+u+doc-module-Foo}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Stop+u+dead+u+link+u+doc-module-Foo]{\ocamlinlinecode{Foo}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Stop+u+dead+u+link+u+doc-module-Foo-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-foo}\ocamlcodefragment{\ocamltag{keyword}{type} foo = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{Bar} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Stop+u+dead+u+link+u+doc-module-Foo-type-t]{\ocamlinlinecode{Foo.\allowbreak{}t}}}\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-foo.Bar}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-bar}\ocamlcodefragment{\ocamltag{keyword}{type} bar = }\begin{ocamlindent}\ocamlcodefragment{| \ocamltag{constructor}{Bar} \ocamltag{keyword}{of} \{}\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{field : \hyperref[container-page-test-module-Stop+u+dead+u+link+u+doc-module-Foo-type-t]{\ocamlinlinecode{Foo.\allowbreak{}t}};\allowbreak{}}\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-bar.field}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-bar.Bar}\\ +\end{ocamlindent}% +\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-foo+u+}\ocamlcodefragment{\ocamltag{keyword}{type} foo\_\allowbreak{} = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{Bar\_\allowbreak{}} \ocamltag{keyword}{of} int * \hyperref[container-page-test-module-Stop+u+dead+u+link+u+doc-module-Foo-type-t]{\ocamlinlinecode{Foo.\allowbreak{}t}} * int}\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-foo+u+.Bar+u+}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-bar+u+}\ocamlcodefragment{\ocamltag{keyword}{type} bar\_\allowbreak{} = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{Bar\_\allowbreak{}\_\allowbreak{}} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Stop+u+dead+u+link+u+doc-module-Foo-type-t]{\ocamlinlinecode{Foo.\allowbreak{}t}} option}\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-bar+u+.Bar+u++u+}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-another+u+foo}\ocamlcodefragment{\ocamltag{keyword}{type} another\_\allowbreak{}foo}\\ +\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-another+u+bar}\ocamlcodefragment{\ocamltag{keyword}{type} another\_\allowbreak{}bar}\\ +\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-another+u+foo+u+}\ocamlcodefragment{\ocamltag{keyword}{type} another\_\allowbreak{}foo\_\allowbreak{}}\\ +\label{container-page-test-module-Stop+u+dead+u+link+u+doc-type-another+u+bar+u+}\ocamlcodefragment{\ocamltag{keyword}{type} another\_\allowbreak{}bar\_\allowbreak{}}\\ + + diff --git a/test/generators/cases_pre408/latex/Toplevel_comments.Alias.tex b/test/generators/cases_pre408/latex/Toplevel_comments.Alias.tex new file mode 100644 index 0000000000..7b5761375d --- /dev/null +++ b/test/generators/cases_pre408/latex/Toplevel_comments.Alias.tex @@ -0,0 +1,8 @@ +\section{Module \ocamlinlinecode{Toplevel\_\allowbreak{}comments.\allowbreak{}Alias}}\label{container-page-test-module-Toplevel+u+comments-module-Alias}% +Doc of \ocamlinlinecode{Alias}. + +Doc of \ocamlinlinecode{T}, part 2. + +\label{container-page-test-module-Toplevel+u+comments-module-Alias-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ + + diff --git a/test/generators/cases_pre408/latex/Toplevel_comments.c1.tex b/test/generators/cases_pre408/latex/Toplevel_comments.c1.tex new file mode 100644 index 0000000000..a16a53ae82 --- /dev/null +++ b/test/generators/cases_pre408/latex/Toplevel_comments.c1.tex @@ -0,0 +1,7 @@ +\section{Class \ocamlinlinecode{Toplevel\_\allowbreak{}comments.\allowbreak{}c1}}\label{container-page-test-module-Toplevel+u+comments-class-c1}% +Doc of \ocamlinlinecode{c1}, part 1. + +Doc of \ocamlinlinecode{c1}, part 2. + + + diff --git a/test/generators/cases_pre408/latex/Toplevel_comments.c2.tex b/test/generators/cases_pre408/latex/Toplevel_comments.c2.tex new file mode 100644 index 0000000000..9465b7b3b0 --- /dev/null +++ b/test/generators/cases_pre408/latex/Toplevel_comments.c2.tex @@ -0,0 +1,7 @@ +\section{Class \ocamlinlinecode{Toplevel\_\allowbreak{}comments.\allowbreak{}c2}}\label{container-page-test-module-Toplevel+u+comments-class-c2}% +Doc of \ocamlinlinecode{c2}. + +Doc of \ocamlinlinecode{ct}, part 2. + + + diff --git a/test/generators/cases_pre408/latex/Toplevel_comments.tex b/test/generators/cases_pre408/latex/Toplevel_comments.tex new file mode 100644 index 0000000000..b0203c849b --- /dev/null +++ b/test/generators/cases_pre408/latex/Toplevel_comments.tex @@ -0,0 +1,45 @@ +\section{Module \ocamlinlinecode{Toplevel\_\allowbreak{}comments}}\label{container-page-test-module-Toplevel+u+comments}% +A doc comment at the beginning of a module is considered to be that module's doc. + +\label{container-page-test-module-Toplevel+u+comments-module-type-T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Toplevel+u+comments-module-type-T]{\ocamlinlinecode{T}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Toplevel+u+comments-module-type-T-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{T}, part 1.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-module-Include+u+inline}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Toplevel+u+comments-module-Include+u+inline]{\ocamlinlinecode{Include\_\allowbreak{}inline}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\ocamltag{keyword}{include} \hyperref[container-page-test-module-Toplevel+u+comments-module-type-T]{\ocamlinlinecode{T}}\label{container-page-test-module-Toplevel+u+comments-module-Include+u+inline-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{T}, part 2.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-module-Include+u+inline'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Toplevel+u+comments-module-Include+u+inline']{\ocamlinlinecode{Include\_\allowbreak{}inline'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}part 3\ocamltag{keyword}{include} \hyperref[container-page-test-module-Toplevel+u+comments-module-type-T]{\ocamlinlinecode{T}}\label{container-page-test-module-Toplevel+u+comments-module-Include+u+inline'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{Include\_\allowbreak{}inline}, part 1.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-module-type-Include+u+inline+u+T}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Toplevel+u+comments-module-type-Include+u+inline+u+T]{\ocamlinlinecode{Include\_\allowbreak{}inline\_\allowbreak{}T}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\ocamltag{keyword}{include} \hyperref[container-page-test-module-Toplevel+u+comments-module-type-T]{\ocamlinlinecode{T}}\label{container-page-test-module-Toplevel+u+comments-module-type-Include+u+inline+u+T-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{T}, part 2.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-module-type-Include+u+inline+u+T'}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Toplevel+u+comments-module-type-Include+u+inline+u+T']{\ocamlinlinecode{Include\_\allowbreak{}inline\_\allowbreak{}T'}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}part 3\ocamltag{keyword}{include} \hyperref[container-page-test-module-Toplevel+u+comments-module-type-T]{\ocamlinlinecode{T}}\label{container-page-test-module-Toplevel+u+comments-module-type-Include+u+inline+u+T'-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{Include\_\allowbreak{}inline\_\allowbreak{}T'}, part 1.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-module-M}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Toplevel+u+comments-module-M]{\ocamlinlinecode{M}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{M}\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-module-M'}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Toplevel+u+comments-module-M']{\ocamlinlinecode{M'}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{M'} from outside\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-module-M''}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Toplevel+u+comments-module-M'']{\ocamlinlinecode{M''}}}\ocamlcodefragment{ : \ocamltag{keyword}{sig}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{M''}, part 1.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-module-Alias}\ocamlcodefragment{\ocamltag{keyword}{module} \hyperref[container-page-test-module-Toplevel+u+comments-module-Alias]{\ocamlinlinecode{Alias}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Toplevel+u+comments-module-type-T]{\ocamlinlinecode{T}}}\begin{ocamlindent}Doc of \ocamlinlinecode{Alias}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-class-c1}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Toplevel+u+comments-class-c1]{\ocamlinlinecode{c1}}}\ocamlcodefragment{ : int \ocamltag{arrow}{$\rightarrow$} \ocamltag{keyword}{object} .\allowbreak{}.\allowbreak{}.\allowbreak{} \ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{c1}, part 1.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-class-type-ct}\ocamlcodefragment{\ocamltag{keyword}{class} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Toplevel+u+comments-class-type-ct]{\ocamlinlinecode{ct}}}\ocamlcodefragment{ = \ocamltag{keyword}{object}}\begin{ocamlindent}\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\begin{ocamlindent}Doc of \ocamlinlinecode{ct}, part 1.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Toplevel+u+comments-class-c2}\ocamlcodefragment{\ocamltag{keyword}{class} \hyperref[container-page-test-module-Toplevel+u+comments-class-c2]{\ocamlinlinecode{c2}}}\ocamlcodefragment{ : \hyperref[container-page-test-module-Toplevel+u+comments-class-type-ct]{\ocamlinlinecode{ct}}}\begin{ocamlindent}Doc of \ocamlinlinecode{c2}.\end{ocamlindent}% +\medbreak + +\input{test/Toplevel_comments.Alias.tex} +\input{test/Toplevel_comments.c1.tex} +\input{test/Toplevel_comments.c2.tex} diff --git a/test/generators/cases_pre408/latex/Type.tex b/test/generators/cases_pre408/latex/Type.tex new file mode 100644 index 0000000000..dfd45f4ab9 --- /dev/null +++ b/test/generators/cases_pre408/latex/Type.tex @@ -0,0 +1,124 @@ +\section{Module \ocamlinlinecode{Type}}\label{container-page-test-module-Type}% +\label{container-page-test-module-Type-type-abstract}\ocamlcodefragment{\ocamltag{keyword}{type} abstract}\begin{ocamlindent}Some \emph{documentation}.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Type-type-alias}\ocamlcodefragment{\ocamltag{keyword}{type} alias = int}\\ +\label{container-page-test-module-Type-type-private+u+}\ocamlcodefragment{\ocamltag{keyword}{type} private\_\allowbreak{} = \ocamltag{keyword}{private} int}\\ +\label{container-page-test-module-Type-type-constructor}\ocamlcodefragment{\ocamltag{keyword}{type} 'a constructor = \ocamltag{type-var}{'a}}\\ +\label{container-page-test-module-Type-type-arrow}\ocamlcodefragment{\ocamltag{keyword}{type} arrow = int \ocamltag{arrow}{$\rightarrow$} int}\\ +\label{container-page-test-module-Type-type-higher+u+order}\ocamlcodefragment{\ocamltag{keyword}{type} higher\_\allowbreak{}order = (int \ocamltag{arrow}{$\rightarrow$} int) \ocamltag{arrow}{$\rightarrow$} int}\\ +\label{container-page-test-module-Type-type-labeled}\ocamlcodefragment{\ocamltag{keyword}{type} labeled = l:int \ocamltag{arrow}{$\rightarrow$} int}\\ +\label{container-page-test-module-Type-type-optional}\ocamlcodefragment{\ocamltag{keyword}{type} optional = ?l:int \ocamltag{arrow}{$\rightarrow$} int}\\ +\label{container-page-test-module-Type-type-labeled+u+higher+u+order}\ocamlcodefragment{\ocamltag{keyword}{type} labeled\_\allowbreak{}higher\_\allowbreak{}order = (l:int \ocamltag{arrow}{$\rightarrow$} int) \ocamltag{arrow}{$\rightarrow$} (?l:int \ocamltag{arrow}{$\rightarrow$} int) \ocamltag{arrow}{$\rightarrow$} int}\\ +\label{container-page-test-module-Type-type-pair}\ocamlcodefragment{\ocamltag{keyword}{type} pair = int * int}\\ +\label{container-page-test-module-Type-type-parens+u+dropped}\ocamlcodefragment{\ocamltag{keyword}{type} parens\_\allowbreak{}dropped = int * int}\\ +\label{container-page-test-module-Type-type-triple}\ocamlcodefragment{\ocamltag{keyword}{type} triple = int * int * int}\\ +\label{container-page-test-module-Type-type-nested+u+pair}\ocamlcodefragment{\ocamltag{keyword}{type} nested\_\allowbreak{}pair = (int * int) * int}\\ +\label{container-page-test-module-Type-type-instance}\ocamlcodefragment{\ocamltag{keyword}{type} instance = int \hyperref[container-page-test-module-Type-type-constructor]{\ocamlinlinecode{constructor}}}\\ +\label{container-page-test-module-Type-type-long}\ocamlcodefragment{\ocamltag{keyword}{type} long = \hyperref[container-page-test-module-Type-type-labeled+u+higher+u+order]{\ocamlinlinecode{labeled\_\allowbreak{}higher\_\allowbreak{}order}} \ocamltag{arrow}{$\rightarrow$} [ `Bar | `Baz of \hyperref[container-page-test-module-Type-type-triple]{\ocamlinlinecode{triple}} ] \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Type-type-pair]{\ocamlinlinecode{pair}} \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Type-type-labeled]{\ocamlinlinecode{labeled}} \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Type-type-higher+u+order]{\ocamlinlinecode{higher\_\allowbreak{}order}} \ocamltag{arrow}{$\rightarrow$} (string \ocamltag{arrow}{$\rightarrow$} int) \ocamltag{arrow}{$\rightarrow$} (int,\allowbreak{} float,\allowbreak{} char,\allowbreak{} string,\allowbreak{} char,\allowbreak{} unit) \hyperref[xref-unresolved]{\ocamlinlinecode{CamlinternalFormatBasics}}.\allowbreak{}fmtty \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Type-type-nested+u+pair]{\ocamlinlinecode{nested\_\allowbreak{}pair}} \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Type-type-arrow]{\ocamlinlinecode{arrow}} \ocamltag{arrow}{$\rightarrow$} string \ocamltag{arrow}{$\rightarrow$} \hyperref[container-page-test-module-Type-type-nested+u+pair]{\ocamlinlinecode{nested\_\allowbreak{}pair}} array}\\ +\label{container-page-test-module-Type-type-variant+u+e}\ocamlcodefragment{\ocamltag{keyword}{type} variant\_\allowbreak{}e = \{}\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test-module-Type-type-variant+u+e.a}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\\ +\label{container-page-test-module-Type-type-variant}\ocamlcodefragment{\ocamltag{keyword}{type} variant = }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A}}\label{container-page-test-module-Type-type-variant.A}& \\ +\ocamlcodefragment{| \ocamltag{constructor}{B} \ocamltag{keyword}{of} int}\label{container-page-test-module-Type-type-variant.B}& \\ +\ocamlcodefragment{| \ocamltag{constructor}{C}}\label{container-page-test-module-Type-type-variant.C}& foo\\ +\ocamlcodefragment{| \ocamltag{constructor}{D}}\label{container-page-test-module-Type-type-variant.D}& \emph{bar}\\ +\ocamlcodefragment{| \ocamltag{constructor}{E} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Type-type-variant+u+e]{\ocamlinlinecode{variant\_\allowbreak{}e}}}\label{container-page-test-module-Type-type-variant.E}& \\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Type-type-variant+u+c}\ocamlcodefragment{\ocamltag{keyword}{type} variant\_\allowbreak{}c = \{}\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test-module-Type-type-variant+u+c.a}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\\ +\label{container-page-test-module-Type-type-gadt}\ocamlcodefragment{\ocamltag{keyword}{type} \_\allowbreak{} gadt = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A} : int \hyperref[container-page-test-module-Type-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test-module-Type-type-gadt.A}\\ +\ocamlcodefragment{| \ocamltag{constructor}{B} : int \ocamltag{arrow}{$\rightarrow$} string \hyperref[container-page-test-module-Type-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test-module-Type-type-gadt.B}\\ +\ocamlcodefragment{| \ocamltag{constructor}{C} : \hyperref[container-page-test-module-Type-type-variant+u+c]{\ocamlinlinecode{variant\_\allowbreak{}c}} \ocamltag{arrow}{$\rightarrow$} unit \hyperref[container-page-test-module-Type-type-gadt]{\ocamlinlinecode{gadt}}}\label{container-page-test-module-Type-type-gadt.C}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Type-type-degenerate+u+gadt}\ocamlcodefragment{\ocamltag{keyword}{type} degenerate\_\allowbreak{}gadt = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A} : \hyperref[container-page-test-module-Type-type-degenerate+u+gadt]{\ocamlinlinecode{degenerate\_\allowbreak{}gadt}}}\label{container-page-test-module-Type-type-degenerate+u+gadt.A}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Type-type-private+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} private\_\allowbreak{}variant = \ocamltag{keyword}{private} }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A}}\label{container-page-test-module-Type-type-private+u+variant.A}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Type-type-record}\ocamlcodefragment{\ocamltag{keyword}{type} record = \{}\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlinlinecode{a : int;\allowbreak{}}\label{container-page-test-module-Type-type-record.a}& \\ +\ocamlinlinecode{\ocamltag{keyword}{mutable} b : int;\allowbreak{}}\label{container-page-test-module-Type-type-record.b}& \\ +\ocamlinlinecode{c : int;\allowbreak{}}\label{container-page-test-module-Type-type-record.c}& foo\\ +\ocamlinlinecode{d : int;\allowbreak{}}\label{container-page-test-module-Type-type-record.d}& \emph{bar}\\ +\ocamlinlinecode{e : a.\allowbreak{} \ocamltag{type-var}{'a};\allowbreak{}}\label{container-page-test-module-Type-type-record.e}& \\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{\}}\\ +\label{container-page-test-module-Type-type-polymorphic+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} polymorphic\_\allowbreak{}variant = [ }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`A}\label{container-page-test-module-Type-type-polymorphic+u+variant.A}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`B \ocamltag{keyword}{of} int}\label{container-page-test-module-Type-type-polymorphic+u+variant.B}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`C \ocamltag{keyword}{of} int * unit}\label{container-page-test-module-Type-type-polymorphic+u+variant.C}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`D}\label{container-page-test-module-Type-type-polymorphic+u+variant.D}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\\ +\label{container-page-test-module-Type-type-polymorphic+u+variant+u+extension}\ocamlcodefragment{\ocamltag{keyword}{type} polymorphic\_\allowbreak{}variant\_\allowbreak{}extension = [ }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{\hyperref[container-page-test-module-Type-type-polymorphic+u+variant]{\ocamlinlinecode{polymorphic\_\allowbreak{}variant}}}\label{container-page-test-module-Type-type-polymorphic+u+variant+u+extension.polymorphic+u+variant}\\ +\ocamlinlinecode{| }\ocamlinlinecode{`E}\label{container-page-test-module-Type-type-polymorphic+u+variant+u+extension.E}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\\ +\label{container-page-test-module-Type-type-nested+u+polymorphic+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} nested\_\allowbreak{}polymorphic\_\allowbreak{}variant = [ }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{`A \ocamltag{keyword}{of} [ `B | `C ]}\label{container-page-test-module-Type-type-nested+u+polymorphic+u+variant.A}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\\ +\label{container-page-test-module-Type-type-private+u+extenion#row}\ocamlcodefragment{\ocamltag{keyword}{type} private\_\allowbreak{}extenion\#row}\\ +\label{container-page-test-module-Type-type-private+u+extenion}\ocamlcodefragment{\ocamltag{keyword}{and} private\_\allowbreak{}extenion = \ocamltag{keyword}{private} [> }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlinlinecode{| }\ocamlinlinecode{\hyperref[container-page-test-module-Type-type-polymorphic+u+variant]{\ocamlinlinecode{polymorphic\_\allowbreak{}variant}}}\label{container-page-test-module-Type-type-private+u+extenion.polymorphic+u+variant}\\ +\end{ocamltabular}% +\\ +\ocamlcodefragment{ ]}\\ +\label{container-page-test-module-Type-type-object+u+}\ocamlcodefragment{\ocamltag{keyword}{type} object\_\allowbreak{} = < a : int;\allowbreak{} b : int;\allowbreak{} c : int;\allowbreak{} >}\\ +\label{container-page-test-module-Type-module-type-X}\ocamlcodefragment{\ocamltag{keyword}{module} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Type-module-type-X]{\ocamlinlinecode{X}}}\ocamlcodefragment{ = \ocamltag{keyword}{sig}}\begin{ocamlindent}\label{container-page-test-module-Type-module-type-X-type-t}\ocamlcodefragment{\ocamltag{keyword}{type} t}\\ +\label{container-page-test-module-Type-module-type-X-type-u}\ocamlcodefragment{\ocamltag{keyword}{type} u}\\ +\end{ocamlindent}% +\ocamlcodefragment{\ocamltag{keyword}{end}}\\ +\label{container-page-test-module-Type-type-module+u+}\ocamlcodefragment{\ocamltag{keyword}{type} module\_\allowbreak{} = (\ocamltag{keyword}{module} \hyperref[container-page-test-module-Type-module-type-X]{\ocamlinlinecode{X}})}\\ +\label{container-page-test-module-Type-type-module+u+substitution}\ocamlcodefragment{\ocamltag{keyword}{type} module\_\allowbreak{}substitution = (\ocamltag{keyword}{module} \hyperref[container-page-test-module-Type-module-type-X]{\ocamlinlinecode{X}} \ocamltag{keyword}{with} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Type-module-type-X-type-t]{\ocamlinlinecode{t}} = int \ocamltag{keyword}{and} \ocamltag{keyword}{type} \hyperref[container-page-test-module-Type-module-type-X-type-u]{\ocamlinlinecode{u}} = unit)}\\ +\label{container-page-test-module-Type-type-covariant}\ocamlcodefragment{\ocamltag{keyword}{type} +'a covariant}\\ +\label{container-page-test-module-Type-type-contravariant}\ocamlcodefragment{\ocamltag{keyword}{type} -'a contravariant}\\ +\label{container-page-test-module-Type-type-bivariant}\ocamlcodefragment{\ocamltag{keyword}{type} \_\allowbreak{} bivariant = int}\\ +\label{container-page-test-module-Type-type-binary}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) binary}\\ +\label{container-page-test-module-Type-type-using+u+binary}\ocamlcodefragment{\ocamltag{keyword}{type} using\_\allowbreak{}binary = (int,\allowbreak{} int) \hyperref[container-page-test-module-Type-type-binary]{\ocamlinlinecode{binary}}}\\ +\label{container-page-test-module-Type-type-name}\ocamlcodefragment{\ocamltag{keyword}{type} 'custom name}\\ +\label{container-page-test-module-Type-type-constrained}\ocamlcodefragment{\ocamltag{keyword}{type} 'a constrained = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = int}\\ +\label{container-page-test-module-Type-type-exact+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a exact\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [ `A | `B of int ]}\\ +\label{container-page-test-module-Type-type-lower+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a lower\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [> `A | `B of int ]}\\ +\label{container-page-test-module-Type-type-any+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a any\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [> ]}\\ +\label{container-page-test-module-Type-type-upper+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a upper\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [< `A | `B of int ]}\\ +\label{container-page-test-module-Type-type-named+u+variant}\ocamlcodefragment{\ocamltag{keyword}{type} 'a named\_\allowbreak{}variant = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = [< \hyperref[container-page-test-module-Type-type-polymorphic+u+variant]{\ocamlinlinecode{polymorphic\_\allowbreak{}variant}} ]}\\ +\label{container-page-test-module-Type-type-exact+u+object}\ocamlcodefragment{\ocamltag{keyword}{type} 'a exact\_\allowbreak{}object = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = < a : int;\allowbreak{} b : int;\allowbreak{} >}\\ +\label{container-page-test-module-Type-type-lower+u+object}\ocamlcodefragment{\ocamltag{keyword}{type} 'a lower\_\allowbreak{}object = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = < a : int;\allowbreak{} b : int;\allowbreak{} .\allowbreak{}.\allowbreak{} >}\\ +\label{container-page-test-module-Type-type-poly+u+object}\ocamlcodefragment{\ocamltag{keyword}{type} 'a poly\_\allowbreak{}object = \ocamltag{type-var}{'a} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = < a : a.\allowbreak{} \ocamltag{type-var}{'a};\allowbreak{} >}\\ +\label{container-page-test-module-Type-type-double+u+constrained}\ocamlcodefragment{\ocamltag{keyword}{type} ('a,\allowbreak{} 'b) double\_\allowbreak{}constrained = \ocamltag{type-var}{'a} * \ocamltag{type-var}{'b} \ocamltag{keyword}{constraint} \ocamltag{type-var}{'a} = int \ocamltag{keyword}{constraint} \ocamltag{type-var}{'b} = unit}\\ +\label{container-page-test-module-Type-type-as+u+}\ocamlcodefragment{\ocamltag{keyword}{type} as\_\allowbreak{} = int \ocamltag{keyword}{as} 'a * \ocamltag{type-var}{'a}}\\ +\label{container-page-test-module-Type-type-extensible}\ocamlcodefragment{\ocamltag{keyword}{type} extensible = .\allowbreak{}.\allowbreak{}}\\ +\ocamlcodefragment{\ocamltag{keyword}{type} \hyperref[container-page-test-module-Type-type-extensible]{\ocamlinlinecode{extensible}} += }\\ +\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| \ocamltag{extension}{Extension}}\label{container-page-test-module-Type-extension-Extension}& Documentation for \hyperref[container-page-test-module-Type-extension-Extension]{\ocamlinlinecode{\ocamlinlinecode{Extension}}[p\pageref*{container-page-test-module-Type-extension-Extension}]}.\\ +\ocamlcodefragment{| \ocamltag{extension}{Another\_\allowbreak{}extension}}\label{container-page-test-module-Type-extension-Another+u+extension}& Documentation for \hyperref[container-page-test-module-Type-extension-Another+u+extension]{\ocamlinlinecode{\ocamlinlinecode{Another\_\allowbreak{}extension}}[p\pageref*{container-page-test-module-Type-extension-Another+u+extension}]}.\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Type-type-mutually}\ocamlcodefragment{\ocamltag{keyword}{type} mutually = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{A} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Type-type-recursive]{\ocamlinlinecode{recursive}}}\label{container-page-test-module-Type-type-mutually.A}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Type-type-recursive}\ocamlcodefragment{\ocamltag{keyword}{and} recursive = }\\ +\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| \ocamltag{constructor}{B} \ocamltag{keyword}{of} \hyperref[container-page-test-module-Type-type-mutually]{\ocamlinlinecode{mutually}}}\label{container-page-test-module-Type-type-recursive.B}\\ +\end{ocamltabular}% +\\ +\label{container-page-test-module-Type-exception-Foo}\ocamlcodefragment{\ocamltag{keyword}{exception} \ocamltag{exception}{Foo} \ocamltag{keyword}{of} int * int}\\ + + diff --git a/test/generators/cases_pre408/latex/Val.tex b/test/generators/cases_pre408/latex/Val.tex new file mode 100644 index 0000000000..637934ba74 --- /dev/null +++ b/test/generators/cases_pre408/latex/Val.tex @@ -0,0 +1,8 @@ +\section{Module \ocamlinlinecode{Val}}\label{container-page-test-module-Val}% +\label{container-page-test-module-Val-val-documented}\ocamlcodefragment{\ocamltag{keyword}{val} documented : unit}\begin{ocamlindent}Foo.\end{ocamlindent}% +\medbreak +\label{container-page-test-module-Val-val-undocumented}\ocamlcodefragment{\ocamltag{keyword}{val} undocumented : unit}\\ +\label{container-page-test-module-Val-val-documented+u+above}\ocamlcodefragment{\ocamltag{keyword}{val} documented\_\allowbreak{}above : unit}\begin{ocamlindent}Bar.\end{ocamlindent}% +\medbreak + + diff --git a/test/generators/cases_pre408/latex/dune b/test/generators/cases_pre408/latex/dune new file mode 100644 index 0000000000..11244a7204 --- /dev/null +++ b/test/generators/cases_pre408/latex/dune @@ -0,0 +1 @@ +(include latex.dune.inc) diff --git a/test/generators/cases_pre408/latex/gen_latex/dune b/test/generators/cases_pre408/latex/gen_latex/dune new file mode 100644 index 0000000000..a8328f0f5d --- /dev/null +++ b/test/generators/cases_pre408/latex/gen_latex/dune @@ -0,0 +1,5 @@ +(executable + (name gen_latex) + (libraries latex_t_rule) + (enabled_if + (>= %{ocaml_version} 4.04))) diff --git a/test/generators/cases_pre408/latex/gen_latex/gen_latex.ml b/test/generators/cases_pre408/latex/gen_latex/gen_latex.ml new file mode 100644 index 0000000000..2bc13dfd01 --- /dev/null +++ b/test/generators/cases_pre408/latex/gen_latex/gen_latex.ml @@ -0,0 +1,6 @@ +let () = + let stanzas = + Gen_backend.gen_backend_rules "latex" Latex_t_rule.latex_target_rule + Gen_backend.files "4.10" + in + List.iter (Sexplib0.Sexp.pp Format.std_formatter) stanzas diff --git a/test/generators/cases_pre408/latex/latex.dune.inc b/test/generators/cases_pre408/latex/latex.dune.inc new file mode 100644 index 0000000000..be7cb839dc --- /dev/null +++ b/test/generators/cases_pre408/latex/latex.dune.inc @@ -0,0 +1,784 @@ +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../alias.odocl}) + (with-stdout-to + Alias.tex.gen + (progn + (system "cat 'latex.gen/test/Alias.tex'"))) + (with-stdout-to + Alias.X.tex.gen + (progn + (system "cat 'latex.gen/test/Alias.X.tex'")))))) + +(rule + (alias runtest) + (action + (diff Alias.tex Alias.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Alias.X.tex Alias.X.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../bugs.odocl}) + (with-stdout-to + Bugs.tex.gen + (progn + (system "cat 'latex.gen/test/Bugs.tex'")))))) + +(rule + (alias runtest) + (action + (diff Bugs.tex Bugs.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../bugs_pre_410.odocl}) + (with-stdout-to + Bugs_pre_410.tex.gen + (progn + (system "cat 'latex.gen/test/Bugs_pre_410.tex'")))))) + +(rule + (alias runtest) + (action + (diff Bugs_pre_410.tex Bugs_pre_410.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../class.odocl}) + (with-stdout-to + Class.tex.gen + (progn + (system "cat 'latex.gen/test/Class.tex'"))) + (with-stdout-to + Class.mutually'.tex.gen + (progn + (system "cat 'latex.gen/test/Class.mutually'\\''.tex'"))) + (with-stdout-to + Class.recursive'.tex.gen + (progn + (system "cat 'latex.gen/test/Class.recursive'\\''.tex'"))) + (with-stdout-to + Class.empty_virtual'.tex.gen + (progn + (system "cat 'latex.gen/test/Class.empty_virtual'\\''.tex'"))) + (with-stdout-to + Class.polymorphic'.tex.gen + (progn + (system "cat 'latex.gen/test/Class.polymorphic'\\''.tex'")))))) + +(rule + (alias runtest) + (action + (diff Class.tex Class.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Class.mutually'.tex Class.mutually'.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Class.recursive'.tex Class.recursive'.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Class.empty_virtual'.tex Class.empty_virtual'.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Class.polymorphic'.tex Class.polymorphic'.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../external.odocl}) + (with-stdout-to + External.tex.gen + (progn + (system "cat 'latex.gen/test/External.tex'")))))) + +(rule + (alias runtest) + (action + (diff External.tex External.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../functor.odocl}) + (with-stdout-to + Functor.tex.gen + (progn + (system "cat 'latex.gen/test/Functor.tex'"))) + (with-stdout-to + Functor.F1.tex.gen + (progn + (system "cat 'latex.gen/test/Functor.F1.tex'"))) + (with-stdout-to + Functor.F2.tex.gen + (progn + (system "cat 'latex.gen/test/Functor.F2.tex'"))) + (with-stdout-to + Functor.F3.tex.gen + (progn + (system "cat 'latex.gen/test/Functor.F3.tex'"))) + (with-stdout-to + Functor.F4.tex.gen + (progn + (system "cat 'latex.gen/test/Functor.F4.tex'"))) + (with-stdout-to + Functor.F5.tex.gen + (progn + (system "cat 'latex.gen/test/Functor.F5.tex'")))))) + +(rule + (alias runtest) + (action + (diff Functor.tex Functor.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F1.tex Functor.F1.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F2.tex Functor.F2.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F3.tex Functor.F3.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F4.tex Functor.F4.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F5.tex Functor.F5.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../functor2.odocl}) + (with-stdout-to + Functor2.tex.gen + (progn + (system "cat 'latex.gen/test/Functor2.tex'"))) + (with-stdout-to + Functor2.X.tex.gen + (progn + (system "cat 'latex.gen/test/Functor2.X.tex'")))))) + +(rule + (alias runtest) + (action + (diff Functor2.tex Functor2.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor2.X.tex Functor2.X.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../include.odocl}) + (with-stdout-to + Include.tex.gen + (progn + (system "cat 'latex.gen/test/Include.tex'")))))) + +(rule + (alias runtest) + (action + (diff Include.tex Include.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../include2.odocl}) + (with-stdout-to + Include2.tex.gen + (progn + (system "cat 'latex.gen/test/Include2.tex'")))))) + +(rule + (alias runtest) + (action + (diff Include2.tex Include2.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../include_sections.odocl}) + (with-stdout-to + Include_sections.tex.gen + (progn + (system "cat 'latex.gen/test/Include_sections.tex'")))))) + +(rule + (alias runtest) + (action + (diff Include_sections.tex Include_sections.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../interlude.odocl}) + (with-stdout-to + Interlude.tex.gen + (progn + (system "cat 'latex.gen/test/Interlude.tex'")))))) + +(rule + (alias runtest) + (action + (diff Interlude.tex Interlude.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../markup.odocl}) + (with-stdout-to + Markup.tex.gen + (progn + (system "cat 'latex.gen/test/Markup.tex'")))))) + +(rule + (alias runtest) + (action + (diff Markup.tex Markup.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../page-mld.odocl}) + (with-stdout-to + mld.tex.gen + (progn + (system "cat 'latex.gen/test/mld.tex'")))))) + +(rule + (alias runtest) + (action + (diff mld.tex mld.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../module.odocl}) + (with-stdout-to + Module.tex.gen + (progn + (system "cat 'latex.gen/test/Module.tex'")))))) + +(rule + (alias runtest) + (action + (diff Module.tex Module.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../nested.odocl}) + (with-stdout-to + Nested.tex.gen + (progn + (system "cat 'latex.gen/test/Nested.tex'"))) + (with-stdout-to + Nested.F.tex.gen + (progn + (system "cat 'latex.gen/test/Nested.F.tex'"))) + (with-stdout-to + Nested.z.tex.gen + (progn + (system "cat 'latex.gen/test/Nested.z.tex'"))) + (with-stdout-to + Nested.inherits.tex.gen + (progn + (system "cat 'latex.gen/test/Nested.inherits.tex'")))))) + +(rule + (alias runtest) + (action + (diff Nested.tex Nested.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.F.tex Nested.F.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.z.tex Nested.z.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.inherits.tex Nested.inherits.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../ocamlary.odocl}) + (with-stdout-to + Ocamlary.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.tex'"))) + (with-stdout-to + Ocamlary.ModuleWithSignature.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.ModuleWithSignature.tex'"))) + (with-stdout-to + Ocamlary.ModuleWithSignatureAlias.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.ModuleWithSignatureAlias.tex'"))) + (with-stdout-to + Ocamlary.Recollection.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Recollection.tex'"))) + (with-stdout-to + Ocamlary.FunctorTypeOf.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.FunctorTypeOf.tex'"))) + (with-stdout-to + Ocamlary.empty_class.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.empty_class.tex'"))) + (with-stdout-to + Ocamlary.one_method_class.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.one_method_class.tex'"))) + (with-stdout-to + Ocamlary.two_method_class.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.two_method_class.tex'"))) + (with-stdout-to + Ocamlary.param_class.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.param_class.tex'"))) + (with-stdout-to + Ocamlary.Dep2.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Dep2.tex'"))) + (with-stdout-to + Ocamlary.Dep5.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Dep5.tex'"))) + (with-stdout-to + Ocamlary.Dep5.Z.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Dep5.Z.tex'"))) + (with-stdout-to + Ocamlary.Dep7.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Dep7.tex'"))) + (with-stdout-to + Ocamlary.Dep7.M.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Dep7.M.tex'"))) + (with-stdout-to + Ocamlary.Dep9.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Dep9.tex'"))) + (with-stdout-to + Ocamlary.Dep12.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Dep12.tex'"))) + (with-stdout-to + Ocamlary.Dep13.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Dep13.tex'"))) + (with-stdout-to + Ocamlary.Dep13.c.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.Dep13.c.tex'"))) + (with-stdout-to + Ocamlary.With3.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.With3.tex'"))) + (with-stdout-to + Ocamlary.With3.N.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.With3.N.tex'"))) + (with-stdout-to + Ocamlary.With4.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.With4.tex'"))) + (with-stdout-to + Ocamlary.With4.N.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.With4.N.tex'"))) + (with-stdout-to + Ocamlary.With7.tex.gen + (progn + (system "cat 'latex.gen/test/Ocamlary.With7.tex'")))))) + +(rule + (alias runtest) + (action + (diff Ocamlary.tex Ocamlary.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.ModuleWithSignature.tex + Ocamlary.ModuleWithSignature.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.ModuleWithSignatureAlias.tex + Ocamlary.ModuleWithSignatureAlias.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Recollection.tex Ocamlary.Recollection.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.FunctorTypeOf.tex Ocamlary.FunctorTypeOf.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.empty_class.tex Ocamlary.empty_class.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.one_method_class.tex Ocamlary.one_method_class.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.two_method_class.tex Ocamlary.two_method_class.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.param_class.tex Ocamlary.param_class.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep2.tex Ocamlary.Dep2.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep5.tex Ocamlary.Dep5.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep5.Z.tex Ocamlary.Dep5.Z.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep7.tex Ocamlary.Dep7.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep7.M.tex Ocamlary.Dep7.M.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep9.tex Ocamlary.Dep9.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep12.tex Ocamlary.Dep12.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep13.tex Ocamlary.Dep13.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep13.c.tex Ocamlary.Dep13.c.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With3.tex Ocamlary.With3.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With3.N.tex Ocamlary.With3.N.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With4.tex Ocamlary.With4.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With4.N.tex Ocamlary.With4.N.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With7.tex Ocamlary.With7.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../section.odocl}) + (with-stdout-to + Section.tex.gen + (progn + (system "cat 'latex.gen/test/Section.tex'")))))) + +(rule + (alias runtest) + (action + (diff Section.tex Section.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../stop.odocl}) + (with-stdout-to + Stop.tex.gen + (progn + (system "cat 'latex.gen/test/Stop.tex'")))))) + +(rule + (alias runtest) + (action + (diff Stop.tex Stop.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../stop_dead_link_doc.odocl}) + (with-stdout-to + Stop_dead_link_doc.tex.gen + (progn + (system "cat 'latex.gen/test/Stop_dead_link_doc.tex'")))))) + +(rule + (alias runtest) + (action + (diff Stop_dead_link_doc.tex Stop_dead_link_doc.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../toplevel_comments.odocl}) + (with-stdout-to + Toplevel_comments.tex.gen + (progn + (system "cat 'latex.gen/test/Toplevel_comments.tex'"))) + (with-stdout-to + Toplevel_comments.Alias.tex.gen + (progn + (system "cat 'latex.gen/test/Toplevel_comments.Alias.tex'"))) + (with-stdout-to + Toplevel_comments.c1.tex.gen + (progn + (system "cat 'latex.gen/test/Toplevel_comments.c1.tex'"))) + (with-stdout-to + Toplevel_comments.c2.tex.gen + (progn + (system "cat 'latex.gen/test/Toplevel_comments.c2.tex'")))))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.tex Toplevel_comments.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.Alias.tex Toplevel_comments.Alias.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.c1.tex Toplevel_comments.c1.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.c2.tex Toplevel_comments.c2.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../type.odocl}) + (with-stdout-to + Type.tex.gen + (progn + (system "cat 'latex.gen/test/Type.tex'")))))) + +(rule + (alias runtest) + (action + (diff Type.tex Type.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc latex-generate -o latex.gen %{dep:../val.odocl}) + (with-stdout-to + Val.tex.gen + (progn + (system "cat 'latex.gen/test/Val.tex'")))))) + +(rule + (alias runtest) + (action + (diff Val.tex Val.tex.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) diff --git a/test/generators/cases_pre408/latex/mld.tex b/test/generators/cases_pre408/latex/mld.tex new file mode 100644 index 0000000000..5f60cc49f2 --- /dev/null +++ b/test/generators/cases_pre408/latex/mld.tex @@ -0,0 +1,31 @@ +\section{Mld Page\label{mld-page}}\label{container-page-test-page-mld}% +This is an \ocamlinlinecode{.\allowbreak{}mld} file. It doesn't have an auto-generated title, like modules and other pages generated fully by odoc do. + +It will have a TOC generated from section headings. + +\subsection{Section\label{section}}% +This is a section. + +Another paragraph in section. + +\subsection{Another section\label{another-section}}% +This is another section. + +Another paragraph in section 2. + +\subsubsection{Subsection\label{subsection}}% +This is a subsection. + +Another paragraph in subsection. + +Yet another paragraph in subsection. + +\subsubsection{Another Subsection\label{another-subsection}}% +This is another subsection. + +Another paragraph in subsection 2. + +Yet another paragraph in subsection 2. + + + diff --git a/test/generators/cases_pre408/link.dune.inc b/test/generators/cases_pre408/link.dune.inc new file mode 100644 index 0000000000..2119e57a2f --- /dev/null +++ b/test/generators/cases_pre408/link.dune.inc @@ -0,0 +1,506 @@ +(rule + (target alias.cmt) + (deps cases/alias.ml) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target alias.odoc) + (deps alias.cmt) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target alias.odocl) + (deps alias.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target bugs.cmt) + (deps cases/bugs.ml) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target bugs.odoc) + (deps bugs.cmt) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target bugs.odocl) + (deps bugs.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target bugs_pre_410.cmt) + (deps cases/bugs_pre_410.ml) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target bugs_pre_410.odoc) + (deps bugs_pre_410.cmt) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target bugs_pre_410.odocl) + (deps bugs_pre_410.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target class.cmti) + (deps cases/class.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target class.odoc) + (deps class.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target class.odocl) + (deps class.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target external.cmti) + (deps cases/external.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target external.odoc) + (deps external.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target external.odocl) + (deps external.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target functor.cmti) + (deps cases/functor.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target functor.odoc) + (deps functor.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target functor.odocl) + (deps functor.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target functor2.cmti) + (deps cases/functor2.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target functor2.odoc) + (deps functor2.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target functor2.odocl) + (deps functor2.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target include.cmti) + (deps cases/include.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target include.odoc) + (deps include.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target include.odocl) + (deps include.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target include2.cmt) + (deps cases/include2.ml) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target include2.odoc) + (deps include2.cmt) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target include2.odocl) + (deps include2.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target include_sections.cmti) + (deps cases/include_sections.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target include_sections.odoc) + (deps include_sections.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target include_sections.odocl) + (deps include_sections.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target interlude.cmti) + (deps cases/interlude.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target interlude.odoc) + (deps interlude.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target interlude.odocl) + (deps interlude.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target markup.cmti) + (deps cases/markup.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target markup.odoc) + (deps markup.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target markup.odocl) + (deps markup.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target page-mld.odoc) + (deps cases/mld.mld) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target page-mld.odocl) + (deps page-mld.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target module.cmti) + (deps cases/module.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target module.odoc) + (deps module.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target module.odocl) + (deps module.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target nested.cmti) + (deps cases/nested.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target nested.odoc) + (deps nested.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target nested.odocl) + (deps nested.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target ocamlary.cmti) + (deps cases/ocamlary.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target ocamlary.odoc) + (deps ocamlary.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target ocamlary.odocl) + (deps ocamlary.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target section.cmti) + (deps cases/section.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target section.odoc) + (deps section.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target section.odocl) + (deps section.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target stop.cmti) + (deps cases/stop.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target stop.odoc) + (deps stop.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target stop.odocl) + (deps stop.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target stop_dead_link_doc.cmti) + (deps cases/stop_dead_link_doc.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target stop_dead_link_doc.odoc) + (deps stop_dead_link_doc.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target stop_dead_link_doc.odocl) + (deps stop_dead_link_doc.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target toplevel_comments.cmti) + (deps cases/toplevel_comments.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target toplevel_comments.odoc) + (deps toplevel_comments.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target toplevel_comments.odocl) + (deps toplevel_comments.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target type.cmti) + (deps cases/type.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target type.odoc) + (deps type.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target type.odocl) + (deps type.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(rule + (target val.cmti) + (deps cases/val.mli) + (action + (run ocamlc -c -bin-annot -o %{target} %{deps}))) + +(rule + (target val.odoc) + (deps val.cmti) + (action + (run odoc compile --pkg test -o %{target} %{deps}))) + +(rule + (target val.odocl) + (deps val.odoc) + (action + (run odoc link -o %{target} %{deps}))) + +(subdir + html + (rule + (with-stdout-to + html.dune.inc.gen + (pipe-stdout + (run + gen_html/gen_html.exe + %{dep:../alias.odocl} + %{dep:../bugs.odocl} + %{dep:../bugs_pre_410.odocl} + %{dep:../class.odocl} + %{dep:../external.odocl} + %{dep:../functor.odocl} + %{dep:../functor2.odocl} + %{dep:../include.odocl} + %{dep:../include2.odocl} + %{dep:../include_sections.odocl} + %{dep:../interlude.odocl} + %{dep:../markup.odocl} + %{dep:../page-mld.odocl} + %{dep:../module.odocl} + %{dep:../nested.odocl} + %{dep:../ocamlary.odocl} + %{dep:../section.odocl} + %{dep:../stop.odocl} + %{dep:../stop_dead_link_doc.odocl} + %{dep:../toplevel_comments.odocl} + %{dep:../type.odocl} + %{dep:../val.odocl}) + (run dune format-dune-file))))) + +(subdir + latex + (rule + (with-stdout-to + latex.dune.inc.gen + (pipe-stdout + (run + gen_latex/gen_latex.exe + %{dep:../alias.odocl} + %{dep:../bugs.odocl} + %{dep:../bugs_pre_410.odocl} + %{dep:../class.odocl} + %{dep:../external.odocl} + %{dep:../functor.odocl} + %{dep:../functor2.odocl} + %{dep:../include.odocl} + %{dep:../include2.odocl} + %{dep:../include_sections.odocl} + %{dep:../interlude.odocl} + %{dep:../markup.odocl} + %{dep:../page-mld.odocl} + %{dep:../module.odocl} + %{dep:../nested.odocl} + %{dep:../ocamlary.odocl} + %{dep:../section.odocl} + %{dep:../stop.odocl} + %{dep:../stop_dead_link_doc.odocl} + %{dep:../toplevel_comments.odocl} + %{dep:../type.odocl} + %{dep:../val.odocl}) + (run dune format-dune-file))))) + +(subdir + man + (rule + (with-stdout-to + man.dune.inc.gen + (pipe-stdout + (run + gen_man/gen_man.exe + %{dep:../alias.odocl} + %{dep:../bugs.odocl} + %{dep:../bugs_pre_410.odocl} + %{dep:../class.odocl} + %{dep:../external.odocl} + %{dep:../functor.odocl} + %{dep:../functor2.odocl} + %{dep:../include.odocl} + %{dep:../include2.odocl} + %{dep:../include_sections.odocl} + %{dep:../interlude.odocl} + %{dep:../markup.odocl} + %{dep:../page-mld.odocl} + %{dep:../module.odocl} + %{dep:../nested.odocl} + %{dep:../ocamlary.odocl} + %{dep:../section.odocl} + %{dep:../stop.odocl} + %{dep:../stop_dead_link_doc.odocl} + %{dep:../toplevel_comments.odocl} + %{dep:../type.odocl} + %{dep:../val.odocl}) + (run dune format-dune-file))))) + +(rule + (alias runtest) + (action + (diff html/html.dune.inc html/html.dune.inc.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff latex/latex.dune.inc latex/latex.dune.inc.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff man/man.dune.inc man/man.dune.inc.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) diff --git a/test/generators/cases_pre408/man/Alias.3o b/test/generators/cases_pre408/man/Alias.3o new file mode 100644 index 0000000000..379f962f82 --- /dev/null +++ b/test/generators/cases_pre408/man/Alias.3o @@ -0,0 +1,16 @@ + +.TH Alias 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Alias +.SH Synopsis +.sp +.in 2 +\fBModule Alias\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR Foo__X : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Alias.Foo__X.3o b/test/generators/cases_pre408/man/Alias.Foo__X.3o new file mode 100644 index 0000000000..ce2039246f --- /dev/null +++ b/test/generators/cases_pre408/man/Alias.Foo__X.3o @@ -0,0 +1,20 @@ + +.TH Foo__X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Alias\.Foo__X +.SH Synopsis +.sp +.in 2 +\fBModule Alias\.Foo__X\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t = int +.fi +.br +.ti +2 +Module Foo__X documentation\. This should appear in the documentation for the alias to this module 'X' +.nf + diff --git a/test/generators/cases_pre408/man/Alias.X.3o b/test/generators/cases_pre408/man/Alias.X.3o new file mode 100644 index 0000000000..31ca5f9370 --- /dev/null +++ b/test/generators/cases_pre408/man/Alias.X.3o @@ -0,0 +1,20 @@ + +.TH X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Alias\.X +.SH Synopsis +.sp +.in 2 +\fBModule Alias\.X\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t = int +.fi +.br +.ti +2 +Module Foo__X documentation\. This should appear in the documentation for the alias to this module 'X' +.nf + diff --git a/test/generators/cases_pre408/man/Bugs.3o b/test/generators/cases_pre408/man/Bugs.3o new file mode 100644 index 0000000000..fe21b9e6be --- /dev/null +++ b/test/generators/cases_pre408/man/Bugs.3o @@ -0,0 +1,26 @@ + +.TH Bugs 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Bugs +.SH Synopsis +.sp +.in 2 +\fBModule Bugs\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR 'a opt = \f[CB]'a\fR option +.sp +\f[CB]val\fR foo : ?bar:\f[CB]'a\fR \f[CB]\->\fR unit \f[CB]\->\fR unit +.fi +.br +.ti +2 +Triggers an assertion failure when +.UR https://github.com/ocaml/odoc/issues/101 +https://github\.com/ocaml/odoc/issues/101 +.UE + is not fixed\. +.nf + diff --git a/test/generators/cases_pre408/man/Bugs_pre_410.3o b/test/generators/cases_pre408/man/Bugs_pre_410.3o new file mode 100644 index 0000000000..beeb84d5e7 --- /dev/null +++ b/test/generators/cases_pre408/man/Bugs_pre_410.3o @@ -0,0 +1,26 @@ + +.TH Bugs_pre_410 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Bugs_pre_410 +.SH Synopsis +.sp +.in 2 +\fBModule Bugs_pre_410\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR 'a opt' = int option +.sp +\f[CB]val\fR foo' : ?bar:int \f[CB]\->\fR unit \f[CB]\->\fR unit +.fi +.br +.ti +2 +Similar to Bugs, but the printed type of ~bar should be int, not 'a\. This probably requires fixing in the compiler\. See +.UR https://github.com/ocaml/odoc/pull/230#issuecomment-433226807 +https://github\.com/ocaml/odoc/pull/230#issuecomment-433226807 +.UE +\. +.nf + diff --git a/test/generators/cases_pre408/man/Class.3o b/test/generators/cases_pre408/man/Class.3o new file mode 100644 index 0000000000..b3704232af --- /dev/null +++ b/test/generators/cases_pre408/man/Class.3o @@ -0,0 +1,30 @@ + +.TH Class 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Class +.SH Synopsis +.sp +.in 2 +\fBModule Class\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]class\fR \f[CB]type\fR empty = \f[CB]object\fR \f[CB]end\fR +.sp +\f[CB]class\fR \f[CB]type\fR mutually = \f[CB]object\fR \f[CB]end\fR +.sp +\f[CB]class\fR \f[CB]type\fR recursive = \f[CB]object\fR \f[CB]end\fR +.sp +\f[CB]class\fR mutually' : mutually +.sp +\f[CB]class\fR recursive' : recursive +.sp +\f[CB]class\fR \f[CB]type\fR \f[CB]virtual\fR empty_virtual = \f[CB]object\fR \f[CB]end\fR +.sp +\f[CB]class\fR \f[CB]virtual\fR empty_virtual' : empty +.sp +\f[CB]class\fR \f[CB]type\fR 'a polymorphic = \f[CB]object\fR \f[CB]end\fR +.sp +\f[CB]class\fR 'a polymorphic' : \f[CB]'a\fR polymorphic diff --git a/test/generators/cases_pre408/man/Class.empty_virtual'.3o b/test/generators/cases_pre408/man/Class.empty_virtual'.3o new file mode 100644 index 0000000000..55238a07ca --- /dev/null +++ b/test/generators/cases_pre408/man/Class.empty_virtual'.3o @@ -0,0 +1,14 @@ + +.TH empty_virtual' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Class\.empty_virtual' +.SH Synopsis +.sp +.in 2 +\fBClass Class\.empty_virtual'\fR +.in +.sp +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Class.mutually'.3o b/test/generators/cases_pre408/man/Class.mutually'.3o new file mode 100644 index 0000000000..46e375be91 --- /dev/null +++ b/test/generators/cases_pre408/man/Class.mutually'.3o @@ -0,0 +1,14 @@ + +.TH mutually' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Class\.mutually' +.SH Synopsis +.sp +.in 2 +\fBClass Class\.mutually'\fR +.in +.sp +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Class.polymorphic'.3o b/test/generators/cases_pre408/man/Class.polymorphic'.3o new file mode 100644 index 0000000000..69abe1722e --- /dev/null +++ b/test/generators/cases_pre408/man/Class.polymorphic'.3o @@ -0,0 +1,14 @@ + +.TH polymorphic' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Class\.polymorphic' +.SH Synopsis +.sp +.in 2 +\fBClass Class\.polymorphic'\fR +.in +.sp +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Class.recursive'.3o b/test/generators/cases_pre408/man/Class.recursive'.3o new file mode 100644 index 0000000000..1f12de53fe --- /dev/null +++ b/test/generators/cases_pre408/man/Class.recursive'.3o @@ -0,0 +1,14 @@ + +.TH recursive' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Class\.recursive' +.SH Synopsis +.sp +.in 2 +\fBClass Class\.recursive'\fR +.in +.sp +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/External.3o b/test/generators/cases_pre408/man/External.3o new file mode 100644 index 0000000000..39dce4c134 --- /dev/null +++ b/test/generators/cases_pre408/man/External.3o @@ -0,0 +1,20 @@ + +.TH External 3 "" "Odoc" "OCaml Library" +.SH Name +test\.External +.SH Synopsis +.sp +.in 2 +\fBModule External\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]val\fR foo : unit \f[CB]\->\fR unit +.fi +.br +.ti +2 +Foo bar\. +.nf + diff --git a/test/generators/cases_pre408/man/Functor.3o b/test/generators/cases_pre408/man/Functor.3o new file mode 100644 index 0000000000..0c8359a5e9 --- /dev/null +++ b/test/generators/cases_pre408/man/Functor.3o @@ -0,0 +1,53 @@ + +.TH Functor 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Functor +.SH Synopsis +.sp +.in 2 +\fBModule Functor\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S1 = \f[CB]sig\fR +.br +.ti +2 +.sp +.ti +2 +\fB1\.1 Parameters\fR +.sp +.ti +2 +\f[CB]module\fR _ : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\fB1\.2 Signature\fR +.sp +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +\f[CB]module\fR F1 (Arg : S) : S +.sp +\f[CB]module\fR F2 (Arg : S) : S \f[CB]with\fR \f[CB]type\fR t = Arg\.t +.sp +\f[CB]module\fR F3 (Arg : S) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR F4 (Arg : S) : S +.sp +\f[CB]module\fR F5 () : S diff --git a/test/generators/cases_pre408/man/Functor.F1.3o b/test/generators/cases_pre408/man/Functor.F1.3o new file mode 100644 index 0000000000..93f73d0366 --- /dev/null +++ b/test/generators/cases_pre408/man/Functor.F1.3o @@ -0,0 +1,30 @@ + +.TH F1 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Functor\.F1 +.SH Synopsis +.sp +.in 2 +\fBModule Functor\.F1\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Arg : \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Functor.F2.3o b/test/generators/cases_pre408/man/Functor.F2.3o new file mode 100644 index 0000000000..effc69506b --- /dev/null +++ b/test/generators/cases_pre408/man/Functor.F2.3o @@ -0,0 +1,30 @@ + +.TH F2 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Functor\.F2 +.SH Synopsis +.sp +.in 2 +\fBModule Functor\.F2\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Arg : \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]type\fR t = Arg\.t diff --git a/test/generators/cases_pre408/man/Functor.F3.3o b/test/generators/cases_pre408/man/Functor.F3.3o new file mode 100644 index 0000000000..9d04463228 --- /dev/null +++ b/test/generators/cases_pre408/man/Functor.F3.3o @@ -0,0 +1,30 @@ + +.TH F3 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Functor\.F3 +.SH Synopsis +.sp +.in 2 +\fBModule Functor\.F3\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Arg : \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]type\fR t = Arg\.t diff --git a/test/generators/cases_pre408/man/Functor.F4.3o b/test/generators/cases_pre408/man/Functor.F4.3o new file mode 100644 index 0000000000..8bf47dd588 --- /dev/null +++ b/test/generators/cases_pre408/man/Functor.F4.3o @@ -0,0 +1,30 @@ + +.TH F4 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Functor\.F4 +.SH Synopsis +.sp +.in 2 +\fBModule Functor\.F4\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Arg : \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Functor.F5.3o b/test/generators/cases_pre408/man/Functor.F5.3o new file mode 100644 index 0000000000..a2e57c83dd --- /dev/null +++ b/test/generators/cases_pre408/man/Functor.F5.3o @@ -0,0 +1,23 @@ + +.TH F5 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Functor\.F5 +.SH Synopsis +.sp +.in 2 +\fBModule Functor\.F5\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Functor2.3o b/test/generators/cases_pre408/man/Functor2.3o new file mode 100644 index 0000000000..d818413b34 --- /dev/null +++ b/test/generators/cases_pre408/man/Functor2.3o @@ -0,0 +1,60 @@ + +.TH Functor2 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Functor2 +.SH Synopsis +.sp +.in 2 +\fBModule Functor2\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +\f[CB]module\fR X (Y : S) (Z : S) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR XF = \f[CB]sig\fR +.br +.ti +2 +.sp +.ti +2 +\fB1\.1 Parameters\fR +.sp +.ti +2 +\f[CB]module\fR Y : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR Z : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\fB1\.2 Signature\fR +.sp +.ti +2 +\f[CB]type\fR y_t = Y\.t +.sp +.ti +2 +\f[CB]type\fR z_t = Z\.t +.sp +.ti +2 +\f[CB]type\fR x_t = y_t +.br +\f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Functor2.X.3o b/test/generators/cases_pre408/man/Functor2.X.3o new file mode 100644 index 0000000000..f8cc2cae4a --- /dev/null +++ b/test/generators/cases_pre408/man/Functor2.X.3o @@ -0,0 +1,41 @@ + +.TH X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Functor2\.X +.SH Synopsis +.sp +.in 2 +\fBModule Functor2\.X\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Y : \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +\f[CB]module\fR Z : \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]type\fR y_t = Y\.t +.sp +\f[CB]type\fR z_t = Z\.t +.sp +\f[CB]type\fR x_t = y_t diff --git a/test/generators/cases_pre408/man/Include.3o b/test/generators/cases_pre408/man/Include.3o new file mode 100644 index 0000000000..e264520acc --- /dev/null +++ b/test/generators/cases_pre408/man/Include.3o @@ -0,0 +1,71 @@ + +.TH Include 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Include +.SH Synopsis +.sp +.in 2 +\fBModule Include\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR Not_inlined = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +\f[CB]type\fR t +.sp +\f[CB]module\fR \f[CB]type\fR Inlined = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR u +.br +\f[CB]end\fR +.sp +\f[CB]type\fR u +.sp +\f[CB]module\fR \f[CB]type\fR Not_inlined_and_closed = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR v +.br +\f[CB]end\fR +.sp +\f[CB]include\fR Not_inlined_and_closed +.sp +\f[CB]module\fR \f[CB]type\fR Not_inlined_and_opened = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR w +.br +\f[CB]end\fR +.sp +\f[CB]type\fR w +.sp +\f[CB]module\fR \f[CB]type\fR Inherent_Module = \f[CB]sig\fR +.br +.ti +2 +\f[CB]val\fR a : t +.br +\f[CB]end\fR +.sp +\f[CB]val\fR a : t +.sp +\f[CB]module\fR \f[CB]type\fR Dorminant_Module = \f[CB]sig\fR +.br +.ti +2 +\f[CB]val\fR a : t +.sp +.ti +2 +\f[CB]val\fR a : u +.br +\f[CB]end\fR +.sp +\f[CB]val\fR a : t +.sp +\f[CB]val\fR a : u diff --git a/test/generators/cases_pre408/man/Include2.3o b/test/generators/cases_pre408/man/Include2.3o new file mode 100644 index 0000000000..6c7864c47f --- /dev/null +++ b/test/generators/cases_pre408/man/Include2.3o @@ -0,0 +1,41 @@ + +.TH Include2 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Include2 +.SH Synopsis +.sp +.in 2 +\fBModule Include2\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Comment about X that should not appear when including X below\. +.nf +.sp +.fi +Comment about X that should not appear when including X below\. +.nf +.sp +\f[CB]type\fR t = int +.sp +\f[CB]module\fR Y : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Top-comment of Y\. +.nf +.sp +\f[CB]module\fR Y_include_synopsis : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +The include Y below should have the synopsis from Y's top-comment attached to it\. +.nf +.sp +\f[CB]module\fR Y_include_doc : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Include2.X.3o b/test/generators/cases_pre408/man/Include2.X.3o new file mode 100644 index 0000000000..e6525c298e --- /dev/null +++ b/test/generators/cases_pre408/man/Include2.X.3o @@ -0,0 +1,17 @@ + +.TH X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Include2\.X +.SH Synopsis +.sp +.in 2 +\fBModule Include2\.X\fR +.in +.sp +.fi +Comment about X that should not appear when including X below\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t = int diff --git a/test/generators/cases_pre408/man/Include2.Y.3o b/test/generators/cases_pre408/man/Include2.Y.3o new file mode 100644 index 0000000000..70bd5990a2 --- /dev/null +++ b/test/generators/cases_pre408/man/Include2.Y.3o @@ -0,0 +1,17 @@ + +.TH Y 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Include2\.Y +.SH Synopsis +.sp +.in 2 +\fBModule Include2\.Y\fR +.in +.sp +.fi +Top-comment of Y\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Include2.Y_include_doc.3o b/test/generators/cases_pre408/man/Include2.Y_include_doc.3o new file mode 100644 index 0000000000..cf5ff58313 --- /dev/null +++ b/test/generators/cases_pre408/man/Include2.Y_include_doc.3o @@ -0,0 +1,14 @@ + +.TH Y_include_doc 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Include2\.Y_include_doc +.SH Synopsis +.sp +.in 2 +\fBModule Include2\.Y_include_doc\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t = Y\.t diff --git a/test/generators/cases_pre408/man/Include2.Y_include_synopsis.3o b/test/generators/cases_pre408/man/Include2.Y_include_synopsis.3o new file mode 100644 index 0000000000..6c51464290 --- /dev/null +++ b/test/generators/cases_pre408/man/Include2.Y_include_synopsis.3o @@ -0,0 +1,17 @@ + +.TH Y_include_synopsis 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Include2\.Y_include_synopsis +.SH Synopsis +.sp +.in 2 +\fBModule Include2\.Y_include_synopsis\fR +.in +.sp +.fi +The include Y below should have the synopsis from Y's top-comment attached to it\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t = Y\.t diff --git a/test/generators/cases_pre408/man/Include_sections.3o b/test/generators/cases_pre408/man/Include_sections.3o new file mode 100644 index 0000000000..c45679f2e4 --- /dev/null +++ b/test/generators/cases_pre408/man/Include_sections.3o @@ -0,0 +1,204 @@ + +.TH Include_sections 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Include_sections +.SH Synopsis +.sp +.in 2 +\fBModule Include_sections\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR Something = \f[CB]sig\fR +.br +.ti +2 +\f[CB]val\fR something : unit +.sp +.ti +2 +\fB1\.1 Something 1\fR +.sp +.ti +2 +.fi +foo +.nf +.sp +.ti +2 +\f[CB]val\fR foo : unit +.sp +.ti +2 +\fB1\.1\.1 Something 2\fR +.sp +.ti +2 +\f[CB]val\fR bar : unit +.fi +.br +.ti +4 +foo bar +.nf +.sp +.ti +2 +\fB1\.2 Something 1-bis\fR +.sp +.ti +2 +.fi +Some text\. +.nf + +.br +\f[CB]end\fR +.fi +.br +.ti +2 +A module type\. +.nf +.sp +.fi +Let's include \f[CI]Something\fR once +.nf +.sp +\f[CB]val\fR something : unit +.sp +.in 3 +\fB2 Something 1\fR +.in +.sp +.fi +foo +.nf +.sp +\f[CB]val\fR foo : unit +.sp +.in 4 +\fB2\.1 Something 2\fR +.in +.sp +\f[CB]val\fR bar : unit +.fi +.br +.ti +2 +foo bar +.nf +.sp +.in 3 +\fB3 Something 1-bis\fR +.in +.sp +.fi +Some text\. +.nf +.sp +.in 3 +\fB4 Second include\fR +.in +.sp +.fi +Let's include \f[CI]Something\fR a second time: the heading level should be shift here\. +.nf +.sp +\f[CB]val\fR something : unit +.sp +.in 4 +\fB4\.1 Something 1\fR +.in +.sp +.fi +foo +.nf +.sp +\f[CB]val\fR foo : unit +.sp +.in 5 +\fB4\.1\.1 Something 2\fR +.in +.sp +\f[CB]val\fR bar : unit +.fi +.br +.ti +2 +foo bar +.nf +.sp +.in 4 +\fB4\.2 Something 1-bis\fR +.in +.sp +.fi +Some text\. +.nf +.sp +.in 4 +\fB4\.3 Third include\fR +.in +.sp +.fi +Shifted some more\. +.nf +.sp +\f[CB]val\fR something : unit +.sp +.in 5 +\fB4\.3\.1 Something 1\fR +.in +.sp +.fi +foo +.nf +.sp +\f[CB]val\fR foo : unit +.sp +.in 6 +\fBSomething 2\fR +.in +.sp +\f[CB]val\fR bar : unit +.fi +.br +.ti +2 +foo bar +.nf +.sp +.in 5 +\fB4\.3\.2 Something 1-bis\fR +.in +.sp +.fi +Some text\. +.nf +.sp +.fi +And let's include it again, but without inlining it this time: the ToC shouldn't grow\. +.nf +.sp +\f[CB]val\fR something : unit +.sp +.in 5 +\fB4\.3\.3 Something 1\fR +.in +.sp +.fi +foo +.nf +.sp +\f[CB]val\fR foo : unit +.sp +.in 6 +\fBSomething 2\fR +.in +.sp +\f[CB]val\fR bar : unit +.fi +.br +.ti +2 +foo bar +.nf +.sp +.in 5 +\fB4\.3\.4 Something 1-bis\fR +.in +.sp +.fi +Some text\. +.nf + diff --git a/test/generators/cases_pre408/man/Interlude.3o b/test/generators/cases_pre408/man/Interlude.3o new file mode 100644 index 0000000000..4818da7418 --- /dev/null +++ b/test/generators/cases_pre408/man/Interlude.3o @@ -0,0 +1,54 @@ + +.TH Interlude 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Interlude +.SH Synopsis +.sp +.in 2 +\fBModule Interlude\fR +.in +.sp +.fi +This is the comment associated to the module\. +.nf +.SH Documentation +.sp +.nf +.fi +Some separate stray text at the top of the module\. +.nf +.sp +\f[CB]val\fR foo : unit +.fi +.br +.ti +2 +Foo\. +.nf +.sp +.fi +Some stray text that is not associated with any signature item\. +.sp +It has multiple paragraphs\. +.nf +.sp +.fi +A separate block of stray text, adjacent to the preceding one\. +.nf +.sp +\f[CB]val\fR bar : unit +.fi +.br +.ti +2 +Bar\. +.nf +.sp +\f[CB]val\fR multiple : unit +.sp +\f[CB]val\fR signature : unit +.sp +\f[CB]val\fR items : unit +.sp +.fi +Stray text at the bottom of the module\. +.nf + diff --git a/test/generators/cases_pre408/man/Markup.3o b/test/generators/cases_pre408/man/Markup.3o new file mode 100644 index 0000000000..26a9679656 --- /dev/null +++ b/test/generators/cases_pre408/man/Markup.3o @@ -0,0 +1,279 @@ + +.TH Markup 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Markup +.SH Synopsis +.sp +.in 2 +\fBModule Markup\fR +.in +.sp +.fi +Here, we test the rendering of comment markup\. +.nf +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Sections\fR +.in +.sp +.fi +Let's get these done first, because sections will be used to break up the rest of this test\. +.sp +Besides the section heading above, there are also +.nf +.sp +.in 4 +\fB1\.1 Subsection headings\fR +.in +.sp +.fi +and +.nf +.sp +.in 5 +\fB1\.1\.1 Sub-subsection headings\fR +.in +.sp +.fi +but odoc has banned deeper headings\. There are also title headings, but they are only allowed in mld files\. +.nf +.sp +.in 5 +\fB1\.1\.2 Anchors\fR +.in +.sp +.fi +Sections can have attached \f[CI]Anchors\fR, and it is possible to \f[CI]link\fR to them\. Links to section headers should not be set in source code style\. +.nf +.sp +.in 6 +\fBParagraph\fR +.in +.sp +.fi +Individual paragraphs can have a heading\. +.nf +.sp +.in 7 +\fBSubparagraph\fR +.in +.sp +.fi +Parts of a longer paragraph that can be considered alone can also have headings\. +.nf +.sp +.in 3 +\fB2 Styling\fR +.in +.sp +.fi +This paragraph has some styled elements: \fBbold\fR and \fIitalic\fR, \fB\fIbold italic\fB\fR, emphasis, emphasis within emphasis, \fB\fIbold italic\fB\fR, superscript, subscript\. The line spacing should be enough for superscripts and subscripts not to look odd\. +.sp +Note: \fIIn italics emphasis is rendered as normal text while emphasis in emphasis is rendered in italics\.\fR \fIIt also work the same in +.UR # +links in italics with emphasis in emphasis\. +.UE +\fR +.sp +code is a different kind of markup that doesn't allow nested markup\. +.sp +It's possible for two markup elements to appear \fBnext\fR \fIto\fR each other and have a space, and appear \fBnext\fR\fIto\fR each other with no space\. It doesn't matter \fBhow\fR \fImuch\fR space it was in the source: in this sentence, it was two space characters\. And in this one, there is \fBa\fR \fInewline\fR\. +.sp +This is also true between non-code markup and code\. +.sp +Code can appear \fBinside other markup\fR\. Its display shouldn't be affected\. +.nf +.sp +.in 3 +\fB3 Links and references\fR +.in +.sp +.fi +This is a +.UR # +link +.UE +\. It sends you to the top of this page\. Links can have markup inside them: +.UR # +\fBbold\fR +.UE +, +.UR # +\fIitalics\fR +.UE +, +.UR # +emphasis +.UE +, +.UR # +superscript +.UE +, +.UR # +subscript +.UE +, and +.UR # +code +.UE +\. Links can also be nested +.UR # +inside +.UE + markup\. Links cannot be nested inside each other\. This link has no replacement text: +.UR # +# +.UE +\. The text is filled in by odoc\. This is a shorthand link: +.UR # +# +.UE +\. The text is also filled in by odoc in this case\. +.sp +This is a reference to \f[CI]foo\fR\. References can have replacement text: \f[CI]the value foo\fR\. Except for the special lookup support, references are pretty much just like links\. The replacement text can have nested styles: \f[CI]\fBbold\f[CI]\fR, \f[CI]\fIitalic\f[CI]\fR, \f[CI]emphasis\fR, \f[CI]superscript\fR, \f[CI]subscript\fR, and \f[CI]code\fR\. It's also possible to surround a reference in a style: \fB\f[CI]foo\fB\fR\. References can't be nested inside references, and links and references can't be nested inside each other\. +.nf +.sp +.in 3 +\fB4 Preformatted text\fR +.in +.sp +.fi +This is a code block: +.sp +.EX +let foo = () +(** There are some nested comments in here, but an unpaired comment + terminator would terminate the whole doc surrounding comment\. It's + best to keep code blocks no wider than 72 characters\. *) + +let bar = + ignore foo +.EE +.sp +There are also verbatim blocks: +.sp +.EX +The main difference is these don't get syntax highlighting\. +.EE +.nf +.sp +.in 3 +\fB5 Lists\fR +.in +.sp +.fi +\(bu This is a +.br +\(bu shorthand bulleted list, +.br +\(bu and the paragraphs in each list item support styling\. +.sp +1) This is a +.br +2) shorthand numbered list\. +.sp +\(bu Shorthand list items can span multiple lines, however trying to put two paragraphs into a shorthand list item using a double line break +.sp +just creates a paragraph outside the list\. +.sp +\(bu Similarly, inserting a blank line between two list items +.sp +\(bu creates two separate lists\. +.sp +\(bu To get around this limitation, one +.sp +.ti +2 +can use explicitly-delimited lists\. +.br +\(bu This one is bulleted, +.sp +1) but there is also the numbered variant\. +.sp +\(bu \(bu lists +.br +.ti +2 +\(bu can be nested +.br +.ti +2 +\(bu and can include references +.br +.ti +2 +\(bu \f[CI]foo\fR +.nf +.sp +.in 3 +\fB6 Unicode\fR +.in +.sp +.fi +The parser supports any ASCII-compatible encoding, in particuλar UTF-8\. +.nf +.sp +.in 3 +\fB7 Raw HTML\fR +.in +.sp +.fi +Raw HTML can be as inline elements into sentences\. +.sp +.nf +.sp +.in 3 +\fB8 Modules\fR +.in +.sp +.fi +@X: +.br +@X: +.br +@Y: +.br +@Z: +.nf +.sp +.in 3 +\fB9 Tags\fR +.in +.sp +.fi +Each comment can end with zero or more tags\. Here are some examples: +.sp +@author: antron +.br +@deprecated: a long time ago +.br +@parameter foo: unused +.br +@raises Failure: always +.br +@returns: never +.br +@see +.UR # +# +.UE +: this url +.br +@see foo\.ml: this file +.br +@see Foo: this document +.br +@since: 0 +.br +@before 1\.0: it was in beta +.br +@version: -1 +.nf +.sp +\f[CB]val\fR foo : unit +.fi +.br +.ti +2 +Comments in structure items \fBsupport\fR markup, too\. +.nf + diff --git a/test/generators/cases_pre408/man/Module.3o b/test/generators/cases_pre408/man/Module.3o new file mode 100644 index 0000000000..d2e3c611e9 --- /dev/null +++ b/test/generators/cases_pre408/man/Module.3o @@ -0,0 +1,178 @@ + +.TH Module 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Module +.SH Synopsis +.sp +.in 2 +\fBModule Module\fR +.in +.sp +.fi +Foo\. +.nf +.SH Documentation +.sp +.nf +\f[CB]val\fR foo : unit +.fi +.br +.ti +2 +The module needs at least one signature item, otherwise a bug causes the compiler to drop the module comment (above)\. See +.UR https://caml.inria.fr/mantis/view.php?id=7701 +https://caml\.inria\.fr/mantis/view\.php?id=7701 +.UE +\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]type\fR u +.sp +.ti +2 +\f[CB]type\fR 'a v +.sp +.ti +2 +\f[CB]type\fR ('a, 'b) w +.sp +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S1 +.sp +\f[CB]module\fR \f[CB]type\fR S2 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]type\fR u +.sp +.ti +2 +\f[CB]type\fR 'a v +.sp +.ti +2 +\f[CB]type\fR ('a, 'b) w +.sp +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S3 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t = int +.sp +.ti +2 +\f[CB]type\fR u = string +.sp +.ti +2 +\f[CB]type\fR 'a v +.sp +.ti +2 +\f[CB]type\fR ('a, 'b) w +.sp +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S4 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR u +.sp +.ti +2 +\f[CB]type\fR 'a v +.sp +.ti +2 +\f[CB]type\fR ('a, 'b) w +.sp +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S5 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]type\fR u +.sp +.ti +2 +\f[CB]type\fR ('a, 'b) w +.sp +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]type\fR ('a, 'b) result +.sp +\f[CB]module\fR \f[CB]type\fR S6 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]type\fR u +.sp +.ti +2 +\f[CB]type\fR 'a v +.sp +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR \f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR M' : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S7 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]type\fR u +.sp +.ti +2 +\f[CB]type\fR 'a v +.sp +.ti +2 +\f[CB]type\fR ('a, 'b) w +.sp +.ti +2 +\f[CB]module\fR M = M' +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S8 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]type\fR u +.sp +.ti +2 +\f[CB]type\fR 'a v +.sp +.ti +2 +\f[CB]type\fR ('a, 'b) w +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S9 = \f[CB]sig\fR \f[CB]end\fR +.sp +\f[CB]module\fR Mutually : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Recursive : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Module.M'.3o b/test/generators/cases_pre408/man/Module.M'.3o new file mode 100644 index 0000000000..b2cbc74554 --- /dev/null +++ b/test/generators/cases_pre408/man/Module.M'.3o @@ -0,0 +1,14 @@ + +.TH M' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Module\.M' +.SH Synopsis +.sp +.in 2 +\fBModule Module\.M'\fR +.in +.sp +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Module.Mutually.3o b/test/generators/cases_pre408/man/Module.Mutually.3o new file mode 100644 index 0000000000..80ea717abf --- /dev/null +++ b/test/generators/cases_pre408/man/Module.Mutually.3o @@ -0,0 +1,14 @@ + +.TH Mutually 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Module\.Mutually +.SH Synopsis +.sp +.in 2 +\fBModule Module\.Mutually\fR +.in +.sp +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Module.Recursive.3o b/test/generators/cases_pre408/man/Module.Recursive.3o new file mode 100644 index 0000000000..c0dea99a88 --- /dev/null +++ b/test/generators/cases_pre408/man/Module.Recursive.3o @@ -0,0 +1,14 @@ + +.TH Recursive 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Module\.Recursive +.SH Synopsis +.sp +.in 2 +\fBModule Module\.Recursive\fR +.in +.sp +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Nested.3o b/test/generators/cases_pre408/man/Nested.3o new file mode 100644 index 0000000000..0a1a755366 --- /dev/null +++ b/test/generators/cases_pre408/man/Nested.3o @@ -0,0 +1,89 @@ + +.TH Nested 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Nested +.SH Synopsis +.sp +.in 2 +\fBModule Nested\fR +.in +.sp +.fi +This comment needs to be here before #235 is fixed\. +.nf +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Module\fR +.in +.sp +\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +This is module X\. +.nf +.sp +.in 3 +\fB2 Module type\fR +.in +.sp +\f[CB]module\fR \f[CB]type\fR Y = \f[CB]sig\fR +.br +.ti +2 +.sp +.ti +2 +\fB2\.1\.1 Type\fR +.sp +.ti +2 +\f[CB]type\fR t +.fi +.br +.ti +4 +Some type\. +.nf +.sp +.ti +2 +\fB2\.1\.2 Values\fR +.sp +.ti +2 +\f[CB]val\fR y : t +.fi +.br +.ti +4 +The value of y\. +.nf + +.br +\f[CB]end\fR +.fi +.br +.ti +2 +This is module type Y\. +.nf +.sp +.in 3 +\fB3 Functor\fR +.in +.sp +\f[CB]module\fR F (Arg1 : Y) (Arg2 : \f[CB]sig\fR \.\.\. \f[CB]end\fR) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +This is a functor F\. +.nf +.sp +.in 3 +\fB4 Class\fR +.in +.sp +\f[CB]class\fR \f[CB]virtual\fR z : \f[CB]object\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +This is class z\. +.nf +.sp +\f[CB]class\fR \f[CB]virtual\fR inherits : \f[CB]object\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Nested.F.3o b/test/generators/cases_pre408/man/Nested.F.3o new file mode 100644 index 0000000000..3e8b37a584 --- /dev/null +++ b/test/generators/cases_pre408/man/Nested.F.3o @@ -0,0 +1,87 @@ + +.TH F 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Nested\.F +.SH Synopsis +.sp +.in 2 +\fBModule Nested\.F\fR +.in +.sp +.fi +This is a functor F\. +.nf +.sp +.fi +Some additional comments\. +.nf +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Type\fR +.in +.sp +.in 3 +\fB2 Parameters\fR +.in +.sp +\f[CB]module\fR Arg1 : \f[CB]sig\fR +.br +.ti +2 +.sp +.ti +2 +\fB2\.1\.1 Type\fR +.sp +.ti +2 +\f[CB]type\fR t +.fi +.br +.ti +4 +Some type\. +.nf +.sp +.ti +2 +\fB2\.1\.2 Values\fR +.sp +.ti +2 +\f[CB]val\fR y : t +.fi +.br +.ti +4 +The value of y\. +.nf + +.br +\f[CB]end\fR +.sp +\f[CB]module\fR Arg2 : \f[CB]sig\fR +.br +.ti +2 +.sp +.ti +2 +\fB2\.1\.3 Type\fR +.sp +.ti +2 +\f[CB]type\fR t +.fi +.br +.ti +4 +Some type\. +.nf + +.br +\f[CB]end\fR +.sp +.in 3 +\fB3 Signature\fR +.in +.sp +\f[CB]type\fR t = Arg1\.t * Arg2\.t +.fi +.br +.ti +2 +Some type\. +.nf + diff --git a/test/generators/cases_pre408/man/Nested.X.3o b/test/generators/cases_pre408/man/Nested.X.3o new file mode 100644 index 0000000000..18dc675861 --- /dev/null +++ b/test/generators/cases_pre408/man/Nested.X.3o @@ -0,0 +1,43 @@ + +.TH X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Nested\.X +.SH Synopsis +.sp +.in 2 +\fBModule Nested\.X\fR +.in +.sp +.fi +This is module X\. +.nf +.sp +.fi +Some additional comments\. +.nf +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Type\fR +.in +.sp +\f[CB]type\fR t +.fi +.br +.ti +2 +Some type\. +.nf +.sp +.in 3 +\fB2 Values\fR +.in +.sp +\f[CB]val\fR x : t +.fi +.br +.ti +2 +The value of x\. +.nf + diff --git a/test/generators/cases_pre408/man/Nested.inherits.3o b/test/generators/cases_pre408/man/Nested.inherits.3o new file mode 100644 index 0000000000..ddadd2fda6 --- /dev/null +++ b/test/generators/cases_pre408/man/Nested.inherits.3o @@ -0,0 +1,14 @@ + +.TH inherits 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Nested\.inherits +.SH Synopsis +.sp +.in 2 +\fBClass Nested\.inherits\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]inherit\fR z diff --git a/test/generators/cases_pre408/man/Nested.z.3o b/test/generators/cases_pre408/man/Nested.z.3o new file mode 100644 index 0000000000..2a269d7400 --- /dev/null +++ b/test/generators/cases_pre408/man/Nested.z.3o @@ -0,0 +1,41 @@ + +.TH z 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Nested\.z +.SH Synopsis +.sp +.in 2 +\fBClass Nested\.z\fR +.in +.sp +.fi +This is class z\. +.nf +.sp +.fi +Some additional comments\. +.nf +.SH Documentation +.sp +.nf +\f[CB]val\fR y : int +.fi +.br +.ti +2 +Some value\. +.nf +.sp +\f[CB]val\fR \f[CB]mutable\fR \f[CB]virtual\fR y' : int +.sp +.in 3 +\fB1 Methods\fR +.in +.sp +\f[CB]method\fR z : int +.fi +.br +.ti +2 +Some method\. +.nf +.sp +\f[CB]method\fR \f[CB]private\fR \f[CB]virtual\fR z' : int diff --git a/test/generators/cases_pre408/man/Ocamlary.3o b/test/generators/cases_pre408/man/Ocamlary.3o new file mode 100644 index 0000000000..d119e6802a --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.3o @@ -0,0 +1,1971 @@ + +.TH Ocamlary 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\fR +.in +.sp +.fi +This is an \fIinterface\fR with \fBall\fR of the module system features\. This documentation demonstrates: +.nf +.sp +.fi +\(bu comment formatting +.br +\(bu unassociated comments +.br +\(bu documentation sections +.br +\(bu module system documentation including +.sp +.ti +2 +1) submodules +.br +.ti +2 +2) module aliases +.br +.ti +2 +3) module types +.br +.ti +2 +4) module type aliases +.br +.ti +2 +5) modules with signatures +.br +.ti +2 +6) modules with aliased signatures +.nf +.sp +.fi +A numbered list: +.nf +.sp +.fi +1) 3 +.br +2) 2 +.br +3) 1 +.nf +.sp +.fi +David Sheets is the author\. +.nf +.sp +.fi +@author: David Sheets +.nf +.SH Documentation +.sp +.nf +.fi +You may find more information about this HTML documentation renderer at +.UR https://github.com/dsheets/ocamlary +github\.com/dsheets/ocamlary +.UE +\. +.nf +.sp +.fi +This is some verbatim text: +.sp +.EX +verbatim +.EE +.nf +.sp +.fi +This is some verbatim text: +.sp +.EX +[][df[]]}} +.EE +.nf +.sp +.fi +Here is some raw LaTeX: +.nf +.sp +.fi +Here is an index table of Empty modules: +.sp +@\f[CI]Empty\fR: A plain, empty module +.br +@\f[CI]EmptyAlias\fR: A plain module alias of Empty +.nf +.sp +.fi +Here is a table of links to indexes: indexlist +.nf +.sp +.fi +Here is some superscript: x2 +.nf +.sp +.fi +Here is some subscript: x0 +.nf +.sp +.fi +Here are some escaped brackets: { [ @ ] } +.nf +.sp +.fi +Here is some emphasis followed by code\. +.nf +.sp +.fi +An unassociated comment +.nf +.sp +.in 3 +\fB1 Level 1\fR +.in +.sp +.in 4 +\fB1\.1 Level 2\fR +.in +.sp +.in 5 +\fB1\.1\.1 Level 3\fR +.in +.sp +.in 6 +\fBLevel 4\fR +.in +.sp +.in 5 +\fB1\.1\.2 Basic module stuff\fR +.in +.sp +\f[CB]module\fR Empty : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +A plain, empty module +.nf +.sp +\f[CB]module\fR \f[CB]type\fR Empty = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.fi +.br +.ti +2 +An ambiguous, misnamed module type +.nf +.sp +\f[CB]module\fR \f[CB]type\fR MissingComment = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.fi +.br +.ti +2 +An ambiguous, misnamed module type +.nf +.sp +.in 3 +\fB2 Section 9000\fR +.in +.sp +\f[CB]module\fR EmptyAlias = Empty +.fi +.br +.ti +2 +A plain module alias of Empty +.nf +.sp +.in 5 +\fB2\.1\.1 EmptySig\fR +.in +.sp +\f[CB]module\fR \f[CB]type\fR EmptySig = \f[CB]sig\fR \f[CB]end\fR +.fi +.br +.ti +2 +A plain, empty module signature +.nf +.sp +\f[CB]module\fR \f[CB]type\fR EmptySigAlias = \f[CB]sig\fR \f[CB]end\fR +.fi +.br +.ti +2 +A plain, empty module signature alias of +.nf +.sp +\f[CB]module\fR ModuleWithSignature : EmptySig +.fi +.br +.ti +2 +A plain module of a signature of \f[CI]EmptySig\fR (reference) +.nf +.sp +\f[CB]module\fR ModuleWithSignatureAlias : EmptySigAlias +.fi +.br +.ti +2 +A plain module with an alias signature +.nf +.sp +\f[CB]module\fR One : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR SigForMod = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR Inner : \f[CB]sig\fR +.br +.ti +4 +\f[CB]module\fR \f[CB]type\fR Empty = \f[CB]sig\fR \f[CB]end\fR +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.fi +.br +.ti +2 +There's a signature in a module in this signature\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR SuperSig = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR \f[CB]type\fR SubSigA = \f[CB]sig\fR +.br +.ti +4 +.sp +.ti +4 +\fBA Labeled Section Header Inside of a Signature\fR +.sp +.ti +4 +\f[CB]type\fR t +.sp +.ti +4 +\f[CB]module\fR SubSigAMod : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR sub_sig_a_mod +.br +.ti +4 +\f[CB]end\fR +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR SubSigB = \f[CB]sig\fR +.br +.ti +4 +.sp +.ti +4 +\fBAnother Labeled Section Header Inside of a Signature\fR +.sp +.ti +4 +\f[CB]type\fR t +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR EmptySig = \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR not_actually_empty +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR One = \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR two +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR SuperSig = \f[CB]sig\fR \f[CB]end\fR +.br +\f[CB]end\fR +.sp +.fi +For a good time, see SuperSig\.SubSigA\.subSig or SuperSig\.SubSigB\.subSig or \f[CI]SuperSig\.EmptySig\fR\. Section \f[CI]Section 9000\fR is also interesting\. \f[CI]EmptySig\fR is the section and \f[CI]EmptySig\fR is the module signature\. +.nf +.sp +\f[CB]module\fR Buffer : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Buffer\.t +.nf +.sp +.fi +Some text before exception title\. +.nf +.sp +.in 5 +\fB2\.1\.2 Basic exception stuff\fR +.in +.sp +.fi +After exception title\. +.nf +.sp +\f[CB]exception\fR \f[CB]Kaboom\fR \f[CB]of\fR unit +.fi +.br +.ti +2 +Unary exception constructor +.nf +.sp +\f[CB]exception\fR \f[CB]Kablam\fR \f[CB]of\fR unit * unit +.fi +.br +.ti +2 +Binary exception constructor +.nf +.sp +\f[CB]exception\fR \f[CB]Kapow\fR \f[CB]of\fR unit * unit +.fi +.br +.ti +2 +Unary exception constructor over binary tuple +.nf +.sp +\f[CB]exception\fR \f[CB]EmptySig\fR +.fi +.br +.ti +2 +\f[CI]EmptySig\fR is a module and \f[CI]EmptySig\fR is this exception\. +.nf +.sp +\f[CB]exception\fR \f[CB]EmptySigAlias\fR +.fi +.br +.ti +2 +\f[CI]EmptySigAlias\fR is this exception\. +.nf +.sp +.in 5 +\fB2\.1\.3 Basic type and value stuff with advanced doc comments\fR +.in +.sp +\f[CB]type\fR ('a, 'b) a_function = \f[CB]'a\fR \f[CB]\->\fR \f[CB]'b\fR +.fi +.br +.ti +2 +\f[CI]a_function\fR is this type and \f[CI]a_function\fR is the value below\. +.nf +.sp +\f[CB]val\fR a_function : x:int \f[CB]\->\fR int +.fi +.br +.ti +2 +This is a_function with param and return type\. +.sp +.ti +2 +@parameter x: the x coordinate +.br +.ti +2 +@returns: the y coordinate +.nf +.sp +\f[CB]val\fR fun_fun_fun : ((int, int) a_function, (unit, unit) a_function) a_function +.sp +\f[CB]val\fR fun_maybe : ?yes:unit \f[CB]\->\fR unit \f[CB]\->\fR int +.sp +\f[CB]val\fR not_found : unit \f[CB]\->\fR unit +.fi +.br +.ti +2 +@raises Not_found: That's all it does +.nf +.sp +\f[CB]val\fR ocaml_org : string +.fi +.br +.ti +2 +@see +.UR http://ocaml.org/ +http://ocaml\.org/ +.UE +: The OCaml Web site +.nf +.sp +\f[CB]val\fR some_file : string +.fi +.br +.ti +2 +@see some_file: The file called some_file +.nf +.sp +\f[CB]val\fR some_doc : string +.fi +.br +.ti +2 +@see some_doc: The document called some_doc +.nf +.sp +\f[CB]val\fR since_mesozoic : unit +.fi +.br +.ti +2 +This value was introduced in the Mesozoic era\. +.sp +.ti +2 +@since: mesozoic +.nf +.sp +\f[CB]val\fR changing : unit +.fi +.br +.ti +2 +This value has had changes in 1\.0\.0, 1\.1\.0, and 1\.2\.0\. +.sp +.ti +2 +@before 1\.0\.0: before 1\.0\.0 +.br +.ti +2 +@before 1\.1\.0: before 1\.1\.0 +.br +.ti +2 +@version: 1\.2\.0 +.nf +.sp +.in 5 +\fB2\.1\.4 Some Operators\fR +.in +.sp +\f[CB]val\fR (~-) : unit +.sp +\f[CB]val\fR (!) : unit +.sp +\f[CB]val\fR (@) : unit +.sp +\f[CB]val\fR ($) : unit +.sp +\f[CB]val\fR (%) : unit +.sp +\f[CB]val\fR (&) : unit +.sp +\f[CB]val\fR (*) : unit +.sp +\f[CB]val\fR (-) : unit +.sp +\f[CB]val\fR (+) : unit +.sp +\f[CB]val\fR (-?) : unit +.sp +\f[CB]val\fR (/) : unit +.sp +\f[CB]val\fR (:=) : unit +.sp +\f[CB]val\fR (=) : unit +.sp +\f[CB]val\fR (land) : unit +.sp +.in 5 +\fB2\.1\.5 Advanced Module Stuff\fR +.in +.sp +\f[CB]module\fR CollectionModule : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +This comment is for CollectionModule\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR COLLECTION = \f[CB]sig\fR +.br +.ti +2 +.fi +This comment is for CollectionModule\. +.nf +.sp +.ti +2 +\f[CB]type\fR collection +.fi +.br +.ti +4 +This comment is for collection\. +.nf +.sp +.ti +2 +\f[CB]type\fR element +.sp +.ti +2 +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t = collection +.fi +.br +.ti +6 +This comment is for t\. +.nf +.sp +.ti +4 +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleA'\. +.nf +.sp +.ti +4 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleTypeA'\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.fi +.br +.ti +4 +This comment is for InnerModuleA\. +.nf +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +6 +This comment is for t\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.fi +.br +.ti +4 +This comment is for InnerModuleTypeA\. +.nf + +.br +\f[CB]end\fR +.fi +.br +.ti +2 +module type of +.nf +.sp +\f[CB]module\fR Recollection (C : COLLECTION) : COLLECTION \f[CB]with\fR \f[CB]type\fR collection = C\.element list \f[CB]and\fR \f[CB]type\fR element = C\.collection +.sp +\f[CB]module\fR \f[CB]type\fR MMM = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR C : \f[CB]sig\fR +.br +.ti +4 +.fi +This comment is for CollectionModule\. +.nf +.sp +.ti +4 +\f[CB]type\fR collection +.fi +.br +.ti +6 +This comment is for collection\. +.nf +.sp +.ti +4 +\f[CB]type\fR element +.sp +.ti +4 +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = collection +.fi +.br +.ti +8 +This comment is for t\. +.nf +.sp +.ti +6 +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR +.br +.ti +8 +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +10 +This comment is for t\. +.nf + +.br +.ti +6 +\f[CB]end\fR +.fi +.br +.ti +8 +This comment is for InnerModuleA'\. +.nf +.sp +.ti +6 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +8 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +10 +This comment is for t\. +.nf + +.br +.ti +6 +\f[CB]end\fR +.fi +.br +.ti +8 +This comment is for InnerModuleTypeA'\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleA\. +.nf +.sp +.ti +4 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleTypeA\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR RECOLLECTION = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR C = Recollection(CollectionModule) +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR RecollectionModule = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR collection = CollectionModule\.element list +.sp +.ti +2 +\f[CB]type\fR element = CollectionModule\.collection +.sp +.ti +2 +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t = collection +.fi +.br +.ti +6 +This comment is for t\. +.nf +.sp +.ti +4 +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleA'\. +.nf +.sp +.ti +4 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleTypeA'\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.fi +.br +.ti +4 +This comment is for InnerModuleA\. +.nf +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +6 +This comment is for t\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.fi +.br +.ti +4 +This comment is for InnerModuleTypeA\. +.nf + +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR A = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]module\fR Q : \f[CB]sig\fR +.br +.ti +4 +.fi +This comment is for CollectionModule\. +.nf +.sp +.ti +4 +\f[CB]type\fR collection +.fi +.br +.ti +6 +This comment is for collection\. +.nf +.sp +.ti +4 +\f[CB]type\fR element +.sp +.ti +4 +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = collection +.fi +.br +.ti +8 +This comment is for t\. +.nf +.sp +.ti +6 +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR +.br +.ti +8 +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +10 +This comment is for t\. +.nf + +.br +.ti +6 +\f[CB]end\fR +.fi +.br +.ti +8 +This comment is for InnerModuleA'\. +.nf +.sp +.ti +6 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +8 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +10 +This comment is for t\. +.nf + +.br +.ti +6 +\f[CB]end\fR +.fi +.br +.ti +8 +This comment is for InnerModuleTypeA'\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleA\. +.nf +.sp +.ti +4 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleTypeA\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR B = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]module\fR Q : \f[CB]sig\fR +.br +.ti +4 +.fi +This comment is for CollectionModule\. +.nf +.sp +.ti +4 +\f[CB]type\fR collection +.fi +.br +.ti +6 +This comment is for collection\. +.nf +.sp +.ti +4 +\f[CB]type\fR element +.sp +.ti +4 +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = collection +.fi +.br +.ti +8 +This comment is for t\. +.nf +.sp +.ti +6 +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR +.br +.ti +8 +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +10 +This comment is for t\. +.nf + +.br +.ti +6 +\f[CB]end\fR +.fi +.br +.ti +8 +This comment is for InnerModuleA'\. +.nf +.sp +.ti +6 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +8 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +10 +This comment is for t\. +.nf + +.br +.ti +6 +\f[CB]end\fR +.fi +.br +.ti +8 +This comment is for InnerModuleTypeA'\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleA\. +.nf +.sp +.ti +4 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleTypeA\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR C = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]module\fR Q : \f[CB]sig\fR +.br +.ti +4 +.fi +This comment is for CollectionModule\. +.nf +.sp +.ti +4 +\f[CB]type\fR collection +.fi +.br +.ti +6 +This comment is for collection\. +.nf +.sp +.ti +4 +\f[CB]type\fR element +.sp +.ti +4 +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = collection +.fi +.br +.ti +8 +This comment is for t\. +.nf +.sp +.ti +6 +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR +.br +.ti +8 +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +10 +This comment is for t\. +.nf + +.br +.ti +6 +\f[CB]end\fR +.fi +.br +.ti +8 +This comment is for InnerModuleA'\. +.nf +.sp +.ti +6 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +8 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +10 +This comment is for t\. +.nf + +.br +.ti +6 +\f[CB]end\fR +.fi +.br +.ti +8 +This comment is for InnerModuleTypeA'\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleA\. +.nf +.sp +.ti +4 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleTypeA\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 + +.br +\f[CB]end\fR +.fi +.br +.ti +2 +This module type includes two signatures\. +.nf +.sp +\f[CB]module\fR FunctorTypeOf (Collection : \f[CB]module\fR \f[CB]type\fR \f[CB]of\fR CollectionModule) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +This comment is for FunctorTypeOf\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR IncludeModuleType = \f[CB]sig\fR +.br +.ti +2 + +.br +\f[CB]end\fR +.fi +.br +.ti +2 +This comment is for IncludeModuleType\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR ToInclude = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR IncludedA : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR IncludedB = \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR s +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR IncludedA : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR IncludedB = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR s +.br +\f[CB]end\fR +.sp +.in 5 +\fB2\.1\.6 Advanced Type Stuff\fR +.in +.sp +\f[CB]type\fR record = { +.br +.ti +2 +field1 : int; +.br +.ti +4 +(* This comment is for field1\. *) +.br +.ti +2 +field2 : int; +.br +.ti +4 +(* This comment is for field2\. *) +.br +} +.fi +.br +.ti +2 +This comment is for record\. +.sp +.ti +2 +This comment is also for record\. +.nf +.sp +\f[CB]type\fR mutable_record = { +.br +.ti +2 +\f[CB]mutable\fR a : int; +.br +.ti +4 +(* a is first and mutable *) +.br +.ti +2 +b : unit; +.br +.ti +4 +(* b is second and immutable *) +.br +.ti +2 +\f[CB]mutable\fR c : int; +.br +.ti +4 +(* c is third and mutable *) +.br +} +.sp +\f[CB]type\fR universe_record = { +.br +.ti +2 +nihilate : a\. \f[CB]'a\fR \f[CB]\->\fR unit; +.br +} +.sp +\f[CB]type\fR variant = +.br +.ti +2 +| \f[CB]TagA\fR +.br +.ti +4 +(* This comment is for TagA\. *) +.br +.ti +2 +| \f[CB]ConstrB\fR \f[CB]of\fR int +.br +.ti +4 +(* This comment is for ConstrB\. *) +.br +.ti +2 +| \f[CB]ConstrC\fR \f[CB]of\fR int * int +.br +.ti +4 +(* This comment is for binary ConstrC\. *) +.br +.ti +2 +| \f[CB]ConstrD\fR \f[CB]of\fR int * int +.br +.ti +4 +(* This comment is for unary ConstrD of binary tuple\. *) +.br +.fi +.br +.ti +2 +This comment is for variant\. +.sp +.ti +2 +This comment is also for variant\. +.nf +.sp +\f[CB]type\fR poly_variant = [ +.br +.ti +2 +| `TagA +.br +.ti +2 +| `ConstrB \f[CB]of\fR int +.br + ] +.fi +.br +.ti +2 +This comment is for poly_variant\. +.sp +.ti +2 +Wow! It was a polymorphic variant! +.nf +.sp +\f[CB]type\fR (_, _) full_gadt = +.br +.ti +2 +| \f[CB]Tag\fR : (unit, unit) full_gadt +.br +.ti +2 +| \f[CB]First\fR : \f[CB]'a\fR \f[CB]\->\fR (\f[CB]'a\fR, unit) full_gadt +.br +.ti +2 +| \f[CB]Second\fR : \f[CB]'a\fR \f[CB]\->\fR (unit, \f[CB]'a\fR) full_gadt +.br +.ti +2 +| \f[CB]Exist\fR : \f[CB]'a\fR * \f[CB]'b\fR \f[CB]\->\fR (\f[CB]'b\fR, unit) full_gadt +.br +.fi +.br +.ti +2 +This comment is for full_gadt\. +.sp +.ti +2 +Wow! It was a GADT! +.nf +.sp +\f[CB]type\fR 'a partial_gadt = +.br +.ti +2 +| \f[CB]AscribeTag\fR : \f[CB]'a\fR partial_gadt +.br +.ti +2 +| \f[CB]OfTag\fR \f[CB]of\fR \f[CB]'a\fR partial_gadt +.br +.ti +2 +| \f[CB]ExistGadtTag\fR : (\f[CB]'a\fR \f[CB]\->\fR \f[CB]'b\fR) \f[CB]\->\fR \f[CB]'a\fR partial_gadt +.br +.fi +.br +.ti +2 +This comment is for partial_gadt\. +.sp +.ti +2 +Wow! It was a mixed GADT! +.nf +.sp +\f[CB]type\fR alias = variant +.fi +.br +.ti +2 +This comment is for alias\. +.nf +.sp +\f[CB]type\fR tuple = (alias * alias) * alias * (alias * alias) +.fi +.br +.ti +2 +This comment is for tuple\. +.nf +.sp +\f[CB]type\fR variant_alias = variant = +.br +.ti +2 +| \f[CB]TagA\fR +.br +.ti +2 +| \f[CB]ConstrB\fR \f[CB]of\fR int +.br +.ti +2 +| \f[CB]ConstrC\fR \f[CB]of\fR int * int +.br +.ti +2 +| \f[CB]ConstrD\fR \f[CB]of\fR int * int +.br +.fi +.br +.ti +2 +This comment is for variant_alias\. +.nf +.sp +\f[CB]type\fR record_alias = record = { +.br +.ti +2 +field1 : int; +.br +.ti +2 +field2 : int; +.br +} +.fi +.br +.ti +2 +This comment is for record_alias\. +.nf +.sp +\f[CB]type\fR poly_variant_union = [ +.br +.ti +2 +| poly_variant +.br +.ti +2 +| `TagC +.br + ] +.fi +.br +.ti +2 +This comment is for poly_variant_union\. +.nf +.sp +\f[CB]type\fR 'a poly_poly_variant = [ +.br +.ti +2 +| `TagA \f[CB]of\fR \f[CB]'a\fR +.br + ] +.sp +\f[CB]type\fR ('a, 'b) bin_poly_poly_variant = [ +.br +.ti +2 +| `TagA \f[CB]of\fR \f[CB]'a\fR +.br +.ti +2 +| `ConstrB \f[CB]of\fR \f[CB]'b\fR +.br + ] +.sp +\f[CB]type\fR 'a open_poly_variant = [> `TagA ] \f[CB]as\fR 'a +.sp +\f[CB]type\fR 'a open_poly_variant2 = [> `ConstrB of int ] \f[CB]as\fR 'a +.sp +\f[CB]type\fR 'a open_poly_variant_alias = \f[CB]'a\fR open_poly_variant open_poly_variant2 +.sp +\f[CB]type\fR 'a poly_fun = [> `ConstrB of int ] \f[CB]as\fR 'a \f[CB]\->\fR \f[CB]'a\fR +.sp +\f[CB]type\fR 'a poly_fun_constraint = \f[CB]'a\fR \f[CB]\->\fR \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [> `TagA ] +.sp +\f[CB]type\fR 'a closed_poly_variant = [< `One | `Two ] \f[CB]as\fR 'a +.sp +\f[CB]type\fR 'a clopen_poly_variant = [< `One | `Two of int | `Three Two Three ] \f[CB]as\fR 'a +.sp +\f[CB]type\fR nested_poly_variant = [ +.br +.ti +2 +| `A +.br +.ti +2 +| `B \f[CB]of\fR [ `B1 | `B2 ] +.br +.ti +2 +| `C +.br +.ti +2 +| `D \f[CB]of\fR [ `D1 of [ `D1a ] ] +.br + ] +.sp +\f[CB]type\fR ('a, 'b) full_gadt_alias = (\f[CB]'a\fR, \f[CB]'b\fR) full_gadt = +.br +.ti +2 +| \f[CB]Tag\fR : (unit, unit) full_gadt_alias +.br +.ti +2 +| \f[CB]First\fR : \f[CB]'a\fR \f[CB]\->\fR (\f[CB]'a\fR, unit) full_gadt_alias +.br +.ti +2 +| \f[CB]Second\fR : \f[CB]'a\fR \f[CB]\->\fR (unit, \f[CB]'a\fR) full_gadt_alias +.br +.ti +2 +| \f[CB]Exist\fR : \f[CB]'a\fR * \f[CB]'b\fR \f[CB]\->\fR (\f[CB]'b\fR, unit) full_gadt_alias +.br +.fi +.br +.ti +2 +This comment is for full_gadt_alias\. +.nf +.sp +\f[CB]type\fR 'a partial_gadt_alias = \f[CB]'a\fR partial_gadt = +.br +.ti +2 +| \f[CB]AscribeTag\fR : \f[CB]'a\fR partial_gadt_alias +.br +.ti +2 +| \f[CB]OfTag\fR \f[CB]of\fR \f[CB]'a\fR partial_gadt_alias +.br +.ti +2 +| \f[CB]ExistGadtTag\fR : (\f[CB]'a\fR \f[CB]\->\fR \f[CB]'b\fR) \f[CB]\->\fR \f[CB]'a\fR partial_gadt_alias +.br +.fi +.br +.ti +2 +This comment is for partial_gadt_alias\. +.nf +.sp +\f[CB]exception\fR \f[CB]Exn_arrow\fR : unit \f[CB]\->\fR exn +.fi +.br +.ti +2 +This comment is for \f[CI]Exn_arrow\fR\. +.nf +.sp +\f[CB]type\fR mutual_constr_a = +.br +.ti +2 +| \f[CB]A\fR +.br +.ti +2 +| \f[CB]B_ish\fR \f[CB]of\fR mutual_constr_b +.br +.ti +4 +(* This comment is between \f[CI]mutual_constr_a\fR and \f[CI]mutual_constr_b\fR\. *) +.br +.fi +.br +.ti +2 +This comment is for \f[CI]mutual_constr_a\fR then \f[CI]mutual_constr_b\fR\. +.nf +.sp +\f[CB]and\fR mutual_constr_b = +.br +.ti +2 +| \f[CB]B\fR +.br +.ti +2 +| \f[CB]A_ish\fR \f[CB]of\fR mutual_constr_a +.br +.ti +4 +(* This comment must be here for the next to associate correctly\. *) +.br +.fi +.br +.ti +2 +This comment is for \f[CI]mutual_constr_b\fR then \f[CI]mutual_constr_a\fR\. +.nf +.sp +\f[CB]type\fR rec_obj = < f : int; g : unit \f[CB]\->\fR unit; h : rec_obj; > +.sp +\f[CB]type\fR 'a open_obj = < f : int; g : unit \f[CB]\->\fR unit; \.\. > \f[CB]as\fR 'a +.sp +\f[CB]type\fR 'a oof = < a : unit; \.\. > \f[CB]as\fR 'a \f[CB]\->\fR \f[CB]'a\fR +.sp +\f[CB]type\fR 'a any_obj = < \.\. > \f[CB]as\fR 'a +.sp +\f[CB]type\fR empty_obj = < > +.sp +\f[CB]type\fR one_meth = < meth : unit; > +.sp +\f[CB]type\fR ext = \.\. +.fi +.br +.ti +2 +A mystery wrapped in an ellipsis +.nf +.sp +\f[CB]type\fR ext += +.br +.ti +2 +| \f[CB]ExtA\fR +.br +.sp +\f[CB]type\fR ext += +.br +.ti +2 +| \f[CB]ExtB\fR +.br +.sp +\f[CB]type\fR ext += +.br +.ti +2 +| \f[CB]ExtC\fR \f[CB]of\fR unit +.br +.ti +2 +| \f[CB]ExtD\fR \f[CB]of\fR ext +.br +.sp +\f[CB]type\fR ext += +.br +.ti +2 +| \f[CB]ExtE\fR +.br +.sp +\f[CB]type\fR ext += +.br +.ti +2 +| \f[CB]ExtF\fR +.br +.sp +\f[CB]type\fR 'a poly_ext = \.\. +.fi +.br +.ti +2 +'a poly_ext +.nf +.sp +\f[CB]type\fR poly_ext += +.br +.ti +2 +| \f[CB]Foo\fR \f[CB]of\fR \f[CB]'b\fR +.br +.ti +2 +| \f[CB]Bar\fR \f[CB]of\fR \f[CB]'b\fR * \f[CB]'b\fR +.br +.ti +4 +(* 'b poly_ext *) +.br +.sp +\f[CB]type\fR poly_ext += +.br +.ti +2 +| \f[CB]Quux\fR \f[CB]of\fR \f[CB]'c\fR +.br +.ti +4 +(* 'c poly_ext *) +.br +.sp +\f[CB]module\fR ExtMod : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR ExtMod\.t += +.br +.ti +2 +| \f[CB]ZzzTop0\fR +.br +.ti +4 +(* It's got the rock *) +.br +.sp +\f[CB]type\fR ExtMod\.t += +.br +.ti +2 +| \f[CB]ZzzTop\fR \f[CB]of\fR unit +.br +.ti +4 +(* and it packs a unit\. *) +.br +.sp +\f[CB]val\fR launch_missiles : unit \f[CB]\->\fR unit +.fi +.br +.ti +2 +Rotate keys on my mark\.\.\. +.nf +.sp +\f[CB]type\fR my_mod = (\f[CB]module\fR COLLECTION) +.fi +.br +.ti +2 +A brown paper package tied up with string +.nf +.sp +\f[CB]class\fR empty_class : \f[CB]object\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]class\fR one_method_class : \f[CB]object\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]class\fR two_method_class : \f[CB]object\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]class\fR 'a param_class : \f[CB]'a\fR \f[CB]\->\fR \f[CB]object\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR my_unit_object = unit param_class +.sp +\f[CB]type\fR 'a my_unit_class = unit param_class \f[CB]as\fR 'a +.sp +\f[CB]module\fR Dep1 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Dep2 (Arg : \f[CB]sig\fR \.\.\. \f[CB]end\fR) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR dep1 = Dep2(Dep1)\.B\.c +.sp +\f[CB]module\fR Dep3 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Dep4 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Dep5 (Arg : \f[CB]sig\fR \.\.\. \f[CB]end\fR) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR dep2 = Dep5(Dep4)\.Z\.X\.b +.sp +\f[CB]type\fR dep3 = Dep5(Dep4)\.Z\.Y\.a +.sp +\f[CB]module\fR Dep6 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Dep7 (Arg : \f[CB]sig\fR \.\.\. \f[CB]end\fR) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR dep4 = Dep7(Dep6)\.M\.Y\.d +.sp +\f[CB]module\fR Dep8 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Dep9 (X : \f[CB]sig\fR \.\.\. \f[CB]end\fR) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR Dep10 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t = int +.br +\f[CB]end\fR +.sp +\f[CB]module\fR Dep11 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Dep12 (Arg : \f[CB]sig\fR \.\.\. \f[CB]end\fR) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Dep13 : Dep12(Dep11)\.T +.sp +\f[CB]type\fR dep5 = Dep13\.c +.sp +\f[CB]module\fR \f[CB]type\fR With1 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR +.br +.ti +4 +\f[CB]module\fR \f[CB]type\fR S +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR N : M\.S +.br +\f[CB]end\fR +.sp +\f[CB]module\fR With2 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR With3 : With1 \f[CB]with\fR \f[CB]module\fR M = With2 +.sp +\f[CB]type\fR with1 = With3\.N\.t +.sp +\f[CB]module\fR With4 : With1 \f[CB]with\fR \f[CB]module\fR M := With2 +.sp +\f[CB]type\fR with2 = With4\.N\.t +.sp +\f[CB]module\fR With5 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR With6 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR With7 (X : \f[CB]sig\fR \.\.\. \f[CB]end\fR) : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR With8 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR +.br +.ti +4 +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t +.br +.ti +4 +\f[CB]end\fR +.sp +.ti +4 +\f[CB]module\fR N : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = With5\.N\.t +.br +.ti +4 +\f[CB]end\fR +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR With9 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR With10 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR With11 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR M = With9 +.sp +.ti +2 +\f[CB]module\fR N : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t = int +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR NestedInclude1 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR \f[CB]type\fR NestedInclude2 = \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR nested_include +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR NestedInclude2 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR nested_include +.br +\f[CB]end\fR +.sp +\f[CB]type\fR nested_include = int +.sp +\f[CB]module\fR DoubleInclude1 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR DoubleInclude3 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR double_include +.sp +\f[CB]module\fR IncludeInclude1 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR IncludeInclude2 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR include_include +.br +\f[CB]end\fR +.sp +\f[CB]type\fR include_include +.sp +.in 3 +\fB3 Trying the {!modules: \.\.\.} command\.\fR +.in +.sp +.fi +With ocamldoc, toplevel units will be linked and documented, while submodules will behave as simple references\. +.sp +With odoc, everything should be resolved (and linked) but only toplevel units will be documented\. +.sp +@\f[CI]Dep1\.X\fR: +.br +@DocOckTypes: +.br +@\f[CI]Ocamlary\.IncludeInclude1\fR: +.br +@\f[CI]Ocamlary\fR: This is an \fIinterface\fR with \fBall\fR of the module system features\. This documentation demonstrates: +.nf +.sp +.in 5 +\fB3\.1\.1 Weirder usages involving module types\fR +.in +.sp +.fi +@IncludeInclude1\.IncludeInclude2: +.br +@Dep4\.T: +.br +@\f[CI]A\.Q\fR: +.nf +.sp +.in 3 +\fB4 Playing with @canonical paths\fR +.in +.sp +\f[CB]module\fR CanonicalTest : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]val\fR test : \f[CB]'a\fR CanonicalTest\.Base\.List\.t \f[CB]\->\fR unit +.fi +.br +.ti +2 +Some ref to \f[CI]CanonicalTest\.Base__Tests\.C\.t\fR and \f[CI]CanonicalTest\.Base__Tests\.L\.id\fR\. But also to \f[CI]CanonicalTest\.Base__\.List\fR and \f[CI]CanonicalTest\.Base__\.List\.t\fR +.nf +.sp +.in 3 +\fB5 Aliases again\fR +.in +.sp +\f[CB]module\fR Aliases : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Let's imitate jst's layout\. +.nf +.sp +.in 3 +\fB6 Section title splicing\fR +.in +.sp +.fi +I can refer to +.sp +\(bu {!section:indexmodules} : \f[CI]Trying the {!modules: \.\.\.} command\.\fR +.br +\(bu {!aliases} : \f[CI]Aliases again\fR +.sp +But also to things in submodules: +.sp +\(bu {!section:SuperSig\.SubSigA\.subSig} : SuperSig\.SubSigA\.subSig +.br +\(bu {!Aliases\.incl} : \f[CI]Aliases:incl\fR +.sp +And just to make sure we do not mess up: +.sp +\(bu {{!section:indexmodules}A} : \f[CI]A\fR +.br +\(bu {{!aliases}B} : \f[CI]B\fR +.br +\(bu {{!section:SuperSig\.SubSigA\.subSig}C} : \f[CI]C\fR +.br +\(bu {{!Aliases\.incl}D} : \f[CI]D\fR +.nf +.sp +.in 3 +\fB7 New reference syntax\fR +.in +.sp +\f[CB]module\fR \f[CB]type\fR M = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +\f[CB]module\fR M : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +.fi +Here goes: +.sp +\(bu {!module-M\.t} : \f[CI]M\.t\fR +.br +\(bu {!module-type-M\.t} : \f[CI]M\.t\fR +.nf +.sp +\f[CB]module\fR Only_a_module : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +.fi +Some here should fail: +.sp +\(bu {!Only_a_module\.t} : \f[CI]Only_a_module\.t\fR +.br +\(bu {!module-Only_a_module\.t} : \f[CI]Only_a_module\.t\fR +.br +\(bu {!module-type-Only_a_module\.t} : Only_a_module\.t : \f[CI]test\fR +.nf +.sp +\f[CB]module\fR \f[CB]type\fR TypeExt = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t = \.\. +.sp +.ti +2 +\f[CB]type\fR t += +.br +.ti +4 +| \f[CB]C\fR +.br +.ti +2 +.sp +.ti +2 +\f[CB]val\fR f : t \f[CB]\->\fR unit +.br +\f[CB]end\fR +.sp +\f[CB]type\fR new_t = \.\. +.sp +\f[CB]type\fR new_t += +.br +.ti +2 +| \f[CB]C\fR +.br +.sp +\f[CB]module\fR \f[CB]type\fR TypeExtPruned = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR new_t += +.br +.ti +4 +| \f[CB]C\fR +.br +.ti +2 +.sp +.ti +2 +\f[CB]val\fR f : new_t \f[CB]\->\fR unit +.br +\f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.3o new file mode 100644 index 0000000000..3eaedb9e52 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.3o @@ -0,0 +1,81 @@ + +.TH Aliases 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Aliases\fR +.in +.sp +.fi +Let's imitate jst's layout\. +.nf +.SH Documentation +.sp +.nf +\f[CB]module\fR Foo__A : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Foo__B : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Foo__C : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Foo__D : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Foo__E : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Foo__ : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Foo : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR A' = Foo\.A +.sp +\f[CB]type\fR tata = Foo\.A\.t +.sp +\f[CB]type\fR tbtb = Foo\.B\.t +.sp +\f[CB]type\fR tete +.sp +\f[CB]type\fR tata' = A'\.t +.sp +\f[CB]type\fR tete2 = Foo\.E\.t +.sp +\f[CB]module\fR Std : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR stde = Std\.E\.t +.sp +.in 5 +\fB1\.1\.1 include of Foo\fR +.in +.sp +.fi +Just for giggle, let's see what happens when we include \f[CI]Foo\fR\. +.nf +.sp +\f[CB]module\fR A = Foo\.A +.sp +\f[CB]module\fR B = Foo\.B +.sp +\f[CB]module\fR C = Foo\.C +.sp +\f[CB]module\fR D = Foo\.D +.sp +\f[CB]module\fR E : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR testa = A\.t +.sp +.fi +And also, let's refer to \f[CI]A\.t\fR and \f[CI]Foo\.B\.id\fR +.nf +.sp +\f[CB]module\fR P1 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR P2 : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR X1 = P2\.Z +.sp +\f[CB]module\fR X2 = P2\.Z +.sp +\f[CB]type\fR p1 = X1\.t +.sp +\f[CB]type\fR p2 = X2\.t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.E.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.E.3o new file mode 100644 index 0000000000..b9cfcad106 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.E.3o @@ -0,0 +1,16 @@ + +.TH E 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.E +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.E\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.3o new file mode 100644 index 0000000000..4d9001ee8d --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.3o @@ -0,0 +1,22 @@ + +.TH Foo 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.Foo\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR A : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR B : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR C : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR D : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR E : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.A.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.A.3o new file mode 100644 index 0000000000..ed7832fadc --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.A.3o @@ -0,0 +1,16 @@ + +.TH A 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo\.A +.SH Synopsis +.sp +.in 2 +\fBModule Foo\.A\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.B.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.B.3o new file mode 100644 index 0000000000..c90edb7a5e --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.B.3o @@ -0,0 +1,16 @@ + +.TH B 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo\.B +.SH Synopsis +.sp +.in 2 +\fBModule Foo\.B\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.C.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.C.3o new file mode 100644 index 0000000000..a686387000 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.C.3o @@ -0,0 +1,16 @@ + +.TH C 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo\.C +.SH Synopsis +.sp +.in 2 +\fBModule Foo\.C\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.D.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.D.3o new file mode 100644 index 0000000000..fc996a6a86 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.D.3o @@ -0,0 +1,16 @@ + +.TH D 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo\.D +.SH Synopsis +.sp +.in 2 +\fBModule Foo\.D\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.E.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.E.3o new file mode 100644 index 0000000000..104ecae2da --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo.E.3o @@ -0,0 +1,16 @@ + +.TH E 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo\.E +.SH Synopsis +.sp +.in 2 +\fBModule Foo\.E\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__.3o new file mode 100644 index 0000000000..bcedb038c2 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__.3o @@ -0,0 +1,22 @@ + +.TH Foo__ 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo__ +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.Foo__\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR A = Foo__A +.sp +\f[CB]module\fR B = Foo__B +.sp +\f[CB]module\fR C = Foo__C +.sp +\f[CB]module\fR D = Foo__D +.sp +\f[CB]module\fR E = Foo__E diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__A.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__A.3o new file mode 100644 index 0000000000..b14b64b459 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__A.3o @@ -0,0 +1,16 @@ + +.TH Foo__A 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo__A +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.Foo__A\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__B.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__B.3o new file mode 100644 index 0000000000..5d5cb4b261 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__B.3o @@ -0,0 +1,16 @@ + +.TH Foo__B 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo__B +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.Foo__B\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__C.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__C.3o new file mode 100644 index 0000000000..ca7ea8f8df --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__C.3o @@ -0,0 +1,16 @@ + +.TH Foo__C 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo__C +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.Foo__C\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__D.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__D.3o new file mode 100644 index 0000000000..b38ec18d66 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__D.3o @@ -0,0 +1,16 @@ + +.TH Foo__D 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo__D +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.Foo__D\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__E.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__E.3o new file mode 100644 index 0000000000..904f378b75 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Foo__E.3o @@ -0,0 +1,16 @@ + +.TH Foo__E 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Foo__E +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.Foo__E\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.P1.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.P1.3o new file mode 100644 index 0000000000..61c0d7d029 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.P1.3o @@ -0,0 +1,14 @@ + +.TH P1 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.P1 +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.P1\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR Y : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.P1.Y.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.P1.Y.3o new file mode 100644 index 0000000000..9c79d3f25d --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.P1.Y.3o @@ -0,0 +1,16 @@ + +.TH Y 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.P1\.Y +.SH Synopsis +.sp +.in 2 +\fBModule P1\.Y\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.P2.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.P2.3o new file mode 100644 index 0000000000..9abf175a84 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.P2.3o @@ -0,0 +1,14 @@ + +.TH P2 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.P2 +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.P2\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR Z = Z diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.P2.Z.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.P2.Z.3o new file mode 100644 index 0000000000..bf97e9a90d --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.P2.Z.3o @@ -0,0 +1,19 @@ + +.TH Z 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.P2\.Z +.SH Synopsis +.sp +.in 2 +\fBModule P2\.Z\fR +.in +.sp +.SH Documentation +.sp +.nf +.fi +.nf +.sp +\f[CB]type\fR t +.sp +\f[CB]val\fR id : t \f[CB]\->\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Aliases.Std.3o b/test/generators/cases_pre408/man/Ocamlary.Aliases.Std.3o new file mode 100644 index 0000000000..7c5ea28ef2 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Aliases.Std.3o @@ -0,0 +1,22 @@ + +.TH Std 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Aliases\.Std +.SH Synopsis +.sp +.in 2 +\fBModule Aliases\.Std\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR A = Foo\.A +.sp +\f[CB]module\fR B = Foo\.B +.sp +\f[CB]module\fR C = Foo\.C +.sp +\f[CB]module\fR D = Foo\.D +.sp +\f[CB]module\fR E = Foo\.E diff --git a/test/generators/cases_pre408/man/Ocamlary.Buffer.3o b/test/generators/cases_pre408/man/Ocamlary.Buffer.3o new file mode 100644 index 0000000000..f64e89d3cd --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Buffer.3o @@ -0,0 +1,17 @@ + +.TH Buffer 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Buffer +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Buffer\fR +.in +.sp +.fi +Buffer\.t +.nf +.SH Documentation +.sp +.nf +\f[CB]val\fR f : Stdlib\.Buffer\.t \f[CB]\->\fR unit diff --git a/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.3o b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.3o new file mode 100644 index 0000000000..ca99fab4e9 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.3o @@ -0,0 +1,22 @@ + +.TH CanonicalTest 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CanonicalTest +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.CanonicalTest\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR Base__List : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Base__ : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Base : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR Base__Tests : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR List_modif : \f[CB]module\fR \f[CB]type\fR \f[CB]of\fR Base\.List \f[CB]with\fR \f[CB]type\fR 'c t = \f[CB]'c\fR Base\.List\.t diff --git a/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base.3o b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base.3o new file mode 100644 index 0000000000..448c9ccefd --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base.3o @@ -0,0 +1,14 @@ + +.TH Base 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CanonicalTest\.Base +.SH Synopsis +.sp +.in 2 +\fBModule CanonicalTest\.Base\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR List : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base.List.3o b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base.List.3o new file mode 100644 index 0000000000..8009af61ee --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base.List.3o @@ -0,0 +1,16 @@ + +.TH List 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CanonicalTest\.Base\.List +.SH Synopsis +.sp +.in 2 +\fBModule Base\.List\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR 'a t +.sp +\f[CB]val\fR id : \f[CB]'a\fR t \f[CB]\->\fR \f[CB]'a\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__.3o b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__.3o new file mode 100644 index 0000000000..0c999843ef --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__.3o @@ -0,0 +1,14 @@ + +.TH Base__ 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CanonicalTest\.Base__ +.SH Synopsis +.sp +.in 2 +\fBModule CanonicalTest\.Base__\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR List = Base__List diff --git a/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__List.3o b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__List.3o new file mode 100644 index 0000000000..9ca18f3ad6 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__List.3o @@ -0,0 +1,16 @@ + +.TH Base__List 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CanonicalTest\.Base__List +.SH Synopsis +.sp +.in 2 +\fBModule CanonicalTest\.Base__List\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR 'a t +.sp +\f[CB]val\fR id : \f[CB]'a\fR t \f[CB]\->\fR \f[CB]'a\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__Tests.3o b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__Tests.3o new file mode 100644 index 0000000000..fb691f974b --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__Tests.3o @@ -0,0 +1,33 @@ + +.TH Base__Tests 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CanonicalTest\.Base__Tests +.SH Synopsis +.sp +.in 2 +\fBModule CanonicalTest\.Base__Tests\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR C : \f[CB]module\fR \f[CB]type\fR \f[CB]of\fR Base__\.List +.sp +\f[CB]module\fR L = Base__\.List +.sp +\f[CB]val\fR foo : int L\.t \f[CB]\->\fR float L\.t +.sp +\f[CB]val\fR bar : \f[CB]'a\fR Base__\.List\.t \f[CB]\->\fR \f[CB]'a\fR Base__\.List\.t +.fi +.br +.ti +2 +This is just List\.id, or rather L\.id +.nf +.sp +\f[CB]val\fR baz : \f[CB]'a\fR Base__\.List\.t \f[CB]\->\fR unit +.fi +.br +.ti +2 +Just seeing if Base__\.List\.t (Base__\.List\.t) gets rewriten to Base\.List\.t (Base\.List\.t) +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__Tests.C.3o b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__Tests.C.3o new file mode 100644 index 0000000000..cc53028a11 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.Base__Tests.C.3o @@ -0,0 +1,16 @@ + +.TH C 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CanonicalTest\.Base__Tests\.C +.SH Synopsis +.sp +.in 2 +\fBModule Base__Tests\.C\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR 'a t +.sp +\f[CB]val\fR id : \f[CB]'a\fR t \f[CB]\->\fR \f[CB]'a\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.List_modif.3o b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.List_modif.3o new file mode 100644 index 0000000000..f388bf1c79 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CanonicalTest.List_modif.3o @@ -0,0 +1,16 @@ + +.TH List_modif 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CanonicalTest\.List_modif +.SH Synopsis +.sp +.in 2 +\fBModule CanonicalTest\.List_modif\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR 'c t = \f[CB]'c\fR Base\.List\.t +.sp +\f[CB]val\fR id : \f[CB]'a\fR t \f[CB]\->\fR \f[CB]'a\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.CollectionModule.3o b/test/generators/cases_pre408/man/Ocamlary.CollectionModule.3o new file mode 100644 index 0000000000..42287001e2 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CollectionModule.3o @@ -0,0 +1,50 @@ + +.TH CollectionModule 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CollectionModule +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.CollectionModule\fR +.in +.sp +.fi +This comment is for CollectionModule\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR collection +.fi +.br +.ti +2 +This comment is for collection\. +.nf +.sp +\f[CB]type\fR element +.sp +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +This comment is for InnerModuleA\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +4 +This comment is for t\. +.nf + +.br +\f[CB]end\fR +.fi +.br +.ti +2 +This comment is for InnerModuleTypeA\. +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.CollectionModule.InnerModuleA.3o b/test/generators/cases_pre408/man/Ocamlary.CollectionModule.InnerModuleA.3o new file mode 100644 index 0000000000..b575f1934a --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CollectionModule.InnerModuleA.3o @@ -0,0 +1,48 @@ + +.TH InnerModuleA 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CollectionModule\.InnerModuleA +.SH Synopsis +.sp +.in 2 +\fBModule CollectionModule\.InnerModuleA\fR +.in +.sp +.fi +This comment is for InnerModuleA\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t = collection +.fi +.br +.ti +2 +This comment is for t\. +.nf +.sp +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +This comment is for InnerModuleA'\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +4 +This comment is for t\. +.nf + +.br +\f[CB]end\fR +.fi +.br +.ti +2 +This comment is for InnerModuleTypeA'\. +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.3o b/test/generators/cases_pre408/man/Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.3o new file mode 100644 index 0000000000..035499870d --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.3o @@ -0,0 +1,23 @@ + +.TH InnerModuleA' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.CollectionModule\.InnerModuleA\.InnerModuleA' +.SH Synopsis +.sp +.in 2 +\fBModule InnerModuleA\.InnerModuleA'\fR +.in +.sp +.fi +This comment is for InnerModuleA'\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +2 +This comment is for t\. +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep1.3o b/test/generators/cases_pre408/man/Ocamlary.Dep1.3o new file mode 100644 index 0000000000..297a5aa286 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep1.3o @@ -0,0 +1,27 @@ + +.TH Dep1 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep1 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep1\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]class\fR c : \f[CB]object\fR +.br +.ti +4 +\f[CB]method\fR m : int +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR X : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep1.X.3o b/test/generators/cases_pre408/man/Ocamlary.Dep1.X.3o new file mode 100644 index 0000000000..735ada7b3f --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep1.X.3o @@ -0,0 +1,14 @@ + +.TH X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep1\.X +.SH Synopsis +.sp +.in 2 +\fBModule Dep1\.X\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR Y : S diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep1.X.Y.3o b/test/generators/cases_pre408/man/Ocamlary.Dep1.X.Y.3o new file mode 100644 index 0000000000..70fb5f99d6 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep1.X.Y.3o @@ -0,0 +1,14 @@ + +.TH Y 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep1\.X\.Y +.SH Synopsis +.sp +.in 2 +\fBModule X\.Y\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]class\fR c : \f[CB]object\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep1.X.Y.c.3o b/test/generators/cases_pre408/man/Ocamlary.Dep1.X.Y.c.3o new file mode 100644 index 0000000000..382149a17f --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep1.X.Y.c.3o @@ -0,0 +1,14 @@ + +.TH c 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep1\.X\.Y\.c +.SH Synopsis +.sp +.in 2 +\fBClass Y\.c\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]method\fR m : int diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep11.3o b/test/generators/cases_pre408/man/Ocamlary.Dep11.3o new file mode 100644 index 0000000000..bac56bcd86 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep11.3o @@ -0,0 +1,25 @@ + +.TH Dep11 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep11 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep11\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]class\fR c : \f[CB]object\fR +.br +.ti +4 +\f[CB]method\fR m : int +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep12.3o b/test/generators/cases_pre408/man/Ocamlary.Dep12.3o new file mode 100644 index 0000000000..385fd493ff --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep12.3o @@ -0,0 +1,30 @@ + +.TH Dep12 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep12 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep12\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Arg : \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR \f[CB]type\fR S +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]module\fR \f[CB]type\fR T = Arg\.S diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep13.3o b/test/generators/cases_pre408/man/Ocamlary.Dep13.3o new file mode 100644 index 0000000000..3f3e4f77cf --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep13.3o @@ -0,0 +1,14 @@ + +.TH Dep13 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep13 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep13\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]class\fR c : \f[CB]object\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep13.c.3o b/test/generators/cases_pre408/man/Ocamlary.Dep13.c.3o new file mode 100644 index 0000000000..f3bd02afb7 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep13.c.3o @@ -0,0 +1,14 @@ + +.TH c 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep13\.c +.SH Synopsis +.sp +.in 2 +\fBClass Dep13\.c\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]method\fR m : int diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep2.3o b/test/generators/cases_pre408/man/Ocamlary.Dep2.3o new file mode 100644 index 0000000000..af26563630 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep2.3o @@ -0,0 +1,41 @@ + +.TH Dep2 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep2 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep2\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Arg : \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR \f[CB]type\fR S +.sp +.ti +2 +\f[CB]module\fR X : \f[CB]sig\fR +.br +.ti +4 +\f[CB]module\fR Y : S +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]module\fR A : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]module\fR B = A\.Y diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep2.A.3o b/test/generators/cases_pre408/man/Ocamlary.Dep2.A.3o new file mode 100644 index 0000000000..bfcc73e395 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep2.A.3o @@ -0,0 +1,14 @@ + +.TH A 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep2\.A +.SH Synopsis +.sp +.in 2 +\fBModule Dep2\.A\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR Y : Arg\.S diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep3.3o b/test/generators/cases_pre408/man/Ocamlary.Dep3.3o new file mode 100644 index 0000000000..7c9361e264 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep3.3o @@ -0,0 +1,14 @@ + +.TH Dep3 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep3 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep3\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR a diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep4.3o b/test/generators/cases_pre408/man/Ocamlary.Dep4.3o new file mode 100644 index 0000000000..b76c8a2a43 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep4.3o @@ -0,0 +1,37 @@ + +.TH Dep4 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep4 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep4\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR T = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR b +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR X : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR b +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR Y : \f[CB]sig\fR \f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR X : T diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep4.X.3o b/test/generators/cases_pre408/man/Ocamlary.Dep4.X.3o new file mode 100644 index 0000000000..b3f7f0447d --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep4.X.3o @@ -0,0 +1,14 @@ + +.TH X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep4\.X +.SH Synopsis +.sp +.in 2 +\fBModule Dep4\.X\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR b diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep5.3o b/test/generators/cases_pre408/man/Ocamlary.Dep5.3o new file mode 100644 index 0000000000..17c07611d9 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep5.3o @@ -0,0 +1,45 @@ + +.TH Dep5 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep5 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep5\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Arg : \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR \f[CB]type\fR T +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +4 +\f[CB]module\fR X : T +.sp +.ti +4 +\f[CB]module\fR Y : \f[CB]sig\fR \f[CB]end\fR +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR X : T +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]module\fR Z : Arg\.S \f[CB]with\fR \f[CB]module\fR Y = Dep3 diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep5.Z.3o b/test/generators/cases_pre408/man/Ocamlary.Dep5.Z.3o new file mode 100644 index 0000000000..e7b9f53035 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep5.Z.3o @@ -0,0 +1,16 @@ + +.TH Z 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep5\.Z +.SH Synopsis +.sp +.in 2 +\fBModule Dep5\.Z\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR X : Arg\.T +.sp +\f[CB]module\fR Y = Dep3 diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep6.3o b/test/generators/cases_pre408/man/Ocamlary.Dep6.3o new file mode 100644 index 0000000000..0d2adda841 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep6.3o @@ -0,0 +1,43 @@ + +.TH Dep6 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep6 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep6\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR d +.br +\f[CB]end\fR +.sp +\f[CB]module\fR \f[CB]type\fR T = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR \f[CB]type\fR R = \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR d +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR Y : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR d +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +\f[CB]module\fR X : T diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep6.X.3o b/test/generators/cases_pre408/man/Ocamlary.Dep6.X.3o new file mode 100644 index 0000000000..2f29b85e3a --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep6.X.3o @@ -0,0 +1,21 @@ + +.TH X 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep6\.X +.SH Synopsis +.sp +.in 2 +\fBModule Dep6\.X\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR R = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR d +.br +\f[CB]end\fR +.sp +\f[CB]module\fR Y : R diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep6.X.Y.3o b/test/generators/cases_pre408/man/Ocamlary.Dep6.X.Y.3o new file mode 100644 index 0000000000..ede5b1192c --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep6.X.Y.3o @@ -0,0 +1,14 @@ + +.TH Y 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep6\.X\.Y +.SH Synopsis +.sp +.in 2 +\fBModule X\.Y\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR d diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep7.3o b/test/generators/cases_pre408/man/Ocamlary.Dep7.3o new file mode 100644 index 0000000000..489d2662c6 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep7.3o @@ -0,0 +1,54 @@ + +.TH Dep7 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep7 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep7\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Arg : \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR \f[CB]type\fR S +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR T = \f[CB]sig\fR +.br +.ti +4 +\f[CB]module\fR \f[CB]type\fR R = S +.sp +.ti +4 +\f[CB]module\fR Y : R +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR X : \f[CB]sig\fR +.br +.ti +4 +\f[CB]module\fR \f[CB]type\fR R = S +.sp +.ti +4 +\f[CB]module\fR Y : R +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]module\fR M : Arg\.T diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep7.M.3o b/test/generators/cases_pre408/man/Ocamlary.Dep7.M.3o new file mode 100644 index 0000000000..b6ee8492e8 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep7.M.3o @@ -0,0 +1,16 @@ + +.TH M 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep7\.M +.SH Synopsis +.sp +.in 2 +\fBModule Dep7\.M\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR R = Arg\.S +.sp +\f[CB]module\fR Y : R diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep8.3o b/test/generators/cases_pre408/man/Ocamlary.Dep8.3o new file mode 100644 index 0000000000..f669090526 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep8.3o @@ -0,0 +1,19 @@ + +.TH Dep8 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep8 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep8\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR T = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.Dep9.3o b/test/generators/cases_pre408/man/Ocamlary.Dep9.3o new file mode 100644 index 0000000000..16b206a86f --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Dep9.3o @@ -0,0 +1,30 @@ + +.TH Dep9 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Dep9 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Dep9\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR X : \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR \f[CB]type\fR T +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]module\fR \f[CB]type\fR T = X\.T diff --git a/test/generators/cases_pre408/man/Ocamlary.DoubleInclude1.3o b/test/generators/cases_pre408/man/Ocamlary.DoubleInclude1.3o new file mode 100644 index 0000000000..7d675b3213 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.DoubleInclude1.3o @@ -0,0 +1,14 @@ + +.TH DoubleInclude1 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.DoubleInclude1 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.DoubleInclude1\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR DoubleInclude2 : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.DoubleInclude1.DoubleInclude2.3o b/test/generators/cases_pre408/man/Ocamlary.DoubleInclude1.DoubleInclude2.3o new file mode 100644 index 0000000000..c81b84ccb9 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.DoubleInclude1.DoubleInclude2.3o @@ -0,0 +1,14 @@ + +.TH DoubleInclude2 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.DoubleInclude1\.DoubleInclude2 +.SH Synopsis +.sp +.in 2 +\fBModule DoubleInclude1\.DoubleInclude2\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR double_include diff --git a/test/generators/cases_pre408/man/Ocamlary.DoubleInclude3.3o b/test/generators/cases_pre408/man/Ocamlary.DoubleInclude3.3o new file mode 100644 index 0000000000..d56c24133e --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.DoubleInclude3.3o @@ -0,0 +1,14 @@ + +.TH DoubleInclude3 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.DoubleInclude3 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.DoubleInclude3\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR DoubleInclude2 : \f[CB]sig\fR \.\.\. \f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.DoubleInclude3.DoubleInclude2.3o b/test/generators/cases_pre408/man/Ocamlary.DoubleInclude3.DoubleInclude2.3o new file mode 100644 index 0000000000..18dc61f14d --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.DoubleInclude3.DoubleInclude2.3o @@ -0,0 +1,14 @@ + +.TH DoubleInclude2 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.DoubleInclude3\.DoubleInclude2 +.SH Synopsis +.sp +.in 2 +\fBModule DoubleInclude3\.DoubleInclude2\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR double_include diff --git a/test/generators/cases_pre408/man/Ocamlary.Empty.3o b/test/generators/cases_pre408/man/Ocamlary.Empty.3o new file mode 100644 index 0000000000..1ce04df962 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Empty.3o @@ -0,0 +1,21 @@ + +.TH Empty 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Empty +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Empty\fR +.in +.sp +.fi +A plain, empty module +.nf +.sp +.fi +This module has a signature without any members\. +.nf +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.ExtMod.3o b/test/generators/cases_pre408/man/Ocamlary.ExtMod.3o new file mode 100644 index 0000000000..9b6c8ba8e4 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.ExtMod.3o @@ -0,0 +1,21 @@ + +.TH ExtMod 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.ExtMod +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.ExtMod\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t = \.\. +.sp +\f[CB]type\fR t += +.br +.ti +2 +| \f[CB]Leisureforce\fR +.br + diff --git a/test/generators/cases_pre408/man/Ocamlary.FunctorTypeOf.3o b/test/generators/cases_pre408/man/Ocamlary.FunctorTypeOf.3o new file mode 100644 index 0000000000..576599a8bf --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.FunctorTypeOf.3o @@ -0,0 +1,133 @@ + +.TH FunctorTypeOf 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.FunctorTypeOf +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.FunctorTypeOf\fR +.in +.sp +.fi +This comment is for FunctorTypeOf\. +.nf +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR Collection : \f[CB]sig\fR +.br +.ti +2 +.fi +This comment is for CollectionModule\. +.nf +.sp +.ti +2 +\f[CB]type\fR collection +.fi +.br +.ti +4 +This comment is for collection\. +.nf +.sp +.ti +2 +\f[CB]type\fR element +.sp +.ti +2 +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t = collection +.fi +.br +.ti +6 +This comment is for t\. +.nf +.sp +.ti +4 +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleA'\. +.nf +.sp +.ti +4 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleTypeA'\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.fi +.br +.ti +4 +This comment is for InnerModuleA\. +.nf +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +6 +This comment is for t\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.fi +.br +.ti +4 +This comment is for InnerModuleTypeA\. +.nf + +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]type\fR t = Collection\.collection +.fi +.br +.ti +2 +This comment is for t\. +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.IncludeInclude1.3o b/test/generators/cases_pre408/man/Ocamlary.IncludeInclude1.3o new file mode 100644 index 0000000000..2d1d137d14 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.IncludeInclude1.3o @@ -0,0 +1,19 @@ + +.TH IncludeInclude1 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.IncludeInclude1 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.IncludeInclude1\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR IncludeInclude2 = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR include_include +.br +\f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.IncludedA.3o b/test/generators/cases_pre408/man/Ocamlary.IncludedA.3o new file mode 100644 index 0000000000..3f4bb80a5c --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.IncludedA.3o @@ -0,0 +1,14 @@ + +.TH IncludedA 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.IncludedA +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.IncludedA\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.M.3o b/test/generators/cases_pre408/man/Ocamlary.M.3o new file mode 100644 index 0000000000..76aa8ee82a --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.M.3o @@ -0,0 +1,14 @@ + +.TH M 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.M +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.M\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.ModuleWithSignature.3o b/test/generators/cases_pre408/man/Ocamlary.ModuleWithSignature.3o new file mode 100644 index 0000000000..cfd75b9598 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.ModuleWithSignature.3o @@ -0,0 +1,17 @@ + +.TH ModuleWithSignature 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.ModuleWithSignature +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.ModuleWithSignature\fR +.in +.sp +.fi +A plain module of a signature of \f[CI]EmptySig\fR (reference) +.nf +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.ModuleWithSignatureAlias.3o b/test/generators/cases_pre408/man/Ocamlary.ModuleWithSignatureAlias.3o new file mode 100644 index 0000000000..e3d13776c3 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.ModuleWithSignatureAlias.3o @@ -0,0 +1,21 @@ + +.TH ModuleWithSignatureAlias 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.ModuleWithSignatureAlias +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.ModuleWithSignatureAlias\fR +.in +.sp +.fi +A plain module with an alias signature +.nf +.sp +.fi +@deprecated: I don't like this element any more\. +.nf +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.One.3o b/test/generators/cases_pre408/man/Ocamlary.One.3o new file mode 100644 index 0000000000..391b8daa38 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.One.3o @@ -0,0 +1,14 @@ + +.TH One 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.One +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.One\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR one diff --git a/test/generators/cases_pre408/man/Ocamlary.Only_a_module.3o b/test/generators/cases_pre408/man/Ocamlary.Only_a_module.3o new file mode 100644 index 0000000000..c0d805671a --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Only_a_module.3o @@ -0,0 +1,14 @@ + +.TH Only_a_module 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Only_a_module +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Only_a_module\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.Recollection.3o b/test/generators/cases_pre408/man/Ocamlary.Recollection.3o new file mode 100644 index 0000000000..838559c75a --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Recollection.3o @@ -0,0 +1,161 @@ + +.TH Recollection 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Recollection +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.Recollection\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR C : \f[CB]sig\fR +.br +.ti +2 +.fi +This comment is for CollectionModule\. +.nf +.sp +.ti +2 +\f[CB]type\fR collection +.fi +.br +.ti +4 +This comment is for collection\. +.nf +.sp +.ti +2 +\f[CB]type\fR element +.sp +.ti +2 +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t = collection +.fi +.br +.ti +6 +This comment is for t\. +.nf +.sp +.ti +4 +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleA'\. +.nf +.sp +.ti +4 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +6 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +8 +This comment is for t\. +.nf + +.br +.ti +4 +\f[CB]end\fR +.fi +.br +.ti +6 +This comment is for InnerModuleTypeA'\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.fi +.br +.ti +4 +This comment is for InnerModuleA\. +.nf +.sp +.ti +2 +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +4 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +6 +This comment is for t\. +.nf + +.br +.ti +2 +\f[CB]end\fR +.fi +.br +.ti +4 +This comment is for InnerModuleTypeA\. +.nf + +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +.fi +This comment is for CollectionModule\. +.nf +.sp +\f[CB]type\fR collection = C\.element list +.fi +.br +.ti +2 +This comment is for collection\. +.nf +.sp +\f[CB]type\fR element = C\.collection +.sp +\f[CB]module\fR InnerModuleA : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +This comment is for InnerModuleA\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t = InnerModuleA\.InnerModuleA'\.t +.fi +.br +.ti +4 +This comment is for t\. +.nf + +.br +\f[CB]end\fR +.fi +.br +.ti +2 +This comment is for InnerModuleTypeA\. +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.Recollection.InnerModuleA.3o b/test/generators/cases_pre408/man/Ocamlary.Recollection.InnerModuleA.3o new file mode 100644 index 0000000000..8deaf3fa24 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Recollection.InnerModuleA.3o @@ -0,0 +1,48 @@ + +.TH InnerModuleA 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Recollection\.InnerModuleA +.SH Synopsis +.sp +.in 2 +\fBModule Recollection\.InnerModuleA\fR +.in +.sp +.fi +This comment is for InnerModuleA\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t = collection +.fi +.br +.ti +2 +This comment is for t\. +.nf +.sp +\f[CB]module\fR InnerModuleA' : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +This comment is for InnerModuleA'\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR InnerModuleTypeA' = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t = InnerModuleA'\.t +.fi +.br +.ti +4 +This comment is for t\. +.nf + +.br +\f[CB]end\fR +.fi +.br +.ti +2 +This comment is for InnerModuleTypeA'\. +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.Recollection.InnerModuleA.InnerModuleA'.3o b/test/generators/cases_pre408/man/Ocamlary.Recollection.InnerModuleA.InnerModuleA'.3o new file mode 100644 index 0000000000..65079cfb7a --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.Recollection.InnerModuleA.InnerModuleA'.3o @@ -0,0 +1,23 @@ + +.TH InnerModuleA' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.Recollection\.InnerModuleA\.InnerModuleA' +.SH Synopsis +.sp +.in 2 +\fBModule InnerModuleA\.InnerModuleA'\fR +.in +.sp +.fi +This comment is for InnerModuleA'\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t = (unit, unit) a_function +.fi +.br +.ti +2 +This comment is for t\. +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.With10.3o b/test/generators/cases_pre408/man/Ocamlary.With10.3o new file mode 100644 index 0000000000..368fda0a35 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With10.3o @@ -0,0 +1,34 @@ + +.TH With10 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With10 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.With10\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR T = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR +.br +.ti +4 +\f[CB]module\fR \f[CB]type\fR S +.br +.ti +2 +\f[CB]end\fR +.sp +.ti +2 +\f[CB]module\fR N : M\.S +.br +\f[CB]end\fR +.fi +.br +.ti +2 +\f[CI]With10\.T\fR is a submodule type\. +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.With2.3o b/test/generators/cases_pre408/man/Ocamlary.With2.3o new file mode 100644 index 0000000000..1f6b6489a8 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With2.3o @@ -0,0 +1,19 @@ + +.TH With2 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With2 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.With2\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.With3.3o b/test/generators/cases_pre408/man/Ocamlary.With3.3o new file mode 100644 index 0000000000..212ac4640e --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With3.3o @@ -0,0 +1,16 @@ + +.TH With3 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With3 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.With3\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR M = With2 +.sp +\f[CB]module\fR N : M\.S diff --git a/test/generators/cases_pre408/man/Ocamlary.With3.N.3o b/test/generators/cases_pre408/man/Ocamlary.With3.N.3o new file mode 100644 index 0000000000..abfb61b5ac --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With3.N.3o @@ -0,0 +1,14 @@ + +.TH N 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With3\.N +.SH Synopsis +.sp +.in 2 +\fBModule With3\.N\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.With4.3o b/test/generators/cases_pre408/man/Ocamlary.With4.3o new file mode 100644 index 0000000000..7f10b9a573 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With4.3o @@ -0,0 +1,14 @@ + +.TH With4 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With4 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.With4\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR N : With2\.S diff --git a/test/generators/cases_pre408/man/Ocamlary.With4.N.3o b/test/generators/cases_pre408/man/Ocamlary.With4.N.3o new file mode 100644 index 0000000000..db548b7ba3 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With4.N.3o @@ -0,0 +1,14 @@ + +.TH N 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With4\.N +.SH Synopsis +.sp +.in 2 +\fBModule With4\.N\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.With5.3o b/test/generators/cases_pre408/man/Ocamlary.With5.3o new file mode 100644 index 0000000000..69f001fb2e --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With5.3o @@ -0,0 +1,21 @@ + +.TH With5 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With5 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.With5\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.sp +\f[CB]module\fR N : S diff --git a/test/generators/cases_pre408/man/Ocamlary.With5.N.3o b/test/generators/cases_pre408/man/Ocamlary.With5.N.3o new file mode 100644 index 0000000000..d9965425d3 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With5.N.3o @@ -0,0 +1,14 @@ + +.TH N 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With5\.N +.SH Synopsis +.sp +.in 2 +\fBModule With5\.N\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Ocamlary.With6.3o b/test/generators/cases_pre408/man/Ocamlary.With6.3o new file mode 100644 index 0000000000..47296cc7ab --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With6.3o @@ -0,0 +1,28 @@ + +.TH With6 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With6 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.With6\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR T = \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR M : \f[CB]sig\fR +.br +.ti +4 +\f[CB]module\fR \f[CB]type\fR S +.sp +.ti +4 +\f[CB]module\fR N : S +.br +.ti +2 +\f[CB]end\fR +.br +\f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.With7.3o b/test/generators/cases_pre408/man/Ocamlary.With7.3o new file mode 100644 index 0000000000..d840e8344a --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With7.3o @@ -0,0 +1,30 @@ + +.TH With7 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With7 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.With7\fR +.in +.sp +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Parameters\fR +.in +.sp +\f[CB]module\fR X : \f[CB]sig\fR +.br +.ti +2 +\f[CB]module\fR \f[CB]type\fR T +.br +\f[CB]end\fR +.sp +.in 3 +\fB2 Signature\fR +.in +.sp +\f[CB]module\fR \f[CB]type\fR T = X\.T diff --git a/test/generators/cases_pre408/man/Ocamlary.With9.3o b/test/generators/cases_pre408/man/Ocamlary.With9.3o new file mode 100644 index 0000000000..c9b53e7976 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.With9.3o @@ -0,0 +1,19 @@ + +.TH With9 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.With9 +.SH Synopsis +.sp +.in 2 +\fBModule Ocamlary\.With9\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR S = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.empty_class.3o b/test/generators/cases_pre408/man/Ocamlary.empty_class.3o new file mode 100644 index 0000000000..89eec5c77c --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.empty_class.3o @@ -0,0 +1,14 @@ + +.TH empty_class 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.empty_class +.SH Synopsis +.sp +.in 2 +\fBClass Ocamlary\.empty_class\fR +.in +.sp +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Ocamlary.one_method_class.3o b/test/generators/cases_pre408/man/Ocamlary.one_method_class.3o new file mode 100644 index 0000000000..92d557d691 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.one_method_class.3o @@ -0,0 +1,14 @@ + +.TH one_method_class 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.one_method_class +.SH Synopsis +.sp +.in 2 +\fBClass Ocamlary\.one_method_class\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]method\fR go : unit diff --git a/test/generators/cases_pre408/man/Ocamlary.param_class.3o b/test/generators/cases_pre408/man/Ocamlary.param_class.3o new file mode 100644 index 0000000000..10086f0dac --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.param_class.3o @@ -0,0 +1,14 @@ + +.TH param_class 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.param_class +.SH Synopsis +.sp +.in 2 +\fBClass Ocamlary\.param_class\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]method\fR v : \f[CB]'a\fR diff --git a/test/generators/cases_pre408/man/Ocamlary.two_method_class.3o b/test/generators/cases_pre408/man/Ocamlary.two_method_class.3o new file mode 100644 index 0000000000..2a4cd7ba57 --- /dev/null +++ b/test/generators/cases_pre408/man/Ocamlary.two_method_class.3o @@ -0,0 +1,16 @@ + +.TH two_method_class 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Ocamlary\.two_method_class +.SH Synopsis +.sp +.in 2 +\fBClass Ocamlary\.two_method_class\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]method\fR one : one_method_class +.sp +\f[CB]method\fR undo : unit diff --git a/test/generators/cases_pre408/man/Section.3o b/test/generators/cases_pre408/man/Section.3o new file mode 100644 index 0000000000..d39edf6283 --- /dev/null +++ b/test/generators/cases_pre408/man/Section.3o @@ -0,0 +1,63 @@ + +.TH Section 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Section +.SH Synopsis +.sp +.in 2 +\fBModule Section\fR +.in +.sp +.fi +This is the module comment\. Eventually, sections won't be allowed in it\. +.nf +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Empty section\fR +.in +.sp +.in 3 +\fB2 Text only\fR +.in +.sp +.fi +Foo bar\. +.nf +.sp +.in 3 +\fB3 Aside only\fR +.in +.sp +.fi +Foo bar\. +.nf +.sp +.in 3 +\fB4 Value only\fR +.in +.sp +\f[CB]val\fR foo : unit +.sp +.in 3 +\fB5 Empty section\fR +.in +.sp +.in 3 +\fB6 within a comment\fR +.in +.sp +.in 4 +\fB6\.1 and one with a nested section\fR +.in +.sp +.in 3 +\fB7 This section \fBtitle\fB has markup\fR +.in +.sp +.fi +But links are impossible thanks to the parser, so we never have trouble rendering a section title in a table of contents – no link will be nested inside another link\. +.nf + diff --git a/test/generators/cases_pre408/man/Stop.3o b/test/generators/cases_pre408/man/Stop.3o new file mode 100644 index 0000000000..867b2d02f2 --- /dev/null +++ b/test/generators/cases_pre408/man/Stop.3o @@ -0,0 +1,36 @@ + +.TH Stop 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Stop +.SH Synopsis +.sp +.in 2 +\fBModule Stop\fR +.in +.sp +.fi +This test cases exercises stop comments\. +.nf +.SH Documentation +.sp +.nf +\f[CB]val\fR foo : int +.fi +.br +.ti +2 +This is normal commented text\. +.nf +.sp +.fi +The next value is bar, and it should be missing from the documentation\. There is also an entire module, M, which should also be hidden\. It contains a nested stop comment, but that stop comment should not turn documentation back on in this outer module, because stop comments respect scope\. +.nf +.sp +.fi +Documentation is on again\. +.sp +Now, we have a nested module, and it has a stop comment between its two items\. We want to see that the first item is displayed, but the second is missing, and the stop comment disables documenation only in that module, and not in this outer module\. +.nf +.sp +\f[CB]module\fR N : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]val\fR lol : int diff --git a/test/generators/cases_pre408/man/Stop.N.3o b/test/generators/cases_pre408/man/Stop.N.3o new file mode 100644 index 0000000000..4f48195770 --- /dev/null +++ b/test/generators/cases_pre408/man/Stop.N.3o @@ -0,0 +1,14 @@ + +.TH N 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Stop\.N +.SH Synopsis +.sp +.in 2 +\fBModule Stop\.N\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]val\fR quux : int diff --git a/test/generators/cases_pre408/man/Stop_dead_link_doc.3o b/test/generators/cases_pre408/man/Stop_dead_link_doc.3o new file mode 100644 index 0000000000..42da7b9d5e --- /dev/null +++ b/test/generators/cases_pre408/man/Stop_dead_link_doc.3o @@ -0,0 +1,52 @@ + +.TH Stop_dead_link_doc 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Stop_dead_link_doc +.SH Synopsis +.sp +.in 2 +\fBModule Stop_dead_link_doc\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]module\fR Foo : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.sp +\f[CB]type\fR foo = +.br +.ti +2 +| \f[CB]Bar\fR \f[CB]of\fR Foo\.t +.br +.sp +\f[CB]type\fR bar = +.br +.ti +2 +| \f[CB]Bar\fR \f[CB]of\fR { +.br +.ti +6 +field : Foo\.t; +.br +.ti +4 +} +.br +.sp +\f[CB]type\fR foo_ = +.br +.ti +2 +| \f[CB]Bar_\fR \f[CB]of\fR int * Foo\.t * int +.br +.sp +\f[CB]type\fR bar_ = +.br +.ti +2 +| \f[CB]Bar__\fR \f[CB]of\fR Foo\.t option +.br +.sp +\f[CB]type\fR another_foo +.sp +\f[CB]type\fR another_bar +.sp +\f[CB]type\fR another_foo_ +.sp +\f[CB]type\fR another_bar_ diff --git a/test/generators/cases_pre408/man/Stop_dead_link_doc.Foo.3o b/test/generators/cases_pre408/man/Stop_dead_link_doc.Foo.3o new file mode 100644 index 0000000000..c64f3b61a5 --- /dev/null +++ b/test/generators/cases_pre408/man/Stop_dead_link_doc.Foo.3o @@ -0,0 +1,14 @@ + +.TH Foo 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Stop_dead_link_doc\.Foo +.SH Synopsis +.sp +.in 2 +\fBModule Stop_dead_link_doc\.Foo\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Toplevel_comments.3o b/test/generators/cases_pre408/man/Toplevel_comments.3o new file mode 100644 index 0000000000..1d92f8b60d --- /dev/null +++ b/test/generators/cases_pre408/man/Toplevel_comments.3o @@ -0,0 +1,115 @@ + +.TH Toplevel_comments 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Toplevel_comments +.SH Synopsis +.sp +.in 2 +\fBModule Toplevel_comments\fR +.in +.sp +.fi +A doc comment at the beginning of a module is considered to be that module's doc\. +.nf +.SH Documentation +.sp +.nf +\f[CB]module\fR \f[CB]type\fR T = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.fi +.br +.ti +2 +Doc of T, part 1\. +.nf +.sp +\f[CB]module\fR Include_inline : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Doc of T, part 2\. +.nf +.sp +\f[CB]module\fR Include_inline' : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Doc of Include_inline, part 1\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR Include_inline_T = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.fi +.br +.ti +2 +Doc of T, part 2\. +.nf +.sp +\f[CB]module\fR \f[CB]type\fR Include_inline_T' = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.br +\f[CB]end\fR +.fi +.br +.ti +2 +Doc of Include_inline_T', part 1\. +.nf +.sp +\f[CB]module\fR M : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Doc of M +.nf +.sp +\f[CB]module\fR M' : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Doc of M' from outside +.nf +.sp +\f[CB]module\fR M'' : \f[CB]sig\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Doc of M'', part 1\. +.nf +.sp +\f[CB]module\fR Alias : T +.fi +.br +.ti +2 +Doc of Alias\. +.nf +.sp +\f[CB]class\fR c1 : int \f[CB]\->\fR \f[CB]object\fR \.\.\. \f[CB]end\fR +.fi +.br +.ti +2 +Doc of c1, part 1\. +.nf +.sp +\f[CB]class\fR \f[CB]type\fR ct = \f[CB]object\fR \f[CB]end\fR +.fi +.br +.ti +2 +Doc of ct, part 1\. +.nf +.sp +\f[CB]class\fR c2 : ct +.fi +.br +.ti +2 +Doc of c2\. +.nf + diff --git a/test/generators/cases_pre408/man/Toplevel_comments.Alias.3o b/test/generators/cases_pre408/man/Toplevel_comments.Alias.3o new file mode 100644 index 0000000000..1f93d27a59 --- /dev/null +++ b/test/generators/cases_pre408/man/Toplevel_comments.Alias.3o @@ -0,0 +1,21 @@ + +.TH Alias 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Toplevel_comments\.Alias +.SH Synopsis +.sp +.in 2 +\fBModule Toplevel_comments\.Alias\fR +.in +.sp +.fi +Doc of Alias\. +.nf +.sp +.fi +Doc of T, part 2\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Toplevel_comments.Include_inline'.3o b/test/generators/cases_pre408/man/Toplevel_comments.Include_inline'.3o new file mode 100644 index 0000000000..9d276557dd --- /dev/null +++ b/test/generators/cases_pre408/man/Toplevel_comments.Include_inline'.3o @@ -0,0 +1,21 @@ + +.TH Include_inline' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Toplevel_comments\.Include_inline' +.SH Synopsis +.sp +.in 2 +\fBModule Toplevel_comments\.Include_inline'\fR +.in +.sp +.fi +Doc of Include_inline, part 1\. +.nf +.sp +.fi +Doc of Include_inline, part 2\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Toplevel_comments.Include_inline.3o b/test/generators/cases_pre408/man/Toplevel_comments.Include_inline.3o new file mode 100644 index 0000000000..e54b041682 --- /dev/null +++ b/test/generators/cases_pre408/man/Toplevel_comments.Include_inline.3o @@ -0,0 +1,17 @@ + +.TH Include_inline 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Toplevel_comments\.Include_inline +.SH Synopsis +.sp +.in 2 +\fBModule Toplevel_comments\.Include_inline\fR +.in +.sp +.fi +Doc of T, part 2\. +.nf +.SH Documentation +.sp +.nf +\f[CB]type\fR t diff --git a/test/generators/cases_pre408/man/Toplevel_comments.M''.3o b/test/generators/cases_pre408/man/Toplevel_comments.M''.3o new file mode 100644 index 0000000000..8d9f3c36ea --- /dev/null +++ b/test/generators/cases_pre408/man/Toplevel_comments.M''.3o @@ -0,0 +1,21 @@ + +.TH M'' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Toplevel_comments\.M'' +.SH Synopsis +.sp +.in 2 +\fBModule Toplevel_comments\.M''\fR +.in +.sp +.fi +Doc of M'', part 1\. +.nf +.sp +.fi +Doc of M'', part 2\. +.nf +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Toplevel_comments.M'.3o b/test/generators/cases_pre408/man/Toplevel_comments.M'.3o new file mode 100644 index 0000000000..e373585db6 --- /dev/null +++ b/test/generators/cases_pre408/man/Toplevel_comments.M'.3o @@ -0,0 +1,17 @@ + +.TH M' 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Toplevel_comments\.M' +.SH Synopsis +.sp +.in 2 +\fBModule Toplevel_comments\.M'\fR +.in +.sp +.fi +Doc of M' from outside +.nf +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Toplevel_comments.M.3o b/test/generators/cases_pre408/man/Toplevel_comments.M.3o new file mode 100644 index 0000000000..39c93b9f03 --- /dev/null +++ b/test/generators/cases_pre408/man/Toplevel_comments.M.3o @@ -0,0 +1,17 @@ + +.TH M 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Toplevel_comments\.M +.SH Synopsis +.sp +.in 2 +\fBModule Toplevel_comments\.M\fR +.in +.sp +.fi +Doc of M +.nf +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Toplevel_comments.c1.3o b/test/generators/cases_pre408/man/Toplevel_comments.c1.3o new file mode 100644 index 0000000000..43a3ae2b18 --- /dev/null +++ b/test/generators/cases_pre408/man/Toplevel_comments.c1.3o @@ -0,0 +1,21 @@ + +.TH c1 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Toplevel_comments\.c1 +.SH Synopsis +.sp +.in 2 +\fBClass Toplevel_comments\.c1\fR +.in +.sp +.fi +Doc of c1, part 1\. +.nf +.sp +.fi +Doc of c1, part 2\. +.nf +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Toplevel_comments.c2.3o b/test/generators/cases_pre408/man/Toplevel_comments.c2.3o new file mode 100644 index 0000000000..50bf9f61dd --- /dev/null +++ b/test/generators/cases_pre408/man/Toplevel_comments.c2.3o @@ -0,0 +1,21 @@ + +.TH c2 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Toplevel_comments\.c2 +.SH Synopsis +.sp +.in 2 +\fBClass Toplevel_comments\.c2\fR +.in +.sp +.fi +Doc of c2\. +.nf +.sp +.fi +Doc of ct, part 2\. +.nf +.SH Documentation +.sp +.nf + diff --git a/test/generators/cases_pre408/man/Type.3o b/test/generators/cases_pre408/man/Type.3o new file mode 100644 index 0000000000..9ff7f47853 --- /dev/null +++ b/test/generators/cases_pre408/man/Type.3o @@ -0,0 +1,257 @@ + +.TH Type 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Type +.SH Synopsis +.sp +.in 2 +\fBModule Type\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]type\fR abstract +.fi +.br +.ti +2 +Some documentation\. +.nf +.sp +\f[CB]type\fR alias = int +.sp +\f[CB]type\fR private_ = \f[CB]private\fR int +.sp +\f[CB]type\fR 'a constructor = \f[CB]'a\fR +.sp +\f[CB]type\fR arrow = int \f[CB]\->\fR int +.sp +\f[CB]type\fR higher_order = (int \f[CB]\->\fR int) \f[CB]\->\fR int +.sp +\f[CB]type\fR labeled = l:int \f[CB]\->\fR int +.sp +\f[CB]type\fR optional = ?l:int \f[CB]\->\fR int +.sp +\f[CB]type\fR labeled_higher_order = (l:int \f[CB]\->\fR int) \f[CB]\->\fR (?l:int \f[CB]\->\fR int) \f[CB]\->\fR int +.sp +\f[CB]type\fR pair = int * int +.sp +\f[CB]type\fR parens_dropped = int * int +.sp +\f[CB]type\fR triple = int * int * int +.sp +\f[CB]type\fR nested_pair = (int * int) * int +.sp +\f[CB]type\fR instance = int constructor +.sp +\f[CB]type\fR long = labeled_higher_order \f[CB]\->\fR [ `Bar | `Baz of triple ] \f[CB]\->\fR pair \f[CB]\->\fR labeled \f[CB]\->\fR higher_order \f[CB]\->\fR (string \f[CB]\->\fR int) \f[CB]\->\fR (int, float, char, string, char, unit) CamlinternalFormatBasics\.fmtty \f[CB]\->\fR nested_pair \f[CB]\->\fR arrow \f[CB]\->\fR string \f[CB]\->\fR nested_pair array +.sp +\f[CB]type\fR variant_e = { +.br +.ti +2 +a : int; +.br +} +.sp +\f[CB]type\fR variant = +.br +.ti +2 +| \f[CB]A\fR +.br +.ti +2 +| \f[CB]B\fR \f[CB]of\fR int +.br +.ti +2 +| \f[CB]C\fR +.br +.ti +4 +(* foo *) +.br +.ti +2 +| \f[CB]D\fR +.br +.ti +4 +(* bar *) +.br +.ti +2 +| \f[CB]E\fR \f[CB]of\fR variant_e +.br +.sp +\f[CB]type\fR variant_c = { +.br +.ti +2 +a : int; +.br +} +.sp +\f[CB]type\fR _ gadt = +.br +.ti +2 +| \f[CB]A\fR : int gadt +.br +.ti +2 +| \f[CB]B\fR : int \f[CB]\->\fR string gadt +.br +.ti +2 +| \f[CB]C\fR : variant_c \f[CB]\->\fR unit gadt +.br +.sp +\f[CB]type\fR degenerate_gadt = +.br +.ti +2 +| \f[CB]A\fR : degenerate_gadt +.br +.sp +\f[CB]type\fR private_variant = \f[CB]private\fR +.br +.ti +2 +| \f[CB]A\fR +.br +.sp +\f[CB]type\fR record = { +.br +.ti +2 +a : int; +.br +.ti +2 +\f[CB]mutable\fR b : int; +.br +.ti +2 +c : int; +.br +.ti +4 +(* foo *) +.br +.ti +2 +d : int; +.br +.ti +4 +(* bar *) +.br +.ti +2 +e : a\. \f[CB]'a\fR; +.br +} +.sp +\f[CB]type\fR polymorphic_variant = [ +.br +.ti +2 +| `A +.br +.ti +2 +| `B \f[CB]of\fR int +.br +.ti +2 +| `C \f[CB]of\fR int * unit +.br +.ti +2 +| `D +.br + ] +.sp +\f[CB]type\fR polymorphic_variant_extension = [ +.br +.ti +2 +| polymorphic_variant +.br +.ti +2 +| `E +.br + ] +.sp +\f[CB]type\fR nested_polymorphic_variant = [ +.br +.ti +2 +| `A \f[CB]of\fR [ `B | `C ] +.br + ] +.sp +\f[CB]type\fR private_extenion#row +.sp +\f[CB]and\fR private_extenion = \f[CB]private\fR [> +.br +.ti +2 +| polymorphic_variant +.br + ] +.sp +\f[CB]type\fR object_ = < a : int; b : int; c : int; > +.sp +\f[CB]module\fR \f[CB]type\fR X = \f[CB]sig\fR +.br +.ti +2 +\f[CB]type\fR t +.sp +.ti +2 +\f[CB]type\fR u +.br +\f[CB]end\fR +.sp +\f[CB]type\fR module_ = (\f[CB]module\fR X) +.sp +\f[CB]type\fR module_substitution = (\f[CB]module\fR X \f[CB]with\fR \f[CB]type\fR t = int \f[CB]and\fR \f[CB]type\fR u = unit) +.sp +\f[CB]type\fR +'a covariant +.sp +\f[CB]type\fR -'a contravariant +.sp +\f[CB]type\fR _ bivariant = int +.sp +\f[CB]type\fR ('a, 'b) binary +.sp +\f[CB]type\fR using_binary = (int, int) binary +.sp +\f[CB]type\fR 'custom name +.sp +\f[CB]type\fR 'a constrained = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = int +.sp +\f[CB]type\fR 'a exact_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [ `A | `B of int ] +.sp +\f[CB]type\fR 'a lower_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [> `A | `B of int ] +.sp +\f[CB]type\fR 'a any_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [> ] +.sp +\f[CB]type\fR 'a upper_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [< `A | `B of int ] +.sp +\f[CB]type\fR 'a named_variant = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = [< polymorphic_variant ] +.sp +\f[CB]type\fR 'a exact_object = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = < a : int; b : int; > +.sp +\f[CB]type\fR 'a lower_object = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = < a : int; b : int; \.\. > +.sp +\f[CB]type\fR 'a poly_object = \f[CB]'a\fR \f[CB]constraint\fR \f[CB]'a\fR = < a : a\. \f[CB]'a\fR; > +.sp +\f[CB]type\fR ('a, 'b) double_constrained = \f[CB]'a\fR * \f[CB]'b\fR \f[CB]constraint\fR \f[CB]'a\fR = int \f[CB]constraint\fR \f[CB]'b\fR = unit +.sp +\f[CB]type\fR as_ = int \f[CB]as\fR 'a * \f[CB]'a\fR +.sp +\f[CB]type\fR extensible = \.\. +.sp +\f[CB]type\fR extensible += +.br +.ti +2 +| \f[CB]Extension\fR +.br +.ti +4 +(* Documentation for \f[CI]Extension\fR\. *) +.br +.ti +2 +| \f[CB]Another_extension\fR +.br +.ti +4 +(* Documentation for \f[CI]Another_extension\fR\. *) +.br +.sp +\f[CB]type\fR mutually = +.br +.ti +2 +| \f[CB]A\fR \f[CB]of\fR recursive +.br +.sp +\f[CB]and\fR recursive = +.br +.ti +2 +| \f[CB]B\fR \f[CB]of\fR mutually +.br +.sp +\f[CB]exception\fR \f[CB]Foo\fR \f[CB]of\fR int * int diff --git a/test/generators/cases_pre408/man/Val.3o b/test/generators/cases_pre408/man/Val.3o new file mode 100644 index 0000000000..f895a8b967 --- /dev/null +++ b/test/generators/cases_pre408/man/Val.3o @@ -0,0 +1,29 @@ + +.TH Val 3 "" "Odoc" "OCaml Library" +.SH Name +test\.Val +.SH Synopsis +.sp +.in 2 +\fBModule Val\fR +.in +.sp +.SH Documentation +.sp +.nf +\f[CB]val\fR documented : unit +.fi +.br +.ti +2 +Foo\. +.nf +.sp +\f[CB]val\fR undocumented : unit +.sp +\f[CB]val\fR documented_above : unit +.fi +.br +.ti +2 +Bar\. +.nf + diff --git a/test/generators/cases_pre408/man/dune b/test/generators/cases_pre408/man/dune new file mode 100644 index 0000000000..985a2da3ef --- /dev/null +++ b/test/generators/cases_pre408/man/dune @@ -0,0 +1 @@ +(include man.dune.inc) diff --git a/test/generators/cases_pre408/man/gen_man/dune b/test/generators/cases_pre408/man/gen_man/dune new file mode 100644 index 0000000000..c282dcce51 --- /dev/null +++ b/test/generators/cases_pre408/man/gen_man/dune @@ -0,0 +1,5 @@ +(executable + (name gen_man) + (libraries man_t_rule) + (enabled_if + (>= %{ocaml_version} 4.04))) diff --git a/test/generators/cases_pre408/man/gen_man/gen_man.ml b/test/generators/cases_pre408/man/gen_man/gen_man.ml new file mode 100644 index 0000000000..fce1a46486 --- /dev/null +++ b/test/generators/cases_pre408/man/gen_man/gen_man.ml @@ -0,0 +1,6 @@ +let () = + let stanzas = + Gen_backend.gen_backend_rules "man" Man_t_rule.man_target_rule + Gen_backend.files "4.10" + in + List.iter (Sexplib0.Sexp.pp Format.std_formatter) stanzas diff --git a/test/generators/cases_pre408/man/man.dune.inc b/test/generators/cases_pre408/man/man.dune.inc new file mode 100644 index 0000000000..342633e189 --- /dev/null +++ b/test/generators/cases_pre408/man/man.dune.inc @@ -0,0 +1,1670 @@ +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../alias.odocl}) + (with-stdout-to + Alias.3o.gen + (progn + (system "cat 'man.gen/test/Alias.3o'"))) + (with-stdout-to + Alias.Foo__X.3o.gen + (progn + (system "cat 'man.gen/test/Alias.Foo__X.3o'"))) + (with-stdout-to + Alias.X.3o.gen + (progn + (system "cat 'man.gen/test/Alias.X.3o'")))))) + +(rule + (alias runtest) + (action + (diff Alias.3o Alias.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Alias.Foo__X.3o Alias.Foo__X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Alias.X.3o Alias.X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../bugs.odocl}) + (with-stdout-to + Bugs.3o.gen + (progn + (system "cat 'man.gen/test/Bugs.3o'")))))) + +(rule + (alias runtest) + (action + (diff Bugs.3o Bugs.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../bugs_pre_410.odocl}) + (with-stdout-to + Bugs_pre_410.3o.gen + (progn + (system "cat 'man.gen/test/Bugs_pre_410.3o'")))))) + +(rule + (alias runtest) + (action + (diff Bugs_pre_410.3o Bugs_pre_410.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../class.odocl}) + (with-stdout-to + Class.3o.gen + (progn + (system "cat 'man.gen/test/Class.3o'"))) + (with-stdout-to + Class.mutually'.3o.gen + (progn + (system "cat 'man.gen/test/Class.mutually'\\''.3o'"))) + (with-stdout-to + Class.recursive'.3o.gen + (progn + (system "cat 'man.gen/test/Class.recursive'\\''.3o'"))) + (with-stdout-to + Class.empty_virtual'.3o.gen + (progn + (system "cat 'man.gen/test/Class.empty_virtual'\\''.3o'"))) + (with-stdout-to + Class.polymorphic'.3o.gen + (progn + (system "cat 'man.gen/test/Class.polymorphic'\\''.3o'")))))) + +(rule + (alias runtest) + (action + (diff Class.3o Class.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Class.mutually'.3o Class.mutually'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Class.recursive'.3o Class.recursive'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Class.empty_virtual'.3o Class.empty_virtual'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Class.polymorphic'.3o Class.polymorphic'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../external.odocl}) + (with-stdout-to + External.3o.gen + (progn + (system "cat 'man.gen/test/External.3o'")))))) + +(rule + (alias runtest) + (action + (diff External.3o External.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../functor.odocl}) + (with-stdout-to + Functor.3o.gen + (progn + (system "cat 'man.gen/test/Functor.3o'"))) + (with-stdout-to + Functor.F1.3o.gen + (progn + (system "cat 'man.gen/test/Functor.F1.3o'"))) + (with-stdout-to + Functor.F2.3o.gen + (progn + (system "cat 'man.gen/test/Functor.F2.3o'"))) + (with-stdout-to + Functor.F3.3o.gen + (progn + (system "cat 'man.gen/test/Functor.F3.3o'"))) + (with-stdout-to + Functor.F4.3o.gen + (progn + (system "cat 'man.gen/test/Functor.F4.3o'"))) + (with-stdout-to + Functor.F5.3o.gen + (progn + (system "cat 'man.gen/test/Functor.F5.3o'")))))) + +(rule + (alias runtest) + (action + (diff Functor.3o Functor.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F1.3o Functor.F1.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F2.3o Functor.F2.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F3.3o Functor.F3.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F4.3o Functor.F4.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor.F5.3o Functor.F5.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../functor2.odocl}) + (with-stdout-to + Functor2.3o.gen + (progn + (system "cat 'man.gen/test/Functor2.3o'"))) + (with-stdout-to + Functor2.X.3o.gen + (progn + (system "cat 'man.gen/test/Functor2.X.3o'")))))) + +(rule + (alias runtest) + (action + (diff Functor2.3o Functor2.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Functor2.X.3o Functor2.X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../include.odocl}) + (with-stdout-to + Include.3o.gen + (progn + (system "cat 'man.gen/test/Include.3o'")))))) + +(rule + (alias runtest) + (action + (diff Include.3o Include.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../include2.odocl}) + (with-stdout-to + Include2.3o.gen + (progn + (system "cat 'man.gen/test/Include2.3o'"))) + (with-stdout-to + Include2.X.3o.gen + (progn + (system "cat 'man.gen/test/Include2.X.3o'"))) + (with-stdout-to + Include2.Y.3o.gen + (progn + (system "cat 'man.gen/test/Include2.Y.3o'"))) + (with-stdout-to + Include2.Y_include_synopsis.3o.gen + (progn + (system "cat 'man.gen/test/Include2.Y_include_synopsis.3o'"))) + (with-stdout-to + Include2.Y_include_doc.3o.gen + (progn + (system "cat 'man.gen/test/Include2.Y_include_doc.3o'")))))) + +(rule + (alias runtest) + (action + (diff Include2.3o Include2.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Include2.X.3o Include2.X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Include2.Y.3o Include2.Y.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Include2.Y_include_synopsis.3o Include2.Y_include_synopsis.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Include2.Y_include_doc.3o Include2.Y_include_doc.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../include_sections.odocl}) + (with-stdout-to + Include_sections.3o.gen + (progn + (system "cat 'man.gen/test/Include_sections.3o'")))))) + +(rule + (alias runtest) + (action + (diff Include_sections.3o Include_sections.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../interlude.odocl}) + (with-stdout-to + Interlude.3o.gen + (progn + (system "cat 'man.gen/test/Interlude.3o'")))))) + +(rule + (alias runtest) + (action + (diff Interlude.3o Interlude.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../markup.odocl}) + (with-stdout-to + Markup.3o.gen + (progn + (system "cat 'man.gen/test/Markup.3o'")))))) + +(rule + (alias runtest) + (action + (diff Markup.3o Markup.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../page-mld.odocl}) + (with-stdout-to + mld.3o.gen + (progn + (system "cat 'man.gen/test/mld.3o'")))))) + +(rule + (alias runtest) + (action + (diff mld.3o mld.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../module.odocl}) + (with-stdout-to + Module.3o.gen + (progn + (system "cat 'man.gen/test/Module.3o'"))) + (with-stdout-to + Module.M'.3o.gen + (progn + (system "cat 'man.gen/test/Module.M'\\''.3o'"))) + (with-stdout-to + Module.Mutually.3o.gen + (progn + (system "cat 'man.gen/test/Module.Mutually.3o'"))) + (with-stdout-to + Module.Recursive.3o.gen + (progn + (system "cat 'man.gen/test/Module.Recursive.3o'")))))) + +(rule + (alias runtest) + (action + (diff Module.3o Module.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Module.M'.3o Module.M'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Module.Mutually.3o Module.Mutually.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Module.Recursive.3o Module.Recursive.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../nested.odocl}) + (with-stdout-to + Nested.3o.gen + (progn + (system "cat 'man.gen/test/Nested.3o'"))) + (with-stdout-to + Nested.X.3o.gen + (progn + (system "cat 'man.gen/test/Nested.X.3o'"))) + (with-stdout-to + Nested.F.3o.gen + (progn + (system "cat 'man.gen/test/Nested.F.3o'"))) + (with-stdout-to + Nested.z.3o.gen + (progn + (system "cat 'man.gen/test/Nested.z.3o'"))) + (with-stdout-to + Nested.inherits.3o.gen + (progn + (system "cat 'man.gen/test/Nested.inherits.3o'")))))) + +(rule + (alias runtest) + (action + (diff Nested.3o Nested.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.X.3o Nested.X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.F.3o Nested.F.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.z.3o Nested.z.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Nested.inherits.3o Nested.inherits.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../ocamlary.odocl}) + (with-stdout-to + Ocamlary.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.3o'"))) + (with-stdout-to + Ocamlary.Empty.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Empty.3o'"))) + (with-stdout-to + Ocamlary.ModuleWithSignature.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.ModuleWithSignature.3o'"))) + (with-stdout-to + Ocamlary.ModuleWithSignatureAlias.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.ModuleWithSignatureAlias.3o'"))) + (with-stdout-to + Ocamlary.One.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.One.3o'"))) + (with-stdout-to + Ocamlary.Buffer.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Buffer.3o'"))) + (with-stdout-to + Ocamlary.CollectionModule.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CollectionModule.3o'"))) + (with-stdout-to + Ocamlary.CollectionModule.InnerModuleA.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CollectionModule.InnerModuleA.3o'"))) + (with-stdout-to + Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.3o.gen + (progn + (system + "cat 'man.gen/test/Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'\\''.3o'"))) + (with-stdout-to + Ocamlary.Recollection.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Recollection.3o'"))) + (with-stdout-to + Ocamlary.Recollection.InnerModuleA.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Recollection.InnerModuleA.3o'"))) + (with-stdout-to + Ocamlary.Recollection.InnerModuleA.InnerModuleA'.3o.gen + (progn + (system + "cat 'man.gen/test/Ocamlary.Recollection.InnerModuleA.InnerModuleA'\\''.3o'"))) + (with-stdout-to + Ocamlary.FunctorTypeOf.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.FunctorTypeOf.3o'"))) + (with-stdout-to + Ocamlary.IncludedA.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.IncludedA.3o'"))) + (with-stdout-to + Ocamlary.ExtMod.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.ExtMod.3o'"))) + (with-stdout-to + Ocamlary.empty_class.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.empty_class.3o'"))) + (with-stdout-to + Ocamlary.one_method_class.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.one_method_class.3o'"))) + (with-stdout-to + Ocamlary.two_method_class.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.two_method_class.3o'"))) + (with-stdout-to + Ocamlary.param_class.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.param_class.3o'"))) + (with-stdout-to + Ocamlary.Dep1.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep1.3o'"))) + (with-stdout-to + Ocamlary.Dep1.X.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep1.X.3o'"))) + (with-stdout-to + Ocamlary.Dep1.X.Y.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep1.X.Y.3o'"))) + (with-stdout-to + Ocamlary.Dep1.X.Y.c.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep1.X.Y.c.3o'"))) + (with-stdout-to + Ocamlary.Dep2.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep2.3o'"))) + (with-stdout-to + Ocamlary.Dep2.A.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep2.A.3o'"))) + (with-stdout-to + Ocamlary.Dep3.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep3.3o'"))) + (with-stdout-to + Ocamlary.Dep4.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep4.3o'"))) + (with-stdout-to + Ocamlary.Dep4.X.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep4.X.3o'"))) + (with-stdout-to + Ocamlary.Dep5.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep5.3o'"))) + (with-stdout-to + Ocamlary.Dep5.Z.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep5.Z.3o'"))) + (with-stdout-to + Ocamlary.Dep6.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep6.3o'"))) + (with-stdout-to + Ocamlary.Dep6.X.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep6.X.3o'"))) + (with-stdout-to + Ocamlary.Dep6.X.Y.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep6.X.Y.3o'"))) + (with-stdout-to + Ocamlary.Dep7.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep7.3o'"))) + (with-stdout-to + Ocamlary.Dep7.M.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep7.M.3o'"))) + (with-stdout-to + Ocamlary.Dep8.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep8.3o'"))) + (with-stdout-to + Ocamlary.Dep9.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep9.3o'"))) + (with-stdout-to + Ocamlary.Dep11.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep11.3o'"))) + (with-stdout-to + Ocamlary.Dep12.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep12.3o'"))) + (with-stdout-to + Ocamlary.Dep13.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep13.3o'"))) + (with-stdout-to + Ocamlary.Dep13.c.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Dep13.c.3o'"))) + (with-stdout-to + Ocamlary.With2.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With2.3o'"))) + (with-stdout-to + Ocamlary.With3.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With3.3o'"))) + (with-stdout-to + Ocamlary.With3.N.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With3.N.3o'"))) + (with-stdout-to + Ocamlary.With4.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With4.3o'"))) + (with-stdout-to + Ocamlary.With4.N.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With4.N.3o'"))) + (with-stdout-to + Ocamlary.With5.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With5.3o'"))) + (with-stdout-to + Ocamlary.With5.N.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With5.N.3o'"))) + (with-stdout-to + Ocamlary.With6.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With6.3o'"))) + (with-stdout-to + Ocamlary.With7.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With7.3o'"))) + (with-stdout-to + Ocamlary.With9.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With9.3o'"))) + (with-stdout-to + Ocamlary.With10.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.With10.3o'"))) + (with-stdout-to + Ocamlary.DoubleInclude1.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.DoubleInclude1.3o'"))) + (with-stdout-to + Ocamlary.DoubleInclude1.DoubleInclude2.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.DoubleInclude1.DoubleInclude2.3o'"))) + (with-stdout-to + Ocamlary.DoubleInclude3.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.DoubleInclude3.3o'"))) + (with-stdout-to + Ocamlary.DoubleInclude3.DoubleInclude2.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.DoubleInclude3.DoubleInclude2.3o'"))) + (with-stdout-to + Ocamlary.IncludeInclude1.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.IncludeInclude1.3o'"))) + (with-stdout-to + Ocamlary.CanonicalTest.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CanonicalTest.3o'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base__List.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CanonicalTest.Base__List.3o'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base__.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CanonicalTest.Base__.3o'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CanonicalTest.Base.3o'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base.List.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CanonicalTest.Base.List.3o'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base__Tests.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CanonicalTest.Base__Tests.3o'"))) + (with-stdout-to + Ocamlary.CanonicalTest.Base__Tests.C.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CanonicalTest.Base__Tests.C.3o'"))) + (with-stdout-to + Ocamlary.CanonicalTest.List_modif.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.CanonicalTest.List_modif.3o'"))) + (with-stdout-to + Ocamlary.Aliases.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__A.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo__A.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__B.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo__B.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__C.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo__C.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__D.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo__D.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__E.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo__E.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo__.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo__.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.A.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo.A.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.B.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo.B.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.C.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo.C.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.D.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo.D.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Foo.E.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Foo.E.3o'"))) + (with-stdout-to + Ocamlary.Aliases.Std.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.Std.3o'"))) + (with-stdout-to + Ocamlary.Aliases.E.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.E.3o'"))) + (with-stdout-to + Ocamlary.Aliases.P1.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.P1.3o'"))) + (with-stdout-to + Ocamlary.Aliases.P1.Y.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.P1.Y.3o'"))) + (with-stdout-to + Ocamlary.Aliases.P2.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Aliases.P2.3o'"))) + (with-stdout-to + Ocamlary.M.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.M.3o'"))) + (with-stdout-to + Ocamlary.Only_a_module.3o.gen + (progn + (system "cat 'man.gen/test/Ocamlary.Only_a_module.3o'")))))) + +(rule + (alias runtest) + (action + (diff Ocamlary.3o Ocamlary.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Empty.3o Ocamlary.Empty.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.ModuleWithSignature.3o Ocamlary.ModuleWithSignature.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.ModuleWithSignatureAlias.3o + Ocamlary.ModuleWithSignatureAlias.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.One.3o Ocamlary.One.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Buffer.3o Ocamlary.Buffer.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.CollectionModule.3o Ocamlary.CollectionModule.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CollectionModule.InnerModuleA.3o + Ocamlary.CollectionModule.InnerModuleA.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.3o + Ocamlary.CollectionModule.InnerModuleA.InnerModuleA'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Recollection.3o Ocamlary.Recollection.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.InnerModuleA.3o + Ocamlary.Recollection.InnerModuleA.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.Recollection.InnerModuleA.InnerModuleA'.3o + Ocamlary.Recollection.InnerModuleA.InnerModuleA'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.FunctorTypeOf.3o Ocamlary.FunctorTypeOf.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.IncludedA.3o Ocamlary.IncludedA.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.ExtMod.3o Ocamlary.ExtMod.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.empty_class.3o Ocamlary.empty_class.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.one_method_class.3o Ocamlary.one_method_class.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.two_method_class.3o Ocamlary.two_method_class.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.param_class.3o Ocamlary.param_class.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep1.3o Ocamlary.Dep1.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep1.X.3o Ocamlary.Dep1.X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep1.X.Y.3o Ocamlary.Dep1.X.Y.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep1.X.Y.c.3o Ocamlary.Dep1.X.Y.c.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep2.3o Ocamlary.Dep2.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep2.A.3o Ocamlary.Dep2.A.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep3.3o Ocamlary.Dep3.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep4.3o Ocamlary.Dep4.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep4.X.3o Ocamlary.Dep4.X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep5.3o Ocamlary.Dep5.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep5.Z.3o Ocamlary.Dep5.Z.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep6.3o Ocamlary.Dep6.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep6.X.3o Ocamlary.Dep6.X.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep6.X.Y.3o Ocamlary.Dep6.X.Y.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep7.3o Ocamlary.Dep7.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep7.M.3o Ocamlary.Dep7.M.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep8.3o Ocamlary.Dep8.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep9.3o Ocamlary.Dep9.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep11.3o Ocamlary.Dep11.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep12.3o Ocamlary.Dep12.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep13.3o Ocamlary.Dep13.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Dep13.c.3o Ocamlary.Dep13.c.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With2.3o Ocamlary.With2.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With3.3o Ocamlary.With3.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With3.N.3o Ocamlary.With3.N.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With4.3o Ocamlary.With4.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With4.N.3o Ocamlary.With4.N.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With5.3o Ocamlary.With5.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With5.N.3o Ocamlary.With5.N.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With6.3o Ocamlary.With6.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With7.3o Ocamlary.With7.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With9.3o Ocamlary.With9.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.With10.3o Ocamlary.With10.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.DoubleInclude1.3o Ocamlary.DoubleInclude1.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.DoubleInclude1.DoubleInclude2.3o + Ocamlary.DoubleInclude1.DoubleInclude2.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.DoubleInclude3.3o Ocamlary.DoubleInclude3.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.DoubleInclude3.DoubleInclude2.3o + Ocamlary.DoubleInclude3.DoubleInclude2.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.IncludeInclude1.3o Ocamlary.IncludeInclude1.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.CanonicalTest.3o Ocamlary.CanonicalTest.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base__List.3o + Ocamlary.CanonicalTest.Base__List.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base__.3o + Ocamlary.CanonicalTest.Base__.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.CanonicalTest.Base.3o Ocamlary.CanonicalTest.Base.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base.List.3o + Ocamlary.CanonicalTest.Base.List.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base__Tests.3o + Ocamlary.CanonicalTest.Base__Tests.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.Base__Tests.C.3o + Ocamlary.CanonicalTest.Base__Tests.C.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Ocamlary.CanonicalTest.List_modif.3o + Ocamlary.CanonicalTest.List_modif.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.3o Ocamlary.Aliases.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo__A.3o Ocamlary.Aliases.Foo__A.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo__B.3o Ocamlary.Aliases.Foo__B.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo__C.3o Ocamlary.Aliases.Foo__C.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo__D.3o Ocamlary.Aliases.Foo__D.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo__E.3o Ocamlary.Aliases.Foo__E.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo__.3o Ocamlary.Aliases.Foo__.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo.3o Ocamlary.Aliases.Foo.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo.A.3o Ocamlary.Aliases.Foo.A.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo.B.3o Ocamlary.Aliases.Foo.B.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo.C.3o Ocamlary.Aliases.Foo.C.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo.D.3o Ocamlary.Aliases.Foo.D.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Foo.E.3o Ocamlary.Aliases.Foo.E.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.Std.3o Ocamlary.Aliases.Std.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.E.3o Ocamlary.Aliases.E.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.P1.3o Ocamlary.Aliases.P1.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.P1.Y.3o Ocamlary.Aliases.P1.Y.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Aliases.P2.3o Ocamlary.Aliases.P2.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.M.3o Ocamlary.M.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Ocamlary.Only_a_module.3o Ocamlary.Only_a_module.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../section.odocl}) + (with-stdout-to + Section.3o.gen + (progn + (system "cat 'man.gen/test/Section.3o'")))))) + +(rule + (alias runtest) + (action + (diff Section.3o Section.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../stop.odocl}) + (with-stdout-to + Stop.3o.gen + (progn + (system "cat 'man.gen/test/Stop.3o'"))) + (with-stdout-to + Stop.N.3o.gen + (progn + (system "cat 'man.gen/test/Stop.N.3o'")))))) + +(rule + (alias runtest) + (action + (diff Stop.3o Stop.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Stop.N.3o Stop.N.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../stop_dead_link_doc.odocl}) + (with-stdout-to + Stop_dead_link_doc.3o.gen + (progn + (system "cat 'man.gen/test/Stop_dead_link_doc.3o'"))) + (with-stdout-to + Stop_dead_link_doc.Foo.3o.gen + (progn + (system "cat 'man.gen/test/Stop_dead_link_doc.Foo.3o'")))))) + +(rule + (alias runtest) + (action + (diff Stop_dead_link_doc.3o Stop_dead_link_doc.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Stop_dead_link_doc.Foo.3o Stop_dead_link_doc.Foo.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../toplevel_comments.odocl}) + (with-stdout-to + Toplevel_comments.3o.gen + (progn + (system "cat 'man.gen/test/Toplevel_comments.3o'"))) + (with-stdout-to + Toplevel_comments.Include_inline.3o.gen + (progn + (system "cat 'man.gen/test/Toplevel_comments.Include_inline.3o'"))) + (with-stdout-to + Toplevel_comments.Include_inline'.3o.gen + (progn + (system "cat 'man.gen/test/Toplevel_comments.Include_inline'\\''.3o'"))) + (with-stdout-to + Toplevel_comments.M.3o.gen + (progn + (system "cat 'man.gen/test/Toplevel_comments.M.3o'"))) + (with-stdout-to + Toplevel_comments.M'.3o.gen + (progn + (system "cat 'man.gen/test/Toplevel_comments.M'\\''.3o'"))) + (with-stdout-to + Toplevel_comments.M''.3o.gen + (progn + (system "cat 'man.gen/test/Toplevel_comments.M'\\'''\\''.3o'"))) + (with-stdout-to + Toplevel_comments.Alias.3o.gen + (progn + (system "cat 'man.gen/test/Toplevel_comments.Alias.3o'"))) + (with-stdout-to + Toplevel_comments.c1.3o.gen + (progn + (system "cat 'man.gen/test/Toplevel_comments.c1.3o'"))) + (with-stdout-to + Toplevel_comments.c2.3o.gen + (progn + (system "cat 'man.gen/test/Toplevel_comments.c2.3o'")))))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.3o Toplevel_comments.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.Include_inline.3o + Toplevel_comments.Include_inline.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff + Toplevel_comments.Include_inline'.3o + Toplevel_comments.Include_inline'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.M.3o Toplevel_comments.M.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.M'.3o Toplevel_comments.M'.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.M''.3o Toplevel_comments.M''.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.Alias.3o Toplevel_comments.Alias.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.c1.3o Toplevel_comments.c1.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (alias runtest) + (action + (diff Toplevel_comments.c2.3o Toplevel_comments.c2.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../type.odocl}) + (with-stdout-to + Type.3o.gen + (progn + (system "cat 'man.gen/test/Type.3o'")))))) + +(rule + (alias runtest) + (action + (diff Type.3o Type.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) + +(rule + (action + (progn + (run odoc man-generate -o man.gen %{dep:../val.odocl}) + (with-stdout-to + Val.3o.gen + (progn + (system "cat 'man.gen/test/Val.3o'")))))) + +(rule + (alias runtest) + (action + (diff Val.3o Val.3o.gen)) + (enabled_if + (>= %{ocaml_version} 4.10))) diff --git a/test/generators/cases_pre408/man/mld.3o b/test/generators/cases_pre408/man/mld.3o new file mode 100644 index 0000000000..4b8e7078c0 --- /dev/null +++ b/test/generators/cases_pre408/man/mld.3o @@ -0,0 +1,63 @@ + +.TH mld 3 "" "Odoc" "OCaml Library" +.SH Name +test\.mld +.SH Synopsis +.sp +.in 2 +\fBMld Page\fR +.in +.sp +.fi +This is an \.mld file\. It doesn't have an auto-generated title, like modules and other pages generated fully by odoc do\. +.sp +It will have a TOC generated from section headings\. +.nf +.SH Documentation +.sp +.nf +.sp +.in 3 +\fB1 Section\fR +.in +.sp +.fi +This is a section\. +.sp +Another paragraph in section\. +.nf +.sp +.in 3 +\fB2 Another section\fR +.in +.sp +.fi +This is another section\. +.sp +Another paragraph in section 2\. +.nf +.sp +.in 4 +\fB2\.1 Subsection\fR +.in +.sp +.fi +This is a subsection\. +.sp +Another paragraph in subsection\. +.sp +Yet another paragraph in subsection\. +.nf +.sp +.in 4 +\fB2\.2 Another Subsection\fR +.in +.sp +.fi +This is another subsection\. +.sp +Another paragraph in subsection 2\. +.sp +Yet another paragraph in subsection 2\. +.nf + From ad05e716ec26d511049a876cd4f9d9da32fc398b Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Wed, 26 May 2021 17:16:39 +0300 Subject: [PATCH 09/10] add utility libs Signed-off-by: lubegasimon --- test/generators/cases/.ocamlformat | 1 - test/generators/cases/alias.ml | 7 - test/generators/cases/bugs.ml | 5 - test/generators/cases/bugs_post_406.mli | 10 - test/generators/cases/bugs_pre_410.ml | 6 - test/generators/cases/class.mli | 26 - test/generators/cases/external.mli | 2 - test/generators/cases/functor.mli | 19 - test/generators/cases/functor2.mli | 15 - test/generators/cases/include.mli | 48 - test/generators/cases/include2.ml | 24 - test/generators/cases/include_sections.mli | 41 - test/generators/cases/interlude.mli | 21 - test/generators/cases/labels.mli | 58 - test/generators/cases/markup.mli | 179 --- test/generators/cases/mld.mld | 34 - test/generators/cases/module.mli | 44 - test/generators/cases/nested.mli | 84 -- test/generators/cases/ocamlary.mli | 1067 ------------------ test/generators/cases/recent.mli | 58 - test/generators/cases/recent_impl.ml | 29 - test/generators/cases/section.mli | 30 - test/generators/cases/stop.mli | 42 - test/generators/cases/stop_dead_link_doc.mli | 27 - test/generators/cases/toplevel_comments.mli | 72 -- test/generators/cases/type.mli | 138 --- test/generators/cases/val.mli | 7 - test/generators/dune | 34 + test/generators/gen_backend.ml | 88 ++ test/generators/gen_link_lib.ml | 267 +++++ test/generators/html_t_rule.ml | 23 + test/generators/latex_t_rule.ml | 22 + test/generators/man_t_rule.ml | 22 + 33 files changed, 456 insertions(+), 2094 deletions(-) delete mode 100644 test/generators/cases/.ocamlformat delete mode 100644 test/generators/cases/alias.ml delete mode 100644 test/generators/cases/bugs.ml delete mode 100644 test/generators/cases/bugs_post_406.mli delete mode 100644 test/generators/cases/bugs_pre_410.ml delete mode 100644 test/generators/cases/class.mli delete mode 100644 test/generators/cases/external.mli delete mode 100644 test/generators/cases/functor.mli delete mode 100644 test/generators/cases/functor2.mli delete mode 100644 test/generators/cases/include.mli delete mode 100644 test/generators/cases/include2.ml delete mode 100644 test/generators/cases/include_sections.mli delete mode 100644 test/generators/cases/interlude.mli delete mode 100644 test/generators/cases/labels.mli delete mode 100644 test/generators/cases/markup.mli delete mode 100644 test/generators/cases/mld.mld delete mode 100644 test/generators/cases/module.mli delete mode 100644 test/generators/cases/nested.mli delete mode 100644 test/generators/cases/ocamlary.mli delete mode 100644 test/generators/cases/recent.mli delete mode 100644 test/generators/cases/recent_impl.ml delete mode 100644 test/generators/cases/section.mli delete mode 100644 test/generators/cases/stop.mli delete mode 100644 test/generators/cases/stop_dead_link_doc.mli delete mode 100644 test/generators/cases/toplevel_comments.mli delete mode 100644 test/generators/cases/type.mli delete mode 100644 test/generators/cases/val.mli create mode 100644 test/generators/dune create mode 100644 test/generators/gen_backend.ml create mode 100644 test/generators/gen_link_lib.ml create mode 100644 test/generators/html_t_rule.ml create mode 100644 test/generators/latex_t_rule.ml create mode 100644 test/generators/man_t_rule.ml diff --git a/test/generators/cases/.ocamlformat b/test/generators/cases/.ocamlformat deleted file mode 100644 index 4d6556cb8b..0000000000 --- a/test/generators/cases/.ocamlformat +++ /dev/null @@ -1 +0,0 @@ -disable = true diff --git a/test/generators/cases/alias.ml b/test/generators/cases/alias.ml deleted file mode 100644 index b458bc3420..0000000000 --- a/test/generators/cases/alias.ml +++ /dev/null @@ -1,7 +0,0 @@ -module Foo__X = struct - (** Module Foo__X documentation. This should appear in the documentation - for the alias to this module 'X' *) - type t = int -end - -module X = Foo__X diff --git a/test/generators/cases/bugs.ml b/test/generators/cases/bugs.ml deleted file mode 100644 index 2c9c30bbd7..0000000000 --- a/test/generators/cases/bugs.ml +++ /dev/null @@ -1,5 +0,0 @@ -type 'a opt = 'a option -let foo (type a) ?(bar : a opt) () = () -(** Triggers an assertion failure when - {:https://github.com/ocaml/odoc/issues/101} is not fixed. *) - diff --git a/test/generators/cases/bugs_post_406.mli b/test/generators/cases/bugs_post_406.mli deleted file mode 100644 index 757c001a02..0000000000 --- a/test/generators/cases/bugs_post_406.mli +++ /dev/null @@ -1,10 +0,0 @@ -(** Let-open in class types, https://github.com/ocaml/odoc/issues/543 - This was added to the language in 4.06 *) - -class type let_open = - let open List in - object end - -class let_open' : - let open List in - object end diff --git a/test/generators/cases/bugs_pre_410.ml b/test/generators/cases/bugs_pre_410.ml deleted file mode 100644 index 0baca54d3b..0000000000 --- a/test/generators/cases/bugs_pre_410.ml +++ /dev/null @@ -1,6 +0,0 @@ -type 'a opt' = int option -let foo' (type a) ?(bar : a opt') () = () -(** Similar to [Bugs], but the printed type of [~bar] should be [int], not - ['a]. This probably requires fixing in the compiler. See - {:https://github.com/ocaml/odoc/pull/230#issuecomment-433226807}. *) - diff --git a/test/generators/cases/class.mli b/test/generators/cases/class.mli deleted file mode 100644 index b536b0dbda..0000000000 --- a/test/generators/cases/class.mli +++ /dev/null @@ -1,26 +0,0 @@ -class type empty = -object -end - -class type mutually = -object -end - -and recursive = -object -end - -class mutually' : mutually -and recursive' : recursive - -class type virtual empty_virtual = -object -end - -class virtual empty_virtual' : empty - -class type ['a] polymorphic = -object -end - -class ['a] polymorphic' : ['a] polymorphic diff --git a/test/generators/cases/external.mli b/test/generators/cases/external.mli deleted file mode 100644 index 9d68518931..0000000000 --- a/test/generators/cases/external.mli +++ /dev/null @@ -1,2 +0,0 @@ -external foo : unit -> unit = "bar" -(** Foo {e bar}. *) diff --git a/test/generators/cases/functor.mli b/test/generators/cases/functor.mli deleted file mode 100644 index 8d13c39eb2..0000000000 --- a/test/generators/cases/functor.mli +++ /dev/null @@ -1,19 +0,0 @@ -module type S = -sig - type t -end - -module type S1 = functor (_ : S) -> S - -module F1 : functor (Arg : S) -> S - -module F2 : functor (Arg : S) -> (S with type t = Arg.t) - -module F3 : functor (Arg : S) -> -sig - type t = Arg.t -end - -module F4 (Arg : S) : S - -module F5 () : S diff --git a/test/generators/cases/functor2.mli b/test/generators/cases/functor2.mli deleted file mode 100644 index 404e4671a2..0000000000 --- a/test/generators/cases/functor2.mli +++ /dev/null @@ -1,15 +0,0 @@ -(* test *) - -module type S = sig type t end - -module X : functor (Y:S) -> functor (Z:S) -> sig - type y_t = Y.t - type z_t = Z.t - type x_t = y_t -end - -module type XF = functor (Y:S) -> functor (Z:S) -> sig - type y_t = Y.t - type z_t = Z.t - type x_t = y_t -end diff --git a/test/generators/cases/include.mli b/test/generators/cases/include.mli deleted file mode 100644 index f468c3cfc0..0000000000 --- a/test/generators/cases/include.mli +++ /dev/null @@ -1,48 +0,0 @@ -module type Not_inlined = -sig - type t -end - -include Not_inlined - -module type Inlined = -sig - type u -end - -include Inlined -(** @inline *) - -module type Not_inlined_and_closed = -sig - type v -end - -include Not_inlined_and_closed -(** @closed *) - -module type Not_inlined_and_opened = -sig - type w -end - -include Not_inlined_and_opened -(** @open - @closed *) - -(* This demostrates that overridden values are never rendered*) -module type Inherent_Module = -sig - val a : t -end - -include Inherent_Module - - -module type Dorminant_Module = -sig - include Inherent_Module - val a : u -end - -include Dorminant_Module diff --git a/test/generators/cases/include2.ml b/test/generators/cases/include2.ml deleted file mode 100644 index bbfc4ca841..0000000000 --- a/test/generators/cases/include2.ml +++ /dev/null @@ -1,24 +0,0 @@ -(** Comment about X that should not appear when including X below. *) -module X = struct - type t = int -end - -include X - -module Y = struct - (** Top-comment of Y. *) - - type t -end - -module Y_include_synopsis = struct - (** The [include Y] below should have the synopsis from [Y]'s top-comment - attached to it. *) - - include Y -end - -module Y_include_doc = struct - include Y - (** Doc attached to [include Y]. [Y]'s top-comment shouldn't appear here. *) -end diff --git a/test/generators/cases/include_sections.mli b/test/generators/cases/include_sections.mli deleted file mode 100644 index d4357c182a..0000000000 --- a/test/generators/cases/include_sections.mli +++ /dev/null @@ -1,41 +0,0 @@ -(** A module type. *) -module type Something = sig - - val something : unit - - (** {1 Something 1} - - foo *) - - val foo : unit - - (** {2 Something 2} *) - - val bar : unit - (** foo bar *) - - (** {1 Something 1-bis} - - Some text. *) -end - -(** Let's include {!Something} once *) - -include Something (** @inline *) - -(** {1 Second include} - - Let's include {!Something} a second time: the heading level should be shift here. *) - -include Something (** @inline *) - -(** {2 Third include} - - Shifted some more. *) - -include Something (** @inline *) - -(** And let's include it again, but without inlining it this time: the ToC - shouldn't grow. *) - -include Something diff --git a/test/generators/cases/interlude.mli b/test/generators/cases/interlude.mli deleted file mode 100644 index d8e79875b1..0000000000 --- a/test/generators/cases/interlude.mli +++ /dev/null @@ -1,21 +0,0 @@ -(** This is the comment associated to the module. *) - -(** Some separate stray text at the top of the module. *) - -val foo : unit -(** Foo. *) - -(** Some stray text that is not associated with any signature item. - - It has multiple paragraphs. *) - -(** A separate block of stray text, adjacent to the preceding one. *) - -val bar : unit -(** Bar. *) - -val multiple : unit -val signature : unit -val items : unit - -(** Stray text at the bottom of the module. *) diff --git a/test/generators/cases/labels.mli b/test/generators/cases/labels.mli deleted file mode 100644 index 5b361ca20e..0000000000 --- a/test/generators/cases/labels.mli +++ /dev/null @@ -1,58 +0,0 @@ -(** {1:L1 Attached to unit} *) - -(** {1:L2 Attached to nothing} *) - -(** {1:L3 Attached to module} *) -module A : sig end - -(** {1:L4 Attached to type} *) -type t - -(** {1:L5 Attached to value} *) -val f : t - -(** {1:L5bis Attached to external} *) -external e : unit -> t = "t" - -(** {1:L6 Attached to module type} *) -module type S = sig end - -(** {1:L6 Attached to class} *) -class c : object end - -(** {1:L7 Attached to class type} *) -class type cs = object end - -(** {1:L8 Attached to exception} *) -exception E - -type x = .. - -(** {1:L9 Attached to extension} *) -type x += X - -(** {1:L10 Attached to module subst} *) -module S := A - -(** {1:L11 Attached to type subst} *) -type s := t - -type u = A' (** {1:L12 Attached to constructor} *) - -type v = { f : t (** {1:L13 Attached to field} *) } - -(** Testing that labels can be referenced - - {!L1} - - {!L2} - - {!L3} - - {!L4} - - {!L5} - - {!L6} - - {!L7} - - {!L8} - - {!L9} - - {!L10} - - {!L11} - - {!L12} - - {!L13} - *) diff --git a/test/generators/cases/markup.mli b/test/generators/cases/markup.mli deleted file mode 100644 index 369c7e6dda..0000000000 --- a/test/generators/cases/markup.mli +++ /dev/null @@ -1,179 +0,0 @@ -(** Here, we test the rendering of comment markup. *) - - -(** {1 Sections} - - Let's get these done first, because sections will be used to break up the - rest of this test. - - Besides the section heading above, there are also - - {2 Subsection headings} - - and - - {3 Sub-subsection headings} - - but odoc has banned deeper headings. There are also title headings, but they - are only allowed in mld files. - - {3:anchors Anchors} - - Sections can have attached {!anchors}, and it is possible to {{!anchors} - link} to them. Links to section headers should not be set in source code - style. - - {4 Paragraph} - - Individual paragraphs can have a heading. - - {5 Subparagraph} - - Parts of a longer paragraph that can be considered alone can also have - headings. - - - {1 Styling} - - This paragraph has some styled elements: {b bold} and {i italic}, - {b {i bold italic}}, {e emphasis}, {e {e emphasis} within emphasis}, - {b {i bold italic}}, super{^script}, sub{_script}. The line spacing should - be enough for superscripts and subscripts not to look odd. - - Note: {i In italics {e emphasis} is rendered as normal text while {e - emphasis {e in} emphasis} is rendered in italics.} {i It also work the same - in {{:#} links in italics with {e emphasis {e in} emphasis}.}} - - [code] is a different kind of markup that doesn't allow nested markup. - - It's possible for two markup elements to appear {b next} {i to} each other - and have a space, and appear {b next}{i to} each other with no space. It - doesn't matter {b how} {i much} space it was in the source: in this - sentence, it was two space characters. And in this one, there is {b a} - {i newline}. - - This is also true between {e non-}[code] markup {e and} [code]. - - Code can appear {b inside [other] markup}. Its display shouldn't be - affected. - - - {1 Links and references} - - This is a {{:#} link}. It sends you to the top of this page. Links can have - markup inside them: {{:#} {b bold}}, {{:#} {i italics}}, - {{:#} {e emphasis}}, {{:#} super{^script}}, {{:#} sub{_script}}, and - {{:#} [code]}. Links can also be nested {e {{:#} inside}} markup. Links - cannot be nested inside each other. This link has no replacement text: - {{:#}}. The text is filled in by odoc. This is a shorthand link: {:#}. The - text is also filled in by odoc in this case. - - This is a reference to {!foo}. References can have replacement text: - {{!foo} the value foo}. Except for the special lookup support, references - are pretty much just like links. The replacement text can have nested - styles: {{!foo} {b bold}}, {{!foo} {i italic}}, {{!foo} {e emphasis}}, - {{!foo} super{^script}}, {{!foo} sub{_script}}, and {{!foo} [code]}. It's - also possible to surround a reference in a style: {b {!foo}}. References - can't be nested inside references, and links and references can't be nested - inside each other. - - - {1 Preformatted text} - - This is a code block: - - {[ - let foo = () - (** There are some nested comments in here, but an unpaired comment - terminator would terminate the whole doc surrounding comment. It's - best to keep code blocks no wider than 72 characters. *) - - let bar = - ignore foo - ]} - - There are also verbatim blocks: - -{v -The main difference is these don't get syntax highlighting. -v} - - - {1 Lists} - - - This is a - - shorthand bulleted list, - - and the paragraphs in each list item support {e styling}. - - + This is a - + shorthand numbered list. - - - Shorthand list items can span multiple lines, however trying to put two - paragraphs into a shorthand list item using a double line break - - just creates a paragraph outside the list. - - - Similarly, inserting a blank line between two list items - - - creates two separate lists. - - {ul - {li To get around this limitation, one - - can use explicitly-delimited lists.} - {li This one is bulleted,}} - - {ol {li but there is also the numbered variant.}} - - {ul - {li - {ul - {li lists} - {li can be nested} - {li and can include references} - {li {!foo}}}}} - - - {1 Unicode} - - The parser supports any ASCII-compatible encoding, in particuλar UTF-8. - - - {1 Raw HTML} - - Raw HTML can be {%html:%} as - inline elements into sentences. - - {%html: -
        - If the raw HTML is the only thing in a paragraph, it is treated as a block - element, and won't be wrapped in paragraph tags by the HTML generator. -
        - %} - - - {1 Modules} - - {!modules: } - {!modules: X} - {!modules: X Y Z} - - - {1 Tags} - - Each comment can end with zero or more tags. Here are some examples: - - @author antron - @deprecated a {e long} time ago - @param foo unused - @raise Failure always - @return never - @see <#> this url - @see 'foo.ml' this file - @see "Foo" this document - @since 0 - @before 1.0 it was in b{^e}t{_a} - @version -1 *) - -val foo : unit -(** Comments in structure items {b support} {e markup}, t{^o}{_o}. *) diff --git a/test/generators/cases/mld.mld b/test/generators/cases/mld.mld deleted file mode 100644 index 65e78dcb9b..0000000000 --- a/test/generators/cases/mld.mld +++ /dev/null @@ -1,34 +0,0 @@ -{0 Mld Page} - -This is an [.mld] file. It doesn't have an auto-generated title, like modules -and other pages generated fully by odoc do. - -It will have a TOC generated from section headings. - -{1 Section} - -This is a section. - -Another paragraph in section. - -{1 Another section} - -This is another section. - -Another paragraph in section 2. - -{2 Subsection} - -This is a subsection. - -Another paragraph in subsection. - -Yet another paragraph in subsection. - -{2 Another Subsection} - -This is another subsection. - -Another paragraph in subsection 2. - -Yet another paragraph in subsection 2. diff --git a/test/generators/cases/module.mli b/test/generators/cases/module.mli deleted file mode 100644 index a270d525b4..0000000000 --- a/test/generators/cases/module.mli +++ /dev/null @@ -1,44 +0,0 @@ -(** Foo. *) - -val foo : unit -(** The module needs at least one signature item, otherwise a bug causes the - compiler to drop the module comment (above). See - {{:https://caml.inria.fr/mantis/view.php?id=7701}}. *) - -module type S = -sig - type t - type u - type 'a v - type ('a, 'b) w - module M : sig end -end - -module type S1 - -module type S2 = S - -module type S3 = S with type t = int and type u = string - -module type S4 = S with type t := int - -module type S5 = S with type 'a v := 'a list - -type ('a, 'b) result - -module type S6 = S with type ('a, 'b) w := ('a, 'b) result - -module M' : sig end - -module type S7 = S with module M = M' - -module type S8 = S with module M := M' - -module type S9 = module type of M' - -open M' - -open! M' - -module rec Mutually : sig end -and Recursive : sig end diff --git a/test/generators/cases/nested.mli b/test/generators/cases/nested.mli deleted file mode 100644 index 795cc7a6ff..0000000000 --- a/test/generators/cases/nested.mli +++ /dev/null @@ -1,84 +0,0 @@ - -(** This comment needs to be here before #235 is fixed. *) - -(** {1 Module} *) - -(** This is module X. - - Some additional comments. *) -module X : sig - - (** {1 Type} *) - - type t - (** Some type. *) - - (** {1 Values} *) - - val x : t - (** The value of x. *) -end - - -(** {1 Module type} *) - -(** This is module type Y. - - Some additional comments. *) -module type Y = sig - - (** {1 Type} *) - - type t - (** Some type. *) - - (** {1 Values} *) - - val y : t - (** The value of y. *) -end - - -(** {1 Functor} *) - -(** This is a functor F. - - Some additional comments. *) -module F - (Arg1 : Y) (Arg2 : sig - (** {1 Type} *) - - type t - (** Some type. *) - end) : sig - (** {1 Type} *) - - type t = Arg1.t * Arg2.t - (** Some type. *) -end - - -(** {1 Class} *) - -(** This is class z. - - Some additional comments. *) -class virtual z : object - - val y : int - (** Some value. *) - - val mutable virtual y' : int - - (** {1 Methods} *) - - method z : int - (** Some method. *) - - method private virtual z' : int -end - - -class virtual inherits : object - inherit z -end diff --git a/test/generators/cases/ocamlary.mli b/test/generators/cases/ocamlary.mli deleted file mode 100644 index 4d42613125..0000000000 --- a/test/generators/cases/ocamlary.mli +++ /dev/null @@ -1,1067 +0,0 @@ -(* - * Copyright (c) 2014 David Sheets - * Leo White - * - * Permission to use, copy, modify, and distribute this software for any - * purpose with or without fee is hereby granted, provided that the above - * copyright notice and this permission notice appear in all copies. - * - * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES - * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF - * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR - * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES - * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN - * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF - * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. - *) - -(** This is an {i interface} with {b all} of the {e module system} features. - This documentation demonstrates: -- comment formatting -- unassociated comments -- documentation sections -- module system documentation including - {ol - {- submodules} - {- module aliases} - {- module types} - {- module type aliases} - {- modules with signatures} - {- modules with aliased signatures} -} - -A numbered list: -+ 3 -+ 2 -+ 1 - - David Sheets is the author. - @author David Sheets -*) - -(** - You may find more information about this HTML documentation renderer - at {{:https://github.com/dsheets/ocamlary} github.com/dsheets/ocamlary }. -*) - -(** - This is some verbatim text: - {v verbatim v} -*) - -(** - This is some verbatim text: - {v [][df[]]}} v} -*) - -(** - Here is some raw LaTeX: - {%latex: $e^{i\pi} = -1$ %} -*) - -(** - Here is an index table of [Empty] modules: - {!modules: Empty EmptyAlias} -*) - -(** - Here is a table of links to indexes: {!indexlist} -*) - -(** - Here is some superscript: x{^2} -*) - -(** - Here is some subscript: x{_0} -*) - -(** - Here are some escaped brackets: \{ \[ \@ \] \} -*) - -(** Here is some {e emphasis} [followed by code]. *) - -(** An unassociated comment *) - -(******************************************************************************) - -(** {1 Level 1 } *) - -(** {2 Level 2 } *) - -(** {3 Level 3 } *) - -(** {4 Level 4 } *) - -(** {3 Basic module stuff} *) - -(** A plain, empty module *) -module Empty : sig end -(** This module has a signature without any members. *) - -(** An ambiguous, misnamed module type *) -module type Empty = sig - type t -end - -(** An ambiguous, misnamed module type *) -module type MissingComment = sig - type t -end - -(** {1:s9000 Section 9000 } *) - -module EmptyAlias = Empty -(** A plain module alias of [Empty] *) - -(** {3:emptySig EmptySig} *) - -module type EmptySig = sig end -(** A plain, empty module signature *) - -module type EmptySigAlias = EmptySig -(** A plain, empty module signature alias of - {[EmptySig]} - (preformatted). *) - -module ModuleWithSignature : EmptySig -(** A plain module of a signature of {!module-type:EmptySig} (reference) *) - -module ModuleWithSignatureAlias : EmptySigAlias -(** A plain module with an alias signature - @deprecated I don't like this element any more. -*) - -module One : sig - type one -end - -(** There's a signature in a module in this signature. *) -module type SigForMod = sig - module Inner : sig - module type Empty = sig end - end -end - -module type SuperSig = sig - module type SubSigA = sig - (** {3:subSig A Labeled Section Header Inside of a Signature} *) - - type t - - module SubSigAMod : sig - type sub_sig_a_mod - end - end - - module type SubSigB = sig - (** {3:subSig Another Labeled Section Header Inside of a Signature} *) - - type t - end - - module type EmptySig = sig - type not_actually_empty - end - - module type One = sig - type two - end - - module type SuperSig = sig end -end - -(** For a good time, see - {!SuperSig.SubSigA.subSig} or {!SuperSig.SubSigB.subSig} or - {!SuperSig.EmptySig}. Section {!s9000} is also - interesting. - {!section:emptySig} is the section and {!module-type:EmptySig} is the - module signature. *) - -(** {!Buffer.t} *) -module Buffer : sig - val f : Buffer.t -> unit -end - -(** Some text before exception title. - - {3 Basic exception stuff} - - After exception title. *) - -exception Kaboom of unit -(** Unary exception constructor *) - -exception Kablam of unit * unit -(** Binary exception constructor *) - -exception Kapow of (unit * unit) -(** Unary exception constructor over binary tuple *) - -exception EmptySig -(** {!module-type:EmptySig} is a module and - {!exception:EmptySig} is this exception. *) - -exception EmptySigAlias -(** {!exception:EmptySigAlias} is this exception. *) - -(** {3 Basic type and value stuff with advanced doc comments } *) - -type ('a, 'b) a_function = 'a -> 'b -(** {!type:a_function} is this type and - {!val:a_function} is the value below. *) - -val a_function : x:int -> int -(** - This is [a_function] with param and return type. - @param x the [x] coordinate - @return the [y] coordinate -*) - -val fun_fun_fun : ((int, int) a_function, (unit, unit) a_function) a_function - -val fun_maybe : ?yes:unit -> unit -> int - -val not_found : unit -> unit -(** @raise Not_found That's all it does *) - -val ocaml_org : string -(** @see The OCaml Web site *) - -val some_file : string -(** @see 'some_file' The file called [some_file] *) - -val some_doc : string -(** @see "some_doc" The document called [some_doc] *) - -val since_mesozoic : unit -(** - This value was introduced in the Mesozoic era. - @since mesozoic -*) - -val changing : unit -(** - This value has had changes in 1.0.0, 1.1.0, and 1.2.0. - @before 1.0.0 before 1.0.0 - @before 1.1.0 before 1.1.0 - @version 1.2.0 -*) - -(** {3 Some Operators } *) - -val ( ~- ) : unit - -val ( ! ) : unit - -val ( @ ) : unit - -val ( $ ) : unit - -val ( % ) : unit - -(* Disabling the following four until we figure out what to do about - https://github.com/ocsigen/tyxml/issues/264 - -val ( ^ ) : unit - -val ( < ) : unit - -val ( > ) : unit - -val ( -| ) : unit *) - -val ( & ) : unit - -val ( * ) : unit - -val ( - ) : unit - -val ( + ) : unit - -val ( -? ) : unit - -val ( / ) : unit - -val ( := ) : unit - -val ( = ) : unit - -val ( land ) : unit - -(**/**) - -(** I'm hidden *) - -(**/**) - -(** {3 Advanced Module Stuff} *) - -(** This comment is for [CollectionModule]. *) -module CollectionModule : sig - type collection - (** This comment is for [collection]. *) - - type element - - (** This comment is for [InnerModuleA]. *) - module InnerModuleA : sig - type t = collection - (** This comment is for [t]. *) - - (** This comment is for [InnerModuleA']. *) - module InnerModuleA' : sig - type t = (unit, unit) a_function - (** This comment is for [t]. *) - end - - (** This comment is for [InnerModuleTypeA']. *) - module type InnerModuleTypeA' = sig - type t = InnerModuleA'.t - (** This comment is for [t]. *) - end - end - - module type InnerModuleTypeA = InnerModuleA.InnerModuleTypeA' - (** This comment is for [InnerModuleTypeA]. *) -end - -module type COLLECTION = module type of CollectionModule -(** module type of *) - -module Recollection : functor (C : COLLECTION) -> - COLLECTION - with type collection = C.element list - and type element = C.collection - -module type MMM = sig - module C : COLLECTION -end - -module type RECOLLECTION = MMM with module C = Recollection(CollectionModule) - -module type RecollectionModule = sig - include module type of Recollection (CollectionModule) -end - -module type A = sig - type t - - module Q : COLLECTION -end - -module type B = sig - type t - - module Q : COLLECTION -end - -(** This module type includes two signatures. - {ul - {- it includes {!module-type:A}} - {- it includes {!module-type:B} with some substitution}} *) -module type C = sig - include A - - include B with type t := t and module Q := Q -end - -(* TODO: figure out why this doesn't work - -(** This comment is for [Functor]. *) -module Functor(EmptyAlias : EmptySigAlias) : sig - (** This comment is for [FunctorInner]. *) - module FunctorInner = EmptyAlias -end -*) - -(** This comment is for [FunctorTypeOf]. *) -module FunctorTypeOf (Collection : module type of CollectionModule) : sig - type t = Collection.collection - (** This comment is for [t]. *) -end - -(** This comment is for [IncludeModuleType]. *) -module type IncludeModuleType = sig - include EmptySigAlias - (** This comment is for [include EmptySigAlias]. *) -end - -module type ToInclude = sig - module IncludedA : sig - type t - end - - module type IncludedB = sig - type s - end -end - -include ToInclude - -(** {3 Advanced Type Stuff} *) - -(** This comment is for [record]. *) -type record = { - field1 : int; (** This comment is for [field1]. *) - field2 : int; (** This comment is for [field2]. *) -} -(** This comment is also for [record]. *) - -type mutable_record = { - mutable a : int; (** [a] is first and mutable *) - b : unit; (** [b] is second and immutable *) - mutable c : int; (** [c] is third and mutable *) -} - -type universe_record = { nihilate : 'a. 'a -> unit } - -(** This comment is for [variant]. *) -type variant = - | TagA (** This comment is for [TagA]. *) - | ConstrB of int (** This comment is for [ConstrB]. *) - | ConstrC of int * int (** This comment is for binary [ConstrC]. *) - | ConstrD of (int * int) - (** This comment is for unary [ConstrD] of binary tuple. *) -(** This comment is also for [variant]. *) - -(** This comment is for [poly_variant]. *) -type poly_variant = [ `TagA | `ConstrB of int ] -(** Wow! It was a polymorphic variant! *) - -(** This comment is for [full_gadt]. *) -type (_, _) full_gadt = - | Tag : (unit, unit) full_gadt - | First : 'a -> ('a, unit) full_gadt - | Second : 'a -> (unit, 'a) full_gadt - | Exist : 'a * 'b -> ('b, unit) full_gadt (** *) -(** Wow! It was a GADT! *) - -(** This comment is for [partial_gadt]. *) -type 'a partial_gadt = - | AscribeTag : 'a partial_gadt - | OfTag of 'a partial_gadt - | ExistGadtTag : ('a -> 'b) -> 'a partial_gadt (** *) -(** Wow! It was a mixed GADT! *) - -type alias = variant -(** This comment is for [alias]. *) - -type tuple = (alias * alias) * alias * (alias * alias) -(** This comment is for [tuple]. *) - -(** This comment is for [variant_alias]. *) -type variant_alias = variant = - | TagA - | ConstrB of int - | ConstrC of int * int - | ConstrD of (int * int) - -type record_alias = record = { field1 : int; field2 : int } -(** This comment is for [record_alias]. *) - -type poly_variant_union = [ poly_variant | `TagC ] -(** This comment is for [poly_variant_union]. *) - -type 'a poly_poly_variant = [ `TagA of 'a ] - -type ('a, 'b) bin_poly_poly_variant = [ `TagA of 'a | `ConstrB of 'b ] - -(* TODO: figure out how to spec a conjunctive type -type amb_poly_variant = [ -| unit poly_poly_variant -| (int,unit) bin_poly_poly_variant -| `TagC -] -*) - -type 'a open_poly_variant = [> `TagA ] as 'a - -type 'a open_poly_variant2 = [> `ConstrB of int ] as 'a - -type 'a open_poly_variant_alias = 'a open_poly_variant open_poly_variant2 - -type 'a poly_fun = ([> `ConstrB of int ] as 'a) -> 'a - -type 'a poly_fun_constraint = 'a -> 'a constraint 'a = [> `TagA ] - -type 'a closed_poly_variant = [< `One | `Two ] as 'a - -type 'a clopen_poly_variant = - [< `One | `Two of int | `Three > `Two `Three ] as 'a - -type nested_poly_variant = - [ `A | `B of [ `B1 | `B2 ] | `C | `D of [ `D1 of [ `D1a ] ] ] - -(** This comment is for [full_gadt_alias]. *) -type ('a, 'b) full_gadt_alias = ('a, 'b) full_gadt = - | Tag : (unit, unit) full_gadt_alias - | First : 'a -> ('a, unit) full_gadt_alias - | Second : 'a -> (unit, 'a) full_gadt_alias - | Exist : 'a * 'b -> ('b, unit) full_gadt_alias - -(** This comment is for [partial_gadt_alias]. *) -type 'a partial_gadt_alias = 'a partial_gadt = - | AscribeTag : 'a partial_gadt_alias - | OfTag of 'a partial_gadt_alias - | ExistGadtTag : ('a -> 'b) -> 'a partial_gadt_alias - -exception Exn_arrow : unit -> exn -(** This comment is for {!Exn_arrow}. *) - -(** This comment is for {!mutual_constr_a} then {!mutual_constr_b}. *) -type mutual_constr_a = - | A - | B_ish of mutual_constr_b - (** This comment is between {!mutual_constr_a} and {!mutual_constr_b}. *) - -(** This comment is for {!mutual_constr_b} then {!mutual_constr_a}. *) -and mutual_constr_b = - | B - | A_ish of mutual_constr_a - (** This comment must be here for the next to associate correctly. *) - -type rec_obj = < f : int ; g : unit -> unit ; h : rec_obj > - -type 'a open_obj = < f : int ; g : unit -> unit ; .. > as 'a - -type 'a oof = (< a : unit ; .. > as 'a) -> 'a - -type 'a any_obj = < .. > as 'a - -type empty_obj = < > - -type one_meth = < meth : unit > - -type ext = .. -(** A mystery wrapped in an ellipsis *) - -type ext += ExtA - -type ext += ExtB - -type ext += ExtC of unit | ExtD of ext - -type ext += ExtE - -type ext += private ExtF - -type 'a poly_ext = .. -(** 'a poly_ext *) - -type 'b poly_ext += Foo of 'b | Bar of 'b * 'b (** 'b poly_ext *) - -type 'c poly_ext += Quux of 'c (** 'c poly_ext *) - -module ExtMod : sig - type t = .. - - type t += Leisureforce -end - -type ExtMod.t += ZzzTop0 (** It's got the rock *) - -type ExtMod.t += ZzzTop of unit (** and it packs a unit. *) - -external launch_missiles : unit -> unit = "tetris" -(** Rotate keys on my mark... *) - -type my_mod = (module COLLECTION) -(** A brown paper package tied up with string*) - -class empty_class : object end - -class one_method_class : - object - method go : unit - end - -class two_method_class : - object - method one : one_method_class - - method undo : unit - end - -class ['a] param_class : - 'a - -> object - method v : 'a - end - -type my_unit_object = unit param_class - -type 'a my_unit_class = unit #param_class as 'a - -(* Bug in compiler breaks this example on cmi's *) -(* class type my_unit_class_type = [unit] param_class *) - -(* TODO: classes, class types, ...? *) - -(* Test resolution of dependently typed modules *) -module Dep1 : sig - module type S = sig - class c : - object - method m : int - end - end - - module X : sig - module Y : S - end -end - -module Dep2 : functor - (Arg : sig - module type S - - module X : sig - module Y : S - end - end) - -> sig - module A : sig - module Y : Arg.S - end - - module B = A.Y -end - -type dep1 = Dep2(Dep1).B.c - -module Dep3 : sig - type a -end - -module Dep4 : sig - module type T = sig - type b - end - - module type S = sig - module X : T - - module Y : sig end - end - - module X : T -end - -module Dep5 : functor - (Arg : sig - module type T - - module type S = sig - module X : T - - module Y : sig end - end - - module X : T - end) - -> sig - module Z : Arg.S with module Y = Dep3 -end - -type dep2 = Dep5(Dep4).Z.X.b - -type dep3 = Dep5(Dep4).Z.Y.a - -module Dep6 : sig - module type S = sig - type d - end - - module type T = sig - module type R = S - - module Y : R - end - - module X : T -end - -module Dep7 : functor - (Arg : sig - module type S - - module type T = sig - module type R = S - - module Y : R - end - - module X : T - end) - -> sig - module M : Arg.T -end - -type dep4 = Dep7(Dep6).M.Y.d - -module Dep8 : sig - module type T = sig - type t - end -end - -module Dep9 : functor - (X : sig - module type T - end) - -> sig - module type T = X.T -end - -module type Dep10 = Dep9(Dep8).T with type t = int - -module Dep11 : sig - module type S = sig - class c : - object - method m : int - end - end -end - -module Dep12 : functor - (Arg : sig - module type S - end) - -> sig - module type T = Arg.S -end - -module Dep13 : Dep12(Dep11).T - -type dep5 = Dep13.c - -(* Test resolution of difficult with examples *) - -module type With1 = sig - module M : sig - module type S - end - - module N : M.S -end - -module With2 : sig - module type S = sig - type t - end -end - -module With3 : With1 with module M = With2 - -type with1 = With3.N.t - -module With4 : With1 with module M := With2 - -type with2 = With4.N.t - -module With5 : sig - module type S = sig - type t - end - - module N : S -end - -module With6 : sig - module type T = sig - module M : sig - module type S - - module N : S - end - end -end - -module With7 : functor - (X : sig - module type T - end) - -> sig - module type T = X.T -end - -module type With8 = - With7(With6).T with module M = With5 and type M.N.t = With5.N.t - -module With9 : sig - module type S = sig - type t - end -end - -module With10 : sig - (** {!With10.T} is a submodule type. *) - module type T = sig - module M : sig - module type S - end - - module N : M.S - end -end - -module type With11 = With7(With10).T with module M = With9 and type N.t = int - -module type NestedInclude1 = sig - module type NestedInclude2 = sig - type nested_include - end -end - -include NestedInclude1 - -include NestedInclude2 with type nested_include = int - -module DoubleInclude1 : sig - module DoubleInclude2 : sig - type double_include - end -end - -module DoubleInclude3 : sig - include module type of DoubleInclude1 -end - -include module type of DoubleInclude3.DoubleInclude2 - -module IncludeInclude1 : sig - module type IncludeInclude2 = sig - type include_include - end -end - -include module type of IncludeInclude1 - -include IncludeInclude2 - -(** {1:indexmodules Trying the \{!modules: ...\} command.} - - With ocamldoc, toplevel units will be linked and documented, while - submodules will behave as simple references. - - With odoc, everything should be resolved (and linked) but only toplevel - units will be documented. - - {!modules: Dep1.X DocOckTypes Ocamlary.IncludeInclude1 Ocamlary} - - {3 Weirder usages involving module types} - - {!modules: IncludeInclude1.IncludeInclude2 Dep4.T A.Q} -*) - -(** {1 Playing with \@canonical paths} *) - -module CanonicalTest : sig - module Base__List : sig - type 'a t - - val id : 'a t -> 'a t - end - - module Base__ : sig - module List = Base__List - (** @canonical Ocamlary.CanonicalTest.Base.List *) - end - - module Base : sig - module List = Base__.List - end - - module Base__Tests : sig - module C : module type of Base__.List - - open Base__ - module L = List - - val foo : int L.t -> float L.t - - val bar : 'a List.t -> 'a List.t - (** This is just {!List.id}, or rather {!L.id} *) - - val baz : 'a Base__.List.t -> unit - (** Just seeing if {!Base__.List.t} ([Base__.List.t]) gets rewriten to - {!Base.List.t} ([Base.List.t]) *) - end - - module List_modif : module type of Base.List with type 'c t = 'c Base__.List.t -end - -val test : 'a CanonicalTest.Base__.List.t -> unit -(** Some ref to {!CanonicalTest.Base__Tests.C.t} and {!CanonicalTest.Base__Tests.L.id}. - But also to {!CanonicalTest.Base__.List} and {!CanonicalTest.Base__.List.t} *) - -(** {1:aliases Aliases again} *) - -module Aliases : sig - (** Let's imitate jst's layout. *) - - module Foo__A : sig - type t - - val id : t -> t - end - - module Foo__B : sig - type t - - val id : t -> t - end - - module Foo__C : sig - type t - - val id : t -> t - end - - module Foo__D : sig - type t - - val id : t -> t - end - - module Foo__E : sig - type t - - val id : t -> t - end - - module Foo__ : sig - module A = Foo__A - (** @canonical Ocamlary.Aliases.Foo.A *) - - module B = Foo__B - (** @canonical Ocamlary.Aliases.Foo.B *) - - module C = Foo__C - (** @canonical Ocamlary.Aliases.Foo.C *) - - module D = Foo__D - (** @canonical Ocamlary.Aliases.Foo.D *) - - module E = Foo__E - end - - module Foo : sig - open Foo__ - module A = A - module B = B - module C = C - module D = D - module E = E - end - - module A' = Foo.A - - type tata = Foo.A.t - - type tbtb = Foo__.B.t - - type tete = Foo__.E.t - - type tata' = A'.t - - type tete2 = Foo.E.t - - module Std : sig - module A = Foo.A - module B = Foo.B - module C = Foo.C - module D = Foo.D - module E = Foo.E - end - - type stde = Std.E.t - - (** {3:incl include of Foo} - - Just for giggle, let's see what happens when we include {!module-Foo}. *) - - include module type of Foo - - type testa = A.t - - (** And also, let's refer to {!type:module-A.t} and {!Foo.B.id} *) - - module P1 : sig - (** @canonical Ocamlary.Aliases.P2.Z *) - module Y : sig - type t - - val id : t -> t - end - end - - module P2 : sig - module Z = P1.Y - end - - module X1 = P1.Y - module X2 = P2.Z - - type p1 = X1.t - - type p2 = X2.t -end - -(** {1 Section title splicing} - - I can refer to - - [{!section:indexmodules}] : {!section:indexmodules} - - [{!aliases}] : {!aliases} - - But also to things in submodules: - - [{!section:SuperSig.SubSigA.subSig}] : {!section:SuperSig.SubSigA.subSig} - - [{!Aliases.incl}] : {!Aliases.incl} - - And just to make sure we do not mess up: - - [{{!section:indexmodules}A}] : {{!section:indexmodules}A} - - [{{!aliases}B}] : {{!aliases}B} - - [{{!section:SuperSig.SubSigA.subSig}C}] : - {{!section:SuperSig.SubSigA.subSig}C} - - [{{!Aliases.incl}D}] : {{!Aliases.incl}D} -*) - -(** {1 New reference syntax} *) - -module type M = sig - type t -end - -module M : sig - type t -end - -(** Here goes: - - [{!module-M.t}] : {!module-M.t} - - [{!module-type-M.t}] : {!module-type-M.t} *) - -module Only_a_module : sig - type t -end - -(** Some here should fail: - - [{!Only_a_module.t}] : {!Only_a_module.t} - - [{!module-Only_a_module.t}] : {!module-Only_a_module.t} - - [{!module-type-Only_a_module.t}] : {!module-type-Only_a_module.t} : {{!module-type-Only_a_module.t}test}*) - -module type TypeExt = sig - type t = .. - - type t += C - - val f : t -> unit -end - -type new_t = .. - -type new_t += C - -module type TypeExtPruned = TypeExt with type t := new_t diff --git a/test/generators/cases/recent.mli b/test/generators/cases/recent.mli deleted file mode 100644 index a6ceb09654..0000000000 --- a/test/generators/cases/recent.mli +++ /dev/null @@ -1,58 +0,0 @@ -(* These tests are run on only the most recent version of the compiler that is - explicitly supported by odoc. This allows us to test doc generation for new - language features. *) - -module type S = sig end - -module type S1 = S -> S - -type variant = - | A - | B of int - | C (** foo *) - | D (** {e bar} *) - | E of {a : int} - -type _ gadt = - | A : int gadt - | B : int -> string gadt (** foo *) - | C : {a : int} -> unit gadt - -type polymorphic_variant = [ - | `A - | `B of int - | `C (** foo *) - | `D (** bar *) -] - -type empty_variant = | - -type nonrec nonrec_ = int - - -(* Conjunctive types: dune compilation scheme exposes a bug in old - versions of the compiler *) -type empty_conj= X: [< `X of & 'a & int * float ] -> empty_conj -type conj = X: [< `X of int & [< `B of int & float ] ] -> conj -val empty_conj: [< `X of & 'a & int * float ] -val conj : [< `X of int & [< `B of int & float ] ] - -module Z : sig - module Y : sig - module X : sig - type 'a t - end - end -end - -module X : sig - module L := Z.Y - type t = int L.X.t - type u := int - type v = u L.X.t -end - -module type PolyS = - sig type a = [ `A ] type t = [ a | `B ] end with type a := [ `A ] - - diff --git a/test/generators/cases/recent_impl.ml b/test/generators/cases/recent_impl.ml deleted file mode 100644 index 7aa10c958d..0000000000 --- a/test/generators/cases/recent_impl.ml +++ /dev/null @@ -1,29 +0,0 @@ -module Foo = struct - module A = struct - type t = A - end - module B = struct - type t = B - end -end - -open (Foo : module type of Foo with module A := Foo.A) - -module B = B - -open Set.Make(struct type t = Foo.A.t let compare = compare end) - -type u = t - -module type S = sig - module F: sig end -> sig type t end - module X: sig end - open F(X) - val f: t -end - -open Foo - -(* Check that regular open still works as expected *) -module B' = B - diff --git a/test/generators/cases/section.mli b/test/generators/cases/section.mli deleted file mode 100644 index 44e14fa9f0..0000000000 --- a/test/generators/cases/section.mli +++ /dev/null @@ -1,30 +0,0 @@ -(* Blank lines are needed because of - https://caml.inria.fr/mantis/view.php?id=7701. *) - -(** This is the module comment. Eventually, sections won't be allowed in it. *) - -(** {1 Empty section} *) - -(** {1 Text only} - - Foo bar. *) - -(** {1 Aside only} *) - -(** Foo bar. *) - -(** {1 Value only} *) - -val foo : unit - -(** {1 Empty section} - - {1 within a comment} - - {2 and one with a nested section} *) - -(** {1 {e This} [section] {b title} {_has} {^markup}} - - But links are impossible thanks to the parser, so we never have trouble - rendering a section title in a table of contents – no link will be nested - inside another link. *) diff --git a/test/generators/cases/stop.mli b/test/generators/cases/stop.mli deleted file mode 100644 index 789257b134..0000000000 --- a/test/generators/cases/stop.mli +++ /dev/null @@ -1,42 +0,0 @@ -(** This test cases exercises stop comments. *) - -val foo : int -(** This is normal commented text. *) - -(** The next value is [bar], and it should be missing from the documentation. - There is also an entire module, [M], which should also be hidden. It - contains a nested stop comment, but that stop comment should not turn - documentation back on in this outer module, because stop comments respect - scope. *) - -(**/**) - -val bar : int -(** OMG! *) - -module M : -sig - val baz : int - - (**/**) -end - -(**/**) - -(** Documentation is on again. - - Now, we have a nested module, and it has a stop comment between its two - items. We want to see that the first item is displayed, but the second is - missing, and the stop comment disables documenation only in that module, and - not in this outer module. *) - -module N : -sig - val quux : int - - (**/**) - - val omg : int -end - -val lol : int diff --git a/test/generators/cases/stop_dead_link_doc.mli b/test/generators/cases/stop_dead_link_doc.mli deleted file mode 100644 index 351e2b1b6c..0000000000 --- a/test/generators/cases/stop_dead_link_doc.mli +++ /dev/null @@ -1,27 +0,0 @@ -(* This tests that references to hidden items (items in no documentation mode) don't get rendered *) - -module Foo : sig - type t -end - -type foo = | Bar of Foo.t - -type bar = | Bar of { field : Foo.t } - -type foo_ = Bar_ of (int * Foo.t) * int -type bar_ = Bar__ of Foo.t option - -(**/**) -module Another_Foo : sig - type t -end -(**/**) - -(* this should be rendered as `type another_foo` because it contains a reference to a hidden module*) -type another_foo = | Bar of Another_Foo.t - -(* this should be rendered as `type another_bar` because it contains a reference to a hidden module*) -type another_bar = | Bar of { field : Another_Foo.t } - -type another_foo_ = Bar_ of (int * Another_Foo.t) * int -type another_bar_ = Bar__ of Another_Foo.t option diff --git a/test/generators/cases/toplevel_comments.mli b/test/generators/cases/toplevel_comments.mli deleted file mode 100644 index 93dc362a58..0000000000 --- a/test/generators/cases/toplevel_comments.mli +++ /dev/null @@ -1,72 +0,0 @@ -(** A doc comment at the beginning of a module is considered to be that - module's doc. *) - -(** Doc of [T], part 1. *) -module type T = sig - (** Doc of [T], part 2. *) - - type t -end - -module Include_inline : sig - include T - (** @inline *) -end - -(** Doc of [Include_inline], part 1. *) -module Include_inline' : sig - (** Doc of [Include_inline], part 2. *) - - include T - (** part 3 - @inline *) -end - -module type Include_inline_T = sig - include T - (** @inline *) -end - -(** Doc of [Include_inline_T'], part 1. *) -module type Include_inline_T' = sig - (** Doc of [Include_inline_T'], part 2. *) - - include T - (** part 3 - @inline *) -end - -module M : sig - - (** Doc of [M] *) -end - -module M' : sig end -(** Doc of [M'] from outside *) - -(** Doc of [M''], part 1. *) -module M'' : sig - - (** Doc of [M''], part 2. *) -end - -module Alias : T -(** Doc of [Alias]. *) - -(** Doc of [c1], part 1. *) -class c1 : - int - -> object - - (** Doc of [c1], part 2. *) - end - -(** Doc of [ct], part 1. *) -class type ct = - object - - (** Doc of [ct], part 2. *) - end - -class c2 : ct -(** Doc of [c2]. *) diff --git a/test/generators/cases/type.mli b/test/generators/cases/type.mli deleted file mode 100644 index 228aeec027..0000000000 --- a/test/generators/cases/type.mli +++ /dev/null @@ -1,138 +0,0 @@ -type abstract -(** Some {e documentation}. *) - -type alias = int - -type private_ = private int - -type 'a constructor = 'a - -type arrow = int -> int - -type higher_order = (int -> int) -> int - -type labeled = l:int -> int - -type optional = ?l:int -> int - -type labeled_higher_order = (l:int -> int) -> (?l:int -> int) -> int - -type pair = int * int - -type parens_dropped = (int * int) - -type triple = int * int * int - -type nested_pair = (int * int) * int - -type instance = int constructor - -type long = labeled_higher_order -> [ `Bar | `Baz of triple] -> pair -> labeled -> higher_order -> (string -> int) -> (int,float,char,string,char,unit) CamlinternalFormatBasics.fmtty -> nested_pair -> arrow -> string -> nested_pair array - -type variant_e = {a : int} -type variant = - | A - | B of int - | C (** foo *) - | D (** {e bar} *) - | E of variant_e - -type variant_c = {a: int} -type _ gadt = - | A : int gadt - | B : int -> string gadt - | C : variant_c -> unit gadt - -type degenerate_gadt = - | A : degenerate_gadt - -type private_variant = private A - -type record = { - a : int; - mutable b : int; - c : int; (** foo *) - d : int; (** {e bar} *) - e : 'a. 'a; -} - -(* 4.02 doesn't preserve doc comments on polymorphic variant constructors, but - they should be restored if 4.02 support is dropped, or if creating a test - that won't run on 4.02. *) -type polymorphic_variant = [ - | `A - | `B of int - | `C of int * unit - | `D -] - -type polymorphic_variant_extension = [ - | polymorphic_variant (** {not e} shown *) - | `E -] - -type nested_polymorphic_variant = [ - | `A of [ `B | `C ] -] - -type private_extenion = private [> polymorphic_variant ] - -type object_ = < - a : int; - b : int; (** foo *) - c : int; (** {e bar} *) -> - -module type X = sig type t type u end - -type module_ = (module X) - -type module_substitution = (module X with type t = int and type u = unit) - -type +'a covariant - -type -'a contravariant - -type _ bivariant = int - -type ('a, 'b) binary - -type using_binary = (int, int) binary - -type 'custom name - -type 'a constrained = 'a constraint 'a = int - -type 'a exact_variant = 'a constraint 'a = [ `A | `B of int ] - -type 'a lower_variant = 'a constraint 'a = [> `A | `B of int ] - -type 'a any_variant = 'a constraint 'a = [> ] - -type 'a upper_variant = 'a constraint 'a = [< `A | `B of int ] - -type 'a named_variant = 'a constraint 'a = [< polymorphic_variant ] - -type 'a exact_object = 'a constraint 'a = - -type 'a lower_object = 'a constraint 'a = - -type 'a poly_object = 'a constraint 'a = - -type ('a, 'b) double_constrained = 'a * 'b - constraint 'a = int - constraint 'b = unit - -type as_ = (int as 'a) * 'a - -type extensible = .. - -type extensible += - | Extension (** Documentation for {!Extension}. *) - | Another_extension (** Documentation for {!Another_extension}. *) - -type mutually = A of recursive -and recursive = B of mutually - -(* Not a type, but analogous to extensions. *) -exception Foo of int * int diff --git a/test/generators/cases/val.mli b/test/generators/cases/val.mli deleted file mode 100644 index 9503f92397..0000000000 --- a/test/generators/cases/val.mli +++ /dev/null @@ -1,7 +0,0 @@ -val documented : unit -(** Foo. *) - -val undocumented : unit - -(** Bar. *) -val documented_above : unit diff --git a/test/generators/dune b/test/generators/dune new file mode 100644 index 0000000000..1e78bb4d50 --- /dev/null +++ b/test/generators/dune @@ -0,0 +1,34 @@ +(library + (name gen_link_lib) + (modules gen_link_lib) + (libraries sexplib0 gen_backend) + (enabled_if + (>= %{ocaml_version} 4.04))) + +(library + (name gen_backend) + (modules gen_backend) + (libraries sexplib0 unix fpath) + (enabled_if + (>= %{ocaml_version} 4.04))) + +(library + (name html_t_rule) + (modules html_t_rule) + (libraries sexplib0 gen_backend) + (enabled_if + (>= %{ocaml_version} 4.04))) + +(library + (name latex_t_rule) + (modules latex_t_rule) + (libraries sexplib0 gen_backend) + (enabled_if + (>= %{ocaml_version} 4.04))) + +(library + (name man_t_rule) + (modules man_t_rule) + (libraries sexplib0 gen_backend) + (enabled_if + (>= %{ocaml_version} 4.04))) diff --git a/test/generators/gen_backend.ml b/test/generators/gen_backend.ml new file mode 100644 index 0000000000..abbfc5dca6 --- /dev/null +++ b/test/generators/gen_backend.ml @@ -0,0 +1,88 @@ +type sexp = Sexplib0.Sexp.t = Atom of string | List of sexp list + +let read_lines ic = + let lines = ref [] in + try + while true do + lines := input_line ic :: !lines + done; + assert false + with End_of_file -> List.rev !lines + +let die s = + prerr_endline s; + exit 1 + +let lines_of_command prog args = + let cmd = String.concat " " (prog :: List.map Filename.quote args) in + let inp = Unix.open_process_in cmd in + let lines = read_lines inp in + match Unix.close_process_in inp with + | Unix.WEXITED 0 -> lines + | _ -> die (cmd ^ " exited with non-zero status") + +let expected_targets backend odocl = + lines_of_command "odoc " + [ backend ^ "-targets"; "-o"; backend ^ ".gen"; Fpath.to_string odocl ] + |> List.map Fpath.v + +let tweak_target target = + match Fpath.segs target with + | _ :: _ :: rest -> String.concat "." rest + | _ -> assert false + +let gen_targets targets = + List.map + (fun t -> + List + [ + Atom "with-stdout-to"; + Atom (tweak_target t ^ ".gen"); + List + [ + Atom "progn"; + List + [ + Atom "system"; + Atom ("cat " ^ Filename.quote (Fpath.to_string t)); + ]; + ]; + ]) + targets + +let diff_rule t ocaml_ver = + List + [ + Atom "rule"; + List [ Atom "alias"; Atom "runtest" ]; + List + [ + Atom "action"; + List + [ + Atom "diff"; + Atom (Fpath.to_string t); + Atom (Fpath.to_string t ^ ".gen"); + ]; + ]; + List + [ + Atom "enabled_if"; + List [ Atom ">="; Atom "%{ocaml_version}"; Atom ocaml_ver ]; + ]; + ] + +let diff_rules targets ocaml_ver = + List.map (fun t -> diff_rule t ocaml_ver) targets + +let gen_backend_rules backend target_rule filenames ocaml_ver = + let rules = + (List.map (fun odocl -> + let targets = expected_targets backend odocl in + let paths = List.map tweak_target targets |> List.map Fpath.v in + target_rule odocl targets :: diff_rules paths ocaml_ver)) + filenames + in + List.flatten rules + +let files = List.tl (Array.to_list Sys.argv) |> List.map Fpath.v diff --git a/test/generators/gen_link_lib.ml b/test/generators/gen_link_lib.ml new file mode 100644 index 0000000000..8aca500180 --- /dev/null +++ b/test/generators/gen_link_lib.ml @@ -0,0 +1,267 @@ +type sexp = Sexplib0.Sexp.t = Atom of string | List of sexp list + +let cu_target_rule dep_path target_path = + List + [ + Atom "rule"; + List [ Atom "target"; Atom target_path ]; + List [ Atom "deps"; Atom (Fpath.to_string dep_path) ]; + List + [ + Atom "action"; + List + [ + Atom "run"; + Atom "ocamlc"; + Atom "-c"; + Atom "-bin-annot"; + Atom "-o"; + Atom "%{target}"; + Atom "%{deps}"; + ]; + ]; + ] + +let odoc_target_rule dep_path target_path = + List + [ + Atom "rule"; + List [ Atom "target"; Atom (Fpath.basename target_path) ]; + List [ Atom "deps"; Atom (Fpath.basename dep_path) ]; + List + [ + Atom "action"; + List + [ + Atom "run"; + Atom "odoc"; + Atom "compile"; + Atom "--pkg"; + Atom "test"; + Atom "-o"; + Atom "%{target}"; + Atom "%{deps}"; + ]; + ]; + ] + +let odocl_target_rule dep_path target_path = + List + [ + Atom "rule"; + List [ Atom "target"; Atom (Fpath.basename target_path) ]; + List [ Atom "deps"; Atom (Fpath.basename dep_path) ]; + List + [ + Atom "action"; + List + [ + Atom "run"; + Atom "odoc"; + Atom "link"; + Atom "-o"; + Atom "%{target}"; + Atom "%{deps}"; + ]; + ]; + ] + +let mld_odoc_target_rule dep_path target_path = + List + [ + Atom "rule"; + List [ Atom "target"; Atom (Fpath.basename target_path) ]; + List [ Atom "deps"; Atom (Fpath.to_string dep_path) ]; + List + [ + Atom "action"; + List + [ + Atom "run"; + Atom "odoc"; + Atom "compile"; + Atom "--pkg"; + Atom "test"; + Atom "-o"; + Atom "%{target}"; + Atom "%{deps}"; + ]; + ]; + ] + +let set_odocl_ext = Fpath.set_ext ".odocl" + +let set_odoc_ext = Fpath.set_ext ".odoc" + +let file_rule path ext = + let cm_file = Fpath.set_ext ext path in + let odoc_file = set_odoc_ext path in + let odocl_file = set_odocl_ext path in + [ + cu_target_rule path (Fpath.basename cm_file); + odoc_target_rule cm_file odoc_file; + odocl_target_rule odoc_file odocl_file; + ] + +let mld_file_rule path = + let path' = Fpath.(v ("page-" ^ basename path)) in + let odoc_file = set_odoc_ext path' in + let odocl_file = set_odocl_ext path' in + [ + mld_odoc_target_rule path odoc_file; odocl_target_rule odoc_file odocl_file; + ] + +let die s = + prerr_endline s; + exit 1 + +let path' () f = Filename.quote (Fpath.to_string f) + +let ext' () f = Filename.quote (Fpath.get_ext f) + +let cases = Fpath.v "cases" + +let is_dot_ocamlformat p = Fpath.filename p = ".ocamlformat" + +let gen_rule_for_source_file path = + let ext = Fpath.get_ext path in + match ext with + | ".ml" -> file_rule path ".cmt" + | ".mli" -> file_rule path ".cmti" + | ".mld" -> mld_file_rule path + | _ -> + die + (Printf.sprintf + "Don't know what to do with %a because of unrecognized %a extension." + path' path ext' path) + +let html, latex, man = ("html", "latex", "man") + +let dune_inc, dune_inc_gen, gen_, exe = + (".dune.inc", ".dune.inc.gen", "gen_", ".exe") + +type backend = { + subdir : Fpath.t; + dune_inc : string; + dune_inc_gen : string; + dune_inc' : string; + dune_inc_gen' : string; + gen_exe : string; +} + +let html = + { + subdir = Fpath.v html; + dune_inc = html ^ dune_inc; + dune_inc_gen = html ^ dune_inc_gen; + dune_inc' = html ^ "/" ^ html ^ dune_inc; + dune_inc_gen' = html ^ "/" ^ html ^ dune_inc_gen; + gen_exe = gen_ ^ html ^ "/" ^ gen_ ^ html ^ exe; + } + +let latex = + { + subdir = Fpath.v latex; + dune_inc = latex ^ dune_inc; + dune_inc_gen = latex ^ dune_inc_gen; + dune_inc' = latex ^ "/" ^ latex ^ dune_inc; + dune_inc_gen' = latex ^ "/" ^ latex ^ dune_inc_gen; + gen_exe = gen_ ^ latex ^ "/" ^ gen_ ^ latex ^ exe; + } + +let man = + { + subdir = Fpath.v man; + dune_inc = man ^ dune_inc; + dune_inc_gen = man ^ dune_inc_gen; + dune_inc' = man ^ "/" ^ man ^ dune_inc; + dune_inc_gen' = man ^ "/" ^ man ^ dune_inc_gen; + gen_exe = gen_ ^ man ^ "/" ^ gen_ ^ man ^ exe; + } + +let backends = [ html; latex; man ] + +let dep_atom p = Atom (Printf.sprintf "%%{dep:%s}" (Fpath.to_string p)) + +let odocls backend paths = + paths + |> List.map (fun p -> + let path = Fpath.relativize ~root:backend p in + match path with Some p -> dep_atom p | None -> assert false) + +let gen_backend_diff_rule paths = + List.map + (fun b -> + List + [ + Atom "subdir"; + Atom (Fpath.to_string b.subdir); + List + [ + Atom "rule"; + List + [ + Atom "with-stdout-to"; + Atom b.dune_inc_gen; + List + [ + Atom "pipe-stdout"; + List + (Atom "run" :: Atom b.gen_exe :: odocls b.subdir paths); + List [ Atom "run"; Atom "dune"; Atom "format-dune-file" ]; + ]; + ]; + ]; + ]) + backends + +let diff_rules ocaml_ver = + List.map + (fun b -> + List + [ + Atom "rule"; + List [ Atom "alias"; Atom "runtest" ]; + List + [ + Atom "action"; + List [ Atom "diff"; Atom b.dune_inc'; Atom b.dune_inc_gen' ]; + ]; + List + [ + Atom "enabled_if"; + List [ Atom ">="; Atom "%{ocaml_version}"; Atom ocaml_ver ]; + ]; + ]) + backends + +let gen_backend_rule paths ocaml_ver = + [ gen_backend_diff_rule paths; diff_rules ocaml_ver ] |> List.flatten + +let read_file_from_dir dir = + let filenames = + let arr = Sys.readdir dir in + Array.sort String.compare arr; + Array.to_list arr + in + let dir = Fpath.v dir in + List.map (Fpath.( / ) dir) filenames + +let gen_rule paths ocaml_ver = + let paths' = + List.map + (fun p -> + let path = Fpath.relativize ~root:cases p in + match path with + | Some p -> + if Fpath.get_ext p = ".mld" then + set_odocl_ext Fpath.(parent p / ("page-" ^ filename p)) + else set_odocl_ext Fpath.(parent p / filename p) + | None -> assert false) + paths + in + List.flatten + [ + List.(flatten (map gen_rule_for_source_file paths)); + gen_backend_rule paths' ocaml_ver; + ] diff --git a/test/generators/html_t_rule.ml b/test/generators/html_t_rule.ml new file mode 100644 index 0000000000..304215c690 --- /dev/null +++ b/test/generators/html_t_rule.ml @@ -0,0 +1,23 @@ +let html_target_rule odocl targets : Gen_backend.sexp = + List + [ + Atom "rule"; + List + [ + Atom "action"; + List + (Atom "progn" + :: + List + [ + Atom "run"; + Atom "odoc"; + Atom "html-generate"; + Atom "--indent"; + Atom "-o"; + Atom "html.gen"; + Atom ("%{dep:" ^ Fpath.to_string odocl ^ "}"); + ] + :: Gen_backend.gen_targets targets); + ]; + ] diff --git a/test/generators/latex_t_rule.ml b/test/generators/latex_t_rule.ml new file mode 100644 index 0000000000..b3e7eda5cb --- /dev/null +++ b/test/generators/latex_t_rule.ml @@ -0,0 +1,22 @@ +let latex_target_rule odocl targets : Gen_backend.sexp = + List + [ + Atom "rule"; + List + [ + Atom "action"; + List + (Atom "progn" + :: + List + [ + Atom "run"; + Atom "odoc"; + Atom "latex-generate"; + Atom "-o"; + Atom "latex.gen"; + Atom ("%{dep:" ^ Fpath.to_string odocl ^ "}"); + ] + :: Gen_backend.gen_targets targets); + ]; + ] diff --git a/test/generators/man_t_rule.ml b/test/generators/man_t_rule.ml new file mode 100644 index 0000000000..311d129f05 --- /dev/null +++ b/test/generators/man_t_rule.ml @@ -0,0 +1,22 @@ +let man_target_rule odocl targets : Gen_backend.sexp = + List + [ + Atom "rule"; + List + [ + Atom "action"; + List + (Atom "progn" + :: + List + [ + Atom "run"; + Atom "odoc"; + Atom "man-generate"; + Atom "-o"; + Atom "man.gen"; + Atom ("%{dep:" ^ Fpath.to_string odocl ^ "}"); + ] + :: Gen_backend.gen_targets targets); + ]; + ] From 4888e228eb04817df8bbd45d97cf6a2acd651023 Mon Sep 17 00:00:00 2001 From: lubegasimon Date: Wed, 26 May 2021 17:17:52 +0300 Subject: [PATCH 10/10] rm unnecessary file Signed-off-by: lubegasimon --- test/cases/toplevel_comments.mli | 81 -------------------------------- 1 file changed, 81 deletions(-) delete mode 100644 test/cases/toplevel_comments.mli diff --git a/test/cases/toplevel_comments.mli b/test/cases/toplevel_comments.mli deleted file mode 100644 index 342a884c87..0000000000 --- a/test/cases/toplevel_comments.mli +++ /dev/null @@ -1,81 +0,0 @@ -(** A doc comment at the beginning of a module is considered to be that - module's doc. *) - -(** Doc of [T], part 1. *) -module type T = sig - (** Doc of [T], part 2. *) - - type t -end - -module Include_inline : sig - include T - (** @inline *) -end - -(** Doc of [Include_inline], part 1. *) -module Include_inline' : sig - (** Doc of [Include_inline], part 2. *) - - include T - (** part 3 - @inline *) -end - -module type Include_inline_T = sig - include T - (** @inline *) -end - -(** Doc of [Include_inline_T'], part 1. *) -module type Include_inline_T' = sig - (** Doc of [Include_inline_T'], part 2. *) - - include T - (** part 3 - @inline *) -end - -module M : sig - - (** Doc of [M] *) -end - -module M' : sig end -(** Doc of [M'] from outside *) - -(** Doc of [M''], part 1. *) -module M'' : sig - - (** Doc of [M''], part 2. *) -end - -module Alias : T -(** Doc of [Alias]. *) - -(** Doc of [c1], part 1. *) -class c1 : - int - -> object - - (** Doc of [c1], part 2. *) - end - -(** Doc of [ct], part 1. *) -class type ct = - object - - (** Doc of [ct], part 2. *) - end - -class c2 : ct -(** Doc of [c2]. *) - -module Ref_in_synopsis : sig - (** {!t}. - - This reference should resolve in the context of this module, even when - used as a synopsis. *) - - type t -end