annotate lisp/progmodes/cmacexp.el @ 8543:a03be411d008

(compute_motion): Use WIN's frame, not selected one.
author Richard M. Stallman <rms@gnu.org>
date Sun, 14 Aug 1994 09:15:39 +0000
parents fcddf3261917
children ccfc2ca24a90
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
7298
4fd40bd394fe Update copyright.
Karl Heuer <kwzh@gnu.org>
parents: 7008
diff changeset
3 ;; Copyright (C) 1992, 1994 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>
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
6 ;; Version: $Id: cmacexp.el,v 1.15 1994/08/07 17:23:44 rms Exp rms $
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
7 ;; Adapted-By: ESR
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
8 ;; Keywords: c
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
9
315
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 ;; 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
14 ;; the Free Software Foundation; either version 2, or (at your option)
315
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 ;; any later version.
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 ;; GNU General Public License for more details.
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
56 ;; If you often use a particular set of flags:
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
69 ;; - A lot of user visible changes. See above.
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
87
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
88 (provide 'cmacexp)
315
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
90 (defvar c-macro-shrink-window-flag nil
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
91 "*Non-nil means shrink the *Macroexpansion* window to fit its contents.")
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
92
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
93 (defvar c-macro-prompt-flag nil
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
94 "*Non-nil makes `c-macro-expand' prompt for preprocessor arguments.")
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
95
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
96 (defvar c-macro-preprocessor "/lib/cpp -C"
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
97 "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
98
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
99 If you change this, be sure to preserve the `-C' (don't strip comments)
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
100 option, or to set an equivalent one.")
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
101
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
102 (defvar c-macro-cppflags ""
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
103 "*Preprocessor flags used by `c-macro-expand'.")
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
104
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
105 (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
106
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
107 (defun c-macro-expand (start end subst)
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
108 "Expand C macros in the region, using the C preprocessor.
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
109 Normally display output in temp buffer, but
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
110 prefix arg means replace the region with it.
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
111
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
112 `c-macro-preprocessor' specifies the preprocessor to use.
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
113 Prompt for arguments to the preprocessor \(e.g. `-DDEBUG -I ./include')
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
114 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
115
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
116 Noninteractive args are START, END, SUBST.
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
117 For use inside Lisp programs, see also `c-macro-expansion'."
315
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
119 (interactive "r\nP")
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
120 (let ((inbuf (current-buffer))
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
121 (displaybuf (if subst
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
122 (get-buffer c-macro-buffer-name)
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
123 (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
124 (expansion ""))
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
125 ;; Build the command string.
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
126 (if c-macro-prompt-flag
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
127 (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
128 (read-string "Preprocessor arguments: "
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
129 c-macro-cppflags)))
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
130 ;; 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
131 (if (and subst
5817
6229dd3050be (c-macro-expand): Check inhibit-read-only.
Richard M. Stallman <rms@gnu.org>
parents: 5816
diff changeset
132 (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
133 (not (eq inbuf displaybuf)))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
134 (progn
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
135 (message
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
136 "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
137 (sit-for 2)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
138 (setq subst nil)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
139 (or displaybuf
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
140 (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
141 ;; Expand the macro and output it.
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
142 (setq expansion (c-macro-expansion start end
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
143 (concat c-macro-preprocessor " "
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
144 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
145 (if subst
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
146 (let ((exchange (= (point) start)))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
147 (delete-region start end)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
148 (insert expansion)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
149 (if exchange
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
150 (exchange-point-and-mark)))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
151 (set-buffer displaybuf)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
152 (setq buffer-read-only nil)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
153 (buffer-flush-undo displaybuf)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
154 (erase-buffer)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
155 (insert expansion)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
156 (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
157 (if (string= "" expansion)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
158 (message "Null expansion")
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
159 (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
160 (setq buffer-read-only t)
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
161 (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
162 (bury-buffer displaybuf))))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
163
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
164
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
165 ;; 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
166 ;; enough to contain the entire buffer, or half the size of the
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
167 ;; screen, whichever is smaller. Do not select the new
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
168 ;; window.
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
169 ;;
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
170 ;; 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
171 ;; 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
172 ;; 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
173 ;; 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
174 ;; 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
175 ;; buffer, it is never shrunk, but possibly expanded. Finally, if the
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
176 ;; 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
177 ;; changed.
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
178 (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
179 (goto-char (point-min))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
180 (c-mode)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
181 (let ((oldwinheight (window-height))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
182 (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
183 (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
184 (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
185 (or alreadythere
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
186 (progn
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
187 (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
188 (setq popped (/= oldwinheight (window-height)))))
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
189 (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
190 (or alreadythere popped))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
191 ;; 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
192 (let ((oldwin (selected-window))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
193 (minheight 0)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
194 (maxheight 0))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
195 (save-excursion
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
196 (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
197 (setq minheight (if alreadythere
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
198 (window-height)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
199 window-min-height))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
200 (setq maxheight (/ (screen-height) 2))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
201 (enlarge-window (- (min maxheight
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
202 (max minheight
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
203 (+ 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
204 (window-height)))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
205 (goto-char (point-min))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
206 (select-window oldwin))))))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
207
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
208
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
209 (defun c-macro-expansion (start end cppcommand &optional display)
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
210 "Run a preprocessor on region and return the output as a string.
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
211 Expand the region between START and END in the current buffer using
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
212 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
213 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
214 Optional arg DISPLAY non-nil means show messages in the echo area."
315
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
216 ;; 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
217 ;; 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
218 ;; 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
219 ;; 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
220 ;; 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
221 ;; 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
222 ;; #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
223 ;; 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
224 ;; 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
225 ;; 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
226 ;; buffer.
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
227 (let ((inbuf (current-buffer))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
228 (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
229 (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
230 (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
231 buffer-file-name))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
232 (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
233 (buffer-name)))
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
234 (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
235 c-macro-preprocessor
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
236 (if (string= "" c-macro-cppflags) "" " ")
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
237 c-macro-cppflags))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
238 (uniquestring "???!!!???!!! start of c-macro expansion ???!!!???!!!")
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
239 (startlinenum 0)
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
240 (linenum 0)
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
241 (startstat ())
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
242 (startmarker "")
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
243 (tempname (make-temp-name "/tmp/")))
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
244 (unwind-protect
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
245 (save-excursion
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
246 (save-restriction
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
247 (widen)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
248 (set-buffer outbuf)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
249 (setq buffer-read-only nil)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
250 (erase-buffer)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
251 (set-syntax-table c-mode-syntax-table)
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
252 (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
253
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
254 ;; We have copied inbuf to outbuf. Point is at end of
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
255 ;; outbuf. Insert a space at the end, so cpp can correctly
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
256 ;; parse a token ending at END.
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
257 (insert " ")
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
258
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
259 ;; 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
260 (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
261 (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
262 (if (bolp) 1 0)))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
263
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
264 ;; 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
265 ;; #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
266 ;; 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
267 ;(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
268 (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
269 (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
270 (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
271 nil nil startstat))
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
272 '(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
273 ;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
274 (progn
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
275 (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
276 (setq linenum (+ startlinenum
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
277 (count-lines start (point))))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
278 (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
279 (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
280
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
281 ;; 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
282 ;; 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
283 ;; quote.
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
284 (let* ((startinstring (nth 3 startstat))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
285 (startincomment (nth 4 startstat))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
286 (startafterquote (nth 5 startstat))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
287 (startinbcomment (nth 7 startstat)))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
288 (insert (if startafterquote " " "")
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
289 (cond (startinstring
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
290 (char-to-string startinstring))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
291 (startincomment "*/")
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
292 (""))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
293 (format "\n#line %d \"%s\"\n" startlinenum filename)
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
294 (setq startmarker
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
295 (concat uniquestring
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
296 (cond (startinstring
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
297 (char-to-string startinstring))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
298 (startincomment "/*")
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
299 (startinbcomment "//"))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
300 (if startafterquote "\\")))))
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
301
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
302 ;; Call the preprocessor.
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
303 (if display (message mymsg))
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
304 (setq exit-status
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
305 (call-process-region 1 (point-max) "sh" t t nil "-c"
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
306 (concat cppcommand " 2>" tempname)))
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
307 (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
308 (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
309 ;; 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
310 (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
311 ;; 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
312 ;; 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
313 (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
314 (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
315 (delete-region 1 (point)))
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
316 (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
317 (regexp-quote filename)
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
318 "\"") nil t)
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
319 (beginning-of-line)
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
320 (let ((beg (point)))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
321 (forward-line 1)
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
322 (delete-region beg (point))))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
323
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
324 ;; If CPP got errors, show them at the beginning.
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
325 (or (eq exit-status 0)
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
326 (progn
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
327 (goto-char (point-min))
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
328 (insert (format "Preprocessor terminated with status %s\n"
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
329 exit-status))
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
330 (insert-file-contents tempname)
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
331 (insert "\n")))
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
332 (delete-file tempname)
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
333
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
334 ;; 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
335 ;; 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
336 (buffer-substring 1 (max 1 (- (point-max) 1))))
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 612
diff changeset
337
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
338 ;; Cleanup.
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
339 (kill-buffer outbuf))))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
340
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
341 ;;; cmacexp.el ends here