54 lines
1.6 KiB
Plaintext
54 lines
1.6 KiB
Plaintext
# Copyright (c) 2002-2014, International Business Machines Corporation and
|
|
# others. All Rights Reserved.
|
|
#
|
|
# Title Casing Break Rules
|
|
#
|
|
|
|
|
|
$CaseIgnorable = [[:Mn:][:Me:][:Cf:][:Lm:][:Sk:] \u0027 \u00AD \u2019];
|
|
$Cased = [[:Upper_Case:][:Lower_Case:][:Lt:] - $CaseIgnorable];
|
|
$NotCased = [[^ $Cased] - $CaseIgnorable];
|
|
|
|
!!forward;
|
|
|
|
# If the iterator begins on a CaseIgnorable, advance it past it/them.
|
|
# This can occur at the start-of-text, or after application of the
|
|
# safe-reverse rule.
|
|
|
|
($CaseIgnorable | $NotCased)*;
|
|
|
|
# Normal exact forward rule: beginning at the start of a word
|
|
# (at a cased character), advance through the word and through
|
|
# the uncased characters following the word.
|
|
|
|
$Cased ($Cased | $CaseIgnorable)* ($NotCased | $CaseIgnorable)*;
|
|
|
|
|
|
# Reverse Rules
|
|
!!reverse;
|
|
|
|
# Normal Rule, will work nearly universally, so long as there is a
|
|
# start-of-word preceding the current iteration position.
|
|
|
|
($NotCased | $CaseIgnorable)* ($Cased | $CaseIgnorable)* $Cased;
|
|
|
|
# Short rule, will be effective only when moving to the start of text,
|
|
# with no word (cased character) preceding the current iteration position.
|
|
|
|
($NotCased | $CaseIgnorable)*;
|
|
|
|
!!safe_reverse;
|
|
|
|
# Safe Reverse: the exact forward rule must not start in the middle
|
|
# of a word, so the safe reverse skips over any Cased characters,
|
|
# leaving it just before the start of a word.
|
|
|
|
($Cased | $CaseIgnorable)*;
|
|
|
|
!!safe_forward;
|
|
|
|
# Safe Forward, nothing needs to be done, the exact Reverse rules will
|
|
# always find valid boundaries from any starting position.
|
|
# Still, some rule is needed, so '.', a one character movement.
|
|
.;
|