diff options
| author | Mario Lang <mlang@delysid.org> | 2014-05-20 03:25:59 +0200 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-05-20 03:25:59 +0200 |
| commit | 8f0f2044b5445722aff29a0c58461a794564f13a (patch) | |
| tree | 0b2a8af14062b02a16e439125c8738cbcea67765 /chess-network.el | |
| parent | 940fce2ade6a25bf4462330f2feea8ef5a39906f (diff) | |
Eliminate the circular dependency between chess-pos and chess-fen.
We remove functions chess-pos-to-string and chess-pos-from-string which
are really just aliases for chess-fen-to-pos and chess-pos-to-fen.
Diffstat (limited to 'chess-network.el')
| -rw-r--r-- | chess-network.el | 29 |
1 files changed, 24 insertions, 5 deletions
diff --git a/chess-network.el b/chess-network.el index efc9d28..6de3978 100644 --- a/chess-network.el +++ b/chess-network.el @@ -1,9 +1,28 @@ -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; Play against an opponent over the network -;; +;;; chess-network.el --- Play against an opponent over the network + +;; Copyright (C) 2002, 2003, 2008 Free Software Foundation, Inc. + +;; Author: John Wiegley <johnw@gnu.org> +;; Maintainer: Mario Lang <mlang@delysid.org> +;; Keywords: games + +;; This program 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 program 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 this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Code: (require 'chess-common) +(require 'chess-fen) (defvar chess-network-regexp-alist (list @@ -140,7 +159,7 @@ ((eq event 'setup-pos) (chess-engine-send nil (format "fen %s\n" - (chess-pos-to-string (car args))))) + (chess-pos-to-fen (car args))))) ((eq event 'setup-game) (chess-engine-send nil (format "pgn %s\n" |
