ikan Uploader :
Directory : /proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/symref/
Upload File : |
| Current File : //proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/symref/filter.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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/analyze] 2)
#@100 Determine if the tag TARGET is used at POSITION in the current buffer.
Return non-nil for a match.
(defalias 'semantic-symref-filter-hit #[(target &optional position) "\301\302\"\207" [position semantic-analyze-current-symbol #[(start end prefix) "\237@\211\30311 :\205- @;\205- A@9\205- A@\205- \304 8<\205- \305 8<0\2023 \210\306)\205; \307\n \")\207" [prefix tag target (error) 2 3 nil semantic-equivalent-tag-p] 4]] 3 (#$ . 490)])
#@275 Find all occurrences of the symbol TARGET that match TARGET the tag.
For each match, call HOOKFCN.
HOOKFCN takes three arguments that match
`semantic-analyze-current-symbol's use of HOOKFCN.
( START END PREFIX )
Search occurs in the current buffer between START and END.
(defalias 'semantic-symref-hits-in-region #[(target hookfcn start end) "\306\307!\210\212b\210 \211@)\f \310\311 !\312Q \313\314#\205/ \315 \203 \316\317`\"\210\202 ,\207" [start target tag str semantic-case-fold case-fold-search require semantic/idle "\\<" regexp-quote "\\>" re-search-forward t semantic-idle-summary-useful-context-p semantic-analyze-current-symbol #[(start end prefix) "\237@\211\30611 :\205- @;\205- A@9\205- A@\205- \307 8<\205- \310 8<0\2023 \210\311)\205E \312\n \"\205E \212 \f
#))\207" [prefix tag target hookfcn start end (error) 2 3 nil semantic-equivalent-tag-p] 5] regexp end] 5 (#$ . 940)])
#@158 Lookup in the current tag the symbol under point.
the count all the other references to the same symbol within the
tag that contains point, and return that.
(defalias 'semantic-symref-test-count-hits-in-tag #[nil "\306 \307\310\311\"!@\312 \313 \314 \3151@ \n:\205< \n@;\205< \nA@9\205< \nA@\205< \316\n8<\205< \317\n8<0\202B \210\320)\205\234 \321 \322\n\211\323\n8) \324
!\203^ \325
!\202a
\314H*\n\211\323\n8) \324
!\203w \326
!\202z
\327H*$\210\330\331!\203\233 \332\333\f \211@) \313 \334\335 \"!*$\210\f-\207" [ctxt target tag start Lcount o semantic-analyze-current-context reverse eieio-oref prefix semantic-current-tag current-time 0 (error) 2 3 nil semantic-symref-hits-in-region #[(start end prefix) "T\211\207" [Lcount] 2] 4 semantic-overlay-p semantic-overlay-start semantic-overlay-end 1 called-interactively-p interactive message "Found %d occurrences of %s in %.2f seconds" float-time time-subtract end] 9 (#$ . 1861) nil])
#@95 Fancy way to rename the local variable under point.
Depends on the SRecode Field editing API.
(defalias 'semantic-symref-rename-local-variable #[nil "\306 \307\310\311\"!@\312 \203 \313 !\204 \314\315!\210 \316\211\211A@) *=\2040 \314\317!\210 \211\320\n8) \321\f!\203E \322\f!\202H \f\323H*\n\211\320\n8) \321\f!\203^ \322\f!\202a \f\323H*W\204\234 \211\320\n8) \321\f!\203{ \324\f!\202~ \f\325H*\n\211\320\n8) \321\f!\203\224 \324\f!\202\227 \f\325H*V\203\245 \314\326\n\211@)\"\210\327\330!\210\331 \211 \203\264 \332
!\210)\333\211 # $\334 \335\n\211\320\n8) \321\f!\203\323 \322\f!\202\326 \f\323H*\n\211\320\n8) \321\f!\203\354 \324\f!\202\357 \f\325H*$\210\336\337\340\n\211\320\n8) \321\f!\203\n\322\f!\202
\f\323H*\341\n\211\320\n8) \321\f!\203$\324\f!\202'\f\325H*%#\342#!-\207" [ctxt target tag class o ar semantic-analyze-current-context reverse eieio-oref prefix semantic-current-tag semantic-tag-with-position-p error "Cannot identify symbol under point" variable "Can only rename variables" 4 semantic-overlay-p semantic-overlay-start 0 semantic-overlay-end 1 "Can only rename variables declared in %s" require srecode/fields srecode-active-template-region srecode-delete nil semantic-symref-hits-in-region #[(start end prefix) "\302\303\304\303\305\306 &\207" [start end srecode-field "LOCAL" :name :start :end] 8] srecode-template-inserted-region "REGION" :start :end srecode-overlaid-activate region srecode-field-archive] 8 (#$ . 2828) nil])
(provide 'semantic/symref/filter)
Kontol Shell Bypass