#include "windef.h"
#include "winbase.h"
#include "winerror.h"
-#include "winreg.h"
#include "wine/debug.h"
-#include "fdi.h"
#include "msi.h"
-#include "msiquery.h"
-#include "fcntl.h"
-#include "objbase.h"
-#include "objidl.h"
#include "msipriv.h"
#include "winnls.h"
-#include "winuser.h"
-#include "shlobj.h"
#include "wine/unicode.h"
-#include "winver.h"
#include "action.h"
WINE_DEFAULT_DEBUG_CHANNEL(msi);
-LPWSTR build_default_format(MSIRECORD* record)
+static DWORD deformat_string_internal(MSIPACKAGE *package, LPCWSTR ptr,
+ WCHAR** data, DWORD len, MSIRECORD* record,
+ BOOL* in_group);
+
+
+static LPWSTR build_default_format(MSIRECORD* record)
{
int i;
int count;
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;
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;
return value;
}
+/*
+ * Groups cannot be nested. They are just treated as from { to next }
+ */
+static BOOL find_next_group(LPCWSTR source, DWORD len_remaining,
+ LPWSTR *group, LPCWSTR *mark,
+ LPCWSTR* mark2)
+{
+ int i;
+ BOOL found = FALSE;
+
+ *mark = scanW(source,'{',len_remaining);
+ if (!*mark)
+ return FALSE;
+
+ for (i = 1; (*mark - source) + i < len_remaining; i++)
+ {
+ if ((*mark)[i] == '}')
+ {
+ found = TRUE;
+ break;
+ }
+ }
+ if (! found)
+ return FALSE;
+
+ *mark2 = &(*mark)[i];
+
+ i = *mark2 - *mark;
+ *group = HeapAlloc(GetProcessHeap(),0,i*sizeof(WCHAR));
+
+ i -= 1;
+ memcpy(*group,&(*mark)[1],i*sizeof(WCHAR));
+ (*group)[i] = 0;
+
+ TRACE("Found group %s\n",debugstr_w(*group));
+ return TRUE;
+}
+
+
static BOOL find_next_outermost_key(LPCWSTR source, DWORD len_remaining,
LPWSTR *key, LPCWSTR *mark, LPCWSTR* mark2,
BOOL *nested)
return TRUE;
}
+static LPWSTR deformat_group(MSIPACKAGE* package, LPWSTR group, DWORD len,
+ MSIRECORD* record, DWORD* size)
+{
+ LPWSTR value;
+ LPCWSTR mark, mark2;
+ LPWSTR key;
+ BOOL nested;
+ INT failcount;
+ static const WCHAR fmt[] = {'{','%','s','}',0};
+ UINT sz;
+
+ if (!group || group[0] == 0)
+ {
+ *size = 0;
+ return NULL;
+ }
+ /* if no [] then group is returned as is */
+
+ if (!find_next_outermost_key(group, len, &key, &mark, &mark2, &nested))
+ {
+ *size = (len+2)*sizeof(WCHAR);
+ value = HeapAlloc(GetProcessHeap(),0,*size);
+ sprintfW(value,fmt,group);
+ /* do not return size of the null at the end */
+ *size = (len+1)*sizeof(WCHAR);
+ return value;
+ }
+
+ HeapFree(GetProcessHeap(),0,key);
+ failcount = 0;
+ sz = deformat_string_internal(package, group, &value, strlenW(group),
+ record, &failcount);
+ if (failcount==0)
+ {
+ *size = sz * sizeof(WCHAR);
+ return value;
+ }
+ else if (failcount < 0)
+ {
+ LPWSTR v2;
+
+ v2 = HeapAlloc(GetProcessHeap(),0,(sz+2)*sizeof(WCHAR));
+ v2[0] = '{';
+ memcpy(&v2[1],value,sz*sizeof(WCHAR));
+ v2[sz+1]='}';
+ HeapFree(GetProcessHeap(),0,value);
+
+ *size = (sz+2)*sizeof(WCHAR);
+ return v2;
+ }
+ else
+ {
+ *size = 0;
+ return NULL;
+ }
+}
+
/*
* len is in WCHARs
* return is also in WCHARs
*/
static DWORD deformat_string_internal(MSIPACKAGE *package, LPCWSTR ptr,
- WCHAR** data, DWORD len, MSIRECORD* record)
+ WCHAR** data, DWORD len, MSIRECORD* record,
+ INT* failcount)
{
LPCWSTR mark = NULL;
LPCWSTR mark2 = NULL;
return 0;
}
- TRACE("Starting with %s\n",debugstr_w(ptr));
+ TRACE("Starting with %s\n",debugstr_wn(ptr,len));
/* scan for special characters... fast exit */
- if (!scanW(ptr,'[',len) || (scanW(ptr,'[',len) && !scanW(ptr,']',len)))
+ if ((!scanW(ptr,'[',len) || (scanW(ptr,'[',len) && !scanW(ptr,']',len))) &&
+ (scanW(ptr,'{',len) && !scanW(ptr,'}',len)))
{
/* not formatted */
*data = HeapAlloc(GetProcessHeap(),0,(len*sizeof(WCHAR)));
memcpy(*data,ptr,len*sizeof(WCHAR));
- TRACE("Returning %s\n",debugstr_w(*data));
+ TRACE("Returning %s\n",debugstr_wn(*data,len));
return len;
}
while (progress - ptr < len)
{
+ /* seek out first group if existing */
+ if (find_next_group(progress, len - (progress - ptr), &key,
+ &mark, &mark2))
+ {
+ value = deformat_group(package, key, strlenW(key)+1, record,
+ &chunk);
+ key = NULL;
+ nested = FALSE;
+ }
/* formatted string located */
- if (!find_next_outermost_key(progress, len - (progress - ptr), &key,
- &mark, &mark2, &nested))
+ else if (!find_next_outermost_key(progress, len - (progress - ptr),
+ &key, &mark, &mark2, &nested))
{
LPBYTE nd2;
- TRACE("after value %s .. %s\n",debugstr_w((LPWSTR)newdata),
- debugstr_w(mark));
+ TRACE("after value %s \n",debugstr_wn((LPWSTR)newdata,
+ size/sizeof(WCHAR)));
chunk = (len - (progress - ptr)) * sizeof(WCHAR);
TRACE("after chunk is %li + %li\n",size,chunk);
if (size)
{
TRACE("Nested key... %s\n",debugstr_w(key));
deformat_string_internal(package, key, &value, strlenW(key)+1,
- record);
+ record, failcount);
HeapFree(GetProcessHeap(),0,key);
key = value;
}
- TRACE("Current %s .. %s\n",debugstr_w((LPWSTR)newdata),debugstr_w(key));
+ TRACE("Current %s .. %s\n",debugstr_wn((LPWSTR)newdata,
+ size/sizeof(WCHAR)),debugstr_w(key));
if (!package)
{
/* only deformat number indexs */
- if (is_key_number(key))
+ if (key && is_key_number(key))
+ {
value = deformat_index(record,key,&chunk);
+ if (!chunk && failcount && *failcount >= 0)
+ (*failcount)++;
+ }
else
{
- DWORD keylen = strlenW(key);
- chunk = (keylen + 2)*sizeof(WCHAR);
- value = HeapAlloc(GetProcessHeap(),0,chunk);
- value[0] = '[';
- memcpy(&value[1],key,keylen*sizeof(WCHAR));
- value[1+keylen] = ']';
+ if (failcount)
+ *failcount = -1;
+ if(key)
+ {
+ DWORD keylen = strlenW(key);
+ chunk = (keylen + 2)*sizeof(WCHAR);
+ value = HeapAlloc(GetProcessHeap(),0,chunk);
+ value[0] = '[';
+ memcpy(&value[1],key,keylen*sizeof(WCHAR));
+ value[1+keylen] = ']';
+ }
}
}
else
{
sz = 0;
- switch (key[0])
+ if (key) switch (key[0])
{
case '~':
value = deformat_NULL(&chunk);
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);
value = deformat_environment(package,&key[1],&chunk);
break;
default:
+ /* index keys cannot be nested */
if (is_key_number(key))
- value = deformat_index(record,key,&chunk);
+ if (!nested)
+ value = deformat_index(record,key,&chunk);
+ else
+ {
+ static const WCHAR fmt[] = {'[','%','s',']',0};
+ value = HeapAlloc(GetProcessHeap(),0,10);
+ sprintfW(value,fmt,key);
+ chunk = strlenW(value)*sizeof(WCHAR);
+ }
else
value = deformat_property(package,key,&chunk);
break;
size+=chunk;
HeapFree(GetProcessHeap(),0,value);
}
+ else if (failcount && *failcount >=0 )
+ (*failcount)++;
progress = mark2+1;
}
- TRACE("after everything %s\n",debugstr_w((LPWSTR)newdata));
+ TRACE("after everything %s\n",debugstr_wn((LPWSTR)newdata,
+ size/sizeof(WCHAR)));
*data = (LPWSTR)newdata;
return size / sizeof(WCHAR);
TRACE("(%s)\n",debugstr_w(rec));
len = deformat_string_internal(package,rec,&deformated,strlenW(rec),
- record);
+ record, NULL);
if (buffer)
{
TRACE("(%s)\n",debugstr_w(rec));
len = deformat_string_internal(package,rec,&deformated,strlenW(rec),
- record);
+ record, NULL);
lenA = WideCharToMultiByte(CP_ACP,0,deformated,len,NULL,0,NULL,NULL);
if (buffer)