//
// Copyright (c) 2017 The Khronos Group Inc.
// 
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//    http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
//
#include "procs.h"
#include "subhelpers.h"
#include "../../test_common/harness/conversions.h"
#include "../../test_common/harness/typeWrappers.h"

static const char * lbar_source =
"__kernel void test_lbar(const __global Type *in, __global int2 *xy, __global Type *out)\n"
"{\n"
"    __local int tmp[200];\n"
"    int gid = get_global_id(0);\n"
"    int nid = get_sub_group_size();\n"
"    int lid = get_sub_group_local_id();\n"
"    xy[gid].x = lid;\n"
"    xy[gid].y = get_sub_group_id();\n"
"    if (get_sub_group_id() == 0) {\n"
"        tmp[lid] = in[gid];\n"
"        sub_group_barrier(CLK_LOCAL_MEM_FENCE);\n"
"        out[gid] = tmp[nid-1-lid];\n"
"    } else {\n"
"        out[gid] = -in[gid];\n"
"    }\n"
"}\n";

static const char * gbar_source =
"__kernel void test_gbar(const __global Type *in, __global int2 *xy, __global Type *out, __global Type *tmp)\n"
"{\n"
"    int gid = get_global_id(0);\n"
"    int nid = get_sub_group_size();\n"
"    int lid = get_sub_group_local_id();\n"
"    int tof = get_group_id(0)*get_max_sub_group_size();\n"
"    xy[gid].x = lid;\n"
"    xy[gid].y = get_sub_group_id();\n"
"    if (get_sub_group_id() == 0) {\n"
"        tmp[tof+lid] = in[gid];\n"
"        sub_group_barrier(CLK_GLOBAL_MEM_FENCE);\n"
"        out[gid] = tmp[tof+nid-1-lid];\n"
"    } else {\n"
"        out[gid] = -in[gid];\n"
"    }\n"
"}\n";

// barrier test functions
template <int Which>
struct BAR {
    static void gen(cl_int *x, cl_int *t, cl_int *m, int ns, int nw, int ng)
    {
        int i, ii, j, k, n;
        int nj = (nw + ns - 1)/ns;
        int e;

        ii = 0;
        for (k=0; k<ng; ++k) {
            for (j=0; j<nj; ++j) {
                ii = j*ns;
                n = ii + ns > nw ? nw - ii : ns;

                for (i=0;i<n;++i)
                    t[ii+i] = genrand_int32(gMTdata);
            }

            // Now map into work group using map from device
            for (j=0;j<nw;++j) {
                i = m[2*j+1]*ns + m[2*j];
                x[j] = t[i];
            }

            x += nw;
        m += 2*nw;
        }
    }

    static int chk(cl_int *x, cl_int *y, cl_int *mx, cl_int *my, cl_int *m, int ns, int nw, int ng)
    {
        int ii, i, j, k, n;
        int nj = (nw + ns - 1)/ns;
        cl_int tr, rr;

    if (Which == 0)
            log_info("  sub_group_barrier(CLK_LOCAL_MEM_FENCE)...\n");
    else
            log_info("  sub_group_barrier(CLK_GLOBAL_MEM_FENCE)...\n");

        for (k=0; k<ng; ++k) {
            // Map to array indexed to array indexed by local ID and sub group
            for (j=0; j<nw; ++j) {
                i = m[2*j+1]*ns + m[2*j];
                mx[i] = x[j];
                my[i] = y[j];
            }

            for (j=0; j<nj; ++j) {
                ii = j*ns;
                n = ii + ns > nw ? nw - ii : ns;

                for (i=0; i<n; ++i) {
                    tr = j == 0 ?  mx[ii + n - 1 - i] : -mx[ii + i];
                    rr = my[ii + i];

                    if (tr != rr) {
                        log_error("ERROR: sub_group_barrier mismatch for local id %d in sub group %d in group %d\n",
                                   i, j, k);
                        return -1;
                    }
                }
            }

            x += nw;
            y += nw;
        m += 2*nw;
        }

        return 0;
    }
};


// Entry point from main
int
test_barrier_functions(cl_device_id device, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;

    // Adjust these individually below if desired/needed
#define G 2000
#define L 200

    error = test<cl_int, BAR<0>, G, L>::run(device, context, queue, num_elements, "test_lbar", lbar_source);
    error = test<cl_int, BAR<1>, G, L, G>::run(device, context, queue, num_elements, "test_gbar", gbar_source);

    return error;
}

