From: Stefan Bund <stefan.bund@traveltainment.de>
Date: Fri, 6 Oct 2017 10:30:54 +0000 (+0200)
Subject: cc-ide: handle clang-format parse error messages
X-Git-Url: http://g0dil.de/git?p=emacsstuff.git;a=commitdiff_plain;h=820dc276eaa2fe9d0572216a57234bd14f558dfb

cc-ide: handle clang-format parse error messages
---

diff --git a/cc-ide/cc-ide.el b/cc-ide/cc-ide.el
index c261167..fd84edf 100644
--- a/cc-ide/cc-ide.el
+++ b/cc-ide/cc-ide.el
@@ -1618,6 +1618,11 @@ instatiations at point."
                 while (not (eq tok 'end-tag))
                 concat (clang-format-parse-replacement-text)))))
 
+(defun clang-format-parse-header ()
+  (let ((incflag (clang-format-xmltok-attribute "incomplete_format")))
+    (if (string= incflag "true")
+        (warn "clang-format: C++ syntax error in file"))))
+
 (defun clang-format-parse-replacements (buffer)
   (save-excursion
     (set-buffer buffer)
@@ -1625,10 +1630,11 @@ instatiations at point."
     (xmltok-forward-prolog)
     (loop for tok = (xmltok-forward)
           while tok
+          for n = (buffer-substring-no-properties (1+ xmltok-start) xmltok-name-end)
           if (and (eq tok 'start-tag)
-                  (string= (buffer-substring-no-properties (1+ xmltok-start) xmltok-name-end)
-                           "replacement"))
-          collect (clang-format-parse-replacement))))
+                  (string= n "replacement")) collect (clang-format-parse-replacement)
+          else if (and (eq tok ' start-tag)
+                       (string= n "replacements")) do (clang-format-parse-header))))
 
 (defun clang-format-apply-replacements (replacements)
   (loop for (offset length replacement) in (nreverse replacements)
@@ -1655,6 +1661,8 @@ instatiations at point."
     (set-buffer buffer)
     (goto-char (point-min))
     (loop while (= (forward-line 1) 0)
+          if (looking-at "Unmatched")
+            do (error (buffer-substring-no-properties (point) (progn (end-of-line) (point))))
           for b = (point)
           for e = (save-excursion (end-of-line) (point))
           for k = (search-forward "," e t)