diff options
| author | Mario Lang <mlang@delysid.org> | 2004-01-09 09:40:16 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-01-09 09:40:16 +0000 |
| commit | 3496c993573c1ab32f7c24419635b4156f8b3e22 (patch) | |
| tree | 762c9066655cff3bf3cf203f49d9271fc4cfba53 | |
| parent | d33156db3228d6fc470b9dd71ee37bc8ad0e707c (diff) | |
support (convert) opcodes sm and sv
| -rw-r--r-- | chess-epd.el | 6 |
1 files changed, 3 insertions, 3 deletions
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 |