;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:36 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/life.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.

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


#@61 Vector of rectangles containing some Life startup patterns.
(defvar life-patterns [("@@@" " @@" "@@@") ("@@@ @@@" "@@  @@ " "@@@ @@@") ("@@@ @@@" "@@   @@" "@@@ @@@") ("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@") ("@@@@@@@@@@") ("   @@@@@@@@@@       " "     @@@@@@@@@@     " "       @@@@@@@@@@   " "@@@@@@@@@@          " "@@@@@@@@@@          ") ("@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@") ("@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @" "@               @") ("@@               " " @@              " "  @@             " "   @@            " "    @@           " "     @@          " "      @@         " "       @@        " "        @@       " "         @@      " "          @@     " "           @@    " "            @@   " "             @@  " "              @@ " "               @@") ("@@@@@@@@@" "@   @   @" "@ @@@@@ @" "@ @   @ @" "@@@   @@@" "@ @   @ @" "@ @@@@@ @" "@   @   @" "@@@@@@@@@") ("                        @           " "                      @ @           " "            @@      @@            @@" "           @   @    @@            @@" "@@        @     @   @@              " "@@        @   @ @@    @ @           " "          @     @       @           " "           @   @                    " "            @@                      ") ("      @ " "    @ @@" "    @ @ " "    @   " "  @     " "@ @     ") ("@@@ @" "@    " "   @@" " @@ @" "@ @ @") ("@@@@@@@@ @@@@@   @@@      @@@@@@@ @@@@@")] (#$ . 552))
(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]))
(defvar life-neighbor-deltas nil)
(defvar life-window-start nil)
(defvar life-current-generation nil)
(defvar life-generation-string nil)
#@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\301\302 \210\303\304\215\207" [sleeptime 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 (#$ . 3108) "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\2024eb\210&\332 Z\333\245m\204]j\210\306y\210\202P\334 S\335ed\"Z\333\245eb\210\336!\210db\210\336!\210eb\210m\204\226\306\210&j\210\337&!\210`\306\210`|\210\306y\210\202y\340ed\"\210\341 \210\342 )\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 "@" line-end-position 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#\205Wdb\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\204Bg\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)