mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-29 08:14:31 +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.
138 lines
3.6 KiB
Mathematica
138 lines
3.6 KiB
Mathematica
% vim: ft=mercury ts=4 sw=4 et
|
|
% Check the `uppercase' attribute with foreign_export_enum pragmas.
|
|
|
|
:- module uc_export_enum.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
%----------------------------------------------------------------------------%
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
main(!IO) :-
|
|
test_uc(UC),
|
|
( UC = foo ->
|
|
io.write_string("test_uc - succeeded.\n", !IO)
|
|
;
|
|
io.write_string("test_uc - failed.\n", !IO)
|
|
),
|
|
test_lc(LC),
|
|
( LC = foo ->
|
|
io.write_string("test_lc - succeeded.\n", !IO)
|
|
;
|
|
io.write_string("test_lc - failed.\n", !IO)
|
|
),
|
|
test_or(X, Y, Z),
|
|
( X = foo, Y = bar, Z = baz ->
|
|
io.write_string("test_or - succeeded.\n", !IO)
|
|
;
|
|
io.write_string("test_or - failed.\n", !IO)
|
|
).
|
|
|
|
:- pred test_uc(foo::out) is det.
|
|
:- pragma foreign_proc("C",
|
|
test_uc(X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = UC_foo_FOO;
|
|
").
|
|
:- pragma foreign_proc("C#",
|
|
test_uc(X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = UC_foo_FOO;
|
|
").
|
|
:- pragma foreign_proc("Java",
|
|
test_uc(X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = UC_foo_FOO;
|
|
").
|
|
|
|
:- pred test_lc(foo::out) is det.
|
|
:- pragma foreign_proc("C",
|
|
test_lc(X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = LC_foo_foo;
|
|
").
|
|
:- pragma foreign_proc("C#",
|
|
test_lc(X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = LC_foo_foo;
|
|
").
|
|
:- pragma foreign_proc("Java",
|
|
test_lc(X::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = LC_foo_foo;
|
|
").
|
|
|
|
:- pred test_or(foo::out, foo::out, foo::out) is det.
|
|
:- pragma foreign_proc("C",
|
|
test_or(X::out, Y::out, Z::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = OR_foo_lowercase_foo;
|
|
Y = OR_foo_mixed1234_bAr;
|
|
Z = OR_foo_BAZ;
|
|
").
|
|
:- pragma foreign_proc("C#",
|
|
test_or(X::out, Y::out, Z::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = OR_foo_lowercase_foo;
|
|
Y = OR_foo_mixed1234_bAr;
|
|
Z = OR_foo_BAZ;
|
|
").
|
|
:- pragma foreign_proc("Java",
|
|
test_or(X::out, Y::out, Z::out),
|
|
[will_not_call_mercury, promise_pure],
|
|
"
|
|
X = OR_foo_lowercase_foo;
|
|
Y = OR_foo_mixed1234_bAr;
|
|
Z = OR_foo_BAZ;
|
|
").
|
|
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- type foo
|
|
---> foo
|
|
; bar
|
|
; baz.
|
|
|
|
% Check that uppercase applies only the constructors and not to the prefix.
|
|
%
|
|
:- pragma foreign_export_enum("C", foo/0, [prefix("UC_foo_"), uppercase]).
|
|
:- pragma foreign_export_enum("C#", foo/0, [prefix("UC_foo_"), uppercase]).
|
|
:- pragma foreign_export_enum("Java", foo/0, [prefix("UC_foo_"), uppercase]).
|
|
|
|
% Check that uppercase applies only when the uppercase attribute is specified.
|
|
%
|
|
:- pragma foreign_export_enum("C", foo/0, [prefix("LC_foo_")]).
|
|
:- pragma foreign_export_enum("C#", foo/0, [prefix("LC_foo_")]).
|
|
:- pragma foreign_export_enum("Java", foo/0, [prefix("LC_foo_")]).
|
|
|
|
% Check that the uppercase attribute does not apply to user supplied foreign
|
|
% names.
|
|
%
|
|
:- pragma foreign_export_enum("C", foo/0, [prefix("OR_foo_"), uppercase], [
|
|
foo - "lowercase_foo",
|
|
bar - "mixed1234_bAr"
|
|
]).
|
|
:- pragma foreign_export_enum("C#", foo/0, [prefix("OR_foo_"), uppercase], [
|
|
foo - "lowercase_foo",
|
|
bar - "mixed1234_bAr"
|
|
]).
|
|
:- pragma foreign_export_enum("Java", foo/0, [prefix("OR_foo_"), uppercase], [
|
|
foo - "lowercase_foo",
|
|
bar - "mixed1234_bAr"
|
|
]).
|
|
|
|
%----------------------------------------------------------------------------%
|
|
%----------------------------------------------------------------------------%
|