Browse Source

0.2.0 and beyond

master
Dan 14 years ago
parent
commit
3fc0e0f89e
  1. 3
      fink.sh
  2. 2
      gobot.lisp
  3. 31
      gtp.lisp
  4. 2
      ip2gtp.cpp
  5. 1
      packages.lisp

3
fink.sh

@ -0,0 +1,3 @@
#!/bin/sh
sbcl --noinform --load fink.fasl --eval '(gtp-handler:gtp-client)' --eval '(quit)'

2
gobot.lisp

@ -10,6 +10,7 @@
(defparameter *boardsize* *default-boardsize*)
(defparameter *board* nil)
(defparameter *cputime* 0.0)
(defparameter *passed* nil)
(defparameter *player* nil)
@ -29,6 +30,7 @@
(defun init ()
;(init other game specific stuff)
(setf *cputime* 0.0)
(init-board))

31
gtp.lisp

@ -2,33 +2,39 @@
(defparameter *quit?* nil)
;(defparameter *cputime*)
;(defparameter *cputime* 0)
(defun gtp-net-client (server port)
(go-bot:init)
(setf *quit?* nil)
(let ((socket (tcp-connect server port)))
(let ((socket (netpipe:tcp-connect server port)))
(if (eql socket nil)
()
(progn
; (format t "Connection establish, playing...~%")
(do ()
((or (eql socket nil) (eql *quit?* t)))
(let ((cmd (tcp-read socket)))
(let ((cmd (netpipe:tcp-read socket)))
(format t "cmd: '~a'~%'" cmd)
(let ((resp (dispatch-gtp-command cmd)))
(print resp)
(tcp-print socket (concatenate 'string "= " resp (string #\newline) (string #\newline))))))))))
(let ((resp (inc-cpu-timer (dispatch-gtp-command cmd))))
(print resp)
(netpipe:tcp-print socket (concatenate 'string "= " resp (string #\newline) (string #\newline))))))))))
(defmacro inc-cpu-timer (body)
`(let ((start (get-internal-run-time))
(val ,body)
(end (get-internal-run-time)))
(setf go-bot:*cputime* (+ go-bot:*cputime* (float (/ (- end start) 1000))))
val))
(defun gtp-client ()
(go-bot:init)
(setf *quit?* nil)
(do ()
((eql *quit?* t))
(format t "= ~a~%~%" (dispatch-gtp-command (read-line t)))))
(format t "= ~a~%~%" (inc-cpu-timer (dispatch-gtp-command (read-line t))))))
(defun split-string (string pivot-str)
(do ((pivot (char pivot-str 0))
@ -40,6 +46,10 @@
(progn (push (subseq string beg i) strings) (setf beg (+ i 1))))))
(defparameter *supported_commands* '("name" "version" "protocol_version" "komi" "boardsize" "clear_board" "play" "genmove" "cputime" "quit" "game_score" "lisT_commands" "known_command"))
(defun match-string (str)
(lambda (elem) (string-equal str elem)))
(defun dispatch-gtp-command (command-string)
(let* ((commands (split-string (string-upcase command-string) " "))
@ -61,9 +71,12 @@
(genmove (go-bot:do-genmove (char (second commands) 0)))
(genmove_black (go-bot:do-genmove #\b))
(genmove_white (go-bot:do-genmove #\w))
(cputime (write-to-string go-bot:*cputime*))
;(get_random_seed "0")
;(known_command)
;(list_commands)
(known_command (write-to-string (count-if (match-string (second commands)) *supported_commands*)))
(list_commands (let ((str ""))
(loop for command in *supported_commands* do (setf str (concatenate 'string str command " ")))
str))
(game_score (format t "Score for ~c: ~s~%" go-bot:*player* (string-trim (string #\newline) (second commands))) "")
(quit (setf *quit?* t) "")
(otherwise (concatenate 'string "? unknown command: " (string-downcase (first commands)))))))

2
ip2gtp.cpp

@ -39,7 +39,7 @@ using namespace std;
#define TRUE 1
#define FALSE 0
#define TCPPORT 10001 /* server port value */
#define TCPPORT 10000 /* server port value */
#define BUFSIZE 1024 /* size of i/o buffer */
#define NOREADS 10 /* number of buffers transferred */

1
packages.lisp

@ -40,6 +40,7 @@
:*version*
:*author*
:*player*
:*cputime*
:set-komi
:set-boardsize
:init-board

Loading…
Cancel
Save