;; packages.lisp --- Part of srd-tools

;; Copyright (C) 2008 Clinton Ebadi <clinton@unknownlamer.org>

;; Author: Clinton Ebadi <clinton@unknownlamer.org>

;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.


(defpackage :org.unknownlamer.dnd-tools.db
  (:use :common-lisp :elephant)
  (:nicknames :dnd-db)
  (:export :connect :disconnect :*db-store*))

(defpackage :org.unknownlamer.dnd-tools.db.symbols
  (:use :common-lisp)
  (:nicknames :dnd-db-symbols)
  (:export :*character-classes*
	   :*caster-classes*
	   :*cleric-domains*
	   :*spell-schools*
	   :*spell-descriptors*
	   :*alignments*
	   :*spell-components*))

(defpackage :org.unknownlamer.dnd-tools
  (:use :common-lisp :elephant
	:org.unknownlamer.dnd-tools.db :org.unknownlamer.dnd-tools.db.symbols)
  (:import-from :arnesi :compose :curry :if-bind :map-range :rcurry)
  (:nicknames :dnd-tools)
  (:export
   ;; Classes
   :player-class
   :player-level
   :spell-level
   :spell-domain-level
   :spell-school
   :spell-compound-subschool
   :spell-subschool
   :spell-descriptor
   :spell-compound-descriptor
   :spell-component
   :spell

   ;; Query Methods
   :find-player-class
   :find-player-level
   :find-spell-component
   :find-spell-school
   :find-spell-domain
   :find-spell-level
   :find-spell-domain-level
   :find-spell-descriptor

   :find-compound-subschool
   :find-alternate-descriptor

   ;; Spell Query Methods
   :find-spell-by-name
   :find-spells-by-alignment
   :find-spells-by-school
   :find-spells-by-caster-class
   :find-spells-by-spell-level

   ;; Accessors
   :spell-level
   :caster-level
   :domain
   :spell-domain
   :spell-domain-name
   :spell-school-name
   :spell-school-subschool
   :spell-subschool-name
   :spell-school
   :spell-component-name
   :spell-component-abbreviation
   :spell-name
   :spell-levels
   :spell-school
   :spell-alignment
   :spell-descriptors
   :spell-components
   :spell-casting-time
   :spell-range
   :spell-duration
   :spell-saving-throw
   :spell-resistance
   :spell-description
   :arcane-spell-components
   :divine-spell-components
   :alternative-descriptor-p
   :alternative-subschool-p
   :additional-subschool-p))

(defpackage :org.unknownlamer.dnd-tools.db.initialize
  (:use :common-lisp :elephant
	:org.unknownlamer.dnd-tools.db :org.unknownlamer.dnd-tools.db.symbols
	:org.unknownlamer.dnd-tools)
  (:nicknames :dnd-db-init)
  (:import-from :arnesi :compose :curry :if-bind :map-range)
  (:export
   :initialize-database
   :initialize-derived-indices
   :destroy-derived-indices))

(defpackage :org.unknownlamer.dnd-tools.gui
  (:use :clim :clim-lisp
	:org.unknownlamer.dnd-tools)
  (:nicknames :dnd-gui))

(defpackage :org.unknownlamer.dnd-tools.srd-import
  (:use :common-lisp
	:org.unknownlamer.dnd-tools.db.symbols
	:org.unknownlamer.dnd-tools)
  (:nicknames :srd-import)
  (:import-from :arnesi :compose :if-bind :rcurry :with-unique-names)
  (:import-from :elephant :make-pset)
  (:import-from :ppcre :create-scanner :do-register-groups
		       :register-groups-bind :scan :scan-to-strings)
  (:export :scrape-spell
	   :parse-scraped-spell
	   :parsed-spell->spell-object
	   
	   :scrape-spell-directory
	   :parse-scraped-spells
	   :import-parsed-spells

	   :spell-table-ref))