;;; -*- Mode: tdl; Coding: utf-8; -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; finally, make all non-generic tokens lower case, for lexical look-up. ;;; as a side effect, the rule may also end up `grounding' very underspecified ;;; tokens (which should not exist, at this point, in principle): if +TRAIT, ;;; +CLASS, and +TNT were all unspecific, we end up defaulting their values to ;;; a token that can only activate native lexical entries. ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; downcase_tmr := one_one_form_tmt & [ +INPUT < [ +FORM ^(.*[[:upper:]].*)$, +TRAIT native_trait, +CLASS non_ne, +TNT null_tnt, +STAG #stag ] > , +OUTPUT < [ +FORM "${lc(I1:+FORM:1)}", +STAG #stag] > ].