/*

 * Copyright (c) 2016, Oracle and/or its affiliates. All rights reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Oracle designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Oracle in the LICENSE file that accompanied this code.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

package jdk.internal.jshell.tool;

import java.util.ArrayList;

import java.util.Arrays;

import java.util.Collection;

import java.util.EnumSet;

import java.util.HashMap;

import java.util.Iterator;

import java.util.List;

import java.util.Locale;

import java.util.Map;

import java.util.Map.Entry;

import java.util.regex.Matcher;

import java.util.regex.Pattern;

import static java.util.stream.Collectors.joining;

/**

 * Feedback customization support

 *

 * @author Robert Field

 */

class Feedback {

    // Patern for substituted fields within a customized format string

    private static final Pattern FIELD_PATTERN = Pattern.compile("\\{(.*?)\\}");

    // Internal field name for truncation length

    private static final String TRUNCATION_FIELD = "<truncation>";

    // For encoding to Properties String

    private static final String RECORD_SEPARATOR = "\u241E";

    // Mapping of mode name to mode

    private final Map<String, Mode> modeMap = new HashMap<>();

    // Mapping of mode names to encoded retained mode

    private final Map<String, String> retainedMap = new HashMap<>();

    // Mapping selector enum names to enums

    private final Map<String, Selector<?>> selectorMap = new HashMap<>();

    private static final long ALWAYS = bits(FormatCase.all, FormatAction.all, FormatWhen.all,

            FormatResolve.all, FormatUnresolved.all, FormatErrors.all);

    private static final long ANY = 0L;

    public boolean shouldDisplayCommandFluff() {

        return mode.commandFluff;

    }

    public String getPre() {

        return mode.format("pre", ANY);

    }

    public String getPost() {

        return mode.format("post", ANY);

    }

    public String getErrorPre() {

        return mode.format("errorpre", ANY);

    }

    public String getErrorPost() {

        return mode.format("errorpost", ANY);

    }

    public String format(FormatCase fc, FormatAction fa, FormatWhen fw,

                    FormatResolve fr, FormatUnresolved fu, FormatErrors fe,

                    String name, String type, String value, String unresolved, List<String> errorLines) {

        return mode.format(fc, fa, fw, fr, fu, fe,

                name, type, value, unresolved, errorLines);

    }

    public String getPrompt(String nextId) {

        return mode.getPrompt(nextId);

    }

    public String getContinuationPrompt(String nextId) {

        return mode.getContinuationPrompt(nextId);

    }

    public boolean setFeedback(MessageHandler messageHandler, ArgTokenizer at) {

        return new Setter(messageHandler, at).setFeedback();

    }

    public boolean setFormat(MessageHandler messageHandler, ArgTokenizer at) {

        return new Setter(messageHandler, at).setFormat();

    }

    public boolean setTruncation(MessageHandler messageHandler, ArgTokenizer at) {

        return new Setter(messageHandler, at).setTruncation();

    }

    }

    public boolean setPrompt(MessageHandler messageHandler, ArgTokenizer at) {

        return new Setter(messageHandler, at).setPrompt();

    }

    public String retainFeedback(MessageHandler messageHandler, ArgTokenizer at) {

        return new Setter(messageHandler, at).retainFeedback();

    }

    public String retainMode(MessageHandler messageHandler, ArgTokenizer at) {

        return new Setter(messageHandler, at).retainMode();

    }

    public boolean restoreEncodedModes(MessageHandler messageHandler, String encoded) {

    }

    public void markModesReadOnly() {

        modeMap.values().stream()

                .forEach(m -> m.readOnly = true);

    }

    {

        for (FormatCase e : EnumSet.allOf(FormatCase.class))

            selectorMap.put(e.name().toLowerCase(Locale.US), e);

        for (FormatAction e : EnumSet.allOf(FormatAction.class))

            selectorMap.put(e.name().toLowerCase(Locale.US), e);

        for (FormatResolve e : EnumSet.allOf(FormatResolve.class))

            selectorMap.put(e.name().toLowerCase(Locale.US), e);

        for (FormatUnresolved e : EnumSet.allOf(FormatUnresolved.class))

            selectorMap.put(e.name().toLowerCase(Locale.US), e);

        for (FormatErrors e : EnumSet.allOf(FormatErrors.class))

            selectorMap.put(e.name().toLowerCase(Locale.US), e);

        for (FormatWhen e : EnumSet.allOf(FormatWhen.class))

            selectorMap.put(e.name().toLowerCase(Locale.US), e);

    }

    /**

     * Holds all the context of a mode mode

     */

    private static class Mode {

        // Name of mode

        final String name;

        // Display command verification/information

        // Event cases: class, method, expression, ...

        final Map<String, List<Setting>> cases;

        boolean readOnly = false;

        String prompt = "\n-> ";

        String continuationPrompt = ">> ";

        static class Setting {

            final long enumBits;

            final String format;

            Setting(long enumBits, String format) {

                this.enumBits = enumBits;

                this.format = format;

            }

        }

        /**

         * Set up an empty mode.

         *

         * @param name

         * @param commandFluff True if should display command fluff messages

         */

            this.name = name;

            add("name",       new Setting(ALWAYS, "%1$s"));

            add("type",       new Setting(ALWAYS, "%2$s"));

            add("value",      new Setting(ALWAYS, "%3$s"));

            add("unresolved", new Setting(ALWAYS, "%4$s"));

            add("errors",     new Setting(ALWAYS, "%5$s"));

            add("err",        new Setting(ALWAYS, "%6$s"));

            add("errorline",  new Setting(ALWAYS, "    {err}%n"));

            add("pre",        new Setting(ALWAYS, "|  "));

            add("post",       new Setting(ALWAYS, "%n"));

            add("errorpre",   new Setting(ALWAYS, "|  "));

            add("errorpost",  new Setting(ALWAYS, "%n"));

        }

        /**

         * Set up a copied mode.

         *

         * @param name

         * @param m Mode to copy, or null for no fresh

         */

            this.name = name;

            m.cases.entrySet().stream()

                    .forEach(fes -> fes.getValue()

                    .forEach(ing -> add(fes.getKey(), ing)));

        }

        /**

         * Set up a mode reconstituted from a preferences string.

         *

         * @param it the encoded Mode broken into String chunks, may contain

         * subsequent encoded modes

         */

        Mode(Iterator<String> it) {

            this.name = it.next();

            this.commandFluff = Boolean.parseBoolean(it.next());

            this.prompt = it.next();

            this.continuationPrompt = it.next();

            cases = new HashMap<>();

            String field;

            while (!(field = it.next()).equals("***")) {

                String open = it.next();

                assert open.equals("(");

                List<Setting> settings = new ArrayList<>();

                String bits;

                while (!(bits = it.next()).equals(")")) {

                    String format = it.next();

                    Setting ing = new Setting(Long.parseLong(bits), format);

                    settings.add(ing);

                }

                cases.put(field, settings);

            }

        }

        /**

         * Encodes the mode into a String so it can be saved in Preferences.

         *

         * @return the string representation

         */

        String encode() {

            List<String> el = new ArrayList<>();

            el.add(name);

            el.add(String.valueOf(commandFluff));

            el.add(prompt);

            el.add(continuationPrompt);

            for (Entry<String, List<Setting>> es : cases.entrySet()) {

                el.add(es.getKey());

                el.add("(");

                for (Setting ing : es.getValue()) {

                    el.add(String.valueOf(ing.enumBits));

                    el.add(ing.format);

                }

                el.add(")");

            }

            el.add("***");

            return String.join(RECORD_SEPARATOR, el);

        }

        private boolean add(String field, Setting ing) {

            List<Setting> settings =  cases.computeIfAbsent(field, k -> new ArrayList<>());

            if (settings == null) {

                return false;

            }

            settings.add(ing);

            return true;

        }

        void set(String field,

                Collection<FormatCase> cc, Collection<FormatAction> ca, Collection<FormatWhen> cw,

                Collection<FormatResolve> cr, Collection<FormatUnresolved> cu, Collection<FormatErrors> ce,

                String format) {

            long bits = bits(cc, ca, cw, cr, cu, ce);

            set(field, bits, format);

        }

        void set(String field, long bits, String format) {

            add(field, new Setting(bits, format));

        }

        /**

         * Lookup format Replace fields with context specific formats.

         *

         * @return format string

         */

        String format(String field, long bits) {

            List<Setting> settings = cases.get(field);

            if (settings == null) {

                return ""; //TODO error?

            }

            String format = null;

            for (int i = settings.size() - 1; i >= 0; --i) {

                Setting ing = settings.get(i);

                long mask = ing.enumBits;

                if ((bits & mask) == bits) {

                    format = ing.format;

                    break;

                }

            }

            if (format == null || format.isEmpty()) {

                return "";

            }

            Matcher m = FIELD_PATTERN.matcher(format);

            StringBuffer sb = new StringBuffer(format.length());

            while (m.find()) {

                String fieldName = m.group(1);

                String sub = format(fieldName, bits);

                m.appendReplacement(sb, Matcher.quoteReplacement(sub));

            }

            m.appendTail(sb);

            return sb.toString();

        }

        // Compute the display output given full context and values

        String format(FormatCase fc, FormatAction fa, FormatWhen fw,

                    FormatResolve fr, FormatUnresolved fu, FormatErrors fe,

                    String name, String type, String value, String unresolved, List<String> errorLines) {

            // Convert the context into a bit representation used as selectors for store field formats

            long bits = bits(fc, fa, fw, fr, fu, fe);

            String fname = name==null? "" : name;

            String ftype = type==null? "" : type;

            // Compute the representation of value

            String fvalue;

            if (value==null) {

                fvalue = "";

            } else {

                // Retrieve the truncation length

                String truncField = format(TRUNCATION_FIELD, bits);

                if (truncField.isEmpty()) {

                    // No truncation set, use whole value

                    fvalue = value;

                } else {

                    // Convert truncation length to int

                    // this is safe since it has been tested before it is set

                    int trunc = Integer.parseUnsignedInt(truncField);

                    if (value.length() > trunc) {

                        if (trunc <= 5) {

                            // Very short truncations have no room for "..."

                            fvalue = value.substring(0, trunc);

                        } else {

                            // Normal truncation, make total length equal truncation length

                            fvalue = value.substring(0, trunc - 4) + " ...";

                        }

                    } else {

                        // Within truncation length, use whole value

                        fvalue = value;

                    }

                }

            }

            String funresolved = unresolved==null? "" : unresolved;

            String errors = errorLines.stream()

                    .map(el -> String.format(

                            format("errorline", bits),

                            fname, ftype, fvalue, funresolved, "*cannot-use-errors-here*", el))

                    .collect(joining());

            return String.format(

                    format("display", bits),

                    fname, ftype, fvalue, funresolved, errors, "*cannot-use-err-here*");

        }

        void setPrompts(String prompt, String continuationPrompt) {

            this.prompt = prompt;

            this.continuationPrompt = continuationPrompt;

        }

        String getPrompt(String nextId) {

            return String.format(prompt, nextId);

        }

        String getContinuationPrompt(String nextId) {

            return String.format(continuationPrompt, nextId);

        }

    }

    // Representation of one instance of all the enum values as bits in a long

    private static long bits(FormatCase fc, FormatAction fa, FormatWhen fw,

            FormatResolve fr, FormatUnresolved fu, FormatErrors fe) {

        long res = 0L;

        res |= 1 << fc.ordinal();

        res <<= FormatAction.count;

        res |= 1 << fa.ordinal();

        res <<= FormatWhen.count;

        res |= 1 << fw.ordinal();

        res <<= FormatResolve.count;

        res |= 1 << fr.ordinal();

        res <<= FormatUnresolved.count;

        res |= 1 << fu.ordinal();

        res <<= FormatErrors.count;

        res |= 1 << fe.ordinal();

        return res;

    }

    // Representation of a space of enum values as or'edbits in a long

    private static long bits(Collection<FormatCase> cc, Collection<FormatAction> ca, Collection<FormatWhen> cw,

                Collection<FormatResolve> cr, Collection<FormatUnresolved> cu, Collection<FormatErrors> ce) {

        long res = 0L;

        for (FormatCase fc : cc)

            res |= 1 << fc.ordinal();

        res <<= FormatAction.count;

        for (FormatAction fa : ca)

            res |= 1 << fa.ordinal();

        res <<= FormatWhen.count;

        for (FormatWhen fw : cw)

            res |= 1 << fw.ordinal();

        res <<= FormatResolve.count;

        for (FormatResolve fr : cr)

            res |= 1 << fr.ordinal();

        res <<= FormatUnresolved.count;

        for (FormatUnresolved fu : cu)

            res |= 1 << fu.ordinal();

        res <<= FormatErrors.count;

        for (FormatErrors fe : ce)

            res |= 1 << fe.ordinal();

        return res;

    }

    interface Selector<E extends Enum<E> & Selector<E>> {

        SelectorCollector<E> collector(Setter.SelectorList sl);

        String doc();

    }

    /**

     * The event cases

     */

    public enum FormatCase implements Selector<FormatCase> {

        IMPORT("import declaration"),

        CLASS("class declaration"),

        INTERFACE("interface declaration"),

        ENUM("enum declaration"),

        ANNOTATION("annotation interface declaration"),

        METHOD("method declaration -- note: {type}==parameter-types"),

        VARDECL("variable declaration without init"),

        VARINIT("variable declaration with init"),

        EXPRESSION("expression -- note: {name}==scratch-variable-name"),

        VARVALUE("variable value expression"),

        ASSIGNMENT("assign variable"),

        STATEMENT("statement");

        String doc;

        static final EnumSet<FormatCase> all = EnumSet.allOf(FormatCase.class);

        static final int count = all.size();

        @Override

        public SelectorCollector<FormatCase> collector(Setter.SelectorList sl) {

            return sl.cases;

        }

        @Override

        public String doc() {

            return doc;

        }

        private FormatCase(String doc) {

            this.doc = doc;

        }

    }

    /**

     * The event actions

     */

    public enum FormatAction implements Selector<FormatAction> {

        ADDED("snippet has been added"),

        MODIFIED("an existing snippet has been modified"),

        REPLACED("an existing snippet has been replaced with a new snippet"),

        OVERWROTE("an existing snippet has been overwritten"),

        DROPPED("snippet has been dropped"),