[m-rev.] Diff: Add "done" message to verbose output for create_java_shell_script

[James Goddard]

Estimated hours taken: 0.25
Branches: main

Add a "done" message to the verbose output when creating a Java shell script.

compiler/modules.m:
	Add a "done" message to the verbose output when creating a Java shell
	script.
	

Index: modules.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/modules.m,v
retrieving revision 1.296
diff -u -d -r1.296 modules.m
--- modules.m	19 Feb 2004 00:58:27 -0000	1.296
+++ modules.m	19 Feb 2004 10:05:03 -0000
@@ -7215,7 +7215,7 @@
 
         globals__io_lookup_bool_option(verbose, Verbose),
         maybe_write_string(Verbose, "% Generating shell script `" ++
-			FileName ++ "':\n"),
+			FileName ++ "'...\n"),
 
 	module_name_to_file_name(MainModuleName, ".class", no, ClassFileName),
 	{ DirName = dir.dirname(ClassFileName) },
@@ -7242,12 +7242,13 @@
 		io__call_system("chmod a+x " ++ FileName, ChmodResult),
 		(
 			{ ChmodResult = ok(Status) },
-			{ Status = 0 ->
-				Succeeded = yes
+			( { Status = 0 } ->
+				{ Succeeded = yes },
+        			maybe_write_string(Verbose, "% done.\n")
 			;
-				error("chmod exit status != 0"),
-				Succeeded = no
-			}
+				{ error("chmod exit status != 0") },
+				{ Succeeded = no }
+			)
 		;
 			{ ChmodResult = error(Message) },
 			{ error(io__error_message(Message)) },
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------