2 # Copyright (C) 2002-2011, International Business Machines Corporation
3 # and others. All Rights Reserved.
8 # See Unicode Standard Annex #29.
9 # These rules are based on UAX #29 Revision 19 for Unicode Version 6.1
11 # Note: Updates to word.txt will usually need to be merged into
12 # word_POSIX.txt and word_ja.txt also.
14 ##############################################################################
16 # Character class definitions from TR 29
18 ##############################################################################
24 # Character Class Definitions.
27 $CR = [\p{Word_Break = CR}];
28 $LF = [\p{Word_Break = LF}];
29 $Newline = [\p{Word_Break = Newline}];
30 $Extend = [\p{Word_Break = Extend}];
31 $Format = [\p{Word_Break = Format}];
32 $Katakana = [\p{Word_Break = Katakana}];
33 $ALetter = [\p{Word_Break = ALetter}];
34 $MidNumLet = [\p{Word_Break = MidNumLet}];
35 $MidLetter = [\p{Word_Break = MidLetter}];
36 $MidNum = [\p{Word_Break = MidNum}];
37 $Numeric = [\p{Word_Break = Numeric}];
38 $ExtendNumLet = [\p{Word_Break = ExtendNumLet}];
41 # Dictionary character set, for triggering language-based break engines. Currently
42 # limited to LineBreak=Complex_Context. Note that this set only works in Unicode
43 # 5.0 or later as the definition of Complex_Context was corrected to include all
44 # characters requiring dictionary break.
46 $dictionary = [:LineBreak = Complex_Context:];
47 $Control = [\p{Grapheme_Cluster_Break = Control}];
48 $ALetterPlus = [$ALetter [$dictionary-$Extend-$Control]]; # Note: default ALetter does not
49 # include the dictionary characters.
52 # Rules 4 Ignore Format and Extend characters,
53 # except when they appear at the beginning of a region of text.
55 $KatakanaEx = $Katakana ($Extend | $Format)*;
56 $ALetterEx = $ALetterPlus ($Extend | $Format)*;
57 $MidNumLetEx = $MidNumLet ($Extend | $Format)*;
58 $MidLetterEx = $MidLetter ($Extend | $Format)*;
59 $MidNumEx = $MidNum ($Extend | $Format)*;
60 $NumericEx = $Numeric ($Extend | $Format)*;
61 $ExtendNumLetEx = $ExtendNumLet ($Extend | $Format)*;
63 $Hiragana = [\p{script=Hiragana}];
64 $Ideographic = [\p{Ideographic} [\u3005 \u3007 \u303B]];
65 $HiraganaEx = $Hiragana ($Extend | $Format)*;
66 $IdeographicEx = $Ideographic ($Extend | $Format)*;
68 ## -------------------------------------------------
77 # Rule 4 - ignore Format and Extend characters, except when they appear at the beginning
78 # of a region of Text. The rule here comes into play when the start of text
79 # begins with a group of Format chars, or with a "word" consisting of a single
80 # char that is not in any of the listed word break categories followed by
82 [^$CR $LF $Newline]? ($Extend | $Format)+;
86 $KatakanaEx {300}; # note: these status values override those from rule 5
87 $HiraganaEx {300}; # by virtual of being numerically larger.
88 $IdeographicEx {400}; #
92 # Do not break between most letters.
94 $ALetterEx $ALetterEx {200};
97 $ALetterEx ($MidLetterEx | $MidNumLetEx) $ALetterEx {200};
101 $NumericEx $NumericEx {100};
105 $ALetterEx $NumericEx {200};
109 $NumericEx $ALetterEx {200};
113 $NumericEx ($MidNumEx | $MidNumLetEx) $NumericEx {100};
117 $KatakanaEx $KatakanaEx {300};
118 $HiraganaEx $HiraganaEx {300};
119 $IdeographicEx $IdeographicEx {400};
124 $ALetterEx $ExtendNumLetEx {200}; # (13a)
125 $NumericEx $ExtendNumLetEx {100}; # (13a)
126 $KatakanaEx $ExtendNumLetEx {300}; # (13a)
127 $ExtendNumLetEx $ExtendNumLetEx {200}; # (13a)
129 $ExtendNumLetEx $ALetterEx {200}; # (13b)
130 $ExtendNumLetEx $NumericEx {100}; # (13b)
131 $ExtendNumLetEx $KatakanaEx {300}; # (13b)
135 ## -------------------------------------------------
139 $BackALetterEx = ($Format | $Extend)* $ALetterPlus;
140 $BackMidNumLetEx = ($Format | $Extend)* $MidNumLet;
141 $BackNumericEx = ($Format | $Extend)* $Numeric;
142 $BackMidNumEx = ($Format | $Extend)* $MidNum;
143 $BackMidLetterEx = ($Format | $Extend)* $MidLetter;
144 $BackKatakanaEx = ($Format | $Extend)* $Katakana;
145 $BackHiraganaEx = ($Format | $Extend)* $Hiragana;
146 $BackIdeographicEx = ($Format | $Extend)* $Ideographic;
147 $BackExtendNumLetEx= ($Format | $Extend)* $ExtendNumLet;
153 ($Format | $Extend)* [^$CR $LF $Newline]?;
157 $BackALetterEx $BackALetterEx;
161 $BackALetterEx ($BackMidLetterEx | $BackMidNumLetEx) $BackALetterEx;
166 $BackNumericEx $BackNumericEx;
170 $BackNumericEx $BackALetterEx;
174 $BackALetterEx $BackNumericEx;
178 $BackNumericEx ($BackMidNumEx | $BackMidNumLetEx) $BackNumericEx;
182 $BackKatakanaEx $BackKatakanaEx;
183 $BackHiraganaEx $BackHiraganaEx;
184 $BackIdeographicEx $BackIdeographicEx;
190 $BackExtendNumLetEx ($BackALetterEx | $BackNumericEx | $BackKatakanaEx | $BackExtendNumLetEx);
191 ($BackALetterEx | $BackNumericEx | $BackKatakanaEx) $BackExtendNumLetEx;
193 ## -------------------------------------------------
198 ($Extend | $Format)+ .?;
201 ($MidLetter | $MidNumLet) $BackALetterEx;
204 ($MidNum | $MidNumLet) $BackNumericEx;
206 # For dictionary-based break
207 $dictionary $dictionary;
209 ## -------------------------------------------------
214 ($Extend | $Format)+ .?;
217 ($MidLetterEx | $MidNumLetEx) $ALetterEx;
220 ($MidNumEx | $MidNumLetEx) $NumericEx;
222 # For dictionary-based break
223 $dictionary $dictionary;