fink/packages.lisp

(in-package :common-lisp)

;(clc:clc-require :cl-ppcre)
;(asdf:oos 'asdf:load-op :cl-ppcre)
(require :sb-bsd-sockets)

(defpackage macro-utils
  (:use :common-lisp)
  (:export :with-gensyms
	   :once-only
	   :while
	   :until
	   :pdebug
	   :*print-debug*))

(defpackage netpipe
  (:use :common-lisp)
  (:export :tcp-connect
	   :nslookup
	   :tcp-print
	   :tcp-read))


(defpackage board
  (:use :common-lisp
	:macro-utils)
  (:export :basic-board
	   :boardsize
	   :ranked-board
	   :get-stone
	   :set-stone
	   :remove-stone
	   :get-player
	   :coord-to-str
	   :str-to-coord
	   :genmove
	   :do-with-copy-of-array
	   :copy-array
	   :copy-2d-array
	   :copy-2d-board
	   :make-2d-board
	   :do-over-board
	   :def-over-board
	   :set-2d-stone
	   :get-2d-stone
	   :coords-eql
	   :invert-player
	   :prune
	   :focus
	   :score
	   :copy-slots
	   :analyze-board-score
	   :board-to-analyze
;	   :do-over-2d-adjacent
	   :do-over-adjacent
	   :stones-to-analyze))

(defpackage liberty-board
  (:use :common-lisp
	:macro-utils
	:board)
  (:export :liberty-board
	   :liberty-to-analyze
	   :liberty))
   
(defpackage shape-board
  (:use :common-lisp
	:macro-utils
	:board)
  (:export :shape-board
	   :shapes-to-analyze
	   :shape-id
	   :shapes-points
	   :shape-sizes
	   :next-shape-id
	   :convert-shape
	   :shape-size
	   :remove-shape))

(defpackage liberty-shape-board
  (:use :common-lisp
	:macro-utils
	:board
	:liberty-board
	:shape-board)
  (:export :liberty-shape-board
	   :liberty-shape-to-analyze))
	   ;:liberty-shape-stone-to-analyze))


(defpackage go-bot
  (:use :common-lisp
	:board
	:liberty-board
	:shape-board
	:liberty-shape-board)
  (:export :*name*
	    :*version*
	    :*author*
	    :*player*
	    :*cputime*
	    :set-komi
	    :set-boardsize
	    :init-board
	    :init
	    :do-play
	    :do-genmove
	    :composite-board
	    :analyze-stones
	    :analyze-score
	    :analyze-liberty
	    :analyze-shapes
	    :analyze-shape-liberties
	    :analyze-shape-stone-liberties
	    ))

(defpackage gtp-handler
  (:use :common-lisp
	:netpipe
	:go-bot
	:macro-utils)
  (:export :gtp-client
	   :gtp-net-client))
Basic random bot functionality 2008-05-07 09:07:47 +00:00			`(in-package :common-lisp)`
initial git repo setup 2008-04-28 07:18:59 +00:00
Basic random bot functionality 2008-05-07 09:07:47 +00:00			`;(clc:clc-require :cl-ppcre)`
works better with server 2008-05-08 01:36:06 +00:00			`;(asdf:oos 'asdf:load-op :cl-ppcre)`
Basic random bot functionality 2008-05-07 09:07:47 +00:00			`(require :sb-bsd-sockets)`
initial git repo setup 2008-04-28 07:18:59 +00:00
Real work towards a DSL and classset 2008-05-21 18:46:32 +00:00			`(defpackage macro-utils`
			`(:use :common-lisp)`
			`(:export :with-gensyms`
liberty shape works 2008-06-21 06:03:06 +00:00			`:once-only`
			`:while`
shape liberty main working all done and passing reworked 2008-06-24 17:45:26 +00:00			`:until`
reorganizing, fixes of intermitent bugs 2008-08-23 17:19:41 +00:00			`:pdebug`
			`:print-debug))`
Real work towards a DSL and classset 2008-05-21 18:46:32 +00:00
lots of structural changes, cleaning up to make ready for real dev 2008-05-16 22:17:38 +00:00			`(defpackage netpipe`
works better with server 2008-05-08 01:36:06 +00:00			`(:use :common-lisp)`
lots of structural changes, cleaning up to make ready for real dev 2008-05-16 22:17:38 +00:00			`(:export :tcp-connect`
			`:nslookup`
			`:tcp-print`
			`:tcp-read))`


some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00
More ground work 2008-05-05 15:00:06 +00:00
lots of structural changes, cleaning up to make ready for real dev 2008-05-16 22:17:38 +00:00			`(defpackage board`
Real work towards a DSL and classset 2008-05-21 18:46:32 +00:00			`(:use :common-lisp`
			`:macro-utils)`
more rearranging 2008-05-19 04:00:04 +00:00			`(:export :basic-board`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`:boardsize`
liberty work 2008-05-27 00:46:43 +00:00			`:ranked-board`
lots of structural changes, cleaning up to make ready for real dev 2008-05-16 22:17:38 +00:00			`:get-stone`
			`:set-stone`
start of remove stone and shape support 2008-07-01 18:29:14 +00:00			`:remove-stone`
shape liberty main working all done and passing reworked 2008-06-24 17:45:26 +00:00			`:get-player`
lots of structural changes, cleaning up to make ready for real dev 2008-05-16 22:17:38 +00:00			`:coord-to-str`
lots of changes, nearly 0.2.0 2008-05-26 19:13:18 +00:00			`:str-to-coord`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`:genmove`
finished off shape, started liberty-shape 2008-06-19 06:16:51 +00:00			`:do-with-copy-of-array`
			`:copy-array`
			`:copy-2d-array`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`:copy-2d-board`
			`:make-2d-board`
			`:do-over-board`
			`:def-over-board`
			`:set-2d-stone`
			`:get-2d-stone`
reorganizing, fixes of intermitent bugs 2008-08-23 17:19:41 +00:00			`:coords-eql`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`:invert-player`
			`:prune`
			`:focus`
			`:score`
			`:copy-slots`
			`:analyze-board-score`
begginings of shape support 2008-06-18 00:46:32 +00:00			`:board-to-analyze`
			`; :do-over-2d-adjacent`
reorganizing, fixes of intermitent bugs 2008-08-23 17:19:41 +00:00			`:do-over-adjacent`
			`:stones-to-analyze))`
lots of structural changes, cleaning up to make ready for real dev 2008-05-16 22:17:38 +00:00
refactoring of liberty and start of shape 2008-06-03 16:08:30 +00:00			`(defpackage liberty-board`
liberty work 2008-05-27 00:46:43 +00:00			`(:use :common-lisp`
			`:macro-utils`
			`:board)`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`(:export :liberty-board`
liberty shape works 2008-06-21 06:03:06 +00:00			`:liberty-to-analyze`
			`:liberty))`
liberty work 2008-05-27 00:46:43 +00:00
refactoring of liberty and start of shape 2008-06-03 16:08:30 +00:00			`(defpackage shape-board`
			`(:use :common-lisp`
			`:macro-utils`
			`:board)`
			`(:export :shape-board`
finished off shape, started liberty-shape 2008-06-19 06:16:51 +00:00			`:shapes-to-analyze`
liberty shape works 2008-06-21 06:03:06 +00:00			`:shape-id`
			`:shapes-points`
			`:shape-sizes`
			`:next-shape-id`
			`:convert-shape`
reorganizing, fixes of intermitent bugs 2008-08-23 17:19:41 +00:00			`:shape-size`
			`:remove-shape))`
finished off shape, started liberty-shape 2008-06-19 06:16:51 +00:00
			`(defpackage liberty-shape-board`
			`(:use :common-lisp`
			`:macro-utils`
			`:board`
			`:liberty-board`
			`:shape-board)`
			`(:export :liberty-shape-board`
reorganizing, fixes of intermitent bugs 2008-08-23 17:19:41 +00:00			`:liberty-shape-to-analyze))`
			`;:liberty-shape-stone-to-analyze))`
refactoring of liberty and start of shape 2008-06-03 16:08:30 +00:00
liberty work 2008-05-27 00:46:43 +00:00
lots of structural changes, cleaning up to make ready for real dev 2008-05-16 22:17:38 +00:00			`(defpackage go-bot`
			`(:use :common-lisp`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`:board`
refactoring of liberty and start of shape 2008-06-03 16:08:30 +00:00			`:liberty-board`
liberty shape works 2008-06-21 06:03:06 +00:00			`:shape-board`
			`:liberty-shape-board)`
most basic working client functionality 2008-05-05 15:39:04 +00:00			`(:export :name`
			`:version`
more basics in board management and creation 2008-05-06 07:53:22 +00:00			`:author`
works better with server 2008-05-08 01:36:06 +00:00			`:player`
0.2.0 and beyond 2008-05-26 23:30:59 +00:00			`:cputime`
more basics in board management and creation 2008-05-06 07:53:22 +00:00			`:set-komi`
			`:set-boardsize`
			`:init-board`
			`:init`
more rearranging 2008-05-19 04:00:04 +00:00			`:do-play`
			`:do-genmove`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`:composite-board`
reorganizing, fixes of intermitent bugs 2008-08-23 17:19:41 +00:00			`:analyze-stones`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`:analyze-score`
			`:analyze-liberty`
finished off shape, started liberty-shape 2008-06-19 06:16:51 +00:00			`:analyze-shapes`
liberty shape works 2008-06-21 06:03:06 +00:00			`:analyze-shape-liberties`
shape liberty main working all done and passing reworked 2008-06-24 17:45:26 +00:00			`:analyze-shape-stone-liberties`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`))`

			`(defpackage gtp-handler`
			`(:use :common-lisp`
			`:netpipe`
reorganizing, fixes of intermitent bugs 2008-08-23 17:19:41 +00:00			`:go-bot`
			`:macro-utils)`
some key fixes, expecially coord fix, bit work on liberties, and some gogui integration 2008-05-29 02:40:25 +00:00			`(:export :gtp-client`
			`:gtp-net-client))`