blob: 32dc70be0eaa2d593ade3625a0f6c647ac2319f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Play against an opponent over the network
;;
;; $Revision$
(require 'chess-engine)
(require 'chess-fen)
(require 'chess-algebraic)
(defvar chess-network-regexp-alist
(list
(cons (concat chess-algebraic-regexp "$")
(function
(lambda ()
(funcall chess-engine-response-handler 'move
(chess-engine-convert-algebraic (match-string 0))))))
(cons "chess match\\(\\s-+\\(.+\\)\\)?$"
(function
(lambda ()
(funcall chess-engine-response-handler 'connect
(match-string 2)))))
(cons "accept\\(\\s-+\\(.+\\)\\)?$"
(function
(lambda ()
(funcall chess-engine-response-handler 'accept
(match-string 2)))))
(cons "fen\\s-+\\(.+\\)"
(function
(lambda ()
(funcall chess-engine-response-handler 'setup-pos
(chess-engine-convert-fen (match-string 1))))))
(cons "pgn\\s-+\\(.+\\)"
(function
(lambda ()
(funcall chess-engine-response-handler 'setup-game
(chess-engine-convert-pgn (match-string 1))))))
(cons "pass$"
(function
(lambda ()
(funcall chess-engine-response-handler 'pass))))
(cons "quit$"
(function
(lambda ()
(funcall chess-engine-response-handler 'quit))))
(cons "resign$"
(function
(lambda ()
(funcall chess-engine-response-handler 'resign))))
(cons "abort$"
(function
(lambda ()
(funcall chess-engine-response-handler 'abort))))))
(defun chess-network-handler (event &rest args)
"Initialize the network chess engine."
(cond
((eq event 'initialize)
(let ((which (read-char "Are you the c)lient or s)erver? "))
proc)
(message "Starting network client/server...")
(setq proc (if (eq which ?s)
(start-process "*chess-network*"
(current-buffer) "/usr/bin/nc"
"-l" "-p" (read-string "Port: "))
(open-network-stream "*chess-network*" (current-buffer)
(read-string "Host: ")
(read-string "Port: "))))
(if (eq which ?s)
(message "Now waiting for your opponent to connect...")
(process-send-string proc (format "chess match %s\n" chess-full-name))
(message "You have connected; pass now or make your move."))
proc))
((eq event 'shutdown)
(chess-engine-send nil "quit\n"))
((eq event 'setup-pos)
(chess-engine-send nil (format "fen %s\n"
(chess-pos-to-string (car args)))))
((eq event 'setup-game)
(chess-engine-send nil (format "pgn %s\n"
(chess-game-to-string (car args)))))
((eq event 'pass)
(chess-engine-send nil "pass\n"))
((eq event 'busy)
(chess-engine-send nil "playing\n"))
((eq event 'accept)
(chess-engine-send nil (format "accept %s\n" chess-full-name)))
((eq event 'decline)
(chess-engine-send nil "decline\n"))
((eq event 'resign)
(chess-engine-send nil "resign\n"))
((eq event 'abort)
(chess-engine-send nil "abort\n"))
((eq event 'move)
(chess-engine-send nil (concat (chess-ply-to-algebraic (car args))
"\n")))))
(provide 'chess-network)
;;; chess-network.el ends here
|
