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

ta_X_fatt_mtr := monotonic_mtr &
[ INPUT [ RELS < [ LBL #h5, ARG0 #x3 ] ,
                 [ PRED "_ta*fatt_v_rel", LBL #h0,
                   ARG0 #e1, ARG1 #x2, ARG2 #x3 & x ],
                 [ PRED "def_q_rel", ARG0 #x3, RSTR #h4 ] >,
          HCONS < qeq & [ HARG #h4, LARG #h5 ] > ],
  OUTPUT [ RELS < [ LBL #h7, ARG1 #x2 ],
                  [ PRED "_start_v_1_rel", LBL #h0, ARG0 #e1, ARG1 #h6 ] >,
           HCONS < qeq & [ HARG #h6, LARG #h7 ] > ],
  FLAGS.EQUAL < #x3 > ].

ta_X_fatt_omtr := ta_X_fatt_mtr & optional_mtr.

psp_participle_adjective_attr_mtr := monotonic_mtr &
[ INPUT [ RELS < [ LBL #h4, ARG0 #e2, ARG1 u, ARG2 #p3 & p ],
                 [ PRED prpstn_m_rel, LBL #h1,
                   ARG0 #e2 & e & [ PSVTYPE ptc ],  MARG #h5 ] >,
          HCONS < qeq & [ HARG #h5, LARG #h4 ] > ],
  OUTPUT.RELS < [ LBL #h1,  ARG0 #e2, ARG1 #p3 ] >,
  FLAGS.SUBSUME < #p3 > ].

psp_participle_adjective_attr_omtr := 
psp_participle_adjective_attr_mtr & optional_mtr.

;;; This should fire when the one above does not fire.
;;; Words: interessert, motorisert.                           (6-dec-06; jtl)
psp_participle_adjective_pred_mtr := monotonic_mtr &
[ INPUT [ RELS < [ LBL #h1, ARG0 #e2, ARG1 u, ARG2 #p3 & p ] > ],
  OUTPUT.RELS < [ LBL #h1,  ARG0 #e2, ARG1 #p3 ] >,
  FLAGS.SUBSUME < #p3 > ].

psp_participle_adjective_pred_omtr := 
psp_participle_adjective_pred_mtr & optional_mtr.



;;;
;;; focal adverbs in NorGram are analyzed as part of NPs, e.g. `allerede ti 
;;; biler ankom'.  for some, there are suitable degree specifiers available in
;;; English, others we need to convert to adverbs predicated over the embedding
;;; clause.  maybe we see a genuine difference between the languages here: in
;;; `Abrams ga Browne også epler', the `også' is forced into the NP.
;;; according to dan, there is no corresponding syntactic structure in English
;;; for `also' et al.
;;;

focal_adverb_degree_specifier_mtr := monotonic_mtr &
[ INPUT.RELS < [ LBL #h1, ARG0 #e2, ARG1 #u3 ],
               [ PRED focal_mark, LBL #h1, ARG0 #e2, ARG1 #u3 ] >,
  FILTER.RELS < [ PRED focal_name_mark, LBL #h1, ARG0 #e2, ARG1 #u3 ] >,
  OUTPUT.RELS < [ LBL #h1, ARG0 #e2, ARG1 #u3 ] > ].

focal_adverb_degree_specifier_omtr := 
focal_adverb_degree_specifier_mtr & optional_mtr.


focal_adverb_core_mtr := monotonic_mtr &
[ CONTEXT [ RELS < [ LBL [ SCRATCH one ], ARG0 #e1 & e ],
                   [ PRED quant_rel, LBL #h3, ARG0 #x2 & x, RSTR #h4 ] >,
            HCONS < qeq & [ HARG #h4, LARG [ SCRATCH two ] ] > ],
  INPUT.RELS < [ LBL #h3, ARG0 #e2, ARG1 #u5 ],
               [ PRED focal_mark, LBL #h3, ARG0 #e2, ARG1 #u5 ] >,
  FLAGS.EQUAL < #e1, #x2 > ].

focal_adverb_core_scopal_mtr := focal_adverb_core_mtr &
[ CONTEXT.RELS < [ LBL #h0 ], ... >,
  INPUT.HCONS < qeq & [ LARG #h0 ] > ].

focal_adverb_intersective_arg1_mtr := focal_adverb_core_mtr &
[ CONTEXT.RELS < [ LBL #h0, ARG0 #e0, ARG1 #x2 ], 
                 [ ARG0 #x2 ] >,
  INPUT.RELS < [ ARG0 #e4 ], ... >,
  OUTPUT.RELS < [ LBL #h0, ARG0 #e4, ARG1 #e0 ] > ].

focal_adverb_intersective_arg2_mtr := focal_adverb_core_mtr &
[ CONTEXT.RELS < [ LBL #h0, ARG0 #e0, ARG2 #x2 ], 
                 [ ARG0 #x2 ] >,
  INPUT.RELS < [ ARG0 #e4 ], ... >,
  OUTPUT.RELS < [ LBL #h0, ARG0 #e4, ARG1 #e0 ] > ].

focal_adverb_intersective_arg3_mtr := focal_adverb_core_mtr &
[ CONTEXT.RELS < [ LBL #h0, ARG0 #e0, ARG3 #x2 ], 
                 [ ARG0 #x2 ] >,
  INPUT.RELS < [ ARG0 #e4 ], ... >,
  OUTPUT.RELS < [ LBL #h0, ARG0 #e4, ARG1 #e0 ] > ].

focal_adverb_intersective_arg4_mtr := focal_adverb_core_mtr &
[ CONTEXT.RELS < [ LBL #h0, ARG0 #e0, ARG4 #x2 ], 
                 [ ARG0 #x2 ] >,
  INPUT.RELS < [ ARG0 #e4 ], ... >,
  OUTPUT.RELS < [ LBL #h0, ARG0 #e4, ARG1 #e0 ] > ].

focal_adverb_scopal_arg1_mtr := focal_adverb_core_scopal_mtr &
[ CONTEXT.RELS < [ ARG1 #x2 ], 
                 [ ARG0 #x2 ] >,
  INPUT [ RELS < [ ARG0 #e4 ], ... >,
          HCONS < qeq & [ HARG #h6, LARG #h0 ] > ],
  OUTPUT [ RELS < [ LBL #h7, ARG0 #e4, ARG1 #h8 ] >,
           HCONS < qeq & [ HARG #h6, LARG #h7 ],
                   qeq & [ HARG #h8, LARG #h0 ] > ] ].

focal_adverb_scopal_arg2_mtr := focal_adverb_core_scopal_mtr &
[ CONTEXT.RELS < [ ARG2 #x2 ],
                 [ ARG0 #x2 ] >,
  INPUT [ RELS < [ ARG0 #e4 ], ... >,
          HCONS < qeq & [ HARG #h6, LARG #h0 ] > ],
  OUTPUT [ RELS < [ LBL #h7, ARG0 #e4, ARG1 #h8 ] >,
           HCONS < qeq & [ HARG #h6, LARG #h7 ],
                   qeq & [ HARG #h8, LARG #h0 ] > ] ].

focal_adverb_scopal_arg3_mtr := focal_adverb_core_scopal_mtr &
[ CONTEXT.RELS < [ ARG3 #x2 ],
                 [ ARG0 #x2 ] >,
  INPUT [ RELS < [ ARG0 #e4 ], ... >,
          HCONS < qeq & [ HARG #h6, LARG #h0 ] > ],
  OUTPUT [ RELS < [ LBL #h7, ARG0 #e4, ARG1 #h8 ] >,
           HCONS < qeq & [ HARG #h6, LARG #h7 ],
                   qeq & [ HARG #h8, LARG #h0 ] > ] ].

focal_adverb_scopal_arg4_mtr := focal_adverb_core_scopal_mtr &
[ CONTEXT.RELS < [ ARG4 #x2 ],
                 [ ARG0 #x2 ] >,
  INPUT [ RELS < [ ARG0 #e4 ], ... >,
          HCONS < qeq & [ HARG #h6, LARG #h0 ] > ],
  OUTPUT [ RELS < [ LBL #h7, ARG0 #e4, ARG1 #h8 ] >,
           HCONS < qeq & [ HARG #h6, LARG #h7 ],
                   qeq & [ HARG #h8, LARG #h0 ] > ] ].

focal_ditch_mtr := monotonic_omtr &
[ INPUT.RELS < [ LBL #h1, ARG0 #e2, ARG1 #u3 ],
               [ PRED focal_mark, LBL #h1, ARG0 #e2, ARG1 #u3 ] > ].