Mercurial > emacs
annotate lisp/progmodes/mantemp.el @ 105170:f8ba8d6fd250
Fix typos.
* allout.el
* dired-aux.el
* dired-x.el
* epa-file.el
* ps-print.el
* shell.el
* vc-hooks.el
* vc-rcs.el
* vc-sccs.el
* vc.el
* view.el
* wdired.el
* emacs-lisp/authors.el
* net/dig.el
* net/socks.el
* net/zeroconf.el
* obsolete/vc-mcvs.el
* progmodes/gdb-mi.el
* progmodes/grep.el
* progmodes/idlw-help.el
* progmodes/idlw-shell.el
* progmodes/idlwave.el
* progmodes/inf-lisp.el
* textmodes/bibtex.el
* textmodes/ispell.el
* textmodes/reftex-toc.el
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 24 Sep 2009 01:37:14 +0000 |
parents | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
16879
diff
changeset
|
1 ;;; mantemp.el --- create manual template instantiations from g++ 2.7.2 output |
16878 | 2 |
100908 | 3 ;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
64699
629afbe74e61
Update copyright for release of 22.1 for progmodes directory.
Nick Roberts <nickrob@snap.net.nz>
parents:
64085
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
16878 | 5 |
6 ;; Author: Tom Houlder <thoulder@icor.fr> | |
7 ;; Created: 10 Dec 1996 | |
8 ;; Keywords: g++, templates | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; it under the terms of the GNU General Public License as published by |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
15 ;; (at your option) any later version. |
16878 | 16 |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
17 ;; GNU Emacs is distributed in the hope that it will be useful, |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
20 ;; GNU General Public License for more details. |
16878 | 21 |
22 ;; You should have received a copy of the GNU General Public License | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
16878 | 24 |
25 ;;; Commentary: | |
26 | |
27 ;; The following is a typical error message from g++ using STL (here | |
28 ;; with split lines): | |
29 ;; | |
30 ;; AFile.o(.text+0x2d5): undefined reference to | |
31 ;; `vector<double>::begin(void)' | |
32 ;; AFile.o(.text+0x2e7): undefined reference to | |
33 ;; `vector<double>::insert(double *, unsigned int, double const &)' | |
34 ;; AnotherFile.o(.text+0x226b8): undefined reference to | |
35 ;; `operator!=(rb_tree<basic_string<char>, pair<basic_string<char> | |
36 ;; const, AClass *>, select1st<pair<basic_string<char> const, AClass | |
37 ;; *>, basic_string<char> >, less<basic_string<char> > >::iterator | |
38 ;; const &, rb_tree<basic_string<char>, pair<basic_string<char> | |
39 ;; const, AClass *>, select1st<pair<basic_string<char> const, AClass | |
40 ;; *>, basic_string<char> >, less<basic_string<char> > >::iterator | |
41 ;; const &)' | |
42 ;; | |
43 ;; The message means that in the object file AFile.o there is one | |
44 ;; uninstantiated template class, vector<double>, and in AnotherFile.o | |
45 ;; there is one uninstantiated template function, operator!=(...). To | |
46 ;; turn this output into manual template instantiations, copy from the | |
47 ;; first name of an objective file (here this is AFile.o) to right | |
48 ;; after the very last `'' of the output. Put this in a buffer and | |
16879
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
49 ;; call `mantemp-make-mantemps-buffer' with the point in the buffer. |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
50 ;; You can also use `mantemp-make-mantemps-region' directly on the |
16878 | 51 ;; region if the output is already in Emacs. |
52 ;; | |
53 ;; The resulting buffer yields (connect the three output lines above | |
54 ;; if you want to try): | |
55 ;; | |
56 ;; template operator!=(rb_tree<basic_string<char>, | |
57 ;; pair<basic_string<char> const, AClass *>, | |
58 ;; select1st<pair<basic_string<char> const, AClass *>, | |
59 ;; basic_string<char> >, less<basic_string<char> > >::iterator const | |
60 ;; &, rb_tree<basic_string<char>, pair<basic_string<char> const, | |
61 ;; AClass *>, select1st<pair<basic_string<char> const, AClass *>, | |
62 ;; basic_string<char> >, less<basic_string<char> > >::iterator const | |
63 ;; &); | |
64 ;; template class vector<double>; | |
65 ;; | |
66 ;; which can be included in your C++ program. However, its probably | |
67 ;; better to include the necessary header files in the buffer and | |
68 ;; compile it as a stand alone implementation file. | |
16879
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
69 ;; |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
70 ;; Sometimes, an uninstantiated template may cause a message like the |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
71 ;; following |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
72 ;; |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
73 ;; main.cc:66: invalid use of undefined type |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
74 ;; `struct valarray<double,arrayminusopclass<double,c_array<double> > >' |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
75 ;; |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
76 ;; Follow the same procedure as above and the line is changed to |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
77 ;; |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
78 ;; template struct valarray<double, |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
79 ;; arrayminusopclass<double,c_array<double> > >; |
16878 | 80 |
81 ;; g++ does not output the templates that are needed by the | |
82 ;; uninstantiated templates. Therefore you will often get new error | |
83 ;; messages after the first instantiations have been included and you | |
84 ;; must repeat the operation. | |
85 | |
86 ;;; Code: | |
87 | |
88 (defun mantemp-remove-comments () | |
89 "Remove g++ comments surrounding each function and member function." | |
90 (save-excursion | |
91 (goto-char (point-min)) | |
92 (message "Removing comments") | |
93 (while (re-search-forward "^[A-z\.()+0-9: ]*`\\|'.*$" nil t) | |
94 (replace-match "")))) | |
95 | |
96 (defun mantemp-remove-memfuncs () | |
97 "Remove member function extensions so that only class names remain." | |
98 (save-excursion | |
99 ;; Remove conversion operator extensions. | |
100 (goto-char (point-min)) | |
101 (message "Removing member function extensions") | |
102 (while (re-search-forward | |
103 "^[A-z :&*<>~=,0-9+]*>::operator " nil t nil) | |
104 (progn | |
105 (backward-char 11) | |
77374
74462e953a2c
(mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
106 (delete-region (point) (line-end-position)))) |
16878 | 107 ;; Remove other member function extensions. |
108 (goto-char (point-min)) | |
109 (message "Removing member function extensions") | |
110 (while (re-search-forward "^[A-z :&*<>~=,0-9+]*>::" nil t nil) | |
111 (progn | |
112 (backward-char 2) | |
77374
74462e953a2c
(mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
113 (delete-region (point) (line-end-position)))))) |
16878 | 114 |
115 (defun mantemp-sort-and-unique-lines () | |
116 "Eliminate all consecutive duplicate lines in the buffer." | |
117 (save-excursion | |
118 (message "Sorting") | |
119 (sort-regexp-fields nil "^.*$" "\\&" | |
120 (point-min) | |
121 (point-max)) | |
122 (goto-char (point-min)) | |
123 (message "Removing consecutive duplicate lines") | |
124 (while (re-search-forward "\\(^.+\\)\n\\1" nil t nil) | |
125 (progn | |
126 (forward-line -1) | |
127 (beginning-of-line) | |
77374
74462e953a2c
(mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
128 (delete-region (point) (progn (forward-line 1) (point))))))) |
16878 | 129 |
130 (defun mantemp-insert-cxx-syntax () | |
131 "Insert C++ syntax around each template class and function. | |
132 Insert 'template class' for classes, 'template' for | |
133 functions and add the statement delimiter `;' at the end of | |
134 the lines." | |
135 (save-excursion | |
136 ;; Insert ';' at the end of each nonempty line. | |
137 (goto-char (point-min)) | |
138 (message "Inserting `;' at the ends") | |
139 (while (re-search-forward ".+$" nil t) | |
140 (progn | |
141 (insert ";") | |
142 (if (not (equal (point) (point-max))) | |
143 (forward-char)))) | |
144 ;; We first insert 'template class' at each nonempty line and | |
145 ;; subsequently remove 'class' for functions so we don't need to | |
146 ;; both scan for classes and functions. | |
147 (goto-char (point-min)) | |
148 (message "Inserting 'template class' for classes") | |
149 (while (re-search-forward "^.+" nil t) | |
150 (progn | |
151 (beginning-of-line) | |
16879
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
152 (if (looking-at "struct[\\t ]+\\|class[\\t ]+") |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
153 (insert "template ") |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
154 (insert "template class ")))) |
16878 | 155 (goto-char (point-min)) |
156 (message "Inserting 'template' for functions") | |
157 (while (re-search-forward | |
158 "^template class [A-z :&*<>~=,0-9+!]*(" nil t nil) | |
159 (progn | |
160 (beginning-of-line) | |
161 (forward-word 1) | |
77374
74462e953a2c
(mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
162 (delete-region (point) (progn (forward-word 1) (point))))))) |
16878 | 163 |
164 (defun mantemp-make-mantemps () | |
165 "Gathering interface to the functions modifying the buffer." | |
166 (mantemp-remove-comments) | |
167 (mantemp-remove-memfuncs) | |
168 (mantemp-sort-and-unique-lines) | |
169 (mantemp-insert-cxx-syntax)) | |
170 | |
171 (defun mantemp-make-mantemps-buffer () | |
172 "Make manual template instantiations from g++ error messages in the buffer. | |
173 Scan the output of g++ describing uninstantiated template | |
174 classes and functions and generate the corresponding C++ | |
175 manual template instantiations. The output is supposed to | |
176 have been placed in the current buffer and the current buffer | |
177 should otherwise be empty. | |
178 | |
179 See the commentary in file mantemp.el for an example of use." | |
180 (interactive) | |
181 (mantemp-make-mantemps) | |
16879
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
182 (message "Done")) |
16878 | 183 |
184 (defun mantemp-make-mantemps-region () | |
185 "Make manual template instantiations from g++ error messages in the region. | |
16879
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
186 This function does the same thing as `mantemp-make-mantemps-buffer', |
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
187 but operates on the region." |
16878 | 188 (interactive) |
189 (let ((cur-buf (current-buffer)) | |
77374
74462e953a2c
(mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
190 (mantemp-buffer (generate-new-buffer "*mantemp*")) |
74462e953a2c
(mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
191 (str (buffer-substring (mark) (point)))) |
16878 | 192 ;; Copy the region to a temporary buffer, make the C++ code there |
193 ;; and copy the result back to the current buffer. | |
194 (set-buffer mantemp-buffer) | |
77374
74462e953a2c
(mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
195 (insert str) |
16878 | 196 (mantemp-make-mantemps) |
77374
74462e953a2c
(mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
197 (setq str (buffer-string)) |
16878 | 198 (set-buffer cur-buf) |
77374
74462e953a2c
(mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
199 (insert str) |
16878 | 200 (kill-buffer mantemp-buffer)) |
16879
b020aae1fa01
(mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents:
16878
diff
changeset
|
201 (message "Done")) |
16878 | 202 |
203 (provide 'mantemp) | |
204 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79717
diff
changeset
|
205 ;; arch-tag: 49794712-3b1b-4baa-9785-39556cb52c94 |
16878 | 206 ;;; mantemp.el ends here |