;;;; Hey, emacs(1), this is -*- Mode: tdl; Coding: utf-8; -*- got it?


;;;;
;;;; a `new' (sort of, we had experimented with it a bit in LOGON) mechanism to
;;;; improve generator robustness (and possibly efficiency; berthold lobbied
;;;; for that :-).  generator inputs are subjected to a transfer grammar prior
;;;; to generation proper; there must not be transfer ambiguity for this to
;;;; work.  --- an initial set of rules is taken from the LOGON fix-up phase.
;;;;


;;;
;;; by convention, the ERG makes the index of event coordination share the SF
;;; value (and possibly others) of the right conjunct; make it so, to allow the
;;; generator to succeed.                                       (13-nov-07; oe)
;;;
;;; _fix_me_
;;; it seems that SF, unlike TENSE, is shared with the right conjunct, despite
;;; of what dan emailed in HandOn recently?                     (26-jan-08; oe)
;;;
conj_prop_ef := monotonic_mtr &
[ INPUT.RELS <! [ PRED conj_rel, 
                  ARG0 [ SF comm ], 
                  R-INDEX #e0 & event & [ SF prop ] ] !>,
  OUTPUT.RELS <! +copy+ & [ ARG0 [ SF prop ] ] !>,
  FLAGS.SUBSUME < #e0 > ].

#|
conj_ques_ef := monotonic_mtr &
[ INPUT.RELS <! [ PRED conj_rel, 
                  ARG0 #e0 & event & [ SF prop-or-comm ], 
                  R-INDEX #e1 & event & [ SF ques ] ] !>,
  OUTPUT.RELS <! +copy+ & [ ARG0 [ SF ques ] ] !>,
  FLAGS.SUBSUME < #e1 > ].

conj_comm_ef := monotonic_mtr &
[ INPUT.RELS <! [ PRED conj_rel, 
                  ARG0 #e0 & event & [ SF prop-or-ques ], 
                  R-INDEX #e1 & event & [ SF comm ] ] !>,
  OUTPUT.RELS <! +copy+ & [ ARG0 [ SF comm ] ] !>,
  FLAGS.SUBSUME < #e1 > ].
|#
#|
conj_past_ef := monotonic_mtr &
[ INPUT.RELS <! [ PRED conj_rel, 
                 ARG0 #e0 & e & [ TENSE pres_or_fut ], 
                 L-INDEX #e1 & e & [ TENSE past ] ] !>,
  OUTPUT.RELS <! +copy+ & [ ARG0 [ TENSE past ] ] !>,
  FLAGS.EQUAL < #e0, #e1 > ].

conj_pres_ef := monotonic_mtr &
[ INPUT.RELS <! [ PRED conj_rel, 
                 ARG0 #e0 & e & [ TENSE past_or_fut ], 
                 L-INDEX #e1 & e & [ TENSE pres ] ] !>,
  OUTPUT.RELS <! +copy+ & [ ARG0 [ TENSE pres ] ] !>,
  FLAGS.EQUAL < #e0, #e1 > ].

conj_fut_ef := monotonic_mtr &
[ INPUT.RELS <! [ PRED conj_rel, 
                 ARG0 #e0 & e & [ TENSE past_or_pres ], 
                 L-INDEX #e1 & e & [ TENSE fut ] ] !>,
  OUTPUT.RELS <! +copy+ & [ ARG0 [ TENSE fut ] ] !>,
  FLAGS.EQUAL < #e0, #e1 > ].
|#