Mercurial > emacs
annotate lisp/cedet/semantic.el @ 110149:4ac2b883320e
Forgor to save ChangeLog for previous commit.
author | Jan D. <jan.h.d@swipnet.se> |
---|---|
date | Thu, 02 Sep 2010 12:20:20 +0200 |
parents | a3e1f7134e6e |
children | b799d38f522a |
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 |
105325 | 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
106815 | 4 ;; 2008, 2009, 2010 Free Software Foundation, Inc. |
104409
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> |
110015
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
108166
diff
changeset
|
7 ;; Keywords: syntax tools |
110016
a3e1f7134e6e
Add "Version:" and "Package:" Lisp file headers.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
8 ;; Version: 2.0pre7 |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
9 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
10 ;; 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
|
11 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
12 ;; 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
|
13 ;; 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
|
14 ;; 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
|
15 ;; (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
|
16 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
17 ;; 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
|
18 ;; 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
|
19 ;; 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
|
20 ;; 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
|
21 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
22 ;; 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
|
23 ;; 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
|
24 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 ;;; Commentary: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
26 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
27 ;; 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
|
28 ;; |
106557
e60ede6c3be3
Add commentary about how to use Semantic.
Chong Yidong <cyd@stupidchicken.com>
parents:
106150
diff
changeset
|
29 ;; The Semantic API provides an interface to a series of different parser |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
30 ;; 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
|
31 ;; designed to handle typical functional and object oriented languages. |
106557
e60ede6c3be3
Add commentary about how to use Semantic.
Chong Yidong <cyd@stupidchicken.com>
parents:
106150
diff
changeset
|
32 ;; |
e60ede6c3be3
Add commentary about how to use Semantic.
Chong Yidong <cyd@stupidchicken.com>
parents:
106150
diff
changeset
|
33 ;; To enable Semantic, turn on `semantic-mode', a global minor mode |
e60ede6c3be3
Add commentary about how to use Semantic.
Chong Yidong <cyd@stupidchicken.com>
parents:
106150
diff
changeset
|
34 ;; (M-x semantic-mode RET, or "Source Code Parsers" from the Tools |
e60ede6c3be3
Add commentary about how to use Semantic.
Chong Yidong <cyd@stupidchicken.com>
parents:
106150
diff
changeset
|
35 ;; menu). To enable it at startup, put (semantic-mode 1) in your init |
e60ede6c3be3
Add commentary about how to use Semantic.
Chong Yidong <cyd@stupidchicken.com>
parents:
106150
diff
changeset
|
36 ;; file. |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
37 |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
38 (require 'cedet) |
104412
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
39 (require 'semantic/tag) |
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
40 (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
|
41 |
104493
a4e1a12c8b97
* files.el (auto-mode-alist): Use emacs-lisp-mode for Project.ede.
Chong Yidong <cyd@stupidchicken.com>
parents:
104471
diff
changeset
|
42 (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
|
43 "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
|
44 |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
45 (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
|
46 (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
|
47 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 (defun semantic-require-version (major minor &optional beta) |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
49 "Non-nil if this version of Semantic does not satisfy a specific version. |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 Arguments can be: |
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 (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
|
53 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
54 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
|
55 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
|
56 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
57 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
|
58 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
|
59 introduced." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 (require 'inversion) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 (inversion-test 'semantic |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 (concat major "." minor |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 (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
|
64 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 (defgroup semantic nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
66 "Parser Generator and parser framework." |
107167
f6b8c73548b3
Minor tweaks to custom groups.
Chong Yidong <cyd@stupidchicken.com>
parents:
106895
diff
changeset
|
67 :group 'tools) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
68 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 (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
|
70 "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
|
71 :group 'semantic) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
72 |
104412
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
73 (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
|
74 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 ;;; Code: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 ;;; Variables and Configuration |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 (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
|
81 "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
|
82 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
|
83 external parser used.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 (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
|
85 (semantic-varalias-obsolete 'semantic-toplevel-bovine-table |
105760
d0906291f75b
* cedet/semantic/fw.el (semantic-alias-obsolete)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105442
diff
changeset
|
86 'semantic--parse-table "23.2") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
87 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 (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
|
89 '((type . "Types") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
90 (variable . "Variables") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 (function . "Functions") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
92 (include . "Dependencies") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
93 (package . "Provides")) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
94 "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
|
95 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
|
96 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
|
97 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
|
98 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
|
99 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
|
100 (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
|
101 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
102 (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
|
103 "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
|
104 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
|
105 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
|
106 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
|
107 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
|
108 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
|
109 (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
|
110 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
111 (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
|
112 "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
|
113 (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
|
114 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 (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
|
116 "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
|
117 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
|
118 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
|
119 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
|
120 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
|
121 int a, b; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
122 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
|
123 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
|
124 (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
|
125 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 (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
|
127 "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
|
128 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
|
129 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
|
130 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
131 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
|
132 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 If you need a tag list, use `semantic-fetch-tags'. If you need the |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
134 cached values for some reason, chances are you can add a hook to |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 `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
|
136 (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
|
137 (semantic-varalias-obsolete 'semantic-toplevel-bovine-cache |
105760
d0906291f75b
* cedet/semantic/fw.el (semantic-alias-obsolete)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105442
diff
changeset
|
138 'semantic--buffer-cache "23.2") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
139 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
140 (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
|
141 "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
|
142 (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
|
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-unmatched-syntax-cache-check nil |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
145 "Non-nil if the unmatched syntax cache is out of date. |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
146 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
|
147 (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
|
148 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
149 (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
|
150 "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
|
151 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
|
152 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
|
153 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
|
154 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
|
155 `top-level' comments.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 (defvar semantic-unmatched-syntax-hook nil |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
158 "Hooks run when Semantic detects syntax not matched in a grammar. |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 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
|
160 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
|
161 grammar, and multiple unmatched syntax elements are not grouped |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
162 together. Each hook is called with one argument, which is a list |
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
163 of syntax tokens created by the semantic lexer. Use the functions |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
164 `semantic-lex-token-start', `semantic-lex-token-end' and |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
165 `semantic-lex-token-text' to get information about these tokens. |
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
166 The current buffer is the buffer these tokens are derived from.") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 (defvar semantic--before-fetch-tags-hook nil |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
169 "Hooks run before a buffer is parsed for tags. |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 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
|
171 `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
|
172 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
|
173 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
|
174 (semantic-varalias-obsolete 'semantic-before-toplevel-bovination-hook |
105760
d0906291f75b
* cedet/semantic/fw.el (semantic-alias-obsolete)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105442
diff
changeset
|
175 'semantic--before-fetch-tags-hook "23.2") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
176 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
177 (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
|
178 "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
|
179 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
|
180 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
|
181 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
|
182 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
183 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
|
184 Use `semantic-after-toplevel-cache-change-hook' instead.") |
105406
5b8c8cd21526
* cedet/srecode/srt-mode.el (srecode-template-mode): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
105377
diff
changeset
|
185 (make-obsolete-variable 'semantic-after-toplevel-bovinate-hook nil "23.2") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
186 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
187 (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
|
188 "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
|
189 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
|
190 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
|
191 partially reparsed. |
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 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
|
194 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
|
195 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
196 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
|
197 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
198 (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
|
199 "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
|
200 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
|
201 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
|
202 `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
|
203 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
|
204 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
205 (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
|
206 "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
|
207 :group 'semantic |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
208 :type 'boolean) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
209 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
210 (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
|
211 "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
|
212 (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
|
213 |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
214 (defvar semantic--completion-cache nil |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
215 "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
|
216 (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
|
217 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
218 ;;; 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
|
219 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
220 (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
|
221 "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
|
222 (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
|
223 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
224 (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
|
225 "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
|
226 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
|
227 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
|
228 `(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
|
229 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
230 (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
|
231 "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
|
232 `(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
|
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-set-needs-update () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
235 "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
|
236 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
|
237 `(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
|
238 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
239 (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
|
240 "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
|
241 `(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
|
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-set-needs-rebuild () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
244 "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
|
245 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
|
246 `(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
|
247 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
248 (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
|
249 "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
|
250 `(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
|
251 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
252 (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
|
253 "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
|
254 `(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
|
255 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
256 (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
|
257 "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
|
258 `(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
|
259 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
260 ;;; 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
|
261 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
262 (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
|
263 "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
|
264 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
|
265 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
|
266 :group 'semantic |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
267 :type 'hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
268 |
105441
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
269 (defcustom semantic-new-buffer-setup-functions |
106783
fc2b73c71e0f
Add Semantic parsers for Python.
Chong Yidong <cyd@stupidchicken.com>
parents:
106557
diff
changeset
|
270 '((c-mode . semantic-default-c-setup) |
105441
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
271 (c++-mode . semantic-default-c-setup) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
272 (html-mode . semantic-default-html-setup) |
106783
fc2b73c71e0f
Add Semantic parsers for Python.
Chong Yidong <cyd@stupidchicken.com>
parents:
106557
diff
changeset
|
273 (java-mode . wisent-java-default-setup) |
fc2b73c71e0f
Add Semantic parsers for Python.
Chong Yidong <cyd@stupidchicken.com>
parents:
106557
diff
changeset
|
274 (js-mode . wisent-javascript-setup-parser) |
fc2b73c71e0f
Add Semantic parsers for Python.
Chong Yidong <cyd@stupidchicken.com>
parents:
106557
diff
changeset
|
275 (python-mode . wisent-python-default-setup) |
fc2b73c71e0f
Add Semantic parsers for Python.
Chong Yidong <cyd@stupidchicken.com>
parents:
106557
diff
changeset
|
276 (scheme-mode . semantic-default-scheme-setup) |
105441
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
277 (srecode-template-mode . srecode-template-setup-parser) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
278 (makefile-automake-mode . semantic-default-make-setup) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
279 (makefile-gmake-mode . semantic-default-make-setup) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
280 (makefile-makepp-mode . semantic-default-make-setup) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
281 (makefile-bsdmake-mode . semantic-default-make-setup) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
282 (makefile-imake-mode . semantic-default-make-setup) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
283 (makefile-mode . semantic-default-make-setup)) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
284 "Alist of functions to call to set up Semantic parsing in the buffer. |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
285 Each element has the form (MODE . FN), where MODE is a value of |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
286 `major-mode' for the buffer and FN is the corresponding function |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
287 to call, with no arguments, to set up the parser. |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
288 |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
289 These functions are called by `semantic-new-buffer-fcn', before |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
290 `semantic-inhibit-functions'." |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
291 :group 'semantic |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
292 :type '(alist :key-type symbol :value-type function)) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
293 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
294 (defvar semantic-init-hook nil |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
295 "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
|
296 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
297 (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
|
298 "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
|
299 (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
|
300 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
301 (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
|
302 "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
|
303 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
|
304 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
|
305 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
|
306 |
104514
c65d65798b34
Fix last change to use semantic-varalias-obsolete.
Chong Yidong <cyd@stupidchicken.com>
parents:
104512
diff
changeset
|
307 (semantic-varalias-obsolete 'semantic-init-hooks |
105760
d0906291f75b
* cedet/semantic/fw.el (semantic-alias-obsolete)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105442
diff
changeset
|
308 'semantic-init-hook "23.2") |
104514
c65d65798b34
Fix last change to use semantic-varalias-obsolete.
Chong Yidong <cyd@stupidchicken.com>
parents:
104512
diff
changeset
|
309 (semantic-varalias-obsolete 'semantic-init-mode-hooks |
105760
d0906291f75b
* cedet/semantic/fw.el (semantic-alias-obsolete)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105442
diff
changeset
|
310 'semantic-init-mode-hook "23.2") |
104514
c65d65798b34
Fix last change to use semantic-varalias-obsolete.
Chong Yidong <cyd@stupidchicken.com>
parents:
104512
diff
changeset
|
311 (semantic-varalias-obsolete 'semantic-init-db-hooks |
105760
d0906291f75b
* cedet/semantic/fw.el (semantic-alias-obsolete)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105442
diff
changeset
|
312 'semantic-init-db-hook "23.2") |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
313 |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
314 (defvar semantic-new-buffer-fcn-was-run nil |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
315 "Non-nil after `semantic-new-buffer-fcn' has been executed.") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
316 (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
|
317 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
318 (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
|
319 "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
|
320 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
|
321 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
322 (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
|
323 "Return non-nil if the unmatched syntax cache needs a refresh. |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
324 That is, if it is dirty or if the current parse tree isn't up to date." |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
325 (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
|
326 (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
|
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-new-buffer-fcn () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
329 "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
|
330 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
|
331 `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
|
332 to use Semantic, and `semantic-init-hook' is run." |
105441
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
333 ;; In upstream Semantic, the parser setup functions are called from |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
334 ;; mode hooks. In the version bundled with Emacs, we do it here. |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
335 (let ((entry (assq major-mode semantic-new-buffer-setup-functions))) |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
336 (when entry |
457c7a0ec078
* cedet/semantic.el (semantic-new-buffer-setup-functions): New
Chong Yidong <cyd@stupidchicken.com>
parents:
105409
diff
changeset
|
337 (funcall (cdr entry)))) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
338 ;; 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
|
339 ;; 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
|
340 (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
|
341 (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
|
342 (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
|
343 'semantic-inhibit-functions))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
344 ;; 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
|
345 ;; 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
|
346 (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
|
347 nil t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
348 ;; 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
|
349 ;; 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
|
350 (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
|
351 ;; 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
|
352 ;; 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
|
353 (semantic-lex-init) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
354 ;; 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
|
355 (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
|
356 ;; 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
|
357 (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
|
358 ;; Set up semantic modes |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
359 (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
|
360 ;; 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
|
361 (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
|
362 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
363 (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
|
364 "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
|
365 (condition-case nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
366 (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
|
367 (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
368 (error nil)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
369 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
370 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
371 ;;; Parsing Commands |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
372 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
373 (eval-when-compile |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
374 (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
|
375 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
376 (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
|
377 "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
|
378 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
|
379 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
380 (defun semantic-elapsed-time (start end) |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
381 "Copied from elp.el. Was `elp-elapsed-time'. |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
382 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
|
383 (+ (* (- (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
|
384 (- (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
|
385 (/ (- (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
|
386 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
387 (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
|
388 "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
|
389 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
|
390 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
|
391 the output buffer." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
392 (interactive "P") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
393 (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
|
394 (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
|
395 (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
|
396 (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
|
397 (end (current-time))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
398 (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
|
399 (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
|
400 (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
|
401 (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
|
402 (require 'pp) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
403 (erase-buffer) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
404 (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
|
405 (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
|
406 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
407 ;;; 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
|
408 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
409 ;; 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
|
410 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
411 (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
|
412 "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
|
413 For bovine and wisent based parsers, STREAM is from the output of |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
414 `semantic-lex', and NONTERMINAL is a rule in the appropriate language |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
415 specific rules file. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
416 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
|
417 `semantic--parse-table'. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
418 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
419 Must return a list: (STREAM TAGS) where STREAM is the unused elements |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
420 from STREAM, and TAGS is the list of semantic tags found; usually only |
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
421 one tag is returned with the exception of compound statements.") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
422 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
423 (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
|
424 "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
|
425 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
|
426 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
|
427 analyze.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
428 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
429 (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
|
430 (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
|
431 "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
|
432 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
|
433 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
|
434 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
435 Optional arguments: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
436 NONTERMINAL is the rule to start parsing at. |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
437 DEPTH specifies the lexical depth to descend for parser that use |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
438 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
|
439 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
|
440 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
|
441 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
|
442 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
443 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
|
444 \(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
|
445 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
|
446 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
|
447 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
448 (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
|
449 (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
|
450 "Parse the area between START and END, and return any tags found. |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
451 If END needs to be extended due to a lexical token being too large, |
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
452 it will be silently ignored. |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
453 Optional arguments: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
454 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
|
455 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
|
456 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
|
457 unterminated syntax." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
458 (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
|
459 ;; 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
|
460 ;; 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
|
461 (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
|
462 (save-restriction |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
463 (widen) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
464 (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
|
465 (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
|
466 (nreverse |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
467 (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
|
468 (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
|
469 (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
|
470 nonterminal returnonerror)))) |
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 ;;; Parsing functions |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
473 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
474 (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
|
475 "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
|
476 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
|
477 ;; 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
|
478 ;; 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
|
479 (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
|
480 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
|
481 ;; 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
|
482 (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
|
483 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
|
484 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
485 (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
|
486 "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
|
487 (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
|
488 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
|
489 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
490 (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
|
491 "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
|
492 ;; 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
|
493 (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
|
494 ;; 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
|
495 ;; `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
|
496 (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
|
497 (condition-case nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
498 (progn |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
499 (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
|
500 (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
501 (quit |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
502 (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
|
503 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
|
504 ))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
505 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
|
506 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
507 (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
|
508 "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
|
509 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
|
510 is requested." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
511 (interactive) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
512 (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
|
513 (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
|
514 (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
|
515 (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
|
516 ;; 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
|
517 ;; 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
|
518 (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
|
519 (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
|
520 (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
|
521 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
522 (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
|
523 ;; 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
|
524 (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
|
525 ;; 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
|
526 ;;(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
|
527 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
528 (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
|
529 semantic--buffer-cache) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
530 |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
531 (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
|
532 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
533 (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
|
534 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
535 (defun semantic--set-buffer-cache (tagtable) |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
536 "Set the toplevel tag cache to TAGTABLE." |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
537 (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
|
538 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
|
539 ;; 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
|
540 (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
|
541 nil) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
542 (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
|
543 (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
|
544 (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
|
545 (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
|
546 semantic--buffer-cache) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
547 (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
|
548 ;; 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
|
549 (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
|
550 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
|
551 ;; 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
|
552 (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
|
553 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
554 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
555 (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
|
556 "*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
|
557 '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
|
558 '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
|
559 (semantic-varalias-obsolete 'semantic-bovination-working-type |
105760
d0906291f75b
* cedet/semantic/fw.el (semantic-alias-obsolete)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105442
diff
changeset
|
560 'semantic-working-type "23.2") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
561 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
562 (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
|
563 "*The minimum size of a buffer before working messages are displayed. |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
564 Buffers smaller than this will parse silently. |
105325 | 565 Buffers larger than this will display the working progress bar.") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
566 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
567 (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
|
568 "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
|
569 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
|
570 string." |
104512
aa2a07e5db2f
* cedet/semantic.el (semantic-parser-working-message): Use a less
Chong Yidong <cyd@stupidchicken.com>
parents:
104508
diff
changeset
|
571 (concat "Parsing" |
aa2a07e5db2f
* cedet/semantic.el (semantic-parser-working-message): Use a less
Chong Yidong <cyd@stupidchicken.com>
parents:
104508
diff
changeset
|
572 (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
|
573 (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
|
574 "...")) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
575 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
576 ;;; 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
|
577 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
578 ;; 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
|
579 ;; `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
|
580 ;; 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
|
581 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
582 (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
|
583 "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
|
584 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
|
585 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
|
586 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
|
587 fails, then parse the entire buffer. |
105325 | 588 If a lexical error had been previously discovered and the buffer |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
589 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
|
590 (and |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
591 ;; 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
|
592 (semantic-active-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
593 ;; 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
|
594 (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
|
595 '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
|
596 (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
|
597 '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
|
598 ;; 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
|
599 ;; 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
|
600 (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
|
601 ;; 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
|
602 (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
|
603 ;; So do it! |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
604 (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
|
605 (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
|
606 (res nil)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
607 (garbage-collect) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
608 (cond |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
609 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
610 ;;;; 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
|
611 ((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
|
612 (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
|
613 (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
|
614 ;; 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
|
615 (semantic-fetch-tags) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
616 ;; 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
|
617 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
618 ;; NOTE TO SELF: |
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 ;; 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
|
621 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
622 (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
|
623 (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
|
624 '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
|
625 (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
|
626 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
627 ;;;; 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
|
628 ((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
|
629 ;; 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
|
630 (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
|
631 (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
|
632 (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
|
633 (make-progress-reporter |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
634 (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
|
635 0 100)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
636 (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
|
637 (if semantic--progress-reporter |
64ff46db1dda
lisp/cedet/semantic.el (semantic-fetch-tags): Check if progress
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
638 (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
|
639 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
640 ;; 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
|
641 ;; 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
|
642 (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
|
643 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
|
644 semantic-parser-warnings) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
645 (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
|
646 ;; 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
|
647 (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
|
648 ;; 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
|
649 (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
|
650 )))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
651 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
652 ;; 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
|
653 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
654 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
655 (defun semantic-refresh-tags-safe () |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
656 "Refresh the current buffer's tags safely. |
104409
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 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
|
659 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
|
660 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
661 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
|
662 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
663 ;; 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
|
664 ;; 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
|
665 ;; 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
|
666 (cond |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
667 ;; 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
|
668 ;; 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
|
669 ((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
|
670 nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
671 ;; 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
|
672 ((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
|
673 t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
674 (t |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
675 (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
|
676 (lexically-safe t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
677 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
678 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
679 (unwind-protect |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
680 ;; Perform the parsing. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
681 (progn |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
682 (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
|
683 (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
|
684 nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
685 ;; 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
|
686 ;; 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
|
687 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
688 ;; 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
|
689 ;; 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
|
690 ;; 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
|
691 (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
|
692 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
693 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
694 ;; 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
|
695 lexically-safe)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
696 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
697 (defun semantic-bovinate-toplevel (&optional ignored) |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
698 "Backward compatibility function." |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
699 (semantic-fetch-tags)) |
105406
5b8c8cd21526
* cedet/srecode/srt-mode.el (srecode-template-mode): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
105377
diff
changeset
|
700 (make-obsolete 'semantic-bovinate-toplevel 'semantic-fetch-tags "23.2") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
701 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
702 ;; 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
|
703 ;; 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
|
704 ;; 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
|
705 ;; 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
|
706 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
707 (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
|
708 "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
|
709 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
|
710 current buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
711 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
|
712 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
|
713 `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
|
714 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
|
715 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
716 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
717 ;;; 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
|
718 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
719 ;; 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
|
720 ;; 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
|
721 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
722 ;; `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
|
723 ;; 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
|
724 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
725 (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
|
726 (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
|
727 "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
|
728 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
|
729 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
|
730 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
|
731 (let ((result nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
732 (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
|
733 nontermsym tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
734 (while stream |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
735 (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
|
736 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
|
737 (if (not nontermsym) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
738 (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
|
739 (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
|
740 (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
|
741 (if tag |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
742 (if (car tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
743 (setq tag (mapcar |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
744 #'(lambda (tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
745 ;; 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
|
746 ;; 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
|
747 ;; 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
|
748 (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
|
749 tag 'reparse-symbol) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
750 (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
|
751 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
|
752 tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
753 (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
|
754 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
|
755 ;; 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
|
756 ;; store anything. |
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 (if returnonerror |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
759 (setq stream nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
760 ;; 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
|
761 ;; 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
|
762 (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
|
763 (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
|
764 )) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
765 ;; Designated to ignore. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
766 (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
|
767 (if stream |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
768 ;; 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
|
769 (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
|
770 semantic--progress-reporter |
104439
da5b2513c225
cedet/cedet.el (cedet-packages): Bump srecode version.
Chong Yidong <cyd@stupidchicken.com>
parents:
104412
diff
changeset
|
771 (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
|
772 (progress-reporter-update |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
773 semantic--progress-reporter |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
774 (/ (* 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
|
775 (point-max)))))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
776 result)) |
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 ;;; Parsing Warnings: |
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 ;; 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
|
781 ;; 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
|
782 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
783 ;; 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
|
784 ;; 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
|
785 (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
|
786 "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
|
787 (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
|
788 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
789 (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
|
790 "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
|
791 (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
|
792 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
793 (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
|
794 "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
|
795 (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
|
796 (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
|
797 semantic-parser-warnings))) |
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 (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
|
800 "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
|
801 (interactive) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
802 (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
|
803 (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
|
804 (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
|
805 (require 'pp) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
806 (erase-buffer) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
807 (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
|
808 (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
|
809 (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
|
810 |
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 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
813 ;;; Compatibility: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
814 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
815 ;; 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
|
816 ;; 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
|
817 ;; interfaces instead. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
818 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
819 (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
|
820 (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
|
821 "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
|
822 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
823 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
|
824 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
|
825 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
|
826 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
|
827 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
|
828 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
|
829 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
|
830 (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
|
831 (make-obsolete 'semantic-bovinate-region-until-error |
105406
5b8c8cd21526
* cedet/srecode/srt-mode.el (srecode-template-mode): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
105377
diff
changeset
|
832 'semantic-parse-region "23.2") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
833 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
834 (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
|
835 (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
|
836 "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
|
837 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
|
838 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
|
839 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
|
840 END part. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
841 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
|
842 tokens." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
843 (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
|
844 (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
|
845 nonterm)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
846 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
847 (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
|
848 (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
|
849 "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
|
850 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
851 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
|
852 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
|
853 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
|
854 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
|
855 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
|
856 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
|
857 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
|
858 (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
|
859 (make-obsolete 'semantic-bovinate-from-nonterminal-full |
105406
5b8c8cd21526
* cedet/srecode/srt-mode.el (srecode-template-mode): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
105377
diff
changeset
|
860 'semantic-parse-region "23.2") |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
861 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
862 ;;; User interface |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
863 |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
864 (defun semantic-force-refresh () |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
865 "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
|
866 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
|
867 (interactive) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
868 (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
|
869 (semantic-fetch-tags) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
870 (message "Buffer reparsed.")) |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
871 |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
872 (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
|
873 (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
|
874 ;; Key bindings: |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
875 ;; (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
|
876 ;; (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
|
877 (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
|
878 (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
|
879 (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
|
880 (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
|
881 (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
|
882 (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
|
883 (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
|
884 (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
|
885 (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
|
886 (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
|
887 (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
|
888 (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
|
889 (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
|
890 (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
|
891 (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
|
892 ;; 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
|
893 ;; 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
|
894 (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
|
895 (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
|
896 :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
|
897 ;; (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
|
898 ;; (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
|
899 map)) |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
900 |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
901 ;; 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
|
902 (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
|
903 (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
|
904 |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
905 ;; Edit Tags submenu: |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
906 (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
|
907 '(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
|
908 :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
|
909 (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
|
910 '(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
|
911 :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
|
912 (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
|
913 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
914 (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
|
915 '(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
|
916 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
917 :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
|
918 (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
|
919 '(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
|
920 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
921 :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
|
922 (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
|
923 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
924 (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
|
925 '(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
|
926 :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
|
927 :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
|
928 (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
|
929 '(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
|
930 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
931 :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
|
932 (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
|
933 '(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
|
934 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
935 :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
|
936 (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
|
937 '(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
|
938 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
939 :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
|
940 |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
941 ;; Navigate Tags submenu: |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
942 (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
|
943 '(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
|
944 :active (semantic-current-tag) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
945 :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
|
946 (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
|
947 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
948 (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
|
949 '(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
|
950 :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
|
951 (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
|
952 '(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
|
953 :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
|
954 (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
|
955 '(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
|
956 :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
|
957 (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
|
958 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
959 (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
|
960 '(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
|
961 :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
|
962 (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
|
963 '(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
|
964 :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
|
965 (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
|
966 '(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
|
967 :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
|
968 |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
969 ;; Top level menu items: |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
970 (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
|
971 '(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
|
972 :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
|
973 :visible semantic-mode)) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
974 (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
|
975 `(menu-item "Edit Tags" ,edit-menu |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
976 :visible semantic-mode)) |
104523
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
977 (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
|
978 `(menu-item "Navigate Tags" ,navigate-menu |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
979 :visible semantic-mode)) |
104523
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-options-separator] |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
981 '("--")) |
18ae68cd64bd
* cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents:
104519
diff
changeset
|
982 (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
|
983 '(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
|
984 :help "Highlight the tag at point" |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
985 :visible semantic-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
986 :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
|
987 (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
|
988 '(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
|
989 :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
|
990 :visible semantic-mode |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
991 :button (:toggle . (bound-and-true-p |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
992 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
|
993 (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
|
994 '(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
|
995 :help "Show tag completions when idle" |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
996 :visible semantic-mode |
106150
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
997 :enable global-semantic-idle-scheduler-mode |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
998 :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
|
999 (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
|
1000 '(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
|
1001 :help "Show tag summaries when idle" |
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
1002 :visible semantic-mode |
106150
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1003 :enable global-semantic-idle-scheduler-mode |
104524
fbd55cc47b77
* cedet/ede/system.el (ede-upload-html-documentation)
Chong Yidong <cyd@stupidchicken.com>
parents:
104523
diff
changeset
|
1004 :button (:toggle . global-semantic-idle-summary-mode))) |
106150
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1005 (define-key cedet-menu-map [global-semantic-idle-scheduler-mode] |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1006 '(menu-item "Reparse When Idle" global-semantic-idle-scheduler-mode |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1007 :help "Keep a buffer's parse tree up to date when idle" |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1008 :visible semantic-mode |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1009 :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
|
1010 (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
|
1011 '(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
|
1012 :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
|
1013 :visible semantic-mode |
106150
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1014 :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
|
1015 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1016 ;; 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
|
1017 ;; `semantic-default-submodes' variable, toggles Semantic's various |
106876
ad7558737bc7
Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
1018 ;; auxiliary minor modes. |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1019 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1020 (defvar semantic-load-system-cache-loaded nil |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
1021 "Non-nil when the Semantic system caches have been loaded. |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1022 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
|
1023 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1024 (defconst semantic-submode-list |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1025 '(global-semantic-highlight-func-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1026 global-semantic-decoration-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1027 global-semantic-stickyfunc-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1028 global-semantic-idle-completions-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1029 global-semantic-idle-scheduler-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1030 global-semanticdb-minor-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1031 global-semantic-idle-summary-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1032 global-semantic-mru-bookmark-mode) |
105325 | 1033 "List of auxiliary minor modes in the Semantic package.") |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1034 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1035 ;;;###autoload |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1036 (defcustom semantic-default-submodes |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1037 '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode) |
105325 | 1038 "List of auxiliary Semantic minor modes enabled by `semantic-mode'. |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1039 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
|
1040 |
106150
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1041 `global-semanticdb-minor-mode' - Maintain tag database. |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1042 `global-semantic-idle-scheduler-mode' - Reparse buffer when idle. |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1043 `global-semantic-idle-summary-mode' - Show summary of tag at point. |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1044 `global-semantic-idle-completions-mode' - Show completions when idle. |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1045 `global-semantic-decoration-mode' - Additional tag decorations. |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1046 `global-semantic-highlight-func-mode' - Highlight the current tag. |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1047 `global-semantic-stickyfunc-mode' - Show current fun in header line. |
269b53d49dd9
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents:
105815
diff
changeset
|
1048 `global-semantic-mru-bookmark-mode' - Provide `switch-to-buffer'-like |
106895
181539c8b6a4
Fix typos in docstrings, error messages, etc.
Juanma Barranquero <lekktu@gmail.com>
parents:
106876
diff
changeset
|
1049 keybinding for tag names." |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1050 :group 'semantic |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1051 :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
|
1052 semantic-submode-list))) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1053 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1054 ;;;###autoload |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1055 (define-minor-mode semantic-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1056 "Toggle Semantic mode. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1057 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
|
1058 |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1059 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
|
1060 semantic content. This information is used by a variety of |
106876
ad7558737bc7
Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
1061 auxiliary minor modes, listed in `semantic-default-submodes'; |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1062 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
|
1063 Semantic mode. |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1064 |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1065 \\{semantic-mode-map}" |
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1066 :global t |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1067 :group 'semantic |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1068 (if semantic-mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1069 ;; Turn on Semantic mode |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1070 (progn |
106876
ad7558737bc7
Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
1071 ;; Enable all the global auxiliary minor modes in |
104519
934691bc93ed
* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer):
Chong Yidong <cyd@stupidchicken.com>
parents:
104514
diff
changeset
|
1072 ;; `semantic-submode-list'. |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1073 (dolist (mode semantic-submode-list) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1074 (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
|
1075 (funcall mode 1))) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1076 (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
|
1077 (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
|
1078 (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
|
1079 (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
|
1080 (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
|
1081 (require 'semantic/db-ebrowse) |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1082 (semanticdb-load-ebrowse-caches))) |
105442
96247a7ec10d
* cedet/semantic.el (semantic-mode): Parse all existing buffers when
Chong Yidong <cyd@stupidchicken.com>
parents:
105441
diff
changeset
|
1083 (add-hook 'mode-local-init-hook 'semantic-new-buffer-fcn) |
108159
56d11bda8235
Unify complete-symbol with completion-at-point.
Chong Yidong <cyd@stupidchicken.com>
parents:
107167
diff
changeset
|
1084 ;; Add semantic-ia-complete-symbol to |
56d11bda8235
Unify complete-symbol with completion-at-point.
Chong Yidong <cyd@stupidchicken.com>
parents:
107167
diff
changeset
|
1085 ;; completion-at-point-functions, so that it is run from |
56d11bda8235
Unify complete-symbol with completion-at-point.
Chong Yidong <cyd@stupidchicken.com>
parents:
107167
diff
changeset
|
1086 ;; M-TAB. |
108166
15deb8699a13
* minibuffer.el (tags-completion-at-point-function): New function.
Chong Yidong <cyd@stupidchicken.com>
parents:
108159
diff
changeset
|
1087 (add-hook 'completion-at-point-functions |
15deb8699a13
* minibuffer.el (tags-completion-at-point-function): New function.
Chong Yidong <cyd@stupidchicken.com>
parents:
108159
diff
changeset
|
1088 'semantic-completion-at-point-function) |
105815
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105760
diff
changeset
|
1089 (if global-ede-mode |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105760
diff
changeset
|
1090 (define-key cedet-menu-map [cedet-menu-separator] '("--"))) |
105442
96247a7ec10d
* cedet/semantic.el (semantic-mode): Parse all existing buffers when
Chong Yidong <cyd@stupidchicken.com>
parents:
105441
diff
changeset
|
1091 (dolist (b (buffer-list)) |
96247a7ec10d
* cedet/semantic.el (semantic-mode): Parse all existing buffers when
Chong Yidong <cyd@stupidchicken.com>
parents:
105441
diff
changeset
|
1092 (with-current-buffer b |
96247a7ec10d
* cedet/semantic.el (semantic-mode): Parse all existing buffers when
Chong Yidong <cyd@stupidchicken.com>
parents:
105441
diff
changeset
|
1093 (semantic-new-buffer-fcn)))) |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1094 ;; Disable all Semantic features. |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1095 (remove-hook 'mode-local-init-hook 'semantic-new-buffer-fcn) |
108166
15deb8699a13
* minibuffer.el (tags-completion-at-point-function): New function.
Chong Yidong <cyd@stupidchicken.com>
parents:
108159
diff
changeset
|
1096 (remove-hook 'completion-at-point-functions |
15deb8699a13
* minibuffer.el (tags-completion-at-point-function): New function.
Chong Yidong <cyd@stupidchicken.com>
parents:
108159
diff
changeset
|
1097 'semantic-completion-at-point-function) |
105815
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105760
diff
changeset
|
1098 (define-key cedet-menu-map [cedet-menu-separator] nil) |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105760
diff
changeset
|
1099 (define-key cedet-menu-map [semantic-options-separator] nil) |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1100 ;; 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
|
1101 (dolist (mode semantic-submode-list) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1102 (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
|
1103 (funcall mode -1))))) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1104 |
108166
15deb8699a13
* minibuffer.el (tags-completion-at-point-function): New function.
Chong Yidong <cyd@stupidchicken.com>
parents:
108159
diff
changeset
|
1105 (defun semantic-completion-at-point-function () |
15deb8699a13
* minibuffer.el (tags-completion-at-point-function): New function.
Chong Yidong <cyd@stupidchicken.com>
parents:
108159
diff
changeset
|
1106 'semantic-ia-complete-symbol) |
15deb8699a13
* minibuffer.el (tags-completion-at-point-function): New function.
Chong Yidong <cyd@stupidchicken.com>
parents:
108159
diff
changeset
|
1107 |
104508
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1108 ;;; 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
|
1109 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1110 (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
|
1111 "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
|
1112 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
|
1113 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
|
1114 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1115 (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
|
1116 "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
|
1117 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1118 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
|
1119 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
|
1120 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
|
1121 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
|
1122 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
|
1123 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1124 (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
|
1125 "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
|
1126 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
|
1127 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
|
1128 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1129 (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
|
1130 "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
|
1131 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
|
1132 current tag to display information. |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1133 |
90ca5d588aa9
* cedet/semantic.el: Add autoloads for semantic/idle functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
104506
diff
changeset
|
1134 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
|
1135 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
|
1136 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
|
1137 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
|
1138 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
|
1139 |
105406
5b8c8cd21526
* cedet/srecode/srt-mode.el (srecode-template-mode): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
105377
diff
changeset
|
1140 (autoload 'srecode-template-setup-parser "srecode/srecode-template" |
5b8c8cd21526
* cedet/srecode/srt-mode.el (srecode-template-mode): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
105377
diff
changeset
|
1141 "Set up buffer for parsing SRecode template files." t nil) |
5b8c8cd21526
* cedet/srecode/srt-mode.el (srecode-template-mode): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
105377
diff
changeset
|
1142 |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1143 (provide 'semantic) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1144 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1145 ;; 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
|
1146 ;; 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
|
1147 (require 'semantic/util) |
104470
6ccad1511df1
Minor whitespace changes and `require' fixes.
Chong Yidong <cyd@stupidchicken.com>
parents:
104449
diff
changeset
|
1148 |
104506
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1149 ;; (require 'semantic/load) |
801834237f9c
* menu-bar.el: Remove ediff-misc from Tools menu.
Chong Yidong <cyd@stupidchicken.com>
parents:
104493
diff
changeset
|
1150 |
105377 | 1151 ;; arch-tag: 31583e10-6508-41a9-be40-f83d0ae0a4ed |
104470
6ccad1511df1
Minor whitespace changes and `require' fixes.
Chong Yidong <cyd@stupidchicken.com>
parents:
104449
diff
changeset
|
1152 ;;; semantic.el ends here |