;;; *****************************
;;; *  PORTABLE AI LAB  - IDSIA *
;;; *****************************
;;;  
;;; Filename:    Net-1 
;;; Module:      ATN AUGMENTED TRANSITION NETWORKS
;;; Author:      Mike Lenz - Fabio Baj 
;;; Short Desc:  A sample network file
;;;===================================================================

;; An RTN (un-augmented): all actions and tests are unspecified;
;; the tests default to t, and the actions are filled in by
;; appropriate defaults to produce parse trees as output.
;; Sample sentence:
;;   "Paolo sees that Luca eats a pizza"
;;

(in-package :atn)
(setq *network*
  '(
   (S
     (0 (push NP 1))
     (1 (push VP 2))
     (2 (cat CONJ 0)
	(pop))
     )
    (NP
     (0 (cat PN 5)
	(cat DET 1))
     (1 (cat N 2))
     (2 (cat WH 3)
	(push PP 4)
	(pop))
    (3 (push VP 2))
     (4 (push PP 4)
	(pop))
     (5 (pop))
     )
    (VP
     (0 (cat V 1))
     (1 (push NP 2)
	(push PP 2)
	(cat THAT 3)
	(pop))
     (2 (push PP 2)
	(pop))
     (3 (push S 2))
     )
    (PP
     (0 (cat PREP 1))
     (1 (push NP 2))
     (2 (pop))
     )
    )
  )
