[m-rev.] diff: fix erlang shell scripts and --use-grade-subdirs

[Peter Wang]

Estimated hours taken: 0.2
Branches: main

compiler/modules.m:
	Shell scripts to start Erlang programs were being created in the
	current directory when `--use-grade-subdirs' was used, and then being
	clobbered by the symlink into the `Mercury' directory hierarchy.
	Generate the script in the proper place in the `Mercury' directory.

Index: compiler/modules.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/compiler/modules.m,v
retrieving revision 1.426
diff -u -r1.426 modules.m
--- compiler/modules.m	30 May 2007 05:15:05 -0000	1.426
+++ compiler/modules.m	31 May 2007 02:25:57 -0000
@@ -8178,7 +8178,9 @@
     ).
 
 create_erlang_shell_script(MainModuleName, Succeeded, !IO) :-
-    module_name_to_file_name(MainModuleName, ScriptFileName),
+    Extension = "",
+    module_name_to_file_name(MainModuleName, Extension, no, ScriptFileName,
+        !IO),
     globals.io_get_globals(Globals, !IO),
     grade_directory_component(Globals, GradeDir),
 
--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------