Gecko [ goons4good.org ]

Name	Size	Permission	Date
5x5.elc	20.63 KB	-rw-r--r--	2023-06-07 04:11
animate.elc	4.37 KB	-rw-r--r--	2023-06-07 04:11
blackbox.elc	10.93 KB	-rw-r--r--	2023-06-07 04:11
bubbles.elc	43.68 KB	-rw-r--r--	2023-06-07 04:11
cookie1.elc	3.48 KB	-rw-r--r--	2023-06-07 04:11
decipher.elc	22.1 KB	-rw-r--r--	2023-06-07 04:11
dissociate.elc	1.96 KB	-rw-r--r--	2023-06-07 04:11
doctor.elc	49.27 KB	-rw-r--r--	2023-06-07 04:11
dunnet.elc	85.34 KB	-rw-r--r--	2023-06-07 04:11
fortune.elc	7.68 KB	-rw-r--r--	2023-06-07 04:11
gamegrid.elc	13.93 KB	-rw-r--r--	2023-06-07 04:11
gametree.elc	19.01 KB	-rw-r--r--	2023-06-07 04:11
gomoku.elc	28.9 KB	-rw-r--r--	2023-06-07 04:11
handwrite.elc	58.43 KB	-rw-r--r--	2023-06-07 04:11
hanoi.elc	9.37 KB	-rw-r--r--	2023-06-07 04:11
landmark.elc	39.89 KB	-rw-r--r--	2023-06-07 04:11
life.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
meese.elc	1.04 KB	-rw-r--r--	2023-06-07 04:11
morse.elc	4.22 KB	-rw-r--r--	2023-06-07 04:11
mpuz.elc	12.93 KB	-rw-r--r--	2023-06-07 04:11
pong.elc	9.94 KB	-rw-r--r--	2023-06-07 04:11
snake.elc	9.76 KB	-rw-r--r--	2023-06-07 04:11
solitaire.elc	13.38 KB	-rw-r--r--	2023-06-07 04:11
spook.elc	1.51 KB	-rw-r--r--	2023-06-07 04:11
studly.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
yow.elc	3.43 KB	-rw-r--r--	2023-06-07 04:11
zone.elc	14.97 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:35 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/cookie1.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#@49 Delimiter used to separate cookie file entries.
(defconst cookie-delimiter "\n%%\n\\|\n%\n\\|�" (#$ . 551))
#@55 Cache of cookie files that have already been snarfed.
(defvar cookie-cache (make-vector 511 0) (#$ . 665))
#@137 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.
(defalias 'cookie #[(phrase-file startmsg endmsg) "\304	\n#\305!\210\306H)\207" [phrase-file startmsg endmsg cookie-vector cookie-snarf shuffle-vector 0] 4 (#$ . 779)])
#@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	\n#\307!\210`\310c\210\311GS
\206�\312^\"\210\310c\210\313\f`\314#*\207" [phrase-file startmsg endmsg cookie-vector start count cookie-snarf shuffle-vector 10 cookie1 1 fill-region-as-paragraph nil] 4 (#$ . 1095)])
#@36 Inserts a cookie phrase ARG times.
(defalias 'cookie1 #[(arg cookie-vec) "\302!\203�\303\207	Hc\210\304c\210\305S	\"\207" [arg cookie-vec zerop t " " cookie1] 3 (#$ . 1552)])
#@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 startmsg endmsg) "\306!\204�\307\310\"\210\311	\"\211\203)�\nK\312\313!8\232\204)�\314\315P!\203)�\316\n\2032�\nJ\202\206�\317	\"\320\321\"\210\212\322\323!\316\211q\210\n\312\313!8M\210\324\325!!\210\326!\210\327\316w\210m\204u�`\326!\210\330\224{\fB)\202Y�\331
!\210\320\321\"\210\n\332\333\f\"L+)\207" [phrase-file cookie-cache sym startmsg result buf file-readable-p error "Cannot read file `%s'" intern-soft 5 file-attributes yes-or-no-p " has changed.  Read new contents? " nil intern message "%s" generate-new-buffer "*cookie*" insert-file-contents expand-file-name re-search-forward " 	\n
\f" 0 kill-buffer apply vector cookie-delimiter beg endmsg] 5 (#$ . 1738)])
#@198 Prompt with PROMPT and read with completion among cookies in PHRASE-FILE.
STARTMSG and ENDMSG are passed along to `cookie-snarf'.
Optional fifth arg REQUIRE-MATCH non-nil forces a matching cookie.
(defalias 'read-cookie #[(prompt phrase-file startmsg endmsg &optional require-match) "\306	\"\204
�\307\n#\210\310\f\311	\"\211\312N\206H�\313\307\n#\211GS\211\314Y\203A�HCB\202(�\315
\312#+)\313\313\211&\207" [phrase-file cookie-cache startmsg endmsg prompt sym intern-soft cookie-snarf completing-read intern completion-alist nil 0 put alist vec i require-match] 8 (#$ . 2670)])
#@76 Randomly permute the elements of VECTOR (all permutations equally likely).
(defalias 'shuffle-vector #[(vector) "\305\306\211G\211	W\203.�\f\307	\fZ!\\\fH\fHI\210\nI\210\fT\211\202\n�,\207" [vector len temp j i 0 nil random] 5 (#$ . 3285)])
(provide 'cookie1)