Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
cedet /
srecode /
Delete
Unzip
Name
Size
Permission
Date
Action
args.elc
4.17
KB
-rw-r--r--
2023-06-07 04:12
compile.elc
14.18
KB
-rw-r--r--
2023-06-07 04:12
cpp.elc
5.46
KB
-rw-r--r--
2023-06-07 04:12
ctxt.elc
6.13
KB
-rw-r--r--
2023-06-07 04:12
dictionary.elc
16.78
KB
-rw-r--r--
2023-06-07 04:12
document.elc
18.43
KB
-rw-r--r--
2023-06-07 04:12
el.elc
2.78
KB
-rw-r--r--
2023-06-07 04:12
expandproto.elc
2.29
KB
-rw-r--r--
2023-06-07 04:12
extract.elc
6.32
KB
-rw-r--r--
2023-06-07 04:12
fields.elc
11.77
KB
-rw-r--r--
2023-06-07 04:12
filters.elc
1.06
KB
-rw-r--r--
2023-06-07 04:12
find.elc
7.69
KB
-rw-r--r--
2023-06-07 04:12
getset.elc
7.96
KB
-rw-r--r--
2023-06-07 04:12
insert.elc
27.87
KB
-rw-r--r--
2023-06-07 04:12
java.elc
1.58
KB
-rw-r--r--
2023-06-07 04:12
loaddefs.el
7.58
KB
-rw-r--r--
2023-06-07 04:00
map.elc
10.37
KB
-rw-r--r--
2023-06-07 04:12
mode.elc
10.94
KB
-rw-r--r--
2023-06-07 04:12
semantic.elc
11.09
KB
-rw-r--r--
2023-06-07 04:12
srt-mode.elc
24.57
KB
-rw-r--r--
2023-06-07 04:12
srt-wy.elc
33.62
KB
-rw-r--r--
2023-06-07 04:12
srt.elc
2.97
KB
-rw-r--r--
2023-06-07 04:12
table.elc
8.19
KB
-rw-r--r--
2023-06-07 04:12
template.elc
1.87
KB
-rw-r--r--
2023-06-07 04:12
texi.elc
8.86
KB
-rw-r--r--
2023-06-07 04:12
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:12:26 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/srecode/fields.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'eieio) #@123 While inserting a set of fields, collect in this variable. Once an insertion set is done, these fields will be activated. (defvar srecode-field-archive nil (#$ . 577)) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\312\313\314&\210\315\316\310\317\320$\210\321\322\323\322\324\"\"\210\325\322\310\316\326$\210\321\327\323\327\330\"\"\210\325\327\310\316\331$\210\321\332\323\332\333\"\"\210\325\332\310\316\334$\210\321\335\323\335\336\"\"\210\325\335\310\316\337$\210\321\340\323\340\341\"\"\210\325\340\310\316\342$\210\321\343\323\343\344\"\"\210\325\343\310\316\345$\207" [custom-declare-face srecode-field-face ((((class color) (background dark)) (:underline "green")) (((class color) (background light)) (:underline "green4"))) "*Face used to specify editable fields from a template." :group semantic-faces custom-declare-variable srecode-fields-exit-confirmation nil "Ask for confirmation before leaving field editing mode." srecode :type boolean eieio-defclass srecode-overlaid ((overlay :documentation "Overlay representing this field.\nThe overlay will crossreference this object.")) ("An object that gets automatically bound to an overlay.\nHas virtual :start and :end initializers.") eieio--defalias initialize-instance eieio--defgeneric-init-form #1="Initialize OLAID, being sure it archived." eieio--defmethod #[(olaid &optional args) "\306\211\211\211\f\203H \f@\307=\203 \fA\211@\fA\211\202 \f@\310=\2034 \fA\211@\fA\211\202 \f@ B\fA\211@ B\fA\211\204\f \311 p\312\306%\313\n\314\312#\210\315 \316\n#\210\317 \237\",\207" [end start olay newargs args olaid nil :start :end make-overlay t overlay-put srecode-init-only eieio-oset overlay call-next-method] 7 #1#] srecode-overlaid-activate #2="Activate the overlaid area." #[(olaid) "\305\306\"\307 !\310 !\311\n p\312\313% \314 !\210\315\f\316#\210\317\306\f#,\207" [olaid ola start end ol eieio-oref overlay overlay-start overlay-end make-overlay nil t delete-overlay overlay-put srecode eieio-oset] 6 #2#] srecode-delete #3="Delete the overlay from OLAID." #[(olaid) "\301\302\303\"!\210\304\303\"\207" [olaid delete-overlay eieio-oref overlay slot-makeunbound] 4 #3#] srecode-empty-region-p #4="Return non-nil if the region covered by OLAID is of length 0." #[(olaid) "\301!\302U\207" [olaid srecode-region-size 0] 2 #4#] srecode-region-size #5="Return the length of region covered by OLAID." #[(olaid) "\303\304\305\"!\306\304\305\"! \nZ*\207" [olaid end start overlay-start eieio-oref overlay overlay-end] 5 #5#] srecode-point-in-region-p #6="Return non-nil if point is in the region of OLAID." #[(olaid) "\303\304\305\"!\306\304\305\"!`\nY\205 ` X*\207" [olaid end start overlay-start eieio-oref overlay overlay-end] 5 #6#]] 8) #@58 Return a list of overlaid fields of type CLASS at point. (defalias 'srecode-overlaid-at-point #[(class) "\304`!\305\211\203' \306 @\307\"\211\203 \310\n \"\203 \nB) A\211\204\n \237@*\207" [ret ol tmp class overlays-at nil overlay-get srecode object-of-class-p] 4 (#$ . 3336)]) (byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\310\311\312\313\314$\210\300\315\302\315\316\"\"\210\304\315\305\311\317$\210\300\320\302\320\321\"\"\210\304\320\305\311\322$\210\300\323\302\323\324\"\"\210\304\323\305\311\325$\207" [eieio--defalias srecode-overlaid-text eieio--defgeneric-init-form #1="Return the text under OLAID.\nIf SET-TO is a string, then replace the text of OLAID wit SET-TO." eieio--defmethod nil srecode-overlaid #[(olaid &optional set-to) "\304\305\"\306 ! ;\204 \307\n\310 !\"\202/ \212\n\310 !|\210\nb\210 c\210\311 \n\211 G\\#\210)\312*\207" [olaid ol start set-to eieio-oref overlay overlay-start buffer-substring-no-properties overlay-end move-overlay nil] 5 #1#] eieio-defclass srecode-template-inserted-region (srecode-overlaid) ((fields :documentation "A list of field overlays in this region.") (active-region :allocation :class :initform nil :documentation "The template region currently being handled.")) ("Manage a buffer region in which fields exist.") initialize-instance #2="Initialize IR, capturing the active fields, and creating the overlay." #[(ir &rest args) "\302\303 #\210\304\305 \207" [ir srecode-field-archive eieio-oset fields nil call-next-method] 4 #2#] srecode-overlaid-activate #3="Activate the template area for IR." #[(ir) "\304\305\"\306\211\203 \n@\307 !\210\nA\211\204 *\310 \210\304\305\"@\311\304 \312\"!b\210)\313\314#\210\315\316\317\320\211$\207" [ir F --dolist-tail-- first eieio-oref fields nil srecode-overlaid-activate call-next-method overlay-start overlay eieio-oset active-region add-hook post-command-hook srecode-field-post-command t] 6 #3#] srecode-delete #4="Call into our base, but also clear out the fields." #[(ir) "\301\302\303#\210\304\305\306\307\"\"\210\310 \210\311\312\313\314#\207" [ir eieio-oset active-region nil mapc srecode-delete eieio-oref fields call-next-method remove-hook post-command-hook srecode-field-post-command t] 5 #4#]] 5) #@47 Return the active region for template fields. (defalias 'srecode-active-template-region #[nil "\301\302\"\207" [srecode-template-inserted-region eieio-oref active-region] 3 (#$ . 5595)]) (put 'srecode-active-template-region 'byte-optimizer 'byte-compile-inline-expand) #@49 Srecode field handler in the post command hook. (defalias 'srecode-field-post-command #[nil "\302\303\"\211\204 \304\305\306\307#\202 \310 !?\205 \311 !)\207" [srecode-template-inserted-region ar eieio-oref active-region remove-hook post-command-hook srecode-field-post-command t srecode-point-in-region-p srecode-delete] 5 (#$ . 5871)]) (eieio-defclass 'srecode-field '(srecode-overlaid) '((tail :documentation "Overlay used on character just after this field.\nUsed to provide useful keybindings there.") (name :initarg :name :documentation "The name of this field.\nUsually initialized from the dictionary entry name that\nthe users needs to edit.") (prompt :initarg :prompt :documentation "A prompt string to use if this were in the minibuffer.\nDisplay when the cursor enters this field.") (read-fcn :initarg :read-fcn :documentation "A function that would be used to read a string.\nTry to use this to provide useful completion when available.")) '("Representation of one field.")) #@35 Keymap applied to field overlays. (defvar srecode-field-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\312#\210\302\314\315#\210)\207" [km make-sparse-keymap define-key " " srecode-field-next "\211" srecode-field-prev "" srecode-field-end "" srecode-field-start "\355" "" srecode-field-exit-ask] 4) (#$ . 6870)) (byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\305\306\312$\210\300\313\302\313\314\"\"\210\304\313\305\306\315$\207" [eieio--defalias initialize-instance eieio--defgeneric-init-form #1="Initialize FIELD, being sure it archived." eieio--defmethod nil srecode-field #[(field &optional args) "\301\302\303#\210\304 \207" [field add-to-list srecode-field-archive t call-next-method] 4 #1#] srecode-overlaid-activate #2="Activate the FIELD area." #[(field) "\305 \210\306\307\"\310\211\311 \312\313#\210\311 \314\f#\210\311 \315\316#\210\311 \317\320#\210\311 \321\322#\210\323 !\324\n\211Tp#\311 \325#\210\311 \314\f#\210\311 \312\313#\210\326\303 #+\207" [field ol end tail srecode-field-keymap call-next-method eieio-oref overlay nil overlay-put face srecode-field-face keymap modification-hooks (srecode-field-mod-hook) insert-behind-hooks (srecode-field-behind-hook) insert-in-front-hooks (srecode-field-mod-hook) overlay-end make-overlay srecode eieio-oset] 5 #2#] srecode-delete #3="Delete our secondary overlay." #[(olaid) "\301\302\303\"!\210\304\303\"\210\305 \207" [olaid delete-overlay eieio-oref tail slot-makeunbound call-next-method] 4 #3#]] 5) #@55 Maximum size of a field before canceling replication. (defvar srecode-field-replication-max-size 100 (#$ . 8476)) #@226 Modification hook for the field overlay. OL is the overlay. AFTER is non-nil if it is called after the change. START and END are the bounds of the change. PRE-LEN is used in the after mode for the length of the changed text. (defalias 'srecode-field-mod-hook #[(ol after start end &optional pre-len) "\205\244 ?\205\244 \306\n\307\"\310\211 \311 \312\"\205\243 \313 \312\"\313 \314\" \f \315\316!\317\f!S#\210\315\f\317\f!S\317\f!#\210*\320 ! \313\321\"\211 \205W \313\322\" \313 \323\" \324 \211 \205\241 @\211 =\204\227 \313 \323\"\230\203\227 G V\203\220 \325\326!\210\202\227 \320 \"\210 A\211 \204j \324.+\207" [after undo-in-progress ol field inhibit-point-motion-hooks inhibit-modification-hooks overlay-get srecode t slot-boundp overlay eieio-oref tail move-overlay overlay-start overlay-end srecode-overlaid-text active-region fields name nil message "Field size too large for replication." main new-text srecode-template-inserted-region region allfields F --dolist-tail-- srecode-field-replication-max-size] 6 (#$ . 8597)]) #@226 Modification hook for the field overlay. OL is the overlay. AFTER is non-nil if it is called after the change. START and END are the bounds of the change. PRE-LEN is used in the after mode for the length of the changed text. (defalias 'srecode-field-behind-hook #[(ol after start end &optional pre-len) "\205 \306 \307\"\310 \311 ! #\210\312 \f %)\207" [after ol field end start pre-len overlay-get srecode move-overlay overlay-start srecode-field-mod-hook] 6 (#$ . 9679)]) (byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias srecode-field-goto eieio--defgeneric-init-form #1="Goto the FIELD." eieio--defmethod nil srecode-field #[(field) "\301\302\303\"!b\207" [field overlay-start eieio-oref overlay] 4 #1#]] 5) #@25 Move to the next field. (defalias 'srecode-field-next #[nil "\303\304!\303\305!\204 \306\307!\210 \204 \306\310!\210\311 \302\"\211\205H \n@=\203@ \nA\2036 \312\nA@!\210\202> \312\311 \302\"@!\210\313\nA\211\204! \313+\207" [f tr fields srecode-overlaid-at-point srecode-field srecode-template-inserted-region error "Not in a field" "Not in a template region" eieio-oref srecode-field-goto nil] 5 (#$ . 10437) nil]) #@25 Move to the prev field. (defalias 'srecode-field-prev #[nil "\303\304!\303\305!\204 \306\307!\210 \204 \306\310!\210\311\312 \302\"!\211\205J \n@=\203B \nA\2038 \313\nA@!\210\202@ \313\312 \302\"@!\210\314\nA\211\204# \314+\207" [f tr fields srecode-overlaid-at-point srecode-field srecode-template-inserted-region error "Not in a field" "Not in a template region" reverse eieio-oref srecode-field-goto nil] 5 (#$ . 10868) nil]) #@32 Move to the end of this field. (defalias 'srecode-field-end #[nil "\301\302!\303\304\305\"!b)\207" [f srecode-overlaid-at-point srecode-field overlay-end eieio-oref overlay] 4 (#$ . 11312) nil]) #@32 Move to the end of this field. (defalias 'srecode-field-start #[nil "\301\302!\303\304\305\"!b)\207" [f srecode-overlaid-at-point srecode-field overlay-start eieio-oref overlay] 4 (#$ . 11515) nil]) #@56 Ask if the user wants to exit field-editing mini-mode. (defalias 'srecode-field-exit-ask #[nil "\203\n \302\303!\205 \304\305 \306\"!\207" [srecode-fields-exit-confirmation srecode-template-inserted-region y-or-n-p "Exit field-editing mode? " srecode-delete eieio-oref active-region] 4 (#$ . 11722) nil]) (provide 'srecode/fields)