;;; -*- Mode: TDL; Coding: utf-8 -*- 

;;; HAG (Hausa Grammar)
;;; Author: Berthold Crysmann 
;;; 2009


;;; Process tone and length annotations
;;; Only used in the LKB now.
;;; See tmr/tone.tdl for Pet. 

;;; Infer tone marking regime from annotations present

;;; Consistent (non-robust) tone-marking: infer unmarked tones from tones present


_HH_ir :=
	 %suffix (* _h:)
	 highlong-irule & 
	 [DTR.SUPRA.LM <! longm-clist !>].

_H_ir :=
	%suffix (* _h)
	highshort-irule.

_LL_ir :=
	 %suffix (* _l:)
	 lowlong-irule  & 
	 [DTR.SUPRA.LM <! longm-clist !>].

_L_ir :=
	%suffix (* _l)
	lowshort-irule.

_HL_ir :=
	 %suffix (* _HL)
	 tone-irule &
	 [DTR [SUPRA [LEN.LIST <short, ...>,
		      TONE.LIST <fall, ...>]]].	      	 


_HL_long_ir :=
	      %suffix (* _HL:)
	      longvow-irule & 
	      [DTR [SUPRA [LM <! longm-clist !>,
			   TM <! tm-clist !>,
			   LEN.LIST  <long, ...>,
			   TONE.LIST  <fall, ...>]]].


_**_ir :=
	 %suffix (* _\*:)
	 longvow-irule & 
	 [DTR [SUPRA [LM <! longm-clist !>,
		      TONE.LIST <utone, ...>]]].	      	 

_*_ir :=
	%suffix (* _\*)
	tone-irule  & 
	[SUPRA supra,
	 DTR [SUPRA supra & [LEN.LIST <ulength, ...>,
			     TONE.LIST <utone, ...>]]].