From 3496c993573c1ab32f7c24419635b4156f8b3e22 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Fri, 9 Jan 2004 09:40:16 +0000 Subject: support (convert) opcodes sm and sv --- chess-epd.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'chess-epd.el') diff --git a/chess-epd.el b/chess-epd.el index 3122648..5c92903 100644 --- a/chess-epd.el +++ b/chess-epd.el @@ -41,7 +41,7 @@ ((eq opcode 'ce) (assert (integerp value)) (format "%S %d;" opcode value)) - ((eq opcode 'pv) + ((or (eq opcode 'pv) (eq opcode 'sv)) (format "%S %s;" opcode (chess-var-to-algebraic value))) (t @@ -105,9 +105,9 @@ and advance point after the correctly parsed position." (split-string val " "))) ((eq opcode 'ce) (read val)) - ((eq opcode 'pm) + ((or (eq opcode 'pm) (eq opcode 'sm)) ;predicted/supplied move (chess-ply-from-string pos val)) - ((eq opcode 'pv) ; predicted variation + ((or (eq opcode 'pv) (eq opcode 'sv)) ; predicted/supplied variation (let ((var (chess-var-create pos))) (mapc (lambda (ply) (chess-var-move var -- cgit v1.2.3