[elpa] 249/255: adding `go-dead' to the API

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit ec341609addd29bc6ee97e347adab7bfb427973a
Author: Eric Schulte <address@hidden>
Date:   Sat Aug 24 17:02:49 2013 -0600

    adding `go-dead' to the API
---
 back-ends/gnugo.el |    7 +++++++
 back-ends/gtp.el   |    3 +++
 back-ends/igs.el   |    3 +++
 back-ends/sgf.el   |    3 +++
 go-api.el          |    1 +
 5 files changed, 17 insertions(+), 0 deletions(-)

diff --git a/back-ends/gnugo.el b/back-ends/gnugo.el
index 7feefcc..2a60773 100644
--- a/back-ends/gnugo.el
+++ b/back-ends/gnugo.el
@@ -107,4 +107,11 @@ For example, the following changes the level of gnugo.
 (defmethod set-player-name ((gnugo gnugo) color name)
   (signal 'unsupported-back-end-command (list gnugo :set-player-name name)))
 
+(defmethod go-dead ((gnugo gnugo))
+  (mapcar (lambda (gtp-point) (gtp-to-pos nil gtp-point))
+          (mapcar #'symbol-name
+                  (read (format "(%s)"
+                                (gnugo-command-to-string
+                                 gnugo "final_status_list dead"))))))
+
 (provide 'gnugo)
diff --git a/back-ends/gtp.el b/back-ends/gtp.el
index daeb3f0..7fc8f2a 100644
--- a/back-ends/gtp.el
+++ b/back-ends/gtp.el
@@ -162,4 +162,7 @@
 (defmethod go-territory ((gtp gtp))
   (append (gtp-territory gtp :B) (gtp-territory gtp :W)))
 
+(defmethod go-dead ((gtp gtp))
+  (signal 'unsupported-back-end-command (list gtp :dead)))
+
 (provide 'gtp)
diff --git a/back-ends/igs.el b/back-ends/igs.el
index 88cccce..b0dca97 100644
--- a/back-ends/igs.el
+++ b/back-ends/igs.el
@@ -226,6 +226,9 @@ This is used to re-send messages to keep the IGS server 
from timing out.")
 (defmethod go-territory ((igs igs))
   (signal 'unsupported-back-end-command (list igs :territory)))
 
+(defmethod go-dead ((igs igs))
+  (signal 'unsupported-back-end-command (list igs :dead)))
+
 (defmacro igs-w-proc (proc &rest body)
   (declare (indent 1))
   `(with-current-buffer (process-buffer proc) ,@body))
diff --git a/back-ends/sgf.el b/back-ends/sgf.el
index 6048dc3..aa1b838 100644
--- a/back-ends/sgf.el
+++ b/back-ends/sgf.el
@@ -194,4 +194,7 @@
 (defmethod go-territory ((sgf sgf))
   (signal 'unsupported-back-end-command (list sgf :territory)))
 
+(defmethod go-dead ((sgf sgf))
+  (signal 'unsupported-back-end-command (list sgf :dead)))
+
 (provide 'sgf)
diff --git a/go-api.el b/go-api.el
index 45908c4..f62af72 100644
--- a/go-api.el
+++ b/go-api.el
@@ -77,5 +77,6 @@
 (defgeneric go-quit   (back-end) "Quit the BACK-END.")
 (defgeneric go-score  (back-end) "Ask BACK-END to report the score.")
 (defgeneric go-territory (back-end) "Ask BACK-END to report the territory.")
+(defgeneric go-dead (back-end) "Ask BACK-END to dead stones.")
 
 (provide 'go-api)