Mercurial > emacs
annotate lisp/cedet/semantic/bovine/gcc.el @ 110763:0fe64d68a522
Merge changes made in Gnus trunk.
shr.el: Implement table rendering.
shr.el (shr-make-table): Tweak table generation.
shr.el (shr-make-table): Fix typo.
nnimap.el (nnimap-open-connection): Allow tls as a synonym for ssl.
gnus-util.el (gnus-emacs-completing-read): Mapcar collection to list, for XEmacs.
nnimap.el (nnimap-close-server): Implement.
gnus-salt.el: Remove all gnus-carpal stuff -- it's not useful.
nnir.el (nnir-run-imap): Remove spurious space in search string.
message.el (message-idna-to-ascii-rhs-1): Don't bug out on addresses without @ signs.
gnus-sum.el (gnus-widen-article-window): New variable.
shr.el (browse-url): Required.
shr.el (shr-ensure-paragraph): Don't insert a new newline after empty-ish lines.
shr.el (shr-show-alt-text, shr-browse-image): New commands.
gravatar.el (gravatar-retrieved): kill buffer when retrieved.
shr.el (shr-browse-url, shr-copy-url): New commands.
shr.el (shr-render-td): Protect against too-wide text.
spam-report.el (spam-report-url-ping-plain): Don't query about killing the process.
nnimap.el (nnimap-finish-retrieve-group-infos): Message while waiting for data.
shr.el (shr-tag-blockquote): Ensure paragraph after quote, too.
mml-smime.el: Fix gnus-completing-read usage.
shr.el (shr-get-image-data): Ensure against the cache file missing.
nnimap.el (nnimap-open-connection): Give an error if nnimap-stream is unknown.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Mon, 04 Oct 2010 22:26:51 +0000 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
rev | line source |
---|---|
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1 ;;; semantic/bovine/gcc.el --- gcc querying special code for the C parser |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2 |
106815 | 3 ;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc. |
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
4 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
5 ;; Author: Eric M. Ludlam <eric@siege-engine.com> |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
6 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
7 ;; This file is part of GNU Emacs. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
8 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
9 ;; GNU Emacs is free software: you can redistribute it and/or modify |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
10 ;; it under the terms of the GNU General Public License as published by |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
11 ;; the Free Software Foundation, either version 3 of the License, or |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
12 ;; (at your option) any later version. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
13 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
14 ;; GNU Emacs is distributed in the hope that it will be useful, |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
17 ;; GNU General Public License for more details. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
18 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
19 ;; You should have received a copy of the GNU General Public License |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
21 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
22 ;;; Commentary: |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
23 ;; |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
24 ;; GCC stores things in special places. These functions will query |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 ;; GCC, and set up the preprocessor and include paths. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
26 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
27 (require 'semantic/dep) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
28 |
104456
6065d66f0c99
lisp/cedet/semantic/db-ref.el: Require semantic/db.
Chong Yidong <cyd@stupidchicken.com>
parents:
104452
diff
changeset
|
29 (defvar semantic-lex-c-preprocessor-symbol-file) |
6065d66f0c99
lisp/cedet/semantic/db-ref.el: Require semantic/db.
Chong Yidong <cyd@stupidchicken.com>
parents:
104452
diff
changeset
|
30 (defvar semantic-lex-c-preprocessor-symbol-map) |
105323
caba6faa5726
(semantic-c-reset-preprocessor-symbol-map): Fix declaration.
Glenn Morris <rgm@gnu.org>
parents:
105299
diff
changeset
|
31 (declare-function semantic-c-reset-preprocessor-symbol-map "semantic/bovine/c") |
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
32 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
33 ;;; Code: |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
34 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
35 (defun semantic-gcc-query (gcc-cmd &rest gcc-options) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
36 "Return program output to both standard output and standard error. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
37 GCC-CMD is the program to execute and GCC-OPTIONS are the options |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
38 to give to the program." |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
39 ;; $ gcc -v |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
40 ;; |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
41 (let ((buff (get-buffer-create " *gcc-query*")) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 (old-lc-messages (getenv "LC_ALL"))) |
105799
3fe6da4a95a9
* cedet/srecode/srt-mode.el (semantic-analyze-possible-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105377
diff
changeset
|
43 (with-current-buffer buff |
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 (erase-buffer) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
45 (setenv "LC_ALL" "C") |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
46 (condition-case nil |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
47 (apply 'call-process gcc-cmd nil (cons buff t) nil gcc-options) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 (error ;; Some bogus directory for the first time perhaps? |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 (let ((default-directory (expand-file-name "~/"))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 (condition-case nil |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 (apply 'call-process gcc-cmd nil (cons buff t) nil gcc-options) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
52 (error ;; gcc doesn't exist??? |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
53 nil))))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
54 (setenv "LC_ALL" old-lc-messages) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
55 (prog1 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 (buffer-string) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
57 (kill-buffer buff) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
58 ) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 ))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 ;;(semantic-gcc-get-include-paths "c") |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 ;;(semantic-gcc-get-include-paths "c++") |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 (defun semantic-gcc-get-include-paths (lang) |
105323
caba6faa5726
(semantic-c-reset-preprocessor-symbol-map): Fix declaration.
Glenn Morris <rgm@gnu.org>
parents:
105299
diff
changeset
|
64 "Return include paths as gcc uses them for language LANG." |
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 (let* ((gcc-cmd (cond |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
66 ((string= lang "c") "gcc") |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
67 ((string= lang "c++") "c++") |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
68 (t (if (stringp lang) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 (error "Unknown lang: %s" lang) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
70 (error "LANG=%S, should be a string" lang))))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
71 (gcc-output (semantic-gcc-query gcc-cmd "-v" "-E" "-x" lang null-device)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
72 (lines (split-string gcc-output "\n")) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
73 (include-marks 0) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
74 (inc-mark "#include ") |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 (inc-mark-len (length "#include ")) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 inc-path) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 ;;(message "gcc-output=%s" gcc-output) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 (dolist (line lines) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 (when (> (length line) 1) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 (if (= 0 include-marks) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
81 (when (and (> (length line) inc-mark-len) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
82 (string= inc-mark (substring line 0 inc-mark-len))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 (setq include-marks (1+ include-marks))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 (let ((chars (append line nil))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
85 (when (= 32 (nth 0 chars)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 (let ((path (substring line 1))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
87 (when (file-accessible-directory-p path) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 (when (if (memq system-type '(windows-nt)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
89 (/= ?/ (nth 1 chars)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
90 (= ?/ (nth 1 chars))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 (add-to-list 'inc-path |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
92 (expand-file-name (substring line 1)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
93 t))))))))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
94 inc-path)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
95 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
96 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 (defun semantic-cpp-defs (str) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 "Convert CPP output STR into a list of cons cells with defines for C++." |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
99 (let ((lines (split-string str "\n")) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
100 (lst nil)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
101 (dolist (L lines) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
102 (let ((dat (split-string L))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 (when (= (length dat) 3) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
104 (add-to-list 'lst (cons (nth 1 dat) (nth 2 dat)))))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
105 lst)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 (defun semantic-gcc-fields (str) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
108 "Convert GCC output STR into an alist of fields." |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 (let ((fields nil) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
110 (lines (split-string str "\n")) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
111 ) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 (dolist (L lines) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
113 ;; For any line, what do we do with it? |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
114 (cond ((or (string-match "Configured with\\(:\\)" L) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 (string-match "\\(:\\)\\s-*[^ ]*configure " L)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
116 (let* ((parts (substring L (match-end 1))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
117 (opts (split-string parts " " t)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
118 ) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
119 (dolist (O (cdr opts)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
120 (let* ((data (split-string O "=")) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
121 (sym (intern (car data))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
122 (val (car (cdr data)))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
123 (push (cons sym val) fields) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
124 )) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
125 )) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 ((string-match "gcc[ -][vV]ersion" L) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
127 (let* ((vline (substring L (match-end 0))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
128 (parts (split-string vline " "))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
129 (push (cons 'version (nth 1 parts)) fields))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
130 ((string-match "Target: " L) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
131 (let ((parts (split-string L " "))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
132 (push (cons 'target (nth 1 parts)) fields))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 )) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
134 fields)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
136 (defvar semantic-gcc-setup-data nil |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
137 "The GCC setup data. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
138 This is setup by `semantic-gcc-setup'. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
139 This is an alist, and should include keys of: |
105323
caba6faa5726
(semantic-c-reset-preprocessor-symbol-map): Fix declaration.
Glenn Morris <rgm@gnu.org>
parents:
105299
diff
changeset
|
140 'version - the version of gcc |
caba6faa5726
(semantic-c-reset-preprocessor-symbol-map): Fix declaration.
Glenn Morris <rgm@gnu.org>
parents:
105299
diff
changeset
|
141 '--host - the host symbol (used in include directories) |
caba6faa5726
(semantic-c-reset-preprocessor-symbol-map): Fix declaration.
Glenn Morris <rgm@gnu.org>
parents:
105299
diff
changeset
|
142 '--prefix - where GCC was installed. |
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
143 It should also include other symbols GCC was compiled with.") |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
144 |
104456
6065d66f0c99
lisp/cedet/semantic/db-ref.el: Require semantic/db.
Chong Yidong <cyd@stupidchicken.com>
parents:
104452
diff
changeset
|
145 ;;;###autoload |
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
146 (defun semantic-gcc-setup () |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 "Setup Semantic C/C++ parsing based on GCC output." |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
148 (interactive) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
149 (let* ((fields (or semantic-gcc-setup-data |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
150 (semantic-gcc-fields (semantic-gcc-query "gcc" "-v")))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
151 (defines (semantic-cpp-defs (semantic-gcc-query "cpp" "-E" "-dM" "-x" "c++" null-device))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
152 (ver (cdr (assoc 'version fields))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
153 (host (or (cdr (assoc 'target fields)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
154 (cdr (assoc '--target fields)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
155 (cdr (assoc '--host fields)))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 (prefix (cdr (assoc '--prefix fields))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 ;; gcc output supplied paths |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 (c-include-path (semantic-gcc-get-include-paths "c")) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 (c++-include-path (semantic-gcc-get-include-paths "c++"))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
160 ;; Remember so we don't have to call GCC twice. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
161 (setq semantic-gcc-setup-data fields) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 (unless c-include-path |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 ;; Fallback to guesses |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
164 (let* ( ;; gcc include dirs |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
165 (gcc-exe (locate-file "gcc" exec-path exec-suffixes 'executable)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
166 (gcc-root (expand-file-name ".." (file-name-directory gcc-exe))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 (gcc-include (expand-file-name "include" gcc-root)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 (gcc-include-c++ (expand-file-name "c++" gcc-include)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
169 (gcc-include-c++-ver (expand-file-name ver gcc-include-c++)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 (gcc-include-c++-ver-host (expand-file-name host gcc-include-c++-ver))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 (setq c-include-path |
105299
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
172 ;; Replace cl-function remove-if-not. |
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
173 (delq nil (mapcar (lambda (d) |
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
174 (if (file-accessible-directory-p d) d)) |
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
175 (list "/usr/include" gcc-include)))) |
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
176 (setq c++-include-path |
105299
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
177 (delq nil (mapcar (lambda (d) |
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
178 (if (file-accessible-directory-p d) d)) |
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
179 (list "/usr/include" |
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
180 gcc-include |
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
181 gcc-include-c++ |
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
182 gcc-include-c++-ver |
a753cb82efb6
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
Glenn Morris <rgm@gnu.org>
parents:
104493
diff
changeset
|
183 gcc-include-c++-ver-host)))))) |
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
184 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
185 ;;; Fix-me: I think this part might have been a misunderstanding, but I am not sure. |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
186 ;; If this option is specified, try it both with and without prefix, and with and without host |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
187 ;; (if (assoc '--with-gxx-include-dir fields) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
188 ;; (let ((gxx-include-dir (cdr (assoc '--with-gxx-include-dir fields)))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
189 ;; (nconc try-paths (list gxx-include-dir |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
190 ;; (concat prefix gxx-include-dir) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
191 ;; (concat gxx-include-dir "/" host) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
192 ;; (concat prefix gxx-include-dir "/" host))))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
193 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
194 ;; Now setup include paths etc |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
195 (dolist (D (semantic-gcc-get-include-paths "c")) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
196 (semantic-add-system-include D 'c-mode)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
197 (dolist (D (semantic-gcc-get-include-paths "c++")) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
198 (semantic-add-system-include D 'c++-mode) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
199 (let ((cppconfig (concat D "/bits/c++config.h"))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
200 ;; Presumably there will be only one of these files in the try-paths list... |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
201 (when (file-readable-p cppconfig) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
202 ;; Add it to the symbol file |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
203 (if (boundp 'semantic-lex-c-preprocessor-symbol-file) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
204 ;; Add to the core macro header list |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
205 (add-to-list 'semantic-lex-c-preprocessor-symbol-file cppconfig) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
206 ;; Setup the core macro header |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
207 (setq semantic-lex-c-preprocessor-symbol-file (list cppconfig))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
208 ))) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
209 (if (not (boundp 'semantic-lex-c-preprocessor-symbol-map)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
210 (setq semantic-lex-c-preprocessor-symbol-map nil)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
211 (dolist (D defines) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
212 (add-to-list 'semantic-lex-c-preprocessor-symbol-map D)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
213 (when (featurep 'semantic/bovine/c) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
214 (semantic-c-reset-preprocessor-symbol-map)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
215 nil)) |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
216 |
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
217 (provide 'semantic/bovine/gcc) |
104456
6065d66f0c99
lisp/cedet/semantic/db-ref.el: Require semantic/db.
Chong Yidong <cyd@stupidchicken.com>
parents:
104452
diff
changeset
|
218 |
6065d66f0c99
lisp/cedet/semantic/db-ref.el: Require semantic/db.
Chong Yidong <cyd@stupidchicken.com>
parents:
104452
diff
changeset
|
219 ;; Local variables: |
6065d66f0c99
lisp/cedet/semantic/db-ref.el: Require semantic/db.
Chong Yidong <cyd@stupidchicken.com>
parents:
104452
diff
changeset
|
220 ;; generated-autoload-file: "../loaddefs.el" |
6065d66f0c99
lisp/cedet/semantic/db-ref.el: Require semantic/db.
Chong Yidong <cyd@stupidchicken.com>
parents:
104452
diff
changeset
|
221 ;; generated-autoload-load-name: "semantic/bovine/gcc" |
6065d66f0c99
lisp/cedet/semantic/db-ref.el: Require semantic/db.
Chong Yidong <cyd@stupidchicken.com>
parents:
104452
diff
changeset
|
222 ;; End: |
6065d66f0c99
lisp/cedet/semantic/db-ref.el: Require semantic/db.
Chong Yidong <cyd@stupidchicken.com>
parents:
104452
diff
changeset
|
223 |
105377 | 224 ;; arch-tag: 7086f4a0-1ce8-48e2-9783-d750d3765186 |
104452
688cf3b99678
lisp/cedet/semantic/bovine/c-by.el
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
225 ;;; semantic/bovine/gcc.el ends here |