Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.171
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
cedet /
srecode /
[ HOME SHELL ]
Name
Size
Permission
Action
args.elc
4.67
KB
-rw-r--r--
compile.elc
16.1
KB
-rw-r--r--
cpp.elc
5.39
KB
-rw-r--r--
ctxt.elc
6.06
KB
-rw-r--r--
dictionary.elc
20.41
KB
-rw-r--r--
document.elc
18.27
KB
-rw-r--r--
el.elc
2.63
KB
-rw-r--r--
expandproto.elc
2.13
KB
-rw-r--r--
extract.elc
6.89
KB
-rw-r--r--
fields.elc
14.41
KB
-rw-r--r--
filters.elc
932
B
-rw-r--r--
find.elc
7.58
KB
-rw-r--r--
getset.elc
7.74
KB
-rw-r--r--
insert.elc
41.69
KB
-rw-r--r--
java.elc
1.69
KB
-rw-r--r--
loaddefs.el
7.74
KB
-rw-r--r--
map.elc
10.87
KB
-rw-r--r--
mode.elc
11.82
KB
-rw-r--r--
semantic.elc
11.9
KB
-rw-r--r--
srt-mode.elc
24.09
KB
-rw-r--r--
srt-wy.elc
33.49
KB
-rw-r--r--
srt.elc
2.84
KB
-rw-r--r--
table.elc
9.77
KB
-rw-r--r--
template.elc
1.72
KB
-rw-r--r--
texi.elc
8.75
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : srt-mode.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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!\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 "\301\302 !\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\311#\210\303\313\311#\210\303\314\311#\210\303\315\311#\210\303\316\311#\210\303\317\311#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\327#\210\303\331\327#\210)\207" [table 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] 4) (#$ . 601)) (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)) (#$ . 1331)) #@81 Match against escape characters. Don't scan past LIMIT. Match with EXPRESSION. (defalias 'srecode-template-mode-font-lock-macro-helper #[(limit expression) "\306\211\307\310 !\307\311 !\n\f Q \204< \312 \313\216\314 \315#\2036 \316 @\317\232\2038 \312 \315\2028 \315*\202 \320 !\210 \205E \315-\207" [done md es ee expression regex nil regexp-quote srecode-template-get-escape-start srecode-template-get-escape-end match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-forward t srecode-calculate-context "code" set-match-data save-match-data-internal limit] 5 (#$ . 3340)]) #@57 Match against escape characters. Don't scan past LIMIT. (defalias 'srecode-template-mode-macro-escape-match #[(limit) "\306\211\307\310 !\307\311 !\312\n\313 \314\260 \204> \315 \316\216\317\f\320#\2038 \321 @\322\232\203: \315 \320\202: \320*\202 \323 !\210 \205G \320-\207" [done md es ee regex save-match-data-internal nil regexp-quote srecode-template-get-escape-start srecode-template-get-escape-end "\\(" "\\|" "\\)" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-forward t srecode-calculate-context "code" set-match-data limit] 6 (#$ . 3981)]) #@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 (#$ . 4605)) #@30 Keymap used in srecode mode. (defvar srecode-template-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [km make-sparse-keymap define-key "" srecode-compile-templates " " srecode-macro-help "/" srecode-self-insert-complete-end-macro] 4) (#$ . 4833)) (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 #[nil "\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 (#$ . 6401) 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 #[nil "\305\306!\210\307 \205A \307 \310\211\211A@)*=\205A \311 \312 \212\nG[u\210\313u\210\314\315\n!!\2055 \316`\317\")\211 \205@ \fc\210 c+\207" [class tag es ee name 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] 4 (#$ . 7377) nil]) #@53 Provide help for working with macros in a template. (defalias 'srecode-macro-help #[nil "\306\307!\210\310\311!\312 \313 \f r\314\315!q\210p\316 \210 \317\211./\320\2110\320 1 2\321 \210\322\323!\210+\211 3 4\324\325!\210\326 \210\326 \210 \205\375 @ 5\3275! 6\3305\331\"\205_ \3325\331\" \320 7 A\333\3115! \"\3342\370 5\335=\203 \336\334\317\"\210\3375!\203\213 \336\334\317\"\210\324\340\341!!\210\3246!\210\324\340\342!!\210\3305\331\"\203\324 \203\324 \324\343!\210;\203\314 \3177\344\230\203\304 \324\345!\210\202\324 \346!\210\202\324 \346\347\350\"!\210\326 \210\324\3515\352\"!\210\326 \2107\203\365 \324\353!\210\326 \210\3545\n #\210\326 0\210,\202D \3553!\210.\207" [root chl ess ees default-directory #1=#:old-dir require srecode/insert srecode-template-inserter eieio-class-children 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 buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output C name showexample] 5 (#$ . 7884) nil]) #@118 Insert the SRecode TAG into the current buffer. Override semantic-ia-insert-tag in `srecode-template-mode' buffers. (defalias 'semantic-ia-insert-tag-srecode-template-mode #[(tag) "\211@)c\207" [tag] 2 (#$ . 9448)]) (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) #@237 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. (defalias 'srecode-in-macro-p #[(&optional point) "\306 \307\310 !\307\311 !\206 `\211 \205\224 \f\312 \211 \211 A@) *=\205\224 \n\230\203G \212\313 \210\314 \315\316$\2041 \314 \315#\205C \315)\202\224 \212\317 \f\211 \320\f8) \321!\203b \322!\202f \323H*\315#\205\223 \314\n\f\211 \320\f8) \321!\203\206 \324!\202\212 \325H*\315#\206\221 Y),\207" [point start ee es tag class 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 o] 6 (#$ . 9953)]) #@297 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. (defalias 'srecode-up-context-get-name #[(&optional point find-unmatched) "\203 `b\210\306 \307\310 !\211\311P` \312\211 \313 \211\211A@)*=\205\253 \204\242 \314 \211\315 8) \316!\203K \317!\202O \320H*\321#\203\242 \212\322\323!\n\324 Q \325 \211\315 8) \316!\203{ \326!\202 \323H*\321#\203\213 \f`W\202\227 \204\226 \327\330!\202\227 \321*\203, `\211\2031 \206\250 \fb\210 .\207" [point tag es start orig name 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" res class o endr find-unmatched] 5 (#$ . 10828)]) #@137 Move up one context in the current code. Moves out one named section. Override semantic-up-context in `srecode-template-mode' buffers. (defalias 'semantic-up-context-srecode-template-mode #[(&optional point) "\301!?\207" [point srecode-up-context-get-name] 2 (#$ . 11869)]) (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) #@168 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. (defalias 'semantic-beginning-of-context-srecode-template-mode #[(&optional point) "\303!\203 \304\207\305\306 !\305\307 !\310\n!\210\310 !\210*\311\207" [point ee es semantic-up-context t regexp-quote srecode-template-get-escape-start srecode-template-get-escape-end re-search-forward nil] 3 (#$ . 12419)]) (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) #@150 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. (defalias 'semantic-end-of-context-srecode-template-mode #[(&optional point) "\305!\306 \307\310 !\211\204 \311\202A \312 \313 Q\n\211\314\n8) \315\f!\203. \316\f!\2021 \f\317H*\311#\204< \320\321 \"\210\322\224b\210\323+\207" [point es tag name o 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] 5 (#$ . 13212)]) (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) #@122 Get local variables from an SRecode template. Override semantic-get-local-variables in `srecode-template-mode' buffers. (defalias 'semantic-get-local-variables-srecode-template-mode #[(&optional point) "\212\203 `b\210\306 \212\307`!) \310\311 \312 8) \"* \313 \f\313 \211 \203X @\211@\313\211\211 \314\315\n\316\317\320&, BA\211\204, *\n\203\205 \313 \204| \f\203| \f@@\n\230\203v \f@A\fA\202` \321 \")\202\206 -\207" [point tag name attribute subdicts global semantic-current-tag srecode-up-context-get-name :dictionaries plist-get 2 nil apply semantic-tag variable :type :default-value append D --dolist-tail-- attributes default-value type res] 10 (#$ . 14105)]) (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) #@122 Get local arguments from an SRecode template. Override semantic-get-local-arguments in `srecode-template-mode' buffers. (defalias 'semantic-get-local-arguments-srecode-template-mode #[(&optional point) "\306\307!\210\212\203\f `b\210\310 \211\211\311\312 \313 8)\n\"+\314\315 \" \316 \317\320! \321\f\"\210\322\323\324\325\"\"\210 .\207" [point tag attribute args argsym argvars require srecode/insert semantic-current-tag :arguments plist-get 2 mapcar intern nil srecode-create-dictionary t srecode-resolve-argument-list maphash #[(key entry) "\306 \306 \307\310 \311\312\f\313 \n&,\fB\211\f\207" [key entry attributes default-value type name nil apply semantic-tag variable :type :default-value argvars] 9] eieio-oref namehash dict] 6 (#$ . 15123)]) (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) #@166 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. (defalias 'semantic-ctxt-current-symbol-srecode-template-mode #[(&optional point) "\302!\211A)\207" [point macro srecode-parse-this-macro] 3 (#$ . 16206)]) (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) #@193 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. (defalias 'srecode-parse-this-macro #[(&optional point) "\212\203 b\210\306 \307\310 !\307\311 !`\312\211 \211 &\205 &\313 '\211 &\211 &A@)'*=\205 \314!\205 \315 &\211 & &\316&8) (\317(!\203Y \320(!\202] (\321H*\322#\205 \321\225\211b\210\323\f&\211 & &\316&8) (\317(!\203\207 \324(!\202\213 (\325H*\322#\204\232 b\210\326 \211D!\210 `V?\205 \321\224 )\327\n)\"\330 *\3311\274 \332 *\"0\202\276 \210\312\211 +\205\333+\334\"\335+\336\"\205\341 \333+\337\"\205\341 \340\333+\337\"\341\"B\342+\343\"\205\357 \333+\343\" # ,#\204\377 \312,B\202\344\345#\",B*,.\207" [point raw macrostart start ee es 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" tag class o macroend STATE inserter base] 7 (#$ . 16839)]) #@134 Provide a Semantic analysis in SRecode template mode. Override semantic-analyze-current-context in `srecode-template-mode' buffers. (defalias 'semantic-analyze-current-context-srecode-template-mode #[(point) "\306\307 \211@\310 8\311`!@ \306\211 5\306\211 6 7\312 8\313p!\306 9\211 :\203K :@\211 ;A@)\314=\203B :@9B9:A\211:\204, 9\237* <\315 =\316>! ?\317?\320\321\322?\323\"<\"#\210\n\205\325\324\n@\322?\320\"\"5\f\203\202 \f\325\230\203\273 \nG\326V\203\273 @\306\327 A B C\330\216\331C!\210A@\332A!B\333\334\n!@! D\335D\336\"@7\337=-\202f\f\340\230\204\307 \f\341\230\203f\nG\342U\203*\313p!\306 9\211 :\203\371 :@\211 ;A@)\343=\203\360 :@9B9:A\211:\204\332 9\237* E\324\nA@E\"\206!\344\345 !\343\306 F G\211 HG\346F!\306\211\257+6\347=)\202G\344\345 !\343\306 F G\211 HG\346F!\306\211\257+6\347=\nG\326V\203f\350\3516\211 ;@)!! I\324\334\n!@I\"7)\nG\342U\203\2105\206t\n@6\206|\nA@7\206\204\310\n8E\202\261\nG\310U\203\2425\206\226\n@7\206\236\nA@D\202\261\nG\326U\205\2615\206\260\n@C\352\353p\354?\355 \356 \206\300\n\357\306\3608\361\306\362\fC\363\nG\364=C&\211. \207" [context-return prefixandbounds prefix bounds key prefixsym 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 #[nil "\306!\210 \307\211\203 @\211@\nAL\210 A\211\204\f *\f\310\f!\207" [#1=#:new-mode #2=#:old-locals #3=#:local --dolist-tail-- #4=#:mode mode-local-active-mode mode-local--deactivate-bindings nil mode-local--activate-bindings] 3] 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 prefix-var prefix-context prefix-function prefixclass result tags tag globalvar argtype point scope mode-local-active-mode #1# #2# #4# fcns contexts attributes class name toc] 22 (#$ . 18164)]) (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) #@141 Return a list of possible completions based on NONTEXT. Override semantic-analyze-possible-completions in `srecode-template-mode' buffers. (defalias 'semantic-analyze-possible-completions-srecode-template-mode #[(context &rest flags) "r\306\307\"q\210\310\306\301\"!@\211;\203 \202P \3111E \n:\205A \n@;\205A \nA@9\205A \nA@\205A \312\n8<\205A \313\n8<0\202G \210\314)\205P \211@)\306\315\"@ \314 \f\316\267\202h G \317p!\314 \211 \203\227 \320 \321\314 @\211@)\321 &\322=\203\216 @ B A\211 \204o \237+\317 !\314 \211 \203\306 @\211A@)\323=\203\275 @ B A\211 \204\250 \237*\202h \314\324 ! \"\325\216\326\"!\210 \327 !!\330 !\317 !\314 \211 \203 @\211A@)\323=\203 @ B A\211 \204\371 \237*,\202h\306\331\" G \317\306\332\"!\314 \211 \203b\320 \321\314 @\211@)\321 &\322=\203Y @ B A\211 \204: \237+) -\207" [context prefix tag prefixstr argtype matches eieio-oref buffer last (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 206 macro 288)) semantic-something-to-tag-table compare-strings 0 t function emacs-lisp-mode #[nil "\306!\210 \307\211\203 @\211@\nAL\210 A\211\204\f *\f\310\f!\207" [#1=#:new-mode #2=#:old-locals #3=#:local --dolist-tail-- #4=#:mode mode-local-active-mode mode-local--deactivate-bindings nil mode-local--activate-bindings] 3] mode-local--deactivate-bindings mode-local--activate-bindings semanticdb-find-tags-for-completion scope fullscope l result tags semantic-case-fold mode-local-active-mode #1# #2# #4#] 9 (#$ . 20830)]) (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 #[nil "\303\304p\"\211\205 \305\211\306\307 \310 8)\n\"+!)\207" [m tag attribute semantic-find-first-tag-by-name "mode" read :default-value plist-get 2] 5 (#$ . 22817)]) #@42 Get the current escape_start characters. (defalias 'srecode-template-get-escape-start #[nil "\303\304p\"\211\203 \305\306\n\307\n8) \"*@\202 \310)\207" [es attribute tag semantic-find-first-tag-by-name "escape_start" :default-value plist-get 2 "{{"] 4 (#$ . 23090)]) #@40 Get the current escape_end characters. (defalias 'srecode-template-get-escape-end #[nil "\303\304p\"\211\203 \305\306\n\307\n8) \"*@\202 \310)\207" [ee attribute tag semantic-find-first-tag-by-name "escape_end" :default-value plist-get 2 "}}"] 4 (#$ . 23370)]) #@43 Calculate the context encompassing POINT. (defalias 'srecode-template-current-context #[(&optional point) "\212\203 `b\210\305 \211\204 \306 \203F \307\211\211A@)\n*=\204F \306 \211\310 8) \311\f!\203< \312\f!\202? \f\313H*!\211\204 \203T \314 \211@)!\202U \315*\207" [point ct class tag o semantic-current-tag semantic-find-tag-by-overlay-prev context 4 overlayp overlay-start 0 read declaration] 4 (#$ . 23644)]) #@113 Find all the templates belonging to a particular CONTEXT. When optional BUFFER is provided, search that buffer. (defalias 'srecode-template-find-templates-of-context #[(context &optional buffer) "\212\203 q\210 \306\307\211 \f =\203 \310 \307 \f\211 \203v @\211\f\311 \211 \211 A@)*=\203O \312\f\211 @)!\211 =\203O \310 \203m \f\313 \211 \211 A@)*=\203m \f\nB A\211 \204# *\n\237-\207" [buffer semantic--buffer-cache ans scan cc tags declaration nil t context read function T --dolist-tail-- class tag] 5 (#$ . 24082)]) (provide 'srecode/srt-mode)
Close
