;;; -*- Mode:Lisp; Package:DYPAR; Base:10; -*-
;;;		  LastEditDate =  13:68:19  We, 05-Sep-89  -- Jesus Boti

					;(load "bootsinwn.cl")


(format t "~&Cargando el Interprete de Lenguaje Natural Dypar~&")

;;16-Nov-00


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

(in-package "DYPAR")

(load "E:/doctorado/fuentes/macros.lsp")
(load "E:/doctorado/fuentes/struc.lsp")
(load "E:/doctorado/fuentes/general.lsp")
(load "E:/doctorado/fuentes/var.lsp")
(load "E:/doctorado/fuentes/babel.lsp")
(load "E:/doctorado/fuentes/xload.lsp")
(load "E:/doctorado/fuentes/xref.lsp")
(load "E:/doctorado/fuentes/xmatch6org.cl")
(load "E:/doctorado/fuentes/extend.lsp")
(load "E:/doctorado/fuentes/dyread.lsp")
(load "E:/doctorado/fuentes/xpar.lsp")
(load "E:/doctorado/fuentes/decl.lsp")
(load "E:/doctorado/fuentes/runtime.lsp")
(load "E:/doctorado/fuentes/dytest.lsp")

(load "E:/doctorado/fuentes/elipsis.lsp")
(load "E:/doctorado/fuentes/orto.lsp")
(load "E:/doctorado/fuentes/diccionario.lsp")



(load "E:/doctorado/fuentes/dypartra.lsp")
(load "E:/doctorado/fuentes/conexion.lsp")
(load "E:/doctorado/fuentes/grafic.lsp")

(format t "~&Cargando el IERL~&")
(load "Ierl.lsp")
(load-IERL-system)
(load "wfs.lsp")
(load "nima.lsp")
(nima)
(format t "~&Modelo del Nima cargado~&")

;; redefinicion de funciones que daran problemas en dypar
(defun what-is-it (nombre) (what-is-it? (first nombre)))
(defun is-a (nombre ascendiente) (is-a?  (first nombre) (first ascendiente)))
(defun what-does-it-have (nombre) (what-does-it-have?  (first nombre)))
(defun how-many-does-it-have (nombre tipo) (how-many-does-it-have?  
					    (first nombre) (first tipo)))
(defun ini () (erasegra) (loadgra "sg_ierl") (parser))
(defun describe-form (form)
  (let* ((slots-form (get-slots form))
	(slots 
	 (dolist (slt_obj (get-slots 'objeto))
	   (setf slots-form (remove slt_obj slots-form))))
	 (slots-have (what-does-it-have? form)))
    (format t "~&~S is a(n) ~S ~&" form (first (what-is-it? form)))
    (format t "~&Atributos ~&")
    (dolist (s slots-form) 
      (format t "~& ~S: ~S ~&" s (get-value form s)))
    (format t "~&Tiene ~&")
    (dolist (h slots-have) 
      (format t "~& ~S: ~S ~&" h
	      (how-many-does-it-have? form h))))
  (values))

(loadgra "wfs.gra")

(setq !ptrace nil)
(setq !show-expanded nil)
(setq *enable-output* nil)
 (parser)
;;--------------------------------------