2 * Implementation of the Microsoft Installer (msi.dll)
4 * Copyright 2004,2005 Aric Stewart for CodeWeavers
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
26 #include "wine/debug.h"
28 #include "wine/unicode.h"
30 WINE_DEFAULT_DEBUG_CHANNEL(msi
);
32 typedef struct _tagTT_OFFSET_TABLE
{
37 USHORT uEntrySelector
;
41 typedef struct _tagTT_TABLE_DIRECTORY
{
42 char szTag
[4]; /* table name */
43 ULONG uCheckSum
; /* Check sum */
44 ULONG uOffset
; /* Offset from beginning of file */
45 ULONG uLength
; /* length of the table in bytes */
48 typedef struct _tagTT_NAME_TABLE_HEADER
{
49 USHORT uFSelector
; /* format selector. Always 0 */
50 USHORT uNRCount
; /* Name Records count */
51 USHORT uStorageOffset
; /* Offset for strings storage,
52 * from start of the table */
53 } TT_NAME_TABLE_HEADER
;
55 #define NAME_ID_FULL_FONT_NAME 4
56 #define NAME_ID_VERSION 5
58 typedef struct _tagTT_NAME_RECORD
{
64 USHORT uStringOffset
; /* from start of storage area */
67 #define SWAPWORD(x) MAKEWORD(HIBYTE(x), LOBYTE(x))
68 #define SWAPLONG(x) MAKELONG(SWAPWORD(HIWORD(x)), SWAPWORD(LOWORD(x)))
70 static const WCHAR regfont1
[] =
71 {'S','o','f','t','w','a','r','e','\\',
72 'M','i','c','r','o','s','o','f','t','\\',
73 'W','i','n','d','o','w','s',' ','N','T','\\',
74 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
75 'F','o','n','t','s',0};
76 static const WCHAR regfont2
[] =
77 {'S','o','f','t','w','a','r','e','\\',
78 'M','i','c','r','o','s','o','f','t','\\',
79 'W','i','n','d','o','w','s','\\',
80 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
81 'F','o','n','t','s',0};
84 * Code based off of code located here
85 * http://www.codeproject.com/gdi/fontnamefromfile.asp
87 static WCHAR
*load_ttf_name_id( const WCHAR
*filename
, DWORD id
)
89 TT_TABLE_DIRECTORY tblDir
;
91 TT_OFFSET_TABLE ttOffsetTable
;
92 TT_NAME_TABLE_HEADER ttNTHeader
;
93 TT_NAME_RECORD ttRecord
;
99 handle
= CreateFileW(filename
,GENERIC_READ
, 0, NULL
, OPEN_EXISTING
,
100 FILE_ATTRIBUTE_NORMAL
, 0 );
101 if (handle
== INVALID_HANDLE_VALUE
)
103 ERR("Unable to open font file %s\n", debugstr_w(filename
));
107 if (!ReadFile(handle
,&ttOffsetTable
, sizeof(TT_OFFSET_TABLE
),&dwRead
,NULL
))
110 ttOffsetTable
.uNumOfTables
= SWAPWORD(ttOffsetTable
.uNumOfTables
);
111 ttOffsetTable
.uMajorVersion
= SWAPWORD(ttOffsetTable
.uMajorVersion
);
112 ttOffsetTable
.uMinorVersion
= SWAPWORD(ttOffsetTable
.uMinorVersion
);
114 if (ttOffsetTable
.uMajorVersion
!= 1 || ttOffsetTable
.uMinorVersion
!= 0)
117 for (i
=0; i
< ttOffsetTable
.uNumOfTables
; i
++)
119 if (!ReadFile(handle
,&tblDir
, sizeof(TT_TABLE_DIRECTORY
),&dwRead
,NULL
))
121 if (memcmp(tblDir
.szTag
,"name",4)==0)
124 tblDir
.uLength
= SWAPLONG(tblDir
.uLength
);
125 tblDir
.uOffset
= SWAPLONG(tblDir
.uOffset
);
133 SetFilePointer(handle
, tblDir
.uOffset
, NULL
, FILE_BEGIN
);
134 if (!ReadFile(handle
,&ttNTHeader
, sizeof(TT_NAME_TABLE_HEADER
), &dwRead
,NULL
))
137 ttNTHeader
.uNRCount
= SWAPWORD(ttNTHeader
.uNRCount
);
138 ttNTHeader
.uStorageOffset
= SWAPWORD(ttNTHeader
.uStorageOffset
);
139 for(i
=0; i
<ttNTHeader
.uNRCount
; i
++)
141 if (!ReadFile(handle
,&ttRecord
, sizeof(TT_NAME_RECORD
),&dwRead
,NULL
))
144 ttRecord
.uNameID
= SWAPWORD(ttRecord
.uNameID
);
145 if (ttRecord
.uNameID
== id
)
150 ttRecord
.uStringLength
= SWAPWORD(ttRecord
.uStringLength
);
151 ttRecord
.uStringOffset
= SWAPWORD(ttRecord
.uStringOffset
);
152 nPos
= SetFilePointer(handle
, 0, NULL
, FILE_CURRENT
);
153 SetFilePointer(handle
, tblDir
.uOffset
+ ttRecord
.uStringOffset
+ ttNTHeader
.uStorageOffset
,
155 buf
= msi_alloc_zero( ttRecord
.uStringLength
+ 1 );
156 ReadFile(handle
, buf
, ttRecord
.uStringLength
, &dwRead
, NULL
);
159 ret
= strdupAtoW(buf
);
164 SetFilePointer(handle
,nPos
, NULL
, FILE_BEGIN
);
170 TRACE("Returning %s\n", debugstr_w(ret
));
174 static WCHAR
*font_name_from_file( const WCHAR
*filename
)
176 static const WCHAR truetypeW
[] = {' ','(','T','r','u','e','T','y','p','e',')',0};
177 WCHAR
*name
, *ret
= NULL
;
179 if ((name
= load_ttf_name_id( filename
, NAME_ID_FULL_FONT_NAME
)))
181 ret
= msi_alloc( (strlenW( name
) + strlenW( truetypeW
) + 1 ) * sizeof(WCHAR
) );
182 strcpyW( ret
, name
);
183 strcatW( ret
, truetypeW
);
189 WCHAR
*font_version_from_file( const WCHAR
*filename
)
191 WCHAR
*version
, *p
, *ret
= NULL
;
193 if ((p
= version
= load_ttf_name_id( filename
, NAME_ID_VERSION
)))
195 while (*p
&& !isdigitW( *p
)) p
++;
196 ret
= msi_alloc( (strlenW( p
) + 1) * sizeof(WCHAR
) );
203 static UINT
ITERATE_RegisterFonts(MSIRECORD
*row
, LPVOID param
)
205 MSIPACKAGE
*package
= param
;
214 filename
= MSI_RecordGetString( row
, 1 );
215 file
= msi_get_loaded_file( package
, filename
);
218 WARN("unable to find file %s\n", debugstr_w(filename
));
219 return ERROR_SUCCESS
;
221 comp
= msi_get_loaded_component( package
, file
->Component
->Component
);
224 WARN("unable to find component %s\n", debugstr_w(file
->Component
->Component
));
225 return ERROR_SUCCESS
;
227 comp
->Action
= msi_get_component_action( package
, comp
);
228 if (comp
->Action
!= INSTALLSTATE_LOCAL
)
230 TRACE("component not scheduled for installation %s\n", debugstr_w(comp
->Component
));
231 return ERROR_SUCCESS
;
234 RegCreateKeyW(HKEY_LOCAL_MACHINE
,regfont1
,&hkey1
);
235 RegCreateKeyW(HKEY_LOCAL_MACHINE
,regfont2
,&hkey2
);
237 if (MSI_RecordIsNull(row
,2))
238 name
= font_name_from_file( file
->TargetPath
);
240 name
= msi_dup_record_field(row
,2);
244 msi_reg_set_val_str( hkey1
, name
, file
->TargetPath
);
245 msi_reg_set_val_str( hkey2
, name
, file
->TargetPath
);
253 uirow
= MSI_CreateRecord( 1 );
254 uipath
= strdupW( file
->TargetPath
);
255 p
= strrchrW(uipath
,'\\');
258 MSI_RecordSetStringW( uirow
, 1, p
);
259 msi_ui_actiondata( package
, szRegisterFonts
, uirow
);
260 msiobj_release( &uirow
->hdr
);
262 /* FIXME: call msi_ui_progress? */
264 return ERROR_SUCCESS
;
267 UINT
ACTION_RegisterFonts(MSIPACKAGE
*package
)
269 static const WCHAR query
[] = {
270 'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ','`','F','o','n','t','`',0};
274 rc
= MSI_DatabaseOpenViewW(package
->db
, query
, &view
);
275 if (rc
!= ERROR_SUCCESS
)
276 return ERROR_SUCCESS
;
278 rc
= MSI_IterateRecords(view
, NULL
, ITERATE_RegisterFonts
, package
);
279 msiobj_release(&view
->hdr
);
283 static UINT
ITERATE_UnregisterFonts( MSIRECORD
*row
, LPVOID param
)
285 MSIPACKAGE
*package
= param
;
294 filename
= MSI_RecordGetString( row
, 1 );
295 file
= msi_get_loaded_file( package
, filename
);
298 WARN("unable to find file %s\n", debugstr_w(filename
));
299 return ERROR_SUCCESS
;
301 comp
= msi_get_loaded_component( package
, file
->Component
->Component
);
304 WARN("unable to find component %s\n", debugstr_w(file
->Component
->Component
));
305 return ERROR_SUCCESS
;
307 comp
->Action
= msi_get_component_action( package
, comp
);
308 if (comp
->Action
!= INSTALLSTATE_ABSENT
)
310 TRACE("component not scheduled for removal %s\n", debugstr_w(comp
->Component
));
311 return ERROR_SUCCESS
;
314 RegCreateKeyW( HKEY_LOCAL_MACHINE
, regfont1
, &hkey1
);
315 RegCreateKeyW( HKEY_LOCAL_MACHINE
, regfont2
, &hkey2
);
317 if (MSI_RecordIsNull( row
, 2 ))
318 name
= font_name_from_file( file
->TargetPath
);
320 name
= msi_dup_record_field( row
, 2 );
324 RegDeleteValueW( hkey1
, name
);
325 RegDeleteValueW( hkey2
, name
);
329 RegCloseKey( hkey1
);
330 RegCloseKey( hkey2
);
333 uirow
= MSI_CreateRecord( 1 );
334 uipath
= strdupW( file
->TargetPath
);
335 p
= strrchrW( uipath
,'\\' );
338 MSI_RecordSetStringW( uirow
, 1, p
);
339 msi_ui_actiondata( package
, szUnregisterFonts
, uirow
);
340 msiobj_release( &uirow
->hdr
);
342 /* FIXME: call msi_ui_progress? */
344 return ERROR_SUCCESS
;
347 UINT
ACTION_UnregisterFonts( MSIPACKAGE
*package
)
349 static const WCHAR query
[] = {
350 'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ','`','F','o','n','t','`',0};
354 r
= MSI_DatabaseOpenViewW( package
->db
, query
, &view
);
355 if (r
!= ERROR_SUCCESS
)
356 return ERROR_SUCCESS
;
358 r
= MSI_IterateRecords( view
, NULL
, ITERATE_UnregisterFonts
, package
);
359 msiobj_release( &view
->hdr
);