mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-27 15:24:00 +00:00
417151ca01
Branches: main
Improve the C# backend.
C# foreign types remain commented out so as not to force an upgrade of the
bootstrap compiler yet.
compiler/handle_options.m:
Enable static ground cells for C# backend.
compiler/ml_global_data.m:
Make fields of static vector structures have `public' access.
Local access doesn't make sense.
Use structs to hold vector common data in C#.
Conform to changes.
compiler/ml_proc_gen.m:
Enable use_common_cells on C#.
Conform to changes.
compiler/mlds.m:
Rename `finality' to `overridability'. The `final' keyword in Java
has multiple meanings, so avoid that word. Use the word `sealed'
to describe classes or virtual methods which cannot be overridden,
which is the keyword in C#.
compiler/ml_switch_gen.m:
Remember the types of mlconst_foreign constants. In the C# backend a
foreign enum value needs to be cast to the right type. For some
reason, there was a field already which could be used for this purpose
but was only ever set to mlds_native_int_type.
compiler/ml_type_gen.m:
Replace ml_gen_final_member_decl_flags with
ml_gen_const_member_decl_flags. Return flags with the `sealed' flag
unset, as that wouldn't make sense for member variables.
Remember the type in mlconst_foreign.
compiler/ml_unify_gen.m:
Remember the type in mlconst_foreign.
compiler/mlds_to_cs.m:
Support static data in C#.
Support foreign enumerations.
Use the `default(T)' operator to initialise certain types of variables,
particularly user-defined types, which the Mercury compiler may not
know enumeration defined in another module, i.e. a value type, which
cannot be initialised with `null'.
Remove the requirement to add mark foreign types which are of value
types with the "valuetype" prefix.
compiler/mlds_to_java.m:
Write out the `final' keyword when either the `sealed' or `const' flags
are set.
Conform to changes.
compiler/rtti_to_mlds.m:
RTTI data doesn't need the `sealed' flag set.
compiler/ml_code_util.m:
compiler/mlds_to_c.m:
compiler/mlds_to_gcc.m:
compiler/mlds_to_il.m:
compiler/ml_elim_nested.m:
Conform to changes.
library/builtin.m:
Export `comparison_result' to C# foreign code.
Fix `deep_copy' for arrays.
library/bitmap.m:
library/pretty_printer.m:
library/store.m:
library/version_array.m:
library/version_hash_table.m:
Implement these modules for C#.
library/io.m:
library/dir.m:
Implement `dir.current_directory' for C#.
library/exception.m:
Implement `catch_impl' for multi and nondet predicates.
library/rtti_implementation.m:
Implement `get_typeclass_info_from_term' for C#.
library/string.m:
Fix `string.set_char' for C#.
library/time.m:
Delete now-unnecessary "valuetype" prefix on foreign type.
library/type_desc.m:
Implement `make_type' for C#.
runtime/mercury_dotnet.cs.in:
Collapse equivalences when comparing TypeInfo_Structs for equality.
tests/hard_coded/Mmakefile:
Disable some tests in C# grade.
tests/hard_coded/ee_dummy.m:
tests/hard_coded/ee_valid_test.m:
tests/hard_coded/equality_pred_which_requires_boxing.m:
tests/hard_coded/exported_foreign_enum.m:
tests/hard_coded/export_test.m:
tests/hard_coded/external_unification_pred.m:
tests/hard_coded/float_gv.m:
tests/hard_coded/foreign_enum_dummy.m:
tests/hard_coded/foreign_import_module_2.m:
tests/hard_coded/foreign_name_mutable.m:
tests/hard_coded/foreign_type2.m:
tests/hard_coded/foreign_type3.m:
tests/hard_coded/foreign_type.m:
tests/hard_coded/hash_table_test.m:
tests/hard_coded/impure_init_and_final.m:
tests/hard_coded/intermod_poly_mode_2.m:
tests/hard_coded/loop_inv_test1.m:
tests/hard_coded/loop_inv_test.m:
tests/hard_coded/multimode.m:
tests/hard_coded/pragma_export.m:
tests/hard_coded/pragma_foreign_export.m:
tests/hard_coded/redoip_clobber.m:
tests/hard_coded/trace_goal_4.m:
tests/hard_coded/uc_export_enum.m:
tests/hard_coded/user_compare.m:
tests/hard_coded/write_xml.m:
Make these test cases work on C#.
tests/hard_coded/deep_copy.exp3:
tests/hard_coded/expand.exp3:
tests/hard_coded/float_reg.exp3:
Add expected results for C#.
tests/hard_coded/string_strip.exp2:
Update this result, which was not updated when the test case changed
previously.
182 lines
4.2 KiB
Mathematica
182 lines
4.2 KiB
Mathematica
% vim: ft=mercury ts=4 sw=4 et wm=0 tw=0
|
|
:- module ee_valid_test.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
main(!IO) :-
|
|
io.write_string("default mapping: apple = ", !IO),
|
|
io.write(get_default_apple, !IO),
|
|
io.nl(!IO),
|
|
io.write_string("default mapping: orange = ", !IO),
|
|
io.write(get_default_orange, !IO),
|
|
io.nl(!IO),
|
|
io.write_string("with prefix: pear = ", !IO),
|
|
io.write(get_prefix_pear, !IO),
|
|
io.nl(!IO),
|
|
io.write_string("user mapping: lemon = ", !IO),
|
|
io.write(get_user_lemon, !IO),
|
|
io.nl(!IO),
|
|
io.write_string("default mapping with quoted names: bar = ", !IO),
|
|
io.write(get_bar, !IO),
|
|
io.nl(!IO).
|
|
|
|
:- type fruit
|
|
---> apple
|
|
; orange
|
|
; pear
|
|
; lemon.
|
|
|
|
:- type foo
|
|
---> 'FOO'
|
|
; 'BAR'
|
|
; 'BAZ'.
|
|
|
|
% Default mapping.
|
|
%
|
|
:- pragma foreign_export_enum("C", fruit/0).
|
|
:- pragma foreign_export_enum("C#", fruit/0).
|
|
:- pragma foreign_export_enum("Java", fruit/0).
|
|
|
|
% Default mapping with prefix.
|
|
%
|
|
:- pragma foreign_export_enum("C", fruit/0, [prefix("PREFIX_")]).
|
|
:- pragma foreign_export_enum("C#", fruit/0, [prefix("PREFIX_")]).
|
|
:- pragma foreign_export_enum("Java", fruit/0, [prefix("PREFIX_")]).
|
|
|
|
% User-specified mapping.
|
|
% Also checks that module qualifiers on constructor names are handled.
|
|
%
|
|
:- pragma foreign_export_enum("C", fruit/0, [prefix("USER_")],
|
|
[
|
|
ee_valid_test.apple - "APPLE",
|
|
orange - "ORANGE",
|
|
ee_valid_test.pear - "PEAR",
|
|
ee_valid_test.lemon - "LEMON"
|
|
]).
|
|
|
|
:- pragma foreign_export_enum("C#", fruit/0, [prefix("USER_")],
|
|
[
|
|
ee_valid_test.apple - "APPLE",
|
|
orange - "ORANGE",
|
|
ee_valid_test.pear - "PEAR",
|
|
ee_valid_test.lemon - "LEMON"
|
|
]).
|
|
|
|
:- pragma foreign_export_enum("Java", fruit/0, [prefix("USER_")],
|
|
[
|
|
ee_valid_test.apple - "APPLE",
|
|
orange - "ORANGE",
|
|
ee_valid_test.pear - "PEAR",
|
|
ee_valid_test.lemon - "LEMON"
|
|
]).
|
|
|
|
% Default mapping for quoted Mercury names.
|
|
%
|
|
:- pragma foreign_export_enum("C", foo/0).
|
|
:- pragma foreign_export_enum("C#", foo/0).
|
|
:- pragma foreign_export_enum("Java", foo/0).
|
|
|
|
:- func get_default_apple = fruit.
|
|
:- pragma foreign_proc("C",
|
|
get_default_apple = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = apple;
|
|
").
|
|
:- pragma foreign_proc("C#",
|
|
get_default_apple = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = apple;
|
|
").
|
|
:- pragma foreign_proc("Java",
|
|
get_default_apple = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = apple;
|
|
").
|
|
|
|
:- func get_default_orange = fruit.
|
|
:- pragma foreign_proc("C",
|
|
get_default_orange = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = orange;
|
|
").
|
|
:- pragma foreign_proc("C#",
|
|
get_default_orange = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = orange;
|
|
").
|
|
:- pragma foreign_proc("Java",
|
|
get_default_orange = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = orange;
|
|
").
|
|
|
|
:- func get_prefix_pear = fruit.
|
|
:- pragma foreign_proc("C",
|
|
get_prefix_pear = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = PREFIX_pear;
|
|
").
|
|
:- pragma foreign_proc("C#",
|
|
get_prefix_pear = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = PREFIX_pear;
|
|
").
|
|
:- pragma foreign_proc("Java",
|
|
get_prefix_pear = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = PREFIX_pear;
|
|
").
|
|
|
|
:- func get_user_lemon = fruit.
|
|
:- pragma foreign_proc("C",
|
|
get_user_lemon = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = USER_LEMON;
|
|
").
|
|
:- pragma foreign_proc("C#",
|
|
get_user_lemon = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = USER_LEMON;
|
|
").
|
|
:- pragma foreign_proc("Java",
|
|
get_user_lemon = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = USER_LEMON;
|
|
").
|
|
|
|
:- func get_bar = foo.
|
|
:- pragma foreign_proc("C",
|
|
get_bar = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = BAR;
|
|
").
|
|
:- pragma foreign_proc("C#",
|
|
get_bar = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = BAR;
|
|
").
|
|
:- pragma foreign_proc("Java",
|
|
get_bar = (X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = BAR;
|
|
").
|