/*
 * Copyright (c) 2004-2010, Kohsuke Kawaguchi
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without modification, are permitted provided
 * that the following conditions are met:
 *
 *     * Redistributions of source code must retain the above copyright notice, this list of
 *       conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright notice, this list of
 *       conditions and the following disclaimer in the documentation and/or other materials
 *       provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS
 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
 * OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
 * IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
 * THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

package org.kohsuke.stapler.export;

import com.sun.xml.txw2.TXW;
import com.sun.xml.txw2.output.ResultFactory;
import org.kohsuke.stapler.export.XSD.ComplexType;
import org.kohsuke.stapler.export.XSD.ContentModel;
import org.kohsuke.stapler.export.XSD.Element;
import org.kohsuke.stapler.export.XSD.Schema;
import org.kohsuke.stapler.export.XSD.Annotated;

import javax.xml.namespace.QName;
import javax.xml.transform.Result;
import java.util.Calendar;
import java.util.Collection;
import java.util.HashSet;
import java.util.Map;
import java.util.Set;
import java.util.Stack;

/**
 * Generates XML Schema that describes the XML representation of exported beans.
 *
 * @author Kohsuke Kawaguchi
 */
public class SchemaGenerator {
    private final Stack<Model> queue = new Stack<Model>();
    private final Set<Model> written = new HashSet<Model>();
    /**
     * Enumerations to be generated.
     */
    private final Set<Class> enums = new HashSet<Class>();

    private final ModelBuilder builder;
    private final Model<?> top;

    public SchemaGenerator(Model<?> m) {
        this.builder = m.parent;
        this.top = m;
    }

    /**
     * Generates the complete schema to the specified result.
     */
    public void generateSchema(Result r) {
        Schema s = TXW.create(Schema.class, ResultFactory.createSerializer(r));
        s._namespace(XSD.URI,"xsd");

        queue.clear();
        written.clear();

        // element decl for the root element
        s.element().name(top.type.getSimpleName()).type(getXmlTypeName(top.type));

        // write all beans
        while(!queue.isEmpty())
            writeBean(s, (Model<?>) queue.pop());

        // then enums
        for (Class e : enums)
            writeEnum(s,e);

        s.commit();
    }

    private void writeEnum(Schema s, Class e) {
        XSD.Restriction facets = s.simpleType().name(getXmlToken(e)).restriction().base(XSD.Types.STRING);
        for (Object constant : e.getEnumConstants()) {
            facets.enumeration().value(constant.toString());
        }
    }

    private void writeBean(Schema s, Model<?> m) {
        ComplexType ct = s.complexType().name(getXmlToken(m.type));
        final ContentModel cm;

        if(m.superModel==null)
            cm = ct.sequence();
        else {
            addToQueue(m.superModel);
            cm = ct.complexContent().extension().base(getXmlTypeName(m.superModel.type)).sequence();
        }

        for (Property p : m.getProperties()) {
            Class t = p.getType();
            final boolean isCollection;
            final Class itemType;
            if(t.isArray()) {
                isCollection = true;
                itemType = t.getComponentType();
            } else
            if(Collection.class.isAssignableFrom(t)) {
                isCollection = true;
                itemType = TypeUtil.erasure(
                    TypeUtil.getTypeArgument(TypeUtil.getBaseClass(p.getGenericType(),Collection.class),0));
            } else {
                isCollection = false;
                itemType = t;
            }

            Element e = cm.element()
                .name(isCollection?XMLDataWriter.toSingular(p.name):p.name)
                .type(getXmlTypeName(itemType));

            if(!t.isPrimitive())
                e.minOccurs(0);
            if(isCollection)
                e.maxOccurs("unbounded");

            annotate(e,p.getJavadoc());
        }
    }

    /**
     * Annotates the schema element by javadoc, if that exists.
     */
    private void annotate(Annotated e, String javadoc) {
        if(javadoc==null)   return;
        e.annotation().documentation(javadoc);
    }

    /**
     * Adds the schema for the XML representation of the given class.
     */
    public void add(Class<?> c) {
        addToQueue(builder.get(c));
    }

    private void addToQueue(Model m) {
        if (written.add(m))
            queue.push(m);
    }

    public QName getXmlTypeName(Class<?> t) {
        if(Property.STRING_TYPES.contains(t))       return XSD.Types.STRING;
        if(t==Boolean.class || t==boolean.class)    return XSD.Types.BOOLEAN;
        if(t==Integer.class || t==int.class)        return XSD.Types.INT;
        if(t==Long.class || t==long.class)          return XSD.Types.LONG;
        if(Map.class.isAssignableFrom(t))           return XSD.Types.ANYTYPE;
        if(Calendar.class.isAssignableFrom(t))      return XSD.Types.LONG;
        if(Enum.class.isAssignableFrom(t)) {
            enums.add(t);
            return new QName(getXmlToken(t));
        }

        // otherwise bean
        try {
            addToQueue(builder.get(t));
        } catch (IllegalArgumentException e) {
            // not an exposed bean by itself
            return XSD.Types.ANYTYPE;
        }
        
        return new QName(getXmlToken(t));
    }

    private String getXmlToken(Class<?> t) {
        return t.getName().replace('$','-');
    }

    private String getXmlElementName(Class<?> type) {
        return getXmlToken(type);
    }
}

@@ -1493,16 +1493,48 @@
 actory;%0A
+import java.beans.Introspector;%0A
 import o
@@ -2906,24 +2906,50 @@
 ment().name(
+Introspector.decapitalize(
 top.type.get
@@ -2961,16 +2961,17 @@
 eName())
+)
 .type(ge

[FIXED STAPLER-15] A root element name in XSD should be decapitalized