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

;;
;; This network, by just returning * at each arc,
;; simple returns the input string as a list of words,
;; when the input parses.
;;
(in-package :atn)
(setq *network*
  '(
    (S
     (0 (push NP 1 t () *))
     (1 (push VP 2 t () *))
     (2 (cat CONJ 0 t *)
	(pop t *))
     )
    (NP
     (0 (cat PN 5 t *)
	(cat DET 1 t *))
     (1 (cat N 2 t *))
     (2 (cat WH 3 t *)
	(push PP 4 t () *)
	(pop t *))
     (3 (push VP 2 t () *))
     (4 (push PP 4 t () *)
	(pop t *))
     (5 (pop t *))
     )
    (VP
     (0 (cat V 1 t *))
     (1 (push NP 2 t () *)
	(push PP 2 t () *)
	(cat THAT 3 t *)
	(pop t *))
     (2 (push PP 2 t () *)
	(pop t *))
     (3 (push S 2 t () *))
     )
    (PP
     (0 (cat PREP 1 t *))
     (1 (push NP 2 t () *))
     (2 (pop t *))
     )
    ))
 