/* * MSCMS - Color Management System for Wine * * Copyright 2004, 2005 Hans Leidekker * * 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "config.h" #include "wine/debug.h" #include <stdarg.h> #include "windef.h" #include "winbase.h" #include "winnls.h" #include "wingdi.h" #include "winuser.h" #include "icm.h" #include "mscms_priv.h" #define IS_SEPARATOR(ch) ((ch) == '\\' || (ch) == '/') static void MSCMS_basename( LPCWSTR path, LPWSTR name ) { INT i = lstrlenW( path ); while (i > 0 && !IS_SEPARATOR(path[i - 1])) i--; lstrcpyW( name, &path[i] ); } WINE_DEFAULT_DEBUG_CHANNEL(mscms); /****************************************************************************** * GetColorDirectoryA [MSCMS.@] * * See GetColorDirectoryW. */ BOOL WINAPI GetColorDirectoryA( PCSTR machine, PSTR buffer, PDWORD size ) { INT len; LPWSTR bufferW; BOOL ret = FALSE; DWORD sizeW; TRACE( "( %p, %p )\n", buffer, size ); if (machine || !size) return FALSE; if (!buffer) { ret = GetColorDirectoryW( NULL, NULL, &sizeW ); *size = sizeW / sizeof(WCHAR); return FALSE; } sizeW = *size * sizeof(WCHAR); bufferW = HeapAlloc( GetProcessHeap(), 0, sizeW ); if (bufferW) { ret = GetColorDirectoryW( NULL, bufferW, &sizeW ); *size = WideCharToMultiByte( CP_ACP, 0, bufferW, -1, NULL, 0, NULL, NULL ); if (ret) { len = WideCharToMultiByte( CP_ACP, 0, bufferW, *size, buffer, *size, NULL, NULL ); if (!len) ret = FALSE; } HeapFree( GetProcessHeap(), 0, bufferW ); } return ret; } /****************************************************************************** * GetColorDirectoryW [MSCMS.@] * * Get the directory where color profiles are stored. * * PARAMS * machine [I] Name of the machine for which to get the color directory. * Must be NULL, which indicates the local machine. * buffer [I] Buffer to receive the path name. * size [I/O] Size of the buffer in bytes. On return the variable holds * the number of bytes actually needed. */ BOOL WINAPI GetColorDirectoryW( PCWSTR machine, PWSTR buffer, PDWORD size ) { WCHAR colordir[MAX_PATH]; static const WCHAR colorsubdir[] = { '\\','c','o','l','o','r',0 }; DWORD len; TRACE( "( %p, %p )\n", buffer, size ); if (machine || !size) return FALSE; GetSystemDirectoryW( colordir, sizeof(colordir) / sizeof(WCHAR) ); lstrcatW( colordir, colorsubdir ); len = lstrlenW( colordir ) * sizeof(WCHAR); if (len <= *size && buffer) { lstrcpyW( buffer, colordir ); *size = len; return TRUE; } *size = len; return FALSE; } /****************************************************************************** * GetColorProfileElement [MSCMS.@] * * Retrieve data for a specified tag type. * * PARAMS * profile [I] Handle to a color profile. * type [I] ICC tag type. * offset [I] Offset in bytes to start copying from. * size [I/O] Size of the buffer in bytes. On return the variable holds * the number of bytes actually needed. * buffer [O] Buffer to receive the tag data. * ref [O] Pointer to a BOOL that specifies whether more than one tag * references the data. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI GetColorProfileElement( HPROFILE profile, TAGTYPE type, DWORD offset, PDWORD size, PVOID buffer, PBOOL ref ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); DWORD i, count; icTag tag; TRACE( "( %p, 0x%08lx, %ld, %p, %p, %p )\n", profile, type, offset, size, buffer, ref ); if (!iccprofile || !size || !ref) return FALSE; count = MSCMS_get_tag_count( iccprofile ); for (i = 0; i < count; i++) { MSCMS_get_tag_by_index( iccprofile, i, &tag ); if (tag.sig == type) { if ((tag.size - offset) > *size || !buffer) { *size = (tag.size - offset); return FALSE; } MSCMS_get_tag_data( iccprofile, &tag, offset, buffer ); *ref = FALSE; /* FIXME: calculate properly */ return TRUE; } } #endif /* HAVE_LCMS */ return ret; } /****************************************************************************** * GetColorProfileElementTag [MSCMS.@] * * Get the tag type from a color profile by index. * * PARAMS * profile [I] Handle to a color profile. * index [I] Index into the tag table of the color profile. * type [O] Pointer to a variable that holds the ICC tag type on return. * * RETURNS * Success: TRUE * Failure: FALSE * * NOTES * The tag table index starts at 1. * Use GetCountColorProfileElements to retrieve a count of tagged elements. */ BOOL WINAPI GetColorProfileElementTag( HPROFILE profile, DWORD index, PTAGTYPE type ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); DWORD count; icTag tag; TRACE( "( %p, %ld, %p )\n", profile, index, type ); if (!iccprofile || !type) return FALSE; count = MSCMS_get_tag_count( iccprofile ); if (index > count || index < 1) return FALSE; MSCMS_get_tag_by_index( iccprofile, index - 1, &tag ); *type = tag.sig; ret = TRUE; #endif /* HAVE_LCMS */ return ret; } /****************************************************************************** * GetColorProfileFromHandle [MSCMS.@] * * Retrieve an ICC color profile by handle. * * PARAMS * profile [I] Handle to a color profile. * buffer [O] Buffer to receive the ICC profile. * size [I/O] Size of the buffer in bytes. On return the variable holds the * number of bytes actually needed. * * RETURNS * Success: TRUE * Failure: FALSE * * NOTES * The profile returned will be in big-endian format. */ BOOL WINAPI GetColorProfileFromHandle( HPROFILE profile, PBYTE buffer, PDWORD size ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); PROFILEHEADER header; TRACE( "( %p, %p, %p )\n", profile, buffer, size ); if (!iccprofile || !size) return FALSE; MSCMS_get_profile_header( iccprofile, &header ); if (!buffer || header.phSize > *size) { *size = header.phSize; return FALSE; } /* No endian conversion needed */ memcpy( buffer, iccprofile, header.phSize ); *size = header.phSize; ret = TRUE; #endif /* HAVE_LCMS */ return ret; } /****************************************************************************** * GetColorProfileHeader [MSCMS.@] * * Retrieve a color profile header by handle. * * PARAMS * profile [I] Handle to a color profile. * header [O] Buffer to receive the ICC profile header. * * RETURNS * Success: TRUE * Failure: FALSE * * NOTES * The profile header returned will be adjusted for endianess. */ BOOL WINAPI GetColorProfileHeader( HPROFILE profile, PPROFILEHEADER header ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); TRACE( "( %p, %p )\n", profile, header ); if (!iccprofile || !header) return FALSE; MSCMS_get_profile_header( iccprofile, header ); return TRUE; #endif /* HAVE_LCMS */ return ret; } /****************************************************************************** * GetCountColorProfileElements [MSCMS.@] * * Retrieve the number of elements in a color profile. * * PARAMS * profile [I] Handle to a color profile. * count [O] Pointer to a variable which is set to the number of elements * in the color profile. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI GetCountColorProfileElements( HPROFILE profile, PDWORD count ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); TRACE( "( %p, %p )\n", profile, count ); if (!iccprofile || !count) return FALSE; *count = MSCMS_get_tag_count( iccprofile ); ret = TRUE; #endif /* HAVE_LCMS */ return ret; } /****************************************************************************** * GetStandardColorSpaceProfileA [MSCMS.@] * * See GetStandardColorSpaceProfileW. */ BOOL WINAPI GetStandardColorSpaceProfileA( PCSTR machine, DWORD id, PSTR profile, PDWORD size ) { INT len; LPWSTR profileW; BOOL ret = FALSE; DWORD sizeW; TRACE( "( 0x%08lx, %p, %p )\n", id, profile, size ); if (machine || !size) return FALSE; sizeW = *size * sizeof(WCHAR); if (!profile) { ret = GetStandardColorSpaceProfileW( NULL, id, NULL, &sizeW ); *size = sizeW / sizeof(WCHAR); return FALSE; } profileW = HeapAlloc( GetProcessHeap(), 0, sizeW ); if (profileW) { ret = GetStandardColorSpaceProfileW( NULL, id, profileW, &sizeW ); *size = WideCharToMultiByte( CP_ACP, 0, profileW, -1, NULL, 0, NULL, NULL ); if (ret) { len = WideCharToMultiByte( CP_ACP, 0, profileW, *size, profile, *size, NULL, NULL ); if (!len) ret = FALSE; } HeapFree( GetProcessHeap(), 0, profileW ); } return ret; } /****************************************************************************** * GetStandardColorSpaceProfileW [MSCMS.@] * * Retrieve the profile filename for a given standard color space id. * * PARAMS * machine [I] Name of the machine for which to get the standard color space. * Must be NULL, which indicates the local machine. * id [I] Id of a standard color space. * profile [O] Buffer to receive the profile filename. * size [I/O] Size of the filename buffer in bytes. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI GetStandardColorSpaceProfileW( PCWSTR machine, DWORD id, PWSTR profile, PDWORD size ) { static const WCHAR rgbprofilefile[] = { '\\','s','r','g','b',' ','c','o','l','o','r',' ', 's','p','a','c','e',' ','p','r','o','f','i','l','e','.','i','c','m',0 }; WCHAR rgbprofile[MAX_PATH]; DWORD len = sizeof(rgbprofile); TRACE( "( 0x%08lx, %p, %p )\n", id, profile, size ); if (machine || !size) return FALSE; GetColorDirectoryW( machine, rgbprofile, &len ); switch (id) { case 0x52474220: /* 'RGB ' */ lstrcatW( rgbprofile, rgbprofilefile ); len = lstrlenW( rgbprofile ) * sizeof(WCHAR); if (*size < len || !profile) { *size = len; return TRUE; } lstrcpyW( profile, rgbprofile ); break; default: return FALSE; } return TRUE; } /****************************************************************************** * InstallColorProfileA [MSCMS.@] * * See InstallColorProfileW. */ BOOL WINAPI InstallColorProfileA( PCSTR machine, PCSTR profile ) { UINT len; LPWSTR profileW; BOOL ret = FALSE; TRACE( "( %s )\n", debugstr_a(profile) ); if (machine || !profile) return FALSE; len = MultiByteToWideChar( CP_ACP, 0, profile, -1, NULL, 0 ); profileW = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) ); if (profileW) { MultiByteToWideChar( CP_ACP, 0, profile, -1, profileW, len ); ret = InstallColorProfileW( NULL, profileW ); HeapFree( GetProcessHeap(), 0, profileW ); } return ret; } /****************************************************************************** * InstallColorProfileW [MSCMS.@] * * Install a color profile. * * PARAMS * machine [I] Name of the machine to install the profile on. Must be NULL, * which indicates the local machine. * profile [I] Full path name of the profile to install. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI InstallColorProfileW( PCWSTR machine, PCWSTR profile ) { WCHAR dest[MAX_PATH], base[MAX_PATH]; DWORD size = sizeof(dest); static const WCHAR slash[] = { '\\', 0 }; TRACE( "( %s )\n", debugstr_w(profile) ); if (machine || !profile) return FALSE; if (!GetColorDirectoryW( machine, dest, &size )) return FALSE; MSCMS_basename( profile, base ); lstrcatW( dest, slash ); lstrcatW( dest, base ); /* Is source equal to destination? */ if (!lstrcmpW( profile, dest )) return TRUE; return CopyFileW( profile, dest, TRUE ); } /****************************************************************************** * IsColorProfileTagPresent [MSCMS.@] * * Determine if a given ICC tag type is present in a color profile. * * PARAMS * profile [I] Color profile handle. * tag [I] ICC tag type. * present [O] Pointer to a BOOL variable. Set to TRUE if tag type is present, * FALSE otherwise. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI IsColorProfileTagPresent( HPROFILE profile, TAGTYPE type, PBOOL present ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); DWORD i, count; icTag tag; TRACE( "( %p, 0x%08lx, %p )\n", profile, type, present ); if (!iccprofile || !present) return FALSE; count = MSCMS_get_tag_count( iccprofile ); for (i = 0; i < count; i++) { MSCMS_get_tag_by_index( iccprofile, i, &tag ); if (tag.sig == type) { *present = ret = TRUE; break; } } #endif /* HAVE_LCMS */ return ret; } /****************************************************************************** * IsColorProfileValid [MSCMS.@] * * Determine if a given color profile is valid. * * PARAMS * profile [I] Color profile handle. * valid [O] Pointer to a BOOL variable. Set to TRUE if profile is valid, * FALSE otherwise. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI IsColorProfileValid( HPROFILE profile, PBOOL valid ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); TRACE( "( %p, %p )\n", profile, valid ); if (!valid) return FALSE; if (iccprofile) return *valid = TRUE; #endif /* HAVE_LCMS */ return ret; } /****************************************************************************** * SetColorProfileElement [MSCMS.@] * * Set data for a specified tag type. * * PARAMS * profile [I] Handle to a color profile. * type [I] ICC tag type. * offset [I] Offset in bytes to start copying to. * size [I/O] Size of the buffer in bytes. On return the variable holds the * number of bytes actually needed. * buffer [O] Buffer holding the tag data. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI SetColorProfileElement( HPROFILE profile, TAGTYPE type, DWORD offset, PDWORD size, PVOID buffer ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); DWORD i, count, access = MSCMS_hprofile2access( profile ); icTag tag; TRACE( "( %p, 0x%08lx, %ld, %p, %p )\n", profile, type, offset, size, buffer ); if (!iccprofile || !size || !buffer) return FALSE; if (!(access & PROFILE_READWRITE)) return FALSE; count = MSCMS_get_tag_count( iccprofile ); for (i = 0; i < count; i++) { MSCMS_get_tag_by_index( iccprofile, i, &tag ); if (tag.sig == type) { if (offset > tag.size) return FALSE; MSCMS_set_tag_data( iccprofile, &tag, offset, buffer ); return TRUE; } } #endif /* HAVE_LCMS */ return ret; } /****************************************************************************** * SetColorProfileHeader [MSCMS.@] * * Set header data for a given profile. * * PARAMS * profile [I] Handle to a color profile. * header [I] Buffer holding the header data. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI SetColorProfileHeader( HPROFILE profile, PPROFILEHEADER header ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); DWORD access = MSCMS_hprofile2access( profile ); TRACE( "( %p, %p )\n", profile, header ); if (!iccprofile || !header) return FALSE; if (!(access & PROFILE_READWRITE)) return FALSE; MSCMS_set_profile_header( iccprofile, header ); return TRUE; #endif /* HAVE_LCMS */ return ret; } /****************************************************************************** * UninstallColorProfileA [MSCMS.@] * * See UninstallColorProfileW. */ BOOL WINAPI UninstallColorProfileA( PCSTR machine, PCSTR profile, BOOL delete ) { UINT len; LPWSTR profileW; BOOL ret = FALSE; TRACE( "( %s, %x )\n", debugstr_a(profile), delete ); if (machine || !profile) return FALSE; len = MultiByteToWideChar( CP_ACP, 0, profile, -1, NULL, 0 ); profileW = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) ); if (profileW) { MultiByteToWideChar( CP_ACP, 0, profile, -1, profileW, len ); ret = UninstallColorProfileW( NULL, profileW , delete ); HeapFree( GetProcessHeap(), 0, profileW ); } return ret; } /****************************************************************************** * UninstallColorProfileW [MSCMS.@] * * Uninstall a color profile. * * PARAMS * machine [I] Name of the machine to uninstall the profile on. Must be NULL, * which indicates the local machine. * profile [I] Full path name of the profile to uninstall. * delete [I] Bool that specifies whether the profile file should be deleted. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI UninstallColorProfileW( PCWSTR machine, PCWSTR profile, BOOL delete ) { TRACE( "( %s, %x )\n", debugstr_w(profile), delete ); if (machine || !profile) return FALSE; if (delete) return DeleteFileW( profile ); return TRUE; } /****************************************************************************** * OpenColorProfileA [MSCMS.@] * * See OpenColorProfileW. */ HPROFILE WINAPI OpenColorProfileA( PPROFILE profile, DWORD access, DWORD sharing, DWORD creation ) { HPROFILE handle = NULL; TRACE( "( %p, 0x%08lx, 0x%08lx, 0x%08lx )\n", profile, access, sharing, creation ); if (!profile || !profile->pProfileData) return NULL; /* No AW conversion needed for memory based profiles */ if (profile->dwType & PROFILE_MEMBUFFER) return OpenColorProfileW( profile, access, sharing, creation ); if (profile->dwType & PROFILE_FILENAME) { UINT len; PROFILE profileW; profileW.dwType = profile->dwType; len = MultiByteToWideChar( CP_ACP, 0, profile->pProfileData, -1, NULL, 0 ); profileW.pProfileData = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) ); if (profileW.pProfileData) { profileW.cbDataSize = len * sizeof(WCHAR); MultiByteToWideChar( CP_ACP, 0, profile->pProfileData, -1, profileW.pProfileData, len ); handle = OpenColorProfileW( &profileW, access, sharing, creation ); HeapFree( GetProcessHeap(), 0, profileW.pProfileData ); } } return handle; } /****************************************************************************** * OpenColorProfileW [MSCMS.@] * * Open a color profile. * * PARAMS * profile [I] Pointer to a color profile structure. * access [I] Desired access. * sharing [I] Sharing mode. * creation [I] Creation mode. * * RETURNS * Success: Handle to the opened profile. * Failure: NULL * * NOTES * Values for access: PROFILE_READ or PROFILE_READWRITE. * Values for sharing: 0 (no sharing), FILE_SHARE_READ and/or FILE_SHARE_WRITE. * Values for creation: one of CREATE_NEW, CREATE_ALWAYS, OPEN_EXISTING, * OPEN_ALWAYS, TRUNCATE_EXISTING. * Sharing and creation flags are ignored for memory based profiles. */ HPROFILE WINAPI OpenColorProfileW( PPROFILE profile, DWORD access, DWORD sharing, DWORD creation ) { #ifdef HAVE_LCMS cmsHPROFILE cmsprofile = NULL; icProfile *iccprofile = NULL; HANDLE handle = NULL; DWORD size; TRACE( "( %p, 0x%08lx, 0x%08lx, 0x%08lx )\n", profile, access, sharing, creation ); if (!profile || !profile->pProfileData) return NULL; if (profile->dwType & PROFILE_MEMBUFFER) { FIXME( "access flags not implemented for memory based profiles\n" ); iccprofile = profile->pProfileData; size = profile->cbDataSize; cmsprofile = cmsOpenProfileFromMem( iccprofile, size ); } if (profile->dwType & PROFILE_FILENAME) { DWORD read, flags = 0; TRACE( "profile file: %s\n", debugstr_w( (WCHAR *)profile->pProfileData ) ); if (access & PROFILE_READ) flags = GENERIC_READ; if (access & PROFILE_READWRITE) flags = GENERIC_READ|GENERIC_WRITE; if (!flags) return NULL; handle = CreateFileW( profile->pProfileData, flags, sharing, NULL, creation, 0, NULL ); if (handle == INVALID_HANDLE_VALUE) { WARN( "Unable to open color profile\n" ); return NULL; } if ((size = GetFileSize( handle, NULL )) == INVALID_FILE_SIZE) { ERR( "Unable to retrieve size of color profile\n" ); CloseHandle( handle ); return NULL; } iccprofile = HeapAlloc( GetProcessHeap(), 0, size ); if (!iccprofile) { ERR( "Unable to allocate memory for color profile\n" ); CloseHandle( handle ); return NULL; } if (!ReadFile( handle, iccprofile, size, &read, NULL ) || read != size) { ERR( "Unable to read color profile\n" ); CloseHandle( handle ); HeapFree( GetProcessHeap, 0, iccprofile ); return NULL; } cmsprofile = cmsOpenProfileFromMem( iccprofile, size ); } if (cmsprofile) return MSCMS_create_hprofile_handle( handle, iccprofile, cmsprofile, access ); #endif /* HAVE_LCMS */ return NULL; } /****************************************************************************** * CloseColorProfile [MSCMS.@] * * Close a color profile. * * PARAMS * profile [I] Handle to the profile. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI CloseColorProfile( HPROFILE profile ) { BOOL ret = FALSE; #ifdef HAVE_LCMS icProfile *iccprofile = MSCMS_hprofile2iccprofile( profile ); HANDLE file = MSCMS_hprofile2handle( profile ); DWORD access = MSCMS_hprofile2access( profile ); TRACE( "( %p )\n", profile ); if (file && (access & PROFILE_READWRITE)) { DWORD written, size = MSCMS_get_profile_size( iccprofile ); if (SetFilePointer( file, 0, NULL, FILE_BEGIN ) || !WriteFile( file, iccprofile, size, &written, NULL ) || written != size) ERR( "Unable to write color profile\n" ); } ret = cmsCloseProfile( MSCMS_hprofile2cmsprofile( profile ) ); HeapFree( GetProcessHeap(), 0, MSCMS_hprofile2iccprofile( profile ) ); CloseHandle( MSCMS_hprofile2handle( profile ) ); MSCMS_destroy_hprofile_handle( profile ); #endif /* HAVE_LCMS */ return ret; }