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


;;; Fix variation in suprasegmental marking: 
;;; Replace macron with geminated vowels
;;; Replace composite unicode chars with precomposed chars


a_highshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(á)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}á${I1:+FORM:3}" ] > ].

e_highshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(é)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}é${I1:+FORM:3}" ] > ].

i_highshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(í)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}í${I1:+FORM:3}" ] > ].

o_highshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ó)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ó${I1:+FORM:3}" ] > ].

u_highshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ú)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ú${I1:+FORM:3}" ] > ].


a_highlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ā́|ā́)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}áá${I1:+FORM:3}" ] > ].

e_highlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ḗ|ḗ)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}éé${I1:+FORM:3}" ] > ].

i_highlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ī́|ī́)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}íí${I1:+FORM:3}" ] > ].

o_highlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ṓ|ṓ)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}óó${I1:+FORM:3}" ] > ].

u_highlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ū́|ū́)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}úú${I1:+FORM:3}" ] > ].


a_lowlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ā̀|ā̀)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}àà${I1:+FORM:3}" ] > ].


e_lowlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ḕ|ḕ)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}èè${I1:+FORM:3}" ] > ].

i_lowlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ī̀|ī̀)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ìì${I1:+FORM:3}" ] > ].

o_lowlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ṑ|ṑ)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}òò${I1:+FORM:3}" ] > ].

u_lowlong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ū̀|ū̀)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ùù${I1:+FORM:3}" ] > ].

a_lowshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(à)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}à${I1:+FORM:3}" ] > ].


e_lowshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(è)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}è${I1:+FORM:3}" ] > ].

i_lowshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ì)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ì${I1:+FORM:3}" ] > ].

o_lowshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ò)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ò${I1:+FORM:3}" ] > ].

u_lowshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ù)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ù${I1:+FORM:3}" ] > ].


a_falllong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ā̂|ā̂)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ââ${I1:+FORM:3}" ] > ].

e_falllong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ē̂|ē̂)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}êê${I1:+FORM:3}" ] > ].

i_falllong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ī̂|ī̂)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}îî${I1:+FORM:3}" ] > ].

o_falllong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ō̂|ō̂)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ôô${I1:+FORM:3}" ] > ].

u_falllong_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ū̂|ū̂)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ûû${I1:+FORM:3}" ] > ].


a_fallshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(â)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}â${I1:+FORM:3}" ] > ].

e_fallshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ê)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ê${I1:+FORM:3}" ] > ].

i_fallshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(î)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}î${I1:+FORM:3}" ] > ].

o_fallshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ô)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ô${I1:+FORM:3}" ] > ].

u_fallshort_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(û)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}û${I1:+FORM:3}" ] > ].

a_long_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ā|ā)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}aa${I1:+FORM:3}" ] > ].

e_long_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ē|ē)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ee${I1:+FORM:3}" ] > ].

i_long_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ī|ī)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ii${I1:+FORM:3}" ] > ].

o_long_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ō|ō)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}oo${I1:+FORM:3}" ] > ].

u_long_composite_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)(ū|ū)(.*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}uu${I1:+FORM:3}" ] > ].





;;; Lowercase 

downcase_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*[[:upper:]].*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${lc(I1:+FORM:1)}" ] > ].


ɓ_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)b'([wyaeiouáéíóúàèìòùâêîôû].*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ɓ${I1:+FORM:2}" ] > ].

ɗ_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)d'([wyaeiouáéíóúàèìòùâêîôû].*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ɗ${I1:+FORM:2}" ] > ].

ƙ_tmr := one_one_form_tmt &
		[ +INPUT < [ +FORM ^(.*)k'([wyaeiouáéíóúàèìòùâêîôû].*)$] > ,
		  +CONTEXT <>,
		  +OUTPUT < [ +FORM "${I1:+FORM:1}ƙ${I1:+FORM:2}" ] > ].