annotate lisp/progmodes/mantemp.el @ 84672:00edb5227c5d

Revert previous change.
author Glenn Morris <rgm@gnu.org>
date Thu, 20 Sep 2007 02:57:57 +0000
parents c1ec1c8a8d2e
children a1342e6e097a f55f9811f5d7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 68773
diff changeset
3 ;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, 2006, 2007
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
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Author: Tom Houlder <thoulder@icor.fr>
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Created: 10 Dec 1996
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; Keywords: g++, templates
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published
78234
c1ec1c8a8d2e Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 77374
diff changeset
14 ;; by the Free Software Foundation; either version 3, or (at your
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; option) any later version.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful, but
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; General Public License for more details.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
25 ;; Boston, MA 02110-1301, USA.
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;;; Commentary:
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;; The following is a typical error message from g++ using STL (here
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 ;; with split lines):
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 ;;
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ;; AFile.o(.text+0x2d5): undefined reference to
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;; `vector<double>::begin(void)'
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 ;; AFile.o(.text+0x2e7): undefined reference to
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;; `vector<double>::insert(double *, unsigned int, double const &)'
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;; AnotherFile.o(.text+0x226b8): undefined reference to
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;; `operator!=(rb_tree<basic_string<char>, pair<basic_string<char>
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 ;; const, AClass *>, select1st<pair<basic_string<char> const, AClass
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;; *>, basic_string<char> >, less<basic_string<char> > >::iterator
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;; const &, rb_tree<basic_string<char>, pair<basic_string<char>
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;; const, AClass *>, select1st<pair<basic_string<char> const, AClass
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 ;; *>, basic_string<char> >, less<basic_string<char> > >::iterator
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ;; const &)'
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 ;;
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 ;; The message means that in the object file AFile.o there is one
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;; uninstantiated template class, vector<double>, and in AnotherFile.o
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;; there is one uninstantiated template function, operator!=(...). To
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 ;; turn this output into manual template instantiations, copy from the
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 ;; first name of an objective file (here this is AFile.o) to right
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 ;; 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
51 ;; 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
52 ;; You can also use `mantemp-make-mantemps-region' directly on the
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 ;; region if the output is already in Emacs.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 ;;
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 ;; The resulting buffer yields (connect the three output lines above
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 ;; if you want to try):
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 ;;
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 ;; template operator!=(rb_tree<basic_string<char>,
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 ;; pair<basic_string<char> const, AClass *>,
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 ;; select1st<pair<basic_string<char> const, AClass *>,
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 ;; basic_string<char> >, less<basic_string<char> > >::iterator const
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 ;; &, rb_tree<basic_string<char>, pair<basic_string<char> const,
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 ;; AClass *>, select1st<pair<basic_string<char> const, AClass *>,
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 ;; basic_string<char> >, less<basic_string<char> > >::iterator const
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 ;; &);
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; template class vector<double>;
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 ;;
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 ;; which can be included in your C++ program. However, its probably
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 ;; better to include the necessary header files in the buffer and
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 ;; 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
71 ;;
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
72 ;; 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
73 ;; following
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
74 ;;
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
75 ;; 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
76 ;; `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
77 ;;
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
78 ;; 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
79 ;;
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
80 ;; template struct valarray<double,
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
81 ;; arrayminusopclass<double,c_array<double> > >;
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 ;; g++ does not output the templates that are needed by the
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 ;; uninstantiated templates. Therefore you will often get new error
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 ;; messages after the first instantiations have been included and you
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 ;; must repeat the operation.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 ;;; Code:
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 (defun mantemp-remove-comments ()
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 "Remove g++ comments surrounding each function and member function."
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 (save-excursion
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 (goto-char (point-min))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 (message "Removing comments")
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 (while (re-search-forward "^[A-z\.()+0-9: ]*`\\|'.*$" nil t)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 (replace-match ""))))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 (defun mantemp-remove-memfuncs ()
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 "Remove member function extensions so that only class names remain."
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 (save-excursion
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 ;; Remove conversion operator extensions.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 (goto-char (point-min))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 (message "Removing member function extensions")
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 (while (re-search-forward
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 "^[A-z :&*<>~=,0-9+]*>::operator " nil t nil)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 (progn
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 (backward-char 11)
77374
74462e953a2c (mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
108 (delete-region (point) (line-end-position))))
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 ;; Remove other member function extensions.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 (goto-char (point-min))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 (message "Removing member function extensions")
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 (while (re-search-forward "^[A-z :&*<>~=,0-9+]*>::" nil t nil)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 (progn
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 (backward-char 2)
77374
74462e953a2c (mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
115 (delete-region (point) (line-end-position))))))
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 (defun mantemp-sort-and-unique-lines ()
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 "Eliminate all consecutive duplicate lines in the buffer."
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 (save-excursion
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 (message "Sorting")
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 (sort-regexp-fields nil "^.*$" "\\&"
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 (point-min)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 (point-max))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 (goto-char (point-min))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 (message "Removing consecutive duplicate lines")
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 (while (re-search-forward "\\(^.+\\)\n\\1" nil t nil)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 (progn
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (forward-line -1)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 (beginning-of-line)
77374
74462e953a2c (mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
130 (delete-region (point) (progn (forward-line 1) (point)))))))
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 (defun mantemp-insert-cxx-syntax ()
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 "Insert C++ syntax around each template class and function.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 Insert 'template class' for classes, 'template' for
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 functions and add the statement delimiter `;' at the end of
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 the lines."
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 (save-excursion
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 ;; Insert ';' at the end of each nonempty line.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 (goto-char (point-min))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 (message "Inserting `;' at the ends")
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 (while (re-search-forward ".+$" nil t)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 (progn
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 (insert ";")
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 (if (not (equal (point) (point-max)))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 (forward-char))))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 ;; We first insert 'template class' at each nonempty line and
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 ;; subsequently remove 'class' for functions so we don't need to
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 ;; both scan for classes and functions.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 (goto-char (point-min))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 (message "Inserting 'template class' for classes")
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 (while (re-search-forward "^.+" nil t)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 (progn
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 (beginning-of-line)
16879
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
154 (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
155 (insert "template ")
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
156 (insert "template class "))))
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 (goto-char (point-min))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 (message "Inserting 'template' for functions")
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 (while (re-search-forward
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 "^template class [A-z :&*<>~=,0-9+!]*(" nil t nil)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 (progn
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 (beginning-of-line)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 (forward-word 1)
77374
74462e953a2c (mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
164 (delete-region (point) (progn (forward-word 1) (point)))))))
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 (defun mantemp-make-mantemps ()
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 "Gathering interface to the functions modifying the buffer."
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 (mantemp-remove-comments)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 (mantemp-remove-memfuncs)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 (mantemp-sort-and-unique-lines)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 (mantemp-insert-cxx-syntax))
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 (defun mantemp-make-mantemps-buffer ()
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 "Make manual template instantiations from g++ error messages in the buffer.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 Scan the output of g++ describing uninstantiated template
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 classes and functions and generate the corresponding C++
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 manual template instantiations. The output is supposed to
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 have been placed in the current buffer and the current buffer
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 should otherwise be empty.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 See the commentary in file mantemp.el for an example of use."
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 (interactive)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 (mantemp-make-mantemps)
16879
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
184 (message "Done"))
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 (defun mantemp-make-mantemps-region ()
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 "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
188 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
189 but operates on the region."
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 (interactive)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 (let ((cur-buf (current-buffer))
77374
74462e953a2c (mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
192 (mantemp-buffer (generate-new-buffer "*mantemp*"))
74462e953a2c (mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
193 (str (buffer-substring (mark) (point))))
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 ;; Copy the region to a temporary buffer, make the C++ code there
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 ;; and copy the result back to the current buffer.
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196 (set-buffer mantemp-buffer)
77374
74462e953a2c (mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
197 (insert str)
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 (mantemp-make-mantemps)
77374
74462e953a2c (mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
199 (setq str (buffer-string))
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 (set-buffer cur-buf)
77374
74462e953a2c (mantemp-make-mantemps-region)
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
201 (insert str)
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 (kill-buffer mantemp-buffer))
16879
b020aae1fa01 (mantemp-insert-cxx-syntax): Recognize non-class templates.
Richard M. Stallman <rms@gnu.org>
parents: 16878
diff changeset
203 (message "Done"))
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 (provide 'mantemp)
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 38436
diff changeset
207 ;;; arch-tag: 49794712-3b1b-4baa-9785-39556cb52c94
16878
ffc3290d43bf Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 ;;; mantemp.el ends here