;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Mon Aug 2 00:42:02 1993 ;;; from file /home/fsf/rms/e19/lisp/life.el ;;; emacs version 19.17.5. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defconst life-patterns [("@@@" " @@" "@@@") ("@@@ @@@" "@@ @@ " "@@@ @@@") ("@@@ @@@" "@@ @@" "@@@ @@@") ("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@") ("@@@@@@@@@@") (" @@@@@@@@@@ " " @@@@@@@@@@ " " @@@@@@@@@@ " "@@@@@@@@@@ " "@@@@@@@@@@ ") ("@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@" "@") ("@ @" "@ @" "@ @" "@ @" "@ @" "@ @" "@ @" "@ @" "@ @" "@ @" "@ @" "@ @" "@ @" "@ @" "@ @") ("@@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@ " " @@") ("@@@@@@@@@" "@ @ @" "@ @@@@@ @" "@ @ @ @" "@@@ @@@" "@ @ @ @" "@ @@@@@ @" "@ @ @" "@@@@@@@@@")] "\ Vector of rectangles containing some Life startup patterns.") (byte-code "ﾀﾁﾂ\"安ﾃﾄ\"安ﾅﾆ\"安ﾇﾈ\"安ﾉﾊ\"安ﾋﾌ\"安ﾍﾎ\"安ﾏﾐ\"安ﾑﾒ\"安ﾓﾔ\"安ﾕﾖ\"安ﾗﾘ\"安ﾙﾚ\"維ﾛﾛﾛﾀ珮\"" [defalias life-life-char (macro lambda nil 64) life-death-char (macro lambda nil 65) life-birth-char (macro lambda nil 3) life-void-char (macro lambda nil 32) life-life-string (macro . #[nil "ﾀﾁ!" [char-to-string 64] 2]) life-death-string (macro . #[nil "ﾀﾁ!" [char-to-string 65] 2]) life-birth-string (macro . #[nil "ﾀﾁ!" [char-to-string 3] 2]) life-void-string (macro . #[nil "ﾀﾁ!" [char-to-string 32] 2]) life-not-void-regexp (macro . #[nil "ﾀﾁﾂQ" ["[^" " " "\n]"] 3]) goto-beginning-of-buffer (macro . #[nil "ﾀ" [(goto-char 1)] 1]) maxint (macro . #[nil "ﾀ加ﾂ\"ﾁ\"" [lsh -1 1] 4]) goto-end-of-buffer (macro . #[nil "ﾀ" [(goto-char (maxint))] 1]) increment (macro . #[(variable) "ﾀ ﾂ DE" [setq variable 1+] 4]) nil life-neighbor-deltas life-window-start life-current-generation life-generation-string abs #[(n) "ﾁW [" [n 0] 2]] 3) (defalias 'life #[(&optional sleeptime) "ﾁﾂ 暗!案ﾅ合" [sleeptime 1 life-setup life-display-generation life-exit (byte-code "ﾀﾂ 暗 案 闇!)" [t inhibit-quit life-grim-reaper life-expand-plane-if-needed life-increment-generation life-display-generation sleeptime] 2)] 2 "\ 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)." "p"]) (byte-code "ﾀﾁﾂ\"暗ﾁﾄﾅ#鞍ﾇ!安ﾈﾉ\"安ﾊﾋ\"安ﾌﾍ\"安ﾎﾏ\"安ﾐﾑ\"安ﾒﾓ\"安ﾔﾕ\"安ﾖﾗ\"暗ﾘﾙﾚ#暗ﾘﾛﾜ#胃ﾂ!" [defalias life-mode life put mode-class special random t life-setup #[nil "ﾀﾂﾃﾄ!ﾅ\"鞍 杏 安ﾉ\nﾋ ﾅ ﾎﾐﾒﾔ Sﾖﾘp!異 椅b移ﾛﾀﾅ#エﾜﾝﾅ#6ﾖb澗`)Zﾞ･mc j安y７ﾟ S瀑d\"Zﾞ･ﾖb違 !遺b違 !椅bmﾀj医!`ﾀ`|安y臚d\"亥 域 )" [nil n switch-to-buffer get-buffer-create "*Life*" t erase-buffer kill-all-local-variables case-fold-search "Life" mode-name life-mode major-mode truncate-lines 0 life-current-generation "0" life-generation-string ("Life: generation " life-generation-string) mode-line-buffer-identification window-width fill-column 1 life-window-start buffer-disable-undo life-insert-random-pattern re-search-forward "[^ \n]" replace-match "@" 2 window-height count-lines newline 8388607 move-to-column untabify life-expand-plane-if-needed life-compute-neighbor-deltas] 4] life-compute-neighbor-deltas #[nil "ﾀ [ T[ ﾂ\\[ﾃ 欝 ﾂ\\ｯ" [-1 fill-column 2 1 life-neighbor-deltas] 9] life-insert-random-pattern #[nil "ﾀ ﾂ G!!暗c" [insert-rectangle life-patterns random 10] 4] life-increment-generation #[nil "Tﾁ!" [life-current-generation int-to-string life-generation-string] 2] life-grim-reaper #[nil "ﾀﾁ!按b庵演演ﾈﾉﾁﾊ#ヲ ﾌ`S ム @\\fﾍ=ゥﾎ欝ﾍﾂﾊ%ＺﾏWセﾎ欝欝ﾊ%ＺﾐWバﾎ欝ﾐﾊ%ＺﾑYペ T A' ﾒ>ﾎ 欝ﾑﾓﾊ%-ﾌ売ﾔ 夷ﾂdﾐﾍﾊ%夷ﾂdﾂﾍﾊ%夷ﾂdﾕﾍﾊ%夷ﾂdﾏﾑﾊ%夷ﾂdﾓﾍﾊ%" [store-match-data nil 1 list living-neighbors pivot char point search-forward "@" t life-neighbor-deltas 0 32 subst-char-in-region 3 9 64 (2 3) 65 life-extinct-quit 2] 7] life-expand-plane-if-needed #[nil "ﾀﾁ壕ﾂb暗ﾄ` 家\\\\\\ﾇ#0ﾂb以ﾉ \"位c以ﾉ \"位c ﾂ\\\\ ﾌb囲ﾄ` Z ZﾆZﾇ#]ﾌb以ﾉ \"位c以ﾉ \"位c ﾂ\\\\ " [done (byte-code "ﾀbmВgﾁ=ﾂhﾁ=<ﾀbm,ﾃc按暗c按u ﾅ\\ﾆﾀ!杏 以ﾉﾊ\"按yﾂ" [1 64 nil 32 fill-column 2 scroll-left life-compute-neighbor-deltas throw done t] 3) 1 search-forward "@" fill-column 2 t insert-char 32 10 life-window-start 8388607 search-backward] 6] life-display-generation #[(sleeptime) "b庵ﾂ!暗 !ﾅ=ﾆﾇﾈ\"" [life-window-start recenter 0 sit-for sleeptime t throw life-exit nil] 3] life-extinct-quit #[nil "ﾀﾁ!按ﾃﾄ\"" [life-display-generation 0 signal life-extinct nil] 3] life-extinct error-conditions (life-extinct quit) error-message "All life has perished" provide] 4)