403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/cedet/srecode/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/cedet/srecode/srt-mode.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require srecode/compile srecode/ctxt srecode/template semantic semantic/analyze semantic/wisent] 2)
#@54 Syntax table used in semantic recoder macro buffers.
(defvar srecode-template-mode-syntax-table (byte-code "\300\301 !\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\310#\210\302\312\310#\210\302\313\310#\210\302\314\310#\210\302\315\310#\210\302\316\310#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\326#\210\302\330\326#\210\207" [make-syntax-table standard-syntax-table modify-syntax-entry 59 ". 12" 10 ">" 36 "." 58 60 62 35 33 63 34 "\"" 45 "_" 92 "\\" 96 "'" 39 44] 5) (#$ . 277))
(custom-declare-face 'srecode-separator-face '((t (:weight bold :strike-through t))) "Face used for decorating separators in srecode template mode." :group 'srecode)
#@53 Keywords for use with srecode macros and font-lock.
(defvar srecode-font-lock-keywords '(("^\\(template\\)\\s-+\\(\\w*\\)\\(\\( \\(:\\w+\\)\\)*\\)$" (1 font-lock-keyword-face) (2 font-lock-function-name-face) (3 font-lock-builtin-face)) ("^\\(sectiondictionary\\)\\s-+\"" (1 font-lock-keyword-face)) ("^\\s *\\(section\\)\\s-+\"" (1 font-lock-keyword-face)) ("^\\s *\\(end\\)" (1 font-lock-keyword-face)) ("^\\(bind\\)\\s-+\"" (1 font-lock-keyword-face)) ("^\\s *\\(set\\)\\s-+\\(\\w+\\)\\s-+" (1 font-lock-keyword-face) (2 font-lock-variable-name-face)) ("^\\s *\\(show\\)\\s-+\\(\\w+\\)\\s-*$" (1 font-lock-keyword-face) (2 font-lock-variable-name-face)) ("\\<\\(macro\\)\\s-+\"" (1 font-lock-keyword-face)) ("^\\(context\\)\\s-+\\(\\w+\\)" (1 font-lock-keyword-face) (2 font-lock-builtin-face)) ("^\\(prompt\\)\\s-+\\(\\w+\\)" (1 font-lock-keyword-face) (2 font-lock-variable-name-face)) ("\\(default\\(macro\\)?\\)\\s-+\\(\\(\\w\\|\\s_\\)+\\)" (1 font-lock-keyword-face) (3 font-lock-type-face)) ("\\<\\(default\\(macro\\)?\\)\\>" (1 font-lock-keyword-face)) ("\\<\\(read\\)\\s-+\\(\\(\\w\\|\\s_\\)+\\)" (1 font-lock-keyword-face) (2 font-lock-type-face)) ("^----\n" 0 'srecode-separator-face) (srecode-template-mode-macro-escape-match 1 font-lock-string-face) ((lambda (limit) (srecode-template-mode-font-lock-macro-helper limit "\\(\\??\\w+\\)[^ 	\n{}$#@&*()]*")) 1 font-lock-variable-name-face) ((lambda (limit) (srecode-template-mode-font-lock-macro-helper limit "\\([#/]\\w+\\)[^ 	\n{}$#@&*()]*")) 1 font-lock-keyword-face) ((lambda (limit) (srecode-template-mode-font-lock-macro-helper limit "\\([<>]\\w*\\):\\(\\w+\\):\\(\\w+\\)")) (1 font-lock-keyword-face) (2 font-lock-builtin-face) (3 font-lock-type-face)) ((lambda (limit) (srecode-template-mode-font-lock-macro-helper limit "\\([<>?]?\\w*\\):\\(\\w+\\)")) (1 font-lock-keyword-face) (2 font-lock-type-face)) ((lambda (limit) (srecode-template-mode-font-lock-macro-helper limit "!\\([^{}$]*\\)")) 1 font-lock-comment-face)) (#$ . 998))
#@104 Match against escape characters.
Don't scan past LIMIT.  Match with EXPRESSION.

(fn LIMIT EXPRESSION)
(defalias 'srecode-template-mode-font-lock-macro-helper #[514 "\300\211\301\302 !\301\303 !Q\204<\304 \305\306\"\216\307	\310#\2034\311 @\312\232\2037\304 \262\310\262\2027\310\262)\210\202\313!\210\205E\310\207" [nil regexp-quote srecode-template-get-escape-start srecode-template-get-escape-end match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-forward t srecode-calculate-context "code" set-match-data] 12 (#$ . 3007)])
#@69 Match against escape characters.
Don't scan past LIMIT.

(fn LIMIT)
(defalias 'srecode-template-mode-macro-escape-match #[257 "\300\211\301\302 !\301\303 !\304\305\306\260\204?\307 \310\311\"\216\312\313#\2037\314 @\315\232\203:\307 \262\313\262\202:\313\262)\210\202\316!\210\205H\313\207" [nil regexp-quote srecode-template-get-escape-start srecode-template-get-escape-end "\\(" "\\|" "\\)" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-forward t srecode-calculate-context "code" set-match-data] 11 (#$ . 3600)])
#@165 Dynamically generated `font-lock' keywords for srecode templates.
Once the escape_start, and escape_end sequences are known, then
we can tell font lock about them.
(defvar srecode-font-lock-macro-keywords nil (#$ . 4188))
#@30 Keymap used in srecode mode.
(defvar srecode-template-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\207" [make-sparse-keymap define-key "" srecode-compile-templates "
" srecode-macro-help "/" srecode-self-insert-complete-end-macro] 5) (#$ . 4416))
(defvar srecode-template-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [srecode-template-mode-hook variable-documentation put "Hook run after entering SRecode mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp srecode-template-mode-map definition-name srecode-template-mode] 4)
(defvar srecode-template-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [srecode-template-mode-abbrev-table srecode-template-mode-map variable-documentation put purecopy "Keymap for `srecode-template-mode'." boundp srecode-template-mode-syntax-table definition-name srecode-template-mode (lambda (#1=#:def-tmp-var) (defvar srecode-template-mode-syntax-table #1#)) make-syntax-table "Syntax table for `srecode-template-mode'." (lambda (#1#) (defvar srecode-template-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `srecode-template-mode'." derived-mode-parent] 5)
#@181 Major-mode for writing SRecode macros.

This mode runs the hook `srecode-template-mode-hook', as the final or
penultimate step during initialization.

\{srecode-template-mode-map}
(defalias 'srecode-template-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\306\315!\210\316
\306\317!\210\320\306\321!\210\307\306\322!\210\323\306\324!\210\325)\326\327!\207" [delay-mode-hooks major-mode mode-name srecode-template-mode-map srecode-template-mode-syntax-table srecode-template-mode-abbrev-table make-local-variable t kill-all-local-variables srecode-template-mode "SRecode" use-local-map set-syntax-table comment-start ";;" comment-end "" parse-sexp-ignore-comments comment-start-skip "\\(\\(^\\|[^\\\n]\\)\\(\\\\\\\\\\)*\\);+ *" font-lock-defaults (srecode-font-lock-keywords nil nil ((95 . "w") (45 . "w"))) run-mode-hooks srecode-template-mode-hook local-abbrev-table] 2 (#$ . 5978) nil])
(defalias 'srt-mode 'srecode-template-mode)
#@63 Self insert the current key, then autocomplete the end macro.
(defalias 'srecode-self-insert-complete-end-macro #[0 "\300\301!\210\302 \205>\302 \303\211A@\262=\266\202\205>\304 \305 \212G[u\210\306u\210\307\310!!\2052\311`\312\")\211\205<\211c\210c\266\203\207" [call-interactively self-insert-command semantic-current-tag function srecode-template-get-escape-start srecode-template-get-escape-end -1 looking-at regexp-quote srecode-up-context-get-name t] 5 (#$ . 6950) nil])
#@53 Provide help for working with macros in a template.
(defalias 'srecode-macro-help #[0 "\306\307!\210\310\311!\312 \313 r\314\315!q\210p\316 \210\317\211\320\211\320\321 \210\322\323!\210+\211.\324\325!\210\326 \210\326 \210\205\336@\327!\330\331\"\205K\332\331\"\320A\262	\333\310!\n\"\262	\3342\331\335=\203i\336\334\317\"\210\337!\203t\336\334\317\"\210\324\340\341!!\210\324!\210\324\340\342!!\210\330\331\"\203\266\203\266\324\343!\210;\203\257\317\262\344\230\203\250\324\345!\210\202\266\346!\210\202\266\346\347\350\"!\210\326 \210\324\351\352\"!\210\326 \210\211\203\326\324\353!\210\326 \210\354		#\210\326 0\266\2027\355!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only require srecode/insert eieio-class-children srecode-template-inserter srecode-template-get-escape-start srecode-template-get-escape-end get-buffer-create "*SRecode Macros*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Description of known SRecode Template Macros." terpri symbol-name slot-exists-p key eieio-oref append skip srecode-template-inserter-section-end throw class-abstract-p substitute-command-keys "`" "'" " - Character Key: " "\n" "\"\\n\"" prin1 format "%c" documentation-property variable-documentation "Example:" srecode-inserter-prin-example internal-temp-output-buffer-show standard-output] 14 (#$ . 7443) nil])
#@129 Insert the SRecode TAG into the current buffer.
Override `semantic-ia-insert-tag' in `srecode-template-mode' buffers.

(fn TAG)
(defalias 'semantic-ia-insert-tag-srecode-template-mode #[257 "\211\211@\262c\207" [] 3 (#$ . 8923)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ia-insert-tag-srecode-template-mode definition-name semantic-ia-insert-tag mode-local-bind ((semantic-ia-insert-tag . semantic-ia-insert-tag-srecode-template-mode)) (override-flag t) srecode-template-mode] 4)
#@259 Non-nil if POINT is inside a macro bounds.
If the ESCAPE_START and END are different sequences,
a simple search is used.  If ESCAPE_START and END are the same
characters, start at the beginning of the line, and find out
how many occur.

(fn &optional POINT)
(defalias 'srecode-in-macro-p #[256 "\300 \301\302 !\301\303 !\206`\205\207\304\211A@\262=\266\202\205\207\230\203@\212\305 \210\306\307\310$\204,\306\307#\205>\307)\207\212\311\211\3128\262\313!\203X\314!\266\202\202]\211\315H\266\202\307#\205\206\306\211\3128\262\313!\203y\316!\266\202\202~\211\317H\266\202\307#\206\204\211Y)\207" [semantic-current-tag regexp-quote srecode-template-get-escape-start srecode-template-get-escape-end function beginning-of-line re-search-forward t 2 re-search-backward 4 overlayp overlay-start 0 overlay-end 1] 11 (#$ . 9440)])
#@334 Move up one context as for `semantic-up-context', and return the name.
Moves point to the opening characters of the section macro text.
If there is no upper context, return nil.
Starts at POINT if provided.
If FIND-UNMATCHED is specified as non-nil, then we are looking for an unmatched
section.

(fn &optional POINT FIND-UNMATCHED)
(defalias 'srecode-up-context-get-name #[512 "\203`b\210\300 \301\302 !\211\303P`\304\211\305\211A@\262=\266\202\205\232\211\204\222\306\211\3078\262\310!\203>\311!\266\202\202C\211\312H\266\202\313#\203\222\212\314\315!\262\316Q\317\211\3078\262\310!\203j\320!\266\202\202o\211\315H\266\202\313#\203z`W\202\206\204\205\321\322!\202\206\313\262)\203\"`\262\202\"\211\206\227b\210\207" [semantic-current-tag regexp-quote srecode-template-get-escape-start "[#<]\\(\\w+\\)" nil function re-search-backward 4 overlayp overlay-start 0 t match-string 1 "/" re-search-forward overlay-end error "Unmatched Section Template"] 15 (#$ . 10306)])
#@160 Move up one context in the current code.
Moves out one named section.
Override `semantic-up-context' in `srecode-template-mode' buffers.

(fn &optional POINT)
(defalias 'semantic-up-context-srecode-template-mode #[256 "\300!?\207" [srecode-up-context-get-name] 3 (#$ . 11326)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-up-context-srecode-template-mode definition-name semantic-up-context mode-local-bind ((semantic-up-context . semantic-up-context-srecode-template-mode)) (override-flag t) srecode-template-mode] 4)
#@191 Move to the beginning of the current context.
Moves to the beginning of one named section.
Override `semantic-beginning-of-context' in `srecode-template-mode'
buffers.

(fn &optional POINT)
(defalias 'semantic-beginning-of-context-srecode-template-mode #[256 "\300!\203\301\207\302\303 !\302\304 !\305!\210\305!\266\306\207" [semantic-up-context t regexp-quote srecode-template-get-escape-start srecode-template-get-escape-end re-search-forward nil] 5 (#$ . 11879)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-beginning-of-context-srecode-template-mode definition-name semantic-beginning-of-context mode-local-bind ((semantic-beginning-of-context . semantic-beginning-of-context-srecode-template-mode)) (override-flag t) srecode-template-mode] 4)
#@173 Move to the end of the current context.
Moves to the end of one named section.
Override `semantic-end-of-context' in `srecode-template-mode'
buffers.

(fn &optional POINT)
(defalias 'semantic-end-of-context-srecode-template-mode #[256 "\300!\301 \302\303 !\204\304\207\305\306Q\211\3078\262\310!\203)\311!\266\202\202.\211\312H\266\202\304#\2048\313\314\"\210\315\224b\210\316\207" [srecode-up-context-get-name semantic-current-tag regexp-quote srecode-template-get-escape-start t re-search-forward "/" 4 overlayp overlay-end 1 error "Section %s has no end" 0 nil] 10 (#$ . 12666)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-end-of-context-srecode-template-mode definition-name semantic-end-of-context mode-local-bind ((semantic-end-of-context . semantic-end-of-context-srecode-template-mode)) (override-flag t) srecode-template-mode] 4)
#@145 Get local variables from an SRecode template.
Override `semantic-get-local-variables' in `srecode-template-mode'
buffers.

(fn &optional POINT)
(defalias 'semantic-get-local-variables-srecode-template-mode #[256 "\212\211\203`b\210\300 \212\301`!)\302\303\3048\262\"\266\202\305\211\203D\211@\211@\305\211\211\306\307\310\311\312&\266\204B\262A\266\202\202\210\203q\305\211\204f\203f@@\230\203_@A\262A\262\202J\313\"\262\266\204\202t\211\266\204)\207" [semantic-current-tag srecode-up-context-get-name :dictionaries plist-get 2 nil apply semantic-tag variable :type :default-value append] 20 (#$ . 13554)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-get-local-variables-srecode-template-mode definition-name semantic-get-local-variables mode-local-bind ((semantic-get-local-variables . semantic-get-local-variables-srecode-template-mode)) (override-flag t) srecode-template-mode] 4)
#@145 Get local arguments from an SRecode template.
Override `semantic-get-local-arguments' in `srecode-template-mode'
buffers.

(fn &optional POINT)
(defalias 'semantic-get-local-arguments-srecode-template-mode #[256 "\300\301!\210\212\211\203\f`b\210\302 \211\211\303\304\3058\262\"\266\203\306\307\"\310C\311\312!\313\"\210\314\315\316\"\317\320\"\"\210\242\266\205)\207" [require srecode/insert semantic-current-tag :arguments plist-get 2 mapcar intern nil srecode-create-dictionary t srecode-resolve-argument-list maphash make-closure #[514 "\300\301\301\302\303\304\305\306&\266\204\300\242B\240\207" [V0 nil apply semantic-tag variable :type :default-value] 16 "\n\n(fn KEY ENTRY)"] eieio-oref namehash] 11 (#$ . 14510)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-get-local-arguments-srecode-template-mode definition-name semantic-get-local-arguments mode-local-bind ((semantic-get-local-arguments . semantic-get-local-arguments-srecode-template-mode)) (override-flag t) srecode-template-mode] 4)
#@189 Return the current symbol under POINT.
Return nil if point is not on/in a template macro.
Override `semantic-ctxt-current-symbol' in `srecode-template-mode'
buffers.

(fn &optional POINT)
(defalias 'semantic-ctxt-current-symbol-srecode-template-mode #[256 "\300!\211A\207" [srecode-parse-this-macro] 3 (#$ . 15564)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-symbol-srecode-template-mode definition-name semantic-ctxt-current-symbol mode-local-bind ((semantic-ctxt-current-symbol . semantic-ctxt-current-symbol-srecode-template-mode)) (override-flag t) srecode-template-mode] 4)
#@215 Return the current symbol under POINT.
Return nil if point is not on/in a template macro.
The first element is the key for the current macro, such as # for a
section or ? for an ask variable.

(fn &optional POINT)
(defalias 'srecode-parse-this-macro #[256 "\212\211\203\211b\210\300 \301\302 !\301\303 !`\304\205\336\305\211A@\262=\266\202\205\336\306!\205\336\307\211\3108\262\311!\203F\312!\266\202\202K\211\313H\266\202\314#\205\336\313\225\262\211b\210\315\211\3108\262\311!\203o\316!\266\202\202t\211\317H\266\202\314#\204\202b\210\320\211D!\210`V?\205\336\313\224\321\"\322 \3231\235\324\"0\202\237\210\304\211\205\334\325\326\"\327\330\"\205\274\325\331\"\205\274\332\325\331\"\333\"B\334\335\"\205\310\325\335\"\211\204\324\304B\266\213\202\340\336\337\"B\266\202\266\204\266\205)\207" [semantic-current-tag regexp-quote srecode-template-get-escape-start srecode-template-get-escape-end nil function srecode-in-macro-p re-search-backward 4 overlayp overlay-start 0 t re-search-forward overlay-end 1 set-match-data buffer-substring-no-properties srecode-compile-state (error) srecode-compile-parse-inserter eieio-oref object-name slot-boundp :secondname secondname split-string ":" slot-exists-p key format "%c"] 15 (#$ . 16192)])
#@147 Provide a Semantic analysis in SRecode template mode.
Override `semantic-analyze-current-context' in `srecode-template-mode'
buffers.

(fn POINT)
(defalias 'semantic-analyze-current-context-srecode-template-mode #[257 "\301\302 \211@\3038\304`!@\301\211\211\211\305 \306p!\301\2033@\211A@\262\307=\203,@B\262A\262\202\211\237\266\202\310\311
!\312\313\314\315\316\"\"#\210\n\205\254\317@\315\313\"\"\262\203e\320\230\203\234\nG\321V\203\234\301C\322\323\324$\216\325!\210\322\326\322!\240\210\327\330!@!\331\332\"@\262	\333\262\210)\266\202.\334\230\204\252\335\230\203.\nG\336U\203\373\306p!\301\203\323@\211A@\262\337=\203\314@B\262A\262\202\266\211\237\266\202\317\fA@\"\206\362\340\341 !\337\301\342!\301\211\257\266\203\262\343\262\210\202\340\341 !\337\301\342!\301\211\257\266\203\262\343\262\nG\321V\203.\344\345\211@\262!!\317\330
!@\"\262\210\nG\336U\203T\206>\n@\206GA@\206P\303
8E\202\201\nG\303U\203p\206d\n@\206lA@D\202\201\nG\321U\205\201\206\200\n@C\262\346\347p\350\351\352\206\223\353\301\354\355\301\356C\357G\360C&\262
\f\207" [mode-local-active-mode nil semantic-ctxt-current-symbol-and-bounds 2 srecode-parse-this-macro semantic-ctxt-current-class-list semantic-something-to-tag-table variable macro semantic-calculate-scope eieio-oset fullscope append eieio-oref localvar semantic-find-first-tag-by-name "?" 1 emacs-lisp-mode make-closure #[0 "\304\302!\210\301\242\211\203\211@\211@AL\210A\266\202\202\210\300\305\300!\207" [V0 V1 V2 mode-local-active-mode mode-local--deactivate-bindings mode-local--activate-bindings] 4] mode-local--deactivate-bindings mode-local--activate-bindings semanticdb-find-tags-by-name last semanticdb-find-result-nth 0 elispfcn "<" ">" 3 context symbol-name srecode-template-current-context semantic-tag-make-plist template srecode-template-find-templates-of-context read semantic-analyze-context-functionarg :buffer :scope :bounds :prefix :prefixtypes :prefixclass :errors :function :index :argument] 35 (#$ . 17495)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-analyze-current-context-srecode-template-mode definition-name semantic-analyze-current-context mode-local-bind ((semantic-analyze-current-context . semantic-analyze-current-context-srecode-template-mode)) (override-flag t) srecode-template-mode] 4)
#@168 Return a list of possible completions based on NONTEXT.
Override `semantic-analyze-possible-completions' in
`srecode-template-mode' buffers.

(fn CONTEXT &rest FLAGS)
(defalias 'semantic-analyze-possible-completions-srecode-template-mode #[385 "r\302\303\"q\210\304\302\305\"!@\211;\203\211\202Q\211\3061E\211:\205?\211@;\205?\211A@9\205?\211A@\205?\3078<\205?\3108<0\262\202I\210\311\262\205Q\211\211@\262\302\312\"@\311\313\267\266\203\202IG\314p!\311\203\214\315\316\311@\211@\262\316&\317=\203\205@B\262A\262\202e\211\237\266\202\262\262\314!\311\203\265@\211A@\262\320=\203\256@B\262A\262\202\230\211\237\266\202\262\266\203\202I	\311C\321\322\323$\216\324!\210\321\325\321!\240\210\326!\262\314!\311\203\376@\211A@\262\320=\203\367@B\262A\262\202\341\211\237\266\202\262)\266\266\203\202I\302\327\"G\314\302\330\"!\311\203A\315\316\311@\211@\262\316&\317=\203:@B\262A\262\202\211\237\266\202\262\266\205)\207" [semantic-case-fold mode-local-active-mode eieio-oref buffer last prefix (error) 2 3 nil argument #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (template 95 elispfcn 192 macro 268)) semantic-something-to-tag-table compare-strings 0 t function emacs-lisp-mode make-closure #[0 "\304\302!\210\301\242\211\203\211@\211@AL\210A\266\202\202\210\300\305\300!\207" [V0 V1 V2 mode-local-active-mode mode-local--deactivate-bindings mode-local--activate-bindings] 4] mode-local--deactivate-bindings mode-local--activate-bindings semanticdb-find-tags-for-completion scope fullscope] 18 (#$ . 19942)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-analyze-possible-completions-srecode-template-mode definition-name semantic-analyze-possible-completions mode-local-bind ((semantic-analyze-possible-completions . semantic-analyze-possible-completions-srecode-template-mode)) (override-flag t) srecode-template-mode] 4)
#@54 Get the supported major mode for this template file.
(defalias 'srecode-template-get-mode #[0 "\300\301p\"\211\205\302\211\303\304\3058\262\"\266\203!\207" [semantic-find-first-tag-by-name "mode" read :default-value plist-get 2] 9 (#$ . 21941)])
#@42 Get the current escape_start characters.
(defalias 'srecode-template-get-escape-start #[0 "\300\301p\"\211\203\211\302\303\3048\262\"\266\202@\207\305\207" [semantic-find-first-tag-by-name "escape_start" :default-value plist-get 2 "{{"] 7 (#$ . 22200)])
#@40 Get the current escape_end characters.
(defalias 'srecode-template-get-escape-end #[0 "\300\301p\"\211\203\211\302\303\3048\262\"\266\202@\207\305\207" [semantic-find-first-tag-by-name "escape_end" :default-value plist-get 2 "}}"] 7 (#$ . 22466)])
#@65 Calculate the context encompassing POINT.

(fn &optional POINT)
(defalias 'srecode-template-current-context #[256 "\212\211\203`b\210\300 \211\204\301 \262\211\203F\211\302\211A@\262=\266\202\204F\301\211\3038\262\304!\203;\305!\266\202\202@\211\306H\266\202!\262\202\211\203T\307\211@\262!\202U\310\262)\207" [semantic-current-tag semantic-find-tag-by-overlay-prev context 4 overlayp overlay-start 0 read declaration] 7 (#$ . 22726)])
#@144 Find all the templates belonging to a particular CONTEXT.
When optional BUFFER is provided, search that buffer.

(fn CONTEXT &optional BUFFER)
(defalias 'srecode-template-find-templates-of-context #[513 "\212\211\203\211q\210\301\302\211\301=\203\303\262\211\203]\211@\211\304\211A@\262=\266\202\203>\305\211@\262!\262=\203>\303\262\203V\211\306\211A@\262=\266\202\203V\211B\262A\266\202\202\210\211\237\266\204)\207" [semantic--buffer-cache declaration nil t context read function] 12 (#$ . 23194)])
(provide 'srecode/srt-mode)

Youez - 2016 - github.com/yon3zu
LinuXploit