43 lines
686 B
Common Lisp
43 lines
686 B
Common Lisp
(in-package :common-lisp)
|
|
|
|
;(clc:clc-require :cl-ppcre)
|
|
;(asdf:oos 'asdf:load-op :cl-ppcre)
|
|
(require :sb-bsd-sockets)
|
|
|
|
(defpackage netpipe
|
|
(:use :common-lisp)
|
|
(:export :tcp-connect
|
|
:nslookup
|
|
:tcp-print
|
|
:tcp-read))
|
|
|
|
|
|
(defpackage gtp-handler
|
|
(:use :common-lisp
|
|
:netpipe)
|
|
(:export :gtp-client
|
|
:gtp-net-client))
|
|
|
|
(defpackage board
|
|
(:use :common-lisp)
|
|
(:export :board
|
|
:get-stone
|
|
:set-stone
|
|
:make-board
|
|
:coord-to-str
|
|
:str-to-coord))
|
|
|
|
(defpackage go-bot
|
|
(:use :common-lisp
|
|
:board)
|
|
(:export :*name*
|
|
:*version*
|
|
:*author*
|
|
:*player*
|
|
:set-komi
|
|
:set-boardsize
|
|
:init-board
|
|
:init
|
|
:play
|
|
:genmove
|
|
)) |