1 # ***************************************************************************
3 # * Copyright (C) 2004-2016, International Business Machines
4 # * Corporation; Unicode, Inc.; and others. All Rights Reserved.
6 # ***************************************************************************
12 # Remove \0301 following Greek, with possible intervening 0308 marks.
13 # [[:Greek:] & [:Ll:]] [\u0308]? { \u0301 → ;
14 # Make any string of letters after a cased letter be lower, with rules for sigma
15 [:cased:] [:case-ignorable:]* { Σ } [:case-ignorable:]* [:cased:] → σ;
16 [:cased:] [:case-ignorable:]* { Σ → ς;
17 [:cased:] [:case-ignorable:]* { (.) → &Any-Lower($1) ;
18 # Otherwise all lowercase go to upper (titlecase stay as is)
19 ([:Lowercase:]) → &Any-Title($1) ;