import {
    GET_LIST,
    GET_MANY,
    GET_MANY_REFERENCE,
    DELETE,
    DELETE_MANY,
    UPDATE_MANY,
} from 'ra-core';
import {
    QUERY_TYPES,
    IntrospectionResult,
    IntrospectedResource,
} from 'ra-data-graphql';
import {
    ArgumentNode,
    IntrospectionField,
    IntrospectionNamedTypeRef,
    IntrospectionObjectType,
    IntrospectionUnionType,
    TypeKind,
    VariableDefinitionNode,
} from 'graphql';
import * as gqlTypes from 'graphql-ast-types-browser';

import getFinalType from './getFinalType';
import { getGqlType } from './getGqlType';

type SparseField = string | { [k: string]: SparseField[] };
type ExpandedSparseField = { linkedType?: string; fields: SparseField[] };
type ProcessedFields = {
    resourceFields: IntrospectionField[];
    linkedSparseFields: ExpandedSparseField[];
};

function processSparseFields(
    resourceFields: readonly IntrospectionField[],
    sparseFields: SparseField[]
): ProcessedFields & { resourceFields: readonly IntrospectionField[] } {
    if (!sparseFields || sparseFields.length === 0)
        throw new Error(
            "Empty sparse fields. Specify at least one field or remove the 'sparseFields' param"
        );

    const permittedSparseFields: ProcessedFields = sparseFields.reduce(
        (permitted: ProcessedFields, sparseField: SparseField) => {
            let expandedSparseField: ExpandedSparseField;
            if (typeof sparseField == 'string')
                expandedSparseField = { fields: [sparseField] };
            else {
                const [linkedType, linkedSparseFields] =
                    Object.entries(sparseField)[0];
                expandedSparseField = {
                    linkedType,
                    fields: linkedSparseFields,
                };
            }

            const availableField = resourceFields.find(
                resourceField =>
                    resourceField.name ===
                    (expandedSparseField.linkedType ||
                        expandedSparseField.fields[0])
            );

            if (availableField && expandedSparseField.linkedType) {
                permitted.linkedSparseFields.push(expandedSparseField);
                permitted.resourceFields.push(availableField);
            } else if (availableField)
                permitted.resourceFields.push(availableField);

            return permitted;
        },
        { resourceFields: [], linkedSparseFields: [] }
    ); // ensure the requested fields are available

    if (
        permittedSparseFields.resourceFields.length === 0 &&
        permittedSparseFields.linkedSparseFields.length === 0
    )
        throw new Error(
            "Requested sparse fields not found. Ensure sparse fields are available in the resource's type"
        );

    return permittedSparseFields;
}

export default (introspectionResults: IntrospectionResult) =>
    (
        resource: IntrospectedResource,
        raFetchMethod: string,
        queryType: IntrospectionField,
        variables: any
    ) => {
        const { sortField, sortOrder, ...metaVariables } = variables;

        const apolloArgs = buildApolloArgs(queryType, variables);
        const args = buildArgs(queryType, variables);

        const sparseFields = metaVariables.meta?.sparseFields;
        if (sparseFields) delete metaVariables.meta.sparseFields;

        const metaArgs = buildArgs(queryType, metaVariables);

        const fields = buildFields(introspectionResults)(
            resource.type.fields,
            sparseFields
        );

        if (
            raFetchMethod === GET_LIST ||
            raFetchMethod === GET_MANY ||
            raFetchMethod === GET_MANY_REFERENCE
        ) {
            return gqlTypes.document([
                gqlTypes.operationDefinition(
                    'query',
                    gqlTypes.selectionSet([
                        gqlTypes.field(
                            gqlTypes.name(queryType.name),
                            gqlTypes.name('items'),
                            args,
                            null,
                            gqlTypes.selectionSet(fields)
                        ),
                        gqlTypes.field(
                            gqlTypes.name(`_${queryType.name}Meta`),
                            gqlTypes.name('total'),
                            metaArgs,
                            null,
                            gqlTypes.selectionSet([
                                gqlTypes.field(gqlTypes.name('count')),
                            ])
                        ),
                    ]),
                    gqlTypes.name(queryType.name),
                    apolloArgs
                ),
            ]);
        }

        if (raFetchMethod === DELETE) {
            return gqlTypes.document([
                gqlTypes.operationDefinition(
                    'mutation',
                    gqlTypes.selectionSet([
                        gqlTypes.field(
                            gqlTypes.name(queryType.name),
                            gqlTypes.name('data'),
                            args,
                            null,
                            gqlTypes.selectionSet(fields)
                        ),
                    ]),
                    gqlTypes.name(queryType.name),
                    apolloArgs
                ),
            ]);
        }

        if (raFetchMethod === DELETE_MANY || raFetchMethod === UPDATE_MANY) {
            return gqlTypes.document([
                gqlTypes.operationDefinition(
                    'mutation',
                    gqlTypes.selectionSet([
                        gqlTypes.field(
                            gqlTypes.name(queryType.name),
                            gqlTypes.name('data'),
                            args,
                            null,
                            gqlTypes.selectionSet([
                                gqlTypes.field(gqlTypes.name('ids')),
                            ])
                        ),
                    ]),
                    gqlTypes.name(queryType.name),
                    apolloArgs
                ),
            ]);
        }

        return gqlTypes.document([
            gqlTypes.operationDefinition(
                QUERY_TYPES.includes(raFetchMethod) ? 'query' : 'mutation',
                gqlTypes.selectionSet([
                    gqlTypes.field(
                        gqlTypes.name(queryType.name),
                        gqlTypes.name('data'),
                        args,
                        null,
                        gqlTypes.selectionSet(fields)
                    ),
                ]),
                gqlTypes.name(queryType.name),
                apolloArgs
            ),
        ]);
    };

export const buildFields =
    (introspectionResults: IntrospectionResult, paths = []) =>
    (fields: readonly IntrospectionField[], sparseFields?: SparseField[]) => {
        const { resourceFields, linkedSparseFields } = sparseFields
            ? processSparseFields(fields, sparseFields)
            : { resourceFields: fields, linkedSparseFields: [] };

        return resourceFields.reduce((acc, field) => {
            const type = getFinalType(field.type);

            if (type.name.startsWith('_')) {
                return acc;
            }

            if (
                type.kind !== TypeKind.OBJECT &&
                type.kind !== TypeKind.INTERFACE
            ) {
                return [...acc, gqlTypes.field(gqlTypes.name(field.name))];
            }

            const linkedResource = introspectionResults.resources.find(
                r => r.type.name === type.name
            );

            if (linkedResource) {
                const linkedResourceSparseFields = linkedSparseFields.find(
                    lSP => lSP.linkedType === field.name
                )?.fields || ['id']; // default to id if no sparse fields specified for linked resource

                const linkedResourceFields = buildFields(introspectionResults)(
                    linkedResource.type.fields,
                    linkedResourceSparseFields
                );

                return [
                    ...acc,
                    gqlTypes.field(
                        gqlTypes.name(field.name),
                        null,
                        null,
                        null,
                        gqlTypes.selectionSet(linkedResourceFields)
                    ),
                ];
            }

            const linkedType = introspectionResults.types.find(
                t => t.name === type.name
            );

            if (linkedType && !paths.includes(linkedType.name)) {
                const possibleTypes =
                    (linkedType as IntrospectionUnionType).possibleTypes || [];

                return [
                    ...acc,
                    gqlTypes.field(
                        gqlTypes.name(field.name),
                        null,
                        null,
                        null,
                        gqlTypes.selectionSet([
                            ...buildFragments(introspectionResults)(
                                possibleTypes
                            ),
                            ...buildFields(introspectionResults, [
                                ...paths,
                                linkedType.name,
                            ])(
                                (linkedType as IntrospectionObjectType).fields,
                                linkedSparseFields.find(
                                    lSP => lSP.linkedType === field.name
                                )?.fields
                            ),
                        ])
                    ),
                ];
            }

            // NOTE: We might have to handle linked types which are not resources but will have to be careful about
            // ending with endless circular dependencies
            return acc;
        }, []);
    };

export const buildFragments =
    (introspectionResults: IntrospectionResult) =>
    (
        possibleTypes: readonly IntrospectionNamedTypeRef<IntrospectionObjectType>[]
    ) =>
        possibleTypes.reduce((acc, possibleType) => {
            const type = getFinalType(possibleType);

            const linkedType = introspectionResults.types.find(
                t => t.name === type.name
            );

            return [
                ...acc,
                gqlTypes.inlineFragment(
                    gqlTypes.selectionSet(
                        buildFields(introspectionResults)(
                            (linkedType as IntrospectionObjectType).fields
                        )
                    ),
                    gqlTypes.namedType(gqlTypes.name(type.name))
                ),
            ];
        }, []);

export const buildArgs = (
    query: IntrospectionField,
    variables: any
): ArgumentNode[] => {
    if (query.args.length === 0) {
        return [];
    }

    const validVariables = Object.keys(variables).filter(
        k => typeof variables[k] !== 'undefined'
    );
    const args = query.args
        .filter(a => validVariables.includes(a.name))
        .reduce(
            (acc, arg) => [
                ...acc,
                gqlTypes.argument(
                    gqlTypes.name(arg.name),
                    gqlTypes.variable(gqlTypes.name(arg.name))
                ),
            ],
            []
        );

    return args;
};

export const buildApolloArgs = (
    query: IntrospectionField,
    variables: any
): VariableDefinitionNode[] => {
    if (query.args.length === 0) {
        return [];
    }

    const validVariables = Object.keys(variables).filter(
        k => typeof variables[k] !== 'undefined'
    );

    const args = query.args
        .filter(a => validVariables.includes(a.name))
        .reduce((acc, arg) => {
            return [
                ...acc,
                gqlTypes.variableDefinition(
                    gqlTypes.variable(gqlTypes.name(arg.name)),
                    getGqlType(arg.type)
                ),
            ];
        }, []);

    return args;
};