texlive[64420] Build/source/texk/upmendex: upmendex: Fix a bug on

[commits+takuji at tug.org]

Revision: 64420
          http://tug.org/svn/texlive?view=revision&revision=64420
Author:   takuji
Date:     2022-09-17 15:22:22 +0200 (Sat, 17 Sep 2022)
Log Message:
-----------
upmendex: Fix a bug on Thai words

Modified Paths:
--------------
    trunk/Build/source/texk/upmendex/ChangeLog
    trunk/Build/source/texk/upmendex/fwrite.c

Modified: trunk/Build/source/texk/upmendex/ChangeLog
===================================================================
--- trunk/Build/source/texk/upmendex/ChangeLog	2022-09-16 23:49:27 UTC (rev 64419)
+++ trunk/Build/source/texk/upmendex/ChangeLog	2022-09-17 13:22:22 UTC (rev 64420)
@@ -1,3 +1,8 @@
+2022-09-17  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
+
+	* fwrite.c:
+	Fix a bug on Thai words started with vowel followed by consonant.
+
 2022-09-11  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* version 1.03  Stable version.

Modified: trunk/Build/source/texk/upmendex/fwrite.c
===================================================================
--- trunk/Build/source/texk/upmendex/fwrite.c	2022-09-16 23:49:27 UTC (rev 64419)
+++ trunk/Build/source/texk/upmendex/fwrite.c	2022-09-17 13:22:22 UTC (rev 64420)
@@ -927,11 +927,20 @@
 		u_strcpy(ini,hz_index[lo-1].idx);
 		return;
 	}
+	else if (is_thai(&ch)) {
+		if (istr[0]>=0x0E2F && (istr[1]>0x0E00 && istr[1]<0x0E2F)) {
+			/* Vowel followed by Consonant */
+			ini[0]=istr[1];
+		} else {
+			ini[0]=istr[0];
+		}
+		return;
+	}
 	else if (is_devanagari(istr)==2) {
 		ini[0]=istr[0]; ini[1]=istr[1]; ini[2]=L'\0';
 		return;
 	}
-	else if (is_devanagari(&ch)||is_thai(&ch)||is_arabic(&ch)||is_hebrew(&ch)) {
+	else if (is_devanagari(&ch)||is_arabic(&ch)||is_hebrew(&ch)) {
 		if (ch==0x626) {  /* Arabic Letter Yeh with Hamza Above for Uyghur */
 			strY[0]=0x626; strY[1]=L'\0'; /* Yeh with Hamza Above */
 			strZ[0]=0x628; strZ[1]=L'\0'; /* Beh */