[m-dev.] diff: mtags bug fixes

[David Overton]

Estimated hours taken: 0.5

scripts/mtags:
	Allow mode declarations using `==' as well as `::'.
	Strip trailing whitespace from constructor names before
	outputting to the tags file.  (Tag lookups of constructors
	should actually work properly now.)

--- mtags	Mon Dec  4 13:06:53 2000
+++ mtags	Mon Dec  4 13:04:50 2000
@@ -320,7 +375,7 @@
 	    $decl eq "func" ||
 	    $decl eq "type" ||
 	    $decl eq "inst" ||
-	    ($decl eq "mode" && $body =~ /::/) ||
+	    ($decl eq "mode" && ($body =~ /::/ || $body =~ /==/)) ||
 	    $decl eq "typeclass" ||
 	    ($decl eq "instance" && $keep_dups)
 	);
@@ -384,8 +439,8 @@
 		    }
 
 		    $name = $body;
-		    $name =~ s/[;.%].*//;
-		    $kind  = "cons";
+		    $name =~ s/[ \t;.%].*//;
+		    $kind = "cons";
 		    do output_name();
 
 		    # if there are more constructor definitions on the
-- 
David Overton      Department of Computer Science & Software Engineering
PhD Student        The University of Melbourne, Victoria 3010, Australia
+61 3 8344 9159    http://www.cs.mu.oz.au/~dmo
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------