1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; Play against an opponent over the network
6 (require 'chess-common)
8 (defvar chess-network-regexp-alist
10 (cons (concat chess-algebraic-regexp "$")
13 (funcall chess-engine-response-handler 'move
14 (chess-engine-convert-algebraic (match-string 0))))))
15 (cons "chess match\\(\\s-+\\(.+\\)\\)?$"
18 (funcall chess-engine-response-handler 'match
20 (cons "fen\\s-+\\(.+\\)"
23 (funcall chess-engine-response-handler 'setup-pos
24 (chess-engine-convert-fen (match-string 1))))))
25 (cons "pgn\\s-+\\(.+\\)"
28 (funcall chess-engine-response-handler 'setup-game
29 (chess-engine-convert-pgn
30 (chess-network-parse-multiline (match-string 1)))))))
34 (funcall chess-engine-response-handler 'pass))))
38 (funcall chess-engine-response-handler 'quit))))
42 (funcall chess-engine-response-handler 'resign))))
46 (funcall chess-engine-response-handler 'draw))))
50 (funcall chess-engine-response-handler 'abort))))
51 (cons "takeback\\s-+\\([0-9]+\\)$"
54 (funcall chess-engine-response-handler 'undo
55 (string-to-int (match-string 1))))))
56 (cons "accept\\(\\s-+\\(.+\\)\\)?$"
59 (funcall chess-engine-response-handler 'accept
64 (funcall chess-engine-response-handler 'decline))))
68 (funcall chess-engine-response-handler 'retract))))
72 (funcall chess-engine-response-handler 'illegal))))
76 (funcall chess-engine-response-handler 'call-flag))))
77 (cons "kibitz\\s-+\\(.+\\)$"
80 (funcall chess-engine-response-handler 'kibitz
81 (chess-network-parse-multiline (match-string 1))))))
82 (cons "chat\\s-+\\(.+\\)$"
85 (funcall chess-engine-response-handler 'chat
86 (chess-network-parse-multiline (match-string 1))))))))
88 (chess-message-catalog 'english
89 '((network-starting . "Starting network client/server...")
90 (network-waiting . "Now waiting for your opponent to connect...")
91 (network-connected ."You have connected; pass now or make your move.")))
93 (defun chess-network-flatten-multiline (str)
94 (while (string-match "\n" str)
95 (setq str (replace-match "\C-k" t t str)))
98 (defun chess-network-parse-multiline (str)
99 (while (string-match "\C-k" str)
100 (setq str (replace-match "\n" t t str)))
103 (defun chess-network-handler (game event &rest args)
104 "Initialize the network chess engine."
105 (unless chess-engine-handling-event
107 ((eq event 'initialize)
108 (let ((which (read-char "Are you the c)lient or s)erver? "))
110 (chess-message 'network-starting)
113 (if (fboundp 'open-network-stream-server)
114 (open-network-stream-server "*chess-network*"
116 (read-string "Port: "))
117 (start-process "*chess-network*"
118 (current-buffer) "/usr/bin/nc"
119 "-l" "-p" (read-string "Port: ")))
120 (open-network-stream "*chess-network*" (current-buffer)
121 (read-string "Host: ")
122 (read-string "Port: "))))
124 (chess-message 'network-waiting)
125 (chess-network-handler 'match)
126 (chess-message 'network-connected))
129 ((eq event 'ready) ; don't set active yet
130 (chess-game-run-hooks game 'announce-autosave))
132 ((eq event 'setup-pos)
133 (chess-engine-send nil (format "fen %s\n"
134 (chess-pos-to-string (car args)))))
136 ((eq event 'setup-game)
137 (chess-engine-send nil (format "pgn %s\n"
138 (chess-network-flatten-multiline
139 (chess-game-to-string (car args))))))
142 (chess-engine-send nil "pass\n"))
145 (chess-engine-send nil "playing\n"))
148 (setq chess-engine-pending-offer 'match)
149 (chess-engine-send nil (format "chess match %s\n" chess-full-name)))
152 (if chess-engine-pending-offer
153 (chess-engine-command nil 'retract))
154 (setq chess-engine-pending-offer 'draw)
155 (chess-engine-send nil "draw\n"))
158 (if chess-engine-pending-offer
159 (chess-engine-command nil 'retract))
160 (setq chess-engine-pending-offer 'abort)
161 (chess-engine-send nil "abort\n"))
164 (if chess-engine-pending-offer
165 (chess-engine-command nil 'retract))
166 (setq chess-engine-pending-offer 'undo
167 chess-engine-pending-arg (car args))
168 (chess-engine-send nil (format "takeback %d\n" (car args))))
171 (chess-engine-send nil "accept\n"))
174 (chess-engine-send nil "decline\n"))
177 (chess-engine-send nil "retract\n"))
180 (chess-engine-send nil "illegal\n"))
182 ((eq event 'call-flag)
183 (chess-engine-send nil "flag\n"))
186 (chess-engine-send nil (format "kibitz %s\n"
187 (chess-network-flatten-multiline
191 (chess-engine-send nil (format "chat %s\n"
192 (chess-network-flatten-multiline
195 ((eq event 'set-index)
196 (chess-engine-send nil (format "index %d\n" (car args))))
199 (apply 'chess-common-handler game event args)))))
201 (provide 'chess-network)
203 ;;; chess-network.el ends here