[elpa] 107/255: can now feed moves from gnugo through to sgf

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit d248fbe1d366a9f4918001ddb704d4dbab5063d2
Author: Eric Schulte <address@hidden>
Date:   Sun May 27 15:42:41 2012 -0600

    can now feed moves from gnugo through to sgf
---
 go-gtp.el |    5 +++--
 go-sgf.el |    5 +++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/go-gtp.el b/go-gtp.el
index 68d774f..d236c2a 100644
--- a/go-gtp.el
+++ b/go-gtp.el
@@ -125,8 +125,9 @@
   (signal 'unsupported-back-end-command (list gtp :set-alt alt)))
 
 (defmethod go-color ((gtp gtp))
-  (let ((last (split-string (gtp-command gtp "last_move"))))
-    (case (intern (car last)) ('white :B) ('black :W))))
+  (case (condition-case err
+            (intern (car (split-string (gtp-command gtp "last_move"))))
+          (error 'white)) ('white :B) ('black :W)))
 
 (defmethod set-go-color ((gtp gtp) color)
   (signal 'unsupported-back-end-command (list gtp :set-color color)))
diff --git a/go-sgf.el b/go-sgf.el
index ab632bd..de9691a 100644
--- a/go-sgf.el
+++ b/go-sgf.el
@@ -120,11 +120,12 @@
       (prev sgf)
       (error "sgf: no more moves"))))
 
+;; TODO: currently this only works with linear sgf files w/o alternatives
 (defmethod set-go-move ((sgf sgf) move)
+  (next sgf)
   (if (current sgf)
-      ;; TODO: this overwrites rather than saving alternatives
       (setf (current sgf) (list move))
-    (rpush (list move) (go-sgf-ref (self sgf) (butlast (index sgf))))))
+    (setf (self sgf) (rcons (list move) (self sgf)))))
 
 (defmethod go-labels ((sgf sgf))
   (let ((turn (current sgf)))