#| -*-Scheme-*-

$Id: load.scm 7972 2007-12-10 04:27:29Z cph $

Copyright (C) 2006,2007 Massachusetts Institute of Technology

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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
USA.

|#

;;;; Loader for AIR

(load-option 'sos)
(load-option 'xml)

(ignore-errors (lambda () (delete-all-ad-hoc-packages!)))

(set! *default-rdf-prefix-registry* (new-rdf-prefix-registry))

(define air:base-directory
  (directory-pathname (current-load-pathname)))

(define air:base-environment
  (the-environment))

(with-working-directory-pathname air:base-directory
  (lambda ()
    (load "adhoc" (make-top-level-environment))
    (load "camel-case")
    (ad-hoc-load "srfi40")
    (ad-hoc-load "eqv-sets")
    (ad-hoc-load "rdf-names")
    (ad-hoc-load "air-names")
    (ad-hoc-load "tms-names")
    (ad-hoc-load "tms")
    (load "trivial-store")
    (ad-hoc-load "rdf-match"
		 #!default
		 '(rdf-match
		   make-match-result
		   match-result-dict
		   match-result-matched
		   match-result-unmatched
		   match-result-vars
		   lookup-in-match-dict
		   rdf-triples->universe
		   compose-universes
		   trace-rdf-match?))
    (load "patterns")
    (load "amord")
    (load "scheduler")
    (load "compile-policy")))