;;; -*- Mode: Lisp;; Syntax: vlisp;; -*- File: eliza-pm.vlisp
;
; eliza (utilisant un pattern-matcher) d'après Weizenbaum

(include eliza.vlisp)

(de eliza ()
    (princ "elisa : ")
    (do
     ((sentence (use-eliza-rules (read-line-no-punct)) 
		(use-eliza-rules (read-line-no-punct))))
     ((equal '(bye) sentence) "good bye")
     (repond sentence)
     (terpri)(princ "eliza : ")))

(de use-eliza-rules (input)
    (rule-based-translator input *eliza-rules* 'match nil nil
    '(lambda (bindings responses)
	     (reflechit (switch-viewpoint bindings)
		    (random-elt responses)))))