;; -*- Mode: Lisp; -*-

;;; Ficheros para el interfaz Dypar con Java 
;;; Ultima edicion: 1/2/01

;;; Copyright (c) 2001, Nuria Ripoll
;;; Universidad de Zaragoza

;;; Modificaciones

;;;FICHERO DE CARGA
(load "U:/projects/p58_Sist_Info/5810_BUNUEL2000/8_software/UtilsLisp/loader.lisp")

;;;WORDNET
(load "U:/projects/p58_Sist_Info/5810_BUNUEL2000/8_software/cosas/wordnet/Miller/sources/wordnet.lisp")
(load "U:/projects/p58_Sist_Info/5810_BUNUEL2000/8_software/cosas/wordnet/Miller/sources/examples.lisp")

;;;DYPAR
(if (not (find-package "DYPAR"))
    (make-package "DYPAR" :use '("LISP" "USER")))
(in-package "DYPAR");


(setq *dypar-path*
      #+ILS "/u/bps/code/cps/"
      #+PARC "virgo:/virgo/dekleer/bps/code/cps/"
      #+MCL "Macintosh HD:BPS:cps:"
      #+FRANZ-INC "U:/projects/p58_Sist_Info/5810_BUNUEL2000/8_software/dyparIAAA/nripoll/")

(defvar *dypar-files* '("macros" "struc" "general" "var"
			"babel" "xload" "xref" "xmatch6"
			"extend" "dyread" "xpar2" "decl" "runtime"
			"dytest" "elipsis" "orto" "diccionario2"
			"mis_funciones" "dypartra" "conexion" "grafic"))

(defun compile-dypar ()
  (compile-load-files *dypar-files* *dypar-path*))


(user::load-files *dypar-files* *dypar-path* "lsp")

;;; Cargamos la gramatica.
(loadgra "g")