source: trunk/src/version/info.c@ 2652

Last change on this file since 2652 was 2373, checked in by sandervl, 26 years ago

compile fix
File size: 16.7 KB
Line 
1/* $Id: info.c,v 1.2 2000-01-08 14:27:33 sandervl Exp $ */
2/*
3 * Implementation of VERSION.DLL - Version Info access (Wine 991212)
4 *
5 * Copyright 1996,1997 Marcus Meissner
6 * Copyright 1997 David Cuthbert
7 * Copyright 1999 Ulrich Weigand
8 */
9
10#include <stdlib.h>
11#include <string.h>
12
13#include "winreg.h"
14#include "winver.h"
15#include "wine/winestring.h"
16#include "winerror.h"
17#include "heap.h"
18#include "crtdll.h"
19#include "debugtools.h"
20#include <misc.h>
21
22DEFAULT_DEBUG_CHANNEL(ver)
23
24
25/******************************************************************************
26 *
27 * This function will print via dprintf[_]ver to stddeb debug info regarding
28 * the file info structure vffi.
29 * 15-Feb-1998 Dimitrie Paun (dimi@cs.toronto.edu)
30 * Added this function to clean up the code.
31 *
32 *****************************************************************************/
33static void print_vffi_debug(VS_FIXEDFILEINFO *vffi)
34{
35 TRACE(" structversion=%u.%u, fileversion=%u.%u.%u.%u, productversion=%u.%u.%u.%u, flagmask=0x%lx, flags=%s%s%s%s%s%s\n",
36 HIWORD(vffi->dwStrucVersion),LOWORD(vffi->dwStrucVersion),
37 HIWORD(vffi->dwFileVersionMS),LOWORD(vffi->dwFileVersionMS),
38 HIWORD(vffi->dwFileVersionLS),LOWORD(vffi->dwFileVersionLS),
39 HIWORD(vffi->dwProductVersionMS),LOWORD(vffi->dwProductVersionMS),
40 HIWORD(vffi->dwProductVersionLS),LOWORD(vffi->dwProductVersionLS),
41 vffi->dwFileFlagsMask,
42 (vffi->dwFileFlags & VS_FF_DEBUG) ? "DEBUG," : "",
43 (vffi->dwFileFlags & VS_FF_PRERELEASE) ? "PRERELEASE," : "",
44 (vffi->dwFileFlags & VS_FF_PATCHED) ? "PATCHED," : "",
45 (vffi->dwFileFlags & VS_FF_PRIVATEBUILD) ? "PRIVATEBUILD," : "",
46 (vffi->dwFileFlags & VS_FF_INFOINFERRED) ? "INFOINFERRED," : "",
47 (vffi->dwFileFlags & VS_FF_SPECIALBUILD) ? "SPECIALBUILD," : ""
48 );
49
50 TRACE("(");
51 DPRINTF(" OS=0x%x.0x%x ",
52 HIWORD(vffi->dwFileOS),
53 LOWORD(vffi->dwFileOS)
54 );
55 switch (vffi->dwFileOS&0xFFFF0000) {
56 case VOS_DOS:DPRINTF("DOS,");break;
57 case VOS_OS216:DPRINTF("OS/2-16,");break;
58 case VOS_OS232:DPRINTF("OS/2-32,");break;
59 case VOS_NT:DPRINTF("NT,");break;
60 case VOS_UNKNOWN:
61 default:
62 DPRINTF("UNKNOWN(0x%lx),",vffi->dwFileOS&0xFFFF0000);break;
63 }
64 switch (LOWORD(vffi->dwFileOS)) {
65 case VOS__BASE:DPRINTF("BASE");break;
66 case VOS__WINDOWS16:DPRINTF("WIN16");break;
67 case VOS__WINDOWS32:DPRINTF("WIN32");break;
68 case VOS__PM16:DPRINTF("PM16");break;
69 case VOS__PM32:DPRINTF("PM32");break;
70 default:DPRINTF("UNKNOWN(0x%x)",LOWORD(vffi->dwFileOS));break;
71 }
72 DPRINTF(")\n");
73
74 switch (vffi->dwFileType) {
75 default:
76 case VFT_UNKNOWN:
77 TRACE("filetype=Unknown(0x%lx)",vffi->dwFileType);
78 break;
79 case VFT_APP:TRACE("filetype=APP,");break;
80 case VFT_DLL:TRACE("filetype=DLL,");break;
81 case VFT_DRV:
82 TRACE("filetype=DRV,");
83 switch(vffi->dwFileSubtype) {
84 default:
85 case VFT2_UNKNOWN:
86 DPRINTF("UNKNOWN(0x%lx)",vffi->dwFileSubtype);
87 break;
88 case VFT2_DRV_PRINTER:
89 DPRINTF("PRINTER");
90 break;
91 case VFT2_DRV_KEYBOARD:
92 DPRINTF("KEYBOARD");
93 break;
94 case VFT2_DRV_LANGUAGE:
95 DPRINTF("LANGUAGE");
96 break;
97 case VFT2_DRV_DISPLAY:
98 DPRINTF("DISPLAY");
99 break;
100 case VFT2_DRV_MOUSE:
101 DPRINTF("MOUSE");
102 break;
103 case VFT2_DRV_NETWORK:
104 DPRINTF("NETWORK");
105 break;
106 case VFT2_DRV_SYSTEM:
107 DPRINTF("SYSTEM");
108 break;
109 case VFT2_DRV_INSTALLABLE:
110 DPRINTF("INSTALLABLE");
111 break;
112 case VFT2_DRV_SOUND:
113 DPRINTF("SOUND");
114 break;
115 case VFT2_DRV_COMM:
116 DPRINTF("COMM");
117 break;
118 case VFT2_DRV_INPUTMETHOD:
119 DPRINTF("INPUTMETHOD");
120 break;
121 }
122 break;
123 case VFT_FONT:
124 TRACE("filetype=FONT.");
125 switch (vffi->dwFileSubtype) {
126 default:
127 DPRINTF("UNKNOWN(0x%lx)",vffi->dwFileSubtype);
128 break;
129 case VFT2_FONT_RASTER:DPRINTF("RASTER");break;
130 case VFT2_FONT_VECTOR:DPRINTF("VECTOR");break;
131 case VFT2_FONT_TRUETYPE:DPRINTF("TRUETYPE");break;
132 }
133 break;
134 case VFT_VXD:TRACE("filetype=VXD");break;
135 case VFT_STATIC_LIB:TRACE("filetype=STATIC_LIB");break;
136 }
137 DPRINTF("\n");
138 TRACE(" filedata=0x%lx.0x%lx\n",
139 vffi->dwFileDateMS,vffi->dwFileDateLS);
140}
141
142
143/***********************************************************************
144 * Version Info Structure
145 */
146
147typedef struct
148{
149 WORD wLength;
150 WORD wValueLength;
151 CHAR szKey[1];
152#if 0 /* variable length structure */
153 /* DWORD aligned */
154 BYTE Value[];
155 /* DWORD aligned */
156 VS_VERSION_INFO_STRUCT16 Children[];
157#endif
158} VS_VERSION_INFO_STRUCT16;
159
160typedef struct
161{
162 WORD wLength;
163 WORD wValueLength;
164 WORD bText;
165 WCHAR szKey[1];
166#if 0 /* variable length structure */
167 /* DWORD aligned */
168 BYTE Value[];
169 /* DWORD aligned */
170 VS_VERSION_INFO_STRUCT32 Children[];
171#endif
172} VS_VERSION_INFO_STRUCT32;
173
174#define VersionInfoIs16( ver ) \
175 ( ((VS_VERSION_INFO_STRUCT16 *)ver)->szKey[0] >= ' ' )
176
177#define DWORD_ALIGN( ptr ) ((LPBYTE)( (((DWORD)(ptr)) + 3) & ~3 ))
178
179#define VersionInfo16_Value( ver ) \
180 DWORD_ALIGN( (ver)->szKey + lstrlenA((ver)->szKey) + 1 )
181#define VersionInfo32_Value( ver ) \
182 DWORD_ALIGN( (ver)->szKey + lstrlenW((ver)->szKey) + 1 )
183
184#define VersionInfo16_Children( ver ) \
185 (VS_VERSION_INFO_STRUCT16 *)( VersionInfo16_Value( ver ) + \
186 ( ( (ver)->wValueLength + 3 ) & ~3 ) )
187#define VersionInfo32_Children( ver ) \
188 (VS_VERSION_INFO_STRUCT32 *)( VersionInfo32_Value( ver ) + \
189 ( ( (ver)->wValueLength * \
190 ((ver)->bText? 2 : 1) + 3 ) & ~3 ) )
191
192#define VersionInfo16_Next( ver ) \
193 (VS_VERSION_INFO_STRUCT16 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) )
194#define VersionInfo32_Next( ver ) \
195 (VS_VERSION_INFO_STRUCT32 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) )
196
197#ifndef __WIN32OS2__
198/***********************************************************************
199 * ConvertVersionInfo32To16 [internal]
200 */
201void ConvertVersionInfo32To16( VS_VERSION_INFO_STRUCT32 *info32,
202 VS_VERSION_INFO_STRUCT16 *info16 )
203{
204 /* Copy data onto local stack to prevent overwrites */
205 WORD wLength = info32->wLength;
206 WORD wValueLength = info32->wValueLength;
207 WORD bText = info32->bText;
208 LPBYTE lpValue = VersionInfo32_Value( info32 );
209 VS_VERSION_INFO_STRUCT32 *child32 = VersionInfo32_Children( info32 );
210 VS_VERSION_INFO_STRUCT16 *child16;
211
212 TRACE("Converting %p to %p\n", info32, info16 );
213 TRACE("wLength %d, wValueLength %d, bText %d, value %p, child %p\n",
214 wLength, wValueLength, bText, lpValue, child32 );
215
216 /* Convert key */
217 lstrcpyWtoA( info16->szKey, info32->szKey );
218
219 TRACE("Copied key from %p to %p: %s\n", info32->szKey, info16->szKey,
220 debugstr_a(info16->szKey) );
221
222 /* Convert value */
223 if ( wValueLength == 0 )
224 {
225 info16->wValueLength = 0;
226 TRACE("No value present\n" );
227 }
228 else if ( bText )
229 {
230 info16->wValueLength = lstrlenW( (LPCWSTR)lpValue ) + 1;
231 lstrcpyWtoA( VersionInfo16_Value( info16 ), (LPCWSTR)lpValue );
232
233 TRACE("Copied value from %p to %p: %s\n", lpValue,
234 VersionInfo16_Value( info16 ),
235 debugstr_a(VersionInfo16_Value( info16 )) );
236 }
237 else
238 {
239 info16->wValueLength = wValueLength;
240 memmove( VersionInfo16_Value( info16 ), lpValue, wValueLength );
241
242 TRACE("Copied value from %p to %p: %d bytes\n", lpValue,
243 VersionInfo16_Value( info16 ), wValueLength );
244 }
245
246 /* Convert children */
247 child16 = VersionInfo16_Children( info16 );
248 while ( (DWORD)child32 < (DWORD)info32 + wLength )
249 {
250 VS_VERSION_INFO_STRUCT32 *nextChild = VersionInfo32_Next( child32 );
251
252 ConvertVersionInfo32To16( child32, child16 );
253
254 child16 = VersionInfo16_Next( child16 );
255 child32 = nextChild;
256 }
257
258 /* Fixup length */
259 info16->wLength = (DWORD)child16 - (DWORD)info16;
260
261 TRACE("Finished, length is %d (%p - %p)\n",
262 info16->wLength, info16, child16 );
263}
264
265
266/***********************************************************************
267 * GetFileVersionInfoSize32A [VERSION.2]
268 */
269DWORD WINAPI GetFileVersionInfoSizeA( LPCSTR filename, LPDWORD handle )
270{
271 VS_FIXEDFILEINFO *vffi;
272 DWORD len, ret, offset;
273 BYTE buf[144];
274
275 TRACE("(%s,%p)\n", debugstr_a(filename), handle );
276
277 len = GetFileResourceSize( filename,
278 MAKEINTRESOURCEA(VS_FILE_INFO),
279 MAKEINTRESOURCEA(VS_VERSION_INFO),
280 &offset );
281 if (!len) return 0;
282
283 ret = GetFileResource( filename,
284 MAKEINTRESOURCEA(VS_FILE_INFO),
285 MAKEINTRESOURCEA(VS_VERSION_INFO),
286 offset, sizeof( buf ), buf );
287 if (!ret) return 0;
288
289 if ( handle ) *handle = offset;
290
291 if ( VersionInfoIs16( buf ) )
292 vffi = (VS_FIXEDFILEINFO *)VersionInfo16_Value( (VS_VERSION_INFO_STRUCT16 *)buf );
293 else
294 vffi = (VS_FIXEDFILEINFO *)VersionInfo32_Value( (VS_VERSION_INFO_STRUCT32 *)buf );
295
296 if ( vffi->dwSignature != VS_FFI_SIGNATURE )
297 {
298 WARN("vffi->dwSignature is 0x%08lx, but not 0x%08lx!\n",
299 vffi->dwSignature, VS_FFI_SIGNATURE );
300 return 0;
301 }
302
303 if ( ((VS_VERSION_INFO_STRUCT16 *)buf)->wLength < len )
304 len = ((VS_VERSION_INFO_STRUCT16 *)buf)->wLength;
305
306 if ( TRACE_ON(ver) )
307 print_vffi_debug( vffi );
308
309 return len;
310}
311
312/***********************************************************************
313 * GetFileVersionInfoSize32W [VERSION.3]
314 */
315DWORD WINAPI GetFileVersionInfoSizeW( LPCWSTR filename, LPDWORD handle )
316{
317 LPSTR fn = HEAP_strdupWtoA( GetProcessHeap(), 0, filename );
318 DWORD ret = GetFileVersionInfoSizeA( fn, handle );
319 HeapFree( GetProcessHeap(), 0, fn );
320 return ret;
321}
322
323/***********************************************************************
324 * GetFileVersionInfo32A [VERSION.1]
325 */
326DWORD WINAPI GetFileVersionInfoA( LPCSTR filename, DWORD handle,
327 DWORD datasize, LPVOID data )
328{
329 TRACE("(%s,%ld,size=%ld,data=%p)\n",
330 debugstr_a(filename), handle, datasize, data );
331
332 if ( !GetFileResource( filename, MAKEINTRESOURCEA(VS_FILE_INFO),
333 MAKEINTRESOURCEA(VS_VERSION_INFO),
334 handle, datasize, data ) )
335 return FALSE;
336
337 if ( datasize >= sizeof(VS_VERSION_INFO_STRUCT16)
338 && datasize >= ((VS_VERSION_INFO_STRUCT16 *)data)->wLength
339 && !VersionInfoIs16( data ) )
340 {
341 /* convert resource from PE format to NE format */
342 ConvertVersionInfo32To16( (VS_VERSION_INFO_STRUCT32 *)data,
343 (VS_VERSION_INFO_STRUCT16 *)data );
344 }
345
346 return TRUE;
347}
348
349/***********************************************************************
350 * GetFileVersionInfo32W [VERSION.4]
351 */
352DWORD WINAPI GetFileVersionInfoW( LPCWSTR filename, DWORD handle,
353 DWORD datasize, LPVOID data )
354{
355 LPSTR fn = HEAP_strdupWtoA( GetProcessHeap(), 0, filename );
356 DWORD retv = TRUE;
357
358 TRACE("(%s,%ld,size=%ld,data=%p)\n",
359 debugstr_a(fn), handle, datasize, data );
360
361 if ( !GetFileResource( fn, MAKEINTRESOURCEA(VS_FILE_INFO),
362 MAKEINTRESOURCEA(VS_VERSION_INFO),
363 handle, datasize, data ) )
364 retv = FALSE;
365
366 else if ( datasize >= sizeof(VS_VERSION_INFO_STRUCT16)
367 && datasize >= ((VS_VERSION_INFO_STRUCT16 *)data)->wLength
368 && VersionInfoIs16( data ) )
369 {
370 ERR("Cannot access NE resource in %s\n", debugstr_a(fn) );
371 retv = FALSE;
372 }
373
374 HeapFree( GetProcessHeap(), 0, fn );
375 return retv;
376}
377#endif //!__WIN32OS2__
378
379/***********************************************************************
380 * VersionInfo16_FindChild [internal]
381 */
382VS_VERSION_INFO_STRUCT16 *VersionInfo16_FindChild( VS_VERSION_INFO_STRUCT16 *info,
383 LPCSTR szKey, UINT cbKey )
384{
385 VS_VERSION_INFO_STRUCT16 *child = VersionInfo16_Children( info );
386
387 while ( (DWORD)child < (DWORD)info + info->wLength )
388 {
389 if ( !lstrncmpiA( child->szKey, szKey, cbKey ) )
390 return child;
391
392 if (!(child->wLength)) return NULL;
393 child = VersionInfo16_Next( child );
394 }
395
396 return NULL;
397}
398
399/***********************************************************************
400 * VersionInfo32_FindChild [internal]
401 */
402VS_VERSION_INFO_STRUCT32 *VersionInfo32_FindChild( VS_VERSION_INFO_STRUCT32 *info,
403 LPCWSTR szKey, UINT cbKey )
404{
405 VS_VERSION_INFO_STRUCT32 *child = VersionInfo32_Children( info );
406
407 while ( (DWORD)child < (DWORD)info + info->wLength )
408 {
409 if ( !CRTDLL__wcsnicmp( child->szKey, szKey, cbKey ) )
410 return child;
411
412 child = VersionInfo32_Next( child );
413 }
414
415 return NULL;
416}
417
418/***********************************************************************
419 * VerQueryValue32W [VERSION.13]
420 */
421DWORD VerQueryValue32W( LPVOID pBlock, LPCWSTR lpSubBlock,
422 LPVOID *lplpBuffer, UINT *puLen, BOOL *bText)
423{
424 VS_VERSION_INFO_STRUCT32 *info = (VS_VERSION_INFO_STRUCT32 *)pBlock;
425 if ( VersionInfoIs16( info ) )
426 {
427 ERR("called on NE resource!\n" );
428 return FALSE;
429 }
430
431#if defined(__WIN32OS2__)
432 dprintf(("VerQueryValueW %x %x %x %x", pBlock, lpSubBlock, lplpBuffer, puLen));
433#else
434 TRACE("(%p,%s,%p,%p)\n",
435 pBlock, debugstr_w(lpSubBlock), lplpBuffer, puLen );
436#endif
437
438 while ( *lpSubBlock )
439 {
440 /* Find next path component */
441 LPCWSTR lpNextSlash;
442 for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ )
443 if ( *lpNextSlash == '\\' )
444 break;
445
446 /* Skip empty components */
447 if ( lpNextSlash == lpSubBlock )
448 {
449 lpSubBlock++;
450 continue;
451 }
452
453 /* We have a non-empty component: search info for key */
454 info = VersionInfo32_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock );
455 if ( !info ) return FALSE;
456
457 /* Skip path component */
458 lpSubBlock = lpNextSlash;
459 }
460
461 /* Return value */
462 *lplpBuffer = VersionInfo32_Value( info );
463 *puLen = info->wValueLength;
464 *bText = info->bText;
465
466#if defined(__WIN32OS2__)
467 dprintf(("VerQueryValueW successful"));
468#endif
469 return TRUE;
470}
471
472
473#if defined(__WIN32OS2__)
474DWORD VerQueryValueW( LPVOID pBlock, LPCWSTR lpSubBlock,
475 LPVOID *lplpBuffer, UINT *puLen)
476{
477 BOOL bText;
478
479 return VerQueryValue32W(pBlock, lpSubBlock, lplpBuffer, puLen, &bText);
480}
481#endif
482
483/***********************************************************************
484 * VerQueryValue32A [VERSION.12]
485 */
486DWORD WINAPI VerQueryValueA( LPVOID pBlock, LPCSTR lpSubBlock,
487 LPVOID *lplpBuffer, UINT *puLen )
488{
489 VS_VERSION_INFO_STRUCT16 *info = (VS_VERSION_INFO_STRUCT16 *)pBlock;
490 if ( !VersionInfoIs16( info ) )
491 {
492#ifdef __WIN32OS2__
493 // this is a quick hack, not much tested
494 WCHAR *ustring = (WCHAR *)malloc(strlen((char *)lpSubBlock)*2+2);
495 LPVOID ubuffer;
496 char *abuffer;
497 UINT len = *puLen * 2;
498 BOOL rc, bText;
499
500 dprintf(("VERSION: called on PE unicode resource!\n" ));
501
502 AsciiToUnicode((char *)lpSubBlock, ustring);
503 rc = VerQueryValue32W( pBlock, (LPWSTR)ustring, &ubuffer, &len, &bText);
504 if(rc == 0) {
505 free(ustring);
506 return 0;
507 }
508 if(!bText) {
509 *lplpBuffer = ubuffer;
510 }
511 else
512 {
513 *lplpBuffer = malloc(len+1); // FIXME: no free, memory leak!!
514 UnicodeToAsciiN((WCHAR *)ubuffer, (char *)*lplpBuffer, len);
515 }
516 *puLen = len;
517 free(ustring);
518 return rc;
519#else
520 ERR("called on PE resource!\n" );
521 return FALSE;
522#endif //__WIN32OS2__
523 }
524
525 TRACE("(%p,%s,%p,%p)\n",
526 pBlock, debugstr_a(lpSubBlock), lplpBuffer, puLen );
527
528 while ( *lpSubBlock )
529 {
530 /* Find next path component */
531 LPCSTR lpNextSlash;
532 for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ )
533 if ( *lpNextSlash == '\\' )
534 break;
535
536 /* Skip empty components */
537 if ( lpNextSlash == lpSubBlock )
538 {
539 lpSubBlock++;
540 continue;
541 }
542
543 /* We have a non-empty component: search info for key */
544 info = VersionInfo16_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock );
545 if ( !info ) return FALSE;
546
547 /* Skip path component */
548 lpSubBlock = lpNextSlash;
549 }
550
551 /* Return value */
552 *lplpBuffer = VersionInfo16_Value( info );
553 *puLen = info->wValueLength;
554
555 return TRUE;
556}
Note: See TracBrowser for help on using the repository browser.