From 48c11f1e805ffa32e2150427ae64f9ffc0e3bafa Mon Sep 17 00:00:00 2001
From: Alexandre Julliard <julliard@winehq.org>
Date: Fri, 27 Nov 2020 16:40:37 +0100
Subject: [PATCH] server: Use l_intl.nls for case mappings.

Signed-off-by: Alexandre Julliard <julliard@winehq.org>
---
 server/Makefile.in |  2 ++
 server/main.c      |  2 ++
 server/unicode.c   | 76 ++++++++++++++++++++++++++++++++++++++++++++--
 server/unicode.h   |  1 +
 4 files changed, 79 insertions(+), 2 deletions(-)

diff --git a/server/Makefile.in b/server/Makefile.in
index e90c5d1336c..4264e3db108 100644
--- a/server/Makefile.in
+++ b/server/Makefile.in
@@ -50,3 +50,5 @@ MANPAGES = \
 	wineserver.man.in
 
 EXTRALIBS = $(LDEXECFLAGS) $(POLL_LIBS) $(RT_LIBS) $(INOTIFY_LIBS)
+
+unicode_EXTRADEFS = -DNLSDIR="\"${nlsdir}\"" -DBIN_TO_NLSDIR=\"`$(MAKEDEP) -R ${bindir} ${nlsdir}`\"
diff --git a/server/main.c b/server/main.c
index efb205f5292..5d7881a6af9 100644
--- a/server/main.c
+++ b/server/main.c
@@ -36,6 +36,7 @@
 #include "file.h"
 #include "thread.h"
 #include "request.h"
+#include "unicode.h"
 
 /* command-line options */
 int debug_level = 0;
@@ -143,6 +144,7 @@ int main( int argc, char *argv[] )
     if (debug_level) fprintf( stderr, "wineserver: starting (pid=%ld)\n", (long) getpid() );
     set_current_time();
     init_signals();
+    load_intl_file();
     init_directories();
     init_registry();
     main_loop();
diff --git a/server/unicode.c b/server/unicode.c
index 8d6c411cb66..0dde757313b 100644
--- a/server/unicode.c
+++ b/server/unicode.c
@@ -24,6 +24,7 @@
 #include <ctype.h>
 #include <stdio.h>
 
+#include "request.h"
 #include "unicode.h"
 
 /* number of following bytes in sequence based on first byte value (for bytes above 0x7f) */
@@ -45,6 +46,8 @@ static const unsigned char utf8_mask[4] = { 0x7f, 0x1f, 0x0f, 0x07 };
 /* minimum Unicode value depending on UTF-8 sequence length */
 static const unsigned int utf8_minval[4] = { 0x0, 0x80, 0x800, 0x10000 };
 
+static unsigned short *casemap;
+
 static inline char to_hex( char ch )
 {
     if (isdigit(ch)) return ch - '0';
@@ -53,8 +56,7 @@ static inline char to_hex( char ch )
 
 static inline WCHAR to_lower( WCHAR ch )
 {
-    extern const WCHAR wine_casemap_lower[];
-    return ch + wine_casemap_lower[wine_casemap_lower[ch >> 8] + (ch & 0xff)];
+    return ch + casemap[casemap[casemap[ch >> 8] + ((ch >> 4) & 0x0f)] + (ch & 0x0f)];
 }
 
 int memicmp_strW( const WCHAR *str1, const WCHAR *str2, data_size_t len )
@@ -224,3 +226,73 @@ int dump_strW( const WCHAR *str, data_size_t len, FILE *f, const char escape[2]
     count += pos - buffer;
     return count;
 }
+
+static char *get_nls_dir(void)
+{
+    char *p, *dir, *ret;
+    const char *nlsdir = BIN_TO_NLSDIR;
+
+#if defined(__linux__) || defined(__FreeBSD_kernel__) || defined(__NetBSD__)
+    dir = realpath( "/proc/self/exe", NULL );
+#elif defined (__FreeBSD__) || defined(__DragonFly__)
+    dir = realpath( "/proc/curproc/file", NULL );
+#else
+    dir = realpath( server_argv0, NULL );
+#endif
+    if (!dir) return NULL;
+    if (!(p = strrchr( dir, '/' )))
+    {
+        free( dir );
+        return NULL;
+    }
+    *(++p) = 0;
+    if (p > dir + 8 && !strcmp( p - 8, "/server/" )) nlsdir = "../nls";  /* inside build tree */
+    if ((ret = malloc( strlen(dir) + strlen( nlsdir ) + 1 )))
+    {
+        strcpy( ret, dir );
+        strcat( ret, nlsdir );
+    }
+    free( dir );
+    return ret;
+}
+
+/* load the case mapping table */
+void load_intl_file(void)
+{
+    static const char *nls_dirs[] = { NULL, NLSDIR, "/usr/local/share/wine/nls", "/usr/share/wine/nls" };
+    unsigned int i, offset, size;
+    unsigned short data;
+    char *path;
+    int unix_fd = -1;
+
+    nls_dirs[0] = get_nls_dir();
+    for (i = 0; i < ARRAY_SIZE( nls_dirs ); i++)
+    {
+        if (!nls_dirs[i]) continue;
+        if (!(path = malloc( strlen(nls_dirs[i]) + sizeof("/l_intl.nls" )))) continue;
+        strcpy( path, nls_dirs[i] );
+        strcat( path, "/l_intl.nls" );
+        if ((unix_fd = open( path, O_RDONLY )) != -1) break;
+        free( path );
+    }
+    if (unix_fd == -1) fatal_error( "failed to load l_intl.nls\n" );
+    /* read initial offset */
+    if (pread( unix_fd, &data, sizeof(data), 0 ) != sizeof(data) || !data) goto failed;
+    offset = data;
+    /* read size of uppercase table */
+    if (pread( unix_fd, &data, sizeof(data), offset * 2 ) != sizeof(data) || !data) goto failed;
+    offset += data;
+    /* read size of lowercase table */
+    if (pread( unix_fd, &data, sizeof(data), offset * 2 ) != sizeof(data) || !data) goto failed;
+    offset++;
+    size = data - 1;
+    /* read lowercase table */
+    if (!(casemap = malloc( size * 2 ))) goto failed;
+    if (pread( unix_fd, casemap, size * 2, offset * 2 ) != size * 2) goto failed;
+    close( unix_fd );
+    free( path );
+    return;
+
+failed:
+    fatal_error( "invalid format for casemap table %s\n", path );
+}
diff --git a/server/unicode.h b/server/unicode.h
index c280fb8e7d1..ddbbe4b5cfc 100644
--- a/server/unicode.h
+++ b/server/unicode.h
@@ -31,5 +31,6 @@ extern unsigned int hash_strW( const WCHAR *str, data_size_t len, unsigned int h
 extern WCHAR *ascii_to_unicode_str( const char *str, struct unicode_str *ret );
 extern int parse_strW( WCHAR *buffer, data_size_t *len, const char *src, char endchar );
 extern int dump_strW( const WCHAR *str, data_size_t len, FILE *f, const char escape[2] );
+extern void load_intl_file(void);
 
 #endif  /* __WINE_SERVER_UNICODE_H */