*** no comment ***

1 files changed, 19 insertions, 1 deletions

diff --git a/chess-pos.el b/chess-pos.el
index 915e5b9..d6aa178 100644
--- a/chess-pos.el
+++ b/chess-pos.el
@@ -213,7 +213,7 @@ If PIECE-OR-COLOR is t for white or nil for black, any piece of that
 color will do."
   (let ((p (chess-pos-piece position index)))
     (cond
-     ((= p ? ) (= p piece-or-color))
+     ((= p ? ) (eq p piece-or-color))
      ((eq piece-or-color t) (< p ?a))
      ((eq piece-or-color nil) (> p ?a))
      (t (= p piece-or-color)))))
@@ -228,6 +228,24 @@ color will do."
 	  (push i found)))
     found))
 
+(defconst chess-pos-piece-values
+  '((?p . 1)
+    (?n . 3)
+    (?b . 3)
+    (?q . 9)
+    (?r . 5)
+    (?k . 0)))
+
+(defun chess-pos-material-value (position color)
+  "Return the aggregate material value in POSITION for COLOR."
+  (let ((pieces (chess-pos-search position color))
+	(value 0))
+    (dolist (index pieces)
+      (setq value
+	    (+ value (cdr (assq (downcase (chess-pos-piece position index))
+				chess-pos-piece-values)))))
+    value))
+
 (defun chess-pos-move (position &rest changes)
   "Move a piece on the POSITION directly, using the indices FROM and TO.
 This function does not check any rules, it only makes sure you are not