from functools import partial

import pytest
import torch
import torch.multiprocessing as mp
import torch.nn as nn

from colossalai._analyzer.fx.graph_module import ColoGraphModule
from colossalai._analyzer.fx.passes.shape_prop import shape_prop_pass
from colossalai._analyzer.fx.tracer.tracer import ColoTracer
from colossalai.auto_parallel.tensor_shard.node_handler import PermuteHandler, TransposeHandler
from colossalai.auto_parallel.tensor_shard.node_handler.conv_handler import ConvFunctionHandler
from colossalai.auto_parallel.tensor_shard.node_handler.linear_handler import LinearFunctionHandler
from colossalai.auto_parallel.tensor_shard.sharding_strategy import OperationData, OperationDataType, StrategiesVector
from colossalai.device.device_mesh import DeviceMesh
from colossalai.initialize import launch
from colossalai.logging import disable_existing_loggers
from colossalai.testing import assert_close, parameterize, rerun_if_address_is_in_use
from colossalai.testing.pytest_wrapper import run_on_environment_flag
from colossalai.utils import free_port
from tests.test_auto_parallel.test_tensor_shard.test_node_handler.utils import numerical_test_for_node_strategy


class ConvReshapeModel(nn.Module):

    def __init__(self, reshape_dims, call_function):
        super().__init__()
        self.reshape_dims = reshape_dims
        self.call_function = call_function

    def forward(self, input, other):
        conv_node = nn.functional.conv2d(input, other, bias=None)
        # permute_node = torch.permute(conv_node, self.permute_dims)
        if self.call_function == torch.permute:
            permute_node = self.call_function(conv_node, self.reshape_dims)
        else:
            permute_node = self.call_function(conv_node, *self.reshape_dims)
        return permute_node


class LinearReshapeModel(nn.Module):

    def __init__(self, reshape_dims, call_function):
        super().__init__()
        self.reshape_dims = reshape_dims
        self.call_function = call_function

    def forward(self, input, other):
        linear_node = nn.functional.linear(input, other, bias=None)
        # permute_node = torch.permute(linear_node, self.tgt_shape)
        if self.call_function == torch.permute:
            permute_node = self.call_function(linear_node, self.reshape_dims)
        else:
            permute_node = self.call_function(linear_node, *self.reshape_dims)
        return permute_node


def check_view_handler(rank, call_function, reshape_dims, model_cls, world_size, port):
    disable_existing_loggers()
    launch(config={}, rank=rank, world_size=world_size, host='localhost', port=port, backend='nccl')
    if call_function == torch.permute:
        reshape_dims = reshape_dims[0]
    elif call_function == torch.transpose:
        reshape_dims = reshape_dims[1]
    model = model_cls(reshape_dims, call_function).cuda()

    if model_cls.__name__ == 'ConvReshapeModel':
        input = torch.rand(8, 8, 66, 66).to('cuda')
        other = torch.rand(16, 8, 3, 3).to('cuda')
        # index of conv node in computation graph
        node_index = 2
        # total number of conv strategies
        strategy_number = 16
    if model_cls.__name__ == 'LinearReshapeModel':
        input = torch.rand(8, 16, 64, 32).to('cuda')
        other = torch.rand(64, 32).to('cuda')
        # index of linear node in computation graph
        node_index = 2
        # total number of linear strategies
        strategy_number = 23

    physical_mesh_id = torch.arange(0, 4)
    mesh_shape = (2, 2)
    device_mesh = DeviceMesh(physical_mesh_id, mesh_shape, init_process_group=True)

    numerical_test_for_node_strategy(model=model,
                                     device_mesh=device_mesh,
                                     node_index=node_index,
                                     strategy_number=strategy_number,
                                     input_args=[input, other],
                                     meta_arg_names=['input', 'other'],
                                     node_type='following')
    tracer = ColoTracer(bias_addition_split=True)
    if model_cls.__name__ == 'ConvReshapeModel':
        # graph():
        #     %input_1 : torch.Tensor [#users=1] = placeholder[target=input]
        #     %other : torch.Tensor [#users=1] = placeholder[target=other]
        #     %conv2d : [#users=1] = call_function[target=torch.conv2d](args = (%input_1, %other), kwargs = {bias: None})
        #     %permute : [#users=1] = call_function[target=torch.permute](args = (%conv2d, (0, 2, 1, 3)), kwargs = {})
        #     return permute
        meta_args = {
            'input': torch.rand(8, 8, 66, 66).to('meta'),
            'other': torch.rand(16, 8, 3, 3).to('meta'),
        }
        graph = tracer.trace(model, meta_args=meta_args)

    if model_cls.__name__ == 'LinearReshapeModel':
        # graph():
        #     %input_1 : torch.Tensor [#users=1] = placeholder[target=input]
        #     %other : torch.Tensor [#users=1] = placeholder[target=other]
        #     %linear : [#users=1] = call_function[target=torch._C._nn.linear](args = (%input_1, %other), kwargs = {bias: None})
        #     %permute : [#users=1] = call_method[target=view](args = (%linear, 32, 4, 32, 32, 4), kwargs = {})
        #     return permute
        meta_args = {
            'input': torch.rand(8, 16, 64, 32).to('meta'),
            'other': torch.rand(64, 32).to('meta'),
        }
        graph = tracer.trace(model, meta_args=meta_args)

    gm = ColoGraphModule(model, graph)
    shape_prop_pass(gm, *meta_args.values())

    previous_mod_node = list(graph.nodes)[2]
    reshape_node = list(graph.nodes)[3]
    view_strategies_vector = StrategiesVector(reshape_node)
    previous_strategies_vector = StrategiesVector(previous_mod_node)

    # build handler
    if model_cls.__name__ == 'ConvReshapeModel':

        conv_handler = ConvFunctionHandler(node=previous_mod_node,
                                           device_mesh=device_mesh,
                                           strategies_vector=previous_strategies_vector)
        conv_handler.register_strategy(compute_resharding_cost=False)
        setattr(previous_mod_node, 'strategies_vector', previous_strategies_vector)

    if model_cls.__name__ == 'LinearReshapeModel':
        assert len(previous_strategies_vector) == 0
        linear_handler = LinearFunctionHandler(node=previous_mod_node,
                                               device_mesh=device_mesh,
                                               strategies_vector=previous_strategies_vector)
        linear_handler.register_strategy(compute_resharding_cost=False)
        setattr(previous_mod_node, 'strategies_vector', previous_strategies_vector)

    if call_function == torch.permute:
        reshape_handler = PermuteHandler(node=reshape_node,
                                         device_mesh=device_mesh,
                                         strategies_vector=view_strategies_vector)
    else:
        reshape_handler = TransposeHandler(node=reshape_node,
                                           device_mesh=device_mesh,
                                           strategies_vector=view_strategies_vector)

    reshape_handler.register_strategy(compute_resharding_cost=False)

    # check operation data mapping
    mapping = reshape_handler.get_operation_data_mapping()

    for name, op_data in mapping.items():
        op_data: OperationData
        # make sure they have valid values
        assert op_data.data is not None

    if model_cls.__name__ == 'ConvReshapeModel':
        assert mapping['input'].name == "conv2d"
    else:
        assert mapping['input'].name == "linear"
    assert mapping['input'].data.is_meta
    assert mapping['input'].data.shape == torch.Size([8, 16, 64, 64])
    assert mapping['input'].type == OperationDataType.ARG
    assert mapping['input'].logical_shape == torch.Size([8, 16, 64, 64])

    if call_function == torch.permute:
        assert mapping['output'].name == "permute"
        assert mapping['output'].data.is_meta
        assert mapping['output'].data.shape == torch.permute(torch.rand(8, 16, 64, 64), reshape_dims).shape
        assert mapping['output'].type == OperationDataType.OUTPUT
    else:
        assert mapping['output'].name == "transpose"
        assert mapping['output'].data.is_meta
        assert mapping['output'].data.shape == torch.transpose(torch.rand(8, 16, 64, 64), *reshape_dims).shape
        assert mapping['output'].type == OperationDataType.OUTPUT

    # reshape handler is a following strategy handler, so the number of strategies is equal to the predecessor node.
    assert len(view_strategies_vector) == len(previous_strategies_vector)
    strategy_name_list = [strategy.name for strategy in view_strategies_vector]
    if rank == 0:
        for name in strategy_name_list:
            print(name)
    if model_cls.__name__ == 'ConvReshapeModel':

        if reshape_dims in ((0, 2, 1, 3), (1, 2)):
            assert '[S0, S1, R, R] -> [S0, R, S1, R]_0' in strategy_name_list
            assert '[S1, S0, R, R] -> [S1, R, S0, R]_1' in strategy_name_list
            assert '[S0, R, R, R] -> [S0, R, R, R]_2' in strategy_name_list
            assert '[S1, R, R, R] -> [S1, R, R, R]_3' in strategy_name_list
            assert '[S0, R, R, R] -> [S0, R, R, R]_4' in strategy_name_list
            assert '[S1, R, R, R] -> [S1, R, R, R]_5' in strategy_name_list
            assert '[R, S1, R, R] -> [R, R, S1, R]_6' in strategy_name_list
            assert '[R, S0, R, R] -> [R, R, S0, R]_7' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_8' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_9' in strategy_name_list
            assert '[R, S0, R, R] -> [R, R, S0, R]_10' in strategy_name_list
            assert '[R, S1, R, R] -> [R, R, S1, R]_11' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_12' in strategy_name_list
            assert '[S01, R, R, R] -> [S01, R, R, R]_13' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_14' in strategy_name_list
            assert '[R, S01, R, R] -> [R, R, S01, R]_15' in strategy_name_list

        if reshape_dims == (2, 0, 1, 3):
            assert '[S0, S1, R, R] -> [R, S0, S1, R]_0' in strategy_name_list
            assert '[S1, S0, R, R] -> [R, S1, S0, R]_1' in strategy_name_list
            assert '[S0, R, R, R] -> [R, S0, R, R]_2' in strategy_name_list
            assert '[S1, R, R, R] -> [R, S1, R, R]_3' in strategy_name_list
            assert '[S0, R, R, R] -> [R, S0, R, R]_4' in strategy_name_list
            assert '[S1, R, R, R] -> [R, S1, R, R]_5' in strategy_name_list
            assert '[R, S1, R, R] -> [R, R, S1, R]_6' in strategy_name_list
            assert '[R, S0, R, R] -> [R, R, S0, R]_7' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_8' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_9' in strategy_name_list
            assert '[R, S0, R, R] -> [R, R, S0, R]_10' in strategy_name_list
            assert '[R, S1, R, R] -> [R, R, S1, R]_11' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_12' in strategy_name_list
            assert '[S01, R, R, R] -> [R, S01, R, R]_13' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_14' in strategy_name_list
            assert '[R, S01, R, R] -> [R, R, S01, R]_15' in strategy_name_list

        if reshape_dims == (1, 3):
            assert '[S0, S1, R, R] -> [S0, R, R, S1]_0' in strategy_name_list
            assert '[S1, S0, R, R] -> [S1, R, R, S0]_1' in strategy_name_list
            assert '[S0, R, R, R] -> [S0, R, R, R]_2' in strategy_name_list
            assert '[S1, R, R, R] -> [S1, R, R, R]_3' in strategy_name_list
            assert '[S0, R, R, R] -> [S0, R, R, R]_4' in strategy_name_list
            assert '[S1, R, R, R] -> [S1, R, R, R]_5' in strategy_name_list
            assert '[R, S1, R, R] -> [R, R, R, S1]_6' in strategy_name_list
            assert '[R, S0, R, R] -> [R, R, R, S0]_7' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_8' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_9' in strategy_name_list
            assert '[R, S0, R, R] -> [R, R, R, S0]_10' in strategy_name_list
            assert '[R, S1, R, R] -> [R, R, R, S1]_11' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_12' in strategy_name_list
            assert '[S01, R, R, R] -> [S01, R, R, R]_13' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_14' in strategy_name_list
            assert '[R, S01, R, R] -> [R, R, R, S01]_15' in strategy_name_list

    if model_cls.__name__ == 'LinearReshapeModel':

        if reshape_dims == ((0, 2, 1, 3), (1, 2)):
            assert '[S0, R, R, S1] -> [S0, R, R, S1]_11' in strategy_name_list
            assert '[R, S0, R, S1] -> [R, R, S0, S1]_12' in strategy_name_list
            assert '[R, R, S0, S1] -> [R, S0, R, S1]_13' in strategy_name_list
            assert '[S1, R, R, S0] -> [S1, R, R, S0]_14' in strategy_name_list
            assert '[R, S1, R, S0] -> [R, R, S1, S0]_15' in strategy_name_list
            assert '[R, R, S1, S0] -> [R, S1, R, S0]_16' in strategy_name_list
            assert '[S0, R, R, R] -> [S0, R, R, R]_17' in strategy_name_list
            assert '[R, S0, R, R] -> [R, R, S0, R]_18' in strategy_name_list
            assert '[R, R, S0, R] -> [R, S0, R, R]_19' in strategy_name_list
            assert '[S1, R, R, R] -> [S1, R, R, R]_20' in strategy_name_list
            assert '[R, S1, R, R] -> [R, R, S1, R]_21' in strategy_name_list
            assert '[R, R, S1, R] -> [R, S1, R, R]_22' in strategy_name_list
            assert '[R, R, R, S1] -> [R, R, R, S1]_10' in strategy_name_list
            assert '[R, R, R, S0] -> [R, R, R, S0]_9' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_8' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_7' in strategy_name_list
            assert '[R, R, R, S0] -> [R, R, R, S0]_6' in strategy_name_list
            assert '[R, R, R, S1] -> [R, R, R, S1]_5' in strategy_name_list
            assert '[S01, R, R, R] -> [S01, R, R, R]_0' in strategy_name_list
            assert '[R, S01, R, R] -> [R, R, S01, R]_1' in strategy_name_list
            assert '[R, R, S01, R] -> [R, S01, R, R]_2' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_3' in strategy_name_list
            assert '[R, R, R, S01] -> [R, R, R, S01]_4' in strategy_name_list

        if reshape_dims == (2, 0, 1, 3):
            assert '[S0, R, R, S1] -> [R, S0, R, S1]_11' in strategy_name_list
            assert '[R, S0, R, S1] -> [R, R, S0, S1]_12' in strategy_name_list
            assert '[R, R, S0, S1] -> [S0, R, R, S1]_13' in strategy_name_list
            assert '[S1, R, R, S0] -> [R, S1, R, S0]_14' in strategy_name_list
            assert '[R, S1, R, S0] -> [R, R, S1, S0]_15' in strategy_name_list
            assert '[R, R, S1, S0] -> [S1, R, R, S0]_16' in strategy_name_list
            assert '[S0, R, R, R] -> [R, S0, R, R]_17' in strategy_name_list
            assert '[R, S0, R, R] -> [R, R, S0, R]_18' in strategy_name_list
            assert '[R, R, S0, R] -> [S0, R, R, R]_19' in strategy_name_list
            assert '[S1, R, R, R] -> [R, S1, R, R]_20' in strategy_name_list
            assert '[R, S1, R, R] -> [R, R, S1, R]_21' in strategy_name_list
            assert '[R, R, S1, R] -> [S1, R, R, R]_22' in strategy_name_list
            assert '[R, R, R, S1] -> [R, R, R, S1]_10' in strategy_name_list
            assert '[R, R, R, S0] -> [R, R, R, S0]_9' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_8' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_7' in strategy_name_list
            assert '[R, R, R, S0] -> [R, R, R, S0]_6' in strategy_name_list
            assert '[R, R, R, S1] -> [R, R, R, S1]_5' in strategy_name_list
            assert '[S01, R, R, R] -> [R, S01, R, R]_0' in strategy_name_list
            assert '[R, S01, R, R] -> [R, R, S01, R]_1' in strategy_name_list
            assert '[R, R, S01, R] -> [S01, R, R, R]_2' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_3' in strategy_name_list
            assert '[R, R, R, S01] -> [R, R, R, S01]_4' in strategy_name_list

        if reshape_dims == (1, 3):
            assert '[S0, R, R, S1] -> [S0, S1, R, R]_11' in strategy_name_list
            assert '[R, S0, R, S1] -> [R, S1, R, S0]_12' in strategy_name_list
            assert '[R, R, S0, S1] -> [R, S1, S0, R]_13' in strategy_name_list
            assert '[S1, R, R, S0] -> [S1, S0, R, R]_14' in strategy_name_list
            assert '[R, S1, R, S0] -> [R, S0, R, S1]_15' in strategy_name_list
            assert '[R, R, S1, S0] -> [R, S0, S1, R]_16' in strategy_name_list
            assert '[S0, R, R, R] -> [S0, R, R, R]_17' in strategy_name_list
            assert '[R, S0, R, R] -> [R, R, R, S0]_18' in strategy_name_list
            assert '[R, R, S0, R] -> [R, R, S0, R]_19' in strategy_name_list
            assert '[S1, R, R, R] -> [S1, R, R, R]_20' in strategy_name_list
            assert '[R, S1, R, R] -> [R, R, R, S1]_21' in strategy_name_list
            assert '[R, R, S1, R] -> [R, R, S1, R]_22' in strategy_name_list
            assert '[R, R, R, S1] -> [R, S1, R, R]_10' in strategy_name_list
            assert '[R, R, R, S0] -> [R, S0, R, R]_9' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_8' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_7' in strategy_name_list
            assert '[R, R, R, S0] -> [R, S0, R, R]_6' in strategy_name_list
            assert '[R, R, R, S1] -> [R, S1, R, R]_5' in strategy_name_list
            assert '[S01, R, R, R] -> [S01, R, R, R]_0' in strategy_name_list
            assert '[R, S01, R, R] -> [R, R, R, S01]_1' in strategy_name_list
            assert '[R, R, S01, R] -> [R, R, S01, R]_2' in strategy_name_list
            assert '[R, R, R, R] -> [R, R, R, R]_3' in strategy_name_list
            assert '[R, R, R, S01] -> [R, S01, R, R]_4' in strategy_name_list


@run_on_environment_flag(name='AUTO_PARALLEL')
@pytest.mark.dist
@rerun_if_address_is_in_use()
@parameterize('call_function', [torch.permute, torch.transpose])
@parameterize('reshape_dims', [((0, 2, 1, 3), (1, 2)), ((2, 0, 1, 3), (1, 3))])
@parameterize('model_cls', [ConvReshapeModel, LinearReshapeModel])
def test_view_handler(call_function, reshape_dims, model_cls):
    world_size = 4
    run_func = partial(check_view_handler,
                       call_function=call_function,
                       reshape_dims=reshape_dims,
                       model_cls=model_cls,
                       world_size=world_size,
                       port=free_port())
    mp.spawn(run_func, nprocs=world_size)


if __name__ == '__main__':
    test_view_handler()
