/*

 * Copyright © 2009 Red Hat, Inc.

 *

 * Permission to use, copy, modify, distribute, and sell this software and its

 * documentation for any purpose is hereby granted without fee, provided that

 * the above copyright notice appear in all copies and that both that

 * copyright notice and this permission notice appear in supporting

 * documentation, and that the name of Red Hat not be used in advertising or

 * publicity pertaining to distribution of the software without specific,

 * written prior permission.  Red Hat makes no representations about the

 * suitability of this software for any purpose.  It is provided "as is"

 * without express or implied warranty.

 *

 * THE COPYRIGHT HOLDERS DISCLAIM ALL WARRANTIES WITH REGARD TO THIS

 * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND

 * FITNESS, IN NO EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY

 * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN

 * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING

 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

 * SOFTWARE.

 */

#ifdef HAVE_CONFIG_H

#include <pixman-config.h>

#endif

#include <stdlib.h>

#include "pixman-private.h"

pixman_implementation_t *

_pixman_implementation_create (pixman_implementation_t *fallback,

             const pixman_fast_path_t *fast_paths)

{

    pixman_implementation_t *imp;

    assert (fast_paths);

    if ((imp = malloc (sizeof (pixman_implementation_t))))

    {

  pixman_implementation_t *d;

  memset (imp, 0, sizeof *imp);

  imp->fallback = fallback;

  imp->fast_paths = fast_paths;

  /* Make sure the whole fallback chain has the right toplevel */

  for (d = imp; d != NULL; d = d->fallback)

      d->toplevel = imp;

    }

    return imp;

}

#define N_CACHED_FAST_PATHS 8

typedef struct

{

    struct

    {

  pixman_implementation_t * imp;

  pixman_fast_path_t    fast_path;

    } cache [N_CACHED_FAST_PATHS];

} cache_t;

PIXMAN_DEFINE_THREAD_LOCAL (cache_t, fast_path_cache)

static void

dummy_composite_rect (pixman_implementation_t *imp,

          pixman_composite_info_t *info)

{

}

void

_pixman_implementation_lookup_composite (pixman_implementation_t  *toplevel,

           pixman_op_t               op,

           pixman_format_code_t      src_format,

           uint32_t                  src_flags,

           pixman_format_code_t      mask_format,

           uint32_t                  mask_flags,

           pixman_format_code_t      dest_format,

           uint32_t                  dest_flags,

           pixman_implementation_t **out_imp,

           pixman_composite_func_t  *out_func)

{

    pixman_implementation_t *imp;

    cache_t *cache;

    int i;

    /* Check cache for fast paths */

    cache = PIXMAN_GET_THREAD_LOCAL (fast_path_cache);

    for (i = 0; i < N_CACHED_FAST_PATHS; ++i)

    {

  const pixman_fast_path_t *info = &(cache->cache[i].fast_path);

  /* Note that we check for equality here, not whether

   * the cached fast path matches. This is to prevent

   * us from selecting an overly general fast path

   * when a more specific one would work.

   */

  if (info->op == op      &&

      info->src_format == src_format  &&

      info->mask_format == mask_format  &&

      info->dest_format == dest_format  &&

      info->src_flags == src_flags  &&

      info->mask_flags == mask_flags  &&

      info->dest_flags == dest_flags  &&

      info->func)

  {

      *out_imp = cache->cache[i].imp;

      *out_func = cache->cache[i].fast_path.func;

      goto update_cache;

  }

    }

    for (imp = toplevel; imp != NULL; imp = imp->fallback)

    {

  const pixman_fast_path_t *info = imp->fast_paths;

  while (info->op != PIXMAN_OP_NONE)

  {

      if ((info->op == op || info->op == PIXMAN_OP_any)   &&

    /* Formats */

    ((info->src_format == src_format) ||

     (info->src_format == PIXMAN_any))      &&

    ((info->mask_format == mask_format) ||

     (info->mask_format == PIXMAN_any))      &&

    ((info->dest_format == dest_format) ||

     (info->dest_format == PIXMAN_any))      &&

    /* Flags */

    (info->src_flags & src_flags) == info->src_flags  &&

    (info->mask_flags & mask_flags) == info->mask_flags  &&

    (info->dest_flags & dest_flags) == info->dest_flags)

      {

    *out_imp = imp;

    *out_func = info->func;

    /* Set i to the last spot in the cache so that the

     * move-to-front code below will work

     */

    i = N_CACHED_FAST_PATHS - 1;

    goto update_cache;

      }

      ++info;

  }

    }

    /* We should never reach this point */

    _pixman_log_error (

        FUNC,

        "No composite function found\n"

        "\n"

        "The most likely cause of this is that this system has issues with\n"

        "thread local storage\n");

    *out_imp = NULL;

    *out_func = dummy_composite_rect;

    return;

update_cache:

    if (i)

    {

  while (i--)

      cache->cache[i + 1] = cache->cache[i];

  cache->cache[0].imp = *out_imp;

  cache->cache[0].fast_path.op = op;

  cache->cache[0].fast_path.src_format = src_format;

  cache->cache[0].fast_path.src_flags = src_flags;

  cache->cache[0].fast_path.mask_format = mask_format;

  cache->cache[0].fast_path.mask_flags = mask_flags;

  cache->cache[0].fast_path.dest_format = dest_format;

  cache->cache[0].fast_path.dest_flags = dest_flags;

  cache->cache[0].fast_path.func = *out_func;

    }

}

static void

dummy_combine (pixman_implementation_t *imp,

         pixman_op_t              op,

         uint32_t *               pd,

         const uint32_t *         ps,

         const uint32_t *         pm,

         int                      w)

{

}

pixman_combine_32_func_t

_pixman_implementation_lookup_combiner (pixman_implementation_t *imp,

          pixman_op_t    op,

          pixman_bool_t    component_alpha,

          pixman_bool_t    narrow)

{

    while (imp)

    {

  pixman_combine_32_func_t f = NULL;

  switch ((narrow << 1) | component_alpha)

  {

  case 0: /* not narrow, not component alpha */

      f = (pixman_combine_32_func_t)imp->combine_float[op];

      break;

  case 1: /* not narrow, component_alpha */

      f = (pixman_combine_32_func_t)imp->combine_float_ca[op];

      break;

  case 2: /* narrow, not component alpha */

      f = imp->combine_32[op];

      break;

  case 3: /* narrow, component_alpha */

      f = imp->combine_32_ca[op];

      break;

  }

  if (f)

      return f;

  imp = imp->fallback;

    }

    /* We should never reach this point */

    _pixman_log_error (FUNC, "No known combine function\n");

    return dummy_combine;

}

pixman_bool_t

_pixman_implementation_blt (pixman_implementation_t * imp,

                            uint32_t *                src_bits,

                            uint32_t *                dst_bits,

                            int                       src_stride,

                            int                       dst_stride,

                            int                       src_bpp,

                            int                       dst_bpp,

                            int                       src_x,

                            int                       src_y,

                            int                       dest_x,

                            int                       dest_y,

                            int                       width,

                            int                       height)

{

    while (imp)

    {

  if (imp->blt &&

      (*imp->blt) (imp, src_bits, dst_bits, src_stride, dst_stride,

       src_bpp, dst_bpp, src_x, src_y, dest_x, dest_y,

       width, height))

  {

      return TRUE;

  }

  imp = imp->fallback;

    }

    return FALSE;

}

pixman_bool_t

_pixman_implementation_fill (pixman_implementation_t *imp,

                             uint32_t *               bits,

                             int                      stride,

                             int                      bpp,

                             int                      x,

                             int                      y,

                             int                      width,

                             int                      height,

                             uint32_t                 filler)

{

    while (imp)

    {

  if (imp->fill &&

      ((*imp->fill) (imp, bits, stride, bpp, x, y, width, height, filler)))

  {

      return TRUE;

  }

  imp = imp->fallback;

    }

    return FALSE;

}

static uint32_t *

get_scanline_null (pixman_iter_t *iter, const uint32_t *mask)

{

    return NULL;

}

void

_pixman_implementation_iter_init (pixman_implementation_t *imp,

                                  pixman_iter_t           *iter,

                                  pixman_image_t          *image,

                                  int                      x,

                                  int                      y,

                                  int                      width,

                                  int                      height,

                                  uint8_t                 *buffer,

                                  iter_flags_t             iter_flags,

                                  uint32_t                 image_flags)

{

    pixman_format_code_t format;

    iter->image = image;

    iter->buffer = (uint32_t *)buffer;

    iter->x = x;

    iter->y = y;

    iter->width = width;

    iter->height = height;

    iter->iter_flags = iter_flags;

    iter->image_flags = image_flags;

    iter->fini = NULL;

    if (!iter->image)

    {

  iter->get_scanline = get_scanline_null;

  return;

    }

    format = iter->image->common.extended_format_code;

    while (imp)

    {

        if (imp->iter_info)

        {

            const pixman_iter_info_t *info;

            for (info = imp->iter_info; info->format != PIXMAN_null; ++info)

            {

                if ((info->format == PIXMAN_any || info->format == format) &&

                    (info->image_flags & image_flags) == info->image_flags &&

                    (info->iter_flags & iter_flags) == info->iter_flags)

                {

                    iter->get_scanline = info->get_scanline;

                    iter->write_back = info->write_back;

                    if (info->initializer)

                        info->initializer (iter, info);

                    return;

                }

            }

        }

        imp = imp->fallback;

    }

}

pixman_bool_t

_pixman_disabled (const char *name)

{

    const char *env;

    if ((env = getenv ("PIXMAN_DISABLE")))

    {

  do

  {

      const char *end;

      int len;

      if ((end = strchr (env, ' ')))

    len = end - env;

      else

    len = strlen (env);

      if (strlen (name) == len && strncmp (name, env, len) == 0)

      {

    printf ("pixman: Disabled %s implementation\n", name);

    return TRUE;

      }

      env += len;

  }

  while (*env++);

    }

    return FALSE;

}

static const pixman_fast_path_t empty_fast_path[] =

{

    { PIXMAN_OP_NONE }

};

pixman_implementation_t *

_pixman_choose_implementation (void)

{

    pixman_implementation_t *imp;

    imp = _pixman_implementation_create_general();

    if (!_pixman_disabled ("fast"))

  imp = _pixman_implementation_create_fast_path (imp);

    imp = _pixman_x86_get_implementations (imp);

    imp = _pixman_arm_get_implementations (imp);

    imp = _pixman_ppc_get_implementations (imp);

    imp = _pixman_mips_get_implementations (imp);

    imp = _pixman_riscv_get_implementations (imp);

    imp = _pixman_implementation_create_noop (imp);

    if (_pixman_disabled ("wholeops"))

    {

        pixman_implementation_t *cur;

        /* Disable all whole-operation paths except the general one,

         * so that optimized iterators are used as much as possible.

         */

        for (cur = imp; cur->fallback; cur = cur->fallback)

            cur->fast_paths = empty_fast_path;

    }

    return imp;

}