| # |
| # Title Casing Break Rules |
| # |
| |
| $CaseIgnorable = [[:Mn:][:Me:][:Cf:][:Lm:][:Sk:] \u0027 \u00AD \u2019]; |
| $OtherUpperCase = [\u2160-\u216f \u24b6-\u24cf]; |
| $OtherLowerCase = [\u02b0-\u02b8 \u02c0-\u02c1 \u02e0-\u02e4 \u0345\u037a \u2170-\u217f \u24d0-\u24e9]; |
| $Cased = [[:Lu:][:Lt:][:Ll:] $OtherUpperCase $OtherLowerCase - $CaseIgnorable]; |
| $NotCased = [^ $Cased $CaseIgnorable]; |
| |
| # |
| # If the iterator was not stopped on a cased character, advance it to the first cased char |
| # |
| ($NotCased | $CaseIgnorable)*; |
| |
| # |
| # If the iterator starts on a cased item, advance through all adjacent cased items plus |
| # any non-cased stuff, to reach the start of the next word. |
| # |
| $Cased ($Cased | $CaseIgnorable)* $NotCased*; |
| |
| |
| # |
| # Reverse Rules |
| # |
| !$NotCased* ($Cased | $CaseIgnorable)* $NotCased*; |
| |