Initial revision

1 files changed, 193 insertions, 0 deletions

diff --git a/lisp/progmodes/mantemp.el b/lisp/progmodes/mantemp.el
new file mode 100644
index 00000000000..16fc9b14e76
--- /dev/null
+++ b/lisp/progmodes/mantemp.el
@@ -0,0 +1,193 @@
+;;; mantemp.el --- Create manual template instantiations from g++ 2.7.2 output.
+
+;; Copyright (C) 1996 Free Software Foundation, Inc.
+
+;; Author: Tom Houlder <thoulder@icor.fr>
+;; Created: 10 Dec 1996
+;; Keywords: g++, templates
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation; either version 2, or (at your
+;; option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; The following is a typical error message from g++ using STL (here
+;; with split lines):
+;;
+;; AFile.o(.text+0x2d5): undefined reference to
+;;   `vector<double>::begin(void)'
+;; AFile.o(.text+0x2e7): undefined reference to
+;;   `vector<double>::insert(double *, unsigned int, double const &)'
+;; AnotherFile.o(.text+0x226b8): undefined reference to
+;;   `operator!=(rb_tree<basic_string<char>, pair<basic_string<char>
+;;   const, AClass *>, select1st<pair<basic_string<char> const, AClass
+;;   *>, basic_string<char> >, less<basic_string<char> > >::iterator
+;;   const &, rb_tree<basic_string<char>, pair<basic_string<char>
+;;   const, AClass *>, select1st<pair<basic_string<char> const, AClass
+;;   *>, basic_string<char> >, less<basic_string<char> > >::iterator
+;;   const &)'
+;;
+;; The message means that in the object file AFile.o there is one
+;; uninstantiated template class, vector<double>, and in AnotherFile.o
+;; there is one uninstantiated template function, operator!=(...).  To
+;; turn this output into manual template instantiations, copy from the
+;; first name of an objective file (here this is AFile.o) to right
+;; after the very last `'' of the output.  Put this in a buffer and
+;; call mantemp-make-mantemps-buffer with the point in the buffer.
+;; You can also use mantemp-make-mantemps-region directly on the
+;; region if the output is already in Emacs.
+;;
+;; The resulting buffer yields (connect the three output lines above
+;; if you want to try):
+;;
+;; template operator!=(rb_tree<basic_string<char>,
+;;   pair<basic_string<char> const, AClass *>,
+;;   select1st<pair<basic_string<char> const, AClass *>,
+;;   basic_string<char> >, less<basic_string<char> > >::iterator const
+;;   &, rb_tree<basic_string<char>, pair<basic_string<char> const,
+;;   AClass *>, select1st<pair<basic_string<char> const, AClass *>,
+;;   basic_string<char> >, less<basic_string<char> > >::iterator const
+;;   &);
+;; template class vector<double>;
+;;
+;; which can be included in your C++ program.  However, its probably
+;; better to include the necessary header files in the buffer and
+;; compile it as a stand alone implementation file.
+
+;; g++ does not output the templates that are needed by the
+;; uninstantiated templates.  Therefore you will often get new error
+;; messages after the first instantiations have been included and you
+;; must repeat the operation.
+
+;;; Code:
+
+(defun mantemp-remove-comments ()
+  "Remove g++ comments surrounding each function and member function."
+  (save-excursion
+    (goto-char (point-min))
+    (message "Removing comments")
+    (while (re-search-forward "^[A-z\.()+0-9: ]*`\\|'.*$" nil t)
+      (replace-match ""))))
+
+(defun mantemp-remove-memfuncs ()
+  "Remove member function extensions so that only class names remain."
+  (save-excursion
+    ;; Remove conversion operator extensions.
+    (goto-char (point-min))
+    (message "Removing member function extensions")
+    (while (re-search-forward
+            "^[A-z :&*<>~=,0-9+]*>::operator " nil t nil)
+      (progn
+        (backward-char 11)
+        (kill-line)))
+    ;; Remove other member function extensions.
+    (goto-char (point-min))
+    (message "Removing member function extensions")
+    (while (re-search-forward "^[A-z :&*<>~=,0-9+]*>::" nil t nil)
+      (progn
+        (backward-char 2)
+        (kill-line)))))
+
+(defun mantemp-sort-and-unique-lines ()
+  "Eliminate all consecutive duplicate lines in the buffer."
+  (save-excursion
+    (message "Sorting")
+    (sort-regexp-fields nil "^.*$" "\\&"
+                        (point-min)
+                        (point-max))
+    (goto-char (point-min))
+    (message "Removing consecutive duplicate lines")
+    (while (re-search-forward "\\(^.+\\)\n\\1" nil t nil)
+      (progn
+        (forward-line -1)
+        (beginning-of-line)
+        (kill-line 1)))))
+
+(defun mantemp-insert-cxx-syntax ()
+  "Insert C++ syntax around each template class and function.
+Insert 'template class' for classes, 'template' for
+functions and add the statement delimiter `;' at the end of
+the lines."
+  (save-excursion
+    ;; Insert ';' at the end of each nonempty line.
+    (goto-char (point-min))
+    (message "Inserting `;' at the ends")
+    (while (re-search-forward ".+$" nil t)
+      (progn
+        (insert ";")
+        (if (not (equal (point) (point-max)))
+            (forward-char))))
+    ;; We first insert 'template class' at each nonempty line and
+    ;; subsequently remove 'class' for functions so we don't need to
+    ;; both scan for classes and functions.
+    (goto-char (point-min))
+    (message "Inserting 'template class' for classes")
+    (while (re-search-forward "^.+" nil t)
+      (progn
+        (beginning-of-line)
+        (insert "template class ")))
+    (goto-char (point-min))
+    (message "Inserting 'template' for functions")
+    (while (re-search-forward
+            "^template class [A-z :&*<>~=,0-9+!]*(" nil t nil)
+      (progn
+        (beginning-of-line)
+        (forward-word 1)
+        (kill-word 1)))))
+
+(defun mantemp-make-mantemps ()
+  "Gathering interface to the functions modifying the buffer."
+  (mantemp-remove-comments)
+  (mantemp-remove-memfuncs)
+  (mantemp-sort-and-unique-lines)
+  (mantemp-insert-cxx-syntax))
+
+(defun mantemp-make-mantemps-buffer ()
+  "Make manual template instantiations from g++ error messages in the buffer.
+Scan the output of g++ describing uninstantiated template
+classes and functions and generate the corresponding C++
+manual template instantiations.  The output is supposed to
+have been placed in the current buffer and the current buffer
+should otherwise be empty.
+
+See the commentary in file mantemp.el for an example of use."
+  (interactive)
+  (mantemp-make-mantemps)
+  (message "mantemp-make-mantemps-buffer is done"))
+
+(defun mantemp-make-mantemps-region ()
+  "Make manual template instantiations from g++ error messages in the region.
+This function does the same as
+'mantemp-make-mantemps-buffer' but operates on the region."
+  (interactive)
+  (let ((cur-buf (current-buffer))
+        (mantemp-buffer (generate-new-buffer "*mantemp*")))
+    ;; Copy the region to a temporary buffer, make the C++ code there
+    ;; and copy the result back to the current buffer.
+    (kill-region (mark) (point))
+    (set-buffer mantemp-buffer)
+    (yank)
+    (mantemp-make-mantemps)
+    (kill-region (point-min) (point-max))
+    (set-buffer cur-buf)
+    (yank)
+    (kill-buffer mantemp-buffer))
+  (message "mantemp-make-mantemps-region is done"))
+
+(provide 'mantemp)
+
+;;; mantemp.el ends here