Mercurial > emacs
annotate lisp/cedet/semantic.el @ 104476:1da44e87bf90
lisp/cedet/semantic/sort.el (semantic-tag-external-class-default)
(semantic-tag-external-member-children-default): Require
semantic/db-mode instead of checking if semanticdb-minor-mode-p is
bound.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 07 Sep 2009 16:34:35 +0000 |
parents | 64ff46db1dda |
children | a4e1a12c8b97 |
rev | line source |
---|---|
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1 ;;; semantic.el --- Semantic buffer evaluator. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
3 ;;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
4 ;;; 2007, 2008, 2009 Free Software Foundation, Inc. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
5 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
6 ;; Author: Eric M. Ludlam <zappo@gnu.org> |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
7 ;; Keywords: syntax |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
8 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
10 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
14 ;; (at your option) any later version. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
15 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
20 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
23 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
24 ;;; Commentary: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
26 ;; API for providing the semantic content of a buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
27 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
28 ;; The semantic API provides an interface to a series of different parser |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
29 ;; implementations. Each parser outputs a parse tree in a similar format |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
30 ;; designed to handle typical functional and object oriented languages. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
31 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
32 (eval-and-compile |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
33 ;; Other package depend on this value at compile time via inversion. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
34 (defvar semantic-version "2.0pre7" |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
35 "Current version of Semantic.")) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
36 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
37 (require 'assoc) |
104412
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
38 (require 'semantic/tag) |
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
39 (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
|
40 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
41 (declare-function inversion-test "inversion") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
43 (defun semantic-require-version (major minor &optional beta) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 "Non-nil if this version of semantic does not satisfy a specific version. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
45 Arguments can be: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
46 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
47 (MAJOR MINOR &optional BETA) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 Values MAJOR and MINOR must be integers. BETA can be an integer, or |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 excluded if a released version is required. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
52 It is assumed that if the current version is newer than that specified, |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
53 everything passes. Exceptions occur when known incompatibilities are |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
54 introduced." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
55 (require 'inversion) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 (inversion-test 'semantic |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
57 (concat major "." minor |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
58 (when beta (concat "beta" beta))))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 (defgroup semantic nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 "Parser Generator and parser framework." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 :group 'lisp) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
64 (defgroup semantic-faces nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 "Faces used for Semantic enabled tools." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
66 :group 'semantic) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
67 |
104412
05443eb58935
cedet/semantic.el: Change requires to use semantic/FOO format.
Chong Yidong <cyd@stupidchicken.com>
parents:
104409
diff
changeset
|
68 (require 'semantic/fw) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
70 ;;; Code: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
71 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
72 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
73 ;;; Variables and Configuration |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
74 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 (defvar semantic--parse-table nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 "Variable that defines how to parse top level items in a buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 This variable is for internal use only, and its content depends on the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 external parser used.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 (make-variable-buffer-local 'semantic--parse-table) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 (semantic-varalias-obsolete 'semantic-toplevel-bovine-table |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
81 'semantic--parse-table) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
82 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 (defvar semantic-symbol->name-assoc-list |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 '((type . "Types") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
85 (variable . "Variables") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 (function . "Functions") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
87 (include . "Dependencies") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 (package . "Provides")) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
89 "Association between symbols returned, and a string. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
90 The string is used to represent a group of objects of the given type. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 It is sometimes useful for a language to use a different string |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
92 in place of the default, even though that language will still |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
93 return a symbol. For example, Java return's includes, but the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
94 string can be replaced with `Imports'.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
95 (make-variable-buffer-local 'semantic-symbol->name-assoc-list) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
96 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 (defvar semantic-symbol->name-assoc-list-for-type-parts nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 "Like `semantic-symbol->name-assoc-list' for type parts. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
99 Some tags that have children (see `semantic-tag-children-compatibility') |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
100 will want to define the names of classes of tags differently than at |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
101 the top level. For example, in C++, a Function may be called a |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
102 Method. In addition, there may be new types of tags that exist only |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 in classes, such as protection labels.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
104 (make-variable-buffer-local 'semantic-symbol->name-assoc-list-for-type-parts) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
105 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 (defvar semantic-case-fold nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 "Value for `case-fold-search' when parsing.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
108 (make-variable-buffer-local 'semantic-case-fold) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
110 (defvar semantic-expand-nonterminal nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
111 "Function to call for each nonterminal production. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 Return a list of non-terminals derived from the first argument, or nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
113 if it does not need to be expanded. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
114 Languages with compound definitions should use this function to expand |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 from one compound symbol into several. For example, in C the definition |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
116 int a, b; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
117 is easily parsed into one tag. This function should take this |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
118 compound tag and turn it into two tags, one for A, and the other for B.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
119 (make-variable-buffer-local 'semantic-expand-nonterminal) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
120 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
121 (defvar semantic--buffer-cache nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
122 "A cache of the fully parsed buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
123 If no significant changes have been made (based on the state) then |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
124 this is returned instead of re-parsing the buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
125 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 DO NOT USE THIS VARIABLE IN PROGRAMS. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
127 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
128 If you need a tag list, use `semantic-fetch-tags'. If you need the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
129 cached values for some reason, chances are you can, add a hook to |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
130 `semantic-after-toplevel-cache-change-hook'.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
131 (make-variable-buffer-local 'semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
132 (semantic-varalias-obsolete 'semantic-toplevel-bovine-cache |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 'semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
134 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 (defvar semantic-unmatched-syntax-cache nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
136 "A cached copy of unmatched syntax tokens.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
137 (make-variable-buffer-local 'semantic-unmatched-syntax-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
138 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
139 (defvar semantic-unmatched-syntax-cache-check nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
140 "Non nil if the unmatched syntax cache is out of date. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
141 This is tracked with `semantic-change-function'.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
142 (make-variable-buffer-local 'semantic-unmatched-syntax-cache-check) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
143 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
144 (defvar semantic-edits-are-safe nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
145 "When non-nil, modifications do not require a reparse. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
146 This prevents tags from being marked dirty, and it prevents top level |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 edits from causing a cache check. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
148 Use this when writing programs that could cause a full reparse, but |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
149 will not change the tag structure, such as adding or updating |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
150 `top-level' comments.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
151 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
152 (defvar semantic-unmatched-syntax-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
153 "Hooks run when semantic detects syntax not matched in a grammar. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
154 Each individual piece of syntax (such as a symbol or punctuation |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
155 character) is called with this hook when it doesn't match in the |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 grammar, and multiple unmatched syntax elements are not grouped |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 together. Each hook is called with one argument, which is a list of |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 syntax tokens created by the semantic lexer. Use the functions |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 `semantic-lex-token-start', `semantic-lex-token-end' and |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
160 `semantic-lex-token-text' to get information about these tokens. The |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
161 current buffer is the buffer these tokens are derived from.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 (defvar semantic--before-fetch-tags-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
164 "Hooks run before a buffer is parses for tags. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
165 It is called before any request for tags is made via the function |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
166 `semantic-fetch-tags' by an application. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 If any hook returns a nil value, the cached value is returned |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 immediately, even if it is empty.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
169 (semantic-varalias-obsolete 'semantic-before-toplevel-bovination-hook |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 'semantic--before-fetch-tags-hook) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
172 (defvar semantic-after-toplevel-bovinate-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
173 "Hooks run after a toplevel parse. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
174 It is not run if the toplevel parse command is called, and buffer does |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
175 not need to be fully reparsed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
176 For language specific hooks, make sure you define this as a local hook. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
177 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
178 This hook should not be used any more. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
179 Use `semantic-after-toplevel-cache-change-hook' instead.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
180 (make-obsolete-variable 'semantic-after-toplevel-bovinate-hook nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
181 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
182 (defvar semantic-after-toplevel-cache-change-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
183 "Hooks run after the buffer tag list has changed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
184 This list will change when a buffer is reparsed, or when the tag list |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
185 in a buffer is cleared. It is *NOT* called if the current tag list is |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
186 partially reparsed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
187 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
188 Hook functions must take one argument, which is the new list of tags |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
189 associated with this buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
190 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
191 For language specific hooks, make sure you define this as a local hook.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
192 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
193 (defvar semantic-before-toplevel-cache-flush-hook nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
194 "Hooks run before the toplevel tag cache is flushed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
195 For language specific hooks, make sure you define this as a local |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
196 hook. This hook is called before a corresponding |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
197 `semantic-after-toplevel-cache-change-hook' which is also called |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
198 during a flush when the cache is given a new value of nil.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
199 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
200 (defcustom semantic-dump-parse nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
201 "When non-nil, dump parsing information." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
202 :group 'semantic |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
203 :type 'boolean) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
204 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
205 (defvar semantic-parser-name "LL" |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
206 "Optional name of the parser used to parse input stream.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
207 (make-variable-buffer-local 'semantic-parser-name) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
208 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
209 ;;; 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
|
210 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
211 (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
|
212 "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
|
213 (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
|
214 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
215 (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
|
216 "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
|
217 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
|
218 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
|
219 `(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
|
220 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
221 (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
|
222 "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
|
223 `(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
|
224 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
225 (defmacro semantic-parse-tree-set-needs-update () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
226 "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
|
227 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
|
228 `(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
|
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-needs-update-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 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
|
232 `(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
|
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-rebuild () |
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 rebuilt. |
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 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
|
237 `(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
|
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-rebuild-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 rebuilt." |
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-rebuild)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
242 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
243 (defmacro semantic-parse-tree-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
|
244 "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
|
245 `(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
|
246 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
247 (defmacro semantic-parse-tree-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
|
248 "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
|
249 `(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
|
250 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
251 ;;; 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
|
252 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
253 (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
|
254 "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
|
255 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
|
256 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
|
257 :group 'semantic |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
258 :type 'hook) |
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 (defvar semantic-init-hooks nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
261 "*Hooks run when a buffer is initialized with a parsing table.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
262 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
263 (defvar semantic-init-mode-hooks nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
264 "*Hooks run when a buffer of a particular mode is initialized.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
265 (make-variable-buffer-local 'semantic-init-mode-hooks) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
266 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
267 (defvar semantic-init-db-hooks nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
268 "Hooks run when a buffer is initialized with a parsing table for DBs. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
269 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
|
270 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
|
271 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
|
272 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
273 (defvar semantic-new-buffer-fcn-was-run nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
274 "Non nil after `semantic-new-buffer-fcn' has been executed.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
275 (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
|
276 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
277 (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
|
278 "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
|
279 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
|
280 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
281 (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
|
282 "Return non-nil if the unmatched syntax cache needs a refresh. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
283 That is if it is dirty or if the current parse tree isn't up to date." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
284 (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
|
285 (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
|
286 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
287 (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
|
288 "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
|
289 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
|
290 `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
|
291 to use Semantic, and `semantic-init-hook' is run." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
292 ;; 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
|
293 ;; 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
|
294 (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
|
295 (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
|
296 (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
|
297 'semantic-inhibit-functions))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
298 ;; 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
|
299 ;; 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
|
300 (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
|
301 nil t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
302 ;; 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
|
303 ;; 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
|
304 (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
|
305 ;; 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
|
306 ;; 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
|
307 (semantic-lex-init) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
308 ;; 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
|
309 (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
|
310 ;; Call DB hooks before regular init hooks |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
311 (run-hooks 'semantic-init-db-hooks) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
312 ;; Set up semantic modes |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
313 (run-hooks 'semantic-init-hooks) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
314 ;; Set up major-mode specific semantic modes |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
315 (run-hooks 'semantic-init-mode-hooks) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
316 )) |
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 (add-hook 'mode-local-init-hook '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
|
319 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
320 ;; Test the above hook. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
321 ;;(add-hook 'semantic-init-hooks (lambda () (message "init for semantic"))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
322 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
323 (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
|
324 "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
|
325 (condition-case nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
326 (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
|
327 (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
328 (error nil)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
329 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
330 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
331 (if (boundp 'eval-defun-hooks) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
332 (add-hook 'eval-defun-hooks '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
|
333 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
334 ;;; Parsing Commands |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
335 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
336 (eval-when-compile |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
337 (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
|
338 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
339 (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
|
340 "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
|
341 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
|
342 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
343 (defun semantic-elapsed-time (start end) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
344 "Copied from elp.el. Was elp-elapsed-time. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
345 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
|
346 (+ (* (- (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
|
347 (- (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
|
348 (/ (- (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
|
349 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
350 (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
|
351 "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
|
352 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
|
353 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
|
354 the output buffer." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
355 (interactive "P") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
356 (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
|
357 (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
|
358 (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
|
359 (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
|
360 (end (current-time))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
361 (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
|
362 (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
|
363 (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
|
364 (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
|
365 (require 'pp) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
366 (erase-buffer) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
367 (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
|
368 (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
|
369 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
370 ;;; 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
|
371 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
372 ;; 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
|
373 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
374 (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
|
375 "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
|
376 For bovine and wisent based parsers, STREAM is from the output of |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
377 `semantic-lex', and NONTERMINAL is a rule in the apropriate language |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
378 specific rules file. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
379 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
|
380 `semantic--parse-table'. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
381 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
382 Must return a list: (STREAM TAGS) where STREAM is the unused elements |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
383 from STREAM, and TAGS is the list of semantic tags found, usually only |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
384 one tag is returned with the exception of compound statements") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
385 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
386 (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
|
387 "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
|
388 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
|
389 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
|
390 analyze.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
391 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
392 (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
|
393 (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
|
394 "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
|
395 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
|
396 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
|
397 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
398 Optional arguments: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
399 NONTERMINAL is the rule to start parsing at. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
400 DEPTH specifies the lexical depth to decend for parser that use |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
401 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
|
402 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
|
403 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
|
404 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
|
405 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
406 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
|
407 \(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
|
408 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
|
409 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
|
410 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
411 (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
|
412 (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
|
413 "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
|
414 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
|
415 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
|
416 Optional arguments: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
417 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
|
418 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
|
419 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
|
420 unterminated syntax." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
421 (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
|
422 ;; 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
|
423 ;; 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
|
424 (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
|
425 (save-restriction |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
426 (widen) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
427 (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
|
428 (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
|
429 (nreverse |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
430 (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
|
431 (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
|
432 (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
|
433 nonterminal returnonerror)))) |
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 ;;; Parsing functions |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
436 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
437 (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
|
438 "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
|
439 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
|
440 ;; 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
|
441 ;; 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
|
442 (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
|
443 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
|
444 ;; 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
|
445 (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
|
446 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
|
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-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
|
449 "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
|
450 (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
|
451 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
|
452 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
453 (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
|
454 "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
|
455 ;; 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
|
456 (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
|
457 ;; 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
|
458 ;; `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
|
459 (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
|
460 (condition-case nil |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
461 (progn |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
462 (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
|
463 (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
464 (quit |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
465 (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
|
466 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
|
467 ))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
468 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
|
469 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
470 (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
|
471 "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
|
472 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
|
473 is requested." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
474 (interactive) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
475 (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
|
476 (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
|
477 (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
|
478 (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
|
479 ;; 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
|
480 ;; 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
|
481 (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
|
482 (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
|
483 (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
|
484 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
485 (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
|
486 ;; 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
|
487 (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
|
488 ;; 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
|
489 ;;(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
|
490 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
491 (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
|
492 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
493 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
494 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
495 (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
|
496 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
497 (defun semantic--set-buffer-cache (tagtable) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
498 "Set the toplevel cache cache to TAGTABLE." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
499 (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
|
500 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
|
501 ;; 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
|
502 (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
|
503 nil) |
104409
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
504 (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
|
505 (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
|
506 (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
|
507 (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
|
508 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
509 ;; 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
|
510 (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
|
511 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
|
512 ;; 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
|
513 (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
|
514 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
515 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
516 (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
|
517 "*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
|
518 '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
|
519 '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
|
520 (semantic-varalias-obsolete 'semantic-bovination-working-type |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
521 'semantic-working-type) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
522 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
523 (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
|
524 "*The minimum size of a buffer before working messages are displayed. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
525 Buffers smaller than will parse silently. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
526 Bufferse larger than this will display the working progress bar.") |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
527 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
528 (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
|
529 "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
|
530 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
|
531 string." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
532 (if semantic-parser-name |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
533 (format "%s/%s" semantic-parser-name (or arg "")) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
534 (format "%s" (or arg "")))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
535 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
536 ;;; 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
|
537 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
538 ;; 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
|
539 ;; `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
|
540 ;; 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
|
541 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
542 (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
|
543 "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
|
544 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
|
545 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
|
546 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
|
547 fails, then parse the entire buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
548 If a lexcial error had been previously discovered and the buffer |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
549 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
|
550 (and |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
551 ;; 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
|
552 (semantic-active-p) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
553 ;; 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
|
554 (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
|
555 '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
|
556 (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
|
557 '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
|
558 ;; 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
|
559 ;; 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
|
560 (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
|
561 ;; 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
|
562 (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
|
563 ;; So do it! |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
564 (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
|
565 (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
|
566 (res nil)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
567 (garbage-collect) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
568 (cond |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
569 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
570 ;;;; 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
|
571 ((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
|
572 (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
|
573 (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
|
574 ;; 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
|
575 (semantic-fetch-tags) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
576 ;; 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
|
577 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
578 ;; NOTE TO SELF: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
579 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
580 ;; 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
|
581 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
582 (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
|
583 (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
|
584 'semantic-after-partial-cache-change-hook res)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
585 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
586 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
587 ;;;; 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
|
588 ((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
|
589 ;; 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
|
590 (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
|
591 (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
|
592 (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
|
593 (make-progress-reporter |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
594 (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
|
595 0 100)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
596 (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
|
597 (if semantic--progress-reporter |
64ff46db1dda
lisp/cedet/semantic.el (semantic-fetch-tags): Check if progress
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
598 (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
|
599 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
600 ;; 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
|
601 ;; 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
|
602 (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
|
603 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
|
604 semantic-parser-warnings) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
605 (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
|
606 ;; 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
|
607 (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
|
608 ;; 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
|
609 (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
|
610 )))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
611 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
612 ;; 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
|
613 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
614 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
615 (defun semantic-refresh-tags-safe () |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
616 "Refreshes the current buffer's tags safely. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
617 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
618 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
|
619 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
|
620 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
621 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
|
622 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
623 ;; 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
|
624 ;; 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
|
625 ;; 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
|
626 (cond |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
627 ;; 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
|
628 ;; 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
|
629 ((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
|
630 nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
631 ;; 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
|
632 ((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
|
633 t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
634 (t |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
635 (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
|
636 (lexically-safe t) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
637 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
638 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
639 (unwind-protect |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
640 ;; Perform the parsing. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
641 (progn |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
642 (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
|
643 (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
|
644 nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
645 ;; 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
|
646 ;; 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
|
647 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
648 ;; 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
|
649 ;; 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
|
650 ;; 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
|
651 (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
|
652 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
653 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
654 ;; 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
|
655 lexically-safe)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
656 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
657 (defun semantic-bovinate-toplevel (&optional ignored) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
658 "Backward Compatibility Function." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
659 (semantic-fetch-tags)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
660 (make-obsolete 'semantic-bovinate-toplevel 'semantic-fetch-tags) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
661 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
662 ;; 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
|
663 ;; 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
|
664 ;; 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
|
665 ;; 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
|
666 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
667 (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
|
668 "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
|
669 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
|
670 current buffer. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
671 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
|
672 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
|
673 `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
|
674 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
|
675 semantic--buffer-cache) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
676 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
677 ;;; 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
|
678 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
679 ;; 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
|
680 ;; 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
|
681 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
682 ;; `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
|
683 ;; 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
|
684 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
685 (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
|
686 (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
|
687 "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
|
688 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
|
689 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
|
690 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
|
691 (let ((result nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
692 (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
|
693 nontermsym tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
694 (while stream |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
695 (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
|
696 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
|
697 (if (not nontermsym) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
698 (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
|
699 (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
|
700 (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
|
701 (if tag |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
702 (if (car tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
703 (setq tag (mapcar |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
704 #'(lambda (tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
705 ;; 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
|
706 ;; 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
|
707 ;; 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
|
708 (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
|
709 tag 'reparse-symbol) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
710 (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
|
711 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
|
712 tag) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
713 (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
|
714 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
|
715 ;; 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
|
716 ;; store anything. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
717 ) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
718 (if returnonerror |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
719 (setq stream nil) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
720 ;; 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
|
721 ;; 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
|
722 (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
|
723 (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
|
724 )) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
725 ;; Designated to ignore. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
726 (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
|
727 (if stream |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
728 ;; 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
|
729 (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
|
730 semantic--progress-reporter |
104439
da5b2513c225
cedet/cedet.el (cedet-packages): Bump srecode version.
Chong Yidong <cyd@stupidchicken.com>
parents:
104412
diff
changeset
|
731 (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
|
732 (progress-reporter-update |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
733 semantic--progress-reporter |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
734 (/ (* 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
|
735 (point-max)))))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
736 result)) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
737 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
738 ;;; Parsing Warnings: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
739 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
740 ;; 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
|
741 ;; 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
|
742 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
743 ;; 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
|
744 ;; 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
|
745 (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
|
746 "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
|
747 (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
|
748 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
749 (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
|
750 "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
|
751 (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
|
752 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
753 (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
|
754 "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
|
755 (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
|
756 (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
|
757 semantic-parser-warnings))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
758 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
759 (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
|
760 "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
|
761 (interactive) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
762 (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
|
763 (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
|
764 (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
|
765 (require 'pp) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
766 (erase-buffer) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
767 (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
|
768 (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
|
769 (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
|
770 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
771 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
772 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
773 ;;; Compatibility: |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
774 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
775 ;; 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
|
776 ;; 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
|
777 ;; interfaces instead. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
778 ;; |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
779 (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
|
780 (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
|
781 "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
|
782 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
783 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
|
784 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
|
785 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
|
786 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
|
787 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
|
788 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
|
789 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
|
790 (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
|
791 (make-obsolete 'semantic-bovinate-region-until-error |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
792 'semantic-parse-region) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
793 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
794 (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
|
795 (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
|
796 "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
|
797 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
|
798 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
|
799 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
|
800 END part. |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
801 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
|
802 tokens." |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
803 (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
|
804 (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
|
805 nonterm)))) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
806 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
807 (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
|
808 (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
|
809 "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
|
810 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
811 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
|
812 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
|
813 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
|
814 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
|
815 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
|
816 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
|
817 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
|
818 (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
|
819 (make-obsolete 'semantic-bovinate-from-nonterminal-full |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
820 'semantic-parse-region) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
821 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
822 (provide 'semantic) |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
823 |
560b69982442
semantic.el, semantic-tag.el, semantic-lex.el, semantic-fw.el: Initial
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
824 ;; 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
|
825 ;; 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
|
826 (require 'semantic/util) |
104470
6ccad1511df1
Minor whitespace changes and `require' fixes.
Chong Yidong <cyd@stupidchicken.com>
parents:
104449
diff
changeset
|
827 |
6ccad1511df1
Minor whitespace changes and `require' fixes.
Chong Yidong <cyd@stupidchicken.com>
parents:
104449
diff
changeset
|
828 ;;; semantic.el ends here |