;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File		     - pkg.lisp
;; Description	     - Package definition for MSc Lisp ex 1
;; Author	     - Tim Bradshaw (tfb at lostwithiel)
;; Created On	     - Tue Feb  1 23:14:04 2000
;; Last Modified On  - Mon Jun 25 12:56:32 2001
;; Last Modified By  - Gail Anderson (ga at lostwithiel)
;; Update Count	     - 12
;; Status	     - Unknown
;; 
;; $Id: pkg.lisp,v 1.1 2003/01/23 22:19:15 colin Exp $
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Copyright (C) 2000, 2001 Cley Limited
;;; 
;;; 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 2 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, write to the Free Software
;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
;;; USA.
;;; 
;;; You can contact Cley Limited by emailing cley@cley.com.

(cl:in-package :cl-user)

(defpackage :urlpath-tools
  (:nicknames :upt)
  (:use :cl)
  ;; Exercise definition from defex-user.lisp
  (:export #:define-exercise)
  ;; from path-utils.lisp (all provided)
  (:export #:urlpath
	   #:urlpath-name
	   #:urlpath-directory
	   #:make-urlpath
	   #:urlpath->path-name  
	   #:path-name->urlpath)
  ;; from cleaner.lisp (provided)
  (:export #:clean-student-symbols)
  ;; basic path stuff from urlpath.lisp
  (:export #:map-page-descriptions	;provided
	   #:merge-urlpath		;they write
	   #:*index-file-name*		;provided
	   #:indexify-urlpath		;they write
	   #:prune-urlpath		;they write
	   #:prune-directory		;they write
	   #:eliminate-backs		;they write
	   #:canonicalize-link)		;they write
  ;; page attribute structure
  (:export #:page-attributes		;provided
	   #:make-page-attributes	;provided
	   #:page-attributes-urlpath	;provided
	   #:page-attributes-links)	;provided
  ;; page to pstructure
  (:export #:page-description->page-attributes);they write
  ;; tree stuff from urlpath.lisp
  (:export #:map-upt-node-children	;provided
	   #:upt-dir-node-p		;provided
	   #:upt-file-node-p		;provided
	   #:upt-node-value		;provided
	   #:find-upt-node-child	;provided
	   #:make-upt			;provided
	   #:store-urlpath)		;provided
  ;; storing everything
  (:export #:store-all-page-descriptions;they write
	   #:*urlpath-tree*)		;provided
  ;; finding pages
  (:export #:urlpath-value-in-upt	;they write
	   #:map-upt-nodes)		;they write
  (:export #:urlpath-dangling-links)	;they write
  (:export #:upt-dangling-links		;they write
	   #:upt-dangling-path-names))	;they write
  
#+clim
(defpackage :draw-urlpath-tree
  (:nicknames :dut)
  (:use :clim-lisp :clim :upt)
  (:export #:draw-urlpath-tree))

(eval-when (:load-toplevel :execute)
  (use-package :upt)
  #+clim (use-package :dut))