-#--------------------------------------------------------------------
-# Copyright (c) 1999-2004, International Business Machines
-# Corporation and others. All Rights Reserved.
-#--------------------------------------------------------------------
-
-# 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:] \u0E01-\u0E3A\u0E40-\u0E5B] ;
-
-# First convert the semicolon back
-
-' ' < $thai { '; ' } $thai;
-
-# Remove any other spaces between thai letters
-
-< $thai { ' ' } $thai;
-
-# Now vowels
+# ***************************************************************************
+# *
+# * Copyright (C) 2004-2013, International Business Machines
+# * Corporation; Unicode, Inc.; and others. All Rights Reserved.
+# *
+# ***************************************************************************
+# File: Thai_ThaiLogical.txt
+# Generated from CLDR
+#
+$thai = [[:thai:] ก-\u0E3Aเ-๛] ;
+' ' ← $thai { '; ' } $thai;
+← $thai { ' ' } $thai;