;;;;***************************************************************************
;;;;
;;;; FILE IDENTIFICATION
;;;; 
;;;;  Name:           edge-table-storage.lisp
;;;;  Purpose:        Store precompiled edge table for reversi
;;;;  Programer:      Kevin Rosenberg
;;;;  Date Started:   1 Nov 2001
;;;;
;;;; $Id: edge-table-storage.lisp,v 1.2 2002/10/25 09:23:39 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; Reversi users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;;***************************************************************************

(in-package :reversi)

(eval-when (:compile-toplevel :load-toplevel :execute)

  (defparameter *et-path* nil)

  (if *load-truename*
      (setq *et-path* (make-pathname
		       :directory (pathname-directory *load-truename*)
		       :host (pathname-host *load-truename*)
		       :device (pathname-device *load-truename*)
		       :name "edge-table"
		       :type "dat"))
    (setq *et-path* (make-pathname
		     :directory '(:absolute "usr" "share" "common-lisp"
					    "source" "reversi" "data")
		     :name "edge-table"
		     :type "dat")))

  (defun store-edge-table (et &optional (path *et-path*)) 
    (with-open-file (stream path :direction :output
			    :if-exists :supersede)
      (print (length et) stream)
      (dotimes (i (length et))
	(print (aref et i) stream))))
  
  (defun load-edge-table (&optional (path *et-path*))
    (when (probe-file path)
      (with-open-file (stream path :direction :input)
	(let* ((length (read stream))
	       (et (make-array length :element-type 'fixnum)))
		      (dotimes (i length)
			(setf (aref et i) (read stream)))
		      et))))
  
  (unless (probe-file *et-path*)
    (store-edge-table (make-edge-table)))
  
  (unless *edge-table*
    (setq *edge-table* (load-edge-table))))