;;; *****************************
;;; *  PORTABLE AI LAB  - IDSIA *
;;; *****************************
;;;  
;;; Filename:    Net-0
;;; Module:      ATN AUGMENTED TRANSITION NETWORKS
;;; Author:      Paolo Cattaneo
;;; 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 eats a pizza in a restaurant"
;;

(in-package :atn)
(setq *network*
  '(
   (S
     (0 (push NP 1))
     (1 (push VP 2))
     (2 (pop))
     )
    (NP
     (0 (cat PN 2) 
	(cat DET 1))
     (1 (cat N 2))
     (2 (pop)))
    (VP
     (0 (cat V 1))
     (1 (push NP 2)
	(jump 2)
	(pop))
     (2 (push PP 2)
	(pop)))	
    (PP
     (0 (cat PREP 1))
     (1 (push NP 2))
     (2 (pop))
     )
    )
  )
