Gecko [ 122.154.134.11 ]

Name	Size	Permission
5x5.elc	13.7 KB	-rw-r--r--
animate.elc	3.86 KB	-rw-r--r--
blackbox.elc	11.03 KB	-rw-r--r--
bruce.el	6.03 KB	-rw-r--r--
bubbles.elc	45.33 KB	-rw-r--r--
cookie1.elc	3.47 KB	-rw-r--r--
decipher.elc	23.06 KB	-rw-r--r--
dissociate.elc	2.08 KB	-rw-r--r--
doctor.elc	45.54 KB	-rw-r--r--
dunnet.elc	85.74 KB	-rw-r--r--
fortune.elc	8.4 KB	-rw-r--r--
gamegrid.elc	14.69 KB	-rw-r--r--
gametree.elc	18.55 KB	-rw-r--r--
gomoku.elc	27.57 KB	-rw-r--r--
handwrite.elc	59.95 KB	-rw-r--r--
hanoi.elc	9.95 KB	-rw-r--r--
landmark.elc	37.69 KB	-rw-r--r--
life.elc	7.21 KB	-rw-r--r--
meese.elc	1.1 KB	-rw-r--r--
morse.elc	2.4 KB	-rw-r--r--
mpuz.elc	13.52 KB	-rw-r--r--
pong.elc	10.99 KB	-rw-r--r--
snake.elc	10.59 KB	-rw-r--r--
solitaire.elc	12.81 KB	-rw-r--r--
spook.elc	1.59 KB	-rw-r--r--
studly.elc	1.43 KB	-rw-r--r--
yow.elc	3.25 KB	-rw-r--r--
zone.elc	15.12 KB	-rw-r--r--

Code Editor : life.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:58 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/play/life.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`life.el' was compiled for Emacs 19.29 or later"))

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

#@61 Vector of rectangles containing some Life startup patterns.
(defvar life-patterns [("@@@" " @@" "@@@") ("@@@ @@@" "@@  @@ " "@@@ @@@") ("@@@ @@@" "@@   @@" "@@@ @@@") ("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@") ("@@@@@@@@@@") ("   @@@@@@@@@@       " "     @@@@@@@@@@     " "       @@@@@@@@@@   " "@@@@@@@@@@          " "@@@@@@@@@@          ") ("@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@") ("@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @") ("@@               " " @@              " "  @@             " "   @@            " "    @@           " "     @@          " "      @@         " "       @@        " "        @@       " "         @@      " "          @@     " "           @@    " "            @@   " "             @@  " "              @@ " "               @@") ("@@@@@@@@@" "@   @   @" "@ @@@@@ @" "@ @   @ @" "@@@   @@@" "@ @   @ @" "@ @@@@@ @" "@   @   @" "@@@@@@@@@") ("                        @           " "                      @ @           " "            @@      @@            @@" "           @   @    @@            @@" "@@        @     @   @@              " "@@        @   @ @@    @ @           " "          @     @       @           " "           @   @                    " "            @@                      ") ("      @ " "    @ @@" "    @ @ " "    @   " "  @     " "@ @     ") ("@@@ @" "@    " "   @@" " @@ @" "@ @ @") ("@@@@@@@@ @@@@@   @@@      @@@@@@@ @@@@@")] (#$ . 604))
(defalias 'life-life-char '(macro . #[nil "\300\207" [64] 1]))
(defalias 'life-death-char '(macro . #[nil "\300\207" [65] 1]))
(defalias 'life-birth-char '(macro . #[nil "\300\207" [3] 1]))
(defalias 'life-void-char '(macro . #[nil "\300\207" [32] 1]))
(defalias 'life-life-string '(macro . #[nil "\300\301!\207" [char-to-string 64] 2]))
(defalias 'life-death-string '(macro . #[nil "\300\301!\207" [char-to-string 65] 2]))
(defalias 'life-birth-string '(macro . #[nil "\300\301!\207" [char-to-string 3] 2]))
(defalias 'life-void-string '(macro . #[nil "\300\301!\207" [char-to-string 32] 2]))
(defalias 'life-not-void-regexp '(macro . #[nil "\300\207" ["[^ \n]"] 1]))
(defalias 'life-increment '(macro . #[(variable) "\301\302DE\207" [variable setq 1+] 4]))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\304\"\210\304\207" [current-load-list life-neighbor-deltas default-boundp set-default nil life-window-start life-current-generation life-generation-string] 3)
#@47 Non-nil if `life' has been run at least once.
(defvar life-initialized nil (#$ . 3343))
#@206 Run Conway's Life simulation.
The starting pattern is randomly selected.  Prefix arg (optional first
arg non-nil from a program) is the number of seconds to sleep between
generations (this defaults to 1).
(defalias 'life #[(&optional sleeptime) "\204�\302\303!\210\303	\204�\304\305 \210\306\307\215\207" [life-initialized sleeptime random t 1 life-setup life-exit (byte-code "\302\303	!\210\304 \210\305 \210\306 \210)\202��" [inhibit-quit sleeptime t life-display-generation life-grim-reaper life-expand-plane-if-needed life-increment-generation] 2)] 2 (#$ . 3438) "p"])
(byte-code "\300\301\302\"\210\303\301\304\305#\207" [defalias life-mode life put mode-class special] 4)
(defalias 'life-setup #[nil "\306\307\310\311!\312\"\210\313 \210\314 \210\306\315\316\312\306\317\"\320#\321$\322 S%\323&\324p!\210\325 \210eb\210\326\327\306\312#\203E�\330\331\312\211#\210\2024�eb\210%\212\306\210`)Z\332\245m\204a�j\210\306y\210\202T�\333 S\334ed\"Z\332\245eb\210\335!\210db\210\335!\210eb\210m\204\232�\306\210%j\210\336%!\210`\306\210`|\210\306y\210\202}�\337ed\"\210\340 \210\341 )\207" [n case-fold-search mode-name major-mode truncate-lines show-trailing-whitespace nil switch-to-buffer get-buffer-create "*Life*" t erase-buffer kill-all-local-variables "Life" life-mode 0 "0" ("Life: generation " life-generation-string) window-width 1 buffer-disable-undo life-insert-random-pattern re-search-forward "[^ \n]" replace-match "@" 2 window-height count-lines newline move-to-column untabify life-expand-plane-if-needed life-compute-neighbor-deltas life-current-generation life-generation-string mode-line-buffer-identification fill-column life-window-start] 4])
(defalias 'life-compute-neighbor-deltas #[nil "\302[T[\303\\[\304\211T\303\\\257\211\207" [fill-column life-neighbor-deltas -1 2 1] 9])
(defalias 'life-insert-random-pattern #[nil "\301\302G!\234!\210\303c\207" [life-patterns insert-rectangle random 10] 4])
(defalias 'life-increment-generation #[nil "T\302!\211\207" [life-current-generation life-generation-string int-to-string] 2])
(defalias 'life-grim-reaper #[nil "\306\307!\210eb\210\307\211\211\211\211\310\311\307\312#\203\205�
\313`S\203s�\n@\\\211f\211\314=\203>�\315\f\211T\314\316\312%\210\202l�\317W\203Q�\315\f\211T\211T\312%\210\202l�\320W\203c�\315\f\211T\320\312%\210\202l�\321Y\203l�	TA\211\204$�	\322>\204�\315\n\211T\321\323\312%\210\202�-\313\224\204\216�\324 \210\315\316d\320\314\312%\210\315\316d\316\314\312%\210\315\316d\325\314\312%\210\315\316d\317\321\312%\210\315\316d\323\314\312%\207" [list living-neighbors pivot char point life-neighbor-deltas set-match-data nil search-forward "@" t 0 32 subst-char-in-region 1 3 9 64 (2 3) 65 life-extinct-quit 2] 7])
(defalias 'life-expand-plane-if-needed #[nil "\302\303\215\210eb\210\304\305\306`\211\307$\310#\203-�eb\210\311\312\"\210\313c\210\311\312\"\210\313c\210\306	\314#db\210\315\305\316`\211\307$\310#\205W�db\210\311\312\"\210\313c\210\311\312\"\210\313c\210\306	\314#\211\207" [fill-column life-window-start done (byte-code "eb\210m\204B�g\301=\204�\302\210h\301=\203<�eb\210m\204,�\303c\210\302\210\303c\210\302u\210\202�\304\\\305\306!\210\307 \210\310\311\312\"\210\302y\210\202�\302\207" [fill-column 64 nil 32 2 scroll-left 1 life-compute-neighbor-deltas throw done t] 3) search-forward "@" + 2 t insert-char 32 10 1 search-backward -] 7])
(defalias 'life-display-generation #[(sleeptime) "b\210\302\303!\210\304	!\203�\303	W\206�\305 ?\206�\306\307\310\"\207" [life-window-start sleeptime recenter 0 sit-for input-pending-p throw life-exit nil] 3])
(defalias 'life-extinct-quit #[nil "\300\301!\210\302\303\304\"\207" [life-display-generation 0 signal life-extinct nil] 3])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307!\207" [put life-extinct error-conditions (life-extinct quit) error-message "All life has perished" provide life] 4)

${this.title}

Code Editor : life.elc