Mercurial > emacs
annotate lisp/cedet/semantic.el @ 104524:fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
(ede-upload-distribution, ede-edit-web-page)
(ede-web-browse-home): Autoload.
* cedet/ede/proj-elisp.el: Add autoload for
semantic-ede-proj-target-grammar.
* cedet/semantic.el (navigate-menu): Show menu items only if
semantic-mode is enabled.
* cedet/ede.el: Remove comments.
* cedet/cedet.el (cedet-menu-map): Minor doc fix.
* cedet/semantic/grammar.el:
* cedet/semantic/grammar-wy.el:
* cedet/semantic/ede-grammar.el: New files.
* cedet/semantic/db-mode.el (global-semanticdb-minor-mode): Define
using define-minor-mode, so that the usual mode variable exists.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 27 Sep 2009 21:35:46 +0000 |
parents | 18ae68cd64bd |
children | bbd7017a25d9 |
rev | line source |
---|---|
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1 ;;; semantic.el --- Semantic buffer evaluator. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
3 ;;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
4 ;;; 2007, 2008, 2009 Free Software Foundation, Inc. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
5 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
6 ;; Author: Eric M. Ludlam <zappo@gnu.org> |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
7 ;; Keywords: syntax |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
8 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
10 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
14 ;; (at your option) any later version. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
15 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
20 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
23 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
24 ;;; Commentary: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
26 ;; API for providing the semantic content of a buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
27 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
28 ;; The semantic API provides an interface to a series of different parser |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
29 ;; implementations. Each parser outputs a parse tree in a similar format |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
30 ;; designed to handle typical functional and object oriented languages. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
31 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
32 (require 'assoc) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
33 (require 'cedet) |
104412
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
34 (require 'semantic/tag) |
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
35 (require 'semantic/lex) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
36 |
104493
a4e1a12c8b97
* files.el (auto-mode-alist): Use emacs-lisp-mode for Project.ede.
Chong Yidong <cyd@stupidchicken.com>
parents:
104471
diff
changeset
|
37 (defvar semantic-version "2.0pre7" |
a4e1a12c8b97
* files.el (auto-mode-alist): Use emacs-lisp-mode for Project.ede.
Chong Yidong <cyd@stupidchicken.com>
parents:
104471
diff
changeset
|
38 "Current version of Semantic.") |
a4e1a12c8b97
* files.el (auto-mode-alist): Use emacs-lisp-mode for Project.ede.
Chong Yidong <cyd@stupidchicken.com>
parents:
104471
diff
changeset
|
39 |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
40 (declare-function inversion-test "inversion") |
104512
aa2a07e5db2f
* cedet/semantic.el (semantic-parser-working-message): Use a less
Chong Yidong <cyd@stupidchicken.com>
parents:
104508
diff
changeset
|
41 (declare-function semanticdb-load-ebrowse-caches "semantic/db-ebrowse") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
43 (defun semantic-require-version (major minor &optional beta) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 "Non-nil if this version of semantic does not satisfy a specific version. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
45 Arguments can be: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
46 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
47 (MAJOR MINOR &optional BETA) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 Values MAJOR and MINOR must be integers. BETA can be an integer, or |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 excluded if a released version is required. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
52 It is assumed that if the current version is newer than that specified, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
53 everything passes. Exceptions occur when known incompatibilities are |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
54 introduced." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
55 (require 'inversion) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 (inversion-test 'semantic |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
57 (concat major "." minor |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
58 (when beta (concat "beta" beta))))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 (defgroup semantic nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 "Parser Generator and parser framework." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 :group 'lisp) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
64 (defgroup semantic-faces nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 "Faces used for Semantic enabled tools." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
66 :group 'semantic) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
67 |
104412
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
68 (require 'semantic/fw) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
70 ;;; Code: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
71 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
72 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
73 ;;; Variables and Configuration |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
74 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 (defvar semantic--parse-table nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 "Variable that defines how to parse top level items in a buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 This variable is for internal use only, and its content depends on the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 external parser used.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 (make-variable-buffer-local 'semantic--parse-table) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 (semantic-varalias-obsolete 'semantic-toplevel-bovine-table |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
81 'semantic--parse-table) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
82 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 (defvar semantic-symbol->name-assoc-list |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 '((type . "Types") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
85 (variable . "Variables") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 (function . "Functions") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
87 (include . "Dependencies") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 (package . "Provides")) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
89 "Association between symbols returned, and a string. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
90 The string is used to represent a group of objects of the given type. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 It is sometimes useful for a language to use a different string |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
92 in place of the default, even though that language will still |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
93 return a symbol. For example, Java return's includes, but the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
94 string can be replaced with `Imports'.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
95 (make-variable-buffer-local 'semantic-symbol->name-assoc-list) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
96 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 (defvar semantic-symbol->name-assoc-list-for-type-parts nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 "Like `semantic-symbol->name-assoc-list' for type parts. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
99 Some tags that have children (see `semantic-tag-children-compatibility') |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
100 will want to define the names of classes of tags differently than at |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
101 the top level. For example, in C++, a Function may be called a |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
102 Method. In addition, there may be new types of tags that exist only |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 in classes, such as protection labels.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
104 (make-variable-buffer-local 'semantic-symbol->name-assoc-list-for-type-parts) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
105 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 (defvar semantic-case-fold nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 "Value for `case-fold-search' when parsing.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
108 (make-variable-buffer-local 'semantic-case-fold) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
110 (defvar semantic-expand-nonterminal nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
111 "Function to call for each nonterminal production. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 Return a list of non-terminals derived from the first argument, or nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
113 if it does not need to be expanded. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
114 Languages with compound definitions should use this function to expand |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 from one compound symbol into several. For example, in C the definition |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
116 int a, b; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
117 is easily parsed into one tag. This function should take this |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
118 compound tag and turn it into two tags, one for A, and the other for B.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
119 (make-variable-buffer-local 'semantic-expand-nonterminal) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
120 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
121 (defvar semantic--buffer-cache nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
122 "A cache of the fully parsed buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
123 If no significant changes have been made (based on the state) then |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
124 this is returned instead of re-parsing the buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
125 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 DO NOT USE THIS VARIABLE IN PROGRAMS. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
127 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
128 If you need a tag list, use `semantic-fetch-tags'. If you need the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
129 cached values for some reason, chances are you can, add a hook to |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
130 `semantic-after-toplevel-cache-change-hook'.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
131 (make-variable-buffer-local 'semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
132 (semantic-varalias-obsolete 'semantic-toplevel-bovine-cache |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 'semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
134 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 (defvar semantic-unmatched-syntax-cache nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
136 "A cached copy of unmatched syntax tokens.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
137 (make-variable-buffer-local 'semantic-unmatched-syntax-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
138 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
139 (defvar semantic-unmatched-syntax-cache-check nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
140 "Non nil if the unmatched syntax cache is out of date. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
141 This is tracked with `semantic-change-function'.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
142 (make-variable-buffer-local 'semantic-unmatched-syntax-cache-check) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
143 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
144 (defvar semantic-edits-are-safe nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
145 "When non-nil, modifications do not require a reparse. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
146 This prevents tags from being marked dirty, and it prevents top level |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 edits from causing a cache check. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
148 Use this when writing programs that could cause a full reparse, but |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
149 will not change the tag structure, such as adding or updating |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
150 `top-level' comments.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
151 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
152 (defvar semantic-unmatched-syntax-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
153 "Hooks run when semantic detects syntax not matched in a grammar. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
154 Each individual piece of syntax (such as a symbol or punctuation |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
155 character) is called with this hook when it doesn't match in the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 grammar, and multiple unmatched syntax elements are not grouped |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 together. Each hook is called with one argument, which is a list of |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 syntax tokens created by the semantic lexer. Use the functions |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 `semantic-lex-token-start', `semantic-lex-token-end' and |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
160 `semantic-lex-token-text' to get information about these tokens. The |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
161 current buffer is the buffer these tokens are derived from.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 (defvar semantic--before-fetch-tags-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
164 "Hooks run before a buffer is parses for tags. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
165 It is called before any request for tags is made via the function |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
166 `semantic-fetch-tags' by an application. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 If any hook returns a nil value, the cached value is returned |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 immediately, even if it is empty.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
169 (semantic-varalias-obsolete 'semantic-before-toplevel-bovination-hook |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 'semantic--before-fetch-tags-hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
172 (defvar semantic-after-toplevel-bovinate-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
173 "Hooks run after a toplevel parse. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
174 It is not run if the toplevel parse command is called, and buffer does |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
175 not need to be fully reparsed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
176 For language specific hooks, make sure you define this as a local hook. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
177 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
178 This hook should not be used any more. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
179 Use `semantic-after-toplevel-cache-change-hook' instead.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
180 (make-obsolete-variable 'semantic-after-toplevel-bovinate-hook nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
181 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
182 (defvar semantic-after-toplevel-cache-change-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
183 "Hooks run after the buffer tag list has changed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
184 This list will change when a buffer is reparsed, or when the tag list |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
185 in a buffer is cleared. It is *NOT* called if the current tag list is |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
186 partially reparsed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
187 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
188 Hook functions must take one argument, which is the new list of tags |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
189 associated with this buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
190 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
191 For language specific hooks, make sure you define this as a local hook.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
192 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
193 (defvar semantic-before-toplevel-cache-flush-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
194 "Hooks run before the toplevel tag cache is flushed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
195 For language specific hooks, make sure you define this as a local |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
196 hook. This hook is called before a corresponding |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
197 `semantic-after-toplevel-cache-change-hook' which is also called |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
198 during a flush when the cache is given a new value of nil.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
199 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
200 (defcustom semantic-dump-parse nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
201 "When non-nil, dump parsing information." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
202 :group 'semantic |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
203 :type 'boolean) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
204 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
205 (defvar semantic-parser-name "LL" |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
206 "Optional name of the parser used to parse input stream.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
207 (make-variable-buffer-local 'semantic-parser-name) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
208 |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
209 (defvar semantic--completion-cache nil |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
210 "Internal variable used by `semantic-complete-symbol'.") |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
211 (make-variable-buffer-local 'semantic--completion-cache) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
212 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
213 ;;; Parse tree state management API |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
214 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
215 (defvar semantic-parse-tree-state 'needs-rebuild |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
216 "State of the current parse tree.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
217 (make-variable-buffer-local 'semantic-parse-tree-state) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
218 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
219 (defmacro semantic-parse-tree-unparseable () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
220 "Indicate that the current buffer is unparseable. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
221 It is also true that the parse tree will need either updating or |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
222 a rebuild. This state will be changed when the user edits the buffer." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
223 `(setq semantic-parse-tree-state 'unparseable)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
224 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
225 (defmacro semantic-parse-tree-unparseable-p () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
226 "Return non-nil if the current buffer has been marked unparseable." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
227 `(eq semantic-parse-tree-state 'unparseable)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
228 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
229 (defmacro semantic-parse-tree-set-needs-update () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
230 "Indicate that the current parse tree needs to be updated. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
231 The parse tree can be updated by `semantic-parse-changes'." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
232 `(setq semantic-parse-tree-state 'needs-update)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
233 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
234 (defmacro semantic-parse-tree-needs-update-p () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
235 "Return non-nil if the current parse tree needs to be updated." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
236 `(eq semantic-parse-tree-state 'needs-update)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
237 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
238 (defmacro semantic-parse-tree-set-needs-rebuild () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
239 "Indicate that the current parse tree needs to be rebuilt. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
240 The parse tree must be rebuilt by `semantic-parse-region'." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
241 `(setq semantic-parse-tree-state 'needs-rebuild)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
242 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
243 (defmacro semantic-parse-tree-needs-rebuild-p () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
244 "Return non-nil if the current parse tree needs to be rebuilt." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
245 `(eq semantic-parse-tree-state 'needs-rebuild)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
246 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
247 (defmacro semantic-parse-tree-set-up-to-date () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
248 "Indicate that the current parse tree is up to date." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
249 `(setq semantic-parse-tree-state nil)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
250 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
251 (defmacro semantic-parse-tree-up-to-date-p () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
252 "Return non-nil if the current parse tree is up to date." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
253 `(null semantic-parse-tree-state)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
254 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
255 ;;; Interfacing with the system |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
256 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
257 (defcustom semantic-inhibit-functions nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
258 "List of functions to call with no arguments before Semantic is setup. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
259 If any of these functions returns non-nil, the current buffer is not |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
260 setup to use Semantic." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
261 :group 'semantic |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
262 :type 'hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
263 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
264 (defvar semantic-init-hook nil |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
265 "Hook run when a buffer is initialized with a parsing table.") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
266 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
267 (defvar semantic-init-mode-hook nil |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
268 "Hook run when a buffer of a particular mode is initialized.") |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
269 (make-variable-buffer-local 'semantic-init-mode-hook) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
270 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
271 (defvar semantic-init-db-hook nil |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
272 "Hook run when a buffer is initialized with a parsing table for DBs. |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
273 This hook is for database functions which intend to swap in a tag table. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
274 This guarantees that the DB will go before other modes that require |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
275 a parse of the buffer.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
276 |
104514
c65d65798b34
Fix last change to use semantic-varalias-obsolete.
Chong Yidong <cyd@stupidchicken.com>
parents:
104512
diff
changeset
|
277 (semantic-varalias-obsolete 'semantic-init-hooks |
c65d65798b34
Fix last change to use semantic-varalias-obsolete.
Chong Yidong <cyd@stupidchicken.com>
parents:
104512
diff
changeset
|
278 'semantic-init-hook) |
c65d65798b34
Fix last change to use semantic-varalias-obsolete.
Chong Yidong <cyd@stupidchicken.com>
parents:
104512
diff
changeset
|
279 (semantic-varalias-obsolete 'semantic-init-mode-hooks |
c65d65798b34
Fix last change to use semantic-varalias-obsolete.
Chong Yidong <cyd@stupidchicken.com>
parents:
104512
diff
changeset
|
280 'semantic-init-mode-hook) |
c65d65798b34
Fix last change to use semantic-varalias-obsolete.
Chong Yidong <cyd@stupidchicken.com>
parents:
104512
diff
changeset
|
281 (semantic-varalias-obsolete 'semantic-init-db-hooks |
c65d65798b34
Fix last change to use semantic-varalias-obsolete.
Chong Yidong <cyd@stupidchicken.com>
parents:
104512
diff
changeset
|
282 'semantic-init-db-hook) |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
283 |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
284 (defvar semantic-new-buffer-fcn-was-run nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
285 "Non nil after `semantic-new-buffer-fcn' has been executed.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
286 (make-variable-buffer-local 'semantic-new-buffer-fcn-was-run) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
287 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
288 (defsubst semantic-active-p () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
289 "Return non-nil if the current buffer was set up for parsing." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
290 semantic-new-buffer-fcn-was-run) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
291 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
292 (defsubst semantic--umatched-syntax-needs-refresh-p () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
293 "Return non-nil if the unmatched syntax cache needs a refresh. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
294 That is if it is dirty or if the current parse tree isn't up to date." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
295 (or semantic-unmatched-syntax-cache-check |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
296 (not (semantic-parse-tree-up-to-date-p)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
297 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
298 (defun semantic-new-buffer-fcn () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
299 "Setup the current buffer to use Semantic. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
300 If the major mode is ready for Semantic, and no |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
301 `semantic-inhibit-functions' disabled it, the current buffer is setup |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
302 to use Semantic, and `semantic-init-hook' is run." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
303 ;; Do stuff if semantic was activated by a mode hook in this buffer, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
304 ;; and not afterwards disabled. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
305 (when (and semantic--parse-table |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
306 (not (semantic-active-p)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
307 (not (run-hook-with-args-until-success |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
308 'semantic-inhibit-functions))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
309 ;; Make sure that if this buffer is cloned, our tags and overlays |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
310 ;; don't go along for the ride. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
311 (add-hook 'clone-indirect-buffer-hook 'semantic-clear-toplevel-cache |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
312 nil t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
313 ;; Specify that this function has done it's work. At this point |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
314 ;; we can consider that semantic is active in this buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
315 (setq semantic-new-buffer-fcn-was-run t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
316 ;; Here are some buffer local variables we can initialize ourselves |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
317 ;; of a mode does not choose to do so. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
318 (semantic-lex-init) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
319 ;; Force this buffer to have its cache refreshed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
320 (semantic-clear-toplevel-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
321 ;; Call DB hooks before regular init hooks |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
322 (run-hooks 'semantic-init-db-hook) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
323 ;; Set up semantic modes |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
324 (run-hooks 'semantic-init-hook) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
325 ;; Set up major-mode specific semantic modes |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
326 (run-hooks 'semantic-init-mode-hook))) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
327 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
328 (defun semantic-fetch-tags-fast () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
329 "For use in a hook. When only a partial reparse is needed, reparse." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
330 (condition-case nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
331 (if (semantic-parse-tree-needs-update-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
332 (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
333 (error nil)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
334 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
335 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
336 ;;; Parsing Commands |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
337 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
338 (eval-when-compile |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
339 (condition-case nil (require 'pp) (error nil))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
340 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
341 (defvar semantic-edebug nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
342 "When non-nil, activate the interactive parsing debugger. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
343 Do not set this yourself. Call `semantic-debug'.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
344 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
345 (defun semantic-elapsed-time (start end) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
346 "Copied from elp.el. Was elp-elapsed-time. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
347 Argument START and END bound the time being calculated." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
348 (+ (* (- (car end) (car start)) 65536.0) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
349 (- (car (cdr end)) (car (cdr start))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
350 (/ (- (car (cdr (cdr end))) (car (cdr (cdr start)))) 1000000.0))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
351 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
352 (defun bovinate (&optional clear) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
353 "Parse the current buffer. Show output in a temp buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
354 Optional argument CLEAR will clear the cache before parsing. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
355 If CLEAR is negative, it will do a full reparse, and also not display |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
356 the output buffer." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
357 (interactive "P") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
358 (if clear (semantic-clear-toplevel-cache)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
359 (if (eq clear '-) (setq clear -1)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
360 (let* ((start (current-time)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
361 (out (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
362 (end (current-time))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
363 (message "Retrieving tags took %.2f seconds." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
364 (semantic-elapsed-time start end)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
365 (when (or (null clear) (not (listp clear))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
366 (pop-to-buffer "*Parser Output*") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
367 (require 'pp) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
368 (erase-buffer) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
369 (insert (pp-to-string out)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
370 (goto-char (point-min))))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
371 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
372 ;;; Functions of the parser plug-in API |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
373 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
374 ;; Overload these functions to create new types of parsers. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
375 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
376 (define-overloadable-function semantic-parse-stream (stream nonterminal) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
377 "Parse STREAM, starting at the first NONTERMINAL rule. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
378 For bovine and wisent based parsers, STREAM is from the output of |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
379 `semantic-lex', and NONTERMINAL is a rule in the apropriate language |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
380 specific rules file. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
381 The default parser table used for bovine or wisent based parsers is |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
382 `semantic--parse-table'. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
383 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
384 Must return a list: (STREAM TAGS) where STREAM is the unused elements |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
385 from STREAM, and TAGS is the list of semantic tags found, usually only |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
386 one tag is returned with the exception of compound statements") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
387 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
388 (define-overloadable-function semantic-parse-changes () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
389 "Reparse changes in the current buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
390 The list of changes are tracked as a series of overlays in the buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
391 When overloading this function, use `semantic-changes-in-region' to |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
392 analyze.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
393 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
394 (define-overloadable-function semantic-parse-region |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
395 (start end &optional nonterminal depth returnonerror) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
396 "Parse the area between START and END, and return any tags found. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
397 If END needs to be extended due to a lexical token being too large, it |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
398 will be silently ignored. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
399 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
400 Optional arguments: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
401 NONTERMINAL is the rule to start parsing at. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
402 DEPTH specifies the lexical depth to decend for parser that use |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
403 lexical analysis as their first step. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
404 RETURNONERROR specifies that parsing should stop on the first |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
405 unmatched syntax encountered. When nil, parsing skips the syntax, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
406 adding it to the unmatched syntax cache. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
407 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
408 Must return a list of semantic tags wich have been cooked |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
409 \(repositioned properly) but which DO NOT HAVE OVERLAYS associated |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
410 with them. When overloading this function, use `semantic--tag-expand' |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
411 to cook raw tags.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
412 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
413 (defun semantic-parse-region-default |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
414 (start end &optional nonterminal depth returnonerror) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
415 "Parse the area between START and END, and return any tags found. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
416 If END needs to be extended due to a lexical token being too large, it |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
417 will be silently ignored. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
418 Optional arguments: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
419 NONTERMINAL is the rule to start parsing at if it is known. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
420 DEPTH specifies the lexical depth to scan. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
421 RETURNONERROR specifies that parsing should end when encountering |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
422 unterminated syntax." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
423 (when (or (null semantic--parse-table) (eq semantic--parse-table t)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
424 ;; If there is no table, or it was set to t, then we are here by |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
425 ;; some other mistake. Do not throw an error deep in the parser. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
426 (error "No support found to parse buffer %S" (buffer-name))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
427 (save-restriction |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
428 (widen) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
429 (when (or (< end start) (> end (point-max))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
430 (error "Invalid parse region bounds %S, %S" start end)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
431 (nreverse |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
432 (semantic-repeat-parse-whole-stream |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
433 (or (cdr (assq start semantic-lex-block-streams)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
434 (semantic-lex start end depth)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
435 nonterminal returnonerror)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
436 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
437 ;;; Parsing functions |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
438 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
439 (defun semantic-set-unmatched-syntax-cache (unmatched-syntax) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
440 "Set the unmatched syntax cache. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
441 Argument UNMATCHED-SYNTAX is the syntax to set into the cache." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
442 ;; This function is not actually called by the main parse loop. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
443 ;; This is intended for use by semanticdb. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
444 (setq semantic-unmatched-syntax-cache unmatched-syntax |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
445 semantic-unmatched-syntax-cache-check nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
446 ;; Refresh the display of unmatched syntax tokens if enabled |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
447 (run-hook-with-args 'semantic-unmatched-syntax-hook |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
448 semantic-unmatched-syntax-cache)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
449 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
450 (defun semantic-clear-unmatched-syntax-cache () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
451 "Clear the cache of unmatched syntax tokens." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
452 (setq semantic-unmatched-syntax-cache nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
453 semantic-unmatched-syntax-cache-check t)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
454 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
455 (defun semantic-unmatched-syntax-tokens () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
456 "Return the list of unmatched syntax tokens." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
457 ;; If the cache need refresh then do a full re-parse. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
458 (if (semantic--umatched-syntax-needs-refresh-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
459 ;; To avoid a recursive call, temporarily disable |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
460 ;; `semantic-unmatched-syntax-hook'. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
461 (let (semantic-unmatched-syntax-hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
462 (condition-case nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
463 (progn |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
464 (semantic-clear-toplevel-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
465 (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
466 (quit |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
467 (message "semantic-unmatched-syntax-tokens:\ |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
468 parsing of buffer canceled")) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
469 ))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
470 semantic-unmatched-syntax-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
471 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
472 (defun semantic-clear-toplevel-cache () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
473 "Clear the toplevel tag cache for the current buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
474 Clearing the cache will force a complete reparse next time a tag list |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
475 is requested." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
476 (interactive) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
477 (run-hooks 'semantic-before-toplevel-cache-flush-hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
478 (setq semantic--buffer-cache nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
479 (semantic-clear-unmatched-syntax-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
480 (semantic-clear-parser-warnings) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
481 ;; Nuke all semantic overlays. This is faster than deleting based |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
482 ;; on our data structure. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
483 (let ((l (semantic-overlay-lists))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
484 (mapc 'semantic-delete-overlay-maybe (car l)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
485 (mapc 'semantic-delete-overlay-maybe (cdr l)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
486 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
487 (semantic-parse-tree-set-needs-rebuild) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
488 ;; Remove this hook which tracks if a buffer is up to date or not. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
489 (remove-hook 'after-change-functions 'semantic-change-function t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
490 ;; Old model. Delete someday. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
491 ;;(run-hooks 'semantic-after-toplevel-bovinate-hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
492 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
493 (run-hook-with-args 'semantic-after-toplevel-cache-change-hook |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
494 semantic--buffer-cache) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
495 |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
496 (setq semantic--completion-cache nil)) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
497 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
498 (defvar semantic-bovinate-nonterminal-check-obarray) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
499 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
500 (defun semantic--set-buffer-cache (tagtable) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
501 "Set the toplevel cache cache to TAGTABLE." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
502 (setq semantic--buffer-cache tagtable |
104449
217c6a8e8420
lisp/cedet/semantic.el (semantic--set-buffer-cache): Ensure that
Chong Yidong <cyd@stupidchicken.com>
parents:
104439
diff
changeset
|
503 semantic-unmatched-syntax-cache-check nil) |
217c6a8e8420
lisp/cedet/semantic.el (semantic--set-buffer-cache): Ensure that
Chong Yidong <cyd@stupidchicken.com>
parents:
104439
diff
changeset
|
504 ;; This is specific to the bovine parser. |
217c6a8e8420
lisp/cedet/semantic.el (semantic--set-buffer-cache): Ensure that
Chong Yidong <cyd@stupidchicken.com>
parents:
104439
diff
changeset
|
505 (set (make-local-variable 'semantic-bovinate-nonterminal-check-obarray) |
217c6a8e8420
lisp/cedet/semantic.el (semantic--set-buffer-cache): Ensure that
Chong Yidong <cyd@stupidchicken.com>
parents:
104439
diff
changeset
|
506 nil) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
507 (semantic-parse-tree-set-up-to-date) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
508 (semantic-make-local-hook 'after-change-functions) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
509 (add-hook 'after-change-functions 'semantic-change-function nil t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
510 (run-hook-with-args 'semantic-after-toplevel-cache-change-hook |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
511 semantic--buffer-cache) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
512 (setq semantic--completion-cache nil) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
513 ;; Refresh the display of unmatched syntax tokens if enabled |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
514 (run-hook-with-args 'semantic-unmatched-syntax-hook |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
515 semantic-unmatched-syntax-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
516 ;; Old Semantic 1.3 hook API. Maybe useful forever? |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
517 (run-hooks 'semantic-after-toplevel-bovinate-hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
518 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
519 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
520 (defvar semantic-working-type 'percent |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
521 "*The type of working message to use when parsing. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
522 'percent means we are doing a linear parse through the buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
523 'dynamic means we are reparsing specific tags.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
524 (semantic-varalias-obsolete 'semantic-bovination-working-type |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
525 'semantic-working-type) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
526 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
527 (defvar semantic-minimum-working-buffer-size (* 1024 5) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
528 "*The minimum size of a buffer before working messages are displayed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
529 Buffers smaller than will parse silently. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
530 Bufferse larger than this will display the working progress bar.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
531 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
532 (defsubst semantic-parser-working-message (&optional arg) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
533 "Return the message string displayed while parsing. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
534 If optional argument ARG is non-nil it is appended to the message |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
535 string." |
104512
aa2a07e5db2f
* cedet/semantic.el (semantic-parser-working-message): Use a less
Chong Yidong <cyd@stupidchicken.com>
parents:
104508
diff
changeset
|
536 (concat "Parsing" |
aa2a07e5db2f
* cedet/semantic.el (semantic-parser-working-message): Use a less
Chong Yidong <cyd@stupidchicken.com>
parents:
104508
diff
changeset
|
537 (if arg (format " %s" arg)) |
aa2a07e5db2f
* cedet/semantic.el (semantic-parser-working-message): Use a less
Chong Yidong <cyd@stupidchicken.com>
parents:
104508
diff
changeset
|
538 (if semantic-parser-name (format " (%s)" semantic-parser-name)) |
aa2a07e5db2f
* cedet/semantic.el (semantic-parser-working-message): Use a less
Chong Yidong <cyd@stupidchicken.com>
parents:
104508
diff
changeset
|
539 "...")) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
540 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
541 ;;; Application Parser Entry Points |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
542 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
543 ;; The best way to call the parser from programs is via |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
544 ;; `semantic-fetch-tags'. This, in turn, uses other internal |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
545 ;; API functions which plug-in parsers can take advantage of. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
546 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
547 (defun semantic-fetch-tags () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
548 "Fetch semantic tags from the current buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
549 If the buffer cache is up to date, return that. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
550 If the buffer cache is out of date, attempt an incremental reparse. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
551 If the buffer has not been parsed before, or if the incremental reparse |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
552 fails, then parse the entire buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
553 If a lexcial error had been previously discovered and the buffer |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
554 was marked unparseable, then do nothing, and return the cache." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
555 (and |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
556 ;; Is this a semantic enabled buffer? |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
557 (semantic-active-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
558 ;; Application hooks say the buffer is safe for parsing |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
559 (run-hook-with-args-until-failure |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
560 'semantic-before-toplevel-bovination-hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
561 (run-hook-with-args-until-failure |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
562 'semantic--before-fetch-tags-hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
563 ;; If the buffer was previously marked unparseable, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
564 ;; then don't waste our time. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
565 (not (semantic-parse-tree-unparseable-p)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
566 ;; The parse tree actually needs to be refreshed |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
567 (not (semantic-parse-tree-up-to-date-p)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
568 ;; So do it! |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
569 (let* ((gc-cons-threshold (max gc-cons-threshold 10000000)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
570 (semantic-lex-block-streams nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
571 (res nil)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
572 (garbage-collect) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
573 (cond |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
574 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
575 ;;;; Try the incremental parser to do a fast update. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
576 ((semantic-parse-tree-needs-update-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
577 (setq res (semantic-parse-changes)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
578 (if (semantic-parse-tree-needs-rebuild-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
579 ;; If the partial reparse fails, jump to a full reparse. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
580 (semantic-fetch-tags) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
581 ;; Clear the cache of unmatched syntax tokens |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
582 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
583 ;; NOTE TO SELF: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
584 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
585 ;; Move this into the incremental parser. This is a bug. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
586 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
587 (semantic-clear-unmatched-syntax-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
588 (run-hook-with-args ;; Let hooks know the updated tags |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
589 'semantic-after-partial-cache-change-hook res)) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
590 (setq semantic--completion-cache nil)) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
591 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
592 ;;;; Parse the whole system. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
593 ((semantic-parse-tree-needs-rebuild-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
594 ;; Use Emacs' built-in progress-reporter |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
595 (let ((semantic--progress-reporter |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
596 (and (>= (point-max) semantic-minimum-working-buffer-size) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
597 (eq semantic-working-type 'percent) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
598 (make-progress-reporter |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
599 (semantic-parser-working-message (buffer-name)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
600 0 100)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
601 (setq res (semantic-parse-region (point-min) (point-max))) |
104471
64ff46db1dda
lisp/cedet/semantic.el (semantic-fetch-tags): Check if progress
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
602 (if semantic--progress-reporter |
64ff46db1dda
lisp/cedet/semantic.el (semantic-fetch-tags): Check if progress
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
603 (progress-reporter-done semantic--progress-reporter))) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
604 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
605 ;; Clear the caches when we see there were no errors. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
606 ;; But preserve the unmatched syntax cache and warnings! |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
607 (let (semantic-unmatched-syntax-cache |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
608 semantic-unmatched-syntax-cache-check |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
609 semantic-parser-warnings) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
610 (semantic-clear-toplevel-cache)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
611 ;; Set up the new overlays |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
612 (semantic--tag-link-list-to-buffer res) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
613 ;; Set up the cache with the new results |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
614 (semantic--set-buffer-cache res) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
615 )))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
616 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
617 ;; Always return the current parse tree. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
618 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
619 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
620 (defun semantic-refresh-tags-safe () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
621 "Refreshes the current buffer's tags safely. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
622 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
623 Return non-nil if the refresh was successful. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
624 Return nil if there is some sort of syntax error preventing a reparse. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
625 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
626 Does nothing if the current buffer doesn't need reparsing." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
627 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
628 ;; These checks actually occur in `semantic-fetch-tags', but if we |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
629 ;; do them here, then all the bovination hooks are not run, and |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
630 ;; we save lots of time. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
631 (cond |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
632 ;; If the buffer was previously marked unparseable, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
633 ;; then don't waste our time. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
634 ((semantic-parse-tree-unparseable-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
635 nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
636 ;; The parse tree is already ok. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
637 ((semantic-parse-tree-up-to-date-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
638 t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
639 (t |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
640 (let* ((inhibit-quit nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
641 (lexically-safe t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
642 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
643 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
644 (unwind-protect |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
645 ;; Perform the parsing. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
646 (progn |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
647 (when (semantic-lex-catch-errors safe-refresh |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
648 (save-excursion (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
649 nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
650 ;; If we are here, it is because the lexical step failed, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
651 ;; proably due to unterminated lists or something like that. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
652 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
653 ;; We do nothing, and just wait for the next idle timer |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
654 ;; to go off. In the meantime, remember this, and make sure |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
655 ;; no other idle services can get executed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
656 (setq lexically-safe nil)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
657 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
658 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
659 ;; Return if we are lexically safe |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
660 lexically-safe)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
661 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
662 (defun semantic-bovinate-toplevel (&optional ignored) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
663 "Backward Compatibility Function." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
664 (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
665 (make-obsolete 'semantic-bovinate-toplevel 'semantic-fetch-tags) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
666 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
667 ;; Another approach is to let Emacs call the parser on idle time, when |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
668 ;; needed, use `semantic-fetch-available-tags' to only retrieve |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
669 ;; available tags, and setup the `semantic-after-*-hook' hooks to |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
670 ;; synchronize with new tags when they become available. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
671 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
672 (defsubst semantic-fetch-available-tags () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
673 "Fetch available semantic tags from the current buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
674 That is, return tags currently in the cache without parsing the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
675 current buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
676 Parse operations happen asynchronously when needed on Emacs idle time. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
677 Use the `semantic-after-toplevel-cache-change-hook' and |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
678 `semantic-after-partial-cache-change-hook' hooks to synchronize with |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
679 new tags when they become available." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
680 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
681 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
682 ;;; Iterative parser helper function |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
683 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
684 ;; Iterative parsers are better than rule-based iterative functions |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
685 ;; in that they can handle obscure errors more cleanly. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
686 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
687 ;; `semantic-repeat-parse-whole-stream' abstracts this action for |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
688 ;; other parser centric routines. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
689 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
690 (defun semantic-repeat-parse-whole-stream |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
691 (stream nonterm &optional returnonerror) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
692 "Iteratively parse the entire stream STREAM starting with NONTERM. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
693 Optional argument RETURNONERROR indicates that the parser should exit |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
694 with the current results on a parse error. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
695 This function returns semantic tags without overlays." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
696 (let ((result nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
697 (case-fold-search semantic-case-fold) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
698 nontermsym tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
699 (while stream |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
700 (setq nontermsym (semantic-parse-stream stream nonterm) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
701 tag (car (cdr nontermsym))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
702 (if (not nontermsym) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
703 (error "Parse error @ %d" (car (cdr (car stream))))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
704 (if (eq (car nontermsym) stream) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
705 (error "Parser error: Infinite loop?")) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
706 (if tag |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
707 (if (car tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
708 (setq tag (mapcar |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
709 #'(lambda (tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
710 ;; Set the 'reparse-symbol property to |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
711 ;; NONTERM unless it was already setup |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
712 ;; by a tag expander |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
713 (or (semantic--tag-get-property |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
714 tag 'reparse-symbol) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
715 (semantic--tag-put-property |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
716 tag 'reparse-symbol nonterm)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
717 tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
718 (semantic--tag-expand tag)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
719 result (append tag result)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
720 ;; No error in this case, a purposeful nil means don't |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
721 ;; store anything. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
722 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
723 (if returnonerror |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
724 (setq stream nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
725 ;; The current item in the stream didn't match, so add it to |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
726 ;; the list of syntax items which didn't match. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
727 (setq semantic-unmatched-syntax-cache |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
728 (cons (car stream) semantic-unmatched-syntax-cache)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
729 )) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
730 ;; Designated to ignore. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
731 (setq stream (car nontermsym)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
732 (if stream |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
733 ;; Use Emacs' built-in progress reporter: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
734 (and (boundp 'semantic--progress-reporter) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
735 semantic--progress-reporter |
104439
da5b2513c225
cedet/cedet.el (cedet-packages): Bump srecode version.
Chong Yidong <cyd@stupidchicken.com>
parents:
104412
diff
changeset
|
736 (eq semantic-working-type 'percent) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
737 (progress-reporter-update |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
738 semantic--progress-reporter |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
739 (/ (* 100 (semantic-lex-token-start (car stream))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
740 (point-max)))))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
741 result)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
742 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
743 ;;; Parsing Warnings: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
744 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
745 ;; Parsing a buffer may result in non-critical things that we should |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
746 ;; alert the user to without interrupting the normal flow. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
747 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
748 ;; Any parser can use this API to provide a list of warnings during a |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
749 ;; parse which a user may want to investigate. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
750 (defvar semantic-parser-warnings nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
751 "A list of parser warnings since the last full reparse.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
752 (make-variable-buffer-local 'semantic-parser-warnings) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
753 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
754 (defun semantic-clear-parser-warnings () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
755 "Clear the current list of parser warnings for this buffer." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
756 (setq semantic-parser-warnings nil)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
757 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
758 (defun semantic-push-parser-warning (warning start end) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
759 "Add a parser WARNING that covers text from START to END." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
760 (setq semantic-parser-warnings |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
761 (cons (cons warning (cons start end)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
762 semantic-parser-warnings))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
763 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
764 (defun semantic-dump-parser-warnings () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
765 "Dump any parser warnings." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
766 (interactive) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
767 (if semantic-parser-warnings |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
768 (let ((pw semantic-parser-warnings)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
769 (pop-to-buffer "*Parser Warnings*") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
770 (require 'pp) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
771 (erase-buffer) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
772 (insert (pp-to-string pw)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
773 (goto-char (point-min))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
774 (message "No parser warnings."))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
775 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
776 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
777 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
778 ;;; Compatibility: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
779 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
780 ;; Semantic 1.x parser action helper functions, used by some parsers. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
781 ;; Please move away from these functions, and try using semantic 2.x |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
782 ;; interfaces instead. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
783 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
784 (defsubst semantic-bovinate-region-until-error |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
785 (start end nonterm &optional depth) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
786 "NOTE: Use `semantic-parse-region' instead. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
787 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
788 Bovinate between START and END starting with NONTERM. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
789 Optional DEPTH specifies how many levels of parenthesis to enter. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
790 This command will parse until an error is encountered, and return |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
791 the list of everything found until that moment. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
792 This is meant for finding variable definitions at the beginning of |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
793 code blocks in methods. If `bovine-inner-scope' can also support |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
794 commands, use `semantic-bovinate-from-nonterminal-full'." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
795 (semantic-parse-region start end nonterm depth t)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
796 (make-obsolete 'semantic-bovinate-region-until-error |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
797 'semantic-parse-region) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
798 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
799 (defsubst semantic-bovinate-from-nonterminal |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
800 (start end nonterm &optional depth length) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
801 "Bovinate from within a nonterminal lambda from START to END. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
802 Argument NONTERM is the nonterminal symbol to start with. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
803 Optional argument DEPTH is the depth of lists to dive into. When used |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
804 in a `lambda' of a MATCH-LIST, there is no need to include a START and |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
805 END part. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
806 Optional argument LENGTH specifies we are only interested in LENGTH |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
807 tokens." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
808 (car-safe (cdr (semantic-parse-stream |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
809 (semantic-lex start end (or depth 1) length) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
810 nonterm)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
811 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
812 (defsubst semantic-bovinate-from-nonterminal-full |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
813 (start end nonterm &optional depth) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
814 "NOTE: Use `semantic-parse-region' instead. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
815 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
816 Bovinate from within a nonterminal lambda from START to END. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
817 Iterates until all the space between START and END is exhausted. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
818 Argument NONTERM is the nonterminal symbol to start with. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
819 If NONTERM is nil, use `bovine-block-toplevel'. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
820 Optional argument DEPTH is the depth of lists to dive into. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
821 When used in a `lambda' of a MATCH-LIST, there is no need to include |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
822 a START and END part." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
823 (semantic-parse-region start end nonterm (or depth 1))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
824 (make-obsolete 'semantic-bovinate-from-nonterminal-full |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
825 'semantic-parse-region) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
826 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
827 ;;; User interface |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
828 |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
829 (defun semantic-force-refresh () |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
830 "Force a full refresh of the current buffer's tags. |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
831 Throw away all the old tags, and recreate the tag database." |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
832 (interactive) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
833 (semantic-clear-toplevel-cache) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
834 (semantic-fetch-tags) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
835 (message "Buffer reparsed.")) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
836 |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
837 (defvar semantic-mode-map |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
838 (let ((map (make-sparse-keymap))) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
839 ;; Key bindings: |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
840 ;; (define-key km "f" 'senator-search-set-tag-class-filter) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
841 ;; (define-key km "i" 'senator-isearch-toggle-semantic-mode) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
842 (define-key map "\C-c,j" 'semantic-complete-jump-local) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
843 (define-key map "\C-c,J" 'semantic-complete-jump) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
844 (define-key map "\C-c,g" 'semantic-symref-symbol) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
845 (define-key map "\C-c,G" 'semantic-symref) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
846 (define-key map "\C-c,p" 'senator-previous-tag) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
847 (define-key map "\C-c,n" 'senator-next-tag) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
848 (define-key map "\C-c,u" 'senator-go-to-up-reference) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
849 (define-key map "\C-c, " 'semantic-complete-analyze-inline) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
850 (define-key map "\C-c,\C-w" 'senator-kill-tag) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
851 (define-key map "\C-c,\M-w" 'senator-copy-tag) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
852 (define-key map "\C-c,\C-y" 'senator-yank-tag) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
853 (define-key map "\C-c,r" 'senator-copy-tag-to-register) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
854 (define-key map [?\C-c ?, up] 'senator-transpose-tags-up) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
855 (define-key map [?\C-c ?, down] 'senator-transpose-tags-down) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
856 (define-key map "\C-c,l" 'semantic-analyze-possible-completions) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
857 ;; This hack avoids showing the CEDET menu twice if ede-minor-mode |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
858 ;; and Semantic are both enabled. Is there a better way? |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
859 (define-key map [menu-bar cedet-menu] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
860 (list 'menu-item "Development" cedet-menu-map |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
861 :enable (quote (not (bound-and-true-p global-ede-mode))))) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
862 ;; (define-key km "-" 'senator-fold-tag) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
863 ;; (define-key km "+" 'senator-unfold-tag) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
864 map)) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
865 |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
866 ;; Activate the Semantic items in cedet-menu-map |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
867 (let ((navigate-menu (make-sparse-keymap "Navigate Tags")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
868 (edit-menu (make-sparse-keymap "Edit Tags"))) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
869 |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
870 ;; Edit Tags submenu: |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
871 (define-key edit-menu [semantic-analyze-possible-completions] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
872 '(menu-item "List Completions" semantic-analyze-possible-completions |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
873 :help "Display a list of completions for the tag at point")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
874 (define-key edit-menu [semantic-complete-analyze-inline] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
875 '(menu-item "Complete Tag Inline" semantic-complete-analyze-inline |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
876 :help "Display inline completion for the tag at point")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
877 (define-key edit-menu [semantic-completion-separator] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
878 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
879 (define-key edit-menu [senator-transpose-tags-down] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
880 '(menu-item "Transpose Tags Down" senator-transpose-tags-down |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
881 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
882 :help "Transpose the current tag and the next tag")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
883 (define-key edit-menu [senator-transpose-tags-up] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
884 '(menu-item "Transpose Tags Up" senator-transpose-tags-up |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
885 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
886 :help "Transpose the current tag and the previous tag")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
887 (define-key edit-menu [semantic-edit-separator] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
888 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
889 (define-key edit-menu [senator-yank-tag] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
890 '(menu-item "Yank Tag" senator-yank-tag |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
891 :active (not (ring-empty-p senator-tag-ring)) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
892 :help "Yank the head of the tag ring into the buffer")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
893 (define-key edit-menu [senator-copy-tag-to-register] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
894 '(menu-item "Copy Tag To Register" senator-copy-tag-to-register |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
895 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
896 :help "Yank the head of the tag ring into the buffer")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
897 (define-key edit-menu [senator-copy-tag] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
898 '(menu-item "Copy Tag" senator-copy-tag |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
899 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
900 :help "Copy the current tag to the tag ring")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
901 (define-key edit-menu [senator-kill-tag] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
902 '(menu-item "Kill Tag" senator-kill-tag |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
903 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
904 :help "Kill the current tag, and copy it to the tag ring")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
905 |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
906 ;; Navigate Tags submenu: |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
907 (define-key navigate-menu [senator-narrow-to-defun] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
908 '(menu-item "Narrow to Tag" senator-narrow-to-defun |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
909 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
910 :help "Narrow the buffer to the bounds of the current tag")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
911 (define-key navigate-menu [semantic-narrow-to-defun-separator] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
912 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
913 (define-key navigate-menu [semantic-symref-symbol] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
914 '(menu-item "Find Tag References..." semantic-symref-symbol |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
915 :help "Read a tag and list the references to it")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
916 (define-key navigate-menu [semantic-complete-jump] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
917 '(menu-item "Find Tag Globally..." semantic-complete-jump |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
918 :help "Read a tag name and find it in the current project")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
919 (define-key navigate-menu [semantic-complete-jump-local] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
920 '(menu-item "Find Tag in This Buffer..." semantic-complete-jump-local |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
921 :help "Read a tag name and find it in this buffer")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
922 (define-key navigate-menu [semantic-navigation-separator] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
923 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
924 (define-key navigate-menu [senator-go-to-up-reference] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
925 '(menu-item "Parent Tag" senator-go-to-up-reference |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
926 :help "Navigate up one reference by tag.")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
927 (define-key navigate-menu [senator-next-tag] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
928 '(menu-item "Next Tag" senator-next-tag |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
929 :help "Go to the next tag")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
930 (define-key navigate-menu [senator-previous-tag] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
931 '(menu-item "Previous Tag" senator-previous-tag |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
932 :help "Go to the previous tag")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
933 |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
934 ;; Top level menu items: |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
935 (define-key cedet-menu-map [semantic-force-refresh] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
936 '(menu-item "Reparse Buffer" semantic-force-refresh |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
937 :help "Force a full reparse of the current buffer." |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
938 :visible semantic-mode)) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
939 (define-key cedet-menu-map [semantic-edit-menu] |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
940 `(menu-item "Edit Tags" ,edit-menu |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
941 :visible semantic-mode)) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
942 (define-key cedet-menu-map [navigate-menu] |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
943 `(menu-item "Navigate Tags" ,navigate-menu |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
944 :visible semantic-mode)) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
945 (define-key cedet-menu-map [semantic-options-separator] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
946 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
947 (define-key cedet-menu-map [global-semantic-highlight-func-mode] |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
948 '(menu-item "Highlight Current Function" global-semantic-highlight-func-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
949 :help "Highlight the tag at point" |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
950 :visible semantic-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
951 :button (:toggle . global-semantic-highlight-func-mode))) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
952 (define-key cedet-menu-map [global-semantic-decoration-mode] |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
953 '(menu-item "Decorate Tags" global-semantic-decoration-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
954 :help "Decorate tags based on tag attributes" |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
955 :visible semantic-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
956 :button (:toggle . (bound-and-true-p |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
957 global-semantic-decoration-mode)))) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
958 (define-key cedet-menu-map [global-semantic-idle-completions-mode] |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
959 '(menu-item "Show Tag Completions" global-semantic-idle-completions-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
960 :help "Show tag completions when idle" |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
961 :visible semantic-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
962 :button (:toggle . global-semantic-idle-completions-mode))) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
963 (define-key cedet-menu-map [global-semantic-idle-summary-mode] |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
964 '(menu-item "Show Tag Summaries" global-semantic-idle-summary-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
965 :help "Show tag summaries when idle" |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
966 :visible semantic-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
967 :button (:toggle . global-semantic-idle-summary-mode))) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
968 (define-key cedet-menu-map [global-semanticdb-minor-mode] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
969 '(menu-item "Semantic Database" global-semanticdb-minor-mode |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
970 :help "Store tag information in a database" |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
971 :visible semantic-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
972 :button (:toggle . global-semanticdb-minor-mode))) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
973 (define-key cedet-menu-map [global-semantic-idle-scheduler-mode] |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
974 '(menu-item "Reparse When Idle" global-semantic-idle-scheduler-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
975 :help "Keep a buffer's parse tree up to date when idle" |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
976 :visible semantic-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
977 :button (:toggle . global-semantic-idle-scheduler-mode))) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
978 (define-key cedet-menu-map [ede-menu-separator] 'undefined) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
979 (define-key cedet-menu-map [cedet-menu-separator] 'undefined) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
980 (define-key cedet-menu-map [semantic-menu-separator] '("--"))) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
981 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
982 ;; The `semantic-mode' command, in conjuction with the |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
983 ;; `semantic-default-submodes' variable, toggles Semantic's various |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
984 ;; auxilliary minor modes. |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
985 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
986 (defvar semantic-load-system-cache-loaded nil |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
987 "Non nil when the Semantic system caches have been loaded. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
988 Prevent this load system from loading files in twice.") |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
989 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
990 (defconst semantic-submode-list |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
991 '(global-semantic-highlight-func-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
992 global-semantic-decoration-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
993 global-semantic-stickyfunc-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
994 global-semantic-idle-completions-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
995 global-semantic-idle-scheduler-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
996 global-semanticdb-minor-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
997 global-semantic-idle-summary-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
998 global-semantic-mru-bookmark-mode) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
999 "List of auxilliary minor modes in the Semantic package.") |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1000 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1001 ;;;###autoload |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1002 (defcustom semantic-default-submodes |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1003 '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1004 "List of auxilliary Semantic minor modes enabled by `semantic-mode'. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1005 The possible elements of this list include the following: |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1006 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1007 `semantic-highlight-func-mode' - Highlight the current tag. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1008 `semantic-decoration-mode' - Decorate tags based on various attributes. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1009 `semantic-stickyfunc-mode' - Track current function in the header-line. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1010 `semantic-idle-completions-mode' - Provide smart symbol completion |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1011 automatically when idle. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1012 `semantic-idle-scheduler-mode' - Keep a buffer's parse tree up to date. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1013 `semanticdb-minor-mode' - Store tags when a buffer is not in memory. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1014 `semantic-idle-summary-mode' - Show a summary for the code at point. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1015 `semantic-mru-bookmark-mode' - Provide `switch-to-buffer'-like |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1016 keybinding for tag names." |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1017 :group 'semantic |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1018 :type `(set ,@(mapcar (lambda (c) (list 'const c)) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1019 semantic-submode-list))) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1020 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1021 ;;;###autoload |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1022 (define-minor-mode semantic-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1023 "Toggle Semantic mode. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1024 With ARG, turn Semantic mode on if ARG is positive, off otherwise. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1025 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1026 In Semantic mode, Emacs parses the buffers you visit for their |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1027 semantic content. This information is used by a variety of |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1028 auxilliary minor modes, listed in `semantic-default-submodes'; |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1029 all the minor modes in this list are also enabled when you enable |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1030 Semantic mode. |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1031 |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1032 \\{semantic-mode-map}" |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1033 :global t |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1034 :group 'semantic |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1035 (if semantic-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1036 ;; Turn on Semantic mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1037 (progn |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1038 ;; Enable all the global auxilliary minor modes in |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1039 ;; `semantic-submode-list'. |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1040 (dolist (mode semantic-submode-list) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1041 (if (memq mode semantic-default-submodes) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1042 (funcall mode 1))) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1043 (unless semantic-load-system-cache-loaded |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1044 (setq semantic-load-system-cache-loaded t) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1045 (when (and (boundp 'semanticdb-default-system-save-directory) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1046 (stringp semanticdb-default-system-save-directory) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1047 (file-exists-p semanticdb-default-system-save-directory)) |
104512
aa2a07e5db2f
* cedet/semantic.el (semantic-parser-working-message): Use a less
Chong Yidong <cyd@stupidchicken.com>
parents:
104508
diff
changeset
|
1048 (require 'semantic/db-ebrowse) |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1049 (semanticdb-load-ebrowse-caches))) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1050 (add-hook 'mode-local-init-hook 'semantic-new-buffer-fcn) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1051 ;; Add mode-local hooks |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1052 (add-hook 'javascript-mode-hook 'wisent-javascript-setup-parser) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1053 (add-hook 'ecmascript-mode-hook 'wisent-javascript-setup-parser) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1054 (add-hook 'java-mode-hook 'wisent-java-default-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1055 (add-hook 'scheme-mode-hook 'semantic-default-scheme-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1056 (add-hook 'makefile-mode-hook 'semantic-default-make-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1057 (add-hook 'c-mode-hook 'semantic-default-c-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1058 (add-hook 'c++-mode-hook 'semantic-default-c-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1059 (add-hook 'html-mode-hook 'semantic-default-html-setup)) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1060 ;; Disable all Semantic features. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1061 (remove-hook 'mode-local-init-hook 'semantic-new-buffer-fcn) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1062 (remove-hook 'javascript-mode-hook 'wisent-javascript-setup-parser) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1063 (remove-hook 'ecmascript-mode-hook 'wisent-javascript-setup-parser) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1064 (remove-hook 'java-mode-hook 'wisent-java-default-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1065 (remove-hook 'scheme-mode-hook 'semantic-default-scheme-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1066 (remove-hook 'makefile-mode-hook 'semantic-default-make-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1067 (remove-hook 'c-mode-hook 'semantic-default-c-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1068 (remove-hook 'c++-mode-hook 'semantic-default-c-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1069 (remove-hook 'html-mode-hook 'semantic-default-html-setup) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1070 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1071 ;; FIXME: handle semanticdb-load-ebrowse-caches |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1072 (dolist (mode semantic-submode-list) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1073 (if (and (boundp mode) (eval mode)) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1074 (funcall mode -1))))) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1075 |
104508
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1076 ;;; Autoload some functions that are not in semantic/loaddefs |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1077 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1078 (autoload 'global-semantic-idle-completions-mode "semantic/idle" |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1079 "Toggle global use of `semantic-idle-completions-mode'. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1080 If ARG is positive, enable, if it is negative, disable. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1081 If ARG is nil, then toggle." t nil) |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1082 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1083 (autoload 'semantic-idle-completions-mode "semantic/idle" |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1084 "Display a list of possible completions in a tooltip. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1085 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1086 This is a minor mode which performs actions during idle time. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1087 With prefix argument ARG, turn on if positive, otherwise off. The |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1088 minor mode can be turned on only if semantic feature is available and |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1089 the current buffer was set up for parsing. Return non-nil if the |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1090 minor mode is enabled." t nil) |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1091 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1092 (autoload 'global-semantic-idle-summary-mode "semantic/idle" |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1093 "Toggle global use of `semantic-idle-summary-mode'. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1094 If ARG is positive, enable, if it is negative, disable. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1095 If ARG is nil, then toggle." t nil) |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1096 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1097 (autoload 'semantic-idle-summary-mode "semantic/idle" |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1098 "Display a tag summary of the lexical token under the cursor. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1099 Call `semantic-idle-summary-current-symbol-info' for getting the |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1100 current tag to display information. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1101 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1102 This is a minor mode which performs actions during idle time. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1103 With prefix argument ARG, turn on if positive, otherwise off. The |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1104 minor mode can be turned on only if semantic feature is available and |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1105 the current buffer was set up for parsing. Return non-nil if the |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1106 minor mode is enabled." t nil) |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1107 |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1108 (provide 'semantic) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1109 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1110 ;; Semantic-util is a part of the semantic API. Include it last |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1111 ;; because it depends on semantic. |
104412
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
1112 (require 'semantic/util) |
104470
6ccad1511df1
Minor whitespace changes and `require' fixes.
Chong Yidong <cyd@stupidchicken.com>
parents:
104449
diff
changeset
|
1113 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1114 ;; (require 'semantic/load) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1115 |
104470
6ccad1511df1
Minor whitespace changes and `require' fixes.
Chong Yidong <cyd@stupidchicken.com>
parents:
104449
diff
changeset
|
1116 ;;; semantic.el ends here |