WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/srecode
Viewing File: /usr/share/emacs/24.3/lisp/cedet/srecode/ctxt.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:42 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/srecode/ctxt.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 "\300\301!\210\300\302!\207" [require semantic semantic/tag-ls] 2)
#@1439 Calculate the context at the current point.
The returned context is a list, with the top-most context first.
Each returned context is a string that would show up in a `context'
statement in an `.srt' file.

Some useful context values used by the provided srecode templates are:
  "file" - Templates that for a file (such as an empty file.)
     "empty" - The file is empty
  "declaration" - Top-level declarations in a file.
     "include" - In or near include statements
     "package" - In or near provide statements
     "function" - In or near function statements
         "NAME" - Near functions within NAME namespace or class
     "variable" - In or near variable statements.
     "type"     - In or near type declarations.
     "comment"  - In a comment
  "classdecl" - Declarations within a class/struct/etc.
     "variable" - In or near class fields
     "function" - In or near methods/functions
        "virtual" - Nearby items are virtual
           "pure" - and those virtual items are pure virtual
     "type"     - In or near type declarations.
     "comment"  - In a comment in a block of code
     -- these items show up at the end of the context list. --
     "public", "protected", "private" -
                  In or near a section of public/protected/private entries.
  "code" - In a block of code.
     "string" - In a string in a block of code
     "comment"  - In a comment in a block of code

    ... More later.
(defalias 'srecode-calculate-context #[nil "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\356 \202\360\317 )\207" [overload property mode symbol bind name srecode-calculate-context nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete srecode-calculate-context-default mode-local-active-mode major-mode #1=#:override] 5 (#$ . 641)])
(put 'srecode-calculate-context 'mode-local-overload t)
#@204 Calculate the CONTEXT type items nearby the current point.
Assume that what we want to insert next is based on what is just
before point.  If there is nothing, then assume it is whatever is
after point.
(defalias 'srecode-calculate-nearby-things #[nil "\306 \307\211\211\204\310 \n\203\260\n\311\211\211A@)*=\2040\312\n\211A@)!B\202\234\n\211\211\313\314\f\315\f8)
\",\312\n\211A@)!B\307\316\317\217)\203f\211@)B\202q;\203qB)\n\320\314\f\315\f8)
\"*\203\207\321B\n\322\314\f\315\f8)
\"*\203\234\323B\324\n!\211\203\260	\325=\204\260\312	!B\237+\207" [ans prot near class tag attribute semantic-find-tag-by-overlay-prev nil semantic-find-tag-by-overlay-next function symbol-name :parent plist-get 2 (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) :virtual "virtual" :pure-virtual-flag "pure" semantic-tag-protection unknown p] 4 (#$ . 2994)])
#@50 Calculate an srecode context by using font-lock.
(defalias 'srecode-calculate-context-font-lock #[nil "\301`\300\"\211\302\235\203\303C\202\304\235\205\305C)\207" [face get-text-property (font-lock-string-face font-lock-doc-face) "string" (font-lock-comment-face font-lock-comment-delimiter-face) "comment"] 4 (#$ . 3952)])
#@55 Generic method for calculating a context for srecode.
(defalias 'srecode-calculate-context-default #[nil "edU\203\n\303\304D\207\305 \210\306 \211\2036@\211A@)\307=\203B@\211\310\311	\312	8)\n\"+\313\230\203B\314\315 \206>\316 B\202\213@\211A@)\317=\203U\320\315 B\202\213@\211A@)\307=\203m\321\315 \206i\316 B\202\213A@\205\213A@\211A@)\307=\205\213\321\322@\211A@)!D)\207" [ct tag attribute "file" "empty" semantic-fetch-tags semantic-find-tag-by-overlay type :type plist-get 2 "namespace" "declaration" srecode-calculate-context-font-lock srecode-calculate-nearby-things function "code" "classdecl" symbol-name] 4 (#$ . 4290)])
#@414 Add macros into the dictionary DICT based on the current Emacs Lisp file.
Argument TEMPLATE is the template object adding context dictionary
entries.
This might add the following:
   VIRTUAL - show a section if a function is virtual
   PURE - show a section if a function is pure virtual.
   PARENT - The name of a parent type for functions.
   PROTECTION - Show a protection section, and what the protection is.
(defalias 'srecode-semantic-handle-:ctxt #[(dict &optional template) "\306\307!\210\205\262\310\311\"\312\301!\205	\n@\nA@\305\n!\313\314\230\203X\315\n8\211\203\236\f\316\230\203N\317\320\"\210\321\n8\203\236\317\322\"\210\202\236\323\324\f#\210\202\236\325\230\203\231\314\230\204k\326\230\203\231\327 \211\203\225\330 \211!\211!A@) *=\203\225\323\324\211!@)#\210)\202\236\331\230\210
\332\235\205\260\323\333\f#\210\317\333\".\207" [template srecode-insertion-start-context cc name parent last require srecode/dictionary eieio-oref object-name boundp nil "function" 2 "virtual" srecode-dictionary-show-section "VIRTUAL" 3 "PURE" srecode-dictionary-set-value "PARENT" "type" "method" semantic-find-tag-by-overlay-prev type "code" ("public" "private" "protected") "PROTECTION" it ct dict near class tag] 5 (#$ . 4958)])
(provide 'srecode/ctxt)
F1l3 Manager
