86039
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
1 ;;; compilation-weblint.el --- error regexps for weblint
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
2
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
3 ;; Copyright (C) 2007 Free Software Foundation, Inc.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
4
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
5 ;; Author: Kevin Ryde <user42@zip.com.au>
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
6 ;; Version: 1
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
7 ;; Keywords: processes
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
8 ;; URL: http://www.geocities.com/user42_kevin/compilation/index.html
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
9 ;; EmacsWiki: CompilationMode
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
10
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
11 ;; This file is part of GNU Emacs.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
12
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
14 ;; it under the terms of the GNU General Public License as published by
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
15 ;; the Free Software Foundation; either version 3, or (at your option)
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
16 ;; any later version.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
17
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful,
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
21 ;; GNU General Public License for more details.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
22
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
23 ;; You should have received a copy of the GNU General Public License
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
26 ;; Boston, MA 02110-1301, USA.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
27
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
28 ;;; Commentary:
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
29
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
30 ;; This is a spot of code adding a `compilation-error-regexp-alist'
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
31 ;; pattern for messages from the weblint program (the one based on the
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
32 ;; perl HTML::Lint modules).
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
33
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
34 ;;; Install:
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
35
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
36 ;; Put compilation-weblint.el somewhere in your `load-path', and in
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
37 ;; .emacs put
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
38 ;;
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
39 ;; (eval-after-load "compile" '(require 'compilation-weblint))
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
40 ;;
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
41 ;; There's an autoload cookie below for this, if you use
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
42 ;; `update-file-autoloads' and friends.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
43
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
44 ;;; Emacsen:
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
45
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
46 ;; Works in Emacs 22, Emacs 21, and XEmacs 21.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
47
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
48 ;;; History:
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
49
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
50 ;; Version 1 - the first version.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
51
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
52
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
53 ;;; Code:
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
54
|
86042
|
55 ;;;DISABLE ###autoload (eval-after-load "compile" '(require 'compilation-weblint))
|
86039
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
56
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
57 (eval-after-load "compile"
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
58 '(progn
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
59 ;; The style comes from HTML::Lint::Error::as_string(), eg.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
60 ;; index.html (13:1) Unknown element <fdjsk>
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
61 ;;
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
62 ;; The pattern only matches filenames without spaces, since that
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
63 ;; should be usual and should help reduce the chance of a false
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
64 ;; match of a message from some unrelated program.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
65 ;;
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
66 ;; This message style is quite close to the "ibm" entry of
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
67 ;; emacs22 `compilation-error-regexp-alist-alist' which is for
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
68 ;; IBM C, though that ibm bit doesn't put a space after the
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
69 ;; filename.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
70 ;;
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
71 (let ((elem '(compilation-weblint
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
72 "^\\([^ \t\r\n(]+\\) (\\([0-9]+\\):\\([0-9]+\\)) "
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
73 1 2 3)))
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
74
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
75 (cond
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
76 ((boundp 'compilation-error-regexp-systems-list)
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
77 ;; xemacs21
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
78 (add-to-list 'compilation-error-regexp-alist-alist
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
79 (list (car elem) (cdr elem)))
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
80 (compilation-build-compilation-error-regexp-alist))
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
81
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
82 ((boundp 'compilation-error-regexp-alist-alist)
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
83 ;; emacs22
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
84 (add-to-list 'compilation-error-regexp-alist-alist elem)
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
85 (add-to-list 'compilation-error-regexp-alist (car elem)))
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
86
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
87 (t
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
88 ;; emacs21
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
89 (add-to-list 'compilation-error-regexp-alist (cdr elem))
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
90
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
91 ;; Remove the "4.3BSD lint pass 3" element because it wrongly
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
92 ;; matches weblint messages. It's apparently supposed to
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
93 ;; match something like
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
94 ;;
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
95 ;; bloofle defined( /users/wolfgang/foo.c(4) ) ...
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
96 ;;
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
97 ;; but it's rather loose and ends up matching the "(13:1)"
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
98 ;; part from weblint as if "13" is the filename and "1" is
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
99 ;; the line number. Forcibly removing this is a bit nasty,
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
100 ;; but emacs22 has dropped it, so consider it an upgrade!
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
101 ;;
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
102 ;; xemacs21 has the same pattern, but somehow the problem
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
103 ;; doesn't arise, so leave it alone there, for now.
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
104 ;;
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
105 (setq compilation-error-regexp-alist
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
106 (remove '(".*([ \t]*\\([a-zA-Z]?:?[^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\))" 1 2)
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
107 compilation-error-regexp-alist)))))))
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
108
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
109 (provide 'compilation-weblint)
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
110
|
86044
|
111 ;; arch-tag: c7e7f18f-71bd-4c43-b3d3-1d669036ef5d
|
86039
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff
changeset
|
112 ;;; compilation-weblint.el ends here
|