This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions

View file

@ -0,0 +1,7 @@
(executable
(name fooexe)
(libraries mylib))
(alias
(name default)
(action (run ./fooexe.exe)))

View file

@ -0,0 +1,7 @@
Mylib.Bar.run ();;
Mylib.Foo.run ();;
Bar.run ();;
Foo.run ();;
module Y : Mylib.Intf_only.S = struct end
module X : Intf_only.S = struct end

View file

@ -0,0 +1 @@
let run () = print_endline "bar"

View file

@ -0,0 +1,4 @@
(library
(name mylib)
(modules_without_implementation intf_only)
(wrapped (transition "Will be removed past 2020-20-20")))

View file

@ -0,0 +1 @@
let run () = print_endline "foo"

View file

@ -0,0 +1 @@
val run : unit -> unit

View file

@ -0,0 +1 @@
module type S = sig end

View file

@ -0,0 +1,3 @@
module Bar = Bar
module Foo = Foo
module Intf_only = Intf_only

View file

@ -0,0 +1,18 @@
$ dune build 2>&1 | grep -v ocamlc
File "fooexe.ml", line 3, characters 0-7:
3 | Bar.run ();;
^^^^^^^
Error (alert deprecated): module Bar
Will be removed past 2020-20-20. Use Mylib.Bar instead.
File "fooexe.ml", line 4, characters 0-7:
4 | Foo.run ();;
^^^^^^^
Error (alert deprecated): module Foo
Will be removed past 2020-20-20. Use Mylib.Foo instead.
File "fooexe.ml", line 7, characters 11-22:
7 | module X : Intf_only.S = struct end
^^^^^^^^^^^
Error (alert deprecated): module Intf_only
Will be removed past 2020-20-20. Use Mylib.Intf_only instead.