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.47
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 /
play /
[ HOME SHELL ]
Name
Size
Permission
Action
5x5.elc
21.99
KB
-rw-r--r--
animate.elc
4.35
KB
-rw-r--r--
blackbox.elc
12.57
KB
-rw-r--r--
bubbles.elc
46.72
KB
-rw-r--r--
cookie1.elc
6.78
KB
-rw-r--r--
decipher.elc
21.75
KB
-rw-r--r--
dissociate.elc
1.82
KB
-rw-r--r--
doctor.elc
48.91
KB
-rw-r--r--
dunnet.elc
86.95
KB
-rw-r--r--
fortune.elc
8.19
KB
-rw-r--r--
gamegrid.elc
15.54
KB
-rw-r--r--
gametree.elc
18.81
KB
-rw-r--r--
gomoku.elc
28.48
KB
-rw-r--r--
handwrite.elc
58.29
KB
-rw-r--r--
hanoi.elc
9.21
KB
-rw-r--r--
life.elc
8.56
KB
-rw-r--r--
morse.elc
4.14
KB
-rw-r--r--
mpuz.elc
14.08
KB
-rw-r--r--
pong.elc
9.95
KB
-rw-r--r--
snake.elc
12.23
KB
-rw-r--r--
solitaire.elc
13.1
KB
-rw-r--r--
spook.elc
1.37
KB
-rw-r--r--
studly.elc
1.31
KB
-rw-r--r--
tetris.elc
17.37
KB
-rw-r--r--
zone.elc
14.64
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cookie1.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\302\303\304\305\306\307&\210\310\311\302\312\313\314\306\301\315\316& \207" [custom-declare-group cookie nil "Random cookies from phrase files." :prefix "cookie-" :group games custom-declare-variable cookie-file "Default phrase file for cookie functions." :type (choice (const nil) file) :version "24.4"] 10) #@49 Delimiter used to separate cookie file entries. (defconst cookie-delimiter "\n%%\n\\|\n%\n\\| " (#$ . 739)) #@55 Cache of cookie files that have already been snarfed. (defvar cookie-cache (make-vector 511 0) (#$ . 853)) #@92 Return either FILE or `cookie-file'. Signal an error if the result is nil or not readable. (defalias 'cookie-check-file #[(file) "\206 \211\204 \302\303!\210\304!\204 \302\305\"\210\207" [file cookie-file user-error "No phrase file specified" file-readable-p "Cannot read file `%s'"] 3 (#$ . 966)]) #@240 Return a random phrase from PHRASE-FILE. When the phrase file is read in, display STARTMSG at the beginning of load, ENDMSG at the end. Interactively, PHRASE-FILE defaults to `cookie-file', unless that is nil or a prefix argument is used. (defalias 'cookie #[(phrase-file &optional startmsg endmsg) "\305!\306 \n#\307 \310\f!\210\f\311H\312\313!\203! \314\315 \"\202\" *\207" [phrase-file startmsg endmsg res cookie-vector cookie-check-file cookie-snarf nil cookie-shuffle-vector 0 called-interactively-p interactive message "%s"] 4 (#$ . 1281) (list (if (or current-prefix-arg (not cookie-file)) (read-file-name "Cookie file: " nil cookie-file t cookie-file) cookie-file) nil nil)]) #@151 Insert random phrases from PHRASE-FILE; COUNT of them. When the phrase file is read in, display STARTMSG at the beginning of load, ENDMSG at the end. (defalias 'cookie-insert #[(phrase-file &optional count startmsg endmsg) "\306!\307 \n#\310 !\210` \311c\210\312 GS \206 \313^ \"\210\311c\210\314\f`\315#*\207" [phrase-file startmsg endmsg cookie-vector start count cookie-check-file cookie-snarf cookie-shuffle-vector 10 cookie1 1 fill-region-as-paragraph nil] 4 (#$ . 1978)]) #@36 Inserts a cookie phrase ARG times. (defalias 'cookie1 #[(arg cookie-vec) "\302U\203 \303\207 Hc\210\304c\210\305S \"\207" [arg cookie-vec 0 t " " cookie1] 3 (#$ . 2467)]) #@188 Reads in the PHRASE-FILE, returns it as a vector of strings. Emit STARTMSG and ENDMSG before and after. Caches the result; second and subsequent calls on the same file won't go to disk. (defalias 'cookie-snarf #[(phrase-file &optional startmsg endmsg) "\306!\307 \"\211\203% \nK\310!\3118\262\232\204% \312\313P!\203% \314\n\203. \nJ\202\215 \315 \" \203< \316\317 \"\210\n\310!\3118\262M\210\314 \320\321! r q\210\322\216\323\324!!\210\325!\210\326\314w\210m\204z ` \325!\210\327\224{\fB)\202^ + \203\206 \316\317 \"\210\n\330\331\f\"L))\207" [phrase-file cookie-cache sym startmsg result #1=#:temp-buffer cookie-check-file intern-soft file-attributes 5 yes-or-no-p " has changed. Read new contents? " nil intern message "%s" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents expand-file-name re-search-forward " \n \f" 0 apply vector cookie-delimiter beg endmsg] 5 (#$ . 2649)]) #@188 Prompt with PROMPT and read with completion among cookies in PHRASE-FILE. STARTMSG and ENDMSG are passed along to `cookie-snarf'. Argument REQUIRE-MATCH non-nil forces a matching cookie. (defalias 'cookie-read #[(prompt phrase-file &optional startmsg endmsg require-match) "\306!\307 \"\204 \310\n #\210\311\f\312 \"\211 \313N\206L \314 \310\n #\211 G S\211\315Y\203E HCB\202, \316 \313#+)\314\314\211&\207" [phrase-file cookie-cache startmsg endmsg prompt sym cookie-check-file intern-soft cookie-snarf completing-read intern completion-alist nil 0 put alist vec i require-match] 8 (#$ . 3630)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias read-cookie cookie-read nil make-obsolete "24.4"] 4) #@76 Randomly permute the elements of VECTOR (all permutations equally likely). (defalias 'cookie-shuffle-vector #[(vector) "G\306\211\211\307 \f W\2030 \f\310 \fZ!\\\fH\f\nHI\210\n I\210\fT\211\202\f -\207" [vector temp j len i --dotimes-limit-- nil 0 random] 5 (#$ . 4379)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias shuffle-vector cookie-shuffle-vector nil make-obsolete "24.4"] 4) #@295 Return a list of all entries matching REGEXP from PHRASE-FILE. Interactively, uses `read-regexp' to read REGEXP. Interactively, PHRASE-FILE defaults to `cookie-file', unless that is nil or a prefix argument is used. If called interactively, or if DISPLAY is non-nil, display a list of matches. (defalias 'cookie-apropos #[(regexp phrase-file &optional display) "\306!\307!\210\310\311\n\"\211J \312 \fG\313 W\203H \fH\312\310 \314#)\266\203\203? \fH BT\211\202 *\203R \315 \316\" \203\267 \203\263 ! \"r\317\320!q\210p\321 \210\"!\312\211#$\310\211%\310 & '\322 \210\323\324!\210+\211 ( ) \203\247 \325 @!\210 A\211 \203\214 \325\326!\210\202\214 \327 \210\330(!\210,\202\267 \331\332!\210 ,\207" [phrase-file case-fold-search cookie-cache cookie-table-symbol string-table matches cookie-check-file cookie t intern nil 0 string-match sort string-lessp get-buffer-create "*Cookie Apropos*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "\n\n" help-print-return-message internal-temp-output-buffer-show message "No matches found." i --dotimes-limit-- regexp inhibit-changing-match-data display l default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 8 (#$ . 4803) (list (read-regexp "Apropos phrase (regexp): ") (if (or current-prefix-arg (not cookie-file)) (read-file-name "Cookie file: " nil cookie-file t cookie-file) cookie-file) t)]) #@156 Feed cookie phrases from PHRASE-FILE to the doctor. Interactively, PHRASE-FILE defaults to `cookie-file', unless that is nil or a prefix argument is used. (defalias 'cookie-doctor #[(phrase-file) "\301!\302 \210\303\304!\210\305\306!\210\307\310!\210\311 ?\205- \312!c\210\307\310!\210\313\314!\210\313\314!\210\202 \207" [phrase-file cookie-check-file doctor message "" switch-to-buffer "*doctor*" sit-for 0 input-pending-p cookie doctor-ret-or-read 1] 2 (#$ . 6324) (list (if (or current-prefix-arg (not cookie-file)) (read-file-name "Cookie file: " nil cookie-file t cookie-file) cookie-file))]) (provide 'cookie1)
Close
