[elpa] 97/255: once again passing most tests

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 74bb083ecab87539cae6b4d6003cd298a213cc27
Author: Eric Schulte <address@hidden>
Date:   Sat May 26 16:17:43 2012 -0600

    once again passing most tests
---
 go-gtp.el   |    2 +-
 go-sgf.el   |    4 ++--
 go-tests.el |   20 ++++++++++----------
 go-trans.el |   32 ++++++++++++++++----------------
 sgf2el.el   |    2 +-
 5 files changed, 30 insertions(+), 30 deletions(-)

diff --git a/go-gtp.el b/go-gtp.el
index 93576d1..aead8c4 100644
--- a/go-gtp.el
+++ b/go-gtp.el
@@ -54,7 +54,7 @@
      (t         (+ ?A num)))))
 
 (defun go-pos-to-gtp (pos)
-  (format "%c%d" (num-to-char (1+ (car pos))) (1+ (cdr pos))))
+  (format "%c%d" (go-gtp-num-to-char (1+ (car pos))) (1+ (cdr pos))))
 
 (defun go-gtp-to-pos (color gtp)
   (cons color (cons :pos (cons (go-gtp-char-to-num (aref gtp 0))
diff --git a/go-sgf.el b/go-sgf.el
index 05bf63a..fc4975d 100644
--- a/go-sgf.el
+++ b/go-sgf.el
@@ -63,10 +63,10 @@
   "Class for the SGF back end.")
 
 (defmethod current ((sgf sgf))
-  (sgf-ref (self sgf) (index sgf)))
+  (go-sgf-ref (self sgf) (index sgf)))
 
 (defmethod root ((sgf sgf))
-  (sgf-ref (self sgf) '(0)))
+  (go-sgf-ref (self sgf) '(0)))
 
 (defmethod go->move ((sgf sgf) move))
 
diff --git a/go-tests.el b/go-tests.el
index e657fef..eca67e1 100644
--- a/go-tests.el
+++ b/go-tests.el
@@ -27,11 +27,11 @@
 
 ;;; Code:
 (require 'go-util)
-(require 'go2el)
+(require 'sgf2el)
 (require 'go-board)
 (require 'go-gtp)
 (require 'go-gnugo)
-(require 'go)
+(require 'go-sgf)
 (require 'ert)
 
 
@@ -154,14 +154,14 @@
 
 ;;; GTP and gnugo tests
 (ert-deftest go-test-go-gtp-char-to-gtp ()
-  (should (= 1  (go-gtp-char-to-num ?A)))
-  (should (= 8  (go-gtp-char-to-num ?H)))
-  (should (= 9  (go-gtp-char-to-num ?J)))
-  (should (= 19 (go-gtp-char-to-num ?T)))
-  (should (= 1  (go-gtp-char-to-num ?a)))
-  (should (= 8  (go-gtp-char-to-num ?h)))
-  (should (= 9  (go-gtp-char-to-num ?j)))
-  (should (= 19 (go-gtp-char-to-num ?t))))
+  (should (= 0  (go-gtp-char-to-num ?A)))
+  (should (= 7  (go-gtp-char-to-num ?H)))
+  (should (= 8  (go-gtp-char-to-num ?J)))
+  (should (= 18 (go-gtp-char-to-num ?T)))
+  (should (= 0  (go-gtp-char-to-num ?a)))
+  (should (= 7  (go-gtp-char-to-num ?h)))
+  (should (= 8  (go-gtp-char-to-num ?j)))
+  (should (= 18 (go-gtp-char-to-num ?t))))
 
 (defmacro with-gnugo (&rest body)
   `(let (*gnugo*)
diff --git a/go-trans.el b/go-trans.el
index 14689ac..b08d50d 100644
--- a/go-trans.el
+++ b/go-trans.el
@@ -1,4 +1,4 @@
-;;; sgf-trans.el --- Translate and transfer between GO back ends
+;;; go-trans.el --- Translate and transfer between GO back ends
 
 ;; Copyright (C) 2012 Eric Schulte <address@hidden>
 
@@ -34,20 +34,20 @@
 ;; - the IGS protocol
 
 ;;; Code:
-(require 'sgf-util)
+(require 'go-util)
 (require 'eieio)
 
-(defgeneric sgf->move    (back-end move)    "Send MOVE to BACK-END.")
-(defgeneric sgf->board   (back-end size)    "Send SIZE to BACK-END.")
-(defgeneric sgf->resign  (back-end resign)  "Send RESIGN to BACK-END.")
-(defgeneric sgf->undo    (back-end)         "Tell BACK-END undo the last 
move.")
-(defgeneric sgf->comment (back-end comment) "Send COMMENT to BACK-END.")
-(defgeneric sgf->reset   (back-end)         "Reset the current BACK-END.")
-(defgeneric sgf<-size    (back-end)         "Get size from BACK-END")
-(defgeneric sgf<-name    (back-end)         "Get a game name from BACK-END.")
-(defgeneric sgf<-alt     (back-end)         "Get an alternative from 
BACK-END.")
-(defgeneric sgf<-move    (back-end color)   "Get a pos from BACK-END.")
-(defgeneric sgf<-turn    (back-end color)   "Get a full turn from BACK-END.")
-(defgeneric sgf<-comment (back-end)         "Get COMMENT from BACK-END.")
-
-(provide 'sgf-trans)
+(defgeneric go->move    (back-end move)    "Send MOVE to BACK-END.")
+(defgeneric go->board   (back-end size)    "Send SIZE to BACK-END.")
+(defgeneric go->resign  (back-end resign)  "Send RESIGN to BACK-END.")
+(defgeneric go->undo    (back-end)         "Tell BACK-END undo the last move.")
+(defgeneric go->comment (back-end comment) "Send COMMENT to BACK-END.")
+(defgeneric go->reset   (back-end)         "Reset the current BACK-END.")
+(defgeneric go<-size    (back-end)         "Get size from BACK-END")
+(defgeneric go<-name    (back-end)         "Get a game name from BACK-END.")
+(defgeneric go<-alt     (back-end)         "Get an alternative from BACK-END.")
+(defgeneric go<-move    (back-end color)   "Get a pos from BACK-END.")
+(defgeneric go<-turn    (back-end color)   "Get a full turn from BACK-END.")
+(defgeneric go<-comment (back-end)         "Get COMMENT from BACK-END.")
+
+(provide 'go-trans)
diff --git a/sgf2el.el b/sgf2el.el
index f3012fa..b18bd0f 100644
--- a/sgf2el.el
+++ b/sgf2el.el
@@ -26,7 +26,7 @@
 ;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
-(require 'sgf-util)
+(require 'go-util)
 
 (defvar prop-re
   "\\([[:alpha:]]+\\)\\(\\(\\[\\]\\|[[:space:]]*\\[[^\000]*?[^\\]\\]\\)+\\)")