atk 0.90.2-x86-mingw32

data/vendor/local/src/tml/packaging/glib_2.24.2-2_win32.sh

@@ -0,0 +1,290 @@
+# This is a shell script that calls functions and scripts from
+# tml@iki.fi's personal work environment. It is not expected to be
+# usable unmodified by others, and is included only for reference.
+
+MOD=glib
+VER=2.24.2
+REV=2
+ARCH=win32
+
+THIS=${MOD}_${VER}-${REV}_${ARCH}
+
+RUNZIP=${MOD}_${VER}-${REV}_${ARCH}.zip
+DEVZIP=${MOD}-dev_${VER}-${REV}_${ARCH}.zip
+
+HEX=`echo $THIS | md5sum | cut -d' ' -f1`
+TARGET=c:/devel/target/$HEX
+
+usedev
+usemsvs6
+
+(
+
+set -x
+
+dos2unix glib/win_iconv.c
+
+patch --verbose --fuzz=0 -p1 <<'EOF'
+commit 86156c28b3b5a6cc2a3e22def530c355e9606504
+Author: Tor Lillqvist <tml@iki.fi>
+Date:   Thu Sep 2 22:55:43 2010 +0300
+
+    Reduce DLL hijack risk on Windows
+    
+    Don't call LoadLibrary() on shell32.dll or kernel32.dll. kernel32.dll
+    is always loaded. Shell32.dll is also already loaded as glib links to
+    functions in it. So just call GetModuleHandle() on them.
+    
+    For mlang.dll in win_iconv.c and winhttp.dll in gwinhttpvfs.c, always
+    try loading them from a complete path, from the Windows system
+    directory.
+    
+    Use the "tool help" API to enumerate modules in gmodule-win32.c. It is
+    present in all Windows versions since Windows 2000, which is all we
+    support anyway. Thus no need to look that API up dynamically. Just
+    link to it normally. We can bin the fallback code that attempts to use
+    the psapi API.
+
+diff --git a/gio/win32/gwinhttpvfs.c b/gio/win32/gwinhttpvfs.c
+index 494f53f..1e40324 100644
+--- a/gio/win32/gwinhttpvfs.c
++++ b/gio/win32/gwinhttpvfs.c
+@@ -42,12 +42,23 @@ static GWinHttpDllFuncs funcs;
+ static void
+ lookup_funcs (void)
+ {
+-  HMODULE winhttp;
++  HMODULE winhttp = NULL;
++  char winhttp_dll[MAX_PATH + 100];
++  int n;
+ 
+   if (lookup_done)
+     return;
+ 
+-  winhttp = LoadLibrary ("winhttp.dll");
++  n = GetSystemDirectory (winhttp_dll, MAX_PATH);
++  if (n > 0 && n < MAX_PATH)
++    {
++        if (winhttp_dll[n-1] != '\\' &&
++            winhttp_dll[n-1] != '/')
++            strcat (winhttp_dll, "\\");
++        strcat (winhttp_dll, "winhttp.dll");
++        winhttp = LoadLibrary (winhttp_dll);
++    }
++
+   if (winhttp != NULL)
+     {
+       funcs.pWinHttpCloseHandle = (BOOL (WINAPI *) (HINTERNET)) GetProcAddress (winhttp, "WinHttpCloseHandle");
+diff --git a/glib/gutils.c b/glib/gutils.c
+index 8698746..b89351b 100644
+--- a/glib/gutils.c
++++ b/glib/gutils.c
+@@ -2262,13 +2262,15 @@ load_user_special_dirs (void)
+ 						    HANDLE hToken,
+ 						    PWSTR *ppszPath);
+   t_SHGetKnownFolderPath p_SHGetKnownFolderPath;
++
+   static const GUID FOLDERID_Downloads =
+     { 0x374de290, 0x123f, 0x4565, { 0x91, 0x64, 0x39, 0xc4, 0x92, 0x5e, 0x46, 0x7b } };
+   static const GUID FOLDERID_Public =
+     { 0xDFDF76A2, 0xC82A, 0x4D63, { 0x90, 0x6A, 0x56, 0x44, 0xAC, 0x45, 0x73, 0x85 } };
++
+   wchar_t *wcp;
+ 
+-  p_SHGetKnownFolderPath = (t_SHGetKnownFolderPath) GetProcAddress (LoadLibrary ("shell32.dll"),
++  p_SHGetKnownFolderPath = (t_SHGetKnownFolderPath) GetProcAddress (GetModuleHandle ("shell32.dll"),
+ 								    "SHGetKnownFolderPath");
+ 
+   g_user_special_dirs[G_USER_DIRECTORY_DESKTOP] = get_special_folder (CSIDL_DESKTOPDIRECTORY);
+@@ -2594,7 +2596,7 @@ get_module_for_address (gconstpointer address)
+   if (!beenhere)
+     {
+       p_GetModuleHandleExA =
+-	(t_GetModuleHandleExA) GetProcAddress (LoadLibrary ("kernel32.dll"),
++	(t_GetModuleHandleExA) GetProcAddress (GetModuleHandle ("kernel32.dll"),
+ 					       "GetModuleHandleExA");
+       beenhere = TRUE;
+     }
+diff --git a/glib/win_iconv.c b/glib/win_iconv.c
+index ea19240..6d726d7 100644
+--- a/glib/win_iconv.c
++++ b/glib/win_iconv.c
+@@ -706,10 +706,20 @@ static RFC1766TOLCIDA Rfc1766ToLcidA;
+ static int
+ load_mlang()
+ {
+-    HMODULE h;
++    HMODULE h = NULL;
++    char mlang_dll[MAX_PATH + 100];
++    int n;
+     if (ConvertINetString != NULL)
+         return TRUE;
+-    h = LoadLibrary("mlang.dll");
++    n = GetSystemDirectory(mlang_dll, MAX_PATH);
++    if (n > 0 && n < MAX_PATH)
++    {
++        if (mlang_dll[n-1] != '\\' &&
++            mlang_dll[n-1] != '/')
++            strcat(mlang_dll, "\\");
++        strcat(mlang_dll, "mlang.dll");
++        h = LoadLibrary(mlang_dll);
++    }
+     if (!h)
+         return FALSE;
+     ConvertINetString = (CONVERTINETSTRING)GetProcAddress(h, "ConvertINetString");
+diff --git a/gmodule/gmodule-win32.c b/gmodule/gmodule-win32.c
+index 98d3fb9..439fb5d 100644
+--- a/gmodule/gmodule-win32.c
++++ b/gmodule/gmodule-win32.c
+@@ -110,45 +110,22 @@ _g_module_close (gpointer handle,
+ static gpointer
+ find_in_any_module_using_toolhelp (const gchar *symbol_name)
+ {
+-  typedef HANDLE (WINAPI *PFNCREATETOOLHELP32SNAPSHOT)(DWORD, DWORD);
+-  static PFNCREATETOOLHELP32SNAPSHOT pfnCreateToolhelp32Snapshot = NULL;
+-
+-  typedef BOOL (WINAPI *PFNMODULE32FIRST)(HANDLE, MODULEENTRY32*);
+-  static PFNMODULE32FIRST pfnModule32First= NULL;
+-
+-  typedef BOOL (WINAPI *PFNMODULE32NEXT)(HANDLE, MODULEENTRY32*);
+-  static PFNMODULE32NEXT pfnModule32Next = NULL;
+-
+-  static HMODULE kernel32;
+-
+   HANDLE snapshot; 
+   MODULEENTRY32 me32;
+ 
+   gpointer p;
+ 
+-  if (!pfnCreateToolhelp32Snapshot || !pfnModule32First || !pfnModule32Next)
+-    {
+-      if (!kernel32)
+-	if (!(kernel32 = GetModuleHandle ("kernel32.dll")))
+-	  return NULL;
+-
+-      if (!(pfnCreateToolhelp32Snapshot = (PFNCREATETOOLHELP32SNAPSHOT) GetProcAddress (kernel32, "CreateToolhelp32Snapshot"))
+-	  || !(pfnModule32First = (PFNMODULE32FIRST) GetProcAddress (kernel32, "Module32First"))
+-	  || !(pfnModule32Next = (PFNMODULE32NEXT) GetProcAddress (kernel32, "Module32Next")))
+-	return NULL;
+-    }
+-
+-  if ((snapshot = (*pfnCreateToolhelp32Snapshot) (TH32CS_SNAPMODULE, 0)) == (HANDLE) -1)
++  if ((snapshot = CreateToolhelp32Snapshot (TH32CS_SNAPMODULE, 0)) == (HANDLE) -1)
+     return NULL;
+ 
+   me32.dwSize = sizeof (me32);
+   p = NULL;
+-  if ((*pfnModule32First) (snapshot, &me32))
++  if (Module32First (snapshot, &me32))
+     {
+       do {
+ 	if ((p = GetProcAddress (me32.hModule, symbol_name)) != NULL)
+ 	  break;
+-      } while ((*pfnModule32Next) (snapshot, &me32));
++      } while (Module32Next (snapshot, &me32));
+     }
+ 
+   CloseHandle (snapshot);
+@@ -157,62 +134,11 @@ find_in_any_module_using_toolhelp (const gchar *symbol_name)
+ }
+ 
+ static gpointer
+-find_in_any_module_using_psapi (const gchar *symbol_name)
+-{
+-  static HMODULE psapi = NULL;
+-
+-  typedef BOOL (WINAPI *PFNENUMPROCESSMODULES) (HANDLE, HMODULE *, DWORD, LPDWORD) ;
+-  static PFNENUMPROCESSMODULES pfnEnumProcessModules = NULL;
+-
+-  HMODULE *modules;
+-  HMODULE dummy;
+-  gint i, size;
+-  DWORD needed;
+-  
+-  gpointer p;
+-
+-  if (!pfnEnumProcessModules)
+-    {
+-      if (!psapi)
+-	if ((psapi = LoadLibrary ("psapi.dll")) == NULL)
+-	  return NULL;
+-
+-      if (!(pfnEnumProcessModules = (PFNENUMPROCESSMODULES) GetProcAddress (psapi, "EnumProcessModules")))
+-	return NULL;
+-    }
+-
+-  if (!(*pfnEnumProcessModules) (GetCurrentProcess (), &dummy,
+-				 sizeof (HMODULE), &needed))
+-    return NULL;
+-
+-  size = needed + 10 * sizeof (HMODULE);
+-  modules = g_malloc (size);
+-
+-  if (!(*pfnEnumProcessModules) (GetCurrentProcess (), modules,
+-				 size, &needed)
+-      || needed > size)
+-    {
+-      g_free (modules);
+-      return NULL;
+-    }
+-  
+-  p = NULL;
+-  for (i = 0; i < needed / sizeof (HMODULE); i++)
+-    if ((p = GetProcAddress (modules[i], symbol_name)) != NULL)
+-      break;
+-
+-  g_free (modules);
+-
+-  return p;
+-}
+-
+-static gpointer
+ find_in_any_module (const gchar *symbol_name)
+ {
+   gpointer result;
+ 
+-  if ((result = find_in_any_module_using_toolhelp (symbol_name)) == NULL
+-      && (result = find_in_any_module_using_psapi (symbol_name)) == NULL)
++  if ((result = find_in_any_module_using_toolhelp (symbol_name)) == NULL)
+     return NULL;
+   else
+     return result;
+EOF
+
+DEPS=`latest --arch=${ARCH} gettext-runtime gettext-tools glib pkg-config`
+PROXY_LIBINTL=`latest --arch=${ARCH} proxy-libintl`
+ZLIB=`latest --arch=${ARCH} zlib`
+
+PKG_CONFIG_PATH=/dummy
+for D in $DEPS; do
+    PATH=/devel/dist/${ARCH}/$D/bin:$PATH
+    [ -d /devel/dist/${ARCH}/$D/lib/pkgconfig ] && PKG_CONFIG_PATH=/devel/dist/${ARCH}/$D/lib/pkgconfig:$PKG_CONFIG_PATH
+done
+
+lt_cv_deplibs_check_method='pass_all' \
+CC='gcc -mtune=pentium3 -mthreads' \
+CPPFLAGS="-I/devel/dist/${ARCH}/${PROXY_LIBINTL}/include \
+-I/devel/dist/${ARCH}/${ZLIB}/include" \
+LDFLAGS="-L/devel/dist/${ARCH}/${PROXY_LIBINTL}/lib -Wl,--exclude-libs=libintl.a -Wl,--enable-auto-image-base \
+-L/devel/dist/${ARCH}/${ZLIB}/lib" \
+CFLAGS=-O2 \
+./configure \
+--enable-silent-rules \
+--disable-gtk-doc \
+--prefix=$TARGET &&
+
+make glibconfig.h.win32 &&
+make glibconfig.h &&
+mv glibconfig.h glibconfig.h.autogened &&
+cp glibconfig.h.win32 glibconfig.h &&
+PATH="/devel/target/$HEX/bin:$PATH" make -j3 install &&
+
+./glib-zip &&
+
+mv /tmp/glib-$VER.zip /tmp/$RUNZIP &&
+mv /tmp/glib-dev-$VER.zip /tmp/$DEVZIP
+
+) 2>&1 | tee /devel/src/tml/packaging/$THIS.log
+
+(cd /devel && zip /tmp/$DEVZIP src/tml/packaging/$THIS.{sh,log}) &&
+manifestify /tmp/$RUNZIP /tmp/$DEVZIP