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

;;
;; Identical to n1, except the tests and actions
;; are explicitly specified.  The actions are all
;; equal to their default counterparts, so the output
;; of this network should be identical to that of n1.
;;


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