/* GIMP - The GNU Image Manipulation Program
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 */

#include "config.h"

#include <json-glib/json-glib.h>

#include <stdlib.h>

#include <archive.h>
#include <archive_entry.h>
#include <cairo.h>
#include <gdk-pixbuf/gdk-pixbuf.h>
#include <gegl.h>

#include "libgimpbase/gimpbase.h"
#include "libgimpcolor/gimpcolor.h"

#include "core-types.h"

#include "config/gimpxmlparser.h"

#include "gimp-utils.h"
#include "gimppalette.h"
#include "gimppalette-load.h"

#include "gimp-intl.h"

/* Used by SwatchBooker and Procreate color profiles */
typedef struct
{
  GimpColorProfile *profile;
  gchar            *id;
} PaletteColorProfile;

typedef struct
{
  GimpPalette *palette;
  gint         position;
  gchar       *palette_name;
  gchar       *color_model;
  gchar       *color_space;
  GList       *embedded_profiles;
  gboolean     in_color_tag;
  gboolean     in_book_tag;
  gboolean     copy_name;
  gboolean     copy_values;
  gint         sorted_position;
} SwatchBookerData;

/* SwatchBooker XML parser functions */
static void swatchbooker_load_start_element (GMarkupParseContext *context,
                                             const gchar         *element_name,
                                             const gchar        **attribute_names,
                                             const gchar        **attribute_values,
                                             gpointer             user_data,
                                             GError             **error);
static void swatchbooker_load_end_element   (GMarkupParseContext *context,
                                             const gchar         *element_name,
                                             gpointer             user_data,
                                             GError             **error);
static void swatchbooker_load_text          (GMarkupParseContext *context,
                                             const gchar         *text,
                                             gsize                text_len,
                                             gpointer             user_data,
                                             GError             **error);

static gchar * gimp_palette_load_acb_string     (GInputStream  *input,
                                                 goffset        file_size,
                                                 GError       **error);
static gchar * gimp_palette_load_ase_block_name (GInputStream  *input,
                                                 goffset        file_size,
                                                 GError       **error);


GList *
gimp_palette_load (GimpContext   *context,
                   GFile         *file,
                   GInputStream  *input,
                   GError       **error)
{
  GimpPalette      *palette = NULL;
  GDataInputStream *data_input;
  gchar            *str;
  gsize             str_len;
  gchar            *tok;
  gint              linenum;

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  data_input = g_data_input_stream_new (input);

  linenum = 1;
  str_len = 1024;
  str = gimp_data_input_stream_read_line_always (data_input, &str_len,
                                                 NULL, error);
  if (! str)
    goto failed;

  if (! g_str_has_prefix (str, "GIMP Palette"))
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Missing magic header."));
      g_free (str);
      goto failed;
    }

  g_free (str);

  palette = g_object_new (GIMP_TYPE_PALETTE,
                          "mime-type", "application/x-gimp-palette",
                          NULL);

  linenum++;
  str_len = 1024;
  str = gimp_data_input_stream_read_line_always (data_input, &str_len,
                                                 NULL, error);
  if (! str)
    goto failed;

  if (g_str_has_prefix (str, "Name: "))
    {
      gchar *utf8;

      utf8 = gimp_any_to_utf8 (g_strstrip (str + strlen ("Name: ")), -1,
                               _("Invalid UTF-8 string in palette file '%s'"),
                               gimp_file_get_utf8_name (file));
      gimp_object_take_name (GIMP_OBJECT (palette), utf8);
      g_free (str);

      linenum++;
      str_len = 1024;
      str = gimp_data_input_stream_read_line_always (data_input, &str_len,
                                                     NULL, error);
      if (! str)
        goto failed;

      if (g_str_has_prefix (str, "Columns: "))
        {
          gint columns;

          if (! gimp_ascii_strtoi (g_strstrip (str + strlen ("Columns: ")),
                                   NULL, 10, &columns))
            {
              g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                           _("Invalid column count."));
              g_free (str);
              goto failed;
            }

          if (columns < 0 || columns > 256)
            {
              g_message (_("Reading palette file '%s': "
                           "Invalid number of columns in line %d. "
                           "Using default value."),
                         gimp_file_get_utf8_name (file), linenum);
              columns = 0;
            }

          gimp_palette_set_columns (palette, columns);
          g_free (str);

          linenum++;
          str_len = 1024;
          str = gimp_data_input_stream_read_line_always (data_input, &str_len,
                                                         NULL, error);
          if (! str)
            goto failed;
        }
    }
  else /* old palette format */
    {
      gimp_object_take_name (GIMP_OBJECT (palette),
                             g_path_get_basename (gimp_file_get_utf8_name (file)));
    }

  while (str)
    {
      GError *my_error = NULL;

      if (str[0] != '#' && str[0] != '\0')
        {
          GeglColor *color  = gegl_color_new ("black");
          guint8     rgb[3] = { 0 };
#ifdef _UCRT
          gchar     *context = NULL;
#endif

#ifndef _UCRT
          tok = strtok (str, " \t");
#else
          tok = strtok_s (str, " \t", &context);
#endif
          if (tok)
            {
              if (atoi (tok) < 0 || atoi (tok) > 255)
                g_message (_("Reading palette file '%s': "
                             "red component out of range in line %d."),
                           gimp_file_get_utf8_name (file), linenum);

              rgb[0] = CLAMP (atoi (tok), 0, 255);
            }
          else
            {
              g_message (_("Reading palette file '%s': "
                           "Missing RED component in line %d."),
                         gimp_file_get_utf8_name (file), linenum);
            }

#ifndef _UCRT
          tok = strtok (NULL, " \t");
#else
          tok = strtok_s (NULL, " \t", &context);
#endif

          if (tok)
            {
              if (atoi (tok) < 0 || atoi (tok) > 255)
                g_message (_("Reading palette file '%s': "
                             "green component out of range in line %d."),
                           gimp_file_get_utf8_name (file), linenum);

              rgb[1] = CLAMP (atoi (tok), 0, 255);
            }
          else
            {
              g_message (_("Reading palette file '%s': "
                           "Missing GREEN component in line %d."),
                         gimp_file_get_utf8_name (file), linenum);
            }

#ifndef _UCRT
          tok = strtok (NULL, " \t");
#else
          tok = strtok_s (NULL, " \t", &context);
#endif
          if (tok)
            {
              if (atoi (tok) < 0 || atoi (tok) > 255)
                g_message (_("Reading palette file '%s': "
                             "blue component out of range in line %d."),
                           gimp_file_get_utf8_name (file), linenum);

              rgb[2] = CLAMP (atoi (tok), 0, 255);
            }
          else
            {
              g_message (_("Reading palette file '%s': "
                           "Missing BLUE component in line %d."),
                         gimp_file_get_utf8_name (file), linenum);
            }

          /* optional name */
#ifndef _UCRT
          tok = strtok (NULL, "\n");
#else
          tok = strtok_s (NULL, "\n", &context);
#endif

          /* Historical .gpl format is sRGB. */
          gegl_color_set_pixel (color, babl_format ("R'G'B' u8"), rgb);
          gimp_palette_add_entry (palette, -1, tok, color);
          g_object_unref (color);
        }

      g_free (str);

      linenum++;
      str_len = 1024;
      str = g_data_input_stream_read_line (data_input, &str_len,
                                           NULL, &my_error);
      if (! str && my_error)
        {
          g_message (_("Reading palette file '%s': "
                       "Read %d colors from truncated file: %s"),
                     gimp_file_get_utf8_name (file),
                     g_list_length (palette->colors),
                     my_error->message);
          g_clear_error (&my_error);
        }
    }

  g_object_unref (data_input);

  return g_list_prepend (NULL, palette);

 failed:

  g_object_unref (data_input);

  if (palette)
    g_object_unref (palette);

  g_prefix_error (error, _("In line %d of palette file: "), linenum);

  return NULL;
}

GList *
gimp_palette_load_act (GimpContext   *context,
                       GFile         *file,
                       GInputStream  *input,
                       GError       **error)
{
  GimpPalette *palette;
  gchar       *palette_name;
  guchar       color_bytes[3];
  gsize        bytes_read;

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  palette_name = g_path_get_basename (gimp_file_get_utf8_name (file));
  palette = GIMP_PALETTE (gimp_palette_new (context, palette_name));
  g_free (palette_name);

  while (g_input_stream_read_all (input, color_bytes, sizeof (color_bytes),
                                  &bytes_read, NULL, NULL) &&
         bytes_read == sizeof (color_bytes))
    {
      /* The spec is absolutely unclear and just says:
       * > If loaded into the Colors palette, the colors will be installed in the color swatch list as RGB colors.
       * So should these be sRGB colors? Anyway since palettes are not attached
       * to images (except in specific case of indexed images), we can't use a
       * specific image's color space and the format simply has no color space
       * information.
       * So we just assume these colors are sRGB.
       */
      GeglColor *color = gegl_color_new (NULL);

      gegl_color_set_pixel (color, babl_format ("R'G'B' u8"), color_bytes);
      gimp_palette_add_entry (palette, -1, NULL, color);

      g_object_unref (color);
    }

  return g_list_prepend (NULL, palette);
}

GList *
gimp_palette_load_riff (GimpContext   *context,
                        GFile         *file,
                        GInputStream  *input,
                        GError       **error)
{
  GimpPalette *palette;
  gchar       *palette_name;
  guchar       color_bytes[4];
  gsize        bytes_read;

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  palette_name = g_path_get_basename (gimp_file_get_utf8_name (file));
  palette = GIMP_PALETTE (gimp_palette_new (context, palette_name));
  g_free (palette_name);

  if (! g_seekable_seek (G_SEEKABLE (input), 28, G_SEEK_SET, NULL, error))
    {
      g_object_unref (palette);
      return NULL;
    }

  while (g_input_stream_read_all (input, color_bytes, sizeof (color_bytes),
                                  &bytes_read, NULL, NULL) &&
         bytes_read == sizeof (color_bytes))
    {
      GeglColor *color = gegl_color_new (NULL);

      /* The format does not include color space information. The fourth byte is
       * called peFlags but possible values in Microsoft documentation does not
       * list space-related flags.
       * So as often with such historical formats, we assume that by "RGB" they
       * meant "sRGB".
       */
      gegl_color_set_pixel (color, babl_format ("R'G'B' u8"), color_bytes);
      gimp_palette_add_entry (palette, -1, NULL, color);

      g_object_unref (color);
    }

  return g_list_prepend (NULL, palette);
}

GList *
gimp_palette_load_psp (GimpContext   *context,
                       GFile         *file,
                       GInputStream  *input,
                       GError       **error)
{
  GimpPalette *palette;
  gchar       *palette_name;
  guchar       color_bytes[4];
  gint         number_of_colors;
  gsize        bytes_read;
  gint         i, j;
  gboolean     color_ok;
  gchar        buffer[4096];
  /*Maximum valid file size: 256 * 4 * 3 + 256 * 2  ~= 3650 bytes */
  gchar      **lines;
  gchar      **ascii_colors;

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  palette_name = g_path_get_basename (gimp_file_get_utf8_name (file));
  palette = GIMP_PALETTE (gimp_palette_new (context, palette_name));
  g_free (palette_name);

  if (! g_seekable_seek (G_SEEKABLE (input), 16, G_SEEK_SET, NULL, error))
    {
      g_object_unref (palette);
      return NULL;
    }

  if (! g_input_stream_read_all (input, buffer, sizeof (buffer) - 1,
                                 &bytes_read, NULL, error))
    {
      g_object_unref (palette);
      return NULL;
    }

  buffer[bytes_read] = '\0';

  lines = g_strsplit (buffer, "\x0d\x0a", -1);

  number_of_colors = atoi (lines[0]);

  for (i = 0; i < number_of_colors; i++)
    {
      if (lines[i + 1] == NULL)
        {
          g_printerr ("Premature end of file reading %s.",
                      gimp_file_get_utf8_name (file));
          break;
        }

      ascii_colors = g_strsplit (lines[i + 1], " ", 3);
      color_ok = TRUE;

      for (j = 0 ; j < 3; j++)
        {
          if (ascii_colors[j] == NULL)
            {
              g_printerr ("Corrupted palette file %s.",
                          gimp_file_get_utf8_name (file));
              color_ok = FALSE;
              break;
            }

          color_bytes[j] = atoi (ascii_colors[j]);
        }

      if (color_ok)
        {
          GeglColor *color = gegl_color_new (NULL);

          /* The format does not include color space information. Assuming sRGB
           * like for all such historical formats.
           */
          gegl_color_set_pixel (color, babl_format ("R'G'B' u8"), color_bytes);
          gimp_palette_add_entry (palette, -1, NULL, color);

          g_object_unref (color);
        }

      g_strfreev (ascii_colors);
    }

  g_strfreev (lines);

  return g_list_prepend (NULL, palette);
}

GList *
gimp_palette_load_aco (GimpContext   *context,
                       GFile         *file,
                       GInputStream  *input,
                       GError       **error)
{
  GimpPalette *palette;
  gchar       *palette_name;
  gint         format_version;
  gint         number_of_colors;
  gint         i;
  gchar        header[4];
  gsize        bytes_read;

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  if (! g_input_stream_read_all (input, header, sizeof (header),
                                 &bytes_read, NULL, error) ||
      bytes_read != sizeof (header))
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Could not read header from palette file '%s': "),
                   gimp_file_get_utf8_name (file));
      return NULL;
    }

  palette_name = g_path_get_basename (gimp_file_get_utf8_name (file));
  palette = GIMP_PALETTE (gimp_palette_new (context, palette_name));
  g_free (palette_name);

  format_version   = header[1] + (header[0] << 8);
  number_of_colors = header[3] + (header[2] << 8);

  for (i = 0; i < number_of_colors; i++)
    {
      GeglColor  *color;
      gchar       color_info[10];
      gint        color_space;
      gint        w, x, y, z;
      gint        xLab;
      gint        yLab;
      gboolean    color_ok   = FALSE;
      GError     *my_error   = NULL;

      if (! g_input_stream_read_all (input, color_info, sizeof (color_info),
                                     &bytes_read, NULL, &my_error) ||
          bytes_read != sizeof (color_info))
        {
          if (palette->colors)
            {
              g_message (_("Reading palette file '%s': "
                           "Read %d colors from truncated file: %s"),
                         gimp_file_get_utf8_name (file),
                         g_list_length (palette->colors),
                         my_error ?
                         my_error->message : _("Premature end of file."));
              g_clear_error (&my_error);
              break;
            }

          g_propagate_error (error, my_error);
          g_object_unref (palette);

          return NULL;
        }

      color_space = color_info[1] + (color_info[0] << 8);

      w = (guchar) color_info[3] + ((guchar) color_info[2] << 8);
      x = (guchar) color_info[5] + ((guchar) color_info[4] << 8);
      y = (guchar) color_info[7] + ((guchar) color_info[6] << 8);
      z = (guchar) color_info[9] + ((guchar) color_info[8] << 8);
      /* Lab-specific values */
      xLab = (gint) color_info[5] | ((gint) color_info[4] << 8);
      yLab = (gint) color_info[7] | ((gint) color_info[6] << 8);
      if (xLab >= 32768)
        xLab -= 65536;
      if (yLab >= 32768)
        yLab -= 65536;

      color = gegl_color_new (NULL);
      if (color_space == 0) /* RGB */
        {
          gdouble rgb[3] = { ((gdouble) w) / 65536.0,
                             ((gdouble) x) / 65536.0,
                             ((gdouble) y) / 65536.0 };

          /* No color space information in the format. */
          gegl_color_set_pixel (color, babl_format ("R'G'B' double"), rgb);
          color_ok = TRUE;
        }
      else if (color_space == 1) /* HSV */
        {
          gfloat hsv[3] = { ((gfloat) w) / 65536.0f,
                            ((gfloat) x) / 65536.0f,
                            ((gfloat) y) / 65536.0f};

          gegl_color_set_pixel (color, babl_format ("HSV float"), hsv);
          color_ok = TRUE;
        }
      else if (color_space == 2) /* CMYK */
        {
          float cmyk[4] = { 1.0f - ((gfloat) w) / 65536.0f,
                            1.0f - ((gfloat) x) / 65536.0f,
                            1.0f - ((gfloat) y) / 65536.0f,
                            1.0f - ((gfloat) z) / 65536.0f };

          /* No color space information in the format. */
          gegl_color_set_pixel (color, babl_format ("CMYK float"), cmyk);
          color_ok = TRUE;
        }
      else if (color_space == 7) /* CIE Lab */
        {
          gfloat lab[3] = { ((gfloat) w) / 10000.0f,
                            ((gfloat) xLab) / 25500.0f,
                            ((gfloat) yLab) / 25500.0f };

          gegl_color_set_pixel (color, babl_format ("CIE Lab float"), lab);
          color_ok = TRUE;
        }
      else if (color_space == 8) /* Grayscale */
        {
          gdouble k[1] = { 1.0 - (((gdouble) w) / 10000.0) };

          /* No color space information in the format. */
          gegl_color_set_pixel (color, babl_format ("Y' double"), k);
          color_ok = TRUE;
        }
      else if (color_space == 9) /* Wide? CMYK */
        {
          /* XXX: this "Color Space ID" 8 does not exist in Adobe specification.
           * Apparently this case was present ever since the first
           * implementation in GIMP so it's hard to know the origin behind it.
           * Where does it come from?
           */
          gfloat cmyk[4] = { 1.0f - ((gfloat) w) / 10000.0,
                             1.0f - ((gfloat) x) / 10000.0,
                             1.0f - ((gfloat) y) / 10000.0,
                             1.0f - ((gfloat) z) / 10000.0 };

          gegl_color_set_pixel (color, babl_format ("CMYK float"), cmyk);
          color_ok = TRUE;
        }
      else
        {
          g_printerr ("Unsupported color space (%d) in ACO file %s\n",
                      color_space, gimp_file_get_utf8_name (file));
        }

      if (format_version == 2)
        {
          gchar format2_preamble[4];
          gint  number_of_chars;

          if (! g_input_stream_read_all (input,
                                         format2_preamble,
                                         sizeof (format2_preamble),
                                         &bytes_read, NULL, error) ||
              bytes_read != sizeof (format2_preamble))
            {
              g_object_unref (palette);
              g_object_unref (color);
              return NULL;
            }

          number_of_chars = format2_preamble[3] + (format2_preamble[2] << 8);

          /* TODO: color name should be used (by converting from UTF-16 to
           * UTF-8), not ignored. Also according to spec, there should be 2
           * additional NUL bytes at the end, which are not (I think) counted in
           * number_of_chars). Therefore this code may be wrong and missing 2
           * bytes.
           */
          if (! g_seekable_seek (G_SEEKABLE (input), number_of_chars * 2,
                                 G_SEEK_SET, NULL, error))
            {
              g_object_unref (palette);
              g_object_unref (color);
              return NULL;
            }
        }

      if (color_ok)
        gimp_palette_add_entry (palette, -1, NULL, color);

      g_object_unref (color);
    }

  return g_list_prepend (NULL, palette);
}

GList *
gimp_palette_load_acb (GimpContext   *context,
                       GFile         *file,
                       GInputStream  *input,
                       GError       **error)
{
  GimpPalette  *palette;
  gchar         header[4];
  gshort        version;
  gchar       **palette_strings;
  gchar        *palette_name;
  gchar       **palette_prefix;
  gchar       **palette_suffix;
  gchar        *description;
  gushort       number_of_colors;
  gushort       page;
  gushort       color_space;
  gint          i;
  goffset       file_size;
  gsize         bytes_read;

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  /* Get file size */
  g_seekable_seek (G_SEEKABLE (input), 0, G_SEEK_END, NULL, error);
  file_size = g_seekable_tell (G_SEEKABLE (input));
  g_seekable_seek (G_SEEKABLE (input), 0, G_SEEK_SET, NULL, error);

  if (! g_input_stream_read_all (input, header, sizeof (header),
                                 &bytes_read, NULL, error) ||
      bytes_read != sizeof (header))
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Could not read header from palette file '%s': "),
                   gimp_file_get_utf8_name (file));
      return NULL;
    }

  /* Version and ID */
  if (! g_input_stream_read_all (input, &version, sizeof (version),
                                 &bytes_read, NULL, error))
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ACB palette version."));
      return NULL;
    }
  version = GUINT16_FROM_BE (version);
  if (version != 1)
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("GIMP only supports version 1 ACB palettes"));
      return NULL;
    }

  if (! g_input_stream_read_all (input, &version, sizeof (version),
                                 &bytes_read, NULL, error))
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ACB palette identifier."));
      return NULL;
    }

  /* Color Book name and palette prefix/suffix */
  palette_name = gimp_palette_load_acb_string (input, file_size, error);
  if (palette_name)
    palette_strings = g_strsplit (palette_name, "=", -1);
  if (! palette_name || g_strv_length (palette_strings) != 2)
    {
      if (palette_name)
        {
          g_strfreev (palette_strings);
          g_free (palette_name);
        }
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ACB palette name."));
      return NULL;
    }
  palette = GIMP_PALETTE (gimp_palette_new (context, palette_strings[1]));

  g_strfreev (palette_strings);
  g_free (palette_name);

  palette_name = gimp_palette_load_acb_string (input, file_size, error);
  if (palette_name)
    palette_prefix = g_strsplit (palette_name, "=", -1);
  if (! palette_name || g_strv_length (palette_prefix) != 2)
    {
      if (palette_name)
        {
          g_strfreev (palette_prefix);
          g_free (palette_name);
        }
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ACB palette name."));
      return NULL;
    }
  g_free (palette_name);

  palette_name = gimp_palette_load_acb_string (input, file_size, error);
  if (palette_name)
    palette_suffix = g_strsplit (palette_name, "=", -1);
  if (! palette_name || g_strv_length (palette_suffix) != 2)
    {
      if (palette_name)
        {
          g_strfreev (palette_suffix);
          g_free (palette_name);
        }
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ACB palette suffix."));
      return NULL;
    }
  g_free (palette_name);

  /* Description (currently unused) */
  description = gimp_palette_load_acb_string (input, file_size,
                                              error);
  g_free (description);

  /* Number of colors */
  if (! g_input_stream_read_all (input, &number_of_colors,
                                 sizeof (number_of_colors), &bytes_read, NULL,
                                 error))
    {
      g_strfreev (palette_prefix);
      g_strfreev (palette_suffix);

      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid number of colors in palette."));
      return NULL;
    }
  number_of_colors = GUINT16_FROM_BE (number_of_colors);
  if (number_of_colors <= 1)
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid number of colors: %s."),
                   gimp_file_get_utf8_name (file));
      return NULL;
    }

  /* Page information (currently unused) */
  if (! g_input_stream_read_all (input, &page, sizeof (page),
                                 &bytes_read, NULL, error))
    {
      g_strfreev (palette_prefix);
      g_strfreev (palette_suffix);

      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ACB palette page info."));
      return NULL;
    }
  if (! g_input_stream_read_all (input, &page, sizeof (page),
                                 &bytes_read, NULL, error))
    {
      g_strfreev (palette_prefix);
      g_strfreev (palette_suffix);

      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ACB palette page info."));
      return NULL;
    }

  /* Color Model */
  if (! g_input_stream_read_all (input, &color_space, sizeof (color_space),
                                 &bytes_read, NULL, error))
    {
      g_strfreev (palette_prefix);
      g_strfreev (palette_suffix);

      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ACB palette color space."));
      return NULL;
    }
  color_space = GUINT16_FROM_BE (color_space);

  if (color_space != 0 &&
      color_space != 2 &&
      color_space != 7)
    {
      g_strfreev (palette_prefix);
      g_strfreev (palette_suffix);

     g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                  _("Invalid ACB palette color space."));
      return NULL;
    }

  /* Color records */
  for (i = 0; i < number_of_colors; i++)
    {
      GeglColor *color             = gegl_color_new (NULL);
      gchar      color_code[6];
      gchar     *palette_entry     = NULL;
      gchar     *full_palette_name = NULL;
      gboolean   color_ok          = FALSE;

      palette_entry = gimp_palette_load_acb_string (input, file_size,
                                                    error);

      if (palette_entry)
        full_palette_name = g_strdup_printf ("%s%s %s", palette_prefix[1],
                                             palette_entry, palette_suffix[1]);

      /* Color Code (not used) */
      if (! g_input_stream_read_all (input, color_code, sizeof (color_code),
                                     &bytes_read, NULL, error))
        {
          g_free (palette_entry);
          g_free (full_palette_name);
          g_clear_object (&color);

          g_printerr ("Invalid ACB palette color code");
          break;
        }

      if (color_space == 0)
        {
          guchar rgb[3];

          if (! g_input_stream_read_all (input, rgb, sizeof (rgb),
                                         &bytes_read, NULL, error))
            {
              g_free (palette_entry);
              g_free (full_palette_name);
              g_clear_object (&color);

              g_printerr ("Invalid ACB palette colors");
              break;
            }

          gegl_color_set_pixel (color, babl_format ("R'G'B' u8"), rgb);
          color_ok = TRUE;
        }
      else if (color_space == 2)
        {
          guchar cmyk[4];
          gfloat cmyk_f[4];

          if (! g_input_stream_read_all (input, cmyk, sizeof (cmyk),
                                         &bytes_read, NULL, error))
            {
              g_free (palette_entry);
              g_free (full_palette_name);
              g_clear_object (&color);

              g_printerr ("Invalid ACB palette colors");
              break;
            }

          for (gint j = 0; j < 4; j++)
            cmyk_f[j] = (((255 - cmyk[j]) / 2.55f) + 0.5f) / 100.0f;

          gegl_color_set_pixel (color, babl_format ("CMYK float"), cmyk_f);
          color_ok = TRUE;
        }
      else if (color_space == 7)
        {
          guchar lab[3];
          gfloat lab_f[3];

          if (! g_input_stream_read_all (input, lab, sizeof (lab),
                                         &bytes_read, NULL, error))
            {
              g_free (palette_entry);
              g_free (full_palette_name);
              g_clear_object (&color);

              g_printerr ("Invalid ACB palette colors");
              break;
            }

          lab_f[0] = (lab[0] / 2.55f) + 0.5f;
          lab_f[1] = ((gfloat) lab[1]) - 128;
          lab_f[2] = ((gfloat) lab[2]) - 128;

          gegl_color_set_pixel (color, babl_format ("CIE Lab float"), lab_f);
          color_ok = TRUE;
        }

      if (color_ok && palette_entry)
        gimp_palette_add_entry (palette, -1, full_palette_name, color);

      g_free (palette_entry);
      g_free (full_palette_name);
      g_clear_object (&color);

      if (! color_ok)
        {
          g_printerr ("Invalid ACB palette colors");
          break;
        }
    }

  g_strfreev (palette_prefix);
  g_strfreev (palette_suffix);

  return g_list_prepend (NULL, palette);
}

static gchar *
gimp_palette_load_acb_string (GInputStream  *input,
                              goffset        file_size,
                              GError       **error)
{
  gint        pal_name_len;
  gunichar2  *pal_name = NULL;
  gchar      *pal_name_utf8;
  goffset     current_pos;
  gsize       bytes_read;

  if (! g_input_stream_read_all (input, &pal_name_len, sizeof (pal_name_len),
                                 &bytes_read, NULL, error))
    {
      g_printerr (_("Invalid ACB palette name."));
      return NULL;
    }

  pal_name_len = GUINT32_FROM_BE (pal_name_len);
  current_pos  = g_seekable_tell (G_SEEKABLE (input));

  if (pal_name_len <= 0 || pal_name_len > (file_size - current_pos))
    {
      if (pal_name_len != 0)
        g_printerr (_("Invalid ACB name size."));

      return NULL;
    }
  pal_name = g_malloc (pal_name_len * 2);

  for (gint i = 0; i < pal_name_len; i++)
    {
      if (! g_input_stream_read_all (input, &pal_name[i], 2,
                                     &bytes_read, NULL, error))
        {
          g_printerr (_("Invalid ACB palette name."));
          g_free (pal_name);
          return NULL;
        }

      pal_name[i] = GUINT16_FROM_BE (pal_name[i]);
    }

  pal_name_utf8 = g_utf16_to_utf8 (pal_name, pal_name_len, NULL, NULL, NULL);
  g_free (pal_name);

  return pal_name_utf8;
}

GList *
gimp_palette_load_ase (GimpContext   *context,
                       GFile         *file,
                       GInputStream  *input,
                       GError       **error)
{
  GimpPalette *palette;
  gchar       *palette_name;
  goffset      file_size;
  gint         num_cols;
  gint         i;
  gchar        header[8];
  gshort       group;
  gsize        bytes_read;
  gboolean     skip_first = FALSE;
  const Babl  *src_format = NULL;
  gfloat       pixels[4];

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  /* Get file size */
  g_seekable_seek (G_SEEKABLE (input), 0, G_SEEK_END, NULL, error);
  file_size = g_seekable_tell (G_SEEKABLE (input));
  g_seekable_seek (G_SEEKABLE (input), 0, G_SEEK_SET, NULL, error);

  if (! g_input_stream_read_all (input, header, sizeof (header),
                                 &bytes_read, NULL, error) ||
      bytes_read != sizeof (header))
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Could not read header from palette file '%s': "),
                   gimp_file_get_utf8_name (file));
      return NULL;
    }


  /* Checking header values */
  if (! g_str_has_prefix (header + 0, "ASEF") ||
      header[5] != 0x01)
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ASE header: %s"),
                   gimp_file_get_utf8_name (file));
      return NULL;
    }

  if (! g_input_stream_read_all (input, &num_cols, sizeof (num_cols),
                                 &bytes_read, NULL, error))
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid number of colors in palette."));
      return NULL;
    }
  num_cols = GINT32_FROM_BE (num_cols);
  if (num_cols <= 1)
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid number of colors: %s."),
                   gimp_file_get_utf8_name (file));
      return NULL;
    }

  /* First block contains the palette name if
   * one is defined. */
  if (! g_input_stream_read_all (input, &group, sizeof (group),
                                 &bytes_read, NULL, error))
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Invalid ASE file: %s."),
                   gimp_file_get_utf8_name (file));
      return NULL;
    }
  group = GINT16_FROM_BE (group);

  /* If first marker is 0x01, then the palette has no group name */
  if (group != 1)
    {
      palette_name = gimp_palette_load_ase_block_name (input, file_size,
                                                       error);
      palette = GIMP_PALETTE (gimp_palette_new (context, palette_name));
      num_cols -= 1;
    }
  else
    {
      palette_name = g_path_get_basename (gimp_file_get_utf8_name (file));
      palette = GIMP_PALETTE (gimp_palette_new (context, palette_name));
      skip_first = TRUE;
    }
  g_free (palette_name);

  for (i = 0; i < num_cols; i++)
    {
      GeglColor *color;
      gchar      color_space[4];
      gchar     *color_name;
      gshort     spot_color;
      gint       components  = 0;
      gboolean   valid_color = TRUE;

      if (! skip_first)
        {
          if (! g_input_stream_read_all (input, &group, sizeof (group),
                                         &bytes_read, NULL, error))
            {
              g_printerr ("Invalid ASE color entry: %s.",
                          gimp_file_get_utf8_name (file));
              break;
            }
        }
      skip_first = FALSE;

      /* Skip group marker padding */
      group = GINT16_FROM_BE (group);
      if (group < 0)
        {
          gchar marker[4];

          if (! g_input_stream_read_all (input, &marker, sizeof (marker),
                                         &bytes_read, NULL, error))
            {
              g_printerr ("Invalid ASE group marker: %s.",
                          gimp_file_get_utf8_name (file));
              break;
            }
          num_cols--;
          continue;
        }

      color_name = gimp_palette_load_ase_block_name (input, file_size, error);
      if (! color_name)
        break;

      g_input_stream_read_all (input, color_space, sizeof (color_space),
                               &bytes_read, NULL, error);

      /* Color formats */
      if (g_str_has_prefix (g_strstrip (color_space), "RGB"))
        {
          components = 3;
          src_format = babl_format ("R'G'B' float");
        }
      else if (g_str_has_prefix (g_strstrip (color_space), "GRAY"))
        {
          components = 1;
          src_format = babl_format ("Y' float");
        }
      else if (g_str_has_prefix (g_strstrip (color_space), "CMYK"))
        {
          components = 4;
          src_format = babl_format ("CMYK float");
        }
      else if (g_str_has_prefix (g_strstrip (color_space), "LAB"))
        {
          components = 3;
          src_format = babl_format ("CIE Lab float");
        }

      if (components == 0)
        {
          g_printerr (_("Invalid color components: %s."), color_space);
          g_free (color_name);
          break;
        }

      for (gint j = 0; j < components; j++)
        {
          gint32 tmp;

          if (! g_input_stream_read_all (input, &tmp, sizeof (tmp),
                                         &bytes_read, NULL, error))
            {
              g_printerr (_("Invalid ASE color entry: %s."),
                          gimp_file_get_utf8_name (file));
              g_free (color_name);
              valid_color = FALSE;
              break;
            }

          /* Convert 4 bytes to a 32bit float value */
          tmp = GINT32_FROM_BE (tmp);
          memcpy (&pixels[j], &tmp, 4);
        }

      if (! valid_color)
        break;

      /* The L component of LAB goes from 0 to 100 percent */
      if (g_str_has_prefix (g_strstrip (color_space), "LAB"))
        pixels[0] *= 100;


      /* TODO: When GIMP supports spot colors, use this information in
       * the palette. */
      if (! g_input_stream_read_all (input, &spot_color, sizeof (spot_color),
                                     &bytes_read, NULL, error))
        {
          g_printerr (_("Invalid ASE color entry: %s."),
                      gimp_file_get_utf8_name (file));
          g_free (color_name);
          break;
        }

      color = gegl_color_new (NULL);
      gegl_color_set_pixel (color, src_format, pixels);

      gimp_palette_add_entry (palette, -1, color_name, color);
      g_free (color_name);
      g_object_unref (color);
    }

  return g_list_prepend (NULL, palette);
}

static gchar *
gimp_palette_load_ase_block_name (GInputStream  *input,
                                  goffset        file_size,
                                  GError       **error)
{
  gint        block_length;
  gushort     pal_name_len;
  gunichar2  *pal_name = NULL;
  gchar      *pal_name_utf8;
  goffset     current_pos;
  gsize       bytes_read;

  if (! g_input_stream_read_all (input, &block_length, sizeof (block_length),
                                 &bytes_read, NULL, error))
    {
      g_printerr (_("Invalid ASE palette name."));
      return NULL;
    }

  block_length = GINT32_FROM_BE (block_length);
  current_pos  = g_seekable_tell (G_SEEKABLE (input));

  if (block_length <= 0 || block_length > (file_size - current_pos))
    {
      g_printerr (_("Invalid ASE block size."));
      return NULL;
    }

  if (! g_input_stream_read_all (input, &pal_name_len, sizeof (pal_name_len),
                                 &bytes_read, NULL, error))
    {
      g_printerr (_("Invalid ASE palette name."));
      return NULL;
    }

  pal_name_len = GUINT16_FROM_BE (pal_name_len);
  current_pos  = g_seekable_tell (G_SEEKABLE (input));

  if (pal_name_len <= 0 || pal_name_len > (file_size - current_pos))
    {
      g_printerr (_("Invalid ASE name size."));
      return NULL;
    }
  pal_name = g_malloc (pal_name_len * 2);

  for (gint i = 0; i < pal_name_len; i++)
    {
      if (! g_input_stream_read_all (input, &pal_name[i], 2,
                                     &bytes_read, NULL, error))
        {
          g_printerr (_("Invalid ASE palette name."));
          g_free (pal_name);
          return NULL;
        }

      pal_name[i] = GUINT16_FROM_BE (pal_name[i]);
    }

  pal_name_utf8 = g_utf16_to_utf8 (pal_name, pal_name_len, NULL, NULL, NULL);
  g_free (pal_name);

  return pal_name_utf8;
}

GList *
gimp_palette_load_css (GimpContext   *context,
                       GFile         *file,
                       GInputStream  *input,
                       GError       **error)
{
  GimpPalette      *palette;
  GDataInputStream *data_input;
  gchar            *name;
  GRegex           *regex;
  gchar            *buf;

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  regex = g_regex_new (".*color.*:(?P<param>.*)", G_REGEX_CASELESS, 0, error);
  if (! regex)
    return NULL;

  name = g_path_get_basename (gimp_file_get_utf8_name (file));
  palette = GIMP_PALETTE (gimp_palette_new (context, name));
  g_free (name);

  data_input = g_data_input_stream_new (input);

  do
    {
      gsize  buf_len = 1024;

      buf = g_data_input_stream_read_line (data_input, &buf_len, NULL, NULL);

      if (buf)
        {
          GMatchInfo *matches;

          if (g_regex_match (regex, buf, 0, &matches))
            {
              GeglColor *color;
              gchar     *word = g_match_info_fetch_named (matches, "param");

              color = gimp_color_parse_css (word);
              if (color)
                {
                  if (! gimp_palette_find_entry (palette, color, NULL))
                    gimp_palette_add_entry (palette, -1, NULL, color);

                  g_object_unref (color);
                }

              g_free (word);
            }
          g_match_info_free (matches);
          g_free (buf);
        }
    }
  while (buf);

  g_regex_unref (regex);
  g_object_unref (data_input);

  return g_list_prepend (NULL, palette);
}

GList *
gimp_palette_load_sbz (GimpContext   *context,
                       GFile         *file,
                       GInputStream  *input,
                       GError       **error)
{
  SwatchBookerData      sbz_data;
  gchar                *palette_name;
  gchar                *xml_data = NULL;
  struct archive       *a;
  struct archive_entry *entry;
  size_t                entry_size;
  int                   r;

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  palette_name     = g_path_get_basename (gimp_file_get_utf8_name (file));
  sbz_data.palette = GIMP_PALETTE (gimp_palette_new (context, palette_name));
  g_free (palette_name);

  sbz_data.position          = 0;
  sbz_data.sorted_position   = 0;
  sbz_data.in_color_tag      = FALSE;
  sbz_data.in_book_tag       = FALSE;
  sbz_data.copy_name         = FALSE;
  sbz_data.copy_values       = FALSE;
  sbz_data.palette_name      = NULL;
  sbz_data.embedded_profiles = NULL;

  if ((a = archive_read_new ()))
    {
      const gchar *name = gimp_file_get_utf8_name (file);
      int          archive_ret;

      archive_read_support_format_all (a);
      r = archive_read_open_filename (a, name, 10240);
      if (r != ARCHIVE_OK)
        {
          g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                       _("Unable to read SBZ file: %s"),
                       archive_error_string (a));

          archive_read_free (a);

          return NULL;
        }

      while ((archive_ret = archive_read_next_header (a, &entry)) != ARCHIVE_EOF)
        {
          const char *pathname;
          gchar      *lower;

          if (archive_ret == ARCHIVE_RETRY)
            continue;
          else if (archive_ret == ARCHIVE_FATAL)
            break;

          pathname = archive_entry_pathname (entry);
          lower    = g_ascii_strdown (pathname, -1);
          if (g_str_has_suffix (lower, ".xml"))
            {
              if (xml_data == NULL)
                {
                  entry_size = archive_entry_size (entry);
                  xml_data   = (gchar *) g_malloc (entry_size);

                  r = archive_read_data (a, xml_data, entry_size);
                }
              else
                {
                  /* This format only seems to allow for 1 XML in the
                   * zip, so if there are several, let's ignore it, yet
                   * not completely silently.
                   */
                  g_printerr ("Ignoring second XML file '%s' in SBZ palette: %s",
                              pathname, gimp_file_get_utf8_name (file));
                }
            }
          else if (g_str_has_suffix (lower, ".icc") || g_str_has_suffix (lower, ".icm"))
            {
              GimpColorProfile *profile  = NULL;
              size_t            icc_size = archive_entry_size (entry);
              uint8_t          *icc_data = g_malloc (icc_size);

              r = archive_read_data (a, icc_data, icc_size);

              if (icc_data)
                profile = gimp_color_profile_new_from_icc_profile (icc_data, icc_size,
                                                                   NULL);

              if (profile)
                {
                  PaletteColorProfile *sbz_profile;

                  sbz_profile          = g_new0 (PaletteColorProfile, 1);
                  sbz_profile->profile = profile;
                  sbz_profile->id      = g_strdup (archive_entry_pathname (entry));

                  sbz_data.embedded_profiles =
                    g_list_append (sbz_data.embedded_profiles, sbz_profile);
                }
            }

          g_free (lower);
        }

      if (archive_ret == ARCHIVE_FATAL)
        {
          g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                       _("Unable to read SBZ file: %s"),
                       archive_error_string (a));

          archive_read_free (a);
          return NULL;
        }

      if (xml_data)
        {
          GimpXmlParser *xml_parser;
          GMarkupParser  markup_parser;

          markup_parser.start_element = swatchbooker_load_start_element;
          markup_parser.end_element   = swatchbooker_load_end_element;
          markup_parser.text          = swatchbooker_load_text;
          markup_parser.passthrough   = NULL;
          markup_parser.error         = NULL;

          xml_parser = gimp_xml_parser_new (&markup_parser, &sbz_data);

          gimp_xml_parser_parse_buffer (xml_parser, xml_data, entry_size, NULL);
          gimp_xml_parser_free (xml_parser);

          g_free (xml_data);
        }
      else
        {
          g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                       _("Unable to open SBZ file"));

          archive_read_free (a);
          return NULL;
        }


      r = archive_read_free (a);
    }
  else
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Unable to open SBZ file"));
      return NULL;
    }

  return g_list_prepend (NULL, sbz_data.palette);
}

GList *
gimp_palette_load_procreate (GimpContext   *context,
                             GFile         *file,
                             GInputStream  *input,
                             GError       **error)
{
  GimpPalette          *palette   = NULL;
  gchar                *json_data = NULL;
  struct archive       *a;
  struct archive_entry *entry;
  size_t                entry_size;
  int                   r;

  g_return_val_if_fail (G_IS_FILE (file), NULL);
  g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL);
  g_return_val_if_fail (error == NULL || *error == NULL, NULL);

  if ((a = archive_read_new ()))
    {
      const gchar *name = gimp_file_get_utf8_name (file);
      int          archive_ret;

      archive_read_support_format_all (a);
      r = archive_read_open_filename (a, name, 10240);
      if (r != ARCHIVE_OK)
        {
          g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                       _("Unable to read Procreate swatches file: %s"),
                       archive_error_string (a));

          archive_read_free (a);
          return NULL;
        }

      while ((archive_ret = archive_read_next_header (a, &entry)) != ARCHIVE_EOF)
        {
          gchar *lower;

          if (archive_ret == ARCHIVE_RETRY)
            continue;
          else if (archive_ret == ARCHIVE_FATAL)
            break;

          /* Here we returned either with ARCHIVE_OK or ARCHIVE_WARN
           * which are both successes (we ignore the non-critical error
           * in the WARN case).
           */

          lower = g_ascii_strdown (archive_entry_pathname (entry), -1);
          if (g_str_has_suffix (lower, ".json"))
            {
              entry_size = archive_entry_size (entry);
              json_data  = (gchar *) g_malloc (entry_size);

              r = archive_read_data (a, json_data, entry_size);
              g_free (lower);
              break;
            }
          g_free (lower);
        }

      if (archive_ret == ARCHIVE_FATAL)
        {
          g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                       _("Unable to read Procreate swatches file: %s"),
                       archive_error_string (a));

          archive_read_free (a);
          return NULL;
        }

      if (json_data)
        {
          JsonParser *parser;
          JsonReader *reader;
          GList      *profiles = NULL;

          parser = json_parser_new ();
          if (! json_parser_load_from_data (parser, json_data, entry_size,
                                            error))
            {
              g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                           _("Could not read header from palette file '%s': "),
                           gimp_file_get_utf8_name (file));

              g_free (json_data);
              g_clear_object (&parser);
              return NULL;
            }

          reader = json_reader_new (json_parser_get_root (parser));

          if (json_reader_read_member (reader, "name") &&
              json_reader_is_value (reader))
            {
              const gchar *name = json_reader_get_string_value (reader);

              palette = GIMP_PALETTE (gimp_palette_new (context, name));
              json_reader_end_member (reader);
            }
          else
            {
              g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                           _("Could not read header from palette file '%s': "),
                           gimp_file_get_utf8_name (file));

              g_free (json_data);
              g_clear_object (&reader);
              g_clear_object (&parser);
              return NULL;
            }

          /* Procreate shows columns in rows of 10 */
          gimp_palette_set_columns (palette, 10);

          if (json_reader_read_member (reader, "colorProfiles") &&
              json_reader_is_array (reader))
            {
              guint array_length = json_reader_count_elements (reader);

              for (gint i = 0; i < array_length; i++)
                {
                  PaletteColorProfile *data;
                  GError              *test = NULL;

                  data          = g_malloc0 (sizeof (PaletteColorProfile));
                  data->id      = NULL;
                  data->profile = NULL;

                  json_reader_read_element (reader, i);
                  if (json_reader_read_member (reader, "hash") &&
                      json_reader_is_value (reader))
                    {
                      const gchar *hash =
                        json_reader_get_string_value (reader);

                      data->id = g_strdup (hash);
                    }
                  json_reader_end_member (reader);

                  if (json_reader_read_member (reader, "iccData") &&
                      json_reader_is_value (reader))
                    {
                      GimpColorProfile *profile  = NULL;
                      const gchar      *icc_data = NULL;
                      guchar           *decoded  = NULL;
                      gsize             icc_size;

                      icc_data = json_reader_get_string_value (reader);
                      decoded = g_base64_decode (icc_data, &icc_size);

                      if (decoded)
                        {
                          profile =
                            gimp_color_profile_new_from_icc_profile ((const guint8 *) decoded,
                                                                     icc_size,
                                                                     &test);

                          g_free (decoded);
                        }

                      if (profile)
                        data->profile = profile;
                    }
                  json_reader_end_member (reader);

                  if (data->id && data->profile)
                    profiles = g_list_append (profiles, data);

                  json_reader_end_element (reader);
                }

            }
          json_reader_end_member (reader);

          if (json_reader_read_member (reader, "swatches") &&
              json_reader_is_array (reader))
            {
              guint        array_length = json_reader_count_elements (reader);
              const gchar *labels[3]    = {"hue", "saturation", "brightness"};
              guint        position     = 0;

              for (gint i = 0; i < array_length; i++)
                {
                  gfloat hsva[4] = { 0, 0, 0, 1 };
                  gint   valid   = 0;

                  json_reader_read_element (reader, i);
                  for (gint j = 0; j < 3; j++)
                    {
                      if (json_reader_read_member (reader, labels[j]) &&
                          json_reader_is_value (reader))
                        {
                          hsva[j] =
                            (gfloat) json_reader_get_double_value (reader);

                          valid++;
                        }
                      json_reader_end_member (reader);
                    }
                  if (json_reader_read_member (reader, "alpha") &&
                      json_reader_is_value (reader))
                    hsva[3] = (gfloat) json_reader_get_double_value (reader);
                  json_reader_end_member (reader);

                  if (valid >= 3)
                    {
                      GeglColor  *color = gegl_color_new (NULL);
                      const Babl *space = NULL;

                      if (json_reader_read_member (reader, "colorProfile") &&
                          profiles                                         &&
                          json_reader_is_value (reader))
                        {
                          GList       *profile_list;
                          const gchar *hash =
                            json_reader_get_string_value (reader);

                          for (profile_list = profiles; profile_list;
                               profile_list = g_list_next (profile_list))
                            {
                              PaletteColorProfile *icc = profile_list->data;

                              if (! strcmp (icc->id, hash))
                                {
                                  space = gimp_color_profile_get_space (icc->profile,
                                                                        GIMP_COLOR_RENDERING_INTENT_RELATIVE_COLORIMETRIC,
                                                                        NULL);
                                  break;
                                }
                            }
                        }
                      json_reader_end_member (reader);

                      gegl_color_set_pixel (color,
                                            babl_format_with_space ("HSV float", space),
                                            hsva);

                      if (! gimp_palette_find_entry (palette, color, NULL))
                        gimp_palette_add_entry (palette, position, NULL, color);

                      if (json_reader_read_member (reader, "name") &&
                          json_reader_is_value (reader))
                        {
                          const gchar *name =
                            json_reader_get_string_value (reader);

                          gimp_palette_set_entry_name (palette, position, name);
                        }
                      json_reader_end_member (reader);
                      position++;

                      g_object_unref (color);
                    }
                  json_reader_end_element (reader);
                }
            }
          json_reader_end_member (reader);

          if (profiles)
            g_list_free (profiles);

          g_free (json_data);
          g_clear_object (&reader);
          g_clear_object (&parser);
        }
      else
        {
          g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                       _("Unable to read Procreate swatches file"));

          archive_read_free (a);
          return NULL;
        }

      r = archive_read_free (a);
    }
  else
    {
      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
                   _("Unable to read Procreate swatches file"));
      return NULL;
    }

  return g_list_prepend (NULL, palette);
}

static void
swatchbooker_load_start_element (GMarkupParseContext *context,
                                 const gchar         *element_name,
                                 const gchar        **attribute_names,
                                 const gchar        **attribute_values,
                                 gpointer             user_data,
                                 GError             **error)
{
  SwatchBookerData *sbz_data = user_data;
  gchar            *lower_elt_name;

  sbz_data->copy_values = FALSE;
  sbz_data->color_model = NULL;
  sbz_data->color_space = NULL;

  lower_elt_name = g_ascii_strdown (element_name, -1);
  if (! strcmp (lower_elt_name, "color"))
    {
      sbz_data->in_color_tag = TRUE;
    }
  else if (! strcmp (lower_elt_name, "dc:identifier"))
    {
      if (sbz_data->in_color_tag)
        sbz_data->copy_name = TRUE;
    }
  else if (! strcmp (lower_elt_name, "values"))
    {
      while (*attribute_names)
        {
          gchar *lower_att_name = g_ascii_strdown (*attribute_names, -1);

          if (! strcmp (lower_att_name, "model"))
            sbz_data->color_model = g_ascii_strdown (*attribute_values, -1);
          else if (! strcmp (lower_att_name, "space"))
            sbz_data->color_space = g_strdup (*attribute_values);

          attribute_names++;
          attribute_values++;

          g_free (lower_att_name);
        }

      sbz_data->copy_values = TRUE;
    }
  else if (! strcmp (lower_elt_name, "book"))
    {
      sbz_data->in_book_tag = TRUE;

      while (*attribute_names)
        {
          gchar *lower_att_name = g_ascii_strdown (*attribute_names, -1);

          if (! strcmp (lower_att_name, "columns"))
            {
              gint columns = atoi (*attribute_values);

              if (columns > 0)
                gimp_palette_set_columns (sbz_data->palette, columns);

              g_free (lower_att_name);
              break;
            }

          attribute_names++;
          attribute_values++;

          g_free (lower_att_name);
        }
    }
  else if (! strcmp (lower_elt_name, "swatch") &&
           sbz_data->in_book_tag)
    {
      while (*attribute_names)
        {
          gchar *lower_att_name = g_ascii_strdown (*attribute_names, -1);

          if (! strcmp (lower_att_name, "material"))
            {
              GList *cols;
              /*gint   original_id = 0;*/

              for (cols = gimp_palette_get_colors (sbz_data->palette);
                   cols;
                   cols = g_list_next (cols))
                {
                  GimpPaletteEntry *entry = cols->data;

                  if (! strcmp (*attribute_values, entry->name))
                    {
                      gimp_palette_move_entry (sbz_data->palette, entry,
                                               sbz_data->sorted_position);

                      sbz_data->sorted_position++;
                      break;
                    }
                  /*original_id++;*/
                }

              g_free (lower_att_name);
              break;
            }

          attribute_names++;
          attribute_values++;

          g_free (lower_att_name);
        }
    }

  g_free (lower_elt_name);
}

static void
swatchbooker_load_end_element (GMarkupParseContext *context,
                               const gchar         *element_name,
                               gpointer             user_data,
                               GError             **error)
{
  SwatchBookerData *sbz_data = user_data;
  gchar            *lower_elt_name;

  lower_elt_name = g_ascii_strdown (element_name, -1);
  if (! strcmp (lower_elt_name, "color"))
    sbz_data->in_color_tag = FALSE;
  else if (! strcmp (lower_elt_name, "book"))
    sbz_data->in_book_tag = FALSE;

  g_free (lower_elt_name);
}

static void
swatchbooker_load_text (GMarkupParseContext *context,
                        const gchar         *text,
                        gsize                text_len,
                        gpointer             user_data,
                        GError             **error)
{
  SwatchBookerData  *sbz_data = user_data;
  gchar            **values;
  gint               i;
  gint               total = 0;

  /* Save palette name */
  if (sbz_data->copy_name)
    {
      if (! sbz_data->palette_name)
        sbz_data->palette_name = g_strdup (text);

      sbz_data->copy_name = FALSE;
    }

  /* Load palette entry */
  if (sbz_data->copy_values)
    {
      values = g_strsplit (text, " ", 0);

      for (i = 0; values[i]; i++)
        total++;

      if (total > 0)
        {
          gfloat      true_values[total];
          GeglColor  *color      = NULL;
          const Babl *src_format = NULL;
          const Babl *space      = NULL;

          /* Load profile if applicable */
          if (sbz_data->embedded_profiles &&
              sbz_data->color_space)
            {
              GList *profile_list;

              for (profile_list = g_list_copy (sbz_data->embedded_profiles);
                   profile_list;
                   profile_list = g_list_next (profile_list))
                {
                  PaletteColorProfile *icc = profile_list->data;

                  if (g_str_has_suffix (icc->id, sbz_data->color_space))
                    {
                      space = gimp_color_profile_get_space (icc->profile,
                                                            GIMP_COLOR_RENDERING_INTENT_RELATIVE_COLORIMETRIC,
                                                            NULL);
                      break;
                    }
                }
            }

          for (i = 0; values[i]; i++)
            true_values[i] = atof (values[i]);

          /* No need for babl conversion for sRGB colors */
          if (! strcmp (sbz_data->color_model, "srgb"))
            src_format = babl_format_with_space ("R'G'B' float", NULL);
          else if (! strcmp (sbz_data->color_model, "rgb"))
            src_format = babl_format_with_space ("R'G'B' float", space);
          else if (! strcmp (sbz_data->color_model, "gray"))
            src_format = babl_format_with_space ("Y' float", space);
          else if (! strcmp (sbz_data->color_model, "cmyk"))
            src_format = babl_format_with_space ("CMYK float", space);
          else if (! strcmp (sbz_data->color_model, "hsl"))
            src_format = babl_format_with_space ("HSL float", space);
          else if (! strcmp (sbz_data->color_model, "hsv"))
            src_format = babl_format_with_space ("HSV float", space);
          else if (! strcmp (sbz_data->color_model, "lab"))
            src_format = babl_format_with_space ("CIE Lab float", space);
          else if (! strcmp (sbz_data->color_model, "xyz"))
            src_format = babl_format_with_space ("CIE XYZ float", space);

          if (src_format != NULL)
            {
              color = gegl_color_new (NULL);
              gegl_color_set_pixel (color, src_format, true_values);
            }

          if (color)
            {
              gimp_palette_add_entry (sbz_data->palette, sbz_data->position,
                                      NULL, color);
              if (sbz_data->palette_name)
                gimp_palette_set_entry_name (sbz_data->palette,
                                             sbz_data->position,
                                             sbz_data->palette_name);
              sbz_data->position++;
            }
        }

      sbz_data->palette_name = NULL;
      sbz_data->copy_values  = FALSE;
      if (sbz_data->color_model)
        g_free (sbz_data->color_model);
    }
}

GimpPaletteFileFormat
gimp_palette_load_detect_format (GFile        *file,
                                 GInputStream *input)
{
  GimpPaletteFileFormat format = GIMP_PALETTE_FILE_FORMAT_UNKNOWN;
  gchar                 header[16];
  gsize                 bytes_read;

  if (g_input_stream_read_all (input, &header, sizeof (header),
                               &bytes_read, NULL, NULL) &&
      bytes_read == sizeof (header))
    {
      if (g_str_has_prefix (header + 0, "RIFF") &&
          /* TODO: only the Simple PAL format is supported right now.
           * Extended PAL Format with "PAL plth" header support could be added
           * later on.
           */
          g_str_has_prefix (header + 8, "PAL data"))
        {
          format = GIMP_PALETTE_FILE_FORMAT_RIFF_PAL;
        }
      else if (g_str_has_prefix (header, "GIMP Palette"))
        {
          format = GIMP_PALETTE_FILE_FORMAT_GPL;
        }
      else if (g_str_has_prefix (header, "JASC-PAL"))
        {
          format = GIMP_PALETTE_FILE_FORMAT_PSP_PAL;
        }
      else if (g_str_has_prefix (header, "8BCB"))
        {
          format = GIMP_PALETTE_FILE_FORMAT_ACB;
        }
    }

  if (format == GIMP_PALETTE_FILE_FORMAT_UNKNOWN)
    {
      gchar *lower = g_ascii_strdown (gimp_file_get_utf8_name (file), -1);

      if (g_str_has_suffix (lower, ".aco"))
        {
          format = GIMP_PALETTE_FILE_FORMAT_ACO;
        }
      if (g_str_has_suffix (lower, ".ase"))
        {
          format = GIMP_PALETTE_FILE_FORMAT_ASE;
        }
      else if (g_str_has_suffix (lower, ".css"))
        {
          format = GIMP_PALETTE_FILE_FORMAT_CSS;
        }
      else if (g_str_has_suffix (lower, ".sbz"))
        {
          format = GIMP_PALETTE_FILE_FORMAT_SBZ;
        }
      else if (g_str_has_suffix (lower, ".swatches"))
        {
          format = GIMP_PALETTE_FILE_FORMAT_PROCREATE;
        }

      g_free (lower);
    }

  if (format == GIMP_PALETTE_FILE_FORMAT_UNKNOWN)
    {
      GFileInfo *info = g_file_query_info (file,
                                           G_FILE_ATTRIBUTE_STANDARD_SIZE,
                                           G_FILE_QUERY_INFO_NONE,
                                           NULL, NULL);

      if (info)
        {
          goffset size = g_file_info_get_attribute_uint64 (info, G_FILE_ATTRIBUTE_STANDARD_SIZE);

          /* TODO: the file can optionally be 772 bytes long.
           * See: https://www.adobe.com/devnet-apps/photoshop/fileformatashtml/
           * Section: "Color Table "
           */
          if (size == 768)
            format = GIMP_PALETTE_FILE_FORMAT_ACT;

          g_object_unref (info);
        }
    }

  g_seekable_seek (G_SEEKABLE (input), 0, G_SEEK_SET, NULL, NULL);

  return format;
}
