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 : getset.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!\207" [require semantic semantic/analyze semantic/find srecode/insert srecode/dictionary] 2) #@68 Non-nil means accept choices srecode comes up with without asking. (defvar srecode-insert-getset-fully-automatic-flag nil (#$ . 574)) #@250 Insert get/set methods for the current class. CLASS-IN is the semantic tag of the class to update. FIELD-IN is the semantic tag, or string name, of the field to add. If you do not specify CLASS-IN or FIELD-IN then a class and field will be derived. (defalias 'srecode-insert-getset #[(&optional class-in field-in) "\306!\210\306\307\"\210\310 \204 \311\312\"\210\313\310 \314\315\307$\204! \311\316!\210\317 \210 \206+ \320`!\211\205I \n\211\3218)\322\f!\203E \323\f!\202H \f\324H*\325\326!\n=5\3276\n\204\\ \311\330!\2107\203e 765\203t 6\204t \331`!66\204~ \332\n!66;\203L`b\210\333\n5\"\210\334 8\313\310 \335\315\307$\2119\204\243 \311\336\"\210\33798\"\210\3408\3416#\210:\203\276 \3408\342\343#\210\34498\"\210\317 \210\212 b\210\320`!);<\345\346p!!\327=\211>\203\3476>@\211@)\"\203\371 >@=B=>A\211>\204\343 =\237+?\345?!\327=\211>\2033>@\211A@)\350=\203*>@=B=>A\211>\204=\237*\211?\203E?@6\202K\311\3516\"\210+6\3521z:\205v@;\205vA@9\205vA@\205v\3538<\205v\3548<0\202|\210\327)\204\204\311\355!\210\356\n6\"\210\357 \n=\204\224\360c\210\334 86@\313\310 \314\315\307$\2119\204\256\311\336\"\210\33798\"\210\3408\3616\211@)\362P#\210\3408\363\3646\211@)!#\210\34498\".\207" [major-mode class-in class tag o tagstart srecode-load-tables-for-mode getset srecode-table error "No template table found for mode %s" srecode-template-get-table "getset-in-class" "declaration" "No templates for inserting get/set" semantic-fetch-tags srecode-auto-choose-class 4 overlayp overlay-start 0 semantic-current-tag-of-class type nil "Move point to a class and try again" srecode-auto-choose-field srecode-query-for-field srecode-position-new-field srecode-create-dictionary "getset-field" "Getset templates for %s not loaded!" srecode-resolve-arguments srecode-dictionary-set-value "NAME" "TYPE" "int" srecode-insert-fcn semantic-something-to-tag-table semantic-flatten-tags-table string-match variable "Could not find new field %s" (error) 2 3 "Must specify field for get/set. (parts may not be impl'd yet.)" srecode-position-new-methods semantic-current-tag "\n" "GROUPNAME" " Accessors" "NICENAME" srecode-strip-fieldname inclass field field-in dict temp srecode-insert-getset-fully-automatic-flag semantic-case-fold case-fold-search result tags tmptag srecode-semantic-selected-tag] 6 (#$ . 715) nil]) #@53 Strip the fieldname NAME of polish notation things. (defalias 'srecode-strip-fieldname #[(name) "\301\302\"\203 \303\304\224\"\207\207" [name string-match "[a-z]\\([A-Z]\\w+\\)" substring 1] 3 (#$ . 3124)]) #@163 Position the cursor in CLASS where new getset methods should go. FIELD is the field for the get sets. INCLASS specifies if the cursor is already in CLASS or not. (defalias 'srecode-position-new-methods #[(class field) "\306!\210\307 \310 \311\211\211\2032 \f\312\211%\211%A@) *=\2032 \313\314\f\211%@)!P\202S \203S \312\211%\211%A@) *=\203S \313\314\f\211%@)!P\315\n \211%\316&%\317%%\320%8)&\"+\"\211\204\317 \321 \211%\316&%\317%%\320%8)&\"+!\311'\211(\203\276 (@\322&%\317%%\320%8)&\"*\203\265 (@'B'(A\211(\204\224 '\237*\242\323 \"\324=\204\317 \311 \204(\321 \211%\316&%\317%%\320%8)&\"+!\311'\211(\203(@\325&%\317%%\320%8)&\"*\203(@'B'(A\211(\204\365 '\237*\242\2023\323 \"\324=\2043\311 \204R\315\326 \211%\316&%\317%%\320%8)&\"+\" \204o \211%\316&%\317%%\320%8)&\"+@ \203\333 \211%%\327%8))\330)!\203\216\331)!\202\222)\332H*\211*\204\243\333\334 \211%@)\"\210*b\210\335\336+P!\203\327`\310`!,-\337\332!\210,\203\326\340\341,\211%@)!-\342#\203\326-b\210*)\202 \211%%\327%8))\330)!\203\366\331)!\202\372)\332H*b\210\343\344!\210\332u\210\311\210\332u,\207" [field aftertag setname next prev class semantic-go-to-tag semantic-find-tag-by-overlay-prev semantic-find-tag-by-overlay-next nil variable "set" srecode-strip-fieldname semantic-find-first-tag-by-name :members plist-get 2 semantic-something-to-tag-table :destructor-flag semantic-tag-protection public :constructor-flag "public" 4 overlayp overlay-end 1 message "Unknown location for tag-end in %s:" looking-at "\\s-*\n?\\s-*" forward-comment re-search-backward regexp-quote t forward-sexp -1 tag attribute result tags o te semantic-lex-comment-regex rnext pos] 6 (#$ . 3342)]) #@157 Select a position for a new field for CLASS. If INCLASS is non-nil, then the cursor is already in the class and should not be moved during point selection. (defalias 'srecode-position-new-field #[(class inclass) "\204U \306\307!\210\310 \211\311\312\n\313\n8)\"+!\314\211\2039 @\211A@)\315=\2032 @\fB A\211\204! \f\237*\211\203L \316@ \"\210\202P \316 !\210)\317p!\210\206] \320\321!?\205d \306\322!\207" [inclass class tag attribute result tags error "You must position the cursor where to insert the new field" semantic-something-to-tag-table :members plist-get 2 nil variable semantic-go-to-tag switch-to-buffer y-or-n-p "Insert new field here? " "You must position the cursor where to insert the new field first" kids srecode-insert-getset-fully-automatic-flag] 5 (#$ . 5129)]) #@87 Choose a field for the get/set methods. Base selection on the field related to POINT. (defalias 'srecode-auto-choose-field #[(point) "\212\203 b\210\304\305!\211\203# \n\204# \306\307\310 \211@)\"!\204# \311 *\207" [point field srecode-insert-getset-fully-automatic-flag tag semantic-current-tag-of-class variable y-or-n-p format "Use field %s? " nil] 5 (#$ . 5936)]) #@29 Query for a field in CLASS. (defalias 'srecode-query-for-field #[(class) "\306\211\307\310 \311 8)\n\"+!\312\211\2031 \f@\211A@)\313=\203* \f@B\fA\211\204 \237*\314\315 \"\306 !\312\211\203a \f@\211@)\230\203Z \f@B\fA\211\204I \237+\211\203p @\202r +\207" [class tag attribute result tags kids semantic-something-to-tag-table :members plist-get 2 nil variable completing-read "Use Field: " sel semantic-case-fold case-fold-search fields] 5 (#$ . 6316)]) #@44 Choose a class based on location of POINT. (defalias 'srecode-auto-choose-class #[(point) "\212\203 b\210\306\307!\211\203% \211\310\311 \312 8)\n\"+\313\230\204\264 \306\314!\211\203\264 \211\211\315\311 \312 8)\n\",\203\264 \211\211\315\311 \312 8)\n\",\211;\203^ \202\246 \3161\213 :\205\207 @;\205\207 A@9\205\207 A@\205\207 \312 8<\205\207 \317 8<0\202\215 \210\320)\203\231 \211@)\202\246 <\205\246 @;\205\246 @\321\f\307\320#\211\203\263 + \203\337 \307\211\211A@)*=\203\337 \211\310\311 \312 8)\n\"+\313\230\204r\322 \320\211\203n\323\324\325\"!\204n\203n@\31610 :\205, @;\205, A@9\205, A@\205,\312 8<\205,\317 8<0\2022\210\320)\203f@\307\211\211A@)*=\203f@\211\310\311 \312 8)\n\"+\313\230\203f@A\202\367 + *\207" [point tag attribute p searchname ptag semantic-current-tag-of-class type :type plist-get 2 "class" function :parent (error) 3 nil semantic-analyze-find-tag semantic-analyze-current-context reverse eieio-oref prefix class ctxt pfix ans] 5 (#$ . 6811)]) (provide 'srecode/getset)
Close