/*
 * Copyright © 2020 Mike Blumenkrantz
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice (including the next
 * paragraph) shall be included in all copies or substantial portions of the
 * Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
 * IN THE SOFTWARE.
 *
 * Authors:
 *    Mike Blumenkrantz <michael.blumenkrantz@gmail.com>
 */

#include "nir.h"
#include "nir_builder.h"

/**
 * This pass uses the enabled clip planes from the rasterizer state to rewrite
 * vertex shader store operations and store a 0 to the corresponding gl_ClipDistance[n]
 * value if the plane is disabled
 */

/* recursively nest if/else blocks until we get to an array index,
 * then overwrite it if that plane isn't enabled
 */
static void
recursive_if_chain(nir_builder *b, nir_deref_instr *deref, nir_def *value, unsigned clip_plane_enable, nir_def *index, unsigned start, unsigned end)
{
   if (start == end - 1) {
      /* store the original value again if the clip plane is enabled */
      if (clip_plane_enable & (1 << start))
         nir_store_deref(b, deref, value, 1 << start);
      else
         nir_store_deref(b, deref, nir_imm_int(b, 0), 1 << start);
      return;
   }

   unsigned mid = start + (end - start) / 2;
   nir_push_if(b, nir_ilt_imm(b, index, mid));
   recursive_if_chain(b, deref, value, clip_plane_enable, index, start, mid);
   nir_push_else(b, NULL);
   recursive_if_chain(b, deref, value, clip_plane_enable, index, mid, end);
   nir_pop_if(b, NULL);
}

/* vulkan (and some drivers) provides no concept of enabling clip planes through api,
 * so we rewrite disabled clip planes to a zero value in order to disable them
 */
static bool
lower_clip_plane_store(nir_builder *b, nir_intrinsic_instr *instr,
                       void *cb_data)
{
   unsigned clip_plane_enable = *(unsigned *)cb_data;
   nir_variable *out;
   unsigned plane;

   if (instr->intrinsic != nir_intrinsic_store_deref)
      return false;

   nir_deref_instr *deref = nir_src_as_deref(instr->src[0]);

   out = nir_deref_instr_get_variable(deref);
   if ((out->data.location != VARYING_SLOT_CLIP_DIST0 &&
        out->data.location != VARYING_SLOT_CLIP_DIST1) ||
       out->data.mode != nir_var_shader_out)
      return false;

   b->cursor = nir_after_instr(&instr->instr);
   if (deref->deref_type == nir_deref_type_var) {
      int wrmask = nir_intrinsic_write_mask(instr);

      nir_def *components[4];
      int start = out->data.location == VARYING_SLOT_CLIP_DIST1 ? 4 : 0;
      /* rewrite components as zeroes for planes that aren't enabled */
      for (int i = 0; i < 4; i++) {
         if (wrmask & (1 << i)) {
            if (!(clip_plane_enable & (1 << (start + i))))
               components[i] = nir_imm_int(b, 0);
            else
               components[i] = nir_channel(b, instr->src[1].ssa, i);
         } else
            components[i] = nir_undef(b, 1, 32);
      }
      nir_store_deref(b, deref, nir_vec(b, components, instr->num_components), wrmask);
   } else if (nir_src_is_const(deref->arr.index)) {
      /* storing using a constant index */
      plane = nir_src_as_uint(deref->arr.index);
      /* no need to make changes if the clip plane is enabled */
      if (clip_plane_enable & (1 << plane))
         return false;

      assert(nir_intrinsic_write_mask(instr) == 1);
      nir_store_deref(b, deref, nir_imm_int(b, 0), 1);
   } else {
      /* storing using a variable index */
      nir_def *index = deref->arr.index.ssa;
      unsigned length = glsl_get_length(nir_deref_instr_parent(deref)->type);

      recursive_if_chain(b, deref, instr->src[1].ssa, clip_plane_enable, index, 0, length);
   }
   nir_instr_remove(&instr->instr);
   return true;
}

/* vulkan (and some drivers) provides no concept of enabling clip planes through api,
 * so we rewrite disabled clip planes to a zero value in order to disable them
 */
static bool
lower_clip_plane_store_io(nir_builder *b, nir_intrinsic_instr *intr,
                          void *cb_data)
{
   unsigned clip_plane_enable = *(unsigned *)cb_data;

   switch (intr->intrinsic) {
   case nir_intrinsic_store_output:
   case nir_intrinsic_store_per_primitive_output:
   case nir_intrinsic_store_per_vertex_output:
   case nir_intrinsic_store_per_view_output:
      break;
   default:
      return false;
   }

   nir_io_semantics sem = nir_intrinsic_io_semantics(intr);
   if (sem.location != VARYING_SLOT_CLIP_DIST0 &&
       sem.location != VARYING_SLOT_CLIP_DIST1)
      return false;

   b->cursor = nir_before_instr(&intr->instr);
   nir_src *src_offset = nir_get_io_offset_src(intr);
   unsigned wrmask = nir_intrinsic_write_mask(intr);
   unsigned base_index = (sem.location == VARYING_SLOT_CLIP_DIST1 ? 4 : 0) +
                         nir_intrinsic_component(intr);
   nir_def *zero = nir_imm_int(b, 0);

   if (nir_src_is_const(*src_offset)) {
      base_index += nir_src_as_uint(*src_offset) * 4;

      u_foreach_bit(bit, wrmask) {
         if (!(clip_plane_enable & BITFIELD_BIT(base_index + bit))) {
            nir_def *vec = nir_vector_insert_imm(b, intr->src[0].ssa, zero, bit);
            nir_src_rewrite(&intr->src[0], vec);
         }
      }
   } else {
      u_foreach_bit(bit, wrmask) {
         unsigned index = base_index + bit;
         nir_def *chan = nir_channel(b, intr->src[0].ssa, bit);
         nir_def *dist0 = clip_plane_enable & BITFIELD_BIT(index) ? chan : zero;
         nir_def *dist1 = clip_plane_enable & BITFIELD_BIT(index + 4) ? chan : zero;
         chan = nir_bcsel(b, nir_ieq_imm(b, src_offset->ssa, 0), dist0, dist1);
         nir_def *vec = nir_vector_insert_imm(b, intr->src[0].ssa, chan, bit);
         nir_src_rewrite(&intr->src[0], vec);
      }
   }
   return true;
}

bool
nir_lower_clip_disable(nir_shader *shader, unsigned clip_plane_enable)
{
   /* if all user planes are enabled in API that are written in the array, always ignore;
    * this explicitly covers the 2x vec4 case
    */
   if (clip_plane_enable == u_bit_consecutive(0, shader->info.clip_distance_array_size))
      return false;

   return nir_shader_intrinsics_pass(shader,
                                     shader->info.io_lowered ? lower_clip_plane_store_io : lower_clip_plane_store,
                                       nir_metadata_control_flow,
                                       &clip_plane_enable);
}