;;
;; 11-682 movie-grammar.gra
;;
;; Basic semantic grammar for parsing IMDB questions
;;
;;----------------------------------------------------------

(<start> <--> (<SENT>)
         ((x0 = x1)))


;; top-level rules for different question types

(<SENT> <--> (<ACT-Q>)
         ((x0 = x1)))

(<SENT> <--> (<TIME-Q>)
         ((x0 = x1)))

(<SENT> <--> (<TITLE-Q>)
         ((x0 = x1)))

(<SENT> <--> (<DIR-Q>)
         ((x0 = x1)))


;; rules for actor questions

(<ACT-Q> <--> (<WH-ACT> <ACT-V> in <M-NAME>)
         (((x0 actor) = *query)
          ((x0 title) = (x4 title))))


;; rules for time questions

(<TIME-Q> <--> (<WH-TIME> was <M-NAME> <TIME-V>)
         (((x0 year) = *query)
          ((x0 title) = (x3 title))))


;; rules for title questions

(<TITLE-Q> <--> (<WH-TITLE> <TITLE-V> <ACT-NAME>)
         (((x0 title) = *query)
          ((x0 medium) = (x1 medium))
          ((x0 genre) = (x1 genre))
          ((x0 actor) = (x3 actor))))

(<TITLE-Q> <--> (<WH-TITLE> was <ACT-NAME> in)
         (((x0 title) = *query)
          ((x0 genre) = (x1 genre))
          ((x0 actor) = (x3 actor))))


;; rules for director questions

(<DIR-Q> <--> (who directed <M-NAME>)
         (((x0 director) = *query)
          ((x0 title) = (x3 title))))

(<DIR-Q> <--> (who directed <M-NP> <M-NAME>)
         (((x0 director) = *query)
          ((x0 title) = (x4 title))))

(<DIR-Q> <--> (who directed <ACT-NAME>)
         (((x0 director) = *query)
          ((x0 actor) = (x3 actor))))

(<DIR-Q> <--> (who directed the actor <ACT-NAME>)
         (((x0 director) = *query)
          ((x0 actor) = (x5 actor))))



;; actor question verbs

(<ACT-V> <--> (was)
     ((x0 = x1)))

(<ACT-V> <--> (were)
     ((x0 = x1)))

(<ACT-V> <--> (%)
     (((x0 dict) <= (parse-word (x1 value)))
      ((x0 dict cat) =c V)
      (*OR*
         (((x0 dict root) =c "act"))
         (((x0 dict root) =c "perform"))
         (((x0 dict root) =c "star")))))


;; time question verbs

(<TIME-V> <--> (%)
     (((x0 dict) <= (parse-word (x1 value)))
      ((x0 dict cat) =c V)
      (*OR*
         (((x0 dict root) =c "release"))
         (((x0 dict root) =c "made"))
         (((x0 dict root) =c "do")))))


;; title question verbs

(<TITLE-V> <--> (%)
     (((x0 dict) <= (parse-word (x1 value)))
      ((x0 dict cat) =c V)
      (*OR*
         (((x0 dict root) =c "star"))
         (((x0 dict root) =c "have")))))



;; movie name

(<M-NAME> <--> (@CAP %)
      (((x0 title) <= (get-name (x2 value)))))


;; actor name

(<ACT-NAME> <--> (@CAP %)
      (((x0 actor) <= (get-name (x2 value)))))



;; actor question WH phrases

(<WH-ACT> <--> (<WH-WORD>)
      (((x1 root) =c *who)
       (x0 = x1)))

(<WH-ACT> <--> (<WH-NP>)
      (((x1 root) =c "actor")
       (x0 = x1)))


;; time question WH phrases

(<WH-TIME> <--> (<WH-WORD>)
      (((x1 root) =c *when)
       (x0 = x1)))

(<WH-TIME> <--> (<WH-NP>)
      (((x1 root) =c "year")
       (x0 = x1)))


;; movie title question WH phrases

(<WH-TITLE> <--> (<WH-WORD>)
      (((x1 root) =c *what)
       (x0 = x1)))

(<WH-TITLE> <--> (<WH-NP>)
      ((*OR*
          (((x1 root) =c "movie")
           ((x0 medium) = "movie"))
          (((x1 root) =c "comedy")
           ((x0 medium) = "movie")
           ((x0 genre) = (x1 root)))
          (((x1 root) =c "drama")
           ((x0 medium) = "movie")
           ((x0 genre) = (x1 root)))
          (((x1 root) =c "thriller")
           ((x0 medium) = "movie")
           ((x0 genre) = (x1 root))))
       (x0 = x1)))


;; WH words

(<WH-WORD> <--> (who)
      (((x0 wh-value) = *+)
       ((x0 root) = *who)
       ((x0 agr) = *3-sing)
       ((x0 type) = *undefined*)))


(<WH-WORD> <--> (what)
	(((x0 wh-value) = *+)
	 ((x0 root) = *what)
	 ((x0 type) = *undefined*)))

(<WH-WORD> <--> (which)
	(((x0 wh-value) = *+)
	 ((x0 root) = *which)
	 ((x0 type) = *undefined*)))

(<WH-WORD> <--> (when)
	(((x0 wh-value) = *+)
	 ((x0 root) = *when)
	 ((x0 type) = *undefined*)))


(<WH-NP> <--> (<WH-WORD> <N>)
	((*OR*
            (((x1 root) =c *which))
            (((x1 root) =c *what)))
         (x0 = x2)))


(<N> <--> (%)
       ((x0 <= (parse-word (x1 value)))
	((x0 cat) =c N)))


(<M-NP> <--> (the <N>)
      ((*OR*
          (((x2 root) =c "movie")
           ((x0 medium) = "movie"))
          (((x2 root) =c "film")
           ((x0 medium) = "movie"))
          (((x2 root) =c "comedy")
           ((x0 medium) = "movie")
           ((x0 genre) = (x2 root)))
          (((x2 root) =c "drama")
           ((x0 medium) = "movie")
           ((x0 genre) = (x2 root)))
          (((x2 root) =c "thriller")
           ((x0 medium) = "movie")
           ((x0 genre) = (x2 root))))
       (x0 = x2)))