[m-rev.] more java fixes

[Fergus Henderson]

Estimated hours taken: 5
Branches: main

More fixes to make the Java back-end work better.

compiler/mlds_to_java.m:
	Fix a bug in the name mangling, where we were adding an "mr_"
	prefix to uses (but not definitions) of types whose name
	happens to be a Java keyword.  We don't need to add an "mr_"
	prefix for those cases, since the "_0" appended for the arity
	will already ensure that the name is not a Java keyword.

	Fix a bug where we were not outputting the correct Java type
	for Mercury types of the form array(T) where T is a type variable.
	For those types, we need to output "java.lang.Object", not
	"java.lang.Object[]", since the type needs to be able to
	hold arrays of any type, e.g. "int[]".

	Simplify the handling of procedures declared `external':
	rather than defining foo() as a forwarding procedure that
	calls extern_foo(), just leave foo() undefined, and assume
	that the `pragma java_code' for this module defineds foo().

Workspace: /home/ceres/fjh/mercury
Index: compiler/mlds_to_java.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_java.m,v
retrieving revision 1.40
diff -u -d -r1.40 mlds_to_java.m
--- compiler/mlds_to_java.m	14 May 2003 14:38:44 -0000	1.40
+++ compiler/mlds_to_java.m	14 May 2003 18:29:30 -0000
@@ -1087,9 +1087,22 @@
 output_defn(Indent, ModuleName, CtorData, Defn) -->
 	{ Defn = mlds__defn(Name, Context, Flags, DefnBody) },
 	indent_line(Context, Indent),
-	output_decl_flags(Flags, Name),
-	output_defn_body(Indent, qual(ModuleName, Name), CtorData, Context,
-			DefnBody).
+	( { DefnBody = mlds__function(_, _, external, _) } ->
+		% This is just a function declaration, with no body.
+		% Java doesn't support separate declarations and definitions,
+		% so just output the declaration as a comment.
+		% (Note that the actual definition of an external procedure
+		% must be given in `pragma java_code' in the same module.)
+		io__write_string("/* external:\n"),
+		output_decl_flags(Flags, Name),
+		output_defn_body(Indent, qual(ModuleName, Name), CtorData,
+			Context, DefnBody),
+		io__write_string("*/\n")
+	;
+		output_decl_flags(Flags, Name),
+		output_defn_body(Indent, qual(ModuleName, Name), CtorData,
+			Context, DefnBody)
+	).
 
 :- pred output_defn_body(indent, mlds__qualified_entity_name, ctor_data,
 		mlds__context, mlds__entity_defn, io__state, io__state).
@@ -1465,9 +1478,9 @@
 
 output_func(Indent, Name, CtorData, Context, Signature, MaybeBody)
 		-->
-	output_func_decl(Indent, Name, CtorData, Context, Signature),
 	(
 		{ MaybeBody = defined_here(Body) },
+		output_func_decl(Indent, Name, CtorData, Context, Signature),
 		io__write_string("\n"),
 		indent_line(Context, Indent),
 		io__write_string("{\n"),
@@ -1476,17 +1489,7 @@
 		indent_line(Context, Indent),
 		io__write_string("}\n")	% end the function
 	;
-		{ MaybeBody = external },
-		% Java requires that all function definitions have a body.
-		% So for each external function "Foo", we emit a body
-		% which is just a call to "extern_Foo" with the same
-		% parameters.
-		io__write_string("\n"),
-		indent_line(Context, Indent),
-		io__write_string("{\n"),
-		output_extern_call(Indent + 1, Name, Context, Signature),
-		indent_line(Context, Indent),
-		io__write_string("}\n")	% end the function
+		{ MaybeBody = external }
 	).
 
 :- pred output_func_decl(indent, qualified_entity_name, ctor_data,
@@ -1542,55 +1545,6 @@
 	output_fully_qualified_name(qual(ModuleName, Name)).
 
 %-----------------------------------------------------------------------------%
-
-	% Java requires that all function declarations have a body.
-	% So for each function "Foo" which is declared as "external",
-	% we emit a body which is just a call to "extern_Foo" with the same
-	% parameters.
-
-:- pred output_extern_call(indent, qualified_entity_name,
-		mlds__context, func_params, io__state, io__state).
-:- mode output_extern_call(in, in, in, in, di, uo) is det.
-
-output_extern_call(Indent, QualifiedName, Context, Signature) -->
-	{ Signature = mlds__func_params(Parameters, RetTypes) },
-	{ QualifiedName = qual(ModuleName, Name) },
-	indent_line(Context, Indent),
-	( { RetTypes \= [] } ->
-		io__write_string("return ")
-	;
-		[]
-	),
-	io__write_string("extern_"),
-	output_name(Name),
-	output_extern_call_args(Indent, ModuleName, Context, Parameters),
-	io__write_string(";\n").
-
-:- pred output_extern_call_args(indent, mlds_module_name, mlds__context,
-		mlds__arguments, io__state, io__state).
-:- mode output_extern_call_args(in, in, in, in, di, uo) is det.
-
-output_extern_call_args(Indent, ModuleName, Context, Parameters) -->
-	io__write_char('('),
-	( { Parameters = [] } ->
-		[]
-	;
-		io__nl,
-		io__write_list(Parameters, ",\n",
-			output_extern_call_arg(Indent + 1, ModuleName, Context))
-	),
-	io__write_char(')').
-
-:- pred output_extern_call_arg(indent, mlds_module_name, mlds__context,
-		mlds__argument, io__state, io__state).
-:- mode output_extern_call_arg(in, in, in, in, di, uo) is det.
-
-output_extern_call_arg(Indent, ModuleName, Context, Arg) -->
-	{ Arg = mlds__argument(Name, _Type, _GC_TraceCode) },
-	indent_line(Context, Indent),
-	output_fully_qualified_name(qual(ModuleName, Name)).
-
-%-----------------------------------------------------------------------------%
 %
 % Code to output names of various entities
 % XXX Much of the code in this section will not work when we 
@@ -1719,7 +1673,7 @@
 :- pred output_mlds_var_name(mlds__var_name, io__state, io__state).
 :- mode output_mlds_var_name(in, di, uo) is det.
 output_mlds_var_name(var_name(Name, no)) -->
-	output_mangled_name(Name).
+	output_valid_mangled_name(Name).
 output_mlds_var_name(var_name(Name, yes(Num))) -->
 	output_mangled_name(string__format("%s_%d", [s(Name), i(Num)])).
 
@@ -1759,9 +1713,18 @@
 		output_mercury_type(Type, TypeCategory)
 	).
 
-output_type(mercury_array_type(MLDSType)) -->
-	output_type(MLDSType),
-	io__write_string("[]").
+output_type(mercury_array_type(ElementType)) -->
+	( { ElementType = mlds__mercury_type(_, polymorphic_type, _) } ->
+		% We can't use `java.lang.Object []', since we want
+		% a generic type that is capable of holding any kind
+		% of array, including e.g. `int []'.
+		% Java doesn't have any equivalent of .NET's System.Array
+		% class, so we just use the universal base `java.lang.Object'.
+		io__write_string("java.lang.Object")
+	;
+		output_type(ElementType),
+		io__write_string("[]")
+	).
 output_type(mlds__native_int_type)   --> io__write_string("int").
 output_type(mlds__native_float_type) --> io__write_string("double").
 output_type(mlds__native_bool_type) --> io__write_string("boolean").
@@ -2809,7 +2772,7 @@
 		io__write_string(").")
 	),
 	{ FieldName = qual(_, UnqualFieldName) },
-	output_mangled_name(UnqualFieldName).    % the field name
+	output_valid_mangled_name(UnqualFieldName).    % the field name
 
 output_lval(mem_ref(Rval, _Type)) -->
 	output_bracketed_rval(Rval).
@@ -2821,6 +2784,13 @@
 :- mode output_mangled_name(in, di, uo) is det.
 
 output_mangled_name(Name) -->
+	{ MangledName = name_mangle(Name) },
+	io__write_string(MangledName).
+
+:- pred output_valid_mangled_name(string, io__state, io__state).
+:- mode output_valid_mangled_name(in, di, uo) is det.
+
+output_valid_mangled_name(Name) -->
 	{ MangledName = name_mangle(Name) },
 	{ JavaSafeName = valid_symbol_name(MangledName) },
 	io__write_string(JavaSafeName).

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------