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

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

;;16-Nov-00

(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")


(if (not (find-package "DYPAR"))
    (defpackage DYPAR (:use COMMON-LISP)
		      ))

(in-package "DYPAR")

(load "macros.lsp")
(load "struc.lsp")
(load "general.lsp")
(load "var.lsp")
(load "babel.lsp")
(load "xload.lsp")
(load "xref.lsp")
(load "xmatch6.lsp")
(load "extend.lsp")
(load "dyread.lsp")

;30-Enero-01
;(load "xpar.lsp")
(load "xparWeb.lsp")
(load "mis_funcionesWeb.lsp")

(load "decl.lsp")
(load "runtime.lsp")
(load "dytest.lsp")
;(load "optimize.lsp")
(load "elipsis.lsp")
(load "orto.lsp")

;; 16-Nov-00
(load "diccionario.lsp")
;;(load "nombres.lsp")
;;
(load "dypartra.lsp")
(load "conexion.lsp")
(load "grafic.lsp")
(if (probe-file "/home/felix/aplicac/dyparini.lsp")
    (load "/home/felix/aplicac/dyparini.lsp"))



;;------------------------ nuria-moisés:
(loadgra "g.gra")
;(parser)
;(setq !ptrace t)
;;--------------------------------------





(require :orblink)

;(in-package "DYPAR")

(corba:idl "WebDypar/IdlDypar.idl")
(load "WebDypar/ServerDypar.cl")
(setq server (make-instance 'my-server))
(orblink:write-ior-to-file server "WebDypar/serv.ior")