;;  This loads the grammars for Section 9.7
;; it assumes that the generator is loaded

(enableSem)
(load-f "Grammars/Chapter9")

(Make-lexicon (append *lexicon9-2* 
                      (append *lexicon-whs*
                        (append *lexicon-auxs* *lexicon-additions*))))

(make-grammar *grammar9-3*)
(augment-grammar *grammar9-13*)
(augment-grammar *grammar9-13plus*)
(Format t "~%Words defined are ~S " (defined-words))
T

(setq *test1*
      (make-constit :cat 'S
                    :feats '((INV -)
                             (SEM 
                              ((UNSCOPED PRES SEES1) V17 
                          (NAME V13 JILL) (UNSCOPED (THE V20 (DOG1 V20))))))))

(setq *test2*
      (make-constit :cat 'S
                    :feats '((INV +)
                             (VFORM PAST)
                             (SEM 
                              ((UNSCOPED PAST SEES1) V17 
                          (NAME V13 JILL) (UNSCOPED (THE V20 (DOG1 V20))))))))


;; You will need to enable gaps and reloaded the grammars and lexicon for
;;   the next test to work

(setq *test3*
 (make-constit :cat 'S
               :feats '((INV -)
                        (WH Q)
                        (SEM (WH-QUERY ((UNSCOPED PAST DO1) 
                                        (SEES1 V194 (NAME V193 JILL) 
                                              (PRO V191 WHO))))))))
