[elpa] 24/255: right and left implemented but buggy

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 3385b62066edb35426aad815add3a73a3bdb6722
Author: Eric Schulte <address@hidden>
Date:   Tue May 15 19:50:49 2012 -0400

    right and left implemented but buggy
---
 sgf.el |   45 +++++++++++++++++++++++++++++----------------
 1 files changed, 29 insertions(+), 16 deletions(-)

diff --git a/sgf.el b/sgf.el
index 712b6fb..8fc0d79 100644
--- a/sgf.el
+++ b/sgf.el
@@ -303,28 +303,41 @@
     part))
 
 (defun up ())
+
 (defun down ())
-(defun left ())
+
+(defun left (&optional num)
+  (interactive "p")
+  (prog1 (dotimes (n num n)
+           (decf (car (last *index*)))
+           (unless (sgf-ref *sgf* *index*)
+             (update-display)
+             (error "sgf: no more backwards moves."))
+           (revert-moves *board* (sgf-ref *sgf* *index*)))
+    (update-display)))
+
 (defun right (&optional num)
   (interactive "p")
-  (incf (car (last *index*)) num)
-  (unless (sgf-ref *sgf* *index*)
-    (error "sgf: no more forward moves."))
-  (apply-move *board* (sgf-ref *sgf* *index*))
-  (update-display))
+  (prog1 (dotimes (n num n)
+           (incf (car (last *index*)))
+           (unless (sgf-ref *sgf* *index*)
+             (update-display)
+             (error "sgf: no more forward moves."))
+           (apply-moves *board* (sgf-ref *sgf* *index*)))
+    (update-display)))
 
 
 ;;; Board manipulation functions
-(defun apply-move (board move)
-  (setf (aref board (pos-to-index (cdr move) (board-size board)))
-        (cond ((string= "B" (car move)) :b)
-              ((string= "W" (car move)) :w)
-              (t (error "sgf: invalid move %s" (car move)))))
-  board)
+(defun apply-moves (board moves)
+  (dolist (move moves board)
+    (setf (aref board (pos-to-index (cdr move) (board-size board)))
+          (cond ((string= "B" (car move)) :b)
+                ((string= "W" (car move)) :w)
+                (t (error "sgf: invalid move %s" (car move)))))))
 
-(defun revert-move (board move)
-  (setf (aref board (pos-to-index (cdr move) (board-size board))) nil)
-  board)
+(defun revert-moves (board moves)
+  (dolist (move moves board)
+    (setf (aref board (pos-to-index (cdr move) (board-size board))) nil)))
 
 
 ;;; Tests
@@ -436,7 +449,7 @@
                          "  1 . . . . . . . . . . . . . . . . . . .  1\n"
                          "    A B C D E F G H J K L M N O P Q R S T")))
     (dolist (moves rest)
-      (apply-move board (car moves)))
+      (apply-moves board moves))
     (board-to-string board)
     (should t)))