88 lines
3.1 KiB
EmacsLisp
88 lines
3.1 KiB
EmacsLisp
|
;;; go.el --- Play GO, translate and transfer between GO back ends
|
||
|
|
|
||
|
|
;; Copyright (C) 2012 Free Software Foundation, Inc.
|
||
|
|
|
||
|
|
;; Author: Eric Schulte <schulte.eric@gmail.com>
|
||
|
|
;; Maintainer: Eric Schulte <schulte.eric@gmail.com>
|
||
|
|
;; Version: 0.0.1
|
||
|
|
;; Package-Requires: ((emacs "24"))
|
||
|
|
;; Created: 2012-05-15
|
||
|
|
;; Keywords: game go sgf
|
||
|
|
;; URL: http://eschulte.github.io/el-go/
|
||
|
|
|
||
|
|
;; This software is free software: you can redistribute it and/or modify
|
||
|
|
;; it under the terms of the GNU General Public License as published by
|
||
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
||
|
|
;; (at your option) any later version.
|
||
|
|
|
||
|
|
;; This software is distributed in the hope that it will be useful,
|
||
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
;; GNU General Public License for more details.
|
||
|
|
|
||
|
|
;; You should have received a copy of the GNU General Public License
|
||
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
|
||
|
|
;;; Commentary:
|
||
|
|
|
||
|
|
;; A board-based interface to GO games which may be connected to a
|
||
|
|
;; number of GO back-ends through a generic API. To play a game of GO
|
||
|
|
;; against the gnugo back-end run `play-go'. Current back-ends
|
||
|
|
;; include the following.
|
||
|
|
;; - the SGF format
|
||
|
|
;; - the Go Text Protocol (GTP)
|
||
|
|
;; - TODO: the IGS protocol
|
||
|
|
|
||
|
|
;;; Code:
|
||
|
|
(let ((load-path
|
||
|
|
(cons (file-name-directory (or load-file-name (buffer-file-name)))
|
||
|
|
load-path)))
|
||
|
|
(require 'go-util "go-util.el")
|
||
|
|
(require 'go-api "go-api.el")
|
||
|
|
(require 'go-board "go-board.el")
|
||
|
|
(require 'go-board-faces "go-board-faces.el")
|
||
|
|
(require 'gtp "back-ends/gtp.el")
|
||
|
|
(require 'gnugo "back-ends/gnugo.el")
|
||
|
|
(require 'sgf "back-ends/sgf.el")
|
||
|
|
(require 'sgf2el "back-ends/sgf2el.el")
|
||
|
|
(require 'igs "back-ends/igs.el")
|
||
|
|
(require 'gtp-pipe "back-ends/gtp-pipe.el"))
|
||
|
|
|
||
|
|
(defun go-instantiate (back-end)
|
||
|
|
(interactive)
|
||
|
|
;; TODO: read and set handicap.
|
||
|
|
(let ((it (make-instance back-end))
|
||
|
|
(size (read (go-completing-read
|
||
|
|
"board size: "
|
||
|
|
(mapcar #'number-to-string '(19 13 9))))))
|
||
|
|
(go-connect it)
|
||
|
|
(setf (go-size it) size)
|
||
|
|
it))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun go-play ()
|
||
|
|
"Play a game of GO."
|
||
|
|
(interactive)
|
||
|
|
(let ((back-end (case (intern (go-completing-read
|
||
|
|
"play against: " '("gnugo" "person")))
|
||
|
|
(gnugo (go-instantiate 'gnugo))
|
||
|
|
(person (go-instantiate 'sgf)))))
|
||
|
|
(with-current-buffer (apply #'go-board
|
||
|
|
(cons back-end
|
||
|
|
(unless (equal (class-of back-end) 'sgf)
|
||
|
|
(list (make-instance 'sgf)))))
|
||
|
|
(unless (equal (class-of back-end) 'sgf)
|
||
|
|
(setq *autoplay* t)))))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun go-view-sgf (&optional file)
|
||
|
|
"View an SGF file."
|
||
|
|
(interactive "fSGF file: ")
|
||
|
|
(let* ((sgf (make-instance 'sgf :self (sgf2el-file-to-el file) :index '(0)))
|
||
|
|
(buffer (go-board sgf)))
|
||
|
|
(with-current-buffer buffer
|
||
|
|
(setf (index *back-end*) (list 0)))))
|
||
|
|
|
||
|
|
(provide 'go)
|
||
|
|
;;; go.el ends here
|