Mercurial > emacs
annotate lisp/progmodes/cc-bytecomp.el @ 95175:7880ee795931
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 22 May 2008 02:05:44 +0000 |
parents | 52b7a8c22af5 |
children | a9dc0e7c3f2b |
rev | line source |
---|---|
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38401
diff
changeset
|
1 ;;; cc-bytecomp.el --- compile time setup for proper compilation |
36920 | 2 |
79717 | 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
75347 | 4 ;; Free Software Foundation, Inc. |
36920 | 5 |
6 ;; Author: Martin Stjernholm | |
7 ;; Maintainer: bug-cc-mode@gnu.org | |
8 ;; Created: 15-Jul-2000 | |
9 ;; Version: See cc-mode.el | |
10 ;; Keywords: c languages oop | |
11 | |
38401 | 12 ;; This file is part of GNU Emacs. |
13 | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; GNU Emacs is free software: you can redistribute it and/or modify |
36920 | 15 ;; it under the terms of the GNU General Public License as published by |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
16 ;; the Free Software Foundation, either version 3 of the License, or |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
17 ;; (at your option) any later version. |
36920 | 18 |
38401 | 19 ;; GNU Emacs is distributed in the hope that it will be useful, |
36920 | 20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 ;; GNU General Public License for more details. | |
23 | |
24 ;; You should have received a copy of the GNU General Public License | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
36920 | 26 |
27 ;;; Commentary: | |
28 | |
29 ;; This file is used to ensure that the CC Mode files are correctly | |
30 ;; compiled regardless the environment (e.g. if an older CC Mode with | |
31 ;; outdated macros are loaded during compilation). It also provides | |
32 ;; features to defeat the compiler warnings for selected symbols. | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
38422
diff
changeset
|
33 ;; |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
38422
diff
changeset
|
34 ;; There's really nothing CC Mode specific here; this functionality |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
38422
diff
changeset
|
35 ;; ought to be provided by the byte compilers or some accompanying |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
36 ;; library. To use it from some package "foo.el", begin by putting |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
37 ;; the following blurb at the top of the file: |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
38 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
39 ;; (eval-when-compile |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
40 ;; (let ((load-path |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
41 ;; (if (and (boundp 'byte-compile-dest-file) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
42 ;; (stringp byte-compile-dest-file)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
43 ;; (cons (file-name-directory byte-compile-dest-file) load-path) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
44 ;; load-path))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
45 ;; (load "cc-bytecomp" nil t)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
46 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
47 ;; This (unfortunately rather clumsy) form will ensure that the |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
48 ;; cc-bytecomp.el in the same directory as foo.el is loaded during |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
49 ;; byte compilation of the latter. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
50 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
51 ;; At the end of foo.el there should normally be a "(provide 'foo)". |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
52 ;; Replace it with "(cc-provide 'foo)"; that is necessary to restore |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
53 ;; the environment after the byte compilation. If you don't have a |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
54 ;; `provide' at the end, you have to add the following as the very |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
55 ;; last form in the file: |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
56 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
57 ;; (eval-when-compile (cc-bytecomp-restore-environment)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
58 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
59 ;; Now everything is set to use the various functions and macros in |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
60 ;; this package. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
61 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
62 ;; If your package is split into several files, you should use |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
63 ;; `cc-require', `cc-require-when-compile' or `cc-load' to load them. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
64 ;; That ensures that the files in the same directory always are |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
65 ;; loaded, to avoid mixup with other versions of them that might exist |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
66 ;; elsewhere in the load path. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
67 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
68 ;; To suppress byte compiler warnings, use the macros |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
69 ;; `cc-bytecomp-defun', `cc-bytecomp-defvar', |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
70 ;; `cc-bytecomp-obsolete-fun', and `cc-bytecomp-obsolete-var'. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
71 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
72 ;; This file is not used at all after the package has been byte |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
73 ;; compiled. It is however necessary when running uncompiled. |
36920 | 74 |
75 | |
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38401
diff
changeset
|
76 ;;; Code: |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38401
diff
changeset
|
77 |
36920 | 78 (defvar cc-bytecomp-unbound-variables nil) |
79 (defvar cc-bytecomp-original-functions nil) | |
80 (defvar cc-bytecomp-original-properties nil) | |
81 (defvar cc-bytecomp-loaded-files nil) | |
82 (defvar cc-bytecomp-environment-set nil) | |
83 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
84 (defmacro cc-bytecomp-debug-msg (&rest args) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
85 ;;`(message ,@args) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
86 ) |
36920 | 87 |
88 (defun cc-bytecomp-setup-environment () | |
89 ;; Eval'ed during compilation to setup variables, functions etc | |
90 ;; declared with `cc-bytecomp-defvar' et al. | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
91 (if (not load-in-progress) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
92 ;; Look at `load-in-progress' to tell whether we're called |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
93 ;; directly in the file being compiled or just from some file |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
94 ;; being loaded during compilation. |
36920 | 95 (let (p) |
96 (if cc-bytecomp-environment-set | |
97 (error "Byte compilation environment already set - \ | |
98 perhaps a `cc-bytecomp-restore-environment' is forgotten somewhere")) | |
99 (setq p cc-bytecomp-unbound-variables) | |
100 (while p | |
101 (if (not (boundp (car p))) | |
102 (progn | |
103 (eval `(defvar ,(car p))) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
104 (set (car p) (intern (concat "cc-bytecomp-ignore-var:" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
105 (symbol-name (car p))))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
106 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
107 "cc-bytecomp-setup-environment: Covered variable %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
108 (car p)))) |
36920 | 109 (setq p (cdr p))) |
110 (setq p cc-bytecomp-original-functions) | |
111 (while p | |
112 (let ((fun (car (car p))) | |
113 (temp-macro (car (cdr (car p))))) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
114 (if (not (fboundp fun)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
115 (if temp-macro |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
116 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
117 (eval `(defmacro ,fun ,@temp-macro)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
118 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
119 "cc-bytecomp-setup-environment: Bound macro %s" fun)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
120 (fset fun (intern (concat "cc-bytecomp-ignore-fun:" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
121 (symbol-name fun)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
122 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
123 "cc-bytecomp-setup-environment: Covered function %s" fun)))) |
36920 | 124 (setq p (cdr p))) |
125 (setq p cc-bytecomp-original-properties) | |
126 (while p | |
127 (let ((sym (car (car (car p)))) | |
128 (prop (cdr (car (car p)))) | |
129 (tempdef (car (cdr (car p))))) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
130 (put sym prop tempdef) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
131 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
132 "cc-bytecomp-setup-environment: Bound property %s for %s to %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
133 prop sym tempdef)) |
36920 | 134 (setq p (cdr p))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
135 (setq cc-bytecomp-environment-set t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
136 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
137 "cc-bytecomp-setup-environment: Done")))) |
36920 | 138 |
139 (defun cc-bytecomp-restore-environment () | |
140 ;; Eval'ed during compilation to restore variables, functions etc | |
141 ;; declared with `cc-bytecomp-defvar' et al. | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
142 (if (not load-in-progress) |
36920 | 143 (let (p) |
144 (setq p cc-bytecomp-unbound-variables) | |
145 (while p | |
146 (let ((var (car p))) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
147 (if (boundp var) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
148 (if (eq (intern (concat "cc-bytecomp-ignore-var:" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
149 (symbol-name var))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
150 (symbol-value var)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
151 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
152 (makunbound var) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
153 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
154 "cc-bytecomp-restore-environment: Unbound variable %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
155 var)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
156 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
157 "cc-bytecomp-restore-environment: Not restoring variable %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
158 var)))) |
36920 | 159 (setq p (cdr p))) |
160 (setq p cc-bytecomp-original-functions) | |
161 (while p | |
162 (let ((fun (car (car p))) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
163 (temp-macro (car (cdr (car p)))) |
36920 | 164 (def (car (cdr (cdr (car p)))))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
165 (if (fboundp fun) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
166 (if (eq (or temp-macro |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
167 (intern (concat "cc-bytecomp-ignore-fun:" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
168 (symbol-name fun)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
169 (symbol-function fun)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
170 (if (eq def 'unbound) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
171 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
172 (fmakunbound fun) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
173 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
174 "cc-bytecomp-restore-environment: Unbound function %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
175 fun)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
176 (fset fun def) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
177 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
178 "cc-bytecomp-restore-environment: Restored function %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
179 fun)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
180 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
181 "cc-bytecomp-restore-environment: Not restoring function %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
182 fun)))) |
36920 | 183 (setq p (cdr p))) |
184 (setq p cc-bytecomp-original-properties) | |
185 (while p | |
186 (let ((sym (car (car (car p)))) | |
187 (prop (cdr (car (car p)))) | |
188 (tempdef (car (cdr (car p)))) | |
189 (origdef (cdr (cdr (car p))))) | |
190 (if (eq (get sym prop) tempdef) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
191 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
192 (put sym prop origdef) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
193 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
194 "cc-bytecomp-restore-environment: Restored property %s for %s to %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
195 prop sym origdef)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
196 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
197 "cc-bytecomp-restore-environment: Not restoring property %s for %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
198 prop sym))) |
36920 | 199 (setq p (cdr p))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
200 (setq cc-bytecomp-environment-set nil) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
201 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
202 "cc-bytecomp-restore-environment: Done")))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
203 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
204 (eval |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
205 ;; This eval is to avoid byte compilation of the function below. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
206 ;; There's some bug in XEmacs 21.4.6 that can cause it to dump core |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
207 ;; here otherwise. My theory is that `cc-bytecomp-load' might be |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
208 ;; redefined recursively during the `load' inside it, and if it in |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
209 ;; that case is byte compiled then the byte interpreter gets |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
210 ;; confused. I haven't succeeded in isolating the bug, though. /mast |
36920 | 211 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
212 '(defun cc-bytecomp-load (cc-part) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
213 ;; Eval'ed during compilation to load a CC Mode file from the source |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
214 ;; directory (assuming it's the same as the compiled file |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
215 ;; destination dir). |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
216 (if (and (boundp 'byte-compile-dest-file) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
217 (stringp byte-compile-dest-file)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
218 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
219 (cc-bytecomp-restore-environment) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
220 (let ((load-path |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
221 (cons (file-name-directory byte-compile-dest-file) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
222 load-path)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
223 (cc-file (concat cc-part ".el"))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
224 (if (member cc-file cc-bytecomp-loaded-files) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
225 () |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
226 (setq cc-bytecomp-loaded-files |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
227 (cons cc-file cc-bytecomp-loaded-files)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
228 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
229 "cc-bytecomp-load: Loading %S" cc-file) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
230 (load cc-file nil t t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
231 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
232 "cc-bytecomp-load: Loaded %S" cc-file))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
233 (cc-bytecomp-setup-environment) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
234 t)))) |
36920 | 235 |
236 (defmacro cc-require (cc-part) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
237 "Force loading of the corresponding .el file in the current directory |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
238 during compilation, but compile in a `require'. Don't use within |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
239 `eval-when-compile'. |
36920 | 240 |
241 Having cyclic cc-require's will result in infinite recursion. That's | |
242 somewhat intentional." | |
243 `(progn | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
244 (eval-when-compile (cc-bytecomp-load (symbol-name ,cc-part))) |
36920 | 245 (require ,cc-part))) |
246 | |
247 (defmacro cc-provide (feature) | |
248 "A replacement for the `provide' form that restores the environment | |
249 after the compilation. Don't use within `eval-when-compile'." | |
250 `(progn | |
251 (eval-when-compile (cc-bytecomp-restore-environment)) | |
252 (provide ,feature))) | |
253 | |
254 (defmacro cc-load (cc-part) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
255 "Force loading of the corresponding .el file in the current directory |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
256 during compilation. Don't use outside `eval-when-compile' or |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
257 `eval-and-compile'. |
36920 | 258 |
259 Having cyclic cc-load's will result in infinite recursion. That's | |
260 somewhat intentional." | |
261 `(or (and (featurep 'cc-bytecomp) | |
262 (cc-bytecomp-load ,cc-part)) | |
263 (load ,cc-part nil t nil))) | |
264 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
265 (defmacro cc-require-when-compile (cc-part) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
266 "Force loading of the corresponding .el file in the current directory |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
267 during compilation, but do a compile time `require' otherwise. Don't |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
268 use within `eval-when-compile'." |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
269 `(eval-when-compile |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
270 (if (and (featurep 'cc-bytecomp) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
271 (cc-bytecomp-is-compiling)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
272 (if (or (not load-in-progress) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
273 (not (featurep ,cc-part))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
274 (cc-bytecomp-load (symbol-name ,cc-part))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
275 (require ,cc-part)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
276 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
277 (defmacro cc-external-require (feature) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
278 "Do a `require' of an external package. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
279 This restores and sets up the compilation environment before and |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
280 afterwards. Don't use within `eval-when-compile'." |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
281 `(progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
282 (eval-when-compile (cc-bytecomp-restore-environment)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
283 (require ,feature) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
284 (eval-when-compile (cc-bytecomp-setup-environment)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
285 |
36920 | 286 (defun cc-bytecomp-is-compiling () |
287 "Return non-nil if eval'ed during compilation. Don't use outside | |
288 `eval-when-compile'." | |
289 (and (boundp 'byte-compile-dest-file) | |
290 (stringp byte-compile-dest-file))) | |
291 | |
292 (defmacro cc-bytecomp-defvar (var) | |
293 "Binds the symbol as a variable during compilation of the file, | |
294 to silence the byte compiler. Don't use within `eval-when-compile'." | |
295 `(eval-when-compile | |
296 (if (boundp ',var) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
297 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
298 "cc-bytecomp-defvar: %s bound already as variable" ',var) |
36920 | 299 (if (not (memq ',var cc-bytecomp-unbound-variables)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
300 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
301 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
302 "cc-bytecomp-defvar: Saving %s (as unbound)" ',var) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
303 (setq cc-bytecomp-unbound-variables |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
304 (cons ',var cc-bytecomp-unbound-variables)))) |
36920 | 305 (if (and (cc-bytecomp-is-compiling) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
306 (not load-in-progress)) |
36920 | 307 (progn |
308 (defvar ,var) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
309 (set ',var (intern (concat "cc-bytecomp-ignore-var:" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
310 (symbol-name ',var)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
311 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
312 "cc-bytecomp-defvar: Covered variable %s" ',var)))))) |
36920 | 313 |
314 (defmacro cc-bytecomp-defun (fun) | |
315 "Bind the symbol as a function during compilation of the file, | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
316 to silence the byte compiler. Don't use within `eval-when-compile'. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
317 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
318 If the symbol already is bound as a function, it will keep that |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
319 definition. That means that this macro will not shut up warnings |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
320 about incorrect number of arguments. It's dangerous to try to replace |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
321 existing functions since the byte compiler might need the definition |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
322 at compile time, e.g. for macros and inline functions." |
36920 | 323 `(eval-when-compile |
48361
2ac046f0f384
(cc-bytecomp-defun): Fixed bug that caused existing function
Martin Stjernholm <mast@lysator.liu.se>
parents:
44728
diff
changeset
|
324 (if (fboundp ',fun) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
325 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
326 "cc-bytecomp-defun: %s bound already as function" ',fun) |
48361
2ac046f0f384
(cc-bytecomp-defun): Fixed bug that caused existing function
Martin Stjernholm <mast@lysator.liu.se>
parents:
44728
diff
changeset
|
327 (if (not (assq ',fun cc-bytecomp-original-functions)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
328 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
329 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
330 "cc-bytecomp-defun: Saving %s (as unbound)" ',fun) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
331 (setq cc-bytecomp-original-functions |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
332 (cons (list ',fun nil 'unbound) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
333 cc-bytecomp-original-functions)))) |
48361
2ac046f0f384
(cc-bytecomp-defun): Fixed bug that caused existing function
Martin Stjernholm <mast@lysator.liu.se>
parents:
44728
diff
changeset
|
334 (if (and (cc-bytecomp-is-compiling) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
335 (not load-in-progress)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
336 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
337 (fset ',fun (intern (concat "cc-bytecomp-ignore-fun:" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
338 (symbol-name ',fun)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
339 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
340 "cc-bytecomp-defun: Covered function %s" ',fun)))))) |
36920 | 341 |
342 (put 'cc-bytecomp-defmacro 'lisp-indent-function 'defun) | |
343 (defmacro cc-bytecomp-defmacro (fun &rest temp-macro) | |
344 "Bind the symbol as a macro during compilation (and evaluation) of the | |
345 file. Don't use outside `eval-when-compile'." | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
346 `(let ((orig-fun (assq ',fun cc-bytecomp-original-functions))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
347 (if (not orig-fun) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
348 (setq orig-fun |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
349 (list ',fun |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
350 nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
351 (if (fboundp ',fun) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
352 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
353 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
354 "cc-bytecomp-defmacro: Saving %s" ',fun) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
355 (symbol-function ',fun)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
356 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
357 "cc-bytecomp-defmacro: Saving %s as unbound" ',fun) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
358 'unbound)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
359 cc-bytecomp-original-functions |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
360 (cons orig-fun cc-bytecomp-original-functions))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
361 (defmacro ,fun ,@temp-macro) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
362 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
363 "cc-bytecomp-defmacro: Bound macro %s" ',fun) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
364 (setcar (cdr orig-fun) (symbol-function ',fun)))) |
36920 | 365 |
366 (defmacro cc-bytecomp-put (symbol propname value) | |
367 "Set a property on a symbol during compilation (and evaluation) of | |
368 the file. Don't use outside `eval-when-compile'." | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
369 `(eval-when-compile |
36920 | 370 (if (not (assoc (cons ,symbol ,propname) cc-bytecomp-original-properties)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
371 (progn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
372 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
373 "cc-bytecomp-put: Saving property %s for %s with value %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
374 ,propname ,symbol (get ,symbol ,propname)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
375 (setq cc-bytecomp-original-properties |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
376 (cons (cons (cons ,symbol ,propname) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
377 (cons ,value (get ,symbol ,propname))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
378 cc-bytecomp-original-properties)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
379 (put ,symbol ,propname ,value) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
380 (cc-bytecomp-debug-msg |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
381 "cc-bytecomp-put: Bound property %s for %s to %s" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
382 ,propname ,symbol ,value))) |
36920 | 383 |
384 (defmacro cc-bytecomp-obsolete-var (symbol) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
385 "Suppress warnings that the given symbol is an obsolete variable. |
36920 | 386 Don't use within `eval-when-compile'." |
387 `(eval-when-compile | |
388 (if (get ',symbol 'byte-obsolete-variable) | |
48653
eafa82fa3d92
(cc-bytecomp-obsolete-var): Add an else-clause to the if to avoid
Richard M. Stallman <rms@gnu.org>
parents:
48361
diff
changeset
|
389 (cc-bytecomp-put ',symbol 'byte-obsolete-variable nil) |
eafa82fa3d92
(cc-bytecomp-obsolete-var): Add an else-clause to the if to avoid
Richard M. Stallman <rms@gnu.org>
parents:
48361
diff
changeset
|
390 ;; This avoids a superfluous compiler warning |
eafa82fa3d92
(cc-bytecomp-obsolete-var): Add an else-clause to the if to avoid
Richard M. Stallman <rms@gnu.org>
parents:
48361
diff
changeset
|
391 ;; about calling `get' for effect. |
eafa82fa3d92
(cc-bytecomp-obsolete-var): Add an else-clause to the if to avoid
Richard M. Stallman <rms@gnu.org>
parents:
48361
diff
changeset
|
392 t))) |
36920 | 393 |
394 (defun cc-bytecomp-ignore-obsolete (form) | |
395 ;; Wraps a call to `byte-compile-obsolete' that suppresses the warning. | |
85725
e177256e1ca2
(cc-bytecomp-ignore-obsolete): Use byte-compile-disable-warning.
Glenn Morris <rgm@gnu.org>
parents:
78234
diff
changeset
|
396 (let ((byte-compile-warnings byte-compile-warnings)) |
e177256e1ca2
(cc-bytecomp-ignore-obsolete): Use byte-compile-disable-warning.
Glenn Morris <rgm@gnu.org>
parents:
78234
diff
changeset
|
397 (byte-compile-disable-warning 'obsolete) |
36920 | 398 (byte-compile-obsolete form))) |
399 | |
400 (defmacro cc-bytecomp-obsolete-fun (symbol) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
401 "Suppress warnings that the given symbol is an obsolete function. |
36920 | 402 Don't use within `eval-when-compile'." |
403 `(eval-when-compile | |
404 (if (eq (get ',symbol 'byte-compile) 'byte-compile-obsolete) | |
405 (cc-bytecomp-put ',symbol 'byte-compile | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
406 'cc-bytecomp-ignore-obsolete) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
407 ;; This avoids a superfluous compiler warning |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
408 ;; about calling `get' for effect. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
409 t))) |
36920 | 410 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
411 (defmacro cc-bytecomp-boundp (symbol) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
412 "Return non-nil if the given symbol is bound as a variable outside |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
413 the compilation. This is the same as using `boundp' but additionally |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
414 exclude any variables that have been bound during compilation with |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
415 `cc-bytecomp-defvar'." |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
416 (if (and (cc-bytecomp-is-compiling) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
417 (memq (car (cdr symbol)) cc-bytecomp-unbound-variables)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
418 nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
419 `(boundp ,symbol))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
420 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
421 (defmacro cc-bytecomp-fboundp (symbol) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
422 "Return non-nil if the given symbol is bound as a function outside |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
423 the compilation. This is the same as using `fboundp' but additionally |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
424 exclude any functions that have been bound during compilation with |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
425 `cc-bytecomp-defun'." |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
426 (let (fun-elem) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
427 (if (and (cc-bytecomp-is-compiling) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
428 (setq fun-elem (assq (car (cdr symbol)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
429 cc-bytecomp-original-functions)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
430 (eq (elt fun-elem 2) 'unbound)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
431 nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
48653
diff
changeset
|
432 `(fboundp ,symbol)))) |
36920 | 433 |
434 | |
435 (provide 'cc-bytecomp) | |
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38401
diff
changeset
|
436 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
87649
diff
changeset
|
437 ;; arch-tag: 2d71b3ad-57b0-4b13-abd3-ab836e08f975 |
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38401
diff
changeset
|
438 ;;; cc-bytecomp.el ends here |