# *************************************************************************** # * # * Copyright (C) 2004-2016, International Business Machines # * Corporation; Unicode, Inc.; and others. All Rights Reserved. # * # *************************************************************************** # File: Thai_ThaiLogical.txt # Generated from CLDR # # This reverses the Thai LogicalOrderException vowels, and does (part of) spaces # The rules that convert space into semicolon are in another file; # since they have to come BEFORE the break iterator $thai = [[:thai:] ก-\u0E3Aเ-๛] ; # First convert the semicolon back ' ' ← $thai { '; ' } $thai; # Remove any other spaces between thai letters ← $thai { ' ' } $thai; # Now vowels $thai_reversing = [[:Logical_Order_Exception:] & $thai]; $thai_non_reversing = [$thai - $thai_reversing ]; ( $thai_reversing ) ( $thai_non_reversing ) → $2 $1; # other direction $2 $1 ← ( $thai_non_reversing ) ( $thai_reversing ) ;