[elisp] tetrisのソースを読む
現在emacs標準？でついているテトリスのソースを読んでいます。行数は653行と少なめで読みやすいです。
プログラムの構成も全体的にシンプルで美しい感じがするものとなっていました。
というわけで、読んでるうちに少しメモった内容について書いてみます
始めに外部プログラムのインクルードをします.clはelispプログラムの各種マクロをまとめたファイル。gamegridはゲーム作成用のテンプレートのようなものだと思います。
;;; Code: (eval-when-compile (require 'cl)) (require 'gamegrid)
次に各種変数の登録。elispプログラムの定石として、defgroup→defcustom→defvar=defconstといった流れで変数の登録をしております。
ちょっと間違った見解かもしれないですけど、def~の意味は以下のようになっています。（まぁC-h fで各種関数の意味は、一通り見ているのですが、どうも理解できてない部分があるので(ﾉ∀｀))
defgroupでグループの作成を行う。
defcustomはdefgroupにぶら下がっている変数。ただしオプションつき.
defvarは変数。defconstは定数となっています。
具体的には以下のような感じで登録されています。これはカスタマイズ変数
;; ;;;;;;;;;;;;; customization variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defgroup tetris nil "Play a game of tetris." :prefix "tetris-" :group 'games) (defcustom tetris-use-glyphs t "*Non-nil means use glyphs when available." :group 'tetris :type 'boolean) (defvar tetris-next-x (+ (* 2 tetris-top-left-x) tetris-width) "X position of next shape.") (defvar tetris-next-y tetris-top-left-y "Y position of next shape.")
次にdisplay optionについてのコーディングをしてるのですが、ここら辺のソースの意味はよくわかりませんでした(ﾉ∀｀)たぶんgamegridが関係してくるのだとは思うのですが..
(defvar tetris-blank-options '(((glyph colorize) (t ?\040)) ((color-x color-x) (mono-x grid-x) (color-tty color-tty)) (((glyph color-x) [0 0 0]) (color-tty "black")))) (defvar tetris-cell-options '(((glyph colorize) (emacs-tty ?O) (t ?\040)) ((color-x color-x) (mono-x mono-x) (color-tty color-tty) (mono-tty mono-tty))
そして定数の設定.
;; ;;;;;;;;;;;;; constants ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defconst tetris-shapes [[[[1 1 0 0] [1 1 0 0] [1 1 0 0] [1 1 0 0]] [[1 1 0 0] [1 1 0 0] [1 1 0 0] [1 1 0 0]] [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]] [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] [[[2 2 2 0] [0 2 0 0] [2 0 0 0] [2 2 0 0]] [[0 0 2 0] [0 2 0 0] [2 2 2 0] [2 0 0 0]] [[0 0 0 0] [2 2 0 0] [0 0 0 0] [2 0 0 0]] [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] [[[3 3 3 0] [3 3 0 0] [0 0 3 0] [3 0 0 0]] [[3 0 0 0] [0 3 0 0] [3 3 3 0] [3 0 0 0]] [[0 0 0 0] [0 3 0 0] [0 0 0 0] [3 3 0 0]] [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] [[[4 4 0 0] [0 4 0 0] [4 4 0 0] [0 4 0 0]] [[0 4 4 0] [4 4 0 0] [0 4 4 0] [4 4 0 0]] [[0 0 0 0] [4 0 0 0] [0 0 0 0] [4 0 0 0]] [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] [[[0 5 5 0] [5 0 0 0] [0 5 5 0] [5 0 0 0]] [[5 5 0 0] [5 5 0 0] [5 5 0 0] [5 5 0 0]] [[0 0 0 0] [0 5 0 0] [0 0 0 0] [0 5 0 0]] [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] [[[0 6 0 0] [6 0 0 0] [6 6 6 0] [0 6 0 0]] [[6 6 6 0] [6 6 0 0] [0 6 0 0] [6 6 0 0]] [[0 0 0 0] [6 0 0 0] [0 0 0 0] [0 6 0 0]] [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] [[[7 7 7 7] [7 0 0 0] [7 7 7 7] [7 0 0 0]] [[0 0 0 0] [7 0 0 0] [0 0 0 0] [7 0 0 0]] [[0 0 0 0] [7 0 0 0] [0 0 0 0] [7 0 0 0]] [[0 0 0 0] [7 0 0 0] [0 0 0 0] [7 0 0 0]]]])
んで、変数の設定。ここでの変数は主にテトリスの形状とか位置とかに関わる部分で、実際のプログラムを実行する際にバリバリと値が変わっていきます。 バリバリ変わるというわけでローカルバッファとしての設定もなされます(´・ω・｀)
;; ;;;;;;;;;;;;; variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar tetris-shape 0) (defvar tetris-rot 0) (defvar tetris-next-shape 0) (defvar tetris-n-shapes 0) (defvar tetris-n-rows 0) (defvar tetris-score 0) (defvar tetris-pos-x 0) (defvar tetris-pos-y 0) (defvar tetris-paused nil) (make-variable-buffer-local 'tetris-shape) (make-variable-buffer-local 'tetris-rot) (make-variable-buffer-local 'tetris-next-shape) (make-variable-buffer-local 'tetris-n-shapes) (make-variable-buffer-local 'tetris-n-rows) (make-variable-buffer-local 'tetris-score) (make-variable-buffer-local 'tetris-pos-x) (make-variable-buffer-local 'tetris-pos-y) (make-variable-buffer-local 'tetris-paused)
そして、キーマップ設定をします。ここでtetris-mode固有のキーバインディング設定がなされます
;; ;;;;;;;;;;;;; keymaps ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar tetris-mode-map (make-sparse-keymap 'tetris-mode-map)) (define-key tetris-mode-map "" 'tetris-start-game) (define-key tetris-mode-map "q" 'tetris-end-game) (define-key tetris-mode-map "p" 'tetris-pause-game) (define-key tetris-mode-map "b" 'tetris-move-bottom) (define-key tetris-mode-map [left] 'tetris-move-left) (define-key tetris-mode-map [right] 'tetris-move-right) (define-key tetris-mode-map [up] 'tetris-rotate-prev) (define-key tetris-mode-map [down] 'tetris-rotate-next) (defvar tetris-null-map (make-sparse-keymap 'tetris-null-map)) (define-key tetris-null-map "n" 'tetris-start-game)
そして各種関数のコーディングをしていきます..
;; ;;;;;;;;;;;;;;;; game functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun tetris-display-options () (let ((options (make-vector 256 nil))) (loop for c from 0 to 255 do (aset options c (cond ((= c tetris-blank) tetris-blank-options) ((and (>= c 1) (<= c 7)) (append tetris-cell-options `((((glyph color-x) ,(aref tetris-x-colors c)) (color-tty ,(aref tetris-tty-colors c)) (t nil))))) ((= c tetris-border) tetris-border-options) ((= c tetris-space) tetris-space-options) (t '(nil nil nil))))) options))
で、各種関数のコーディングが終わったらautoloadとprovideに関する部分の処理内容が出てきます。
;;;###autoload (defun tetris () "Play the Tetris game. Shapes drop from the top of the screen, and the user has to move and rotate the shape to fit in with those at the bottom of the screen so as to form complete rows. tetris-mode keybindings: \\<tetris-mode-map> \\[tetris-start-game] Starts a new game of Tetris \\[tetris-end-game] Terminates the current game \\[tetris-pause-game] Pauses (or resumes) the current game \\[tetris-move-left] Moves the shape one square to the left \\[tetris-move-right] Moves the shape one square to the right \\[tetris-rotate-prev] Rotates the shape clockwise \\[tetris-rotate-next] Rotates the shape anticlockwise \\[tetris-move-bottom] Drops the shape to the bottom of the playing area " (interactive) (switch-to-buffer tetris-buffer-name) (gamegrid-kill-timer) (tetris-mode) (tetris-start-game)) (provide 'tetris) ;;; arch-tag: fb780d53-3ff0-49f0-8e19-f7f13cf2d49e ;;; tetris.el ends here
とりあえずプログラムの流れはこんな感じになっていると思います。elispプログラムは個人的に、あまりなじみのあるものものではなかったので、どのように作られているかについてもあまり知識は無かったのですが、ある種の「型」があるということが分かりました。（未だprovideの役割とかよくわかってないけど(ﾉ∀｀)）
今回は、俯瞰的にソースを見ていったので今度は個別にターゲットを絞ってソースをみていこうと思います。(｀・ω・´)
