mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-17 06:47:17 +00:00
f00cdedfe8
Estimated hours taken: 0.1 Branches: main tests/invalid/children.m: tests/invalid/children2.m: tests/invalid/duplicate_module.m: tests/invalid/missing_parent_import.m: tests/invalid/nested_impl_in_int.m: tests/invalid/qual_basic_test2.m tests/invalid/qualified_cons_id2.m Replace the deprecated module qualifier `:'.
81 lines
1.8 KiB
Mathematica
81 lines
1.8 KiB
Mathematica
% Test of modules declared as both nested and separate modules.
|
|
% This is referenced from duplicate_module_test.m.
|
|
|
|
:- module duplicate_module.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred do_main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- include_module duplicate_module:child.
|
|
|
|
:- module duplicate_module:child.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- type foo ---> bar ; baz(int).
|
|
|
|
:- pred hello(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
hello --> io__write_string("duplicate_module:child:hello\n").
|
|
|
|
:- end_module duplicate_module:child.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- include_module child2.
|
|
|
|
:- module duplicate_module:child2.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- type foo ---> bar ; baz(int).
|
|
|
|
:- pred hello(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
hello --> io__write_string("duplicate_module:child2:hello\n").
|
|
|
|
:- end_module duplicate_module:child2.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- include_module duplicate_module:child3.
|
|
|
|
:- module child3.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- type foo ---> bar ; baz(int).
|
|
|
|
:- pred hello(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
hello --> io__write_string("duplicate_module:child2:hello\n").
|
|
|
|
:- end_module child3.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
% now we're back in the parent module.
|
|
|
|
:- use_module duplicate_module.child.
|
|
:- use_module duplicate_module.child2.
|
|
:- use_module duplicate_module.child3.
|
|
:- import_module std_util, require.
|
|
|
|
do_main -->
|
|
duplicate_module.child.hello,
|
|
duplicate_module.child2.hello,
|
|
duplicate_module.child3.hello.
|
|
|
|
:- end_module duplicate_module.
|