From 825920a0909e267a49c33bf25124012ac980abba Mon Sep 17 00:00:00 2001
From: Aric Stewart <aric@codeweavers.com>
Date: Wed, 25 May 2005 17:49:49 +0000
Subject: [PATCH] Implement the [!file] format to produce the short filename.

---
 dlls/msi/format.c | 35 +++++++++++++++++++++++++++++++----
 1 file changed, 31 insertions(+), 4 deletions(-)

diff --git a/dlls/msi/format.c b/dlls/msi/format.c
index d8d78827e46..e6e82080eec 100644
--- a/dlls/msi/format.c
+++ b/dlls/msi/format.c
@@ -101,7 +101,8 @@ static LPWSTR deformat_component(MSIPACKAGE* package, LPCWSTR key, DWORD* sz)
     return value;
 }
 
-static LPWSTR deformat_file(MSIPACKAGE* package, LPCWSTR key, DWORD* sz)
+static LPWSTR deformat_file(MSIPACKAGE* package, LPCWSTR key, DWORD* sz, 
+                            BOOL shortname)
 {
     LPWSTR value = NULL;
     INT index;
@@ -114,8 +115,32 @@ static LPWSTR deformat_file(MSIPACKAGE* package, LPCWSTR key, DWORD* sz)
     index = get_loaded_file(package,key);
     if (index >=0)
     {
-        value = strdupW(package->files[index].TargetPath);
-        *sz = (strlenW(value)) * sizeof(WCHAR);
+        if (!shortname)
+        {
+            value = strdupW(package->files[index].TargetPath);
+            *sz = (strlenW(value)) * sizeof(WCHAR);
+        }
+        else
+        {
+            DWORD size = 0;
+            size = GetShortPathNameW(package->files[index].TargetPath, NULL, 0);
+
+            if (size > 0)
+            {
+                *sz = (size-1) * sizeof (WCHAR);
+                size ++;
+                value = HeapAlloc(GetProcessHeap(),0,size * sizeof(WCHAR));
+                GetShortPathNameW(package->files[index].TargetPath, value, 
+                                  size);
+            }
+            else
+            {
+                ERR("Unable to get ShortPath size (%s)\n", 
+                                debugstr_w(package->files[index].TargetPath));
+                value = NULL;
+                *sz = 0;
+            }
+        }
     }
 
     return value;
@@ -378,8 +403,10 @@ static DWORD deformat_string_internal(MSIPACKAGE *package, LPCWSTR ptr,
                     value = deformat_component(package,&key[1],&chunk);
                 break;
                 case '#':
+                    value = deformat_file(package,&key[1], &chunk, FALSE);
+                break;
                 case '!': /* should be short path */
-                    value = deformat_file(package,&key[1], &chunk);
+                    value = deformat_file(package,&key[1], &chunk, TRUE);
                 break;
                 case '\\':
                     value = deformat_escape(&key[1],&chunk);