/*

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

 */

/*

 * Licensed to the Apache Software Foundation (ASF) under one or more

 * contributor license agreements.  See the NOTICE file distributed with

 * this work for additional information regarding copyright ownership.

 * The ASF licenses this file to You 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.

 */

/*

 * $Id: BasisLibrary.java,v 1.6 2006/06/20 21:51:58 spericas Exp $

 */

package com.sun.org.apache.xalan.internal.xsltc.runtime;

import java.text.DecimalFormat;

import java.text.DecimalFormatSymbols;

import java.text.FieldPosition;

import java.text.MessageFormat;

import java.text.NumberFormat;

import java.util.Locale;

import java.util.ResourceBundle;

import java.util.concurrent.atomic.AtomicInteger;

import javax.xml.transform.dom.DOMSource;

import org.w3c.dom.DOMException;

import org.w3c.dom.Document;

import org.w3c.dom.Element;

import org.w3c.dom.NodeList;

import org.xml.sax.SAXException;

/**

 * Standard XSLT functions. All standard functions expect the current node

 * and the DOM as their last two arguments.

 */

public final class BasisLibrary {

    private final static String EMPTYSTRING = "";

    /**

     * Re-use a single instance of StringBuffer (per thread) in the basis library.

     * StringBuilder is better, however, DecimalFormat only accept StringBuffer

     */

    private static final ThreadLocal<StringBuilder> threadLocalStringBuilder =

        new ThreadLocal<StringBuilder> () {

            @Override protected StringBuilder initialValue() {

                return new StringBuilder();

            }

    };

    /**

     * ThreadLocal for StringBuffer used

     */

    private static final ThreadLocal<StringBuffer> threadLocalStringBuffer =

        new ThreadLocal<StringBuffer> () {

            @Override protected StringBuffer initialValue() {

                return new StringBuffer();

            }

    };

    /**

     * Standard function count(node-set)

     */

    public static int countF(DTMAxisIterator iterator) {

        return(iterator.getLast());

    }

    /**

     * Standard function position()

     * @deprecated This method exists only for backwards compatibility with old

     *             translets.  New code should not reference it.

     */

    @Deprecated

    public static int positionF(DTMAxisIterator iterator) {

        return iterator.isReverse()

                     ? iterator.getLast() - iterator.getPosition() + 1

                     : iterator.getPosition();

    }

    /**

     * XSLT Standard function sum(node-set).

     * stringToDouble is inlined

     */

    public static double sumF(DTMAxisIterator iterator, DOM dom) {

        try {

            double result = 0.0;

            int node;

            while ((node = iterator.next()) != DTMAxisIterator.END) {

                result += Double.parseDouble(dom.getStringValueX(node));

            }

            return result;

        }

        catch (NumberFormatException e) {

            return Double.NaN;

        }

    }

    /**

     * XSLT Standard function string()

     */

    public static String stringF(int node, DOM dom) {

        return dom.getStringValueX(node);

    }

    /**

     * XSLT Standard function string(value)

     */

    public static String stringF(Object obj, DOM dom) {

        if (obj instanceof DTMAxisIterator) {

            return dom.getStringValueX(((DTMAxisIterator)obj).reset().next());

        }

        else if (obj instanceof Node) {

            return dom.getStringValueX(((Node)obj).node);

        }

        else if (obj instanceof DOM) {

            return ((DOM)obj).getStringValue();

        }

        else {

            return obj.toString();

        }

    }

    /**

     * XSLT Standard function string(value)

     */

    public static String stringF(Object obj, int node, DOM dom) {

        if (obj instanceof DTMAxisIterator) {

            return dom.getStringValueX(((DTMAxisIterator)obj).reset().next());

        }

        else if (obj instanceof Node) {

            return dom.getStringValueX(((Node)obj).node);

        }

        else if (obj instanceof DOM) {

            // When the first argument is a DOM we want the whole

            // DOM and not just a single node - that would not make sense.

            //return ((DOM)obj).getStringValueX(node);

            return ((DOM)obj).getStringValue();

        }

        else if (obj instanceof Double) {

            Double d = (Double)obj;

            final String result = d.toString();

            final int length = result.length();

            if ((result.charAt(length-2)=='.') &&

                (result.charAt(length-1) == '0'))

                return result.substring(0, length-2);

            else

                return result;

        }

        else {

            return obj != null ? obj.toString() : "";

        }

    }

    /**

     * XSLT Standard function number()

     */

    public static double numberF(int node, DOM dom) {

        return stringToReal(dom.getStringValueX(node));

    }

    /**

     * XSLT Standard function number(value)

     */

    public static double numberF(Object obj, DOM dom) {

        if (obj instanceof Double) {

            return ((Double) obj).doubleValue();

        }

        else if (obj instanceof Integer) {

            return ((Integer) obj).doubleValue();

        }

        else if (obj instanceof Boolean) {

            return  ((Boolean) obj).booleanValue() ? 1.0 : 0.0;

        }

        else if (obj instanceof String) {

            return stringToReal((String) obj);

        }

        else if (obj instanceof DTMAxisIterator) {

            DTMAxisIterator iter = (DTMAxisIterator) obj;

            return stringToReal(dom.getStringValueX(iter.reset().next()));

        }

        else if (obj instanceof Node) {

            return stringToReal(dom.getStringValueX(((Node) obj).node));

        }

        else if (obj instanceof DOM) {

            return stringToReal(((DOM) obj).getStringValue());

        }

        else {

            final String className = obj.getClass().getName();

            runTimeError(INVALID_ARGUMENT_ERR, className, "number()");

            return 0.0;

        }

    }

    /**

     * XSLT Standard function round()

     */

    public static double roundF(double d) {

            return (d<-0.5 || d>0.0)?Math.floor(d+0.5):((d==0.0)?

                        d:(Double.isNaN(d)?Double.NaN:-0.0));

    }

    /**

     * XSLT Standard function boolean()

     */

    public static boolean booleanF(Object obj) {

        if (obj instanceof Double) {

            final double temp = ((Double) obj).doubleValue();

            return temp != 0.0 && !Double.isNaN(temp);

        }

        else if (obj instanceof Integer) {

            return ((Integer) obj).doubleValue() != 0;

        }

        else if (obj instanceof Boolean) {

            return  ((Boolean) obj).booleanValue();

        }

        else if (obj instanceof String) {

            return !((String) obj).equals(EMPTYSTRING);

        }

        else if (obj instanceof DTMAxisIterator) {

            DTMAxisIterator iter = (DTMAxisIterator) obj;

            return iter.reset().next() != DTMAxisIterator.END;

        }

        else if (obj instanceof Node) {

            return true;

        }

        else if (obj instanceof DOM) {

            String temp = ((DOM) obj).getStringValue();

            return !temp.equals(EMPTYSTRING);

        }

        else {

            final String className = obj.getClass().getName();

            runTimeError(INVALID_ARGUMENT_ERR, className, "boolean()");

        }

        return false;

    }

    /**

     * XSLT Standard function substring(). Must take a double because of

     * conversions resulting into NaNs and rounding.

     */

    public static String substringF(String value, double start) {

        if (Double.isNaN(start))

            return(EMPTYSTRING);

        final int strlen = getStringLength(value);

        int istart = (int)Math.round(start) - 1;

        if (istart > strlen)

            return(EMPTYSTRING);

        if (istart < 1)

            istart = 0;

        try {

            istart = value.offsetByCodePoints(0, istart);

            return value.substring(istart);

        } catch (IndexOutOfBoundsException e) {

            runTimeError(RUN_TIME_INTERNAL_ERR, "substring()");

            return null;

        }

    }

    /**

     * XSLT Standard function substring(). Must take a double because of

     * conversions resulting into NaNs and rounding.

     */

    public static String substringF(String value, double start, double length) {

        if (Double.isInfinite(start) ||

            Double.isNaN(start) ||

            Double.isNaN(length) ||

            length < 0)

            return(EMPTYSTRING);

        int istart = (int)Math.round(start) - 1;

        int ilength = (int)Math.round(length);

        final int isum;

        if (Double.isInfinite(length))

            isum = Integer.MAX_VALUE;

        else

            isum = istart + ilength;

        final int strlen = getStringLength(value);

        if (isum < 0 || istart > strlen)

                return(EMPTYSTRING);

        if (istart < 0) {

            ilength += istart;

            istart = 0;

        }

        try {

            istart = value.offsetByCodePoints(0, istart);

            if (isum > strlen) {

                return value.substring(istart);

            } else {

                int offset = value.offsetByCodePoints(istart, ilength);

                return value.substring(istart, offset);

            }

        } catch (IndexOutOfBoundsException e) {

            runTimeError(RUN_TIME_INTERNAL_ERR, "substring()");

            return null;

        }

    }

    /**

     * XSLT Standard function substring-after().

     */

    public static String substring_afterF(String value, String substring) {

        final int index = value.indexOf(substring);

        if (index >= 0)

            return value.substring(index + substring.length());

        else

            return EMPTYSTRING;

    }

    /**

     * XSLT Standard function substring-before().

     */

    public static String substring_beforeF(String value, String substring) {

        final int index = value.indexOf(substring);

        if (index >= 0)

            return value.substring(0, index);

        else

            return EMPTYSTRING;

    }

    /**

     * XSLT Standard function translate().

     */

    public static String translateF(String value, String from, String to) {

        final int tol = to.length();

        final int froml = from.length();

        final int valuel = value.length();

        final StringBuilder result = threadLocalStringBuilder.get();

    result.setLength(0);

        for (int j, i = 0; i < valuel; i++) {

            final char ch = value.charAt(i);

            for (j = 0; j < froml; j++) {

                if (ch == from.charAt(j)) {

                    if (j < tol)

                        result.append(to.charAt(j));

                    break;

                }

            }

            if (j == froml)

                result.append(ch);

        }

        return result.toString();

    }

    /**

     * XSLT Standard function normalize-space().

     */

    public static String normalize_spaceF(int node, DOM dom) {

        return normalize_spaceF(dom.getStringValueX(node));

    }

    /**

     * XSLT Standard function normalize-space(string).

     */

    public static String normalize_spaceF(String value) {

        int i = 0, n = value.length();

        StringBuilder result = threadLocalStringBuilder.get();

    result.setLength(0);

        while (i < n && isWhiteSpace(value.charAt(i)))

            i++;

        while (true) {

            while (i < n && !isWhiteSpace(value.charAt(i))) {

                result.append(value.charAt(i++));

            }

            if (i == n)

                break;

            while (i < n && isWhiteSpace(value.charAt(i))) {

                i++;

            }

            if (i < n)

                result.append(' ');

        }

        return result.toString();

    }

    /**

     * XSLT Standard function generate-id().

     */

    public static String generate_idF(int node) {

        if (node > 0)

            // Only generate ID if node exists

            return "N" + node;

        else

            // Otherwise return an empty string

            return EMPTYSTRING;

    }

    /**

     * utility function for calls to local-name().

     */

    public static String getLocalName(String value) {

        int idx = value.lastIndexOf(':');

        if (idx >= 0) value = value.substring(idx + 1);

        idx = value.lastIndexOf('@');

        if (idx >= 0) value = value.substring(idx + 1);

        return(value);

    }

    /**

     * External functions that cannot be resolved are replaced with a call

     * to this method. This method will generate a runtime errors. A good

     * stylesheet checks whether the function exists using conditional

     * constructs, and never really tries to call it if it doesn't exist.

     * But simple stylesheets may result in a call to this method.

     * The compiler should generate a warning if it encounters a call to

     * an unresolved external function.

     */

    public static void unresolved_externalF(String name) {

        runTimeError(EXTERNAL_FUNC_ERR, name);

    }

    /**

     * Utility function to throw a runtime error on the use of an extension

     * function when the secure processing feature is set to true.

     */

    public static void unallowed_extension_functionF(String name) {

        runTimeError(UNALLOWED_EXTENSION_FUNCTION_ERR, name);

    }

    /**

     * Utility function to throw a runtime error on the use of an extension

     * element when the secure processing feature is set to true.

     */

    public static void unallowed_extension_elementF(String name) {

        runTimeError(UNALLOWED_EXTENSION_ELEMENT_ERR, name);

    }

    /**

     * Utility function to throw a runtime error for an unsupported element.

     *

     * This is only used in forward-compatibility mode, when the control flow

     * cannot be determined. In 1.0 mode, the error message is emitted at

     * compile time.

     */

    public static void unsupported_ElementF(String qname, boolean isExtension) {

        if (isExtension)

            runTimeError(UNSUPPORTED_EXT_ERR, qname);

        else

            runTimeError(UNSUPPORTED_XSL_ERR, qname);

    }

    /**

     * XSLT Standard function namespace-uri(node-set).

     */

    public static String namespace_uriF(DTMAxisIterator iter, DOM dom) {

        return namespace_uriF(iter.next(), dom);

    }

    /**

     * XSLT Standard function system-property(name)

     */

    public static String system_propertyF(String name) {

        if (name.equals("xsl:version"))

            return("1.0");

        if (name.equals("xsl:vendor"))

            return("Apache Software Foundation (Xalan XSLTC)");

        if (name.equals("xsl:vendor-url"))

            return("http://xml.apache.org/xalan-j");

        runTimeError(INVALID_ARGUMENT_ERR, name, "system-property()");

        return(EMPTYSTRING);

    }

    /**

     * XSLT Standard function namespace-uri().

     */

    public static String namespace_uriF(int node, DOM dom) {

        final String value = dom.getNodeName(node);

        final int colon = value.lastIndexOf(':');

        if (colon >= 0)

            return value.substring(0, colon);

        else

            return EMPTYSTRING;

    }

    /**

     * Implements the object-type() extension function.

     *

     * @see <a href="http://www.exslt.org/">EXSLT</a>

     */

    public static String objectTypeF(Object obj)

    {

      if (obj instanceof String)

        return "string";

      else if (obj instanceof Boolean)

        return "boolean";

      else if (obj instanceof Number)