trunk/Src/wptNLS.c

/* wptNLS.cpp - W32 Native Language Support
 *      Copyright (C) 2001, 2002, 2003, 2006 Timo Schulz
 *      Copyright (C) 1995-1999 Free Software Foundation, Inc.
 *
 * This code based on the simple-gettext.c code from the GnuPG 
 * by Ulrich Drepper.
 *
 * WinPT is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License 
 * as published by the Free Software Foundation; either version 2 
 * of the License, or (at your option) any later version.
 *  
 * WinPT 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
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License 
 * along with WinPT; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <windows.h>

#include "wptNLS.h"


/* The magic number of the GNU message catalog format.  */
#define MAGIC         0x950412de
#define MAGIC_SWAPPED 0xde120495

/* Revision number of the currently used .mo (binary) file format.  */
#define MO_REVISION_NUMBER 0

#define SWAPIT(flag, data) ((flag) ? do_swap_u32(data) : (data) )


/* We assume to have `unsigned long int' value with at least 32 bits.  */
#define HASHWORDBITS 32

/* Header for binary .mo file format.  */
struct mo_file_header {
    DWORD magic;            /* The magic number.        */
    DWORD revision;         /* The revision number of the file format.  */
    DWORD nstrings;         /* The number of strings pairs.  */
    DWORD orig_tab_offset;  /* Offset of table with start offsets of original 
                                strings.  */
    DWORD trans_tab_offset;   /* Offset of table with start offsets of translation
                             strings.  */
    DWORD hash_tab_size;        /* Size of hashing table.  */
    DWORD hash_tab_offset;    /* Offset of first hashing entry.  */
};

struct string_desc {
    DWORD length; /* Length of addressed string.  */  
    DWORD offset; /* Offset of string in file.  */
};

struct loaded_domain {
  char *data;
  int must_swap;
  DWORD nstrings;
  char *mapped;
  struct string_desc *orig_tab;
  struct string_desc *trans_tab;
  DWORD hash_size;
  DWORD *hash_tab;
};

/* List of all available languages. */
struct lang_table_s lang_list[] = {
    {"en", "English",   LANG_ENGLISH},
    {"de", "German",    LANG_GERMAN},
    {"fr", "French",    LANG_FRENCH},
    {"jp", "Japanese",  LANG_JAPANESE},
    {NULL, 0}
};

/* The current domain. */
static struct loaded_domain *the_domain;


static DWORD
do_swap_u32 (DWORD i)
{
    return (i << 24) | ((i & 0xff00) << 8) | ((i >> 8) & 0xff00) | (i >> 24);
}


/* The so called `hashpjw' function by P.J. Weinberger
   [see Aho/Sethi/Ullman, COMPILERS: Principles, Techniques and Tools,
   1986, 1987 Bell Telephone Laboratories, Inc.]  */

static DWORD
hash_string (const char *str_param)
{
    unsigned long int hval, g;
    const char *str = str_param;

    hval = 0;
    while (*str != '\0') {
        hval <<= 4;
        hval += (unsigned long int) *str++;     
        g = hval & ((unsigned long int) 0xf << (HASHWORDBITS - 4));
        if (g != 0) {
            hval ^= g >> (HASHWORDBITS - 8);
            hval ^= g;  
        }
    }
    return hval;
}

/* Missing W32 functions. */
static char*
w32_stpcpy (char *a,const char *b)
{
    while (*b)
        *a++ = *b++;
    *a = 0;
    return (char*)a;
}


static struct loaded_domain *
load_domain( const char *filename )
{
    FILE *fp;
    size_t size;
    struct stat st;
    struct mo_file_header *data = NULL;
    struct loaded_domain *domain = NULL;
    size_t to_read;
    char *read_ptr;

    fp = fopen( filename, "rb" );
    if( !fp )
       return NULL; /* can't open the file */
    /* we must know about the size of the file */
    if( fstat( fileno(fp ), &st )
        || (size = (size_t)st.st_size) != (size_t)st.st_size
        || size < sizeof (struct mo_file_header) ) {
        fclose( fp );   
        return NULL;
    }

    data = (struct mo_file_header *) malloc( size );
    if( !data ) {
        fclose( fp );
        return NULL; /* out of memory */
    }

    to_read = size;
    read_ptr = (char *) data;
    do {
        size_t nb = fread( read_ptr, 1, to_read, fp );
        if( nb < to_read ) {
            fclose (fp);
            free(data); 
            return NULL; /* read error */
                
        }
        read_ptr += nb; 
        to_read -= nb;
    } while( to_read > 0 );
    fclose (fp);

    /* Using the magic number we can test whether it really is a message
     * catalog file.  */
    if( data->magic != MAGIC && data->magic != MAGIC_SWAPPED ) {
        /* The magic number is wrong: not a message catalog file.  */
        free( data );
        return NULL;
    }

    domain = (struct loaded_domain *)calloc( 1, sizeof *domain );
    if( !domain )  {
        free( data );   
        return NULL;
    }
    domain->data = (char *) data;
    domain->must_swap = data->magic != MAGIC;

    /* Fill in the information about the available tables.  */
    switch( SWAPIT(domain->must_swap, data->revision) ) {
      case 0:
          domain->nstrings = SWAPIT(domain->must_swap, data->nstrings);
          domain->orig_tab = (struct string_desc *)
              ((char *) data + SWAPIT(domain->must_swap, data->orig_tab_offset));
          domain->trans_tab = (struct string_desc *)
              ((char *) data + SWAPIT(domain->must_swap, data->trans_tab_offset));
          domain->hash_size = SWAPIT(domain->must_swap, data->hash_tab_size);   
          domain->hash_tab = (DWORD *)  
              ((char *) data + SWAPIT(domain->must_swap, data->hash_tab_offset));       
          break;

      default: /* This is an invalid revision.  */
          free( data );
          free( domain );
          return NULL;
    }

    /* allocate an array to keep track of code page mappings */
    domain->mapped = (char *)calloc( 1, domain->nstrings );
    if( !domain->mapped ) {
        free( data );
        free( domain ); 
        return NULL;
    }

    return domain;
} /* load_domain */


/* Set the file used for translations. Pass a NULL to disable translation.
   A new filename may be set at anytime. */
int
set_gettext_file( const char *filename, const char *nls_dir )
{
    struct loaded_domain *domain = NULL;

    if( filename && *filename ) {
        if( filename[0] == '/'     
            || ( isalpha(filename[0])            
            && filename[1] == ':'       
            && (filename[2] == '/' || filename[2] == '\\') )
           ) {
            /* absolute path - use it as is */      
            domain = load_domain( filename );
        }
        else { /* relative path - append ".mo" and get dir from the environment */
            char *buf = NULL;
            char *dir;
                
            dir = strdup( nls_dir );
            if( dir && (buf= (char *)malloc(strlen(dir)+strlen(filename)+1+3+1)) ) {
                strcpy(w32_stpcpy(w32_stpcpy(w32_stpcpy( buf, dir),"/"), filename),".mo");
                domain = load_domain( buf );                    
                free(buf);
            }
            free(dir);
        }
        if( !domain )
            return -1;
    }

    if( the_domain ) {
        free( the_domain->data );
        free( the_domain->mapped );
        free( the_domain );     
        the_domain = NULL;
    }
    the_domain = domain;
    return 0;
}


static const char*
get_string( struct loaded_domain *domain, DWORD idx )
{
    char *p = domain->data + SWAPIT(domain->must_swap,
                                    domain->trans_tab[idx].offset);
    if( !domain->mapped[idx] ) {        
        domain->mapped[idx] = 1;                
    }
    return (const char*)p;
}


const char *
gettext( const char *msgid )
{
    struct loaded_domain *domain;
    size_t act = 0;
    size_t top, bottom;

    if (!(domain = the_domain))
        goto not_found;

    /* Locate the MSGID and its translation.  */
    if( domain->hash_size > 2 && domain->hash_tab ) {           
        /* Use the hashing table.  */           
        DWORD len = strlen (msgid);     
        DWORD hash_val = hash_string (msgid);   
        DWORD idx = hash_val % domain->hash_size;       
        DWORD incr = 1 + (hash_val % (domain->hash_size - 2));  
        DWORD nstr = SWAPIT (domain->must_swap, domain->hash_tab[idx]);

        if ( !nstr ) /* Hash table entry is empty.  */  
            goto not_found;

                
        if( SWAPIT(domain->must_swap,   
            domain->orig_tab[nstr - 1].length) == len   
            && !strcmp( msgid,  
            domain->data + SWAPIT(domain->must_swap,
                                    domain->orig_tab[nstr - 1].offset)) )
                                    return get_string( domain, nstr - 1 );
        for(;;) {
            if (idx >= domain->hash_size - incr)
                idx -= domain->hash_size - incr;
            else
                idx += incr;
            nstr = SWAPIT(domain->must_swap, domain->hash_tab[idx]);
            if( !nstr ) 
                goto not_found; /* Hash table entry is empty.  */

            if ( SWAPIT(domain->must_swap,
                                domain->orig_tab[nstr - 1].length) == len
                                && !strcmp (msgid,
                                domain->data + SWAPIT(domain->must_swap,
                                           domain->orig_tab[nstr - 1].offset)))
                        
                                           return get_string( domain, nstr-1 );
        } /* NOTREACHED */
    }

    /* Now we try the default method:  binary search in the sorted
       array of messages.  */
    bottom = 0;
    top = domain->nstrings;
    while( bottom < top ) {             
        int cmp_val;
        
        act = (bottom + top) / 2;       
        cmp_val = strcmp(msgid, domain->data + SWAPIT(domain->must_swap,
                        domain->orig_tab[act].offset));
        if (cmp_val < 0)
            top = act;
        else if (cmp_val > 0)
            bottom = act + 1;
        else    
            return get_string( domain, act );
    }

not_found:
    return msgid;
} /* gettext */


/* Map the user specific language ID to a gettext conform language string.
   Example: LANG_GERMAN -> "de" */
const char*
get_gettext_langid (void)
{
    LANGID lang;
    int i;

    lang = GetUserDefaultLangID ();
    if (PRIMARYLANGID (lang) == LANG_ENGLISH)
        return NULL;

    for (i=0; lang_list[i].id; i++) {
        if (PRIMARYLANGID (lang) == lang_list[i].langid)
            return lang_list[i].id;
    }
    return NULL;
}


/* Take a table with control item IDs and their translation
   and set each text to the translated value. */
void
gettext_localize_dialog (HWND dlg, struct gettext_tab_s *tab,
                         const char *title)
{
    int i;

    for (i=0; tab[i].trans != NULL; i++)
        SetDlgItemText (dlg, tab[i].ctlid, tab[i].trans);
    if (title)
        SetWindowText (dlg, title);
}


/* XXX: this has to be placed in a .c file but not here */
#include <shlobj.h>

void _SHFree (void *p) 
{
    IMalloc *pm; 
    SHGetMalloc(&pm);
    if (pm) {
        pm->lpVtbl->Free(pm,p);
        pm->lpVtbl->Release(pm);
    } 
}
1	werner	36	/* wptNLS.cpp - W32 Native Language Support
2	twoaday	176	* Copyright (C) 2001, 2002, 2003, 2006 Timo Schulz
3	werner	36	* Copyright (C) 1995-1999 Free Software Foundation, Inc.
4			*
5			* This code based on the simple-gettext.c code from the GnuPG
6			* by Ulrich Drepper.
7			*
8			* WinPT is free software; you can redistribute it and/or
9			* modify it under the terms of the GNU General Public License
10			* as published by the Free Software Foundation; either version 2
11			* of the License, or (at your option) any later version.
12			*
13			* WinPT is distributed in the hope that it will be useful,
14			* but WITHOUT ANY WARRANTY; without even the implied warranty of
15			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16			* General Public License for more details.
17			*
18			* You should have received a copy of the GNU General Public License
19			* along with WinPT; if not, write to the Free Software Foundation,
20			* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21			*/
22
23			#ifdef HAVE_CONFIG_H
24			#include <config.h>
25			#endif
26
27			#include <stdio.h>
28			#include <string.h>
29			#include <ctype.h>
30			#include <errno.h>
31			#include <sys/types.h>
32			#include <sys/stat.h>
33			#include <windows.h>
34
35			#include "wptNLS.h"
36
37	twoaday	176
38	werner	36	/* The magic number of the GNU message catalog format. */
39			#define MAGIC 0x950412de
40			#define MAGIC_SWAPPED 0xde120495
41
42			/* Revision number of the currently used .mo (binary) file format. */
43			#define MO_REVISION_NUMBER 0
44
45	twoaday	193	#define SWAPIT(flag, data) ((flag) ? do_swap_u32(data) : (data) )
46	werner	36
47	twoaday	193
48			/* We assume to have `unsigned long int' value with at least 32 bits. */
49			#define HASHWORDBITS 32
50
51	werner	36	/* Header for binary .mo file format. */
52			struct mo_file_header {
53	twoaday	193	DWORD magic; /* The magic number. */
54			DWORD revision; /* The revision number of the file format. */
55			DWORD nstrings; /* The number of strings pairs. */
56			DWORD orig_tab_offset; /* Offset of table with start offsets of original
57			strings. */
58			DWORD trans_tab_offset; /* Offset of table with start offsets of translation
59			strings. */
60			DWORD hash_tab_size; /* Size of hashing table. */
61			DWORD hash_tab_offset; /* Offset of first hashing entry. */
62	werner	36	};
63
64			struct string_desc {
65	twoaday	193	DWORD length; /* Length of addressed string. */
66			DWORD offset; /* Offset of string in file. */
67	werner	36	};
68
69			struct loaded_domain {
70			char *data;
71			int must_swap;
72	twoaday	193	DWORD nstrings;
73	werner	36	char *mapped;
74			struct string_desc *orig_tab;
75			struct string_desc *trans_tab;
76	twoaday	193	DWORD hash_size;
77			DWORD *hash_tab;
78	werner	36	};
79
80	twoaday	193	/* List of all available languages. */
81			struct lang_table_s lang_list[] = {
82			{"en", "English", LANG_ENGLISH},
83			{"de", "German", LANG_GERMAN},
84			{"fr", "French", LANG_FRENCH},
85			{"jp", "Japanese", LANG_JAPANESE},
86			{NULL, 0}
87			};
88
89			/* The current domain. */
90	werner	36	static struct loaded_domain *the_domain;
91
92	twoaday	193
93			static DWORD
94			do_swap_u32 (DWORD i)
95	werner	36	{
96	twoaday	193	return (i << 24) \| ((i & 0xff00) << 8) \| ((i >> 8) & 0xff00) \| (i >> 24);
97	werner	36	}
98
99
100	twoaday	205	/* The so called `hashpjw' function by P.J. Weinberger
101			[see Aho/Sethi/Ullman, COMPILERS: Principles, Techniques and Tools,
102			1986, 1987 Bell Telephone Laboratories, Inc.] */
103	werner	36
104	twoaday	193	static DWORD
105			hash_string (const char *str_param)
106	werner	36	{
107			unsigned long int hval, g;
108			const char *str = str_param;
109
110			hval = 0;
111			while (*str != '\0') {
112			hval <<= 4;
113			hval += (unsigned long int) *str++;
114			g = hval & ((unsigned long int) 0xf << (HASHWORDBITS - 4));
115			if (g != 0) {
116			hval ^= g >> (HASHWORDBITS - 8);
117			hval ^= g;
118			}
119			}
120			return hval;
121	twoaday	193	}
122	werner	36
123	twoaday	205	/* Missing W32 functions. */
124			static char*
125			w32_stpcpy (char a,const char b)
126			{
127			while (*b)
128			a++ = b++;
129			*a = 0;
130			return (char*)a;
131			}
132	werner	36
133	twoaday	205
134
135	werner	36	static struct loaded_domain *
136			load_domain( const char *filename )
137			{
138			FILE *fp;
139			size_t size;
140			struct stat st;
141			struct mo_file_header *data = NULL;
142			struct loaded_domain *domain = NULL;
143			size_t to_read;
144			char *read_ptr;
145
146			fp = fopen( filename, "rb" );
147			if( !fp )
148			return NULL; /* can't open the file */
149			/* we must know about the size of the file */
150			if( fstat( fileno(fp ), &st )
151	twoaday	193	\|\| (size = (size_t)st.st_size) != (size_t)st.st_size
152	werner	36	\|\| size < sizeof (struct mo_file_header) ) {
153			fclose( fp );
154			return NULL;
155			}
156
157			data = (struct mo_file_header *) malloc( size );
158			if( !data ) {
159			fclose( fp );
160			return NULL; /* out of memory */
161			}
162
163			to_read = size;
164			read_ptr = (char *) data;
165			do {
166	twoaday	193	size_t nb = fread( read_ptr, 1, to_read, fp );
167	werner	36	if( nb < to_read ) {
168			fclose (fp);
169			free(data);
170			return NULL; /* read error */
171
172			}
173			read_ptr += nb;
174			to_read -= nb;
175			} while( to_read > 0 );
176			fclose (fp);
177
178			/* Using the magic number we can test whether it really is a message
179			* catalog file. */
180			if( data->magic != MAGIC && data->magic != MAGIC_SWAPPED ) {
181			/* The magic number is wrong: not a message catalog file. */
182			free( data );
183			return NULL;
184			}
185
186			domain = (struct loaded_domain )calloc( 1, sizeof domain );
187			if( !domain ) {
188			free( data );
189			return NULL;
190			}
191			domain->data = (char *) data;
192			domain->must_swap = data->magic != MAGIC;
193
194			/* Fill in the information about the available tables. */
195			switch( SWAPIT(domain->must_swap, data->revision) ) {
196			case 0:
197			domain->nstrings = SWAPIT(domain->must_swap, data->nstrings);
198			domain->orig_tab = (struct string_desc *)
199			((char *) data + SWAPIT(domain->must_swap, data->orig_tab_offset));
200			domain->trans_tab = (struct string_desc *)
201			((char *) data + SWAPIT(domain->must_swap, data->trans_tab_offset));
202			domain->hash_size = SWAPIT(domain->must_swap, data->hash_tab_size);
203	twoaday	193	domain->hash_tab = (DWORD *)
204	werner	36	((char *) data + SWAPIT(domain->must_swap, data->hash_tab_offset));
205			break;
206
207			default: /* This is an invalid revision. */
208			free( data );
209			free( domain );
210			return NULL;
211			}
212
213			/* allocate an array to keep track of code page mappings */
214			domain->mapped = (char *)calloc( 1, domain->nstrings );
215			if( !domain->mapped ) {
216			free( data );
217			free( domain );
218			return NULL;
219			}
220
221			return domain;
222			} /* load_domain */
223
224
225	twoaday	193	/* Set the file used for translations. Pass a NULL to disable translation.
226			A new filename may be set at anytime. */
227	werner	36	int
228			set_gettext_file( const char filename, const char nls_dir )
229			{
230			struct loaded_domain *domain = NULL;
231
232			if( filename && *filename ) {
233			if( filename[0] == '/'
234			\|\| ( isalpha(filename[0])
235			&& filename[1] == ':'
236			&& (filename[2] == '/' \|\| filename[2] == '\\') )
237			) {
238			/* absolute path - use it as is */
239			domain = load_domain( filename );
240			}
241			else { /* relative path - append ".mo" and get dir from the environment */
242			char *buf = NULL;
243			char *dir;
244
245			dir = strdup( nls_dir );
246			if( dir && (buf= (char *)malloc(strlen(dir)+strlen(filename)+1+3+1)) ) {
247	twoaday	69	strcpy(w32_stpcpy(w32_stpcpy(w32_stpcpy( buf, dir),"/"), filename),".mo");
248	werner	36	domain = load_domain( buf );
249			free(buf);
250			}
251			free(dir);
252			}
253			if( !domain )
254			return -1;
255			}
256
257			if( the_domain ) {
258			free( the_domain->data );
259			free( the_domain->mapped );
260			free( the_domain );
261			the_domain = NULL;
262			}
263			the_domain = domain;
264			return 0;
265	twoaday	193	}
266	werner	36
267
268			static const char*
269	twoaday	193	get_string( struct loaded_domain *domain, DWORD idx )
270	werner	36	{
271			char *p = domain->data + SWAPIT(domain->must_swap,
272			domain->trans_tab[idx].offset);
273			if( !domain->mapped[idx] ) {
274			domain->mapped[idx] = 1;
275			}
276			return (const char*)p;
277	twoaday	193	}
278	werner	36
279	twoaday	193
280	werner	36	const char *
281			gettext( const char *msgid )
282			{
283			struct loaded_domain *domain;
284			size_t act = 0;
285			size_t top, bottom;
286
287	twoaday	205	if (!(domain = the_domain))
288	werner	36	goto not_found;
289
290			/* Locate the MSGID and its translation. */
291			if( domain->hash_size > 2 && domain->hash_tab ) {
292			/* Use the hashing table. */
293	twoaday	193	DWORD len = strlen (msgid);
294			DWORD hash_val = hash_string (msgid);
295			DWORD idx = hash_val % domain->hash_size;
296			DWORD incr = 1 + (hash_val % (domain->hash_size - 2));
297			DWORD nstr = SWAPIT (domain->must_swap, domain->hash_tab[idx]);
298	werner	36
299			if ( !nstr ) /* Hash table entry is empty. */
300			goto not_found;
301
302
303			if( SWAPIT(domain->must_swap,
304			domain->orig_tab[nstr - 1].length) == len
305			&& !strcmp( msgid,
306			domain->data + SWAPIT(domain->must_swap,
307			domain->orig_tab[nstr - 1].offset)) )
308			return get_string( domain, nstr - 1 );
309			for(;;) {
310			if (idx >= domain->hash_size - incr)
311			idx -= domain->hash_size - incr;
312			else
313			idx += incr;
314			nstr = SWAPIT(domain->must_swap, domain->hash_tab[idx]);
315			if( !nstr )
316			goto not_found; /* Hash table entry is empty. */
317
318			if ( SWAPIT(domain->must_swap,
319			domain->orig_tab[nstr - 1].length) == len
320			&& !strcmp (msgid,
321			domain->data + SWAPIT(domain->must_swap,
322			domain->orig_tab[nstr - 1].offset)))
323
324			return get_string( domain, nstr-1 );
325			} /* NOTREACHED */
326			}
327
328			/* Now we try the default method: binary search in the sorted
329			array of messages. */
330			bottom = 0;
331			top = domain->nstrings;
332			while( bottom < top ) {
333			int cmp_val;
334
335			act = (bottom + top) / 2;
336			cmp_val = strcmp(msgid, domain->data + SWAPIT(domain->must_swap,
337			domain->orig_tab[act].offset));
338			if (cmp_val < 0)
339			top = act;
340			else if (cmp_val > 0)
341			bottom = act + 1;
342			else
343			return get_string( domain, act );
344			}
345
346			not_found:
347			return msgid;
348			} /* gettext */
349
350	twoaday	176
351	twoaday	193	/* Map the user specific language ID to a gettext conform language string.
352	twoaday	76	Example: LANG_GERMAN -> "de" */
353			const char*
354			get_gettext_langid (void)
355			{
356			LANGID lang;
357			int i;
358	twoaday	176
359	twoaday	76	lang = GetUserDefaultLangID ();
360	twoaday	193	if (PRIMARYLANGID (lang) == LANG_ENGLISH)
361			return NULL;
362	twoaday	176
363	twoaday	193	for (i=0; lang_list[i].id; i++) {
364			if (PRIMARYLANGID (lang) == lang_list[i].langid)
365			return lang_list[i].id;
366	twoaday	76	}
367			return NULL;
368			}
369	werner	36
370	twoaday	76
371	twoaday	176	/* Take a table with control item IDs and their translation
372			and set each text to the translated value. */
373			void
374			gettext_localize_dialog (HWND dlg, struct gettext_tab_s *tab,
375			const char *title)
376			{
377			int i;
378
379			for (i=0; tab[i].trans != NULL; i++)
380			SetDlgItemText (dlg, tab[i].ctlid, tab[i].trans);
381			if (title)
382			SetWindowText (dlg, title);
383			}
384
385
386	werner	36	/* XXX: this has to be placed in a .c file but not here */
387			#include <shlobj.h>
388
389			void _SHFree (void *p)
390			{
391			IMalloc *pm;
392			SHGetMalloc(&pm);
393			if (pm) {
394			pm->lpVtbl->Free(pm,p);
395			pm->lpVtbl->Release(pm);
396			}
397			}