1 # ***************************************************************************
3 # * Copyright (C) 2004-2014, International Business Machines
4 # * Corporation; Unicode, Inc.; and others. All Rights Reserved.
6 # ***************************************************************************
7 # File: Thai_ThaiLogical.txt
10 $thai = [[:thai:] ก-\u0E3Aเ-๛] ;
11 ' ' ← $thai { '; ' } $thai;
12 ← $thai { ' ' } $thai;
13 $thai_reversing = [[:Logical_Order_Exception:] & $thai];
14 $thai_non_reversing = [$thai - $thai_reversing ];
15 ( $thai_reversing ) ( $thai_non_reversing ) → $2 $1;
16 $2 $1 ← ( $thai_non_reversing ) ( $thai_reversing ) ;