From 1c1b921f761376ac88deb563105a2b214e2cf370 Mon Sep 17 00:00:00 2001
From: Marti Maria <info@littlecms.com>
Date: Wed, 25 May 2011 17:21:57 +0200
Subject: Delphi wrapper for 2.2

---
 AUTHORS                   |   2 --
 COPYING                   |   2 +-
 bin/Thumbs.db             | Bin 8192 -> 0 bytes
 include/lcms2.h           |   2 +-
 utils/delphi/lcms2dll.pas |  26 +++++++++++++++++++++++++-
 5 files changed, 27 insertions(+), 5 deletions(-)
 delete mode 100755 bin/Thumbs.db

diff --git a/AUTHORS b/AUTHORS
index 58dec56..eb1d66d 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -1,6 +1,4 @@
 
-(file still on the works)
-
 Main Author
 ------------
 Marti Maria 
diff --git a/COPYING b/COPYING
index b147b1b..fda5c9e 100644
--- a/COPYING
+++ b/COPYING
@@ -1,5 +1,5 @@
 Little CMS
-Copyright (c) 1998-2010 Marti Maria Saguer
+Copyright (c) 1998-2011 Marti Maria Saguer
 
 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
 
diff --git a/bin/Thumbs.db b/bin/Thumbs.db
deleted file mode 100755
index e918ebe..0000000
Binary files a/bin/Thumbs.db and /dev/null differ
diff --git a/include/lcms2.h b/include/lcms2.h
index d5a77ae..fbc5f39 100644
--- a/include/lcms2.h
+++ b/include/lcms2.h
@@ -23,7 +23,7 @@
 //
 //---------------------------------------------------------------------------------
 //
-// Version 2.2a
+// Version 2.2
 //
 
 #ifndef _lcms2_H
diff --git a/utils/delphi/lcms2dll.pas b/utils/delphi/lcms2dll.pas
index 4472342..5ae2ac2 100755
--- a/utils/delphi/lcms2dll.pas
+++ b/utils/delphi/lcms2dll.pas
@@ -110,6 +110,7 @@ cmsTagTypeSignature = (
   cmsSigCrdInfoType                       = $63726469,  // 'crdi'
   cmsSigCurveType                         = $63757276,  // 'curv'
   cmsSigDataType                          = $64617461,  // 'data'
+  cmsSigDictType                          = $64696374,  // 'dict'
   cmsSigDateTimeType                      = $6474696D,  // 'dtim'
   cmsSigDeviceSettingsType                = $64657673,  // 'devs'
   cmsSigLut16Type                         = $6d667432,  // 'mft2'
@@ -210,7 +211,8 @@ cmsTagSignature = (
     cmsSigUcrBgTag                          = $62666420,  // 'bfd '
     cmsSigViewingCondDescTag                = $76756564,  // 'vued'
     cmsSigViewingConditionsTag              = $76696577,  // 'view'
-    cmsSigVcgtTag                           = $76636774   // 'vcgt'
+    cmsSigVcgtTag                           = $76636774,  // 'vcgt'
+    cmsSigMetaTag                           = $6D657461   // 'meta'
 );
 
 // ICC Technology tag
@@ -1159,6 +1161,28 @@ FUNCTION   cmsAllocProfileSequenceDescription(ContextID: cmsContext; n: cmsUInt3
 FUNCTION   cmsDupProfileSequenceDescription(pseq: LPcmsSEQ):LPcmsSEQ; StdCall;
 PROCEDURE  cmsFreeProfileSequenceDescription(pseq: LPcmsSEQ); StdCall;
 
+// Dictionaries --------------------------------------------------------------------------------------------------------
+
+TYPE
+
+ LPcmsDICTentry = ^cmsDICTentry;
+
+cmsDICTentry = PACKED RECORD 
+
+    Next: LPcmsDICTentry;
+
+    DisplayName, DisplayValue: LPcmsMLU;    
+    Name, Value : PWChar;
+END;
+
+FUNCTION  cmsDictAlloc(ContextID: cmsContext): cmsHANDLE;
+PROCEDURE cmsDictFree(hDict: cmsHANDLE);
+FUNCTION  cmsDictDup(hDict: cmsHANDLE): cmsHANDLE;
+
+FUNCTION cmsDictAddEntry(hDict: cmsHANDLE; Name, Value: PWChar; DisplayName, DisplayValue : LPcmsMLU): cmsBool;
+FUNCTION cmsDictGetEntryList(hDict: cmsHANDLE): LPcmsDICTentry;
+FUNCTION cmsDictNextEntry(e : LPcmsDICTentry): LPcmsDICTentry;
+
 // Access to Profile data ----------------------------------------------------------------------------------------------
 FUNCTION cmsCreateProfilePlaceholder(ContextID: cmsContext): cmsHPROFILE; StdCall;
 
-- 
cgit v1.2.1