diff options
Diffstat (limited to 'chess-network.el')
| -rw-r--r-- | chess-network.el | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/chess-network.el b/chess-network.el index b2d9f01..aed1851 100644 --- a/chess-network.el +++ b/chess-network.el @@ -11,28 +11,28 @@ (defvar chess-network-now-moving nil) (defvar chess-network-regexp-alist - (list (cons (concat "\\(Black\\|White\\):\\s-*" - chess-algebraic-regexp "\\s-+") + (list (cons (concat "<move color=\"\\(black\\|white\\)\">" + chess-algebraic-regexp "</move>") 'chess-network-perform-move) - (cons "PASS" + (cons "<pass/>" (function (lambda () (message "Your opponent has passed the move to you")))) - (cons "CONNECT\\s-+\\(.*\\)" + (cons "<connect name=\"\\(.*\\)\"/>" (function (lambda () ;; jww (2002-04-07): Set the appropriate Black or ;; White tag at this point (message "Your opponent, %s, has connected" (match-string 1))))) - (cons "SETBOARD\\s-+\\(.*\\)" + (cons "<setup fen=\"\\(.*\\)\"/>" (function (lambda () (let* ((position (chess-fen-to-pos (match-string 1))) (ply (chess-ply-create position))) (chess-game-set-plies (chess-engine-game nil) (list ply)))))) - (cons "QUIT" + (cons "<quit/>" (function (lambda () (message "Your opponent has quit playing")))))) @@ -41,7 +41,7 @@ (let ((position (chess-engine-position nil)) (move (match-string 2)) ply) (when (string= (if (chess-pos-side-to-move position) - "White" "Black") + "white" "black") (match-string 1)) (setq ply (chess-algebraic-to-ply position move)) (unless ply @@ -71,23 +71,25 @@ ((eq event 'shutdown) (ignore-errors - (chess-engine-send nil "QUIT\n"))) + (chess-engine-send nil "<quit/>\n"))) ((eq event 'setup) - (chess-engine-send nil (format "SETBOARD %s\n" + (chess-engine-send nil (format "<setup fen=\"%s\">\n" (chess-pos-to-fen (car args))))) ((eq event 'pass) - (chess-engine-send nil "PASS\n")) + (chess-engine-send nil "<pass/>\n")) ((eq event 'move) (unless chess-network-now-moving (chess-engine-send - nil (concat (if (chess-pos-side-to-move (chess-ply-pos (car args))) - "White:" - "Black:") + nil (concat "<move color=\"" + (if (chess-pos-side-to-move (chess-ply-pos (car args))) + "white" + "black") + "\">" (chess-ply-to-algebraic (car args)) - "\n")))))) + "</move>\n")))))) (provide 'chess-network) |