[apple/icu.git] / icuSources / data / translit / Thai_ThaiLogical.txt

#--------------------------------------------------------------------
# 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
$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 ) ;
Commit	Line	Data
374ca955 A	1	#--------------------------------------------------------------------
	2	# Copyright (c) 1999-2004, International Business Machines
	3	# Corporation and others. All Rights Reserved.
	4	#--------------------------------------------------------------------
	5
	6	# This reverses the Thai LogicalOrderException vowels, and does (part of) spaces
	7	# The rules that convert space into semicolon are in another file;
	8	# since they have to come BEFORE the break iterator
	9
	10	$thai = [[:thai:] \u0E01-\u0E3A\u0E40-\u0E5B] ;
	11
	12	# First convert the semicolon back
	13
	14	' ' < $thai { '; ' } $thai;
	15
	16	# Remove any other spaces between thai letters
	17
	18	< $thai { ' ' } $thai;
	19
	20	# Now vowels
	21	$thai_reversing = [[:Logical_Order_Exception:] & $thai];
	22	$thai_non_reversing = [$thai - $thai_reversing ];
	23
	24	( $thai_reversing ) ( $thai_non_reversing ) > $2 $1;
	25	# other direction
	26	$2 $1 < ( $thai_non_reversing ) ( $thai_reversing ) ;