dll/win32/msi/font.c

   1 /*
   2  * Implementation of the Microsoft Installer (msi.dll)
   3  *
   4  * Copyright 2004,2005 Aric Stewart for CodeWeavers
   5  *
   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.
  10  *
  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.
  15  *
  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
  19  */
  20
  21 #include <stdarg.h>
  22 #include "windef.h"
  23 #include "winbase.h"
  24 #include "winerror.h"
  25 #include "winreg.h"
  26 #include "wine/debug.h"
  27 #include "msipriv.h"
  28 #include "wine/unicode.h"
  29
  30 WINE_DEFAULT_DEBUG_CHANNEL(msi);
  31
  32 typedef struct _tagTT_OFFSET_TABLE {
  33     USHORT uMajorVersion;
  34     USHORT uMinorVersion;
  35     USHORT uNumOfTables;
  36     USHORT uSearchRange;
  37     USHORT uEntrySelector;
  38     USHORT uRangeShift;
  39 } TT_OFFSET_TABLE;
  40
  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 */
  46 } TT_TABLE_DIRECTORY;
  47
  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;
  54
  55 typedef struct _tagTT_NAME_RECORD {
  56     USHORT uPlatformID;
  57     USHORT uEncodingID;
  58     USHORT uLanguageID;
  59     USHORT uNameID;
  60     USHORT uStringLength;
  61     USHORT uStringOffset; /* from start of storage area */
  62 } TT_NAME_RECORD;
  63
  64 #define SWAPWORD(x) MAKEWORD(HIBYTE(x), LOBYTE(x))
  65 #define SWAPLONG(x) MAKELONG(SWAPWORD(HIWORD(x)), SWAPWORD(LOWORD(x)))
  66
  67 static const WCHAR szRegisterFonts[] =
  68     {'R','e','g','i','s','t','e','r','F','o','n','t','s',0};
  69 static const WCHAR szUnregisterFonts[] =
  70     {'U','n','r','e','g','i','s','t','e','r','F','o','n','t','s',0};
  71
  72 static const WCHAR regfont1[] =
  73     {'S','o','f','t','w','a','r','e','\\',
  74      'M','i','c','r','o','s','o','f','t','\\',
  75      'W','i','n','d','o','w','s',' ','N','T','\\',
  76      'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
  77      'F','o','n','t','s',0};
  78 static const WCHAR regfont2[] =
  79     {'S','o','f','t','w','a','r','e','\\',
  80      'M','i','c','r','o','s','o','f','t','\\',
  81      'W','i','n','d','o','w','s','\\',
  82      'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
  83      'F','o','n','t','s',0};
  84
  85 /*
  86  * Code based off of code located here
  87  * http://www.codeproject.com/gdi/fontnamefromfile.asp
  88  *
  89  * Using string index 4 (full font name) instead of 1 (family name)
  90  */
  91 static LPWSTR load_ttfname_from(LPCWSTR filename)
  92 {
  93     TT_TABLE_DIRECTORY tblDir;
  94     BOOL bFound = FALSE;
  95     TT_OFFSET_TABLE ttOffsetTable;
  96     TT_NAME_TABLE_HEADER ttNTHeader;
  97     TT_NAME_RECORD ttRecord;
  98     DWORD dwRead;
  99     HANDLE handle;
 100     LPWSTR ret = NULL;
 101     int i;
 102
 103     handle = CreateFileW(filename ,GENERIC_READ, 0, NULL, OPEN_EXISTING,
 104                     FILE_ATTRIBUTE_NORMAL, 0 );
 105     if (handle == INVALID_HANDLE_VALUE)
 106     {
 107         ERR("Unable to open font file %s\n", debugstr_w(filename));
 108         return NULL;
 109     }
 110
 111     if (!ReadFile(handle,&ttOffsetTable, sizeof(TT_OFFSET_TABLE),&dwRead,NULL))
 112         goto end;
 113
 114     ttOffsetTable.uNumOfTables = SWAPWORD(ttOffsetTable.uNumOfTables);
 115     ttOffsetTable.uMajorVersion = SWAPWORD(ttOffsetTable.uMajorVersion);
 116     ttOffsetTable.uMinorVersion = SWAPWORD(ttOffsetTable.uMinorVersion);
 117
 118     if (ttOffsetTable.uMajorVersion != 1 || ttOffsetTable.uMinorVersion != 0)
 119         goto end;
 120
 121     for (i=0; i< ttOffsetTable.uNumOfTables; i++)
 122     {
 123         if (!ReadFile(handle,&tblDir, sizeof(TT_TABLE_DIRECTORY),&dwRead,NULL))
 124             break;
 125         if (memcmp(tblDir.szTag,"name",4)==0)
 126         {
 127             bFound = TRUE;
 128             tblDir.uLength = SWAPLONG(tblDir.uLength);
 129             tblDir.uOffset = SWAPLONG(tblDir.uOffset);
 130             break;
 131         }
 132     }
 133
 134     if (!bFound)
 135         goto end;
 136
 137     SetFilePointer(handle, tblDir.uOffset, NULL, FILE_BEGIN);
 138     if (!ReadFile(handle,&ttNTHeader, sizeof(TT_NAME_TABLE_HEADER), &dwRead,NULL))
 139         goto end;
 140
 141     ttNTHeader.uNRCount = SWAPWORD(ttNTHeader.uNRCount);
 142     ttNTHeader.uStorageOffset = SWAPWORD(ttNTHeader.uStorageOffset);
 143     bFound = FALSE;
 144     for(i=0; i<ttNTHeader.uNRCount; i++)
 145     {
 146         if (!ReadFile(handle,&ttRecord, sizeof(TT_NAME_RECORD),&dwRead,NULL))
 147             break;
 148
 149         ttRecord.uNameID = SWAPWORD(ttRecord.uNameID);
 150         /* 4 is the Full Font Name */
 151         if(ttRecord.uNameID == 4)
 152         {
 153             int nPos;
 154             LPSTR buf;
 155             static const char tt[] = " (TrueType)";
 156
 157             ttRecord.uStringLength = SWAPWORD(ttRecord.uStringLength);
 158             ttRecord.uStringOffset = SWAPWORD(ttRecord.uStringOffset);
 159             nPos = SetFilePointer(handle, 0, NULL, FILE_CURRENT);
 160             SetFilePointer(handle, tblDir.uOffset +
 161                             ttRecord.uStringOffset +
 162                             ttNTHeader.uStorageOffset,
 163                             NULL, FILE_BEGIN);
 164             buf = msi_alloc_zero( ttRecord.uStringLength + 1 + strlen(tt) );
 165             ReadFile(handle, buf, ttRecord.uStringLength, &dwRead, NULL);
 166             if (strlen(buf) > 0)
 167             {
 168                 strcat(buf,tt);
 169                 ret = strdupAtoW(buf);
 170                 msi_free(buf);
 171                 break;
 172             }
 173
 174             msi_free(buf);
 175             SetFilePointer(handle,nPos, NULL, FILE_BEGIN);
 176         }
 177     }
 178
 179 end:
 180     CloseHandle(handle);
 181
 182     TRACE("Returning fontname %s\n",debugstr_w(ret));
 183     return ret;
 184 }
 185
 186 static UINT ITERATE_RegisterFonts(MSIRECORD *row, LPVOID param)
 187 {
 188     MSIPACKAGE *package = param;
 189     LPWSTR name;
 190     LPCWSTR filename;
 191     MSIFILE *file;
 192     HKEY hkey1, hkey2;
 193     MSIRECORD *uirow;
 194     LPWSTR uipath, p;
 195
 196     filename = MSI_RecordGetString( row, 1 );
 197     file = get_loaded_file( package, filename );
 198     if (!file)
 199     {
 200         ERR("Unable to load file\n");
 201         return ERROR_SUCCESS;
 202     }
 203
 204     if (file->Component->ActionRequest != INSTALLSTATE_LOCAL)
 205     {
 206         TRACE("Component not scheduled for installation\n");
 207         return ERROR_SUCCESS;
 208     }
 209
 210     RegCreateKeyW(HKEY_LOCAL_MACHINE,regfont1,&hkey1);
 211     RegCreateKeyW(HKEY_LOCAL_MACHINE,regfont2,&hkey2);
 212
 213     if (MSI_RecordIsNull(row,2))
 214         name = load_ttfname_from( file->TargetPath );
 215     else
 216         name = msi_dup_record_field(row,2);
 217
 218     if (name)
 219     {
 220         msi_reg_set_val_str( hkey1, name, file->TargetPath);
 221         msi_reg_set_val_str( hkey2, name, file->TargetPath);
 222     }
 223
 224     msi_free(name);
 225     RegCloseKey(hkey1);
 226     RegCloseKey(hkey2);
 227
 228     /* the UI chunk */
 229     uirow = MSI_CreateRecord( 1 );
 230     uipath = strdupW( file->TargetPath );
 231     p = strrchrW(uipath,'\\');
 232     if (p) p++;
 233     else p = uipath;
 234     MSI_RecordSetStringW( uirow, 1, p );
 235     ui_actiondata( package, szRegisterFonts, uirow);
 236     msiobj_release( &uirow->hdr );
 237     msi_free( uipath );
 238     /* FIXME: call ui_progress? */
 239
 240     return ERROR_SUCCESS;
 241 }
 242
 243 UINT ACTION_RegisterFonts(MSIPACKAGE *package)
 244 {
 245     UINT rc;
 246     MSIQUERY * view;
 247     static const WCHAR ExecSeqQuery[] =
 248         {'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ',
 249          '`','F','o','n','t','`',0};
 250
 251     rc = MSI_DatabaseOpenViewW(package->db, ExecSeqQuery, &view);
 252     if (rc != ERROR_SUCCESS)
 253     {
 254         TRACE("MSI_DatabaseOpenViewW failed: %d\n", rc);
 255         return ERROR_SUCCESS;
 256     }
 257
 258     MSI_IterateRecords(view, NULL, ITERATE_RegisterFonts, package);
 259     msiobj_release(&view->hdr);
 260
 261     return ERROR_SUCCESS;
 262 }
 263
 264 static UINT ITERATE_UnregisterFonts( MSIRECORD *row, LPVOID param )
 265 {
 266     MSIPACKAGE *package = param;
 267     LPWSTR name;
 268     LPCWSTR filename;
 269     MSIFILE *file;
 270     HKEY hkey1, hkey2;
 271     MSIRECORD *uirow;
 272     LPWSTR uipath, p;
 273
 274     filename = MSI_RecordGetString( row, 1 );
 275     file = get_loaded_file( package, filename );
 276     if (!file)
 277     {
 278         ERR("Unable to load file\n");
 279         return ERROR_SUCCESS;
 280     }
 281
 282     if (file->Component->ActionRequest != INSTALLSTATE_ABSENT)
 283     {
 284         TRACE("Component not scheduled for removal\n");
 285         return ERROR_SUCCESS;
 286     }
 287
 288     RegCreateKeyW( HKEY_LOCAL_MACHINE, regfont1, &hkey1 );
 289     RegCreateKeyW( HKEY_LOCAL_MACHINE, regfont2, &hkey2 );
 290
 291     if (MSI_RecordIsNull( row, 2 ))
 292         name = load_ttfname_from( file->TargetPath );
 293     else
 294         name = msi_dup_record_field( row, 2 );
 295
 296     if (name)
 297     {
 298         RegDeleteValueW( hkey1, name );
 299         RegDeleteValueW( hkey2, name );
 300     }
 301
 302     msi_free( name );
 303     RegCloseKey( hkey1 );
 304     RegCloseKey( hkey2 );
 305
 306     /* the UI chunk */
 307     uirow = MSI_CreateRecord( 1 );
 308     uipath = strdupW( file->TargetPath );
 309     p = strrchrW( uipath,'\\' );
 310     if (p) p++;
 311     else p = uipath;
 312     MSI_RecordSetStringW( uirow, 1, p );
 313     ui_actiondata( package, szUnregisterFonts, uirow );
 314     msiobj_release( &uirow->hdr );
 315     msi_free( uipath );
 316     /* FIXME: call ui_progress? */
 317
 318     return ERROR_SUCCESS;
 319 }
 320
 321 UINT ACTION_UnregisterFonts( MSIPACKAGE *package )
 322 {
 323     UINT r;
 324     MSIQUERY *view;
 325     static const WCHAR query[] =
 326         {'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ',
 327          '`','F','o','n','t','`',0};
 328
 329     r = MSI_DatabaseOpenViewW( package->db, query, &view );
 330     if (r != ERROR_SUCCESS)
 331     {
 332         TRACE("MSI_DatabaseOpenViewW failed: %u\n", r);
 333         return ERROR_SUCCESS;
 334     }
 335
 336     MSI_IterateRecords( view, NULL, ITERATE_UnregisterFonts, package );
 337     msiobj_release( &view->hdr );
 338
 339     return ERROR_SUCCESS;
 340 }