Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
cedet /
semantic /
bovine /
Delete
Unzip
Name
Size
Permission
Date
Action
c-by.elc
34.42
KB
-rw-r--r--
2023-06-07 04:13
c.elc
100.68
KB
-rw-r--r--
2023-06-07 04:13
debug.elc
4.23
KB
-rw-r--r--
2023-06-07 04:13
el.elc
37.21
KB
-rw-r--r--
2023-06-07 04:13
gcc.elc
5.47
KB
-rw-r--r--
2023-06-07 04:13
grammar.elc
17.06
KB
-rw-r--r--
2023-06-07 04:13
make-by.elc
5.66
KB
-rw-r--r--
2023-06-07 04:13
make.elc
15.94
KB
-rw-r--r--
2023-06-07 04:13
scm-by.elc
3.51
KB
-rw-r--r--
2023-06-07 04:13
scm.elc
9.35
KB
-rw-r--r--
2023-06-07 04:13
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:13:30 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/bovine/c.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\306\307!\210\306\310!\210\306\311!\210\306\312!\210\306\313!\210\306\314!\210\306\315!\210\306\316!\210\306\317!\210\320\321!\2032 \322\323\321\"\210\2027 \322\323\324\"\210\325\326\327 \330#\210\331\332 \"*\210\333\302\334\335\336\337\336\307\340\341\342\343& \210\n\344\345 BC\346\326#\210\331\347\326\"\210 \210)\327\345\326 \350\f!\351 6 \204\217 7\211\204\217 8+\205\216 \3526+\" \203\272 \204\272 \353N\203\251 \3526 \353N\"\211\204\217 \211\330N\206\264 \354N)\211\204\223 ,\355\356#\210\327\345\326\302#\210\333\357\351\360\336\337\336\307\340\361& \210/ 9\344\3629BC\346\326#\210\331\363\326\"\2109\210)\327\362\326 \350\f!\351 6 \2047\211\2048+\205\3526+\" \203; \204; \353N\203*\3526 \353N\"\211\204 \211\330N\2065 \354N)\211\204 ,\355\356#\210:\364>\203K\365 \210\351\207" [parent mode semantic-c-dependency-system-include-path #3=#:tmp0 symbol bind require semantic semantic/analyze semantic/bovine semantic/bovine/gcc semantic/idle semantic/lex-spp semantic/bovine/c-by semantic/db-find hideif fboundp c-end-of-macro defalias semantic-c-end-of-macro #[nil "\300\210`Sf\301=\205 m?\205 \300u\210\202 \207" [nil 92] 2 "Go to the end of a preprocessor directive.\nMore accurately, move point to the end of the closest following line\nthat doesn't end with a line continuation backslash.\n\nThis function does not do any hidden buffer changes."] c++-mode c-mode put mode-local-parent mode-local-map-mode-buffers activate-mode-local-bindings custom-declare-variable '("/usr/include") "The system include path used by the C language." :group c :type (repeat (directory :tag "Directory")) :set #[(sym val) "\303 \"\210 \304\305\nBC\306\307#\210\310\311\307\"\210\n\210)\312\313!\205\" \310\313\307\"\207" [sym val #1=#:tmp0 set-default mode-local-bind semantic-dependency-system-include-path #2=(mode-variable-flag t) c-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-dependency-system-include-path make-local-variable] 2] fboundp semantic-decoration-unparsed-include-do-reset] 4] mode-local-bind semantic-dependency-system-include-path #2# #[nil "\302\301!\210\211\207" [#3# semantic-dependency-system-include-path make-local-variable] 2] symbol-name nil intern-soft mode-local-symbol-table derived-mode-parent variable-documentation "System path to search for include files." semantic-default-c-path "Default set of include paths for C code.\nUsed by `semantic-dep' to define an include path.\nNOTE: In process of obsoleting this." (repeat (string :tag "Path")) semantic-dependency-include-path #[nil "\302\301!\210\211\207" [#4=#:tmp0 semantic-dependency-include-path make-local-variable] 2] (gnu gnu/linux darwin cygwin) semantic-gcc-setup name mode-local-active-mode major-mode #4# system-type] 12) #@40 List of symbols to include by default. (defvar semantic-lex-c-preprocessor-symbol-map-builtin '(("__THROW" . #1="") ("__const" . "const") ("__restrict" . #1#) ("__attribute_pure__" . #1#) ("__attribute_malloc__" . #1#) ("__nonnull" . #1#) ("__wur" . #1#) ("__declspec" (spp-arg-list ("foo") 1 . 2)) ("__attribute__" (spp-arg-list ("foo") 1 . 2)) ("__asm" (spp-arg-list ("foo") 1 . 2))) (#$ . 3383)) #@145 Non-nil while resetting the preprocessor symbol map. Used to prevent a reset while trying to parse files that are part of the preprocessor map. (defvar semantic-c-in-reset-preprocessor-table nil (#$ . 3789)) #@67 Reset the C preprocessor symbol map based on all input variables. (defalias 'semantic-c-reset-preprocessor-symbol-map #[nil "\205\227 \306\307!\205\227 \310\311\312\"\210\313\314 \n\"!\315\316 BC\317\320#\210\321\322\320\"\210 \210)\323 ?\205\226 \306\324!\205\226 \325 \205\226 \323\326 \323 \211 !\205\225 !@ \327 \326\"\211 \"\203\212 \330\"!\203e \323\331\332\217\210\314\f\333\"\334\"\"\313\314 \n\f#! #\315\316#BC\317\320#\210\321\335\320\"\210#\210))!A\211!\204I \323,)\207" [semantic-mode semantic-lex-c-preprocessor-symbol-map-builtin semantic-lex-c-preprocessor-symbol-map #1=#:tmp0 filemap semantic-c-in-reset-preprocessor-table featurep semantic/bovine/c remove-hook mode-local-init-hook semantic-c-reset-preprocessor-symbol-map semantic-lex-make-spp-table append mode-local-bind semantic-lex-spp-macro-symbol-obarray (mode-variable-flag t) c-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-lex-spp-macro-symbol-obarray make-local-variable] 2] nil semantic/db-mode semanticdb-minor-mode-p t semanticdb-file-table-object semanticdb-needs-refresh-p (semanticdb-refresh-table table t) ((error (byte-code "\301\302\303!\"\207" [table message "Error updating tables for %S" object-name] 4))) eieio-oref lexical-table #[nil "\302\301!\210\211\207" [#2=#:tmp0 semantic-lex-spp-macro-symbol-obarray make-local-variable] 2] semanticdb-out-of-buffer-create-table-fcn semantic-lex-c-preprocessor-symbol-file sf --dolist-tail-- table #2#] 6 (#$ . 4003)]) (byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312\313\314& \210\303\315\305\316\307\310\311\317\313\320& \210\303\321\322\323\307\310\311\324&\207" [add-hook mode-local-init-hook semantic-c-reset-preprocessor-symbol-map custom-declare-variable semantic-lex-c-preprocessor-symbol-map nil "Table of C Preprocessor keywords used by the Semantic C lexer.\nEach entry is a cons cell like this:\n ( \"KEYWORD\" . \"REPLACEMENT\" )\nWhere KEYWORD is the macro that gets replaced in the lexical phase,\nand REPLACEMENT is a string that is inserted in its place. Empty string\nimplies that the lexical analyzer will discard KEYWORD when it is encountered.\n\nAlternately, it can be of the form:\n ( \"KEYWORD\" ( LEXSYM1 \"str\" 1 1 ) ... ( LEXSYMN \"str\" 1 1 ) )\nwhere LEXSYM is a symbol that would normally be produced by the\nlexical analyzer, such as `symbol' or `string'. The string in the\nsecond position is the text that makes up the replacement. This is\nthe way to have multiple lexical symbols in a replacement. Using the\nfirst way to specify text like \"foo::bar\" would not work, because :\nis a separate lexical symbol.\n\nA quick way to see what you would need to insert is to place a\ndefinition such as:\n\n#define MYSYM foo::bar\n\ninto a C file, and do this:\n \\[semantic-lex-spp-describe]\n\nThe output table will describe the symbols needed." :group c :type (repeat (cons (string :tag "Keyword") (sexp :tag "Replacement"))) :set #[(sym value) "\302 \"\210\303\304\305\217\207" [sym value set-default nil (semantic-c-reset-preprocessor-symbol-map) ((error))] 3] semantic-lex-c-preprocessor-symbol-file "List of C/C++ files that contain preprocessor macros for the C lexer.\nEach entry is a filename and each file is parsed, and those macros\nare included in every C/C++ file parsed by semantic.\nYou can use this variable instead of `semantic-lex-c-preprocessor-symbol-map'\nto store your global macros in a more natural way." (repeat (file :tag "File")) #[(sym value) "\302 \"\210\303\304\305\217\207" [sym value set-default nil (semantic-c-reset-preprocessor-symbol-map) ((error))] 3] semantic-c-member-of-autocast 't "Non-nil means classes with a '->' operator will cast to its return type.\n\nFor Examples:\n\n class Foo {\n Bar *operator->();\n }\n\n Foo foo;\n\nif `semantic-c-member-of-autocast' is non-nil :\n foo->[here completion will list method of Bar]\n\nif `semantic-c-member-of-autocast' is nil :\n foo->[here completion will list method of Foo]" boolean] 10) #@142 A #define of a symbol with some value. Record the symbol in the semantic preprocessor. Return the defined symbol as a special spp lex token. (defvar semantic-lex-cpp-define nil (#$ . 8038)) (defalias 'semantic-lex-cpp-define #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-cpp-define ((looking-at #6="^\\s-*#\\s-*define\\s-+\\(\\(\\sw\\|\\s_\\)+\\)") (let ((#1=#:start (match-beginning 1)) (#2=#:end (match-end 1)) (#4=#:startpnt semantic-lex-end-point) (#3=#:val (save-match-data (goto-char (match-end 0)) (skip-chars-forward #7=" ") (if (eolp) nil (let* ((name (buffer-substring-no-properties (match-beginning 1) (match-end 1))) (beginning-of-define (match-end 1)) (with-args (save-excursion (goto-char (match-end 0)) (looking-at #8="("))) (semantic-lex-spp-replacements-enabled nil) (semantic-lex-analyzer #'semantic-cpp-lexer) (raw-stream (semantic-lex-spp-stream-for-macro (save-excursion (semantic-c-end-of-macro) (if (looking-back #9="/\\*.*" beginning-of-define) (progn (goto-char (match-beginning 0)) (1- (point))) (point)))))) (if with-args (semantic-lex-spp-first-token-arg-list (car raw-stream))) (setq semantic-lex-end-point (point)) (semantic-lex-spp-merge-streams raw-stream))))) (#5=#:endpnt semantic-lex-end-point)) (semantic-lex-spp-symbol-set (buffer-substring-no-properties #1# #2#) #3#) (semantic-lex-push-token (semantic-lex-token 'spp-macro-def #1# #2#)) (when (and (/= #4# #5#) (/= #5# semantic-lex-end-point)) (setq semantic-lex-end-point #5#)))) #[nil "\306``dB\307 \310\311!\203\305 \312\224\312\225\f\313 \314\216\307\225b\210\315\306w\210l?\205u \316\312\224\312\225\" \312\225 \212\307\225b\210\310\317!) \306 \320 \321\212\322 \210\323\324\"\203] \307\224b\210`S\202^ `)! \203m \325 @!\210`\326 !.*\f ! \" # $\327\316$#\"!\"\210\330$#BB B\211@\211 %\211 %A@\247\204\253 %AA\202\256 %A)A)\" U\204\304 \fU\204\304 - -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #6# 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) #7# buffer-substring-no-properties #8# semantic-cpp-lexer semantic-lex-spp-stream-for-macro semantic-c-end-of-macro looking-back #9# semantic-lex-spp-first-token-arg-list semantic-lex-spp-merge-streams semantic-lex-spp-symbol-set spp-macro-def save-match-data-internal name beginning-of-define with-args semantic-lex-spp-replacements-enabled semantic-lex-analyzer raw-stream #5# #3# #4# #2# #1# token] 8 "A #define of a symbol with some value.\nRecord the symbol in the semantic preprocessor.\nReturn the defined symbol as a special spp lex token."]] 2) #@127 A #undef of a symbol. Remove the symbol from the semantic preprocessor. Return the defined symbol as a special spp lex token. (defvar semantic-lex-cpp-undef nil (#$ . 10788)) (defalias 'semantic-lex-cpp-undef #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\210\303\304\305\306\307\310\311\312&\207" [semantic-lex-cpp-undef ((looking-at #3="^\\s-*#\\s-*undef\\s-+\\(\\(\\sw\\|\\s_\\)+\\)") (let ((#1=#:start (match-beginning 1)) (#2=#:end (match-end 1))) (semantic-lex-spp-symbol-remove (buffer-substring-no-properties #1# #2#)) (semantic-lex-push-token (semantic-lex-token 'spp-macro-undef #1# #2#)))) #[nil "\306``dB\307 \310\311!\203c \312\224\312\225 \313\"\306 \314\2069 \2069 \315\316\307\"\211\"*\210\317BB B\211@\211 \211 A@\247\204[ AA\202^ A)A)* -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #3# 1 buffer-substring-no-properties unintern make-vector 13 spp-macro-undef #2# #1# obarray name semantic-lex-spp-dynamic-macro-symbol-obarray token] 6 "A #undef of a symbol.\nRemove the symbol from the semantic preprocessor.\nReturn the defined symbol as a special spp lex token."] custom-declare-variable semantic-c-obey-conditional-section-parsing-flag t "*Non-nil means to interpret preprocessor #if sections.\nThis implies that some blocks of code will not be parsed based on the\nvalues of the conditions in the #if blocks." :group c :type boolean] 8) #@132 Skip one section of a conditional. Moves forward to a matching #elif, #else, or #endif. Moves completely over balanced #if blocks. (defalias 'semantic-c-skip-conditional-section #[nil "\302\303!\210\304\211\210 \205] ?\205] \305\306\304\307#\205] \310\224b\210\311\312!\2039 \313\314!\2032 \314\315!b\210\202 \316\315!\210\202 \311\317!\203G \320 \210\307\202 \311\321!\203X \304\210\315u\210\307\202 \307\202 )\207" [done semantic-c-obey-conditional-section-parsing-flag require cc-cmds nil re-search-forward "^\\s-*#\\s-*\\(if\\(n?def\\)?\\|el\\(if\\|se\\)\\|endif\\)\\>" t 0 looking-at "^\\s-*#\\s-*if" fboundp c-scan-conditionals 1 c-forward-conditional "^\\s-*#\\s-*elif" beginning-of-line "^\\s-*#\\s-*\\(endif\\|else\\)\\>"] 5 (#$ . 12327)]) #@124 Convert an spp macro SYMBOL MACROVALUE, to something that hideif can use. Take the first interesting thing and convert it. (defalias 'semantic-c-convert-spp-value-to-hideif-value #[(symbol macrovalue) "G\306V\203 \307\310\311 \"\312\211#\210@\211\211@) \n\211A@;\203( A@\202V \313 \211\211A@\247\204: AA\202< A)@) \211\211A@\247\204P AA\202R A)A)\") \f\314=\203d \315 !\202\222 \f\301=\203p \316 !\202\222 \f\317=\203\207 \320\321 \"\203\203 \315 !\202\222 \202\222 \307\310\322\f #\312\211#\210\323+\207" [macrovalue symbol lextoken token key value 1 semantic-push-parser-warning format "Complex macro value (%s) may be improperly evaluated. " 0 buffer-substring-no-properties number string-to-number semantic-c-evaluate-symbol-for-hideif string string-match "^[0-9]+L?$" "Unknown macro value. Token class = %s value = %s. " nil] 6 (#$ . 13095)]) #@154 Lookup the symbol SPP-SYMBOL (a string) to something hideif can use. Pulls out the symbol list, and call `semantic-c-convert-spp-value-to-hideif-value'. (defalias 'semantic-c-evaluate-symbol-for-hideif #[(spp-symbol) "9\203 \306!\211\211;\205= \n\235?\205= \307 !\203& \310 \"\206= \307\f!\2033 \310 \f\"\206= \307 !\205= \310 \")\205B \311)\203\273 \211\211;\205z \n\235?\205z \307 !\203c \310 \"\206z \307\f!\203p \310 \f\"\206z \307 !\205z \310 \")\211 \205\204 J*\211 \204\217 \311\202\271 <\203\235 \312\"\202\271 ;\203\267 \313\314\"\203\262 \315!\202\271 \202\271 )\207\316\317\320\"``#\210\321\207" [spp-symbol name semantic-lex-spp-expanded-macro-stack semantic-lex-spp-dynamic-macro-symbol-obarray semantic-lex-spp-project-macro-symbol-obarray semantic-lex-spp-macro-symbol-obarray symbol-name arrayp intern-soft t semantic-c-convert-spp-value-to-hideif-value string-match "^[0-9]+L?$" string-to-number semantic-push-parser-warning format "SPP Symbol %s not available" nil spp stream] 5 (#$ . 13966) "sSymbol name: "]) #@89 Replacement for `hif-lookup'. I think it just gets the value for some CPP variable VAR. (defalias 'semantic-c-hideif-lookup #[(var) "\302;\203\n \202 9\203 \303!\202 \304!\211\205 )\207" [var val semantic-c-evaluate-symbol-for-hideif symbol-name "Unable to determine var"] 4 (#$ . 15037)]) #@100 Replacement for `hif-defined'. I think it just returns t/nil dependent on if VAR has been defined. (defalias 'semantic-c-hideif-defined #[(var) "9\203 \306!\202 ;\203 \202 \307\211\211\211;\205L \n \235?\205L \310\f!\2033 \311\n\f\"\206L \310 !\203@ \311\n \"\206L \310!\205L \311\n\")\205Q \312)\204i \313\314\315\316\317 \320 \"\"\317 \320 #\210\321\202j \312)\207" [var var-symbol-name name semantic-lex-spp-expanded-macro-stack semantic-lex-spp-dynamic-macro-symbol-obarray semantic-lex-spp-project-macro-symbol-obarray symbol-name "Not A Symbol" arrayp intern-soft t semantic-push-parser-warning format "Skip %s" buffer-substring-no-properties point-at-bol point-at-eol nil semantic-lex-spp-macro-symbol-obarray] 7 (#$ . 15344)]) #@55 Non-nil when Semantic is taking over hideif features. (defvar semantic-c-takeover-hideif nil (#$ . 16100)) #@107 Code blocks wrapped up in #if, or #ifdef. Uses known macro tables in SPP to determine what block to skip. (defvar semantic-lex-c-if nil (#$ . 16214)) (defalias 'semantic-lex-c-if #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-if ((looking-at #1="^\\s-*#\\s-*\\(if\\|elif\\).*$") (semantic-c-do-lex-if)) #[nil "\306``dB\307 \310\311!\203 \312 \210 -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# semantic-c-do-lex-if] 5 "Code blocks wrapped up in #if, or #ifdef.\nUses known macro tables in SPP to determine what block to skip."]] 2) #@185 Handle lexical CPP if statements. Enables a takeover of some hideif functions, then uses hideif to evaluate the #if expression and enables us to make decisions on which code to parse. (defalias 'semantic-c-do-lex-if #[nil "\306 \307P\310\311\312\217\313 !\211 \203 \f\247\203@ \f\314\232\203@ \310 \315\316\317\320\321 \322 \"\"\321 \322 #\210\323 \210`\324 \210`)\310\202G \310\210`\310,\207" [semantic-c-takeover-hideif hif-cpp-prefix hif-ifx-regexp parsedtokelist eval-form pt t "\\(elif\\|if\\(n?def\\)?\\)[ ]+" nil (hif-canonicalize) ((error)) eval 0 semantic-push-parser-warning format "Skip %s" buffer-substring-no-properties point-at-bol point-at-eol beginning-of-line semantic-c-skip-conditional-section semantic-lex-end-point] 7 (#$ . 16920)]) #@99 Code blocks wrapped up in #ifdef. Uses known macro tables in SPP to determine what block to skip. (defvar semantic-lex-c-ifdef nil (#$ . 17691)) (defalias 'semantic-lex-c-ifdef #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-ifdef ((looking-at #1="^\\s-*#\\s-*\\(ifndef\\|ifdef\\)\\s-+\\(\\(\\sw\\|\\s_\\)+\\)$") (semantic-c-do-lex-ifdef)) #[nil "\306``dB\307 \310\311!\203 \312 \210 -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# semantic-c-do-lex-ifdef] 5 "Code blocks wrapped up in #ifdef.\nUses known macro tables in SPP to determine what block to skip."]] 2) #@35 Handle lexical CPP if statements. (defalias 'semantic-c-do-lex-ifdef #[nil "\306\307\224\307\225\"\306\310\224\310\225\"\211\311\230 \312\230\n\203] \211 \211 ;\205T \f \235?\205T \313!\2039 \314\f\"\206T \313!\203H \314\f\"\206T \313!\205T \314\f\")\205Y \315)\203\244 \203\303 \211 \211 ;\205\233 \f \235?\205\233 \313!\203\200 \314\f\"\206\233 \313!\203\217 \314\f\"\206\233 \313!\205\233 \314\f\")\205\240 \315)\203\303 \316 \317 \210`\320 \210`\321\322\323 #`#\210)\316\202\312 \316\210`\316,\207" [sym ift ifdef ifndef name semantic-lex-spp-expanded-macro-stack buffer-substring-no-properties 2 1 "ifdef" "ifndef" arrayp intern-soft t nil beginning-of-line semantic-c-skip-conditional-section semantic-push-parser-warning format "Skip #%s %s" semantic-lex-spp-dynamic-macro-symbol-obarray semantic-lex-spp-project-macro-symbol-obarray semantic-lex-spp-macro-symbol-obarray pt semantic-lex-end-point] 6 (#$ . 18427)]) #@195 Ignore an #else block. We won't see the #else due to the macro skip section block unless we are actively parsing an open #if statement. In that case, we must skip it since it is the ELSE part. (defvar semantic-lex-c-macro-else nil (#$ . 19399)) (defalias 'semantic-lex-c-macro-else #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-macro-else ((looking-at #1="^\\s-*#\\s-*\\(else\\)") (let ((pt (point))) (semantic-c-skip-conditional-section) (setq semantic-lex-end-point (point)) (semantic-push-parser-warning #2="Skip #else" pt (point)) nil)) #[nil "\306``dB\307 \310\311!\203\" ` \312 \210`\313\314 `#\210) -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# semantic-c-skip-conditional-section semantic-push-parser-warning #2# pt] 5 "Ignore an #else block.\nWe won't see the #else due to the macro skip section block\nunless we are actively parsing an open #if statement. In that\ncase, we must skip it since it is the ELSE part."]] 2) #@56 Ignore various forms of #if/#else/#endif conditionals. (defvar semantic-lex-c-macrobits nil (#$ . 20508)) (defalias 'semantic-lex-c-macrobits #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-macrobits ((looking-at #1="^\\s-*#\\s-*\\(if\\(n?def\\)?\\|endif\\|elif\\|else\\)") (semantic-c-end-of-macro) (setq semantic-lex-end-point (point)) nil) #[nil "\306``dB\307 \310\311!\203 \312 \210` -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# semantic-c-end-of-macro] 5 "Ignore various forms of #if/#else/#endif conditionals."]] 2) #@54 Identify include strings, and return special tokens. (defvar semantic-lex-c-include-system nil (#$ . 21205)) (defalias 'semantic-lex-c-include-system #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-include-system ((looking-at #6="^\\s-*#\\s-*include\\s-*<\\([^ \n>]+\\)>") (let ((#2=#:start (match-beginning 0)) (#3=#:end (match-end 0)) (#4=#:startpnt semantic-lex-end-point) (#1=#:val (save-match-data (goto-char (match-end 0)) (setq semantic-lex-end-point (point)) (cons (buffer-substring-no-properties (match-beginning 1) (match-end 1)) 'system))) (#5=#:endpnt semantic-lex-end-point)) (semantic-lex-spp-merge-header (car #1#)) (semantic-lex-push-token (semantic-lex-token (if (eq (cdr #1#) 'system) 'spp-system-include 'spp-include) #2# #3# (car #1#))) (when (and (/= #4# #5#) (/= #5# semantic-lex-end-point)) (setq semantic-lex-end-point #5#)))) #[nil "\306``dB\307 \310\311!\203\206 \307\224\307\225\f\312 \313\216\307\225b\210`\314\315\224\315\225\"*\316B\f \317@!\210A\316=\203I \320\202J \321@BBB B\211@\211 \211 A@\247\204l AA\202o A)A)U\204\205 \fU\204\205 - -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #6# match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) buffer-substring-no-properties 1 system semantic-lex-spp-merge-header spp-system-include spp-include save-match-data-internal #5# #1# #4# #3# #2# token] 7 "Identify include strings, and return special tokens."]] 2) #@54 Identify include strings, and return special tokens. (defvar semantic-lex-c-include nil (#$ . 22845)) (defalias 'semantic-lex-c-include #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-include ((looking-at #6="^\\s-*#\\s-*include\\s-*\"\\([^ \n>]+\\)\"") (let ((#2=#:start (match-beginning 0)) (#3=#:end (match-end 0)) (#4=#:startpnt semantic-lex-end-point) (#1=#:val (save-match-data (goto-char (match-end 0)) (setq semantic-lex-end-point (point)) (cons (buffer-substring-no-properties (match-beginning 1) (match-end 1)) nil))) (#5=#:endpnt semantic-lex-end-point)) (semantic-lex-spp-merge-header (car #1#)) (semantic-lex-push-token (semantic-lex-token (if (eq (cdr #1#) 'system) 'spp-system-include 'spp-include) #2# #3# (car #1#))) (when (and (/= #4# #5#) (/= #5# semantic-lex-end-point)) (setq semantic-lex-end-point #5#)))) #[nil "\306``dB\307 \310\311!\203\206 \307\224\307\225\f\312 \313\216\307\225b\210`\314\315\224\315\225\"*\306B\f \316@!\210A\317=\203I \320\202J \321@BBB B\211@\211 \211 A@\247\204l AA\202o A)A)U\204\205 \fU\204\205 - -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #6# match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) buffer-substring-no-properties 1 semantic-lex-spp-merge-header system spp-system-include spp-include save-match-data-internal #5# #1# #4# #3# #2# token] 7 "Identify include strings, and return special tokens."]] 2) #@52 Skip backslash ending a line. Go to the next line. (defvar semantic-lex-c-ignore-ending-backslash nil (#$ . 24462)) (defalias 'semantic-lex-c-ignore-ending-backslash #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-ignore-ending-backslash ((looking-at #1="\\\\\\s-*\n") (setq semantic-lex-end-point (match-end 0))) #[nil "\306``dB\307 \310\311!\203 \307\225 -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1#] 5 "Skip backslash ending a line.\nGo to the next line."]] 2) #@69 Handle G++'s namespace macros which the pre-processor can't handle. (defvar semantic-lex-c-namespace-begin-macro nil (#$ . 25101)) (defalias 'semantic-lex-c-namespace-begin-macro #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\210\303\304\305\306\307\310\311\312&\207" [semantic-lex-c-namespace-begin-macro ((looking-at #1="\\(_GLIBCXX_BEGIN_NAMESPACE\\)(\\s-*\\(\\(?:\\w\\|\\s_\\)+\\)\\s-*)") (let* ((nsend (match-end 1)) (sym-start (match-beginning 2)) (sym-end (match-end 2)) (ms (buffer-substring-no-properties sym-start sym-end))) (semantic-lex-push-token (semantic-lex-token 'NAMESPACE (match-beginning 0) nsend #2="namespace")) (semantic-lex-push-token (semantic-lex-token 'symbol sym-start sym-end ms))) (goto-char (match-end 0)) (let ((start (point)) (end 0)) (when (re-search-forward #3="_GLIBCXX_END_NAMESPACE" nil t) (setq end (point)) (semantic-lex-push-token (semantic-lex-token 'semantic-list start end (list 'prefix-fake))))) (setq semantic-lex-end-point (point))) #[nil "\306``dB\307 \310\311!\203\271 \312\225 \313\224 \313\225 \314\" \315\316\307\224BBB B\211@\211 \211 A@\247\204G AA\202J A)A)\317BBB B\211@\211 \211 A@\247\204p AA\202s A)A),\307\225b\210`\307 \320\321\306\322#\203\266 `\323\324CBBB B\211@\211 \211 A@\247\204\257 AA\202\262 A)A)*` -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# 1 2 buffer-substring-no-properties NAMESPACE #2# symbol re-search-forward #3# t semantic-list prefix-fake nsend sym-start sym-end ms token end start] 6 "Handle G++'s namespace macros which the pre-processor can't handle."] custom-declare-variable semantic-lex-c-nested-namespace-ignore-second t "Should _GLIBCXX_BEGIN_NESTED_NAMESPACE ignore the second namespace?\nIt is really there, but if a majority of uses is to squeeze out\nthe second namespace in use, then it should not be included.\n\nIf you are having problems with smart completion and STL templates,\nit may be that this is set incorrectly. After changing the value\nof this flag, you will need to delete any semanticdb cache files\nthat may have been incorrectly parsed." :group semantic :type boolean] 8) #@48 Handle VC++'s definition of the std namespace. (defvar semantic-lex-c-VC++-begin-std-namespace nil (#$ . 27389)) (defalias 'semantic-lex-c-VC++-begin-std-namespace #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-VC++-begin-std-namespace ((looking-at #1="\\(_STD_BEGIN\\)") (semantic-lex-push-token (semantic-lex-token 'NAMESPACE (match-beginning 0) (match-end 0) #2="namespace")) (semantic-lex-push-token (semantic-lex-token 'symbol (match-beginning 0) (match-end 0) #3="std")) (goto-char (match-end 0)) (let ((start (point)) (end 0)) (when (re-search-forward #4="_STD_END" nil t) (setq end (point)) (semantic-lex-push-token (semantic-lex-token 'semantic-list start end (list 'prefix-fake))))) (setq semantic-lex-end-point (point))) #[nil "\306``dB\307 \310\311!\203\243 \312\313\307\224\307\225BBB B\211@\211 \211 A@\247\2043 AA\2026 A)A)\314\315\307\224\307\225BBB B\211@\211 \211 A@\247\204[ AA\202^ A)A)\307\225b\210`\307 \316\317\306\320#\203\240 `\321\322CBBB B\211@\211 \211 A@\247\204\231 AA\202\234 A)A)*` -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# NAMESPACE #2# symbol #3# re-search-forward #4# t semantic-list prefix-fake token end start] 6 "Handle VC++'s definition of the std namespace."]] 2) #@48 Handle VC++'s definition of the std namespace. (defvar semantic-lex-c-VC++-end-std-namespace nil (#$ . 28804)) (defalias 'semantic-lex-c-VC++-end-std-namespace #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-VC++-end-std-namespace ((looking-at #1="\\(_STD_END\\)") (goto-char (match-end 0)) (setq semantic-lex-end-point (point))) #[nil "\306``dB\307 \310\311!\203 \307\225b\210` -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1#] 5 "Handle VC++'s definition of the std namespace."]] 2) #@69 Handle G++'s namespace macros which the pre-processor can't handle. (defvar semantic-lex-c-namespace-begin-nested-macro nil (#$ . 29460)) (defalias 'semantic-lex-c-namespace-begin-nested-macro #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-namespace-begin-nested-macro ((looking-at #1="\\(_GLIBCXX_BEGIN_NESTED_NAMESPACE\\)(\\s-*\\(\\(?:\\w\\|\\s_\\)+\\)\\s-*,\\s-*\\(\\(?:\\w\\|\\s_\\)+\\)\\s-*)") (goto-char (match-end 0)) (let* ((nsend (match-end 1)) (sym-start (match-beginning 2)) (sym-end (match-end 2)) (ms (buffer-substring-no-properties sym-start sym-end)) (sym2-start (match-beginning 3)) (sym2-end (match-end 3)) (ms2 (buffer-substring-no-properties sym2-start sym2-end))) (semantic-lex-push-token (semantic-lex-token 'NAMESPACE (match-beginning 0) nsend #2="namespace")) (semantic-lex-push-token (semantic-lex-token 'symbol sym-start sym-end ms)) (goto-char (match-end 0)) (let ((start (point)) (end 0)) (when (re-search-forward #3="_GLIBCXX_END_NESTED_NAMESPACE" nil t) (setq end (point)) (if semantic-lex-c-nested-namespace-ignore-second (semantic-lex-push-token (semantic-lex-token 'semantic-list start end (list 'prefix-fake))) (semantic-lex-push-token (semantic-lex-token 'semantic-list start end (list 'prefix-fake-plus (semantic-lex-token 'NAMESPACE sym-end sym2-start "namespace") (semantic-lex-token 'symbol sym2-start sym2-end ms2) (semantic-lex-token 'semantic-list start end (list 'prefix-fake))))))))) (setq semantic-lex-end-point (point))) #[nil "\306``dB\307 \310\311!\203\307\225b\210\312\225 \313\224 \313\225 \314\" \315\224 \315\225 \314 \" \316\317\307\224BBB B\211@\211 \211 A@\247\204[ AA\202^ A)A)\320BBB B\211@\211 \211 A@\247\204\204 AA\202\207 A)A)\307\225b\210`\307 \321\322\306\323#\203` !\203\321 \324\325C BBB B\211@\211 \211 A@\247\204\307 AA\202\312 A)A)\202\324\326\316\317BBB\320 BBB\324\325C BBBF BBB B\211@\211 \211 A@\247\204 AA\202 A)A). ` -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# 1 2 buffer-substring-no-properties 3 NAMESPACE #2# symbol re-search-forward #3# t semantic-list prefix-fake prefix-fake-plus nsend sym-start sym-end ms sym2-start sym2-end ms2 token end start semantic-lex-c-nested-namespace-ignore-second] 9 "Handle G++'s namespace macros which the pre-processor can't handle."]] 2) #@69 Handle G++'s namespace macros which the pre-processor can't handle. (defvar semantic-lex-c-namespace-end-macro nil (#$ . 31971)) (defalias 'semantic-lex-c-namespace-end-macro #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-namespace-end-macro ((looking-at #1="_GLIBCXX_END_\\(NESTED_\\)?NAMESPACE") (goto-char (match-end 0)) (setq semantic-lex-end-point (point))) #[nil "\306``dB\307 \310\311!\203 \307\225b\210` -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1#] 5 "Handle G++'s namespace macros which the pre-processor can't handle."]] 2) #@37 Detect and create a C string token. (defvar semantic-lex-c-string nil (#$ . 32682)) (defalias 'semantic-lex-c-string #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-c-string ((looking-at #1="L?\\(\\s\"\\)") (semantic-lex-push-token (semantic-lex-token 'string (point) (save-excursion (goto-char (match-beginning 1)) (semantic-lex-unterminated-syntax-protection 'string (forward-sexp 1) (point)))))) #[nil "\306``dB\307 \310\311!\203Q \312`\212\313\224b\210\203+ \203+ \314\313!\210`\202/ \306\315\316\217)BB B\211@\211 \211 A@\247\204J AA\202M A)A) -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# string 1 forward-sexp (byte-code "\300\301!\210`\207" [forward-sexp 1] 2) ((error (byte-code "\304 \n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point string] 4))) debug-on-error semantic-lex-debug-analyzers token] 6 "Detect and create a C string token."]] 2) #@139 Detect and ignore newline tokens. Use this ONLY if newlines are not whitespace characters (such as when they are comment end characters). (defvar semantic-c-lex-ignore-newline nil (#$ . 33801)) (defalias 'semantic-c-lex-ignore-newline #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-c-lex-ignore-newline ((looking-at #1="\\s-*\\\\?\\s-*\\(\n\\|\\s>\\)") (setq semantic-lex-end-point (match-end 0))) #[nil "\306``dB\307 \310\311!\203 \307\225 -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1#] 5 "Detect and ignore newline tokens.\nUse this ONLY if newlines are not whitespace characters (such as when\nthey are comment end characters)."]] 2) #@131 Lexical Analyzer for C code. Use semantic-cpp-lexer for parsing text inside a CPP macro. See `semantic-lex' for more information. (defalias 'semantic-c-lexer #[(start end &optional depth length) "\306\307\310 \n#\210`\306\211 @ A\311 BC\206 D E \nB F\306 G\ndV\2034 \312\313\nd#\210\314 p H I\315\216\316J!\210 b\210`\nW\203,K\203X \fGKX\203,\317\320!\203\321\224\321\225A\322 L\323\216\311\225b\210\324\306w\210l?\205\303 \325\321\224\321\225\" M\321\225 N\212\311\225b\210\317\326!) O\306 P\327 Q\330\212\331 \210\332\333N\"\203\252 \311\224b\210`S\202\253 `)! RO\203\272 \334R@!\210`A\335R!.*A S T U V W\336\325WV\"T\"\210\337WVBB\fB\211@\211 X\211 XA@\247\204\372 XAA\202\375 XA)A)AUSU\204SAU\204SA-\202\303\317\340!\203u\321\224\321\225 Y Z\325ZY\"\306 [ M\341M[\206G\\\206G\342\343\311\"\211\\\"*\210\344ZYBB\fB\211@\211 X\211 XA@\247\204iXAA\202lXA)A)A*\202\303\317\345!\203\201\346 \210\202\303\317\347!\203\215\350 \210\202\303\317\351!\203\247` ]\352 \210`A\353\354]`#\210)\202\303\317\355!\203\266\331 \210`A\202\303\317\356!\2039\311\224\311\225A\322 L\357\216\311\225b\210`A\325\321\224\321\225\"*\306BA ^ _ ` a b\360_@!\210_A\361=\203\366\362\202\367\363_@baBBB\fB\211@\211 X\211 XA@\247\204XAA\202 XA)A)A`^U\2045^AU\2045^A-\202\303\317\364!\203\274\311\224\311\225A\322 L\365\216\311\225b\210`A\325\321\224\321\225\"*\361BA c d e f g\360d@!\210dA\361=\203y\362\202z\363d@gfBBB\fB\211@\211 X\211 XA@\247\204\234XAA\202\237XA)A)AecU\204\270cAU\204\270cA-\202\303\317\366!\203\311\311\225A\202\303\317\367!\203\326\311\225A\202\303\317\370!\203\343\311\225A\202\303\317h!\203\371\311\224\311\225BB\fB\211@\211 X\211 XA@\247\204 XAA\202\fXA)A)A\202\303\317\372!\203]\373`\212\321\224b\210i\2033j\2033\374\321!\210`\2027\306\375\376\217)BB\fB\211@\211 X\211 XA@\247\204RXAA\202UXA)A)A\202\303\317\377!\203 \321\225 k\201 \224 l\201 \225 m\325lm\" n\201\200 \201\201 \311\224kBBB\fB\211@\211 X\211 XA@\247\204\240XAA\202\243XA)A)A\201\202 nlmBBB\fB\211@\211 X\211 XA@\247\204\314XAA\202\317XA)A)A,\311\225b\210`\311\201\203 \201\204 \306\201\205 #\203`\201\206 \201\207 C \nBBB\fB\211@\211 X\211 XA@\247\204XAA\202XA)A)A*`A\202\303\317\201\210 !\203V\311\225b\210\321\225 k\201 \224 l\201 \225 m\325lm\" n\201\211 \224 o\201\211 \225 p\325op\" q\201\200 \201\201 \311\224kBBB\fB\211@\211 X\211 XA@\247\204}XAA\202\200XA)A)A\201\202 nlmBBB\fB\211@\211 X\211 XA@\247\204\251XAA\202\254XA)A)A\311\225b\210`\311\201\203 \201\212 \306\201\205 #\203N`r\203\375\201\206 \201\207 C \nBBB\fB\211@\211 X\211 XA@\247\204\362XAA\202\365XA)A)A\202N\201\206 \201\213 \201\200 \201\201 moBBB\201\202 qopBBB\201\206 \201\207 C \nBBBF \nBBB\fB\211@\211 X\211 XA@\247\204FXAA\202IXA)A)A. `A\202\303\317\201\214 !\203h\311\225b\210`A\202\303\317\201\215 !\203\201\200 \201\201 \311\224\311\225BBB\fB\211@\211 X\211 XA@\247\204\225XAA\202\230XA)A)A\201\202 \201\216 \311\224\311\225BBB\fB\211@\211 X\211 XA@\247\204\302XAA\202\305XA)A)A\311\225b\210`\311\201\203 \201\217 \306\201\205 #\203`\201\206 \201\207 C \nBBB\fB\211@\211 X\211 XA@\247\204XAA\202 XA)A)A*`A\202\303\317\201\220 !\203'\311\225b\210`A\202\303\317\201\221 !\203K\201\222 \311!\311\224\311\225 s t\201\223 ts\n#\210+\202\303\317\201\224 !\203\201\225 \311\224\311\225BB\fB\211@\211 X\211 XA@\247\204tXAA\202wXA)A)A\202\303\317\201\226 !\203 E\203\224BEW\203\305BTB\201\227 \311\224\311\225BB\fB\211@\211 X\211 XA@\247\204\272XAA\202\275XA)A)A\202\303\201\206 \311\224\212i\203\337j\203\337\201\230 \321!\210`\202\347\306\201\231 \201\232 \217)BB\fB\211@\211 X\211 XA@\247\204XAA\202XA)A)A\202\303\317\201\233 !\203FBSB\201\234 \311\224\311\225BB\fB\211@\211 X\211 XA@\247\204;XAA\202>XA)A)A\202\303\317u!\203\211` v\201\235 \321!\210`v=\203l\201\236 \201\237 \201\240 \"\210\202un\203u\201\241 u\210`v=\203\202\312\201\242 !\210`A)\202\303\317\201\243 !\203\275\201\244 \311\224\311\225BB\fB\211@\211 X\211 XA@\247\204\262XAA\202\265XA)A)A\202\303\312\201\245 !\210A@=\203\325\312\201\246 @\f@#\210A@Ab\210w\203\372\201\247 \204\360\201\250 \203\372\201\251 w\201\252 \"\210\f@ Xx\205'\306 y\201\253 \216X\203\201\254 X!y\201\255 \201\256 \201\257 XB#!*)\210\202E + \203v \211A@\211 z\211 {\203]\201\260 \201\261 {@{\211 |A@)#\210 \211A@\211{\204?z@ }~}F@FA#b\210`\211A)\210* b\210\f\237. \207" [semantic-lex-block-streams start end starting-position semantic-lex-token-stream semantic-lex-block-stack nil run-hook-with-args semantic-lex-reset-functions 0 error "semantic-c-lexer: end (%d) > point-max (%d)" syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1=#:buffer #2=#:table set-syntax-table] 2)) set-syntax-table looking-at "^\\s-*#\\s-*define\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) " " buffer-substring-no-properties "(" semantic-cpp-lexer semantic-lex-spp-stream-for-macro semantic-c-end-of-macro looking-back "/\\*.*" semantic-lex-spp-first-token-arg-list semantic-lex-spp-merge-streams semantic-lex-spp-symbol-set spp-macro-def "^\\s-*#\\s-*undef\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" unintern make-vector 13 spp-macro-undef "^\\s-*#\\s-*\\(ifndef\\|ifdef\\)\\s-+\\(\\(\\sw\\|\\s_\\)+\\)$" semantic-c-do-lex-ifdef "^\\s-*#\\s-*\\(if\\|elif\\).*$" semantic-c-do-lex-if "^\\s-*#\\s-*\\(else\\)" semantic-c-skip-conditional-section semantic-push-parser-warning "Skip #else" "^\\s-*#\\s-*\\(if\\(n?def\\)?\\|endif\\|elif\\|else\\)" "^\\s-*#\\s-*include\\s-*\"\\([^ \n>]+\\)\"" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) semantic-lex-spp-merge-header system spp-system-include spp-include "^\\s-*#\\s-*include\\s-*<\\([^ \n>]+\\)>" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "\\\\\\s-*\n" "\\s-+" "\\s-*\\\\?\\s-*\\(\n\\|\\s>\\)" number "L?\\(\\s\"\\)" string forward-sexp (byte-code "\300\301!\210`\207" [forward-sexp 1] 2) ((error (byte-code "\304 \n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point string] 4))) "\\(_GLIBCXX_BEGIN_NAMESPACE\\)(\\s-*\\(\\(?:\\w\\|\\s_\\)+\\)\\s-*)" tmp-start semantic-lex-end-point semantic-lex-current-depth depth semantic-lex-depth semantic-lex-maximum-depth semantic-lex-analysis-bounds parse-sexp-lookup-properties #1# #2# semantic-lex-syntax-table length save-match-data-internal name beginning-of-define with-args semantic-lex-spp-replacements-enabled semantic-lex-analyzer raw-stream #3=#:endpnt #4=#:val #5=#:startpnt #6=#:end #7=#:start token #8=#:end #9=#:start obarray semantic-lex-spp-dynamic-macro-symbol-obarray pt #10=#:endpnt #11=#:val #12=#:startpnt #13=#:end #14=#:start #15=#:endpnt #16=#:val #17=#:startpnt #18=#:end #19=#:start semantic-lex-number-expression debug-on-error semantic-lex-debug-analyzers nsend sym-start sym-end ms sym2-start sym2-end ms2 semantic-lex-c-nested-namespace-ignore-second beg str semantic-lex-comment-regex comment-start-point semantic-current-input-throw-symbol semantic-lex-debug o last blk x syntax semantic-lex-unterminated-syntax-end-function 2 NAMESPACE "namespace" symbol re-search-forward "_GLIBCXX_END_NAMESPACE" t semantic-list prefix-fake "\\(_GLIBCXX_BEGIN_NESTED_NAMESPACE\\)(\\s-*\\(\\(?:\\w\\|\\s_\\)+\\)\\s-*,\\s-*\\(\\(?:\\w\\|\\s_\\)+\\)\\s-*)" 3 "_GLIBCXX_END_NESTED_NAMESPACE" prefix-fake-plus "_GLIBCXX_END_\\(NESTED_\\)?NAMESPACE" "\\(_STD_BEGIN\\)" "std" "_STD_END" "\\(_STD_END\\)" "\\(\\sw\\|\\s_\\)+" match-string semantic-lex-spp-analyzer-push-tokens-for-symbol "\\s\\+" charquote "\\s(" open-paren forward-list (byte-code "\300\301!\210`\207" [forward-list 1] 2) ((error (byte-code "\304 \n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point semantic-list] 4))) "\\s)" close-paren forward-comment skip-syntax-forward "-.'" point-at-eol -1 "Strange comment syntax prevents lexical analysis" "\\(\\s.\\|\\s$\\|\\s'\\)" punctuation "Unmatched Text during Lexical Analysis" "semantic-c-lexer: endless loop at %d, after %S" input-pending-p accept-process-output throw lex ((byte-code "\203 \301!\210\301\207" [o semantic-overlay-delete] 2)) semantic-lex-highlight-token semantic-read-event format "%S :: Depth: %d :: SPC - continue" message "semantic-c-lexer: `%s' block from %S is unterminated"] 9 (#$ . 34608)]) #@41 Match ## inside a CPP macro as special. (defvar semantic-lex-cpp-hashhash nil (#$ . 43328)) (defalias 'semantic-lex-cpp-hashhash #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-cpp-hashhash ((looking-at #1="##") (semantic-lex-push-token (semantic-lex-token 'spp-concat (match-beginning 0) (match-end 0)))) #[nil "\306``dB\307 \310\311!\2038 \312\307\224\307\225BB B\211@\211 \211 A@\247\2041 AA\2024 A)A) -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# spp-concat token] 6 "Match ## inside a CPP macro as special."]] 2) #@85 Lexical Analyzer for CPP macros in C code. See `semantic-lex' for more information. (defalias 'semantic-cpp-lexer #[(start end &optional depth length) "\306\307\310 \n#\210`\306\211 @ A\311 BC\206 D E \nB F\306 G\ndV\2034 \312\313\nd#\210\314 p H I\315\216\316J!\210 b\210`\nW\203\303K\203X \fGKX\203\303\317\320!\203\210 \321\311\224\311\225BB\fB\211@\211 L\211 LA@\247\204} LAA\202\200 LA)A)A\202Z\317\322!\203J\323\224\323\225A\324 M\325\216\311\225b\210\326\306w\210l?\205\363 \327\323\224\323\225\" N\323\225 O\212\311\225b\210\317\330!) P\306 Q\331 R\332\212\333 \210\334\335O\"\203\332 \311\224b\210`S\202\333 `)! SP\203\352 \336S@!\210`A\337S!.*A T U V W X\340\327XW\"U\"\210\341XWBB\fB\211@\211 L\211 LA@\247\204*LAA\202-LA)A)AVTU\204FTAU\204FTA-\202Z\317\342!\203\245\323\224\323\225 Y Z\327ZY\"\306 [ N\343N[\206w\\\206w\344\345\311\"\211\\\"*\210\346ZYBB\fB\211@\211 L\211 LA@\247\204\231LAA\202\234LA)A)A*\202Z\317\347!\203\261\350 \210\202Z\317\351!\203\313` ]\352 \210`A\353\354]`#\210)\202Z\317\355!\203\332\333 \210`A\202Z\317\356!\203]\311\224\311\225A\324 M\357\216\311\225b\210`A\327\323\224\323\225\"*\306BA ^ _ ` a b\360_@!\210_A\361=\203\362\202\363_@baBBB\fB\211@\211 L\211 LA@\247\204=LAA\202@LA)A)A`^U\204Y^AU\204Y^A-\202Z\317\364!\203\340\311\224\311\225A\324 M\365\216\311\225b\210`A\327\323\224\323\225\"*\361BA c d e f g\360d@!\210dA\361=\203\235\362\202\236\363d@gfBBB\fB\211@\211 L\211 LA@\247\204\300LAA\202\303LA)A)AecU\204\334cAU\204\334cA-\202Z\317\366!\203\355\311\225A\202Z\317\367!\203\372\311\225A\202Z\317\370!\203\311\225A\202Z\317h!\2038\371\311\224\311\225BB\fB\211@\211 L\211 LA@\247\204-LAA\2020LA)A)A\202Z\317\372!\203\201\373`\212\323\224b\210i\203Wj\203W\374\323!\210`\202[\306\375\376\217)BB\fB\211@\211 L\211 LA@\247\204vLAA\202yLA)A)A\202Z\317\377!\203\342\201v \311!\211 N N\201w k!\205\250N;\205\250\201x Nk\")\211N\205\262NJ)\206\271\201y \311\224\311\225BB\fB\211@\211 L\211 LA@\247\204\327LAA\202\332LA)A)A\202Z\317\201z !\203\201{ \311\224\311\225BB\fB\211@\211 L\211 LA@\247\204 LAA\202LA)A)A\202Z\317\201| !\203\244E\203+BEW\203\\BTB\201} \311\224\311\225BB\fB\211@\211 L\211 LA@\247\204QLAA\202TLA)A)A\202Z\201~ \311\224\212i\203vj\203v\201 \323!\210`\202~\306\201\200 \201\201 \217)BB\fB\211@\211 L\211 LA@\247\204\231LAA\202\234LA)A)A\202Z\317\201\202 !\203\335BSB\201\203 \311\224\311\225BB\fB\211@\211 L\211 LA@\247\204\322LAA\202\325LA)A)A\202Z\317l!\203 ` m\201\204 \323!\210`m=\203\201\205 \201\206 \201\207 \"\210\202\fn\203\f\201\210 u\210`m=\203\312\201\211 !\210`A)\202Z\317\201\212 !\203T\201\213 \311\224\311\225BB\fB\211@\211 L\211 LA@\247\204ILAA\202LLA)A)A\202Z\312\201\214 !\210A@=\203l\312\201\215 @\f@#\210A@Ab\210n\203\221\201\216 \204\207\201\217 \203\221\201\220 n\201\221 \"\210\f@ Lo\205\276\306 p\201\222 \216L\203\256\201\223 L!p\201\224 \201\225 \201\226 LB#!*)\210\202E + \203 \211A@\211 q\211 r\203\364\201\227 \201\230 r@r\211 sA@)#\210 \211A@\211r\204\326q@ tutF@FA#b\210`\211A)\210* b\210\f\237. \207" [semantic-lex-block-streams start end starting-position semantic-lex-token-stream semantic-lex-block-stack nil run-hook-with-args semantic-lex-reset-functions 0 error "semantic-cpp-lexer: end (%d) > point-max (%d)" syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1=#:buffer #2=#:table set-syntax-table] 2)) set-syntax-table looking-at "##" spp-concat "^\\s-*#\\s-*define\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) " " buffer-substring-no-properties "(" semantic-cpp-lexer semantic-lex-spp-stream-for-macro semantic-c-end-of-macro looking-back "/\\*.*" semantic-lex-spp-first-token-arg-list semantic-lex-spp-merge-streams semantic-lex-spp-symbol-set spp-macro-def "^\\s-*#\\s-*undef\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" unintern make-vector 13 spp-macro-undef "^\\s-*#\\s-*\\(if\\|elif\\).*$" semantic-c-do-lex-if "^\\s-*#\\s-*\\(else\\)" semantic-c-skip-conditional-section semantic-push-parser-warning "Skip #else" "^\\s-*#\\s-*\\(if\\(n?def\\)?\\|endif\\|elif\\|else\\)" "^\\s-*#\\s-*include\\s-*\"\\([^ \n>]+\\)\"" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) semantic-lex-spp-merge-header system spp-system-include spp-include "^\\s-*#\\s-*include\\s-*<\\([^ \n>]+\\)>" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "\\\\\\s-*\n" "\\s-+" "\\s-*\\\\?\\s-*\\(\n\\|\\s>\\)" number "L?\\(\\s\"\\)" string forward-sexp (byte-code "\300\301!\210`\207" [forward-sexp 1] 2) ((error (byte-code "\304 \n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point string] 4))) "\\(\\sw\\|\\s_\\)+" tmp-start semantic-lex-end-point semantic-lex-current-depth depth semantic-lex-depth semantic-lex-maximum-depth semantic-lex-analysis-bounds parse-sexp-lookup-properties #1# #2# semantic-lex-syntax-table length token save-match-data-internal name beginning-of-define with-args semantic-lex-spp-replacements-enabled semantic-lex-analyzer raw-stream #3=#:endpnt #4=#:val #5=#:startpnt #6=#:end #7=#:start #8=#:end #9=#:start obarray semantic-lex-spp-dynamic-macro-symbol-obarray pt #10=#:endpnt #11=#:val #12=#:startpnt #13=#:end #14=#:start #15=#:endpnt #16=#:val #17=#:startpnt #18=#:end #19=#:start semantic-lex-number-expression debug-on-error semantic-lex-debug-analyzers semantic-flex-keywords-obarray semantic-lex-comment-regex comment-start-point semantic-current-input-throw-symbol semantic-lex-debug o last blk x syntax semantic-lex-unterminated-syntax-end-function match-string arrayp intern-soft symbol "\\s\\+" charquote "\\s(" open-paren semantic-list forward-list (byte-code "\300\301!\210`\207" [forward-list 1] 2) ((error (byte-code "\304 \n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point semantic-list] 4))) "\\s)" close-paren forward-comment skip-syntax-forward "-.'" point-at-eol -1 "Strange comment syntax prevents lexical analysis" "\\(\\s.\\|\\s$\\|\\s'\\)" punctuation "Unmatched Text during Lexical Analysis" "semantic-cpp-lexer: endless loop at %d, after %S" input-pending-p accept-process-output throw lex ((byte-code "\203 \301!\210\301\207" [o semantic-overlay-delete] 2)) semantic-lex-highlight-token semantic-read-event format "%S :: Depth: %d :: SPC - continue" message "semantic-cpp-lexer: `%s' block from %S is unterminated"] 8 (#$ . 44024)]) #@301 Calls `semantic-parse-region-default', except in a macro expansion. MACRO expansion mode is handled through the nature of Emacs's non-lexical binding of variables. START, END, NONTERMINAL, DEPTH, and RETURNONERRORS are the same as for the parent. Override semantic-parse-region in `c-mode' buffers. (defalias 'semantic-parse-region-c-mode #[(start end &optional nonterminal depth returnonerror) "\306\302!\203\220 \307U\203 dU\204\220 \n\211\211 @) A@ A@;\211 \2035 \310\n$\202\216 \203\204 \307U\203\204 \311=\203\204 \203\204 :\203\204 @9\203\204 \312:\203p @\313=\203p A\202u \314 \312# \315#\237)\202\216 \316 %,\207\316 %\207" [start end lse last-lexical-token token llt-class boundp 1 semantic-c-parse-lexical-token semantic-list 0 prefix-fake-plus semantic-lex semantic-repeat-parse-whole-stream semantic-parse-region-default llt-fakebits macroexpand nonterminal depth returnonerror tokstream] 7 (#$ . 50808)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-parse-region-c-mode definition-name semantic-parse-region mode-local-bind ((semantic-parse-region . semantic-parse-region-c-mode)) (override-flag t) c-mode] 4) #@71 Current depth of recursive calls to `semantic-c-parse-lexical-token'. (defvar semantic-c-parse-token-hack-depth 0 (#$ . 52018)) #@268 Do a region parse on the contents of LEXICALTOKEN. Presumably, this token has a string in it from a macro. The text of the token is inserted into a different buffer, and parsed there. Argument NONTERMINAL, DEPTH, and RETURNONERROR are passed into the regular parser. (defalias 'semantic-c-parse-lexical-token #[(lexicaltoken nonterminal depth returnonerror) "T\306\307\310\"!\n\f \311 #$\211 %\211 %A@\247\204& %AA\202) %A)@) &$\211 %\211 %A@\247\204C %AA\202F %A)A) '$\211 %A@;\203] %A@\202\225 \312%\211 %\211 %A@\247\204s %AA\202v %A)@)%\211 %\211 %A@\247\204\216 %AA\202\221 %A)A)\") (\313\314\315(# \316V\204\243r q\210\317 \210\n =\204\324 \320 )\321\216\311\322\323\217\210*\324 \210\325 \210\326*\327 \210\330 \210\331\332\333\326#\210 \311 +\211 ,\203\370 ,@+\334+@+A\"\210,A\211,\204\341 *(c\210\335ed-./%# \311 +\211 ,\203>,@\211+@\311 0 1\33610\2062\f\2062\337\340\314\"\211\"*\210,A\211,\204*#\311 2\211 ,\203\242,@\2112&'D 3\211 2 2\3412\233)3\240*\210\3422!\311 4\211 ,\203\230,@\2114&'D 3\211 2 2\3412\233)3\240*\210,A\211,\204s*,A\211,\204J+#. \207" [semantic-c-parse-token-hack-depth buf major-mode mode semantic-lex-spp-dynamic-macro-symbol-obarray spp-syms get-buffer-create format " *C parse hack %d*" nil buffer-substring-no-properties get-text-property 0 macros 5 erase-buffer match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) (funcall mode) ((error (byte-code "\301\302\303\304 #!\203 \305!\210\202 \306\307!\210\310\311!\210\301\207" [mode y-or-n-p format "There was an error initializing %s in buffer \"%s\". Debug your hooks? " buffer-name semantic-c-debug-mode-init message "Macro parsing state may be broken..." sit-for 1] 5))) activate-mode-local-bindings semantic-default-c-setup t semantic-lex-init semantic-clear-toplevel-cache remove-hook semantic-lex-reset-functions semantic-lex-spp-reset-hook semantic-lex-spp-symbol-set semantic-parse-region-default unintern make-vector 13 4 semantic-tag-components-with-overlays stream lexicaltoken token start end symtext save-match-data-internal semantic-new-buffer-fcn-was-run sym --dolist-tail-- nonterminal depth returnonerror obarray name tag overlay stag] 7 (#$ . 52153)]) #@41 The most recent mode needing debugging. (defvar semantic-c-debug-mode-init-last-mode nil (#$ . 54439)) #@65 Debug mode init for major mode MM after we're done parsing now. (defalias 'semantic-c-debug-mode-init #[(mm) "\303\304!\203 \305\306\307!!\210\310 )\207 \311\312\313\"\207" [debug-on-error mm semantic-c-debug-mode-init-last-mode called-interactively-p interactive switch-to-buffer get-buffer-create "*MODE HACK TEST*" t add-hook post-command-hook semantic-c-debug-mode-init-pch] 3 (#$ . 54548) (list semantic-c-debug-mode-init-last-mode)]) #@60 Notify user about needing to debug their major mode hooks. (defalias 'semantic-c-debug-mode-init-pch #[nil "\302\303\304!!\210\305 \210\306\307 !\310\261\210\311\312\313\")\207" [semantic-c-debug-mode-init-last-mode mm switch-to-buffer-other-window get-buffer-create "*MODE HACK TEST*" erase-buffer "A failure occurred while parsing your buffers.\n\nThe failure occurred while attempting to initialize " symbol-name " in a\nbuffer not associated with a file. To debug this problem, type\n\nM-x semantic-c-debug-mode-init\n\nnow.\n" remove-hook post-command-hook semantic-c-debug-mode-init-pch] 3 (#$ . 54998)]) #@52 Expand TAG into a list of equivalent tags, or nil. (defalias 'semantic-expand-c-tag #[(tag) "\304 \211A@)\305=\203 \306 !\304 \307\211\211A@)\n*=\2043 \310\211\211A@)\n*=\203= \311 !\211@ A \211@):\203a \312 !\211\204S \304\202] :\203] \313 \")\202n \203n :\203n B)\207" [return-list tag class rl nil extern semantic-expand-c-extern-C function variable semantic-expand-c-complex-type semantic-expand-c-tag-namelist append] 4 (#$ . 55619)]) #@142 Expand TAG containing an 'extern "C"' statement. This will return all members of TAG with 'extern "C"' added to the typemodifiers attribute. (defalias 'semantic-expand-c-extern-C #[(tag) "\211A@)\306=\205e \307\310\3118) \"*\211\n\203b \n@\312\310\3118) \"* \313\314\fBB\n@\312\f \211\211AA)\211 :\203W \315\316@ #!\240\210,\210)\nA\211\204 \237*\207" [tag attribute mb ret mods value extern :members plist-get 2 :typemodifiers "extern" "\"C\"" semantic-tag-make-plist plist-put plist-cdr] 7 (#$ . 56093)]) #@379 Check if TAG has a full :type with a name on its own. If so, extract it, and replace it with a reference to that type. Thus, 'struct A { int a; } B;' will create 2 toplevel tags, one is type A, and the other variable B where the :type of B is just a type tag A that is a prototype, and the actual struct info of A is its own toplevel tag. This function will return (cons A B). (defalias 'semantic-expand-c-complex-type #[(tag) "\211\306\307\3108) \"+\311\211 \n:\205 \n\211@)\211 :\203) @@\n\203\313 \n\311\312\313\217)\203\313 \314\n!\204\313 \203\313 \315\230\204\313 \n\211@)\n\211\306\307\3108) \"+\311\211\316\317D \320\321 \322\306\323 \324 @\325 A&\f-\326!\211\306 \211\211AA)\211 :\203\252 \327\330 @ #!\240\210,\210\331\n\"\210\n\3328) !\211\332\233)!\240*\210\n\fB\f,B\207" [tag attribute basetype typeref ret tname :type plist-get 2 nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) semantic-tag-prototype-p "" :prototype t apply semantic-tag type :members :superclasses :interfaces semantic-tag-copy semantic-tag-make-plist plist-put semantic--tag-copy-properties 4 attributes parents members name value plist-cdr overlay] 14 (#$ . 56636)]) #@62 Expand TAG whose name is a list into a list of tags, or nil. (defalias 'semantic-expand-c-tag-namelist #[(tag) "\306\211\211A@) *=\203\307\211\310\311\3128)\n\"+\313\314\311\3128)\n\"*\313\211@)\307\211 + , - . / \203\375 \313\211+- @\312 8\203_ \315\312 8P+.G\316U\203o .@-\202s .-\317 8 @-\f\205\206 \320\f@\fA@\"\321\211\321\311\3128)\n\"+\322+\314,\323\324 8G\325 A@\326\326\311\3128)\n\"*\327\330!\257 0 1 2\331\3322\306\310 \33310&,/B/\334/@\"\210/@\3178) 3\211\317\233)3\240*\210 A\211\204I /\237.\207\335\211\211A@) *=\203\204\307\211@)\336\311\3128)\n\"*\307 4 5 6 /\337\340\"\203\3505\335\211\211A@) *=\203\3505\211\341\311\3128)\n\"+\203\350545\307 22\206p\211@)\211A@)\342\3128)!\342\3248)!\3178)\257*\2115\211@)\313\230\204\3045\341\307 7\211\211AA)\211 8:\203\2768\343\3448@\n7#!\240\210,\210\202\307\30744\203\350\3344\"\2104\3178) 3\211\317\233)3\240*\2106\203t6@A@\340\211\341\311\3128)\n\"+\345!\211@)C\3256@@@\211 9\346U?\205 9)\3475\327\330!\257 0 : ; 2\331\3322\335\310 \341;\336:@\350:A0&\f-/B/\334/@\"\210/@\3178) 3\211\317\233)3\240*\2106A\2116\204\3554\203\2004/B//,\207@<\203\270@\306\211\211A@) *=\203\270\307 /\203\264\351\352/@!/\"/A\211\204\242/)\207\307\207" [tag class attribute cur default lst variable nil :type plist-get 2 "" :typemodifiers ":" 1 4 buffer-substring-no-properties :constant-flag :suffix :dereference 3 :pointer :reference :documentation semantic-tag-docstring apply semantic-tag :default-value semantic--tag-copy-properties type :superclasses semantic-tag-of-type-p "typedef" :members copy-sequence semantic-tag-make-plist plist-put semantic-tag-type-superclasses 0 :typedef :interfaces append semantic-tag-components suffix mods ty basety vl attributes default-value name overlay addlast super names value plist-cdr stars parents members] 19 (#$ . 57912)]) (byte-code "\306\307\310BC\311\312#\210\313\314\312\"\210\210)\315\310\312\316\n!\317 \2046 \211\2046 \2055 \320\f\" \203` \204` \321N\203O \320\f \321N\"\211\2046 \211\322N\206Z \323N)\211\204: ,\324\325#\207" [#1=#:tmp0 mode symbol bind name mode-local-active-mode semantic-expand-c-tag mode-local-bind semantic-tag-expand-function (mode-variable-flag t) c-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-tag-expand-function make-local-variable] 2] put symbol-name nil intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent variable-documentation "Function used to expand tags generated in the C bovine parser." major-mode] 5) #@276 At parse time, assign a class or struct name text here. It is picked up by `semantic-c-reconstitute-token' to determine if something is a constructor. Value should be: (TYPENAME . TYPEOFTYPE) where typename is the name of the type, and typeoftype is "class" or "struct". (defvar semantic-c-classname nil (#$ . 60643)) #@104 Split up tag names on colon (:) boundaries. Override semantic-analyze-split-name in `c-mode' buffers. (defalias 'semantic-analyze-split-name-c-mode #[(name) "\302\303\"\211G\304U\203 \202 \305\306 \")\207" [name ans split-string ":" 1 delete ""] 4 (#$ . 60972)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-analyze-split-name-c-mode definition-name semantic-analyze-split-name mode-local-bind ((semantic-analyze-split-name . semantic-analyze-split-name-c-mode)) (override-flag t) c-mode] 4) #@210 Reconstitute a token TOKENPART with DECLMODS and TYPEDECL. This is so we don't have to match the same starting text several times. Optional argument STAR and REF indicate the number of * and & in the typedef. (defalias 'semantic-c-reconstitute-token #[(tokenpart declmods typedecl) "<\203 G\306U\203 @;\203 @ A@\307=\203F @\206$ \310\311\312\313\n\235\205- \314\315\316\313\n\"F 5\317\3205\307\321 \322\f &,\207 A@\323=\205\2206\203\\ 6@ @\230\204t \324 8@;\203n \324 8@ @\230\204t \325 8\205y \326 8@? 7\327\330 @\"\211 8\203\216 @\306\311O\202\220 @ 9\327\3319\"?\205\234 \314 :8\203\277 9\311\332\314D 5\317\3205\307\321 \322\f &,\202\2179\206 \326 8@\203\320 \333\202 7\203 6@\206\363 \334\324 8@!\211 ;;\203\355 ;\202\362 \335;!@)6A\206\372 \336\311\211\211 < = 5\317\3205\305\321 \337=\340<@\341<A &\f-\202 \310\342 8\312\313\n\235\205*\314\315\316\313\n\"\343\324 8@\344\326 8@\205=\314\3457\205D\314\346\347 8\350:\351\352 8\353\354\355 8\235\205Y\314\356\313\355 8\235\205c\314\357\360 8\205k\314\361\360 8\361=\205u\314\362\363 8\257 > 5\317\3205\323\321 \364> &,,\207" [typedecl tokenpart declmods attributes default-value type 1 variable "int" nil :constant-flag "const" t :typemodifiers delete apply semantic-tag :type :default-value function 2 10 3 string-match "^\\*" "[a-zA-Z]" :functionpointer-flag "void" semantic-analyze-split-name-c-mode last "class" :members :superclasses :interfaces 4 :parent :destructor-flag :constructor-flag :pointer 7 :operator-flag :throws 5 :reentrant-flag "reentrant" 6 :methodconst-flag :prototype-flag 8 :pure-virtual-flag :template-specifier 9 :arguments name semantic-c-classname constructor fcnpointer fnname operator split parents members arg-list] 31 (#$ . 61502)]) #@57 Reconstitute the token TAG with the template SPECIFIER. (defalias 'semantic-c-reconstitute-template #[(tag specifier) "\305 \206 \306\211\211AA)\211 :\203! \f\307\310\f@ \n#!\240\210,\210\207" [tag specifier value attribute plist-cdr :template "" semantic-tag-make-plist plist-put] 7 (#$ . 63290)]) #@152 Convert TAG to a string that is the print name for TAG. Optional PARENT and COLOR are ignored. Override semantic-format-tag-name in `c-mode' buffers. (defalias 'semantic-format-tag-name-c-mode #[(tag &optional parent color) "\306 \n#\307\310\3118) \"* \f\204 \202! \312 \313Q*\207" [tag parent color attribute fnptr name semantic-format-tag-name-default :functionpointer-flag plist-get 2 "(*" ")"] 4 (#$ . 63604)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-name-c-mode definition-name semantic-format-tag-name mode-local-bind ((semantic-format-tag-name . semantic-format-tag-name-c-mode)) (override-flag t) c-mode] 4) #@277 Create a canonical name for TAG. PARENT specifies a parent class. COLOR indicates that the text should be type colorized. Enhances the base class to search for the entire parent tree to make the name accurate. Override semantic-format-tag-canonical-name in `c-mode' buffers. (defalias 'semantic-format-tag-canonical-name-c-mode #[(tag &optional parent color) "\303 \n#\207" [tag parent color semantic-format-tag-canonical-name-default] 4 (#$ . 64279)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-canonical-name-c-mode definition-name semantic-format-tag-canonical-name mode-local-bind ((semantic-format-tag-canonical-name . semantic-format-tag-canonical-name-c-mode)) (override-flag t) c-mode] 4) #@214 Convert the data type of TAG to a string usable in tag formatting. Adds pointer and reference symbols to the default. Argument COLOR adds color to the text. Override semantic-format-tag-type in `c-mode' buffers. (defalias 'semantic-format-tag-type-c-mode #[(tag color) "\211\306\307\3108) \"+\311\312\307\3108) \"* \313\307\3108) \"* \n\311\314\315\217)\203k \n\211\306\307\3108) \"+\n\211@) \211 \316\230\203` \202g \317Q*\202q \320\"\203{ \321 \302\" \203\201 \322\f\203\212 \323\f\324\"\n\205\222 \fQ,\207" [tag attribute type defaulttype point ref :type plist-get 2 nil :pointer :reference (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) "class" " " semantic-format-tag-type-default semantic--format-colorize-text "&" make-string 42 typename typetype color] 4 (#$ . 65023)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-type-c-mode definition-name semantic-format-tag-type mode-local-bind ((semantic-format-tag-type . semantic-format-tag-type-c-mode)) (override-flag t) c-mode] 4) #@243 Override the usual search for protection. We can be more effective than the default by scanning through once, and collecting tags based on the labels we see along the way. Override semantic-find-tags-by-scope-protection in `c-mode' buffers. (defalias 'semantic-find-tags-by-scope-protection-c-mode #[(scopeprotection parent &optional table) "\204 \211\306\307\n\310\n8) \"+\f\204 \207\311\312\f\313=\203' \312\2022 \f\314=\2031 \310\2022 \315\316 \311\211 \203~ @\211\317 \211\211A@)*=\203g \320\n\211@) \"A\202u Y\203u \nBA\211\204C *,\207" [table parent tag attribute scopeprotection alist :members plist-get 2 nil 1 public protected 3 (("public" . 1) ("protected" . 2) ("private" . 3)) label assoc targetprot curprot ans --dolist-tail-- class] 5 (#$ . 66151)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-find-tags-by-scope-protection-c-mode definition-name semantic-find-tags-by-scope-protection mode-local-bind ((semantic-find-tags-by-scope-protection . semantic-find-tags-by-scope-protection-c-mode)) (override-flag t) c-mode] 4) #@145 Return the protection of TAG in PARENT. Override function for `semantic-tag-protection'. Override semantic-tag-protection in `c-mode' buffers. (defalias 'semantic-tag-protection-c-mode #[(tag &optional parent) "\211\306\307\3108) \"+\311\f\203\" \f\211A@)\312=\204J \n\204J \203J @;\203D @\211 \313\230\204C \314\230\204C \315\230\210) A\202\" \f\203\275 \f\211A@)\312=\203\275 \f\211\316\307\3108) \"+\211 \203\274 \317@\"\204\274 @\211A@)\320=\203\263 @\211@)\321\230\203\225 \322\202\262 @\211@)\323\230\203\245 \324\202\262 @\211@)\325\230\205\262 \326A\211\204o )\n\204 \f\211A@)\312=\203 \f\211\327\307\3108) \"+\330\230\203\345 \324\202\377 \f\211\327\307\3108) \"+\331\230\203\376 \322\202\377 \332\n\206\f\205\f\312 \211\211A@) *=\205\322*\207" [tag attribute prot mods parent s :typemodifiers plist-get 2 nil type "extern" "export" "static" :members semantic-equivalent-tag-p label "public" public "private" private "protected" protected :type "class" "struct" unknown pp class] 4 (#$ . 67265)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-protection-c-mode definition-name semantic-tag-protection mode-local-bind ((semantic-tag-protection . semantic-tag-protection-c-mode)) (override-flag t) c-mode] 4) #@238 Find all tags in TABLE that are of the 'include class. TABLE is a tag table. See `semantic-something-to-tag-table'. For C++, we also have to search namespaces for include tags. Override semantic-find-tags-included in `c-mode' buffers. (defalias 'semantic-find-tags-included-c-mode #[(&optional table) "\306!\307\211\203\" \n@\211A@)\310=\203 \n@ B\nA\211\204\n \237*\306!\307\211\203C \311\n@\312\"\203< \n@ B\nA\211\204/ \237* \f\307 \211 \203\226 @\313\n\306 \314 \315 \316 8)\"*!\307\211\203\210 \n@\211A@)\310=\203\201 \n@ B\nA\211\204p \237*\"A\211\204Q *\n*\207" [table result tags tag namespaces cur semantic-something-to-tag-table nil include semantic-tag-of-type-p "namespace" append :members plist-get 2 --dolist-tail-- attribute] 7 (#$ . 68587)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-find-tags-included-c-mode definition-name semantic-find-tags-included mode-local-bind ((semantic-find-tags-included . semantic-find-tags-included-c-mode)) (override-flag t) c-mode] 4) #@83 Return components for TAG. Override semantic-tag-components in `c-mode' buffers. (defalias 'semantic-tag-components-c-mode #[(tag) "\211A@)\303=\203> \211\304\305\3068) \"+\307\230\203> \310\305\3068) \"*\211\311\312\313\217)\205< \314\n!)\207\315!\207" [tag attribute sc type :type plist-get 2 "typedef" :typedef nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) semantic-tag-components semantic-tag-components-default] 4 (#$ . 69642)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-components-c-mode definition-name semantic-tag-components mode-local-bind ((semantic-tag-components . semantic-tag-components-c-mode)) (override-flag t) c-mode] 4) #@52 Return the template specification for TAG, or nil. (defalias 'semantic-c-tag-template #[(tag) "\302\303\3048) \"*\207" [tag attribute :template plist-get 2] 3 (#$ . 70394)]) #@62 Return the template specifier specification for TAG, or nil. (defalias 'semantic-c-tag-template-specifier #[(tag) "\302\303\3048) \"*\207" [tag attribute :template-specifier plist-get 2] 3 (#$ . 70580)]) #@82 Convert TEMPLATESPEC into a string. This might be a string, or a list of tokens. (defalias 'semantic-c-template-string-body #[(templatespec) ";\203 \207\302\303\304\217)\203 \305!\207<\205 \306\305\307#\207" [templatespec tag nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) semantic-format-tag-abbreviate mapconcat ", "] 4 (#$ . 70796)]) #@228 Return a string representing the TEMPLATE attribute of TOKEN. This string is prefixed with a space, or is the empty string. Argument PARENT specifies a parent type. Argument COLOR specifies that the string should be colorized. (defalias 'semantic-c-template-string #[(token &optional parent color) "\306!\307! \205 \307 ! \205 \306 ! \211 \203% \310\311 !\312Q\202. \f\203- \313\202. \314,\207" [token parent pt2 pt1 t1 t2 semantic-c-tag-template-specifier semantic-c-tag-template " <" semantic-c-template-string-body ">" " <>" ""] 6 (#$ . 71204)]) #@217 Return an abbreviated string describing TOKEN for C and C++. Optional PARENT and COLOR as specified with `semantic-format-tag-abbreviate-default'. Override semantic-format-tag-concise-prototype in `c-mode' buffers. (defalias 'semantic-format-tag-concise-prototype-c-mode #[(token &optional parent color) "\303 \n#\304 \n#P\207" [token parent color semantic-format-tag-concise-prototype-default semantic-c-template-string] 5 (#$ . 71766)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-concise-prototype-c-mode definition-name semantic-format-tag-concise-prototype mode-local-bind ((semantic-format-tag-concise-prototype . semantic-format-tag-concise-prototype-c-mode)) (override-flag t) c-mode] 4) #@198 Return an UML string describing TOKEN for C and C++. Optional PARENT and COLOR as specified with `semantic-abbreviate-tag-default'. Override semantic-format-tag-uml-prototype in `c-mode' buffers. (defalias 'semantic-format-tag-uml-prototype-c-mode #[(token &optional parent color) "\303 \n#\304 \n#P\207" [token parent color semantic-format-tag-uml-prototype-default semantic-c-template-string] 5 (#$ . 72509)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-uml-prototype-c-mode definition-name semantic-format-tag-uml-prototype mode-local-bind ((semantic-format-tag-uml-prototype . semantic-format-tag-uml-prototype-c-mode)) (override-flag t) c-mode] 4) #@251 Return non-nil if TAG is considered abstract. PARENT is tag's parent. In C, a method is abstract if it is `virtual', which is already handled. A class is abstract iff its destructor is virtual. Override semantic-tag-abstract-p in `c-mode' buffers. (defalias 'semantic-tag-abstract-p-c-mode #[(tag &optional parent) "\211A@)\305=\203M \306\307!\210\310\311\312!\"\206\200 \310\313\312!\"\310\314\312!\" \205K \315 @\211\316\317\3208) \"+\235\205K \n\205K \321\n@\"\322=*\207\211A@)\323=\203| \311\317\3208) \"*\206\200 \315\211\316\317\3208) \"+\235\207\324\f\"\207" [tag ds cs attribute parent type require semantic/find semantic-brute-find-tag-by-attribute :pure-virtual-flag semantic-tag-components :destructor-flag :constructor-flag "virtual" :typemodifiers plist-get 2 semantic-tag-protection protected function semantic-tag-abstract-p-default] 5 (#$ . 73209)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-abstract-p-c-mode definition-name semantic-tag-abstract-p mode-local-bind ((semantic-tag-abstract-p . semantic-tag-abstract-p-c-mode)) (override-flag t) c-mode] 4) #@146 If TYPE is a typedef, get TYPE's type by name or tag, and return. SCOPE is not used, and TYPE-DECLARATION is used only if TYPE is not a typedef. (defalias 'semantic-c-dereference-typedef #[(type scope &optional type-declaration) "\211A@)\300=\203v \211\306\307 \310 8)\n\"+\311\230\203v \312\307 \310 8)\n\"*\211\313\314\315\217)\203N \316 !\204N \317! \320 \313\f#)\211D\202t ;\203k \211\300\313 \211 \321 !\313\211\257+D\202t :\205t @ D)\207D\207" [type tag attribute dt fname attributes :type plist-get 2 "typedef" :typedef nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) semantic-tag-prototype-p semantic-tag-file-name semantic-tag-copy semantic-tag-make-plist class name type-declaration] 7 (#$ . 74352)]) #@159 Replace TAG name according to template specification. DEF-LIST is the template information. SPEC-LIST is the template specifier of the datatype instantiated. (defalias 'semantic-c--instantiate-template #[(tag def-list spec-list) "@\205D @\205D @\211\305\306\n\307\n8) \"+\310\230\203= \n\211@)@\211@)\230\203= \n @\211@) \211\f\240*\210\311\nA A#\207" [def-list spec-list tag attribute name :type plist-get 2 "class" semantic-c--instantiate-template] 5 (#$ . 75150)]) #@117 Return a string used to compute template class name. Based on SPEC-LIST, for ref<Foo,Bar> it will return 'Foo,Bar'. (defalias 'semantic-c--template-name-1 #[(spec-list) "@\205 \304A!\211\205 \305@\211@)\n Q*\207" [spec-list endpart separator tag semantic-c--template-name-1 ","] 4 (#$ . 75638)]) #@146 Return a template class name for TYPE based on SPEC-LIST. For a type `ref' with a template specifier of (Foo Bar) it will return 'ref<Foo,Bar>'. (defalias 'semantic-c--template-name #[(type spec-list) "\211@)\303\304\nA!\305R\207" [type tag spec-list "<" semantic-c--template-name-1 ">"] 5 (#$ . 75949)]) #@173 Dereference any template specifiers in TYPE within SCOPE. If TYPE is a template, return a TYPE copy with the templates types instantiated as specified in TYPE-DECLARATION. (defalias 'semantic-c-dereference-template #[(type scope &optional type-declaration) "\306\307\310\217)\203r \n\311\312 \313 8) \"*\314\312 \313 8) \"* \211 \203q \f\203q \315\n\316\"\211\317\n\f\" \211\240*\210\n\311\306 \211\211AA)\211 :\203e \320\321@ #!\240\210 ,\210\n\322 \323\324#)\210*\nD\207" [type-declaration tag type attribute spec-list def-list nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) :template plist-get 2 :template-specifier semantic-tag-deep-copy-one-tag #[(tag) "\304\211\211A@) *=\203 \305\n #\210\207" [tag class def-list spec-list type semantic-c--instantiate-template] 5] semantic-c--template-name semantic-tag-make-plist plist-put semantic--tag-put-property :faux-flag t name value plist-cdr] 7 (#$ . 76263)]) #@211 Dereference through the `->' operator of TYPE. Uses the return type of the '->' operator if it is contained in TYPE. SCOPE is the current local scope to perform searches in. TYPE-DECLARATION is passed through. (defalias 'semantic-c-dereference-member-of #[(type scope &optional type-declaration) "\203h \306\307 !!\310 \211 \203* @\211 @)\311\230\203# @\fB A\211\204 \f\237+@\211 \203b \312 \313 \314 8)\"*\312 \313 \314 8)\"*D\202f D)\207 D\207" [semantic-c-member-of-autocast semantic-case-fold case-fold-search type result tags semantic-something-to-tag-table semantic-analyze-scoped-type-parts nil "->" :type plist-get 2 tag operator attribute type-declaration] 5 (#$ . 77269)]) #@212 Dereference namespace which might hold an 'alias' for TYPE. Such an alias can be created through 'using' statements in a namespace declaration. This function checks the namespaces in SCOPE for such statements. (defalias 'semantic-c-dereference-namespace #[(type scope &optional type-declaration) "\306\307\"\310\211\211\211\211\211 \310\311\312\217)\203\360 \203+ \313!\203\360 \314\211 @)! \315\316!!\310\211 \203k \242\206P @\211 @)\230\203b @\nB A\211 \204H \n\237+\204\360 ;\203\242 \315!\310\211 \203\233 \317 @\320\"\203\222 @\nB A\211 \204\203 \n\237*\202\314 \321@!\211\211 \322 \323 \3248) \"+\320\230\203\312 C\202\314 \310\310 \203\360 \n\204\360 @\325 \"\211\204\351 \326 \" A\211\204\322 \n\203\372 \n\211D\202\377 D.\207" [scope namespaces result usingname tmp currentns eieio-oref scopetypes nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) semantic-tag-prototype-p semantic-analyze-split-name semantic-something-to-tag-table semantic-flatten-tags-table semantic-tag-of-type-p "namespace" semanticdb-typecache-find :type plist-get 2 semantic-c-dereference-namespace-alias semantic-c-check-type-namespace-using typename type-declaration tag type semantic-case-fold case-fold-search tags attribute] 8 (#$ . 77996)]) #@226 Dereference TYPE in NAMESPACE, given that NAMESPACE is an alias. Checks if NAMESPACE is an alias and if so, returns a new type with a fully qualified name in the original namespace. Returns nil if NAMESPACE is not an alias. (defalias 'semantic-c-dereference-namespace-alias #[(type namespace) "\306\307\n\310\n8) \"*\311=\205\361 \312 \211@)!\313\211\211\211 \211 <\2034 \314!\2029 C\315\307\n\310\n8) \"*@\211@)\211\205\360 \316!\211\205\360 \317\315\307\n\310\n8) \"*!\313 \211 \203\231 @@\211@)\230\203\220 @BA\211\204z \237+\211\205\360 \312! @\320<\203\272 \321\"\202\301 \321C\"! \206\317 \n\211@)\n\211A@)\322\n\310\n8)!\322\n\323\n8)!\n\324\n8)\257*\211-\207" [namespace attribute tag type newtype originaltype :kind plist-get 2 alias semantic-analyze-split-name nil last :members semanticdb-typecache-find semantic-something-to-tag-table semantic-analyze-unsplit-name append copy-sequence 3 4 nstype ns typename semantic-case-fold case-fold-search result tags name] 7 (#$ . 79370)]) #@165 Check if TYPE is accessible in NAMESPACE through a using statement. Returns the original type from the namespace where it is defined, or nil if it cannot be found. (defalias 'semantic-c-check-type-namespace-using #[(type namespace) "\306\211\211\211\211\211\211\211 \307 \310 \3118)\"*\211\203\211\312!\306 \211 \203Y @\211 A@)\313=\203P @BA\211\204: \237*\211\203\211\314\211 @)!\211<\203w \315 !@\203\211\204\211\314@\211 @)!@\211 \316 \310 \3118)\"+\211 \316 \310 \3118)\"+\211\317\230\204\307 ;\203Q\320 !\211\203(\307 \310 \3118)\"*\211\203( \312\n!\306 \211 \203 @\211 @)\230\203@BA\211\204\372 \237+\211\203(\n@\202\200\321\"\211\203\200\211 \316 \310 \3118)\"+\202\200\f\322\230\203\200 <\203\200 \315 !@\230\203\200@\211 \316 \310 \3118)\"+A\211\204| .\207" [tmp shortname members unqualifiedname usingtype usingname nil :members plist-get 2 semantic-something-to-tag-table using semantic-analyze-split-name last :type "namespace" semanticdb-typecache-find semantic-c-check-type-namespace-using "class" result usings namespace attribute tag tags type semantic-case-fold case-fold-search] 9 (#$ . 80454)]) #@203 Dereference TYPE as described in `semantic-analyze-dereference-metatype'. Handle typedef, template instantiation, and '->' operator. Override semantic-analyze-dereference-metatype in `c-mode' buffers. (defalias 'semantic-analyze-dereference-metatype-c-mode #[(type scope &optional type-declaration) "\306\211A@\307 \2039 #\211@\n\211 A@) \f=\204/ \307\211\202 \211A@\211\204 , D\207" [dereferencer-list dereferencer type-tuple type original-type scope (semantic-c-dereference-typedef semantic-c-dereference-template semantic-c-dereference-member-of semantic-c-dereference-namespace) nil type-declaration x] 5 (#$ . 81757)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-analyze-dereference-metatype-c-mode definition-name semantic-analyze-dereference-metatype mode-local-bind ((semantic-analyze-dereference-metatype . semantic-analyze-dereference-metatype-c-mode)) (override-flag t) c-mode] 4) #@158 When TYPE is a tag for an enum, return its parts. These are constants which are of type TYPE. Override semantic-analyze-type-constants in `c-mode' buffers. (defalias 'semantic-analyze-type-constants-c-mode #[(type) "\211A@)\300=\2050 \211\303\304 \305 8)\n\"+\306\230\2050 \211\307\304 \305 8)\n\"+\207" [type tag attribute :type plist-get 2 "enum" :members] 4 (#$ . 82708)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-analyze-type-constants-c-mode definition-name semantic-analyze-type-constants mode-local-bind ((semantic-analyze-type-constants . semantic-analyze-type-constants-c-mode)) (override-flag t) c-mode] 4) #@121 Assemble the list of names NAMELIST into a namespace name. Override semantic-analyze-unsplit-name in `c-mode' buffers. (defalias 'semantic-analyze-unsplit-name-c-mode #[(namelist) "\301\302\303#\207" [namelist mapconcat identity "::"] 4 (#$ . 83374)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-analyze-unsplit-name-c-mode definition-name semantic-analyze-unsplit-name mode-local-bind ((semantic-analyze-unsplit-name . semantic-analyze-unsplit-name-c-mode)) (override-flag t) c-mode] 4) #@164 Return a list of tags of CLASS type based on POINT. DO NOT return the list of tags encompassing point. Override semantic-ctxt-scoped-types in `c++-mode' buffers. (defalias 'semantic-ctxt-scoped-types-c++-mode #[(&optional point) "\203 `b\210\306 \307\211\310p!\307 \211 \2031 @\211 A@)\311=\203* @\fB A\211\204 \f\237*\310 !\307 \211 \203S \312 @\313\"\203L @\fB A\211\204? \f\237* \310 !\307 \211 \203} @\211 @)\314\230\203v @\fB A\211\204e \f\237+\211\315\316!\317\320 ! \211 W\203\276 \321 \"@\211 \322 \323 \3248) \"+\nB T\211 \202\220 * A\203(\310\325 @!!\307 \211 \203\352 @\211 A@)\316=\203\343 @\fB A\211\204\321 \f\237*\211\307 !\211 \"\203 \"@\211!\211 \322 \323 \3248) \"+\nB\"A\211\"\204\370 * A\211\202\300 @\326 #\211 \211 A@)#*=\203q\310\327 !\307 \211 \203a @\211 A@)\316=\203Z @\fB A\211\204H\f\237*\211\203q\330\n\331\332 \"\"\n+\207" [point tmp tagreturn tagsaroundpoint result tags semantic-find-tag-by-overlay nil semantic-something-to-tag-table type semantic-tag-of-type-p "namespace" "unnamed" semanticdb-find-tags-by-class using 0 semanticdb-find-result-length semanticdb-find-result-nth :type plist-get 2 semantic-tag-components function semantic-get-local-variables append mapcar semantic-tag-type tag semantic-case-fold case-fold-search len idx attribute T --dolist-tail-- class] 6 (#$ . 83897)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-scoped-types-c++-mode definition-name semantic-ctxt-scoped-types mode-local-bind ((semantic-ctxt-scoped-types . semantic-ctxt-scoped-types-c++-mode)) (override-flag t) c++-mode] 4) #@120 Return the list of using tag types in scope of POINT. Override semantic-ctxt-imported-packages in `c++-mode' buffers. (defalias 'semantic-ctxt-imported-packages-c++-mode #[(&optional point) "\203 `b\210\306 \307\211\310p!\307 \211 \2031 @\211 A@)\311=\203* @\fB A\211\204 \f\237*\211\307 \211 \203g @\211\211 \312 \313 \3148)\"+\nBA\211\204? * A\203\321 \310\315 @!!\307 \211 \203\223 @\211 A@)\311=\203\214 @\fB A\211\204z \f\237*\211\307 \211 \203\311 @\211\211 \312 \313 \3148)\"+\nBA\211\204\241 * A\211\202i \n+\207" [point tmp namereturn tagsaroundpoint result tags semantic-find-tag-by-overlay nil semantic-something-to-tag-table using :type plist-get 2 semantic-tag-components tag T --dolist-tail-- attribute] 4 (#$ . 85569)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-imported-packages-c++-mode definition-name semantic-ctxt-imported-packages mode-local-bind ((semantic-ctxt-imported-packages . semantic-ctxt-imported-packages-c++-mode)) (override-flag t) c++-mode] 4) #@174 Expand TAG if it has a fully qualified name. For types with a :parent, create faux namespaces to put TAG into. Override semanticdb-expand-nested-tag in `c++-mode' buffers. (defalias 'semanticdb-expand-nested-tag-c++-mode #[(tag) "\306\307\3108) \"*\211\203\210 \311\211\211A@) *=\203\210 \312\n!\313\314\315# \f\306\314 \211\211AA)\211 :\203O \316\317@ #!\240\210,\210 ;\203\\ C\202^ \237\320\321!\210 \314 \211 \203\202 @\322\fC\"A\211\204m *\f*\202\211 )\207" [tag attribute p class newtag s :parent plist-get 2 type semantic-analyze-split-name semantic-tag-copy nil t semantic-tag-make-plist plist-put require semantic/db-typecache semanticdb-typecache-faux-namespace value plist-cdr namespace --dolist-tail--] 7 (#$ . 86651)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semanticdb-expand-nested-tag-c++-mode definition-name semanticdb-expand-nested-tag mode-local-bind ((semanticdb-expand-nested-tag . semanticdb-expand-nested-tag-c++-mode)) (override-flag t) c++-mode] 4) #@489 For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object INCLUDETAG is a semantic TAG of class 'include. TABLE is a semanticdb table that identifies where INCLUDETAG came from. TABLE is optional if INCLUDETAG has an overlay of :filename attribute. For C++, we also have to check if the include is inside a namespace, since this means all tags inside this include will have to be wrapped in that namespace. Override semanticdb-find-table-for-include in `c-mode' buffers. (defalias 'semanticdb-find-table-for-include-c-mode #[(includetag &optional table) "\306 \"\307\310 \311 8)\n\"*\312\211\211\211\211\211 $ % & \f ' ('\2038 (\2038 \313(\314\"\204= (\202\354'\315=\203:\306\316 )\310 \317 8))\"*\312\211 * + ,\320\321,\322\323+*&+!\211\203: \203:\324 !\312 -\211 \f\203\232 \325\f@\326\"\203\221 \f@-B-\fA\211\f\204\200 -\237*\211%\203:\313(\314\"\203:%\312 .\211 /\2039/@.0 1\324.\327\310 \311 8)\n\"*!\312 -\211 \f\203\373 \211@)\f@\211@)\230\203\362 \f@-B-\fA\211\f\204\332 -\237+\2030.\211@)'\307' 2\211\211AA)\211 3:\203-3\330\3313@\n2#!\240\210 ,\210/A\211/\204\267 *0 1\324\211(!\312 -\211 \f\203f\325\f@\326\"\203]\f@-B-\fA\211\f\204L-\237*!\312 -\211 \f\203\222'\f@\211@)\230\203\211\f@-B-\fA\211\f\204t-\237+\204\353\332(\314\"\f'\326\f\312\211 * 4 5 ,\320\321,\333\334\3275\3354@\3364A*&\f-C&\337\340!\341\f\314&#\210\341\f\342\332(\342\"#\210\341\f\343\332(\343\"#\210\f.\207" [includetag table attribute tag newtable parenttable semanticdb-find-table-for-include-default :inside-ns plist-get 2 nil slot-boundp tags t :filename 3 apply semantic-tag include :system-flag semantic-something-to-tag-table semantic-tag-of-type-p "namespace" :members semantic-tag-make-plist plist-put eieio-oref type :type :superclasses :interfaces semanticdb-table "include with context" eieio-oset parent-db file prefix namespaces newtags inside-ns inctable property attributes system-flag name result cur --dolist-tail-- semantic-case-fold case-fold-search value plist-cdr parents members] 14 (#$ . 87696)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semanticdb-find-table-for-include-c-mode definition-name semanticdb-find-table-for-include mode-local-bind ((semanticdb-find-table-for-include . semanticdb-find-table-for-include-c-mode)) (override-flag t) c-mode] 4) #@135 Do what `semantic-get-local-variables' does, plus add `this' if needed. Override semantic-get-local-variables in `c++-mode' buffers. (defalias 'semantic-get-local-variables-c++-mode #[nil "\306 \307 \211\211\211\310\311\n\312\n8) \",\211 \203N \313 \211\211A@) *=\203N \314\f\315\211 \316\317\320\321\322&,B\202O +\207" [origvar ct tag attribute p class semantic-get-local-variables-default semantic-current-tag :parent plist-get 2 function "this" nil apply semantic-tag variable :type :default-value attributes default-value type name] 10 (#$ . 90116)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-get-local-variables-c++-mode definition-name semantic-get-local-variables mode-local-bind ((semantic-get-local-variables . semantic-get-local-variables-c++-mode)) (override-flag t) c++-mode] 4) #@131 Handle the SPP keywords, then use the default mechanism. Override semantic-idle-summary-current-symbol-info in `c-mode' buffers. (defalias 'semantic-idle-summary-current-symbol-info-c-mode #[nil "\306 @\211\211;\2056 \n\235?\2056 \307 !\203 \310 \"\2066 \307\f!\203, \310 \f\"\2066 \307 !\2056 \310 \")\211 \203k \311P J \312!\211 \203` \313\314\"PA\315\316\317\217\210+\202m \320 *\207" [sym name semantic-lex-spp-expanded-macro-stack semantic-lex-spp-dynamic-macro-symbol-obarray semantic-lex-spp-project-macro-symbol-obarray semantic-lex-spp-macro-symbol-obarray semantic-ctxt-current-thing arrayp intern-soft "Macro: " semantic-lex-spp-macro-with-args format "%S" nil (byte-code "\305\211\203T \n@ \306 \211 A@;\203 \fA@\202J \307\f\211 \211 A@\247\204. \fAA\2020 \fA)@)\f\211 \211 A@\247\204D \fAA\202F \fA)A)\")Q\nA\211\204 *\305\207" [sv lt --dolist-tail-- txt token nil " " buffer-substring-no-properties] 7) ((error (byte-code "\301P\302\207" [txt " #error in summary fcn" nil] 2))) semantic-idle-summary-current-symbol-info-default spp-sym txt sv arg] 5 (#$ . 90971)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-idle-summary-current-symbol-info-c-mode definition-name semantic-idle-summary-current-symbol-info mode-local-bind ((semantic-idle-summary-current-symbol-info . semantic-idle-summary-current-symbol-info-c-mode)) (override-flag t) c-mode] 4) #@253 Compare the names of TAG1 and TAG2. If BLANKOK is false, then the names must exactly match. If BLANKOK is true, then always return t, as for C, the names don't matter for arguments compared. Override semantic--tag-similar-names-p in `c-mode' buffers. (defalias 'semantic--tag-similar-names-p-c-mode #[(tag1 tag2 blankok) "\203 \303\207\304 \n\305#\207" [blankok tag1 tag2 t semantic--tag-similar-names-p-default nil] 4 (#$ . 92406)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic--tag-similar-names-p-c-mode definition-name semantic--tag-similar-names-p mode-local-bind ((semantic--tag-similar-names-p . semantic--tag-similar-names-p-c-mode)) (override-flag t) c-mode] 4) #@332 For c-mode, deal with TAG1 and TAG2 being used in different namespaces. In this case, one type will be shorter than the other. Instead of fully resolving all namespaces currently in scope for both types, we simply compare as many elements as the shorter type provides. Override semantic--tag-similar-types-p in `c-mode' buffers. (defalias 'semantic--tag-similar-types-p-c-mode #[(tag1 tag2) "\306 \"\203 \307\207\310\311 D\"\211@G\n\211 A@)G X\2030 \n\211 A@)\233\n@\232\202A W\205A \n@\233\n\211 A@)\232+\207" [tag1 tag2 names len1 x len2 semantic--tag-similar-types-p-default t mapcar #[(tag) "\211\303\304\3058) \"+\211;\204 \n\211@)\306\n!\211;\203( \nC\n)\207" [tag attribute type :type plist-get 2 semantic-analyze-split-name] 4]] 5 (#$ . 93112)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic--tag-similar-types-p-c-mode definition-name semantic--tag-similar-types-p mode-local-bind ((semantic--tag-similar-types-p . semantic--tag-similar-types-p-c-mode)) (override-flag t) c-mode] 4) #@136 For c-mode, allow function :arguments to ignore the :name attributes. Override semantic--tag-attribute-similar-p in `c-mode' buffers. (defalias 'semantic--tag-attribute-similar-p-c-mode #[(attr value1 value2 ignorable-attributes) "\304=\203 \305 \n\306 B$\207\305 \n $\207" [attr value1 value2 ignorable-attributes :arguments semantic--tag-attribute-similar-p-default :name] 6 (#$ . 94161)]) (byte-code "\306\307\310\311#\210\312\313\314\315#\210\316\312\317BC\320\315#\210\321\322\315\"\210\210)\306\317\315\323\n!\324 \204B \211\204B 7\205A \325\f\" \203l \204l \326N\203[ \325\f \326N\"\211\204B \211\327N\206f \330N)\211\204F ,\331\332#\210\333 8\312\3348BC\320\315#\210\321\335\315\"\2108\210)\306\334\315\323\n!\324 \204\253 \211\204\253 7\205\252 \325\f\" \203\325 \204\325 \326N\203\304 \325\f \326N\"\211\204\253 \211\327N\206\317 \330N)\211\204\257 ,\331\336#\210\337 9\312\3409BC\320\315#\210\321\341\315\"\2109\210)\306\340\315\323\n!\324 \204 \211\2047\205\325\f\" \203> \204> \326N\203-\325\f \326N\"\211\204 \211\327N\2068 \330N)\211\204 ,\331\342#\210\343 :\312\344:BC\320\315#\210\321\345\315\"\210:\210)\306\344\315\323\n!\324 \204} \211\204}7\205|\325\f\" \203\247 \204\247 \326N\203\226\325\f \326N\"\211\204} \211\327N\206\241 \330N)\211\204\201 ,\331\346#\210\347 ;\312\350;BC\320\315#\210\321\351\315\"\210;\210)\306\350\315\323\n!\324 \204\346 \211\204\3467\205\345\325\f\" \203 \204 \326N\203\377\325\f \326N\"\211\204\346 \211\327N\206\n \330N)\211\204\352 ,\331\352#\210\353 <\312\354<BC\320\315#\210\321\355\315\"\210<\210)\306\354\315\323\n!\324 \204O \211\204O7\205N\325\f\" \203y \204y \326N\203h\325\f \326N\"\211\204O \211\327N\206s \330N)\211\204S ,\331\356#\210\357 =\312\360=BC\320\315#\210\321\361\315\"\210=\210)\306\360\315\323\n!\324 \204\270 \211\204\2707\205\267\325\f\" \203\342 \204\342 \326N\203\321\325\f \326N\"\211\204\270 \211\327N\206\334 \330N)\211\204\274 ,\331\362#\210\363 >\312\364>BC\320\315#\210\321\365\315\"\210>\210)\306\364\315\323\n!\324 \204! \211\204!7\205 \325\f\" \203K \204K \326N\203:\325\f \326N\"\211\204! \211\327N\206E \330N)\211\204% ,\331\366#\207" [#1=#:tmp0 mode symbol bind name mode-local-active-mode put semantic--tag-attribute-similar-p-c-mode definition-name semantic--tag-attribute-similar-p mode-local-bind ((semantic--tag-attribute-similar-p . semantic--tag-attribute-similar-p-c-mode)) (override-flag t) c-mode "struct" semantic-orphaned-member-metaparent-type (mode-variable-flag t) mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-orphaned-member-metaparent-type make-local-variable] 2] symbol-name nil intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent variable-documentation "When lost members are found in the class hierarchy generator, use a struct." ((type . "Types") (variable . "Variables") (function . "Functions") (include . "Includes")) semantic-symbol->name-assoc-list #[nil "\302\301!\210\211\207" [#2=#:tmp0 semantic-symbol->name-assoc-list make-local-variable] 2] "List of tag classes, and strings to describe them." ((type . "Types") (variable . "Attributes") (function . "Methods") (label . "Labels")) semantic-symbol->name-assoc-list-for-type-parts #[nil "\302\301!\210\211\207" [#3=#:tmp0 semantic-symbol->name-assoc-list-for-type-parts make-local-variable] 2] "List of tag classes in a datatype decl, and strings to describe them." semantic-create-imenu-index imenu-create-index-function #[nil "\302\301!\210\211\207" [#4=#:tmp0 imenu-create-index-function make-local-variable] 2] "Imenu index function for C." ("." "->" "::") semantic-type-relation-separator-character #[nil "\302\301!\210\211\207" [#5=#:tmp0 semantic-type-relation-separator-character make-local-variable] 2] "Separator characters between something of a given type, and a field." ";" semantic-command-separation-character #[nil "\302\301!\210\211\207" [#6=#:tmp0 semantic-command-separation-character make-local-variable] 2] "Command separation character for C." #'variable senator-step-at-tag-classes #[nil "\302\301!\210\211\207" [#7=#:tmp0 senator-step-at-tag-classes make-local-variable] 2] "Tag classes where senator will stop at the end." (:prototype-flag :parent :typemodifiers) semantic-tag-similar-ignorable-attributes #[nil "\302\301!\210\211\207" [#8=#:tmp0 semantic-tag-similar-ignorable-attributes make-local-variable] 2] "Tag attributes to ignore during similarity tests.\n:parent is here because some tags might specify a parent, while others are\nactually in their parent which is not accessible." major-mode #2# #3# #4# #5# #6# #7# #8#] 5) #@57 Set up a buffer for semantic parsing of the C language. (defalias 'semantic-default-c-setup #[nil "\303 \210\304\305\306\307\310\311\312$\210\n\313=\205 \314\315\316\"\207" [semantic-lex-syntax-modifications semantic-lex-analyzer major-mode semantic-c-by--install-parser ((62 ".") (60 ".")) semantic-c-lexer add-hook semantic-lex-reset-functions semantic-lex-spp-reset-hook nil t c++-mode add-to-list semantic-lex-c-preprocessor-symbol-map ("__cplusplus" . "")] 5 (#$ . 98976)]) #@57 Add a preprocessor symbol SYM with a REPLACEMENT value. (defalias 'semantic-c-add-preprocessor-symbol #[(sym replacement) "\304 \"\211\203 \n \241\210\202 B B)\305 \207" [sym semantic-lex-c-preprocessor-symbol-map SA replacement assoc semantic-c-reset-preprocessor-symbol-map] 4 (#$ . 99464) "sSymbol: \nsReplacement: "]) #@62 Describe the Semantic features of the current C environment. (defalias 'semantic-c-describe-environment #[nil "\306\307!\235\204 \310\311\"\210\312\301!\205 \313 \210 r\314\315!q\210p\316 \210\f\317\2114\320\2115\320 6 7\321 \210\322\323!\210+\211 8 9\n\203v \324\325!\210\n\317 :\211 ;\203u ;@:\324\326!\210\324:@!\210\324\327!\210\324:A!\210;A\211;\204S *\324\330!\210\312\331!\203\372 \203\372 \324\332!\210<\203\224 \202\227 C\211 <\317 =\211 ;\203\371 ;@=\324\333!\210\324\334=!!\210\335=!\211 >\204\304 \324\336!\210\202\357 \324\337!\210>\317 ?\211 ;\203\356 ;@?\324\340!\210\324?!\210\324\341!\210;A\211;\204\323 *);A\211;\204\243 +@\203*\324\342!\210@\317 ?\211 ;\203);@?\324\340!\210\324?!\210\324\341!\210;A\211;\204*A\203Z\324\343!\210A\317 ?\211 ;\203Y;@?\324\340!\210\324?!\210\324\341!\210;A\211;\204>*\324\344!\210B\203\237\324\345!\210B\317 C\211 ;\203\236;@C\324\340!\210\324C!\210\324\341!\210\324\346!\210\324\334\347C!!!\210\324\341!\210;A\211;\204r*D\203\332\324\350!\210D\317 E\211 ;\203\331;@E\324\340!\210\324E@!\210\324\327!\210\324EA!\210\324\341!\210;A\211;\204\263*F\203\324\351!\210F\317 E\211 ;\203;@E\324\340!\210\324E@!\210\324\327!\210\324EA!\210\324\341!\210;A\211;\204\356*\312\331!\203\201\203\201\352G!\203\201\324\353!\210\312\331!\203A\203A\324\354!\210\324\334!!\210\324\355!\210\317 H\356\357G\"\210H\317 E\211 ;\203\200;@E\324\340!\210\324\360E!!\210\324\327!\210\324EJ!\210\324\341!\210;A\211;\204Y+\324\361!\210\324\362!\3638!\210,\207" [major-mode semantic-gcc-setup-data gcc default-directory #1=#:old-dir buffer-read-only c-mode mode-local-equivalent-mode-p error "Not useful to query C mode in %s mode" boundp semantic-fetch-tags get-buffer-create "*Semantic C Environment*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Calculated GCC Parameters:" "\n " " = " "\n\nInclude Path Summary:\n" ede-object "\n This file's project include is handled by:\n" " EDE : " object-print ede-system-include-path "\n with NO specified system include path.\n" "\n with the system path:\n" " " "\n" "\n This file's generic include path is:\n" "\n This file's system include path is:\n" "\n\nMacro Summary:\n" "\n Your CPP table is primed from these files:\n" " in table: " semanticdb-file-table-object "\n Built-in symbol map:\n" "\n User symbol map:\n" arrayp "\n Project symbol map:\n" " Your project symbol map is derived from the EDE object:\n " "\n\n" mapatoms #[(symbol) " B\211\207" [symbol macros] 2] symbol-name "\n\n Use: M-x semantic-lex-spp-describe RET\n" "\n to see the complete macro table.\n" internal-temp-output-buffer-show buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output P --dolist-tail-- objs O ipath dir semantic-dependency-include-path semantic-dependency-system-include-path semantic-lex-c-preprocessor-symbol-file file semantic-lex-c-preprocessor-symbol-map-builtin S semantic-lex-c-preprocessor-symbol-map semantic-lex-spp-project-macro-symbol-obarray macros] 5 (#$ . 99799) nil]) (byte-code "\300\301!\210\302 \207" [provide semantic/bovine/c semantic-c-reset-preprocessor-symbol-map] 2)