package de.intevation.flys.themes;

import java.util.List;
import java.util.Map;

import javax.xml.xpath.XPathConstants;

import org.apache.log4j.Logger;

import org.w3c.dom.Document;
import org.w3c.dom.NamedNodeMap;
import org.w3c.dom.Node;
import org.w3c.dom.NodeList;

import de.intevation.artifacts.common.utils.XMLUtils;

import de.intevation.flys.artifacts.context.FLYSContext;


/**
 * @author <a href="mailto:ingo.weinzierl@intevation.de">Ingo Weinzierl</a>
 */
public class ThemeFactory {

    private static Logger logger = Logger.getLogger(ThemeFactory.class);

    private ThemeFactory() {
    }


    /**
     * Creates a new theme from <i>config</i>.
     *
     * @param themeCfg The theme config document that is used to fetch parent
     * themes.
     * @param config The theme config node.
     *
     * @return a new theme.
     */
    public static Theme createTheme(Document themeCfg, Node config) {
        String name = getName(config);
        String desc = getDescription(config);

        logger.debug("Create new theme: " + name);

        Theme theme = new DefaultTheme(name, desc);

        parseInherits(themeCfg, config, theme);
        parseFields(config, theme);
        parseAttrs(config, theme);

        return theme;
    }


    /**
     * Returns the theme for a specified output type and facet.
     *
     * @param c The FLYSContext that stores the mappings and themes.
     * @param name The name of the mapping.
     *
     * @return a theme.
     */
    public static Theme getTheme(FLYSContext c, String name) {
        return getTheme(c, name, null);
    }


    public static Theme getTheme(FLYSContext c, String name, String pattern) {
        logger.debug("Search theme for: " + name + " - " + pattern);
        if (c == null || name == null) {
            logger.warn("Cannot search for theme.");
            return null;
        }

        Map<String, List<ThemeMapping>> map = (Map<String, List<ThemeMapping>>)
            c.get(FLYSContext.THEME_MAPPING);

        Map<String, Theme> t = (Map<String, Theme>)
            c.get(FLYSContext.THEMES);

        if (map == null || map.size() == 0 || t == null || t.size() == 0) {
            logger.warn("No mappings or themes found. Cannot retrieve theme!");
            return null;
        }

        List<ThemeMapping> mapping = map.get(name);

        if (mapping == null) {
            logger.warn("No theme fount for mapping: " + name);
            return null;
        }

        int patternLen = pattern != null ? pattern.length() : 0;

        Theme defaultTheme = null;

        for (ThemeMapping tm: mapping) {
            if (name.equals(tm.getFrom())) {
                String tmPattern = tm.getPatternStr();

                int tmLen = tmPattern != null ? tmPattern.length() : 0;

                if (tmLen == 0 && patternLen == 0) {
                    // we want and get the default theme
                    return t.get(tm.getTo());
                }
                else if (tmLen == 0 && patternLen > 0) {
                    // found a defaultTheme, lets save it
                    defaultTheme = t.get(tm.getTo());
                }
                else if (tm.applyPattern(pattern)) {
                    // found the special theme we have searched for
                    return t.get(tm.getTo());
                }
            }
        }

        String msg =
            "No theme found for '" + name +
            "' with pattern '" + pattern + "'.";

        if (defaultTheme != null) {
            logger.info(msg + " Use the default instead.");
            return defaultTheme;
        }

        logger.warn(msg);

        return null;
    }


    protected static String getName(Node config) {
        return (String) XMLUtils.xpath(config, "@name", XPathConstants.STRING);
    }


    protected static String getDescription(Node config) {
        return (String) XMLUtils.xpath(config, "@desc", XPathConstants.STRING);
    }


    protected static void parseInherits(Document themeCfg, Node cfg, Theme t) {
        logger.debug("ThemeFactory.parseInherits");

        NodeList inherits = (NodeList) XMLUtils.xpath(
            cfg, "inherits/inherit", XPathConstants.NODESET);

        int num = inherits != null ? inherits.getLength() : 0;

        if (num == 0) {
            logger.debug("Theme does not inherit from other themes.");
            return;
        }

        logger.debug("Theme inherits from " + num + " other themes.");

        for (int i = 0; i < num; i++) {
            Node inherit = inherits.item(i);
            String from  = (String) XMLUtils.xpath(
                inherit, "@from", XPathConstants.STRING);

            Node tmp = getThemeNode(themeCfg, from);

            parseInherits(themeCfg, tmp, t);
            parseFields(tmp, t);
        }
    }


    protected static Node getThemeNode(Document themeCfg, String name) {
        if (name == null) {
            logger.warn("Cannot search theme config without name!");
            return null;
        }

        logger.debug("Search for theme: " + name);

        String xpath = "/themes/theme[@name='" + name + "']";

        return (Node) XMLUtils.xpath(themeCfg, xpath, XPathConstants.NODE);
    }


    protected static void parseFields(Node config, Theme theme) {
        if (config == null || theme == null) {
            logger.warn("Parsing fields without node or theme is senseless!");
            return;
        }

        NodeList fields = (NodeList) XMLUtils.xpath(
            config, "fields/field", XPathConstants.NODESET);

        int num = fields != null ? fields.getLength() : 0;

        logger.debug("Found " + num + " own fields in this theme.");

        if (num == 0) {
            logger.debug("Theme has no own fields.");
            return;
        }

        for (int i = 0; i < num; i++) {
            Node field = fields.item(i);

            addField(theme, field);
        }
    }


    protected static void addField(Theme theme, Node field) {
        String name = (String) XMLUtils.xpath(
            field, "@name", XPathConstants.STRING);

        logger.debug("Add field: " + name);

        NamedNodeMap attrs = field.getAttributes();

        int num = attrs != null ? attrs.getLength() : 0;

        if (num == 0) {
            logger.warn("This field has no attributes.");
            return;
        }

        ThemeField theField = new DefaultThemeField(name);

        for (int i = 0; i < num; i++) {
            Node attr    = attrs.item(i);

            String key   = attr.getNodeName();
            String value = attr.getNodeValue();

            theField.setAttribute(key, value);
        }

        theme.addField(name, theField);
    }


    protected static void parseAttrs(Node config, Theme theme) {
        NamedNodeMap attrs = config.getAttributes();

        int num = attrs != null ? attrs.getLength() : 0;

        if (num == 0) {
            logger.debug("Theme has no attributes set.");
            return;
        }

        for (int i = 0; i < num; i++) {
            Node attr = attrs.item(i);

            String name  = attr.getNodeName();
            String value = attr.getNodeValue();

            theme.addAttribute(name, value);
        }
    }
}
// vim:set ts=4 sw=4 si et sta sts=4 fenc=utf8 :