]>
Commit | Line | Data |
---|---|---|
f3c0d7a5 A |
1 | # © 2016 and later: Unicode, Inc. and others. |
2 | # License & terms of use: http://www.unicode.org/copyright.html#License | |
3 | # | |
73c04bcf | 4 | # File: Thai_ThaiLogical.txt |
f3c0d7a5 | 5 | # Generated from CLDR |
73c04bcf | 6 | # |
2ca993e8 A |
7 | |
8 | # This reverses the Thai LogicalOrderException vowels, and does (part of) spaces | |
9 | # The rules that convert space into semicolon are in another file; | |
10 | # since they have to come BEFORE the break iterator | |
73c04bcf | 11 | $thai = [[:thai:] ก-\u0E3Aเ-๛] ; |
2ca993e8 | 12 | # First convert the semicolon back |
51004dcb | 13 | ' ' ← $thai { '; ' } $thai; |
2ca993e8 | 14 | # Remove any other spaces between thai letters |
729e4ab9 | 15 | ← $thai { ' ' } $thai; |
2ca993e8 | 16 | # Now vowels |
374ca955 A |
17 | $thai_reversing = [[:Logical_Order_Exception:] & $thai]; |
18 | $thai_non_reversing = [$thai - $thai_reversing ]; | |
729e4ab9 | 19 | ( $thai_reversing ) ( $thai_non_reversing ) → $2 $1; |
2ca993e8 | 20 | # other direction |
729e4ab9 | 21 | $2 $1 ← ( $thai_non_reversing ) ( $thai_reversing ) ; |
2ca993e8 | 22 |