683 lines
17 KiB
C
683 lines
17 KiB
C
/*
|
|
* String Table Functions
|
|
*
|
|
* Copyright 2002-2004, Mike McCormack for CodeWeavers
|
|
* Copyright 2007 Robert Shearman for CodeWeavers
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#define COBJMACROS
|
|
|
|
#include <stdarg.h>
|
|
#include <assert.h>
|
|
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "winerror.h"
|
|
#include "wine/debug.h"
|
|
#include "wine/unicode.h"
|
|
#include "msi.h"
|
|
#include "msiquery.h"
|
|
#include "objbase.h"
|
|
#include "objidl.h"
|
|
#include "msipriv.h"
|
|
#include "winnls.h"
|
|
|
|
#include "query.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(msidb);
|
|
|
|
#define HASH_SIZE 0x101
|
|
|
|
typedef struct _msistring
|
|
{
|
|
int hash_next;
|
|
UINT persistent_refcount;
|
|
UINT nonpersistent_refcount;
|
|
LPWSTR str;
|
|
} msistring;
|
|
|
|
struct string_table
|
|
{
|
|
UINT maxcount; /* the number of strings */
|
|
UINT freeslot;
|
|
UINT codepage;
|
|
int hash[HASH_SIZE];
|
|
msistring *strings; /* an array of strings (in the tree) */
|
|
};
|
|
|
|
static UINT msistring_makehash( const WCHAR *str )
|
|
{
|
|
UINT hash = 0;
|
|
|
|
if (str==NULL)
|
|
return hash;
|
|
|
|
while( *str )
|
|
{
|
|
hash ^= *str++;
|
|
hash *= 53;
|
|
hash = (hash<<5) | (hash>>27);
|
|
}
|
|
return hash % HASH_SIZE;
|
|
}
|
|
|
|
static string_table *init_stringtable( int entries, UINT codepage )
|
|
{
|
|
string_table *st;
|
|
int i;
|
|
|
|
st = msi_alloc( sizeof (string_table) );
|
|
if( !st )
|
|
return NULL;
|
|
if( entries < 1 )
|
|
entries = 1;
|
|
st->strings = msi_alloc_zero( sizeof (msistring) * entries );
|
|
if( !st->strings )
|
|
{
|
|
msi_free( st );
|
|
return NULL;
|
|
}
|
|
st->maxcount = entries;
|
|
st->freeslot = 1;
|
|
st->codepage = codepage;
|
|
|
|
for( i=0; i<HASH_SIZE; i++ )
|
|
st->hash[i] = -1;
|
|
|
|
return st;
|
|
}
|
|
|
|
VOID msi_destroy_stringtable( string_table *st )
|
|
{
|
|
UINT i;
|
|
|
|
for( i=0; i<st->maxcount; i++ )
|
|
{
|
|
if( st->strings[i].persistent_refcount ||
|
|
st->strings[i].nonpersistent_refcount )
|
|
msi_free( st->strings[i].str );
|
|
}
|
|
msi_free( st->strings );
|
|
msi_free( st );
|
|
}
|
|
|
|
static int st_find_free_entry( string_table *st )
|
|
{
|
|
UINT i, sz;
|
|
msistring *p;
|
|
|
|
TRACE("%p\n", st);
|
|
|
|
if( st->freeslot )
|
|
{
|
|
for( i = st->freeslot; i < st->maxcount; i++ )
|
|
if( !st->strings[i].persistent_refcount &&
|
|
!st->strings[i].nonpersistent_refcount )
|
|
return i;
|
|
}
|
|
for( i = 1; i < st->maxcount; i++ )
|
|
if( !st->strings[i].persistent_refcount &&
|
|
!st->strings[i].nonpersistent_refcount )
|
|
return i;
|
|
|
|
/* dynamically resize */
|
|
sz = st->maxcount + 1 + st->maxcount/2;
|
|
p = msi_realloc_zero( st->strings, sz*sizeof(msistring) );
|
|
if( !p )
|
|
return -1;
|
|
st->strings = p;
|
|
st->freeslot = st->maxcount;
|
|
st->maxcount = sz;
|
|
if( st->strings[st->freeslot].persistent_refcount ||
|
|
st->strings[st->freeslot].nonpersistent_refcount )
|
|
ERR("oops. expected freeslot to be free...\n");
|
|
return st->freeslot;
|
|
}
|
|
|
|
static void set_st_entry( string_table *st, UINT n, LPWSTR str, UINT refcount, enum StringPersistence persistence )
|
|
{
|
|
UINT hash = msistring_makehash( str );
|
|
|
|
if (persistence == StringPersistent)
|
|
{
|
|
st->strings[n].persistent_refcount = refcount;
|
|
st->strings[n].nonpersistent_refcount = 0;
|
|
}
|
|
else
|
|
{
|
|
st->strings[n].persistent_refcount = 0;
|
|
st->strings[n].nonpersistent_refcount = refcount;
|
|
}
|
|
|
|
st->strings[n].str = str;
|
|
|
|
st->strings[n].hash_next = st->hash[hash];
|
|
st->hash[hash] = n;
|
|
|
|
if( n < st->maxcount )
|
|
st->freeslot = n + 1;
|
|
}
|
|
|
|
static int msi_addstring( string_table *st, UINT n, const CHAR *data, int len, UINT refcount, enum StringPersistence persistence )
|
|
{
|
|
LPWSTR str;
|
|
int sz;
|
|
|
|
if( !data )
|
|
return 0;
|
|
if( !data[0] )
|
|
return 0;
|
|
if( n > 0 )
|
|
{
|
|
if( st->strings[n].persistent_refcount ||
|
|
st->strings[n].nonpersistent_refcount )
|
|
return -1;
|
|
}
|
|
else
|
|
{
|
|
if( ERROR_SUCCESS == msi_string2idA( st, data, &n ) )
|
|
{
|
|
if (persistence == StringPersistent)
|
|
st->strings[n].persistent_refcount += refcount;
|
|
else
|
|
st->strings[n].nonpersistent_refcount += refcount;
|
|
return n;
|
|
}
|
|
n = st_find_free_entry( st );
|
|
if( n < 0 )
|
|
return -1;
|
|
}
|
|
|
|
if( n < 1 )
|
|
{
|
|
ERR("invalid index adding %s (%d)\n", debugstr_a( data ), n );
|
|
return -1;
|
|
}
|
|
|
|
/* allocate a new string */
|
|
if( len < 0 )
|
|
len = strlen(data);
|
|
sz = MultiByteToWideChar( st->codepage, 0, data, len, NULL, 0 );
|
|
str = msi_alloc( (sz+1)*sizeof(WCHAR) );
|
|
if( !str )
|
|
return -1;
|
|
MultiByteToWideChar( st->codepage, 0, data, len, str, sz );
|
|
str[sz] = 0;
|
|
|
|
set_st_entry( st, n, str, refcount, persistence );
|
|
|
|
return n;
|
|
}
|
|
|
|
int msi_addstringW( string_table *st, UINT n, const WCHAR *data, int len, UINT refcount, enum StringPersistence persistence )
|
|
{
|
|
LPWSTR str;
|
|
|
|
/* TRACE("[%2d] = %s\n", string_no, debugstr_an(data,len) ); */
|
|
|
|
if( !data )
|
|
return 0;
|
|
if( !data[0] )
|
|
return 0;
|
|
if( n > 0 )
|
|
{
|
|
if( st->strings[n].persistent_refcount ||
|
|
st->strings[n].nonpersistent_refcount )
|
|
return -1;
|
|
}
|
|
else
|
|
{
|
|
if( ERROR_SUCCESS == msi_string2idW( st, data, &n ) )
|
|
{
|
|
if (persistence == StringPersistent)
|
|
st->strings[n].persistent_refcount += refcount;
|
|
else
|
|
st->strings[n].nonpersistent_refcount += refcount;
|
|
return n;
|
|
}
|
|
n = st_find_free_entry( st );
|
|
if( n < 0 )
|
|
return -1;
|
|
}
|
|
|
|
if( n < 1 )
|
|
{
|
|
ERR("invalid index adding %s (%d)\n", debugstr_w( data ), n );
|
|
return -1;
|
|
}
|
|
|
|
/* allocate a new string */
|
|
if(len<0)
|
|
len = strlenW(data);
|
|
TRACE("%s, n = %d len = %d\n", debugstr_w(data), n, len );
|
|
|
|
str = msi_alloc( (len+1)*sizeof(WCHAR) );
|
|
if( !str )
|
|
return -1;
|
|
TRACE("%d\n",__LINE__);
|
|
memcpy( str, data, len*sizeof(WCHAR) );
|
|
str[len] = 0;
|
|
|
|
set_st_entry( st, n, str, refcount, persistence );
|
|
|
|
return n;
|
|
}
|
|
|
|
/* find the string identified by an id - return null if there's none */
|
|
const WCHAR *msi_string_lookup_id( string_table *st, UINT id )
|
|
{
|
|
static const WCHAR zero[] = { 0 };
|
|
if( id == 0 )
|
|
return zero;
|
|
|
|
if( id >= st->maxcount )
|
|
return NULL;
|
|
|
|
if( id && !st->strings[id].persistent_refcount && !st->strings[id].nonpersistent_refcount)
|
|
return NULL;
|
|
|
|
return st->strings[id].str;
|
|
}
|
|
|
|
/*
|
|
* msi_id2stringW
|
|
*
|
|
* [in] st - pointer to the string table
|
|
* [in] id - id of the string to retrieve
|
|
* [out] buffer - destination of the string
|
|
* [in/out] sz - number of bytes available in the buffer on input
|
|
* number of bytes used on output
|
|
*
|
|
* The size includes the terminating nul character. Short buffers
|
|
* will be filled, but not nul terminated.
|
|
*/
|
|
UINT msi_id2stringW( string_table *st, UINT id, LPWSTR buffer, UINT *sz )
|
|
{
|
|
UINT len;
|
|
const WCHAR *str;
|
|
|
|
TRACE("Finding string %d of %d\n", id, st->maxcount);
|
|
|
|
str = msi_string_lookup_id( st, id );
|
|
if( !str )
|
|
return ERROR_FUNCTION_FAILED;
|
|
|
|
len = strlenW( str ) + 1;
|
|
|
|
if( !buffer )
|
|
{
|
|
*sz = len;
|
|
return ERROR_SUCCESS;
|
|
}
|
|
|
|
if( *sz < len )
|
|
*sz = len;
|
|
memcpy( buffer, str, (*sz)*sizeof(WCHAR) );
|
|
*sz = len;
|
|
|
|
return ERROR_SUCCESS;
|
|
}
|
|
|
|
/*
|
|
* msi_id2stringA
|
|
*
|
|
* [in] st - pointer to the string table
|
|
* [in] id - id of the string to retrieve
|
|
* [out] buffer - destination of the UTF8 string
|
|
* [in/out] sz - number of bytes available in the buffer on input
|
|
* number of bytes used on output
|
|
*
|
|
* The size includes the terminating nul character. Short buffers
|
|
* will be filled, but not nul terminated.
|
|
*/
|
|
UINT msi_id2stringA( string_table *st, UINT id, LPSTR buffer, UINT *sz )
|
|
{
|
|
UINT len;
|
|
const WCHAR *str;
|
|
int n;
|
|
|
|
TRACE("Finding string %d of %d\n", id, st->maxcount);
|
|
|
|
str = msi_string_lookup_id( st, id );
|
|
if( !str )
|
|
return ERROR_FUNCTION_FAILED;
|
|
|
|
len = WideCharToMultiByte( st->codepage, 0, str, -1, NULL, 0, NULL, NULL );
|
|
|
|
if( !buffer )
|
|
{
|
|
*sz = len;
|
|
return ERROR_SUCCESS;
|
|
}
|
|
|
|
if( len > *sz )
|
|
{
|
|
n = strlenW( str ) + 1;
|
|
while( n && (len > *sz) )
|
|
len = WideCharToMultiByte( st->codepage, 0,
|
|
str, --n, NULL, 0, NULL, NULL );
|
|
}
|
|
else
|
|
n = -1;
|
|
|
|
*sz = WideCharToMultiByte( st->codepage, 0, str, n, buffer, len, NULL, NULL );
|
|
|
|
return ERROR_SUCCESS;
|
|
}
|
|
|
|
/*
|
|
* msi_string2idW
|
|
*
|
|
* [in] st - pointer to the string table
|
|
* [in] str - string to find in the string table
|
|
* [out] id - id of the string, if found
|
|
*/
|
|
UINT msi_string2idW( string_table *st, LPCWSTR str, UINT *id )
|
|
{
|
|
UINT n, hash = msistring_makehash( str );
|
|
msistring *se = st->strings;
|
|
|
|
for (n = st->hash[hash]; n != -1; n = st->strings[n].hash_next )
|
|
{
|
|
if ((str == se[n].str) || !lstrcmpW(str, se[n].str))
|
|
{
|
|
*id = n;
|
|
return ERROR_SUCCESS;
|
|
}
|
|
}
|
|
|
|
return ERROR_INVALID_PARAMETER;
|
|
}
|
|
|
|
UINT msi_string2idA( string_table *st, LPCSTR buffer, UINT *id )
|
|
{
|
|
DWORD sz;
|
|
UINT r = ERROR_INVALID_PARAMETER;
|
|
LPWSTR str;
|
|
|
|
TRACE("Finding string %s in string table\n", debugstr_a(buffer) );
|
|
|
|
if( buffer[0] == 0 )
|
|
{
|
|
*id = 0;
|
|
return ERROR_SUCCESS;
|
|
}
|
|
|
|
sz = MultiByteToWideChar( st->codepage, 0, buffer, -1, NULL, 0 );
|
|
if( sz <= 0 )
|
|
return r;
|
|
str = msi_alloc( sz*sizeof(WCHAR) );
|
|
if( !str )
|
|
return ERROR_NOT_ENOUGH_MEMORY;
|
|
MultiByteToWideChar( st->codepage, 0, buffer, -1, str, sz );
|
|
|
|
r = msi_string2idW( st, str, id );
|
|
msi_free( str );
|
|
|
|
return r;
|
|
}
|
|
|
|
UINT msi_strcmp( string_table *st, UINT lval, UINT rval, UINT *res )
|
|
{
|
|
const WCHAR *l_str, *r_str;
|
|
|
|
l_str = msi_string_lookup_id( st, lval );
|
|
if( !l_str )
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
r_str = msi_string_lookup_id( st, rval );
|
|
if( !r_str )
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
/* does this do the right thing for all UTF-8 strings? */
|
|
*res = strcmpW( l_str, r_str );
|
|
|
|
return ERROR_SUCCESS;
|
|
}
|
|
|
|
static void string_totalsize( string_table *st, UINT *datasize, UINT *poolsize )
|
|
{
|
|
UINT i, len, max, holesize;
|
|
|
|
if( st->strings[0].str || st->strings[0].persistent_refcount || st->strings[0].nonpersistent_refcount)
|
|
ERR("oops. element 0 has a string\n");
|
|
|
|
*poolsize = 4;
|
|
*datasize = 0;
|
|
max = 1;
|
|
holesize = 0;
|
|
for( i=1; i<st->maxcount; i++ )
|
|
{
|
|
if( !st->strings[i].persistent_refcount )
|
|
continue;
|
|
if( st->strings[i].str )
|
|
{
|
|
TRACE("[%u] = %s\n", i, debugstr_w(st->strings[i].str));
|
|
len = WideCharToMultiByte( st->codepage, 0,
|
|
st->strings[i].str, -1, NULL, 0, NULL, NULL);
|
|
if( len )
|
|
len--;
|
|
(*datasize) += len;
|
|
if (len>0xffff)
|
|
(*poolsize) += 4;
|
|
max = i + 1;
|
|
(*poolsize) += holesize + 4;
|
|
holesize = 0;
|
|
}
|
|
else
|
|
holesize += 4;
|
|
}
|
|
TRACE("data %u pool %u codepage %x\n", *datasize, *poolsize, st->codepage );
|
|
}
|
|
|
|
static const WCHAR szStringData[] = {
|
|
'_','S','t','r','i','n','g','D','a','t','a',0 };
|
|
static const WCHAR szStringPool[] = {
|
|
'_','S','t','r','i','n','g','P','o','o','l',0 };
|
|
|
|
HRESULT msi_init_string_table( IStorage *stg )
|
|
{
|
|
USHORT zero[2] = { 0, 0 };
|
|
UINT ret;
|
|
|
|
/* create the StringPool stream... add the zero string to it*/
|
|
ret = write_stream_data(stg, szStringPool, zero, sizeof zero, TRUE);
|
|
if (ret != ERROR_SUCCESS)
|
|
return E_FAIL;
|
|
|
|
/* create the StringData stream... make it zero length */
|
|
ret = write_stream_data(stg, szStringData, NULL, 0, TRUE);
|
|
if (ret != ERROR_SUCCESS)
|
|
return E_FAIL;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
string_table *msi_load_string_table( IStorage *stg )
|
|
{
|
|
string_table *st = NULL;
|
|
CHAR *data = NULL;
|
|
USHORT *pool = NULL;
|
|
UINT r, datasize = 0, poolsize = 0, codepage;
|
|
DWORD i, count, offset, len, n, refs;
|
|
|
|
r = read_stream_data( stg, szStringPool, &pool, &poolsize );
|
|
if( r != ERROR_SUCCESS)
|
|
goto end;
|
|
r = read_stream_data( stg, szStringData, (USHORT**)&data, &datasize );
|
|
if( r != ERROR_SUCCESS)
|
|
goto end;
|
|
|
|
count = poolsize/4;
|
|
if( poolsize > 4 )
|
|
codepage = pool[0] | ( pool[1] << 16 );
|
|
else
|
|
codepage = CP_ACP;
|
|
st = init_stringtable( count, codepage );
|
|
|
|
offset = 0;
|
|
n = 1;
|
|
i = 1;
|
|
while( i<count )
|
|
{
|
|
/* the string reference count is always the second word */
|
|
refs = pool[i*2+1];
|
|
|
|
/* empty entries have two zeros, still have a string id */
|
|
if (pool[i*2] == 0 && refs == 0)
|
|
{
|
|
i++;
|
|
n++;
|
|
continue;
|
|
}
|
|
|
|
/*
|
|
* If a string is over 64k, the previous string entry is made null
|
|
* and its the high word of the length is inserted in the null string's
|
|
* reference count field.
|
|
*/
|
|
if( pool[i*2] == 0)
|
|
{
|
|
len = (pool[i*2+3] << 16) + pool[i*2+2];
|
|
i += 2;
|
|
}
|
|
else
|
|
{
|
|
len = pool[i*2];
|
|
i += 1;
|
|
}
|
|
|
|
if ( (offset + len) > datasize )
|
|
{
|
|
ERR("string table corrupt?\n");
|
|
break;
|
|
}
|
|
|
|
r = msi_addstring( st, n, data+offset, len, refs, StringPersistent );
|
|
if( r != n )
|
|
ERR("Failed to add string %d\n", n );
|
|
n++;
|
|
offset += len;
|
|
}
|
|
|
|
if ( datasize != offset )
|
|
ERR("string table load failed! (%08x != %08x), please report\n", datasize, offset );
|
|
|
|
TRACE("Loaded %d strings\n", count);
|
|
|
|
end:
|
|
msi_free( pool );
|
|
msi_free( data );
|
|
|
|
return st;
|
|
}
|
|
|
|
UINT msi_save_string_table( string_table *st, IStorage *storage )
|
|
{
|
|
UINT i, datasize = 0, poolsize = 0, sz, used, r, codepage, n;
|
|
UINT ret = ERROR_FUNCTION_FAILED;
|
|
CHAR *data = NULL;
|
|
USHORT *pool = NULL;
|
|
|
|
TRACE("\n");
|
|
|
|
/* construct the new table in memory first */
|
|
string_totalsize( st, &datasize, &poolsize );
|
|
|
|
TRACE("%u %u %u\n", st->maxcount, datasize, poolsize );
|
|
|
|
pool = msi_alloc( poolsize );
|
|
if( ! pool )
|
|
{
|
|
WARN("Failed to alloc pool %d bytes\n", poolsize );
|
|
goto err;
|
|
}
|
|
data = msi_alloc( datasize );
|
|
if( ! data )
|
|
{
|
|
WARN("Failed to alloc data %d bytes\n", poolsize );
|
|
goto err;
|
|
}
|
|
|
|
used = 0;
|
|
codepage = st->codepage;
|
|
pool[0]=codepage&0xffff;
|
|
pool[1]=(codepage>>16);
|
|
n = 1;
|
|
for( i=1; i<st->maxcount; i++ )
|
|
{
|
|
if( !st->strings[i].persistent_refcount )
|
|
continue;
|
|
sz = datasize - used;
|
|
r = msi_id2stringA( st, i, data+used, &sz );
|
|
if( r != ERROR_SUCCESS )
|
|
{
|
|
ERR("failed to fetch string\n");
|
|
sz = 0;
|
|
}
|
|
if( sz && (sz < (datasize - used ) ) )
|
|
sz--;
|
|
|
|
if (sz)
|
|
pool[ n*2 + 1 ] = st->strings[i].persistent_refcount;
|
|
else
|
|
pool[ n*2 + 1 ] = 0;
|
|
if (sz < 0x10000)
|
|
{
|
|
pool[ n*2 ] = sz;
|
|
n++;
|
|
}
|
|
else
|
|
{
|
|
pool[ n*2 ] = 0;
|
|
pool[ n*2 + 2 ] = sz&0xffff;
|
|
pool[ n*2 + 3 ] = (sz>>16);
|
|
n += 2;
|
|
}
|
|
used += sz;
|
|
if( used > datasize )
|
|
{
|
|
ERR("oops overran %d >= %d\n", used, datasize);
|
|
goto err;
|
|
}
|
|
}
|
|
|
|
if( used != datasize )
|
|
{
|
|
ERR("oops used %d != datasize %d\n", used, datasize);
|
|
goto err;
|
|
}
|
|
|
|
/* write the streams */
|
|
r = write_stream_data( storage, szStringData, data, datasize, TRUE );
|
|
TRACE("Wrote StringData r=%08x\n", r);
|
|
if( r )
|
|
goto err;
|
|
r = write_stream_data( storage, szStringPool, pool, poolsize, TRUE );
|
|
TRACE("Wrote StringPool r=%08x\n", r);
|
|
if( r )
|
|
goto err;
|
|
|
|
ret = ERROR_SUCCESS;
|
|
|
|
err:
|
|
msi_free( data );
|
|
msi_free( pool );
|
|
|
|
return ret;
|
|
}
|