;;; *****************************
;;; *  PORTABLE AI LAB  - IDSIA *
;;; *****************************
;;;  
;;; Filename:    lex-2 
;;; Module:      ATN AUGMENTED TRANSITION NETWORKS
;;; Author(s):      Mike Lenz - Fabio Baj 
;;; Short Desc:  A sample lexicon file
;;;===================================================================

;;
;; Lexicon lex-2 is for use with net-55.
;;
(in-package :atn)
(setq *lexicon*
 '(
    (a DET (num SING)) 
    (the DET)
    (his DET)
    (every DET (num SING))
    (all DET (num PL))
    
    (paolo NPR (num SING))
    (marco NPR (num SING))
    (luca NPR (num SING))
    (man N (num SING) (per 3))
    (pizza N COLL (num SING) (per 3))
    (men N (num PL) (per 3))
    (pizzas N (num PL) (per 3))
    (bus N (num SING) (per 3))
    (screw N (num SING))
    (screws N (num PL))
    (book N (num SING))
    (books N (num PL))
    (restaurant  N (num SING))
    (fish N)
    (eat V TR (num PL) (tns PRES) (form ACTIVE) (root eat))
    (eats V TR (num SING) (tns PRES) (form ACTIVE) (root eat))
    (ate V TR (tns PAST) (form ACTIVE) (root eat))
    (eaten V TR (form PASSIVE) (root eat))
    (eating V TR (form PART) (root eat))
    (sleep V INTR (num PL) (tns PRES) (form ACTIVE) (root sleep))
    (sleeps V INTR (num SING) (tns PRES) (form ACTIVE) (root sleep))
    (sleeping V INTR (form PART) (root sleep))
    (slept V INTR (tns PAST) (form ACTIVE) (root sleep))
    (find V TR (num PL) (tns PRES) (form ACTIVE) (root find))
    (finds V TR (num SING) (tns PRES) (form ACTIVE) (root find))
    (finding V TR (form PART) (root find))
    (found V TR (form (PASSIVE ACTIVE)) (tns PAST) (root find))
    (see V TR (num PL) (tns PRES) (form ACTIVE) (root see))
    (sees V TR (num SING) (tns PRES) (form ACTIVE) (root see))
    (seeing V TR (form PART) (root see))
    (seen V TR (form PASSIVE) (root see))
    (saw V TR INTR (tns PAST) (form ACTIVE) (root see))
    (give V TR INDOBJ (num PL) (tns PRES) (form ACTIVE) (root give))
    (gives V TR INDOBJ (num SING) (tns PRES) (form ACTIVE) (root give))
    (gave V TR INDOBJ (tns PAST) (form ACTIVE) (root give))
    (given V TR INDOBJ (form PASSIVE) (root give))
    (giving V TR INDOBJ (form PART) (root give))

    (is AUX TR (num SING) (tns PRES) (root be))
    (are AUX TR (num PL) (tns PRES) (root be))
    (was AUX TR (num SING) (tns PAST) (root be))
    (were AUX TR (num PL) (tns PAST) (root be))

    (by PREP)
    (on PREP)
    (in PREP)
    (with PREP)
    (of PREP)
    (to PREP)
    ))
