; MODULO DE ENLACE CON DICCIONARIO WORDNET.
; Autor: Nuria Ripoll
; Fecha de creación: 16-Nov-00
; Fecha de la última modificación: 27-Feb-01

;; DICCIONARIO.LSP
;; HISTORIA
;; 31-Enero-2001. Nuria Ripoll.
;; Modifico las funcion posibles para meter los simbolos creados en el pkt dypar,
;; si no me da error de ejecucion porque los terminales no coinciden ya que estan
;; en distinto paquete.


(in-package "DYPAR")


;; Por defecto *categoria* :noun
(setq *categoria* :noun)


;; "sinonimos2" devuelve la lista de simbolos correspondientes a las palabras sinonimas
;; del argumento que ha encontrado wordnet o bien, nil.
;; (CAT GUY HOMBRE)
;; Esta funcion se llama desde smatch1.

(defun sinonimos2 (pal)
  (let ((lsinonimos nil)
	(lsin nil))
    (setq lsinonimos (append lsinonimos (mapcar #'car (user::get-synonyms pal *categoria*))))
    (and lsinonimos
         (dolist (sinonimo lsinonimos lsin)
	   (setq lsin (append lsin (list (intern (string-upcase sinonimo) 'dypar)))))
	 (remove-duplicates lsin))))

