;;; Hey, emacs(1), this is -*- Mode: TDL; Coding: utf-8; -*- got it? ;;; Author(s): ;;; 2008 Berthold Crysmann ;;; Compound time expressions montagmorgen_split_mtr := day-daytime_split_mtr & [INPUT.RELS <[PRED "de:_montagmorgen_n_rel"]>, OUTPUT.RELS <[CARG "Montag"], [PRED "de:_morgen_n_rel"], ...>]. montagabend_split_mtr := day-daytime_split_mtr & [INPUT.RELS <[PRED "de:_montagabend_n_rel"]>, OUTPUT.RELS <[CARG "Montag"], [PRED "de:_abend_n_rel"], ...>]. montagnachmittag_split_mtr := day-daytime_split_mtr & [INPUT.RELS <[PRED "de:_montagnachmittag_n_rel"]>, OUTPUT.RELS <[CARG "Montag"], [PRED "de:_nachmittag_n_rel"], ...>]. dienstagmorgen_split_mtr := day-daytime_split_mtr & [INPUT.RELS <[PRED "de:_dienstagmorgen_n_rel"]>, OUTPUT.RELS <[CARG "Dienstag"], [PRED "de:_morgen_n_rel"], ...>]. dienstagabend_split_mtr := day-daytime_split_mtr & [INPUT.RELS <[PRED "de:_dienstagabend_n_rel"]>, OUTPUT.RELS <[CARG "Dienstag"], [PRED "de:_abend_n_rel"], ...>]. dienstagmittag_split_mtr := day-daytime_split_mtr & [INPUT.RELS <[PRED "de:_dienstagnachmittag_n_rel"]>, OUTPUT.RELS <[CARG "Dienstag"], [PRED "de:_nachmittag_n_rel"], ...>]. ;;; Ordinary compounds garten-hund_cmp_mtr := compound_split_mtr & [INPUT.RELS <[PRED "de:_gartenhund_n_rel"]>, OUTPUT.RELS <[PRED "de:_garten_n_rel"], [PRED "de:_hund_n_rel"], ...>]. tabak-garten-hund_cmp_mtr := compound_split_mtr & [INPUT.RELS <[PRED "de:_tabakgartenhund_n_rel"]>, OUTPUT.RELS <[PRED "de:_tabakgarten_n_rel"], [PRED "de:_hund_n_rel"], ...>]. garten-tabak-hund_cmp_mtr := compound_split_mtr & [INPUT.RELS <[PRED "de:_gartentabakhund_n_rel"]>, OUTPUT.RELS <[PRED "de:_gartentabak_n_rel"], [PRED "de:_hund_n_rel"], ...>]. tabak-garten_cmp_mtr := compound_split_mtr & [INPUT.RELS <[PRED "de:_tabakgarten_n_rel"]>, OUTPUT.RELS <[PRED "de:_tabak_n_rel"], [PRED "de:_garten_n_rel"], ...>]. garten-tabak_cmp_mtr := compound_split_mtr & [INPUT.RELS <[PRED "de:_gartentabak_n_rel"]>, OUTPUT.RELS <[PRED "de:_garten_n_rel"], [PRED "de:_tabak_n_rel"], ...>].