[m-rev.] Change compiler output to use `.' as module separator

[Peter Moulder]

The ALL NEW version of the scripts/gud.el patch, maintaining all the
features you really love.
[Marketing translation: same patch but with an comment added, and an
insert for the commit comment for rafe.]

pjm.


* scripts/gud.el:
	Accept `.' as module separator.

Index: scripts/gud.el
===================================================================
RCS file: /home/mercury1/repository/mercury/scripts/gud.el,v
retrieving revision 1.9
diff -d -u -r1.9 gud.el
--- scripts/gud.el	4 Dec 2002 17:08:45 -0000	1.9
+++ scripts/gud.el	19 Dec 2002 09:37:23 -0000
@@ -1115,8 +1115,10 @@
 	       (event-regexp "[A-Z]+ ")
 
 	       ;; Regexp to match a procedure specification,
-	       ;; i.e. "<module>:<sub-module>:<name>/<arity>-<mode> "
-	       (proc-regexp "\\(?:[^:]+:\\)+[^:/]+/[0-9]+-[0-9]+ ")
+	       ;; i.e. "<module>.<sub-module>.<name>/<arity>-<mode> "
+	       ;; We also accept `:' as a module separator, as used by mercury-0.11
+	       ;; (and some earlier versions).
+	       (proc-regexp "\\(?:[^:.]+[:.]\\)+[^:./]+/[0-9]+-[0-9]+ ")
 	       
 	       ;; Regexp to match "(<detism>) "
 	       (detism-regexp "([a-z]+) ")
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------