1 # © 2016 and later: Unicode, Inc. and others.
2 # License & terms of use: http://www.unicode.org/copyright.html#License
4 # File: Thai_ThaiLogical.txt
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
11 $thai = [[:thai:] ก-\u0E3Aเ-๛] ;
12 # First convert the semicolon back
13 ' ' ← $thai { '; ' } $thai;
14 # Remove any other spaces between thai letters
15 ← $thai { ' ' } $thai;
17 $thai_reversing = [[:Logical_Order_Exception:] & $thai];
18 $thai_non_reversing = [$thai - $thai_reversing ];
19 ( $thai_reversing ) ( $thai_non_reversing ) → $2 $1;
21 $2 $1 ← ( $thai_non_reversing ) ( $thai_reversing ) ;