// Copyright (C) 2004-2021 Artifex Software, Inc.

//

// This file is part of MuPDF.

//

// MuPDF is free software: you can redistribute it and/or modify it under the

// terms of the GNU Affero General Public License as published by the Free

// Software Foundation, either version 3 of the License, or (at your option)

// any later version.

//

// MuPDF 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 Affero General Public License for more

// details.

//

// You should have received a copy of the GNU Affero General Public License

// along with MuPDF. If not, see <https://www.gnu.org/licenses/agpl-3.0.en.html>

//

// Alternative licensing terms are available from the licensor.

// For commercial licensing, see <https://www.artifex.com/> or contact

// Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco,

// CA 94129, USA, for further information.

#include "mupdf/fitz.h"

#include "xps-imp.h"

#include <string.h>

static fz_image *

xps_load_image(fz_context *ctx, xps_document *doc, xps_part *part)

{

  return fz_new_image_from_buffer(ctx, part->data);

}

/* FIXME: area unused! */

static void

xps_paint_image_brush(fz_context *ctx, xps_document *doc, fz_matrix ctm, fz_rect area, char *base_uri, xps_resource *dict,

  fz_xml *root, void *vimage)

{

  fz_image *image = vimage;

  float xs, ys;

  if (image->xres == 0 || image->yres == 0)

    return;

  xs = image->w * 96 / image->xres;

  ys = image->h * 96 / image->yres;

  ctm = fz_pre_scale(ctm, xs, ys);

  fz_fill_image(ctx, doc->dev, image, ctm, doc->opacity[doc->opacity_top], fz_default_color_params);

}

static void

xps_find_image_brush_source_part(fz_context *ctx, xps_document *doc, char *base_uri, fz_xml *root, xps_part **image_part, xps_part **profile_part)

{

  char *image_source_att;

  char buf[1024];

  char partname[1024];

  char *image_name;

  char *profile_name;

  char *p;

  image_source_att = fz_xml_att(root, "ImageSource");

  if (!image_source_att)

    fz_throw(ctx, FZ_ERROR_FORMAT, "cannot find image source attribute");

  /* "{ColorConvertedBitmap /Resources/Image.tiff /Resources/Profile.icc}" */

  if (strstr(image_source_att, "{ColorConvertedBitmap") == image_source_att)

  {

    image_name = NULL;

    profile_name = NULL;

    fz_strlcpy(buf, image_source_att, sizeof buf);

    p = strchr(buf, ' ');

    if (p)

    {

      image_name = p + 1;

      p = strchr(p + 1, ' ');

      if (p)

      {

        *p = 0;

        profile_name = p + 1;

        p = strchr(p + 1, '}');

        if (p)

          *p = 0;

      }

    }

  }

  else

  {

    image_name = image_source_att;

    profile_name = NULL;

  }

  if (!image_name)

    fz_throw(ctx, FZ_ERROR_FORMAT, "cannot find image source");

  if (image_part)

  {

    xps_resolve_url(ctx, doc, partname, base_uri, image_name, sizeof partname);

    *image_part = xps_read_part(ctx, doc, partname);

  }

  if (profile_part)

  {

    if (profile_name)

    {

      xps_resolve_url(ctx, doc, partname, base_uri, profile_name, sizeof partname);

      *profile_part = xps_read_part(ctx, doc, partname);

    }

    else

      *profile_part = NULL;

  }

}

void

xps_parse_image_brush(fz_context *ctx, xps_document *doc, fz_matrix ctm, fz_rect area,

  char *base_uri, xps_resource *dict, fz_xml *root)

{

  xps_part *part = NULL;

  fz_image *image = NULL;

  fz_try(ctx)

  {

    xps_find_image_brush_source_part(ctx, doc, base_uri, root, &part, NULL);

  }

  fz_catch(ctx)

  {

    if (fz_caught(ctx) == FZ_ERROR_TRYLATER)

    {

      if (doc->cookie)

      {

        doc->cookie->incomplete = 1;

        fz_ignore_error(ctx);

      }

      else

        fz_rethrow(ctx);

    }

    else

    {

      fz_rethrow_if(ctx, FZ_ERROR_SYSTEM);

      fz_report_error(ctx);

      fz_warn(ctx, "cannot find image source");

    }

    return;

  }

  fz_try(ctx)

  {

    image = xps_load_image(ctx, doc, part);

  }

  fz_always(ctx)

  {

    xps_drop_part(ctx, doc, part);

  }

  fz_catch(ctx)

  {

    fz_rethrow_if(ctx, FZ_ERROR_SYSTEM);

    fz_report_error(ctx);

    fz_warn(ctx, "cannot decode image resource");

    return;

  }

  fz_try(ctx)

    xps_parse_tiling_brush(ctx, doc, ctm, area, base_uri, dict, root, xps_paint_image_brush, image);

  fz_always(ctx)

    fz_drop_image(ctx, image);

  fz_catch(ctx)

    fz_rethrow(ctx);

}