[nongnu] elpa/d-mode 5c06e99 087/346: add d-exceptions compilation error regexp

[ELPA Syncer]

branch: elpa/d-mode
commit 5c06e99cbe23c0c6187850217d970d54cb5d5b80
Author: Sergei Nosov <sergei.nosov@gmail.com>
Commit: Sergei Nosov <sergei.nosov@gmail.com>

    add d-exceptions compilation error regexp
---
 d-mode.el | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/d-mode.el b/d-mode.el
index ac613d8..25af43f 100644
--- a/d-mode.el
+++ b/d-mode.el
@@ -168,20 +168,27 @@ operators."
 
 ;;; Patterns to recognize the compiler generated messages
 
-;; The following recognizes messages generated by the LDC compiler.
-;; Subexpression 1 is the filename, 2 is the line number, nil is the
+;; The following regexp recognizes messages generated by the LDC and DMD
+;; compilers.  Subexpression 1 is the filename, 2 is the line number, nil is 
the
 ;; column, because it's not present in the LDC error messages, and the
-;; subexpressions 3 and 4 are the message type -- error, warning, or
-;; info.  To enable, add ldc symbol to compilation-error-regexp-alist
+;; subexpressions 3 and 4 are the message type -- error, warning, or info.
 
-;; GDC messages are probably recognized by gnu symbol already listed
-;; in compilation-error-regexp-alist. The patterns for messages
-;; generated by DMD can be added in another similar call
-;; (add-to-list 'compilation-error-regexp-alist-alist '(dmd ...
+;; GDC messages are recognized by gnu symbol already listed in
+;; compilation-error-regexp-alist.
 (add-to-list 'compilation-error-regexp-alist-alist
              '(ldc
                "^\\([^: \n]+\\)(\\([0-9]+\\)): \\(?: 
*\\(?3:\\(?:W\\(?::\\|arning\\)\\|warning\\)\\)\\| 
*\\(?4:[Ii]nfo\\(?:\\>\\|rmationa?l?\\)\\|I:\\|\\[ skipping \\.+ 
]\\|instantiated from\\|required from\\|[Nn]ote\\)\\| *\\(?:[Ee]rror\\)\\)"
                1 2 nil (3 . 4)))
+(add-to-list 'compilation-error-regexp-alist 'ldc)
+
+;; The following regexp recognizes messages generated by the D runtime for
+;; unhandled exceptions (e.g. assert failures).
+
+(add-to-list 'compilation-error-regexp-alist-alist
+             '(d-exceptions
+               "^[^@]*?@\\(.*?\\)(\\([0-9]+\\)):"
+               1 2 nil 2))
+(add-to-list 'compilation-error-regexp-alist 'd-exceptions)
 
 ;;----------------------------------------------------------------------------