1 # Copyright (c) 2002-2003, International Business Machines Corporation and
2 # others. All Rights Reserved.
4 # Title Casing Break Rules
7 $CaseIgnorable = [[:Mn:][:Me:][:Cf:][:Lm:][:Sk:] \u0027 \u00AD \u2019];
8 $Cased = [[:Upper_Case:][:Lower_Case:][:Lt:] - $CaseIgnorable];
9 $NotCased = [^ $Cased];
12 # If the iterator was not stopped on a cased character, advance it to the first cased char
17 # If the iterator starts on a cased item, advance through all adjacent cased items plus
18 # any non-cased stuff, to reach the start of the next word.
20 $Cased ($Cased | $CaseIgnorable)* $NotCased*;
29 # If the iterator starts on a cased item, advance through all adjacent cased items plus
30 # any non-cased stuff, to reach the start of the next word.
32 ! $NotCased* ($Cased | $CaseIgnorable)* $Cased;