src/color-profile.cpp

   1
   2
   3 #include "xml/repr.h"
   4 #include "color-profile.h"
   5 #include "color-profile-fns.h"
   6 #include "attributes.h"
   7 #include "inkscape.h"
   8 #include "document.h"
   9
  10 #include "dom/uri.h"
  11
  12 //#define DEBUG_LCMS
  13
  14 #ifdef DEBUG_LCMS
  15 #include "prefs-utils.h"
  16 #include <gtk/gtkmessagedialog.h>
  17 #endif // DEBUG_LCMS
  18
  19 using Inkscape::ColorProfile;
  20 using Inkscape::ColorProfileClass;
  21
  22 namespace Inkscape
  23 {
  24 static void colorprofile_class_init( ColorProfileClass *klass );
  25 static void colorprofile_init( ColorProfile *cprof );
  26
  27 static void colorprofile_release( SPObject *object );
  28 static void colorprofile_build( SPObject *object, SPDocument *document, Inkscape::XML::Node *repr );
  29 static void colorprofile_set( SPObject *object, unsigned key, gchar const *value );
  30 static Inkscape::XML::Node *colorprofile_write( SPObject *object, Inkscape::XML::Node *repr, guint flags );
  31 }
  32
  33 #ifdef DEBUG_LCMS
  34 extern guint update_in_progress;
  35 #define DEBUG_MESSAGE(key, ...) \
  36 {\
  37     gint dump = prefs_get_int_attribute_limited("options.scislac", #key, 0, 0, 1);\
  38     gint dumpD = prefs_get_int_attribute_limited("options.scislac", #key"D", 0, 0, 1);\
  39     gint dumpD2 = prefs_get_int_attribute_limited("options.scislac", #key"D2", 0, 0, 1);\
  40     dumpD &= ( (update_in_progress == 0) || dumpD2 );\
  41     if ( dump )\
  42     {\
  43         g_message( __VA_ARGS__ );\
  44 \
  45     }\
  46     if ( dumpD )\
  47     {\
  48         GtkWidget *dialog = gtk_message_dialog_new(NULL,\
  49                                                    GTK_DIALOG_DESTROY_WITH_PARENT, \
  50                                                    GTK_MESSAGE_INFO,    \
  51                                                    GTK_BUTTONS_OK,      \
  52                                                    __VA_ARGS__          \
  53                                                    );\
  54         g_signal_connect_swapped(dialog, "response",\
  55                                  G_CALLBACK(gtk_widget_destroy),        \
  56                                  dialog);                               \
  57         gtk_widget_show_all( dialog );\
  58     }\
  59 }
  60 #endif // DEBUG_LCMS
  61
  62 static SPObject *cprof_parent_class;
  63
  64 /**
  65  * Register ColorProfile class and return its type.
  66  */
  67 GType Inkscape::colorprofile_get_type()
  68 {
  69     static GType type = 0;
  70     if (!type) {
  71         GTypeInfo info = {
  72             sizeof(ColorProfileClass),
  73             NULL, NULL,
  74             (GClassInitFunc) colorprofile_class_init,
  75             NULL, NULL,
  76             sizeof(ColorProfile),
  77             16,
  78             (GInstanceInitFunc) colorprofile_init,
  79             NULL,   /* value_table */
  80         };
  81         type = g_type_register_static( SP_TYPE_OBJECT, "ColorProfile", &info, static_cast<GTypeFlags>(0) );
  82     }
  83     return type;
  84 }
  85
  86 /**
  87  * ColorProfile vtable initialization.
  88  */
  89 static void Inkscape::colorprofile_class_init( ColorProfileClass *klass )
  90 {
  91     SPObjectClass *sp_object_class = reinterpret_cast<SPObjectClass *>(klass);
  92
  93     cprof_parent_class = static_cast<SPObject*>(g_type_class_ref(SP_TYPE_OBJECT));
  94
  95     sp_object_class->release = colorprofile_release;
  96     sp_object_class->build = colorprofile_build;
  97     sp_object_class->set = colorprofile_set;
  98     sp_object_class->write = colorprofile_write;
  99 }
 100
 101 /**
 102  * Callback for ColorProfile object initialization.
 103  */
 104 static void Inkscape::colorprofile_init( ColorProfile *cprof )
 105 {
 106     cprof->href = 0;
 107     cprof->local = 0;
 108     cprof->name = 0;
 109     cprof->intentStr = 0;
 110     cprof->rendering_intent = Inkscape::RENDERING_INTENT_UNKNOWN;
 111 #if ENABLE_LCMS
 112     cprof->profHandle = 0;
 113 #endif // ENABLE_LCMS
 114 }
 115
 116 /**
 117  * Callback: free object
 118  */
 119 static void Inkscape::colorprofile_release( SPObject *object )
 120 {
 121     ColorProfile *cprof = COLORPROFILE(object);
 122     if ( cprof->href ) {
 123         g_free( cprof->href );
 124         cprof->href = 0;
 125     }
 126
 127     if ( cprof->local ) {
 128         g_free( cprof->local );
 129         cprof->local = 0;
 130     }
 131
 132     if ( cprof->name ) {
 133         g_free( cprof->name );
 134         cprof->name = 0;
 135     }
 136
 137     if ( cprof->intentStr ) {
 138         g_free( cprof->intentStr );
 139         cprof->intentStr = 0;
 140     }
 141
 142 #if ENABLE_LCMS
 143     if ( cprof->profHandle ) {
 144         cmsCloseProfile( cprof->profHandle );
 145         cprof->profHandle = 0;
 146     }
 147 #endif // ENABLE_LCMS
 148 }
 149
 150 /**
 151  * Callback: set attributes from associated repr.
 152  */
 153 static void Inkscape::colorprofile_build( SPObject *object, SPDocument *document, Inkscape::XML::Node *repr )
 154 {
 155     ColorProfile *cprof = COLORPROFILE(object);
 156     g_assert(cprof->href == 0);
 157     g_assert(cprof->local == 0);
 158     g_assert(cprof->name == 0);
 159     g_assert(cprof->intentStr == 0);
 160
 161     if (((SPObjectClass *) cprof_parent_class)->build) {
 162         (* ((SPObjectClass *) cprof_parent_class)->build)(object, document, repr);
 163     }
 164     sp_object_read_attr( object, "xlink:href" );
 165     sp_object_read_attr( object, "local" );
 166     sp_object_read_attr( object, "name" );
 167     sp_object_read_attr( object, "rendering-intent" );
 168 }
 169
 170 /**
 171  * Callback: set attribute.
 172  */
 173 static void Inkscape::colorprofile_set( SPObject *object, unsigned key, gchar const *value )
 174 {
 175     ColorProfile *cprof = COLORPROFILE(object);
 176
 177     switch (key) {
 178         case SP_ATTR_XLINK_HREF:
 179             if ( cprof->href ) {
 180                 g_free( cprof->href );
 181                 cprof->href = 0;
 182             }
 183             if ( value ) {
 184                 cprof->href = g_strdup( value );
 185                 if ( *cprof->href ) {
 186 #if ENABLE_LCMS
 187                     cmsErrorAction( LCMS_ERROR_SHOW );
 188
 189                     // TODO open filename and URIs properly
 190                     //FILE* fp = fopen_utf8name( filename, "r" );
 191                     //LCMSAPI cmsHPROFILE   LCMSEXPORT cmsOpenProfileFromMem(LPVOID MemPtr, DWORD dwSize);
 192
 193                     // Try to open relative
 194                     SPDocument *doc = SP_OBJECT_DOCUMENT(object);
 195                     if (!doc) {
 196                         doc = SP_ACTIVE_DOCUMENT;
 197                         g_warning("object has no document.  using active");
 198                     }
 199                     //# 1.  Get complete URI of document
 200                     gchar* docbase = SP_DOCUMENT_URI( doc );
 201                     if (!docbase)
 202                         {
 203                         g_warning("null docbase");
 204                         docbase = "";
 205                         }
 206                     //g_message("docbase:%s\n", docbase);
 207                     org::w3c::dom::URI docUri(docbase);
 208                     //# 2. Get href of icc file.  we don't care if it's rel or abs
 209                     org::w3c::dom::URI hrefUri(cprof->href);
 210                     //# 3.  Resolve the href according the docBase.  This follows
 211                     //      the w3c specs.  All absolute and relative issues are considered
 212                     org::w3c::dom::URI cprofUri = docUri.resolve(hrefUri);
 213                     gchar* fullname = (gchar *)cprofUri.getNativePath().c_str();
 214                     cprof->profHandle = cmsOpenProfileFromFile( fullname, "r" );
 215 #ifdef DEBUG_LCMS
 216                     DEBUG_MESSAGE( lcmsOne, "cmsOpenProfileFromFile( '%s'...) = %p", fullname, (void*)cprof->profHandle );
 217 #endif // DEBUG_LCMS
 218
 219 #endif // ENABLE_LCMS
 220                 }
 221             }
 222             object->requestModified(SP_OBJECT_MODIFIED_FLAG);
 223             break;
 224
 225         case SP_ATTR_LOCAL:
 226             if ( cprof->local ) {
 227                 g_free( cprof->local );
 228                 cprof->local = 0;
 229             }
 230             cprof->local = g_strdup( value );
 231             object->requestModified(SP_OBJECT_MODIFIED_FLAG);
 232             break;
 233
 234         case SP_ATTR_NAME:
 235             if ( cprof->name ) {
 236                 g_free( cprof->name );
 237                 cprof->name = 0;
 238             }
 239             cprof->name = g_strdup( value );
 240 #ifdef DEBUG_LCMS
 241             DEBUG_MESSAGE( lcmsTwo, "<color-profile> name set to '%s'", cprof->name );
 242 #endif // DEBUG_LCMS
 243             object->requestModified(SP_OBJECT_MODIFIED_FLAG);
 244             break;
 245
 246         case SP_ATTR_RENDERING_INTENT:
 247             if ( cprof->intentStr ) {
 248                 g_free( cprof->intentStr );
 249                 cprof->intentStr = 0;
 250             }
 251             cprof->intentStr = g_strdup( value );
 252
 253             if ( value ) {
 254                 if ( strcmp( value, "auto" ) == 0 ) {
 255                     cprof->rendering_intent = RENDERING_INTENT_AUTO;
 256                 } else if ( strcmp( value, "perceptual" ) == 0 ) {
 257                     cprof->rendering_intent = RENDERING_INTENT_PERCEPTUAL;
 258                 } else if ( strcmp( value, "relative-colorimetric" ) == 0 ) {
 259                     cprof->rendering_intent = RENDERING_INTENT_RELATIVE_COLORIMETRIC;
 260                 } else if ( strcmp( value, "saturation" ) == 0 ) {
 261                     cprof->rendering_intent = RENDERING_INTENT_SATURATION;
 262                 } else if ( strcmp( value, "absolute-colorimetric" ) == 0 ) {
 263                     cprof->rendering_intent = RENDERING_INTENT_ABSOLUTE_COLORIMETRIC;
 264                 } else {
 265                     cprof->rendering_intent = RENDERING_INTENT_UNKNOWN;
 266                 }
 267             } else {
 268                 cprof->rendering_intent = RENDERING_INTENT_UNKNOWN;
 269             }
 270
 271             object->requestModified(SP_OBJECT_MODIFIED_FLAG);
 272             break;
 273
 274         default:
 275             if (((SPObjectClass *) cprof_parent_class)->set) {
 276                 (* ((SPObjectClass *) cprof_parent_class)->set)(object, key, value);
 277             }
 278             break;
 279     }
 280
 281 }
 282
 283 /**
 284  * Callback: write attributes to associated repr.
 285  */
 286 static Inkscape::XML::Node* Inkscape::colorprofile_write( SPObject *object, Inkscape::XML::Node *repr, guint flags )
 287 {
 288     ColorProfile *cprof = COLORPROFILE(object);
 289
 290     if ((flags & SP_OBJECT_WRITE_BUILD) && !repr) {
 291         Inkscape::XML::Document *xml_doc = sp_document_repr_doc(SP_OBJECT_DOCUMENT(object));
 292         repr = xml_doc->createElement("svg:color-profile");
 293     }
 294
 295     if ( (flags & SP_OBJECT_WRITE_ALL) || cprof->href ) {
 296         repr->setAttribute( "xlink:href", cprof->href );
 297     }
 298
 299     if ( (flags & SP_OBJECT_WRITE_ALL) || cprof->local ) {
 300         repr->setAttribute( "local", cprof->local );
 301     }
 302
 303     if ( (flags & SP_OBJECT_WRITE_ALL) || cprof->name ) {
 304         repr->setAttribute( "name", cprof->name );
 305     }
 306
 307     if ( (flags & SP_OBJECT_WRITE_ALL) || cprof->intentStr ) {
 308         repr->setAttribute( "rendering-intent", cprof->intentStr );
 309     }
 310
 311     if (((SPObjectClass *) cprof_parent_class)->write) {
 312         (* ((SPObjectClass *) cprof_parent_class)->write)(object, repr, flags);
 313     }
 314
 315     return repr;
 316 }
 317
 318
 319 #if ENABLE_LCMS
 320
 321
 322 static SPObject* bruteFind( SPObject* curr, gchar* const name )
 323 {
 324     SPObject* result = 0;
 325
 326     if ( curr ) {
 327         if ( IS_COLORPROFILE(curr) ) {
 328             ColorProfile* prof = COLORPROFILE(curr);
 329             if ( prof ) {
 330                 if ( prof->name && (strcmp(prof->name, name) == 0) ) {
 331                     result = curr;
 332                 }
 333             }
 334         } else {
 335             if ( curr->hasChildren() ) {
 336                 SPObject* child = curr->firstChild();
 337                 while ( child && !result ) {
 338                     result = bruteFind( child, name );
 339                     if ( !result ) {
 340                         child = child->next;
 341                     }
 342                 };
 343             }
 344         }
 345     }
 346
 347     return result;
 348 }
 349
 350 cmsHPROFILE Inkscape::colorprofile_get_handle( SPDocument* document, guint* intent, gchar* const name )
 351 {
 352     cmsHPROFILE prof = 0;
 353
 354     SPObject* root = SP_DOCUMENT_ROOT(document);
 355     SPObject* thing = bruteFind( root, name );
 356     if ( thing ) {
 357         prof = COLORPROFILE(thing)->profHandle;
 358     }
 359
 360     if ( intent ) {
 361         *intent = thing ? COLORPROFILE(thing)->rendering_intent : (guint)RENDERING_INTENT_UNKNOWN;
 362     }
 363
 364 #ifdef DEBUG_LCMS
 365     DEBUG_MESSAGE( lcmsThree, "<color-profile> queried for profile of '%s'. Returning %p with intent of %d", name, prof, (intent? *intent:0) );
 366 #endif // DEBUG_LCMS
 367
 368     return prof;
 369 }
 370 #endif // ENABLE_LCMS
 371
 372 /*
 373   Local Variables:
 374   mode:c++
 375   c-file-style:"stroustrup"
 376   c-file-offsets:((innamespace . 0)(inline-open . 0)(case-label . +))
 377   indent-tabs-mode:nil
 378   fill-column:99
 379   End:
 380 */
 381 // vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=99 :