annotate lisp/progmodes/cmacexp.el @ 17898:d690264cd13a

(shortlisp): Add custom.elc and cus-start.elc.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 May 1997 18:26:49 +0000
parents 2a9fdbfcb993
children 3718b01db9d0
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
14734
20f4c4a078b2 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14408
diff changeset
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>
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
6 ;; Version: $Id: cmacexp.el,v 1.26 1996/06/07 22:59:27 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
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13298
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13298
diff changeset
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13298
diff changeset
25 ;; Boston, MA 02111-1307, USA.
315
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
27 ;; USAGE =============================================================
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1831
diff changeset
28
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
29 ;; 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
30 ;; 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
31 ;; 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
32 ;;
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
33 ;; 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
34 ;; 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
35 ;; 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
36 ;; 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
37 ;; 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
38 ;; 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
39 ;; 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
40 ;; c-macro-cppflags.
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
41
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
42 ;; 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
43
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
44 ;; INSTALLATION ======================================================
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
45
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
46 ;; 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
47
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
48 ;; 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
49 ;; necessary:
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
50 ;;(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
51 ;;
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
52 ;; 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
53 ;; -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
54 ;; strip the comments):
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
55 ;;(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
56 ;;
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
57 ;; If you often use a particular set of flags:
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
58 ;;(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
59 ;;
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
60 ;; 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
61 ;;(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
62
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
63 ;; BUG REPORTS =======================================================
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
64
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
65 ;; 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
66 ;; 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
67
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
68 ;; 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
69
8679
ccfc2ca24a90 * cmacexp.el (c-macro-prompt-flag): set default to t.
Francesco Potortì <pot@gnu.org>
parents: 8537
diff changeset
70 ;; - 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
71 ;; - #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
72 ;; 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
73 ;; 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
74 ;; 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
75 ;; - 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
76
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
77 ;; ACKNOWLEDGEMENTS ==================================================
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
78
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
79 ;; 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
80 ;; 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
81 ;; 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
82
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
83 ;; BUGS ==============================================================
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
84
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
85 ;; 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
86 ;; macro expansion is often inaccurate.
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1831
diff changeset
87
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
88
13298
945fd19491bc Require cc-mode.
Richard M. Stallman <rms@gnu.org>
parents: 10931
diff changeset
89 (require 'cc-mode)
945fd19491bc Require cc-mode.
Richard M. Stallman <rms@gnu.org>
parents: 10931
diff changeset
90
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
91 (provide 'cmacexp)
315
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
93 (defgroup c-macro nil
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
94 "Expand C macros in a region."
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
95 :group 'c)
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
96
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
97
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
98 (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
99 "*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
100 :type 'boolean
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
101 :group 'c-macro)
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
102
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
103 (defcustom c-macro-prompt-flag nil
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
104 "*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
105 :type 'boolean
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
106 :group 'c-macro)
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
107
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
108 (defcustom c-macro-preprocessor
14408
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
109 ;; 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
110 (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
111 ;; 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
112 ((and (string-match "^[^-]*-[^-]*-\\(solaris\\|sunos5\\)"
26a5accd904d (c-macro-preprocessor): New clause for Solaris.
Richard M. Stallman <rms@gnu.org>
parents: 15268
diff changeset
113 system-configuration)
26a5accd904d (c-macro-preprocessor): New clause for Solaris.
Richard M. Stallman <rms@gnu.org>
parents: 15268
diff changeset
114 (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
115 "/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
116 (t "/lib/cpp -C"))
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
117 "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
118
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
119 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
120 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
121 :type 'string
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
122 :group 'c-macro)
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
123
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
124 (defcustom c-macro-cppflags ""
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
125 "*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
126 :type 'string
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 15353
diff changeset
127 :group 'c-macro)
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
128
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
129 (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
130
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
131 (defun c-macro-expand (start end subst)
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
132 "Expand C macros in the region, using the C preprocessor.
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
133 Normally display output in temp buffer, but
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
134 prefix arg means replace the region with it.
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
135
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
136 `c-macro-preprocessor' specifies the preprocessor to use.
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
137 Prompt for arguments to the preprocessor \(e.g. `-DDEBUG -I ./include')
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
140 Noninteractive args are START, END, SUBST.
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
141 For use inside Lisp programs, see also `c-macro-expansion'."
315
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
144 (let ((inbuf (current-buffer))
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
145 (displaybuf (if subst
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
146 (get-buffer c-macro-buffer-name)
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
150 (if c-macro-prompt-flag
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
166 (setq expansion (c-macro-expansion start end
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
191 ;; screen, whichever is smaller. Do not select the new
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
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
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
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
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
234 "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
235 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
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
faf70884106b Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
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)
15267
27804f629145 (c-macro-expansion): Correct bug in creating tempname.
Karl Heuer <kwzh@gnu.org>
parents: 14734
diff changeset
268 (tempname (make-temp-name (concat
27804f629145 (c-macro-expansion): Correct bug in creating tempname.
Karl Heuer <kwzh@gnu.org>
parents: 14734
diff changeset
269 (or (getenv "TMPDIR") (getenv "TEMP")
27804f629145 (c-macro-expansion): Correct bug in creating tempname.
Karl Heuer <kwzh@gnu.org>
parents: 14734
diff changeset
270 (getenv "TMP") "/tmp")
27804f629145 (c-macro-expansion): Correct bug in creating tempname.
Karl Heuer <kwzh@gnu.org>
parents: 14734
diff changeset
271 "/"))))
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
272 (unwind-protect
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
273 (save-excursion
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
274 (save-restriction
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
275 (widen)
15268
18af2c80d4a1 (c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents: 15267
diff changeset
276 (let ((in-syntax-table (syntax-table)))
18af2c80d4a1 (c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents: 15267
diff changeset
277 (set-buffer outbuf)
18af2c80d4a1 (c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents: 15267
diff changeset
278 (setq buffer-read-only nil)
18af2c80d4a1 (c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents: 15267
diff changeset
279 (erase-buffer)
18af2c80d4a1 (c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents: 15267
diff changeset
280 (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
281 (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
282
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
283 ;; 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
284 ;; 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
285 ;; parse a token ending at END.
18af2c80d4a1 (c-macro-expansion): Delete ??! trigraph in uniquestring.
Karl Heuer <kwzh@gnu.org>
parents: 15267
diff changeset
286 (insert "\n")
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
287
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
288 ;; 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
289 (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
290 (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
291 (if (bolp) 1 0)))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
292
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
293 ;; 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
294 ;; #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
295 ;; 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
296 ;(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
297 (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
298 (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
299 (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
300 nil nil startstat))
6981
9d977a1a7147 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 6979
diff changeset
301 '(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
302 ;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
303 (progn
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
304 (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
305 (setq linenum (+ startlinenum
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
306 (count-lines start (point))))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
307 (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
308 (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
309
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
310 ;; 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
311 ;; 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
312 ;; quote.
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
313 (let* ((startinstring (nth 3 startstat))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
314 (startincomment (nth 4 startstat))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
315 (startafterquote (nth 5 startstat))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
316 (startinbcomment (nth 7 startstat)))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
317 (insert (if startafterquote " " "")
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
318 (cond (startinstring
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
319 (char-to-string startinstring))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
320 (startincomment "*/")
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
321 (""))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
322 (setq startmarker
10931
933a04abe0ac * cmacexp.el (c-macro-expansion): put the unique string before the
Francesco Potortì <pot@gnu.org>
parents: 8705
diff changeset
323 (concat "\n" uniquestring
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
324 (cond (startinstring
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
325 (char-to-string startinstring))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
326 (startincomment "/*")
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
327 (startinbcomment "//"))
10931
933a04abe0ac * cmacexp.el (c-macro-expansion): put the unique string before the
Francesco Potortì <pot@gnu.org>
parents: 8705
diff changeset
328 (if startafterquote "\\")))
933a04abe0ac * cmacexp.el (c-macro-expansion): put the unique string before the
Francesco Potortì <pot@gnu.org>
parents: 8705
diff changeset
329 (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
330
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
331 ;; Call the preprocessor.
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
332 (if display (message mymsg))
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
333 (setq exit-status
14408
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
334 (call-process-region 1 (point-max)
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
335 shell-file-name
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
336 t (list t tempname) nil "-c"
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
337 cppcommand))
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
338 (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
339 (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
340 ;; 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
341 (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
342 ;; 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
343 ;; 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
344 (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
345 (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
346 (delete-region 1 (point)))
7008
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
347 (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
348 (regexp-quote filename)
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
349 "\"") nil t)
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
350 (beginning-of-line)
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
351 (let ((beg (point)))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
352 (forward-line 1)
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
353 (delete-region beg (point))))
fd080d04dfe2 (c-macro-expansion): changed the algorithm to allow
Richard M. Stallman <rms@gnu.org>
parents: 6981
diff changeset
354
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
355 ;; 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
356 ;; 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
357 ;; 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
358 ;; 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
359 ;; return an error code.
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
360 (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
361 (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
362 msdos-shells)))
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
363 (eq exit-status 0))
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
364 (zerop (nth 7 (file-attributes (expand-file-name tempname))))
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
365 (progn
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
366 (goto-char (point-min))
14408
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
367 ;; 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
368 ;; 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
369 (insert
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
370 (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
371 exit-status cppcommand))
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
372 (goto-char (+ (point)
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
373 (nth 1 (insert-file-contents tempname))))
9defc34879ad (c-macro-preprocessor): Define a preprocessor name
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
374 (insert "\n\n*/\n")))
8476
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
375 (delete-file tempname)
1a837ee93535 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
376
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
377 ;; 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
378 ;; 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
379 (buffer-substring 1 (max 1 (- (point-max) 1))))
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 612
diff changeset
380
5816
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
381 ;; Cleanup.
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
382 (kill-buffer outbuf))))
c381f562cffc Properly check in the total rewrite installed months ago.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
383
6979
3086be8e7683 Provide cmacexp.
Richard M. Stallman <rms@gnu.org>
parents: 6086
diff changeset
384 ;;; cmacexp.el ends here