;;;  Copyright (c) 1994-1995 Fahiem Bacchus and Froduald Kabanza
;;;  All right reserved. Use of this software is permitted for non-commercial
;;;  research purposes, and it may be copied only for that use. All
;;;  copies must include this copyright message.
;;;
;;;  This software and any documentation and/or information supplied with it
;;;  is distributed on an as is basis. Fahiem Bacchus, Froduald Kabanza
;;;  and the University of Waterloo make no warranties, express or implied,
;;;  including but not limited to implied warranties of merchantability and
;;;  fitness for a particular purpose, regarding the documentation,
;;;  functions or performance of such software, documentation and/or
;;;  information.
;;;;-----------------------------------------------------------------------
;;;; tlplanrc.cl --- startup file for TLPlan.
;;;; This file must contain definitions of all the known domains.
;;;;
;;;; It can optionally contain settings for other parameters to change,
;;;; their initial values. For example, the initial search strategy is
;;;; depth-first, this could be changed to breadth-first here if you
;;;; prefer that upon start up.
;;;;
;;;;-----------------------------------------------------------------------

;;; Set up known domains.
;;; First (reset-domains) clears all known domains. Then for each
;;; known domain call the function
;;; (def-domain name file-list description)
;;;
;;;  Where
;;;  name        symbol that names the domain. This symbol is used in
;;;              load-domain.
;;;  file-list   List of strings, each is the name of a file
;;;              this set of files will be
;;;              loaded when the domain is loaded.
;;;  description String description of domain.
;;;

(reset-domains)

(let ((*domain-directory*
       "e:/TLPLAN-V3.0/Scheme-Version/Domains/"))

  (def-domain
      'blocks
      (list (string-append *domain-directory* "Blocks/blocksworld")  
            (string-append *domain-directory* "Blocks/blocksproblems"))  
    "The blocks world using 4 STRIPS operators.")

  (def-domain
      'boundedblocks
      (list (string-append *domain-directory*
			   "Bounded-blocks/blocksworld")  
            (string-append *domain-directory*
			   "Bounded-blocks/blocksproblems")) 
    "The blocks world with limited space on the table.")

  (def-domain
      'schedule
       (list (string-append *domain-directory* "Schedule/scheduleworld")  
             (string-append *domain-directory* "Schedule/scheduleproblems"))
  "The Prodigy machine shop scheduling domain.")

  (def-domain
      'tires
      (list (string-append *domain-directory* "Tyre/tyreworld") 
            (string-append *domain-directory* "Tyre/tyreproblems")) 
    "Russell's change tyre domain.")

  
  (def-domain 
    'robot 
    (list (string-append *domain-directory* "Robot/robotworld") 
	  (string-append *domain-directory* "Robot/robotproblems")) 
    "Robot delivery domain.")


  )
  


