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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; spell correction: a few high-frequency typos, not introducing ambiguity.
;;; in principle, we should maybe also have confusion pairs (|their|, |there|),
;;; as ambiguity-introducing rules.  but then we would need a way of turning
;;; on this latter class selectively, i.e. when parsing carefully edited text,
;;; these rules would (at best) introduce spurious ambiguity.
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;
;; _fix_me_
;; i wonder whether we should stamp something like [ +CLASS.+ROBUST + ] onto
;; these tokens.  but then we would also need to make sure, at some point, to
;; default everyone else to a non-robust value.                 (24-sep-08; oe)
;;

;;; Lowercase 

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


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

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

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