Mercurial > emacs
annotate lisp/progmodes/cmacexp.el @ 24419:30e478cd167e
(shell-command-default-error-buffer): Renamed from
shell-command-on-region-default-error-buffer.
(shell-command-on-region): Mention in echo area when there
is some error output. Mention success or failure, too.
Accumulate multiple error outputs
going forward, with formfeed in between. Display the error buffer
when we have put something in it.
(shell-command): Add the ERROR-BUFFER argument feature.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 01 Mar 1999 03:19:32 +0000 |
parents | afd304707d2e |
children | c2deb54d4d33 |
rev | line source |
---|---|
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1 ;;; cmacexp.el --- expand C macros in a region |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
2 |
14734 | 3 ;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc. |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
612
diff
changeset
|
4 |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
5 ;; Author: Francesco Potorti` <pot@cnuce.cnr.it> |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
6 ;; Adapted-By: ESR |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
7 ;; Keywords: c |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
8 |
315 | 9 ;; This file is part of GNU Emacs. |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
315 | 14 ;; any later version. |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
315 | 25 |
6979 | 26 ;; USAGE ============================================================= |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1831
diff
changeset
|
27 |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
28 ;; In C mode C-C C-e is bound to c-macro-expand. The result of the |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
29 ;; expansion is put in a separate buffer. A user option allows the |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
30 ;; window displaying the buffer to be optimally sized. |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
31 ;; |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
32 ;; When called with a C-u prefix, c-macro-expand replaces the selected |
6979 | 33 ;; region with the expansion. Both the preprocessor name and the |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
34 ;; initial flag can be set by the user. If c-macro-prompt-flag is set |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
35 ;; to a non-nil value the user is offered to change the options to the |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
36 ;; preprocessor each time c-macro-expand is invoked. Preprocessor |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
37 ;; arguments default to the last ones entered. If c-macro-prompt-flag |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
38 ;; is nil, one must use M-x set-variable to set a different value for |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
39 ;; c-macro-cppflags. |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
40 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
41 ;; A c-macro-expansion function is provided for non-interactive use. |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
42 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
43 ;; INSTALLATION ====================================================== |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
44 |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
45 ;; Put the following in your ~/.emacs file. |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
46 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
47 ;; If you want the *Macroexpansion* window to be not higher than |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
48 ;; necessary: |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
49 ;;(setq c-macro-shrink-window-flag t) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
50 ;; |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
51 ;; If you use a preprocessor other than /lib/cpp (be careful to set a |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
52 ;; -C option or equivalent in order to make the preprocessor not to |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
53 ;; strip the comments): |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
54 ;;(setq c-macro-preprocessor "gpp -C") |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
55 ;; |
6979 | 56 ;; If you often use a particular set of flags: |
57 ;;(setq c-macro-cppflags "-I /usr/include/local -DDEBUG" | |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1831
diff
changeset
|
58 ;; |
6979 | 59 ;; If you want the "Preprocessor arguments: " prompt: |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
60 ;;(setq c-macro-prompt-flag t) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
61 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
62 ;; BUG REPORTS ======================================================= |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
63 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
64 ;; Please report bugs, suggestions, complaints and so on to |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
65 ;; pot@cnuce.cnr.it (Francesco Potorti`). |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
66 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
67 ;; IMPROVEMENTS OVER emacs 18.xx cmacexp.el ========================== |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
68 |
8679
ccfc2ca24a90
* cmacexp.el (c-macro-prompt-flag): set default to t.
Francesco Potortì <pot@gnu.org>
parents:
8537
diff
changeset
|
69 ;; - A lot of user and programmer visible changes. See above. |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
70 ;; - #line directives are inserted, so __LINE__ and __FILE__ are |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
71 ;; correctly expanded. Works even with START inside a string, a |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
72 ;; comment or a region #ifdef'd away by cpp. cpp is invoked with -C, |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
73 ;; making comments visible in the expansion. |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
74 ;; - All work is done in core memory, no need for temporary files. |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
75 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
76 ;; ACKNOWLEDGEMENTS ================================================== |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
77 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
78 ;; A lot of thanks to Don Maszle who did a great work of testing, bug |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
79 ;; reporting and suggestion of new features. This work has been |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
80 ;; partially inspired by Don Maszle and Jonathan Segal's. |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
81 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
82 ;; BUGS ============================================================== |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
83 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
84 ;; If the start point of the region is inside a macro definition the |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
85 ;; macro expansion is often inaccurate. |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1831
diff
changeset
|
86 |
6979 | 87 |
13298 | 88 (require 'cc-mode) |
89 | |
6979 | 90 (provide 'cmacexp) |
315 | 91 |
17436
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
92 (defgroup c-macro nil |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
93 "Expand C macros in a region." |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
94 :group 'c) |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
95 |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
96 |
17436
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
97 (defcustom c-macro-shrink-window-flag nil |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
98 "*Non-nil means shrink the *Macroexpansion* window to fit its contents." |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
99 :type 'boolean |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
100 :group 'c-macro) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
101 |
17436
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
102 (defcustom c-macro-prompt-flag nil |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
103 "*Non-nil makes `c-macro-expand' prompt for preprocessor arguments." |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
104 :type 'boolean |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
105 :group 'c-macro) |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
106 |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
107 (defcustom c-macro-preprocessor |
14408
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
108 ;; Cannot rely on standard directory on MS-DOS to find CPP. |
15353
26a5accd904d
(c-macro-preprocessor): New clause for Solaris.
Richard M. Stallman <rms@gnu.org>
parents:
15268
diff
changeset
|
109 (cond ((eq system-type 'ms-dos) "cpp -C") |
26a5accd904d
(c-macro-preprocessor): New clause for Solaris.
Richard M. Stallman <rms@gnu.org>
parents:
15268
diff
changeset
|
110 ;; Solaris has it in an unusual place. |
26a5accd904d
(c-macro-preprocessor): New clause for Solaris.
Richard M. Stallman <rms@gnu.org>
parents:
15268
diff
changeset
|
111 ((and (string-match "^[^-]*-[^-]*-\\(solaris\\|sunos5\\)" |
26a5accd904d
(c-macro-preprocessor): New clause for Solaris.
Richard M. Stallman <rms@gnu.org>
parents:
15268
diff
changeset
|
112 system-configuration) |
26a5accd904d
(c-macro-preprocessor): New clause for Solaris.
Richard M. Stallman <rms@gnu.org>
parents:
15268
diff
changeset
|
113 (file-exists-p "/opt/SUNWspro/SC3.0.1/bin/acomp")) |
26a5accd904d
(c-macro-preprocessor): New clause for Solaris.
Richard M. Stallman <rms@gnu.org>
parents:
15268
diff
changeset
|
114 "/opt/SUNWspro/SC3.0.1/bin/acomp -C -E") |
26a5accd904d
(c-macro-preprocessor): New clause for Solaris.
Richard M. Stallman <rms@gnu.org>
parents:
15268
diff
changeset
|
115 (t "/lib/cpp -C")) |
6981 | 116 "The preprocessor used by the cmacexp package. |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
117 |
8476 | 118 If you change this, be sure to preserve the `-C' (don't strip comments) |
17436
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
119 option, or to set an equivalent one." |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
120 :type 'string |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
121 :group 'c-macro) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
122 |
17436
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
123 (defcustom c-macro-cppflags "" |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
124 "*Preprocessor flags used by `c-macro-expand'." |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
125 :type 'string |
2a9fdbfcb993
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
15353
diff
changeset
|
126 :group 'c-macro) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
127 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
128 (defconst c-macro-buffer-name "*Macroexpansion*") |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
129 |
19529
5ccd55d16f8c
(c-macro-expand): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
18402
diff
changeset
|
130 ;;;###autoload |
6981 | 131 (defun c-macro-expand (start end subst) |
132 "Expand C macros in the region, using the C preprocessor. | |
133 Normally display output in temp buffer, but | |
134 prefix arg means replace the region with it. | |
135 | |
136 `c-macro-preprocessor' specifies the preprocessor to use. | |
137 Prompt for arguments to the preprocessor \(e.g. `-DDEBUG -I ./include') | |
138 if the user option `c-macro-prompt-flag' is non-nil. | |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
139 |
6979 | 140 Noninteractive args are START, END, SUBST. |
6981 | 141 For use inside Lisp programs, see also `c-macro-expansion'." |
315 | 142 |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
143 (interactive "r\nP") |
6979 | 144 (let ((inbuf (current-buffer)) |
145 (displaybuf (if subst | |
146 (get-buffer c-macro-buffer-name) | |
147 (get-buffer-create c-macro-buffer-name))) | |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
148 (expansion "")) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
149 ;; Build the command string. |
6981 | 150 (if c-macro-prompt-flag |
6979 | 151 (setq c-macro-cppflags |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
152 (read-string "Preprocessor arguments: " |
6979 | 153 c-macro-cppflags))) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
154 ;; Decide where to display output. |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
155 (if (and subst |
5817
6229dd3050be
(c-macro-expand): Check inhibit-read-only.
Richard M. Stallman <rms@gnu.org>
parents:
5816
diff
changeset
|
156 (and buffer-read-only (not inhibit-read-only)) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
157 (not (eq inbuf displaybuf))) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
158 (progn |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
159 (message |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
160 "Buffer is read only: displaying expansion in alternate window") |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
161 (sit-for 2) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
162 (setq subst nil) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
163 (or displaybuf |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
164 (setq displaybuf (get-buffer-create c-macro-buffer-name))))) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
165 ;; Expand the macro and output it. |
6979 | 166 (setq expansion (c-macro-expansion start end |
167 (concat c-macro-preprocessor " " | |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
168 c-macro-cppflags) t)) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
169 (if subst |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
170 (let ((exchange (= (point) start))) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
171 (delete-region start end) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
172 (insert expansion) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
173 (if exchange |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
174 (exchange-point-and-mark))) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
175 (set-buffer displaybuf) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
176 (setq buffer-read-only nil) |
8679
ccfc2ca24a90
* cmacexp.el (c-macro-prompt-flag): set default to t.
Francesco Potortì <pot@gnu.org>
parents:
8537
diff
changeset
|
177 (buffer-disable-undo displaybuf) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
178 (erase-buffer) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
179 (insert expansion) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
180 (set-buffer-modified-p nil) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
181 (if (string= "" expansion) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
182 (message "Null expansion") |
6979 | 183 (c-macro-display-buffer)) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
184 (setq buffer-read-only t) |
6979 | 185 (setq buffer-auto-save-file-name nil) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
186 (bury-buffer displaybuf)))) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
187 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
188 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
189 ;; Display the current buffer in a window which is either just large |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
190 ;; enough to contain the entire buffer, or half the size of the |
6979 | 191 ;; screen, whichever is smaller. Do not select the new |
192 ;; window. | |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
193 ;; |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
194 ;; Several factors influence window resizing so that the window is |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
195 ;; sized optimally if it is created anew, and so that it is messed |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
196 ;; with minimally if it has been created by the user. If the window |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
197 ;; chosen for display exists already but contains something else, the |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
198 ;; window is not re-sized. If the window already contains the current |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
199 ;; buffer, it is never shrunk, but possibly expanded. Finally, if the |
6981 | 200 ;; variable c-macro-shrink-window-flag is nil the window size is *never* |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
201 ;; changed. |
6979 | 202 (defun c-macro-display-buffer () |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
203 (goto-char (point-min)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
204 (c-mode) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
205 (let ((oldwinheight (window-height)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
206 (alreadythere ;the window was already there |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
207 (get-buffer-window (current-buffer))) |
6086
fc2dc869f5d4
(c-macro-display-buffer): Delete special view-mode hack.
Richard M. Stallman <rms@gnu.org>
parents:
5817
diff
changeset
|
208 (popped nil)) ;the window popped changing the layout |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
209 (or alreadythere |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
210 (progn |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
211 (display-buffer (current-buffer) t) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
212 (setq popped (/= oldwinheight (window-height))))) |
6981 | 213 (if (and c-macro-shrink-window-flag ;user wants fancy shrinking :\) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
214 (or alreadythere popped)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
215 ;; Enlarge up to half screen, or shrink properly. |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
216 (let ((oldwin (selected-window)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
217 (minheight 0) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
218 (maxheight 0)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
219 (save-excursion |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
220 (select-window (get-buffer-window (current-buffer))) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
221 (setq minheight (if alreadythere |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
222 (window-height) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
223 window-min-height)) |
15268
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
224 (setq maxheight (/ (frame-height) 2)) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
225 (enlarge-window (- (min maxheight |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
226 (max minheight |
6979 | 227 (+ 2 (vertical-motion (point-max))))) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
228 (window-height))) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
229 (goto-char (point-min)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
230 (select-window oldwin)))))) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
231 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
232 |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
233 (defun c-macro-expansion (start end cppcommand &optional display) |
6981 | 234 "Run a preprocessor on region and return the output as a string. |
6979 | 235 Expand the region between START and END in the current buffer using |
236 the shell command CPPCOMMAND (e.g. \"/lib/cpp -C -DDEBUG\"). | |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
237 Be sure to use a -C (don't strip comments) or equivalent option. |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
238 Optional arg DISPLAY non-nil means show messages in the echo area." |
315 | 239 |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
240 ;; Copy the current buffer's contents to a temporary hidden buffer. |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
241 ;; Delete from END to end of buffer. Insert a preprocessor #line |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
242 ;; directive at START and after each #endif following START that are |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
243 ;; not inside a comment or a string. Put all the strings thus |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
244 ;; inserted (without the "line" substring) in a list named linelist. |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
245 ;; If START is inside a comment, prepend "*/" and append "/*" to the |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
246 ;; #line directive. If inside a string, prepend and append "\"". |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
247 ;; Preprocess the buffer contents, then look for all the lines stored |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
248 ;; in linelist starting from end of buffer. The last line so found is |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
249 ;; where START was, so return the substring from point to end of |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
250 ;; buffer. |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
251 (let ((inbuf (current-buffer)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
252 (outbuf (get-buffer-create " *C Macro Expansion*")) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
253 (filename (if (and buffer-file-name |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
254 (string-match (regexp-quote default-directory) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
255 buffer-file-name)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
256 (substring buffer-file-name (match-end 0)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
257 (buffer-name))) |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
258 (mymsg (format "Invoking %s%s%s on region..." |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
259 c-macro-preprocessor |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
260 (if (string= "" c-macro-cppflags) "" " ") |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
261 c-macro-cppflags)) |
15268
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
262 (uniquestring "??? !!! ??? start of c-macro expansion ??? !!! ???") |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
263 (startlinenum 0) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
264 (linenum 0) |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
265 (startstat ()) |
8476 | 266 (startmarker "") |
8679
ccfc2ca24a90
* cmacexp.el (c-macro-prompt-flag): set default to t.
Francesco Potortì <pot@gnu.org>
parents:
8537
diff
changeset
|
267 (exit-status 0) |
22101 | 268 (tempname (make-temp-name |
269 (expand-file-name "cmacexp" | |
270 temporary-file-directory)))) | |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
271 (unwind-protect |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
272 (save-excursion |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
273 (save-restriction |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
274 (widen) |
15268
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
275 (let ((in-syntax-table (syntax-table))) |
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
276 (set-buffer outbuf) |
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
277 (setq buffer-read-only nil) |
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
278 (erase-buffer) |
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
279 (set-syntax-table in-syntax-table)) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
280 (insert-buffer-substring inbuf 1 end)) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
281 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
282 ;; We have copied inbuf to outbuf. Point is at end of |
15268
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
283 ;; outbuf. Inset a newline at the end, so cpp can correctly |
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
284 ;; parse a token ending at END. |
18af2c80d4a1
(c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents:
15267
diff
changeset
|
285 (insert "\n") |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
286 |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
287 ;; Save sexp status and line number at START. |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
288 (setq startstat (parse-partial-sexp 1 start)) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
289 (setq startlinenum (+ (count-lines 1 (point)) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
290 (if (bolp) 1 0))) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
291 |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
292 ;; Now we insert the #line directives after all #endif or |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
293 ;; #else following START going backward, so the lines we |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
294 ;; insert don't change the line numbers. |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
295 ;(switch-to-buffer outbuf) (debug) ;debugging instructions |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
296 (goto-char (point-max)) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
297 (while (re-search-backward "\n#\\(endif\\|else\\)\\>" start 'move) |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
298 (if (equal (nthcdr 3 (parse-partial-sexp start (point) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
299 nil nil startstat)) |
6981 | 300 '(nil nil nil 0 nil)) ;neither in string nor in |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
301 ;comment nor after quote |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
302 (progn |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
303 (goto-char (match-end 0)) |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
304 (setq linenum (+ startlinenum |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
305 (count-lines start (point)))) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
306 (insert (format "\n#line %d \"%s\"\n" linenum filename)) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
307 (goto-char (match-beginning 0))))) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
308 |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
309 ;; Now we are at START. Insert the first #line directive. |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
310 ;; This must work even inside a string or comment, or after a |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
311 ;; quote. |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
312 (let* ((startinstring (nth 3 startstat)) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
313 (startincomment (nth 4 startstat)) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
314 (startafterquote (nth 5 startstat)) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
315 (startinbcomment (nth 7 startstat))) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
316 (insert (if startafterquote " " "") |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
317 (cond (startinstring |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
318 (char-to-string startinstring)) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
319 (startincomment "*/") |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
320 ("")) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
321 (setq startmarker |
10931
933a04abe0ac
* cmacexp.el (c-macro-expansion): put the unique string before the
Francesco Potortì <pot@gnu.org>
parents:
8705
diff
changeset
|
322 (concat "\n" uniquestring |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
323 (cond (startinstring |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
324 (char-to-string startinstring)) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
325 (startincomment "/*") |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
326 (startinbcomment "//")) |
10931
933a04abe0ac
* cmacexp.el (c-macro-expansion): put the unique string before the
Francesco Potortì <pot@gnu.org>
parents:
8705
diff
changeset
|
327 (if startafterquote "\\"))) |
933a04abe0ac
* cmacexp.el (c-macro-expansion): put the unique string before the
Francesco Potortì <pot@gnu.org>
parents:
8705
diff
changeset
|
328 (format "\n#line %d \"%s\"\n" startlinenum filename))) |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
329 |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
330 ;; Call the preprocessor. |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
331 (if display (message mymsg)) |
8476 | 332 (setq exit-status |
14408
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
333 (call-process-region 1 (point-max) |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
334 shell-file-name |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
335 t (list t tempname) nil "-c" |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
336 cppcommand)) |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
337 (if display (message (concat mymsg "done"))) |
8537
fcddf3261917
(c-macro-expansion): If the CPP output is empty, just show error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8476
diff
changeset
|
338 (if (= (buffer-size) 0) |
fcddf3261917
(c-macro-expansion): If the CPP output is empty, just show error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8476
diff
changeset
|
339 ;; Empty output is normal after a fatal error. |
fcddf3261917
(c-macro-expansion): If the CPP output is empty, just show error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8476
diff
changeset
|
340 (insert "\nPreprocessor produced no output\n") |
fcddf3261917
(c-macro-expansion): If the CPP output is empty, just show error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8476
diff
changeset
|
341 ;; Find and delete the mark of the start of the expansion. |
fcddf3261917
(c-macro-expansion): If the CPP output is empty, just show error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8476
diff
changeset
|
342 ;; Look for `# nn "file.c"' lines and delete them. |
fcddf3261917
(c-macro-expansion): If the CPP output is empty, just show error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8476
diff
changeset
|
343 (goto-char (point-min)) |
fcddf3261917
(c-macro-expansion): If the CPP output is empty, just show error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8476
diff
changeset
|
344 (search-forward startmarker) |
fcddf3261917
(c-macro-expansion): If the CPP output is empty, just show error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8476
diff
changeset
|
345 (delete-region 1 (point))) |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
346 (while (re-search-forward (concat "^# [0-9]+ \"" |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
347 (regexp-quote filename) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
348 "\"") nil t) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
349 (beginning-of-line) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
350 (let ((beg (point))) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
351 (forward-line 1) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
352 (delete-region beg (point)))) |
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
353 |
8476 | 354 ;; If CPP got errors, show them at the beginning. |
14408
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
355 ;; MS-DOS shells don't return the exit code of their children. |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
356 ;; Look at the size of the error message file instead, but |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
357 ;; don't punish those MS-DOS users who have a shell that does |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
358 ;; return an error code. |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
359 (or (and (or (not (boundp 'msdos-shells)) |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
360 (not (member (file-name-nondirectory shell-file-name) |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
361 msdos-shells))) |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
362 (eq exit-status 0)) |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
363 (zerop (nth 7 (file-attributes (expand-file-name tempname)))) |
8476 | 364 (progn |
365 (goto-char (point-min)) | |
14408
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
366 ;; Put the messages inside a comment, so they won't get in |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
367 ;; the way of font-lock, highlighting etc. |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
368 (insert |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
369 (format "/* Preprocessor terminated with status %s\n\n Messages from `%s\':\n\n" |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
370 exit-status cppcommand)) |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
371 (goto-char (+ (point) |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
372 (nth 1 (insert-file-contents tempname)))) |
9defc34879ad
(c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
373 (insert "\n\n*/\n"))) |
8476 | 374 (delete-file tempname) |
375 | |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
376 ;; Compute the return value, keeping in account the space |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
377 ;; inserted at the end of the buffer. |
7008
fd080d04dfe2
(c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents:
6981
diff
changeset
|
378 (buffer-substring 1 (max 1 (- (point-max) 1)))) |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
612
diff
changeset
|
379 |
5816
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
380 ;; Cleanup. |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
381 (kill-buffer outbuf)))) |
c381f562cffc
Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
382 |
6979 | 383 ;;; cmacexp.el ends here |